diff --git a/build.py b/build.py index 2c94443d93..68e9cd463b 100644 --- a/build.py +++ b/build.py @@ -32,6 +32,7 @@ "lang/basic/src+all", "lang/m2/comp+all", "lang/pc/comp+all", + "lang/a68s/aem+all", "util/ack+all", "util/amisc+all", "util/arch+all", diff --git a/build/ab.mk b/build/ab.mk index b1a58994c7..d44cdc1552 100644 --- a/build/ab.mk +++ b/build/ab.mk @@ -15,14 +15,18 @@ CP ?= cp HOSTCC ?= gcc HOSTCXX ?= g++ +HOSTFPC ?= fpc HOSTAR ?= ar HOSTCFLAGS ?= -g -Og +HOSTFPCFLAGS ?= -g -gl -vi- -l- HOSTLDFLAGS ?= -g CC ?= $(HOSTCC) CXX ?= $(HOSTCXX) +FPC ?= $(HOSTFPC) AR ?= $(HOSTAR) CFLAGS ?= $(HOSTCFLAGS) +FPCFLAGS ?= $(HOSTFPCFLAGS) LDFLAGS ?= $(HOSTLDFLAGS) export PKG_CONFIG @@ -91,6 +95,7 @@ include $(OBJ)/build.mk MAKEFLAGS += -r -j$(shell nproc) .DELETE_ON_ERROR: +.SUFFIXES: .PHONY: update-ab update-ab: diff --git a/build/pascal.py b/build/pascal.py new file mode 100644 index 0000000000..9908726412 --- /dev/null +++ b/build/pascal.py @@ -0,0 +1,19 @@ +from build.ab import Rule, Targets, simplerule +from build.toolchain import Toolchain, HostToolchain + +Toolchain.PC = ["$(FPC) -FE$[dir] -o$[outs[0]] $[ins] $(FPCFLAGS) $[fpcflags]"] +HostToolchain.PC = ["$(HOSTFPC) -FE$[dir] -o$[outs[0]] $[ins] $(HOSTFPCFLAGS) $[fpcflags]"] + +@Rule +def _pascalprogramimpl(self, name, srcs:Targets=[], fpcflags=[], toolchain=None, label="PASCAL"): + simplerule(replaces=self, + ins=srcs, + outs=[f"={self.localname}"], + commands=toolchain.PC, + label=toolchain.PREFIX + label) + +def pascalprogram(toolchain=Toolchain, **kwargs): + return _pascalprogramimpl(**kwargs, toolchain=toolchain) + +def hostpascalprogram(toolchain=HostToolchain, **kwargs): + return _pascalprogramimpl(**kwargs, toolchain=toolchain) diff --git a/lang/a68s/aem/a68s1ce.p b/lang/a68s/aem/a68s1ce.p index 62b6f1fd28..f5428063e5 100644 --- a/lang/a68s/aem/a68s1ce.p +++ b/lang/a68s/aem/a68s1ce.p @@ -582,7 +582,7 @@ 34190 WRITEINSTN(LXL); WRITECON(CPACTCONS, SZWORD, 0); (*-24() TAKELINE; ()-24*) (*STATIC LINK*) 34200 WRITEINSTN(CAL); 34205 STRWLEN:=(RTNLENGTH+CHARPERWORD) DIV CHARPERWORD *SZWORD; -34210 ENEW(TEMP,LEX1SIZE+STRWLEN); +34210 GETMEM(TEMP, (LEX1SIZE+STRWLEN)*SZWORD); 34220 WITH TEMP^ DO 34230 BEGIN 34240 FOR I:=1 TO RTNLENGTH DO S10[I]:=ROUTINE[I]; @@ -1710,7 +1710,7 @@ 44830 EMITXWORD(OCVIMMED,SZWORD);(*-24() WRITE(LGO,',');()-24*) 44840 EMITXWORD(OCVIMMED,SZADDR); 44850 WRITEINSTN(EOOPNDS); -44900 ENEW(TEMP,LEX1SIZE + (9+CHARPERWORD) DIV CHARPERWORD * SZWORD); +44900 GETMEM(TEMP, (LEX1SIZE + (9+CHARPERWORD)*SZWORD) DIV CHARPERWORD * SZWORD); 44908 WITH TEMP^ DO 44909 BEGIN 44910 S10 := 'M_A_I_N '; @@ -1913,7 +1913,7 @@ 46120 BUFFER[LAST+FIFTEEN].CODEWORD := 0; 46130 HEADERWORD.WORD := 40000020000001000000B 46140 END; -46150 ENEW(TEMP,LEX1SIZE+5); +46150 GETMEM(TEMP, (LEX1SIZE+5)*SZWORD); 46160 TEMP^.S10 := 'PDERR '; (* ENTRY POINT FOR PASCAL DETECTED ERRORS *) 46170 EMITX1(PJMP, OCVEXT, ORD(TEMP)); 46180 EMITX1(PJMP, OCVIMMED, OUTPUTEFET); diff --git a/lang/a68s/aem/a68s1int.p b/lang/a68s/aem/a68s1int.p index 6cbc2ad62c..684999fc5c 100644 --- a/lang/a68s/aem/a68s1int.p +++ b/lang/a68s/aem/a68s1int.p @@ -2,49 +2,49 @@ 00110 (**) 00140 (*-87() (*EXTERNALS TO CODE EMITTER*) 00144 (**) -00150 PROCEDURE FIXUPF(ALABL: LABL); EXTERN; -00152 FUNCTION FIXUPM:LABL; EXTERN; -00160 PROCEDURE EMITX1 (OPCOD:POP;TYP1:OPDTYP;OPND1:ADDRINT); EXTERN; -00170 PROCEDURE EMITX2 (OPCOD:POP;TYP1:OPDTYP;OPND1:ADDRINT;TYP2:OPDTYP;OPND2:ADDRINT); EXTERN; -00180 PROCEDURE EMITX3(OPCOD:POP;TYP1:OPDTYP;OPND1:ADDRINT;TYP2:OPDTYP;OPND2:ADDRINT;TYP3:OPDTYP;OPND3:ADDRINT); EXTERN; +00150 PROCEDURE FIXUPF(ALABL: LABL); EXTERNAL; +00152 FUNCTION FIXUPM:LABL; EXTERNAL; +00160 PROCEDURE EMITX1 (OPCOD:POP;TYP1:OPDTYP;OPND1:ADDRINT); EXTERNAL; +00170 PROCEDURE EMITX2 (OPCOD:POP;TYP1:OPDTYP;OPND1:ADDRINT;TYP2:OPDTYP;OPND2:ADDRINT); EXTERNAL; +00180 PROCEDURE EMITX3(OPCOD:POP;TYP1:OPDTYP;OPND1:ADDRINT;TYP2:OPDTYP;OPND2:ADDRINT;TYP3:OPDTYP;OPND3:ADDRINT); EXTERNAL; 00190 PROCEDURE EMITX4(OPCOD:POP;TYP1:OPDTYP;OPND1:ADDRINT;TYP2:OPDTYP;OPND2:ADDRINT; -00200 TYP3:OPDTYP;OPND3:ADDRINT;TYP4:OPDTYP;OPND4:ADDRINT); EXTERN; +00200 TYP3:OPDTYP;OPND3:ADDRINT;TYP4:OPDTYP;OPND4:ADDRINT); EXTERNAL; 00210 (*+86() (*FOR CODE GENERATOR ONLY*) -00212 PROCEDURE SETTEXTSTATE; EXTERN; +00212 PROCEDURE SETTEXTSTATE; EXTERNAL; 00220 PROCEDURE EMITX5(OPCOD:POP;TYP1:OPDTYP;OPND1:ADDRINT;TYP2:OPDTYP;OPND2:ADDRINT;TYP3:OPDTYP;OPND3:ADDRINT; -00230 TYP4:OPDTYP;OPND4:ADDRINT;TYP5:OPDTYP;OPND5:ADDRINT); EXTERN; -00240 PROCEDURE EMITX0(OPCOD: POP); EXTERN; +00230 TYP4:OPDTYP;OPND4:ADDRINT;TYP5:OPDTYP;OPND5:ADDRINT); EXTERNAL; +00240 PROCEDURE EMITX0(OPCOD: POP); EXTERNAL; 00250 (*+02() -00260 PROCEDURE WRITEBYTE(BYT: BYTE); EXTERN; +00260 PROCEDURE WRITEBYTE(BYT: BYTE); EXTERNAL; 00270 ()+02*) -00280 PROCEDURE EMITXWORD(TYP: OPDTYP; OPERAND: ADDRINT); EXTERN; -00281 (*+02() PROCEDURE EMITXPROC(TYP :OPDTYP; OPERAND :ADDRINT); EXTERN; -00282 PROCEDURE EMITRNTAIL(LEN :INTEGER); EXTERN; -00283 FUNCTION LENOF(SB :PSB) :INTEGER; EXTERN; ()+02*) -00284 (*+05() PROCEDURE EMITXPROC(TYP: OPDTYP; OPERAND: ADDRINT); EXTERN; ()+05*) -00290 PROCEDURE EMITALF(OPERAND: BIGALFA); EXTERN; -00300 FUNCTION GETNEXTLABEL: LABL; EXTERN; -00320 PROCEDURE FIXUPFIM(ALABL: LABL; VALUE: INTEGER); EXTERN; -00330 PROCEDURE FIXLABL(OLDLABL,NEWLABL: LABL; KNOWN: BOOLEAN); EXTERN; -00340 FUNCTION NORMAL(SB: PSB): SBTTYP; EXTERN; -00360 PROCEDURE LOAD(WHERE:SBTTYP; SB: PSB); EXTERN; -00364 PROCEDURE UNSTKP1(TYP: OPDTYP; OPND: PSB); EXTERN; -00370 PROCEDURE EMITBEG; EXTERN; -00372 FUNCTION EMITRTNHEAD: LABL; EXTERN; -00380 PROCEDURE EMITEND; EXTERN; -00400 FUNCTION GETCASE(M: MODE; OLST: OLSTTYP; SB: PSB): STATE; EXTERN; -00410 FUNCTION GENLCLGBL(VAR OPCOD: POP; SB: PSB): INTEGER; EXTERN; +00280 PROCEDURE EMITXWORD(TYP: OPDTYP; OPERAND: ADDRINT); EXTERNAL; +00281 (*+02() PROCEDURE EMITXPROC(TYP :OPDTYP; OPERAND :ADDRINT); EXTERNAL; +00282 PROCEDURE EMITRNTAIL(LEN :INTEGER); EXTERNAL; +00283 FUNCTION LENOF(SB :PSB) :INTEGER; EXTERNAL; ()+02*) +00284 (*+05() PROCEDURE EMITXPROC(TYP: OPDTYP; OPERAND: ADDRINT); EXTERNAL; ()+05*) +00290 PROCEDURE EMITALF(OPERAND: BIGALFA); EXTERNAL; +00300 FUNCTION GETNEXTLABEL: LABL; EXTERNAL; +00320 PROCEDURE FIXUPFIM(ALABL: LABL; VALUE: INTEGER); EXTERNAL; +00330 PROCEDURE FIXLABL(OLDLABL,NEWLABL: LABL; KNOWN: BOOLEAN); EXTERNAL; +00340 FUNCTION NORMAL(SB: PSB): SBTTYP; EXTERNAL; +00360 PROCEDURE LOAD(WHERE:SBTTYP; SB: PSB); EXTERNAL; +00364 PROCEDURE UNSTKP1(TYP: OPDTYP; OPND: PSB); EXTERNAL; +00370 PROCEDURE EMITBEG; EXTERNAL; +00372 FUNCTION EMITRTNHEAD: LABL; EXTERNAL; +00380 PROCEDURE EMITEND; EXTERNAL; +00400 FUNCTION GETCASE(M: MODE; OLST: OLSTTYP; SB: PSB): STATE; EXTERNAL; +00410 FUNCTION GENLCLGBL(VAR OPCOD: POP; SB: PSB): INTEGER; EXTERNAL; 00411 ()+86*) 00412 (*+05() -00413 PROCEDURE HOIST(HOISTLEN, LEN: INTEGER; ALIGN: BOOLEAN); EXTERN; +00413 PROCEDURE HOIST(HOISTLEN, LEN: INTEGER; ALIGN: BOOLEAN); EXTERNAL; 00414 ()+05*) -00420 PROCEDURE CLEAR(SB: PSB); EXTERN; -00430 PROCEDURE FILL(WHERE: SBTTYP; SB: PSB); EXTERN; -00440 PROCEDURE TWIST; EXTERN; -00450 PROCEDURE LOADSTK(SB: PSB); EXTERN; -00460 PROCEDURE GENOP(VAR OPCOD: POP; M: MODE; VAR OLIST: OLSTTYP; SB: PSB); EXTERN; -00470 PROCEDURE GENDP(M: MODE); EXTERN; -00472 (*+32() PROCEDURE ASERT(ASERTION: BOOLEAN; REASON:ALFA); EXTERN; ()+32*) +00420 PROCEDURE CLEAR(SB: PSB); EXTERNAL; +00430 PROCEDURE FILL(WHERE: SBTTYP; SB: PSB); EXTERNAL; +00440 PROCEDURE TWIST; EXTERNAL; +00450 PROCEDURE LOADSTK(SB: PSB); EXTERNAL; +00460 PROCEDURE GENOP(VAR OPCOD: POP; M: MODE; VAR OLIST: OLSTTYP; SB: PSB); EXTERNAL; +00470 PROCEDURE GENDP(M: MODE); EXTERNAL; +00472 (*+32() PROCEDURE ASERT(ASERTION: BOOLEAN; REASON:ALFA); EXTERNAL; ()+32*) 00480 ()-87*) 00490 (**) 00520 (*+04() @@ -55,174 +55,174 @@ 00570 IMPORTS A68SCOM FROM A68DEC; 00580 ()+04*) 12000 (* EXTERNALS TO THE LEXICAL ANALYSER *) -12002 PROCEDURE FIND(VAR SEARCHLIST: MODE; RECURSIVE: BOOLEAN; LENGTH: CNTR); EXTERN; -12010 PROCEDURE FINDPRC(RESMD: MODE; CNT: CNTR; CP:CODEPROC); EXTERN; -12020 PROCEDURE FINSTRUCT(CNT: CNTR); EXTERN; -12030 FUNCTION FINDREF(M: MODE): MODE; EXTERN; -12040 FUNCTION FINDROW(M: MODE; CNT:CNTR): MODE; EXTERN; -12050 PROCEDURE NEWFIELD(LEX: PLEX); EXTERN; -12060 PROCEDURE RECURFIX(VAR BASEM: MODE); EXTERN; -12090 (*+05() PROCEDURE OPENLOADFILE(VAR F: LOADFILE; PARAM: INTEGER; WRITING: BOOLEAN); EXTERN; -12100 PROCEDURE OPENTEXT(VAR F: TEXT; PARAM: INTEGER; WRITING: BOOLEAN); EXTERN; +12002 PROCEDURE FIND(VAR SEARCHLIST: MODE; RECURSIVE: BOOLEAN; LENGTH: CNTR); EXTERNAL; +12010 PROCEDURE FINDPRC(RESMD: MODE; CNT: CNTR; CP:CODEPROC); EXTERNAL; +12020 PROCEDURE FINSTRUCT(CNT: CNTR); EXTERNAL; +12030 FUNCTION FINDREF(M: MODE): MODE; EXTERNAL; +12040 FUNCTION FINDROW(M: MODE; CNT:CNTR): MODE; EXTERNAL; +12050 PROCEDURE NEWFIELD(LEX: PLEX); EXTERNAL; +12060 PROCEDURE RECURFIX(VAR BASEM: MODE); EXTERNAL; +12090 (*+05() PROCEDURE OPENLOADFILE(VAR F: LOADFILE; PARAM: INTEGER; WRITING: BOOLEAN); EXTERNAL; +12100 PROCEDURE OPENTEXT(VAR F: TEXT; PARAM: INTEGER; WRITING: BOOLEAN); EXTERNAL; 12110 ()+05*) -12120 PROCEDURE CHECKPAGE; EXTERN; -12130 PROCEDURE OUTLST(LINE: INTEGER; VAR BUF: BUFFER; PTR: INTEGER); EXTERN; -12140 PROCEDURE OUTERR(N: INTEGER; LEV: ERRLEV; LEX: PLEX); EXTERN; -12150 PROCEDURE SEMERR(N: INTEGER); EXTERN; -12160 PROCEDURE INITIO; EXTERN; -12170 PROCEDURE SEMERRP(N: INTEGER; LEX: PLEX); EXTERN; -12180 PROCEDURE SUBREST; EXTERN; -12190 PROCEDURE SUBSAVE; EXTERN; -12200 PROCEDURE SCPUSH(M: MODE); EXTERN; -12210 FUNCTION SCPOP: MODE; EXTERN; -12220 FUNCTION SRPOPMD: MODE; EXTERN; -12230 PROCEDURE MODERR(M: MODE; N: INTEGER); EXTERN; -12240 FUNCTION HASHIN: PLEX; EXTERN; -12270 PROCEDURE INITLX; EXTERN; -12280 PROCEDURE NEXTCH(LEVEL: INDEXTYPE); EXTERN; -12290 PROCEDURE LXERR(N: INTEGER); EXTERN; -12300 PROCEDURE LEXALF(LEX: PLEX; VAR ALF: ALFA); EXTERN; -12310 FUNCTION PARSIN: PLEX; EXTERN; +12120 PROCEDURE CHECKPAGE; EXTERNAL; +12130 PROCEDURE OUTLST(LINE: INTEGER; VAR BUF: BUFFER; PTR: INTEGER); EXTERNAL; +12140 PROCEDURE OUTERR(N: INTEGER; LEV: ERRLEV; LEX: PLEX); EXTERNAL; +12150 PROCEDURE SEMERR(N: INTEGER); EXTERNAL; +12160 PROCEDURE INITIO; EXTERNAL; +12170 PROCEDURE SEMERRP(N: INTEGER; LEX: PLEX); EXTERNAL; +12180 PROCEDURE SUBREST; EXTERNAL; +12190 PROCEDURE SUBSAVE; EXTERNAL; +12200 PROCEDURE SCPUSH(M: MODE); EXTERNAL; +12210 FUNCTION SCPOP: MODE; EXTERNAL; +12220 FUNCTION SRPOPMD: MODE; EXTERNAL; +12230 PROCEDURE MODERR(M: MODE; N: INTEGER); EXTERNAL; +12240 FUNCTION HASHIN: PLEX; EXTERNAL; +12270 PROCEDURE INITLX; EXTERNAL; +12280 PROCEDURE NEXTCH(LEVEL: INDEXTYPE); EXTERNAL; +12290 PROCEDURE LXERR(N: INTEGER); EXTERNAL; +12300 PROCEDURE LEXALF(LEX: PLEX; VAR ALF: ALFA); EXTERNAL; +12310 FUNCTION PARSIN: PLEX; EXTERNAL; 18808 (**) 18810 (*-86() (*EXTERNALS TO CODE GENERATOR*) 18811 (**) -18812 PROCEDURE STACKSB (SB:PSB); EXTERN; -18814 PROCEDURE UNSTACKSB ; EXTERN; -18816 (*+05() FUNCTION SUBSTLEN(SBTS: SBTTYPSET): INTEGER; EXTERN; ()+05*) +18812 PROCEDURE STACKSB (SB:PSB); EXTERNAL; +18814 PROCEDURE UNSTACKSB ; EXTERNAL; +18816 (*+05() FUNCTION SUBSTLEN(SBTS: SBTTYPSET): INTEGER; EXTERNAL; ()+05*) 18820 (*+85() (*FOR SEMANTIC ROUTINES ONLY*) -18840 PROCEDURE CGRTE(R: PROUTN); EXTERN; -18850 PROCEDURE CGOPAB(OPCOD: POP; RESMODE: MODE); EXTERN; -18860 PROCEDURE CGRGID(STB: PSTB); EXTERN; -18870 PROCEDURE CGRGN; EXTERN; -18880 PROCEDURE CGRGXA(LOCRNG: BOOLEAN); EXTERN; -18890 PROCEDURE CGOPCALL; EXTERN; -18900 PROCEDURE CGOPDA; EXTERN; -18910 PROCEDURE CGOPDC; EXTERN; -18920 PROCEDURE CGOPDD; EXTERN; -18930 PROCEDURE CGOPDE(SBLH: PSB); EXTERN; -18940 PROCEDURE CGLABA(P: PSTB); EXTERN; -18950 PROCEDURE CGLABB(P: PSTB; WHICH: INTEGER); EXTERN; -18960 PROCEDURE CGLABC(P: PSTB; WHICH: INTEGER); EXTERN; -18970 PROCEDURE CGLABD(P: PSTB); EXTERN; -18980 PROCEDURE CGLABE(P: PSTB; LEVEL: DEPTHR; LEB: OFFSETR); EXTERN; +18840 PROCEDURE CGRTE(R: PROUTN); EXTERNAL; +18850 PROCEDURE CGOPAB(OPCOD: POP; RESMODE: MODE); EXTERNAL; +18860 PROCEDURE CGRGID(STB: PSTB); EXTERNAL; +18870 PROCEDURE CGRGN; EXTERNAL; +18880 PROCEDURE CGRGXA(LOCRNG: BOOLEAN); EXTERNAL; +18890 PROCEDURE CGOPCALL; EXTERNAL; +18900 PROCEDURE CGOPDA; EXTERNAL; +18910 PROCEDURE CGOPDC; EXTERNAL; +18920 PROCEDURE CGOPDD; EXTERNAL; +18930 PROCEDURE CGOPDE(SBLH: PSB); EXTERNAL; +18940 PROCEDURE CGLABA(P: PSTB); EXTERNAL; +18950 PROCEDURE CGLABB(P: PSTB; WHICH: INTEGER); EXTERNAL; +18960 PROCEDURE CGLABC(P: PSTB; WHICH: INTEGER); EXTERNAL; +18970 PROCEDURE CGLABD(P: PSTB); EXTERNAL; +18980 PROCEDURE CGLABE(P: PSTB; LEVEL: DEPTHR; LEB: OFFSETR); EXTERNAL; 18990 ()+85*) 19000 (*+84() (*FOR MODE HANDLING ONLY*) -19010 PROCEDURE GENFLAD; EXTERN; -19020 PROCEDURE STARTCHAIN; EXTERN; -19030 PROCEDURE COMBINE; EXTERN; -19040 PROCEDURE LOADTOTAL(SB: PSB); EXTERN; -19050 PROCEDURE CGBALC; EXTERN; -19060 PROCEDURE SETTEXTSTATE; EXTERN; +19010 PROCEDURE GENFLAD; EXTERNAL; +19020 PROCEDURE STARTCHAIN; EXTERNAL; +19030 PROCEDURE COMBINE; EXTERNAL; +19040 PROCEDURE LOADTOTAL(SB: PSB); EXTERNAL; +19050 PROCEDURE CGBALC; EXTERNAL; +19060 PROCEDURE SETTEXTSTATE; EXTERNAL; 19070 ()+84*) 19080 (*+83() (*FOR SEMANTICROUTINE ONLY*) -19090 PROCEDURE CGRTB; EXTERN; -19100 PROCEDURE CGRTD(PROCPTR: LABL); EXTERN; -19110 PROCEDURE CGRTA; EXTERN; -19120 PROCEDURE CGRTC; EXTERN; -19130 PROCEDURE CGLEFTCOLL(SB: PSB); EXTERN; -19140 PROCEDURE CGLEAPGEN(HEAP: BOOLEAN); EXTERN; -19150 PROCEDURE CGLPA(SB: PSB); EXTERN; -19160 PROCEDURE CGLPB(SB: PSB); EXTERN; -19170 PROCEDURE CGLPC(SB: PSB); EXTERN; -19180 PROCEDURE CGLPD; EXTERN; -19190 PROCEDURE CGLPE; EXTERN; -19210 PROCEDURE CGIFA; EXTERN; -19220 PROCEDURE CGINIT; EXTERN; -19230 PROCEDURE CGDEST; EXTERN; -19240 PROCEDURE CGFINCOLL(DEPTH: INTEGER); EXTERN; -19250 PROCEDURE CGACTBNDS(SB:PSB; N: CNTR); EXTERN; -19260 PROCEDURE CGASSIGN; EXTERN; -19270 PROCEDURE CGCALL(SB, SBR: PSB); EXTERN; -19280 PROCEDURE CGCASA; EXTERN; -19290 PROCEDURE CGCASC; EXTERN; -19300 PROCEDURE MARK(L: LABL); EXTERN; -19310 PROCEDURE CGCOLLUNIT; EXTERN; -19312 PROCEDURE CGPARM(VAR PTR:PSTB); EXTERN; -19320 PROCEDURE CGSELECT(OFFST: OFFSETR; M: MODE; SECDRY: INTEGER); EXTERN; -19330 PROCEDURE CGSLICE(SB: PSB; REFED: BOOLEAN); EXTERN; -19340 PROCEDURE CGEND; EXTERN; +19090 PROCEDURE CGRTB; EXTERNAL; +19100 PROCEDURE CGRTD(PROCPTR: LABL); EXTERNAL; +19110 PROCEDURE CGRTA; EXTERNAL; +19120 PROCEDURE CGRTC; EXTERNAL; +19130 PROCEDURE CGLEFTCOLL(SB: PSB); EXTERNAL; +19140 PROCEDURE CGLEAPGEN(HEAP: BOOLEAN); EXTERNAL; +19150 PROCEDURE CGLPA(SB: PSB); EXTERNAL; +19160 PROCEDURE CGLPB(SB: PSB); EXTERNAL; +19170 PROCEDURE CGLPC(SB: PSB); EXTERNAL; +19180 PROCEDURE CGLPD; EXTERNAL; +19190 PROCEDURE CGLPE; EXTERNAL; +19210 PROCEDURE CGIFA; EXTERNAL; +19220 PROCEDURE CGINIT; EXTERNAL; +19230 PROCEDURE CGDEST; EXTERNAL; +19240 PROCEDURE CGFINCOLL(DEPTH: INTEGER); EXTERNAL; +19250 PROCEDURE CGACTBNDS(SB:PSB; N: CNTR); EXTERNAL; +19260 PROCEDURE CGASSIGN; EXTERNAL; +19270 PROCEDURE CGCALL(SB, SBR: PSB); EXTERNAL; +19280 PROCEDURE CGCASA; EXTERNAL; +19290 PROCEDURE CGCASC; EXTERNAL; +19300 PROCEDURE MARK(L: LABL); EXTERNAL; +19310 PROCEDURE CGCOLLUNIT; EXTERNAL; +19312 PROCEDURE CGPARM(VAR PTR:PSTB); EXTERNAL; +19320 PROCEDURE CGSELECT(OFFST: OFFSETR; M: MODE; SECDRY: INTEGER); EXTERNAL; +19330 PROCEDURE CGSLICE(SB: PSB; REFED: BOOLEAN); EXTERNAL; +19340 PROCEDURE CGEND; EXTERNAL; 19350 ()+83*) -19360 FUNCTION PUSHSB (PARAM:MODE) :PSB; EXTERN; -19370 PROCEDURE ASSIGNFLAD; EXTERN; -19380 PROCEDURE POPUNITS; EXTERN; -19390 PROCEDURE GETTOTAL(SB: PSB); EXTERN; -19400 PROCEDURE CGFIRM; EXTERN; -19430 PROCEDURE BRKASCR; EXTERN; -19440 PROCEDURE CGDEPROC (SB:PSB); EXTERN; -19442 PROCEDURE CGFIXRG; EXTERN; -19450 PROCEDURE CGFLADJUMP; EXTERN; -19460 PROCEDURE CGIBAL; EXTERN; -19470 PROCEDURE CGLPG; EXTERN; -19480 PROCEDURE CGOPR(OPCOD: POP; RESMODE: MODE; DYADIC: BOOLEAN); EXTERN; -19482 PROCEDURE CGPASC(SB, SBR: PSB); EXTERN; -19490 PROCEDURE CGRGXB(SB: PSB); EXTERN; -19492 PROCEDURE CGFLINE; EXTERN; +19360 FUNCTION PUSHSB (PARAM:MODE) :PSB; EXTERNAL; +19370 PROCEDURE ASSIGNFLAD; EXTERNAL; +19380 PROCEDURE POPUNITS; EXTERNAL; +19390 PROCEDURE GETTOTAL(SB: PSB); EXTERNAL; +19400 PROCEDURE CGFIRM; EXTERNAL; +19430 PROCEDURE BRKASCR; EXTERNAL; +19440 PROCEDURE CGDEPROC (SB:PSB); EXTERNAL; +19442 PROCEDURE CGFIXRG; EXTERNAL; +19450 PROCEDURE CGFLADJUMP; EXTERNAL; +19460 PROCEDURE CGIBAL; EXTERNAL; +19470 PROCEDURE CGLPG; EXTERNAL; +19480 PROCEDURE CGOPR(OPCOD: POP; RESMODE: MODE; DYADIC: BOOLEAN); EXTERNAL; +19482 PROCEDURE CGPASC(SB, SBR: PSB); EXTERNAL; +19490 PROCEDURE CGRGXB(SB: PSB); EXTERNAL; +19492 PROCEDURE CGFLINE; EXTERNAL; 19500 ()-86*) 19506 (**) 19507 (*-84() (*EXTERNALS FOR MODE HANDLING*) 19508 (**) -19509 FUNCTION TX(M: MODE): XTYPE; EXTERN; -19510 FUNCTION COERCE(M:MODE):MODE; EXTERN; -29500 FUNCTION LENGTHEN(M: MODE; COUNT: INTEGER): MODE; EXTERN; -29502 FUNCTION COFIRM(SRCM,DSTM: MODE): MODE; EXTERN; -29504 FUNCTION COMEEK(SRCM: MODE): MODE; EXTERN; +19509 FUNCTION TX(M: MODE): XTYPE; EXTERNAL; +19510 FUNCTION COERCE(M:MODE):MODE; EXTERNAL; +29500 FUNCTION LENGTHEN(M: MODE; COUNT: INTEGER): MODE; EXTERNAL; +29502 FUNCTION COFIRM(SRCM,DSTM: MODE): MODE; EXTERNAL; +29504 FUNCTION COMEEK(SRCM: MODE): MODE; EXTERNAL; 29510 (*+85() (*FOR SEMANTIC ROUTINES ONLY*) -29530 PROCEDURE GETOPDM(PROCM: MODE); EXTERN; +29530 PROCEDURE GETOPDM(PROCM: MODE); EXTERNAL; 29540 ()+85*) -29550 FUNCTION BALMOIDS(M1, M2: MODE): MODE; EXTERN; -29560 FUNCTION BALANCE(STRENGTH: STRTYP): MODE; EXTERN; -29570 FUNCTION SOFT: MODE; EXTERN; -29580 FUNCTION WEAK: MODE; EXTERN; -29590 PROCEDURE STRONG; EXTERN; -29600 PROCEDURE SETBALFLAG; EXTERN; -29610 PROCEDURE INNERBAL; EXTERN; -29620 PROCEDURE LASTIBAL; EXTERN; -29630 PROCEDURE MEEKLOAD(M: MODE; ERR: INTEGER); EXTERN; -29640 FUNCTION FIRMBAL:MODE; EXTERN; -50010 FUNCTION MEEK: MODE; EXTERN; +29550 FUNCTION BALMOIDS(M1, M2: MODE): MODE; EXTERNAL; +29560 FUNCTION BALANCE(STRENGTH: STRTYP): MODE; EXTERNAL; +29570 FUNCTION SOFT: MODE; EXTERNAL; +29580 FUNCTION WEAK: MODE; EXTERNAL; +29590 PROCEDURE STRONG; EXTERNAL; +29600 PROCEDURE SETBALFLAG; EXTERNAL; +29610 PROCEDURE INNERBAL; EXTERNAL; +29620 PROCEDURE LASTIBAL; EXTERNAL; +29630 PROCEDURE MEEKLOAD(M: MODE; ERR: INTEGER); EXTERNAL; +29640 FUNCTION FIRMBAL:MODE; EXTERNAL; +50010 FUNCTION MEEK: MODE; EXTERNAL; 50012 ()-84*) 50018 (**) 50020 (*-85() (*EXTERNALS FOR SEMANTIC ROUTINES*) 50022 (**) 50030 (*+83() (*FOR SEMANTICROUTINE ONLY*) -50040 FUNCTION MAKESUBSTACK(N: INTEGER; M:MODE):PSB; EXTERN; -50050 FUNCTION ALLOC(N: OFFSETR): OFFSETR; EXTERN; -50052 PROCEDURE DISALLOCIND; EXTERN; -50060 PROCEDURE RANGENT; EXTERN; -50070 PROCEDURE ROUTNNT; EXTERN; -50080 PROCEDURE NECENV(STB: PSTB); EXTERN; -50090 PROCEDURE RANGEXT; EXTERN; -50100 PROCEDURE ROUTNXT; EXTERN; -50110 FUNCTION GETSTB(LEX: PLEX; DEF: DEFTYP; BLK: BLKTYP):PSTB; EXTERN; -50120 PROCEDURE FILLSTB(STB: PSTB); EXTERN; -50130 FUNCTION APPLAB(LEX: PLEX): PSTB; EXTERN; -50140 FUNCTION APPID(LEX: PLEX): PSTB; EXTERN; -50150 PROCEDURE DEFMI(LEX: PLEX); EXTERN; -50160 PROCEDURE DEFPRIO(LEX,PRIO: PLEX); EXTERN; -50170 PROCEDURE DEFLAB(LEX: PLEX); EXTERN; -50180 PROCEDURE PUTIND(STB: PSTB); EXTERN; -50190 PROCEDURE PUTDEN(LEX: PLEX); EXTERN; -50200 PROCEDURE PUTLOOP(LEX: PLEX); EXTERN; -50210 PROCEDURE ELABMI(LEX: PLEX); EXTERN; -50220 PROCEDURE PARMSC; EXTERN; -50230 PROCEDURE OPDSAVE(M: MODE); EXTERN; -50240 PROCEDURE BALOPR; EXTERN; -50250 PROCEDURE LHOPBAL(M: MODE); EXTERN; -50260 PROCEDURE PUTMD(LHM,RHM: MODE); EXTERN; -50270 PROCEDURE OPIDENT(MONADIC: BOOLEAN); EXTERN; -50280 PROCEDURE DEFOPM(OP: PSTB; M: MODE); EXTERN; -50290 PROCEDURE COLLSC(SB: PSB); EXTERN; -50300 PROCEDURE DEFID(LEX: PLEX); EXTERN; -50310 PROCEDURE DEFOP(LEX: PLEX); EXTERN; +50040 FUNCTION MAKESUBSTACK(N: INTEGER; M:MODE):PSB; EXTERNAL; +50050 FUNCTION ALLOC(N: OFFSETR): OFFSETR; EXTERNAL; +50052 PROCEDURE DISALLOCIND; EXTERNAL; +50060 PROCEDURE RANGENT; EXTERNAL; +50070 PROCEDURE ROUTNNT; EXTERNAL; +50080 PROCEDURE NECENV(STB: PSTB); EXTERNAL; +50090 PROCEDURE RANGEXT; EXTERNAL; +50100 PROCEDURE ROUTNXT; EXTERNAL; +50110 FUNCTION GETSTB(LEX: PLEX; DEF: DEFTYP; BLK: BLKTYP):PSTB; EXTERNAL; +50120 PROCEDURE FILLSTB(STB: PSTB); EXTERNAL; +50130 FUNCTION APPLAB(LEX: PLEX): PSTB; EXTERNAL; +50140 FUNCTION APPID(LEX: PLEX): PSTB; EXTERNAL; +50150 PROCEDURE DEFMI(LEX: PLEX); EXTERNAL; +50160 PROCEDURE DEFPRIO(LEX,PRIO: PLEX); EXTERNAL; +50170 PROCEDURE DEFLAB(LEX: PLEX); EXTERNAL; +50180 PROCEDURE PUTIND(STB: PSTB); EXTERNAL; +50190 PROCEDURE PUTDEN(LEX: PLEX); EXTERNAL; +50200 PROCEDURE PUTLOOP(LEX: PLEX); EXTERNAL; +50210 PROCEDURE ELABMI(LEX: PLEX); EXTERNAL; +50220 PROCEDURE PARMSC; EXTERNAL; +50230 PROCEDURE OPDSAVE(M: MODE); EXTERNAL; +50240 PROCEDURE BALOPR; EXTERNAL; +50250 PROCEDURE LHOPBAL(M: MODE); EXTERNAL; +50260 PROCEDURE PUTMD(LHM,RHM: MODE); EXTERNAL; +50270 PROCEDURE OPIDENT(MONADIC: BOOLEAN); EXTERNAL; +50280 PROCEDURE DEFOPM(OP: PSTB; M: MODE); EXTERNAL; +50290 PROCEDURE COLLSC(SB: PSB); EXTERNAL; +50300 PROCEDURE DEFID(LEX: PLEX); EXTERNAL; +50310 PROCEDURE DEFOP(LEX: PLEX); EXTERNAL; 50320 ()+83*) 50322 (*+82() (*FOR PARSER ONLY*) -50324 PROCEDURE INITSR; EXTERN; -50326 FUNCTION APPMI(LEX: PLEX): PSTB; EXTERN; +50324 PROCEDURE INITSR; EXTERNAL; +50326 FUNCTION APPMI(LEX: PLEX): PSTB; EXTERNAL; 50328 ()+82*) 50330 ()-85*) 50332 (**) 71290 (*-83() (*+82() -71292 PROCEDURE SEMANTICROUTINE(SRTN: RTNTYPE); EXTERN; -71294 (*+21() PROCEDURE MONITORSEMANTIC(SRTN: RTNTYPE); EXTERN; ()+21*) +71292 PROCEDURE SEMANTICROUTINE(SRTN: RTNTYPE); EXTERNAL; +71294 (*+21() PROCEDURE MONITORSEMANTIC(SRTN: RTNTYPE); EXTERNAL; ()+21*) 71296 ()+82*) ()-83*) 73918 (**) diff --git a/lang/a68s/aem/a68s1lx.p b/lang/a68s/aem/a68s1lx.p index 6229e3b1ae..9c0e1d00dc 100644 --- a/lang/a68s/aem/a68s1lx.p +++ b/lang/a68s/aem/a68s1lx.p @@ -13,8 +13,8 @@ 12450 (*+05() 12460 PROCEDURE OPENLOADFILE(VAR F: LOADFILE; PARAM: INTEGER; WRITING: BOOLEAN); 12470 VAR S: ARGSTRING; -12480 PROCEDURE NAMEFILE(S: ARGSTRING; SU, SL: INTEGER; VAR F: ANYFILE); EXTERN; -12490 FUNCTION GETARG(VAR S: ARGSTRING; SU, SL: INTEGER; I: INTEGER): BOOLEAN; EXTERN; +12480 PROCEDURE NAMEFILE(S: ARGSTRING; SU, SL: INTEGER; VAR F: ANYFILE); EXTERNAL; +12490 FUNCTION GETARG(VAR S: ARGSTRING; SU, SL: INTEGER; I: INTEGER): BOOLEAN; EXTERNAL; 12500 BEGIN 12510 IF GETARG(S, 50 ,1, PARAM) THEN 12520 NAMEFILE(S, 50, 1, F); @@ -22,15 +22,15 @@ 12540 END; 12550 PROCEDURE OPENTEXT(VAR F: TEXT; PARAM: INTEGER; WRITING: BOOLEAN); 12560 VAR S: ARGSTRING; -12570 PROCEDURE NAMEFILE(S: ARGSTRING; SU, SL: INTEGER; VAR F: ANYFILE); EXTERN; -12580 FUNCTION GETARG(VAR S: ARGSTRING; SU, SL: INTEGER; I: INTEGER): BOOLEAN; EXTERN; +12570 PROCEDURE NAMEFILE(S: ARGSTRING; SU, SL: INTEGER; VAR F: ANYFILE); EXTERNAL; +12580 FUNCTION GETARG(VAR S: ARGSTRING; SU, SL: INTEGER; I: INTEGER): BOOLEAN; EXTERNAL; 12590 BEGIN 12600 IF GETARG(S, 50, 1, PARAM) THEN 12610 NAMEFILE(S, 50, 1, F); 12620 IF WRITING THEN REWRITE(F) ELSE RESET(F); 12630 END; -12632 FUNCTION TIME: INTEGER; EXTERN; -12634 PROCEDURE CTIME(VAR RESULT: TIMSTRING; SU, SL: INTEGER; CLOCK: INTEGER); EXTERN; +12632 FUNCTION TIME: INTEGER; EXTERNAL; +12634 PROCEDURE CTIME(VAR RESULT: TIMSTRING; SU, SL: INTEGER; CLOCK: INTEGER); EXTERNAL; 12640 ()+05*) 12650 (**) 12660 (**) @@ -658,7 +658,7 @@ 18750 BEGIN 18760 (*NEW LEXEME MUST BE CREATED*) 18770 (*CREATE LEXEME JUST BIG ENOUGH*) -18780 ENEW(THIS, LXCOUNT*SZWORD+LEX1SIZE); +18780 GETMEM(THIS, ( LXCOUNT*SZWORD+LEX1SIZE)*SZWORD); 18790 FOR I := 1 TO LXCOUNT + LEX1SIZE DIV SZWORD DO 18800 THIS^.LEXWORDS[I] := LEXWORDS[I]; 18810 THIS^.LINK := HT[HASHVAL]; @@ -1291,7 +1291,7 @@ 24900 (*FIND, OR CREATE, A MODE TABLE ENTRY FOR .REF M*) 24910 VAR CURRENTMD: MODE; 24920 BEGIN -24930 ENEW(CURRENTMD, MODE1SIZE); +24930 GETMEM(CURRENTMD, ( MODE1SIZE)*SZWORD); 24940 WITH CURRENTMD^ DO 24950 BEGIN 24960 MDV := MDVREF; MDPRRMD := M; @@ -1308,7 +1308,7 @@ 25070 BEGIN 25080 IF CNT<=0 THEN FINDROW := M 25090 ELSE BEGIN -25100 ENEW(CURRENTMD, MODE1SIZE); +25100 GETMEM(CURRENTMD, ( MODE1SIZE)*SZWORD); 25110 WITH CURRENTMD^ DO 25120 BEGIN 25130 MDV := MDVROW; MDPRRMD := M; MDV.MDCNT := CNT; @@ -1331,7 +1331,7 @@ 25290 LENGTH, I: INTEGER; 25300 BEGIN 25310 LENGTH := CNT*SZADDR; -25320 ENEW(CURRENTMD, LENGTH+MODE1SIZE); +25320 GETMEM(CURRENTMD, ( LENGTH+MODE1SIZE)*SZWORD); 25330 WITH CURRENTMD^ DO 25340 BEGIN 25350 CASE CP OF @@ -1386,7 +1386,7 @@ 25860 BEGIN 25870 (*+01() LENGTH := SZADDR*CNT; ()+01*) 25880 (*-01() LENGTH := 2*SZADDR*CNT; ()-01*) -25890 ENEW(CURRENTMD, LENGTH+MODE1SIZE); +25890 GETMEM(CURRENTMD, ( LENGTH+MODE1SIZE)*SZWORD); 25900 WITH CURRENTMD^ DO 25910 BEGIN 25920 MDV := MDVSTRUCT; MDSTRSDB := 0; MDV.MDCNT := CNT; diff --git a/lang/a68s/aem/a68s1md.p b/lang/a68s/aem/a68s1md.p index ebcafe7b9d..bfcd960c20 100644 --- a/lang/a68s/aem/a68s1md.p +++ b/lang/a68s/aem/a68s1md.p @@ -74,7 +74,7 @@ 63730 VAR TEMPM: MODE; 63740 I: INTEGER; 63750 BEGIN WITH PASC^ DO BEGIN -63760 ENEW(TEMPM, MDV.MDCNT*SZADDR + MODE1SIZE); +63760 GETMEM(TEMPM, ( MDV.MDCNT*SZADDR + MODE1SIZE)*SZWORD); 63770 FOR I := 1 TO (MDV.MDCNT*SZADDR+MODE1SIZE) DIV SZWORD DO 63780 TEMPM^.MDWORDS[I] := MDWORDS[I]; 63790 WITH TEMPM^ DO diff --git a/lang/a68s/aem/a68s1pa.p b/lang/a68s/aem/a68s1pa.p index a1f9fb630d..423133e9c2 100644 --- a/lang/a68s/aem/a68s1pa.p +++ b/lang/a68s/aem/a68s1pa.p @@ -264,19 +264,19 @@ 95570 ()+82*) 95580 (**) 95590 (**) -95592 PROCEDURE ABORT; EXTERN; +95592 PROCEDURE ABORT; EXTERNAL; 95600 (**) 95610 (*+80() 95620 (**) 95630 (*+01() 95640 FUNCTION PFL: INTEGER; 95650 (*OBTAIN FIELD LENGTH FROM GLOBAL P.FL*) -95660 EXTERN; +95660 EXTERNAL; 95670 (**) 95680 (**) 95690 FUNCTION PFREE: PINTEGER; 95700 (*OBTAIN ADDRESS OF GLOBAL P.FREE*) -95710 EXTERN; +95710 EXTERNAL; 95720 (**) 95730 (**) 95740 (*$T-+) @@ -323,7 +323,7 @@ 96150 END; 96160 (**) 96170 (**) -96190 PROCEDURE ACLOSE(VAR F: FYL); EXTERN; +96190 PROCEDURE ACLOSE(VAR F: FYL); EXTERNAL; 96200 (**) 96210 (**) 96220 FUNCTION INITINIT: INTEGER; @@ -396,7 +396,7 @@ 96890 END; 96900 (**) 96910 (**) -96920 PROCEDURE LOADGO(VAR LGO: LOADFILE); EXTERN; +96920 PROCEDURE LOADGO(VAR LGO: LOADFILE); EXTERNAL; 96930 (**) 96940 (**) 96950 (*$E++) @@ -420,7 +420,7 @@ 97130 ()+80*) 97140 (**) 97150 (*-01() (*-03() (*-04() -97160 FUNCTION GETADDRESS(VAR VARIABLE:INTEGER): ADDRINT; EXTERN; +97160 FUNCTION GETADDRESS(VAR VARIABLE:INTEGER): ADDRINT; EXTERNAL; 97170 (**) 97180 PROCEDURE RESTORE(VAR START,FINISH: INTEGER); 97190 VAR STACKSTART,STACKEND,GLOBALLENGTH,HEAPLENGTH, @@ -442,7 +442,7 @@ 97300 IF NOT EOF(A68INIT) THEN 97310 BEGIN 97320 READ(A68INIT,GLOBALLENGTH,HEAPLENGTH); -97330 ENEW(FRIG.PLEXP, HEAPLENGTH); +97330 GETMEM(FRIG.PLEXP, ( HEAPLENGTH)*SZWORD); 97340 HEAPSTART := FRIG.INT; 97350 FRIG.INT := STACKSTART; 97355 (*-19() diff --git a/lang/a68s/aem/a68s1s1.p b/lang/a68s/aem/a68s1s1.p index 4677c9aed0..4fa062f3d6 100644 --- a/lang/a68s/aem/a68s1s1.p +++ b/lang/a68s/aem/a68s1s1.p @@ -743,7 +743,7 @@ 77120 BEGIN 77130 IF STUSERLEX=NIL THEN (*NO PREVIOUS OPERATION-DEFINITION*) 77140 BEGIN -77150 ENEW(LX, LEX1SIZE); STUSERLEX := LX; (*CREATE DUMMY LEXEME*) +77150 GETMEM(LX, ( LEX1SIZE)*SZWORD); STUSERLEX := LX; (*CREATE DUMMY LEXEME*) 77160 STUSERLEX^.LXV := LXVOPR; STUSERLEX^.LINK := LEX; 77170 END; 77180 FILLSTB(GETSTB(STUSERLEX, [STINIT](*FOR STDIDTY*), STBDEFOP)) diff --git a/lang/a68s/aem/a68scod.p b/lang/a68s/aem/a68scod.p index 59640e0167..8db81cbf99 100644 --- a/lang/a68s/aem/a68scod.p +++ b/lang/a68s/aem/a68scod.p @@ -210,7 +210,7 @@ 62050 ICODE(PNEGI-2 , NGF , WOP , SZREAL ,0 ,SRE, O ,SRE); 62060 OCODE(PNEGI-4 , 'CNEGI ' ,PR1,PR2,PRR); 62070 ICODE(PNOTB , LOC , WOP , 1 ,QNOTB ,ST , O ,ST ); -62080 QCODE(QNOTB , XOR , WOP , SZWORD ,0 ); +62080 QCODE(QNOTB , XOROP , WOP , SZWORD ,0 ); 62090 ICODE(PNOTB-1 , COM , WOP , SZWORD ,0 ,ST , O ,ST ); 62100 ICODE(PNOOP , NOP , NON , 0 ,0 ,ST , O ,ST ); 62110 ICODE(PNOOP-2 , NOP , NON , 0 ,0 ,SRE, O ,SRE); diff --git a/lang/a68s/aem/a68sdec.p b/lang/a68s/aem/a68sdec.p index 56d76eb02b..61ae0b922a 100644 --- a/lang/a68s/aem/a68sdec.p +++ b/lang/a68s/aem/a68sdec.p @@ -187,7 +187,7 @@ 01899 MLF=80; MLI=81; NGF=84; NGI=85; NOP=86; RET=88; ROL=91; 01900 SBF=95; SBI=96; SDE=99; SDF=100; SDL=101; CSET=102; SIL=104; STE=110; STF=111; STI=112; STL=113; STR=114; 01901 TEQ=116; TGE=117; TGT=118; TLE=119; TLT=120; TNE=121; -01902 XOR=123; +01902 XOROP=123; 01903 ZEQ=124; ZER=125; ZGE=126; ZGT=127; ZNE=130; ZRF=132; ZRL=133; 01904 (*+78() BSS=150; CON=151; EEND=152; EXC=154; EXP=155; HOL=156; MES=159; PRO=160; ROM=161; ()+78*) 01907 EOOPNDS=255; @@ -201,7 +201,7 @@ 01915 MLF='MLF';MLI='MLI';NGF='NGF';NGI='NGI';NOP='NOP';RET='RET';ROL='ROL'; 01916 SBF='SBF';SBI='SBI';SDE='SDE';SDF='SDF';SDL='SDL';CSET='SET';SIL='SIL';STE='STE';STR='STR';STF='STF';STI='STI';STL='STL'; 01917 TEQ='TEQ';TGE='TGE';TGT='TGT';TLE='TLE';TLT='TLT';TNE='TNE'; -01918 XOR='XOR'; +01918 XOROP='XOR'; 01919 ZEQ='ZEQ';ZER='ZER';ZGE='ZGE';ZGT='ZGT';ZNE='ZNE';ZRF='ZRF';ZRL='ZRL'; 01920 BSS='BSS';CON='CON';EEND='END';EXC='EXC';EXP='EXP';HOL='HOL';MES='MES';PRO='PRO';ROM='ROM'; 01922 EOOPNDS=' '; @@ -366,6 +366,7 @@ 03260 (**) 03270 (*MISCELLANEOUS*) 03280 (***************) +03281 LONG=LongWord; 03290 (**) 03300 (*+01() A68INT=INTEGER; A68LONG = RECORD V1: INTEGER; V2: INTEGER END; ADDRINT=INTEGER; ()+01*) 03310 (*+02() (*+12() diff --git a/lang/a68s/aem/a68sdum.p b/lang/a68s/aem/a68sdum.p index 6c8f7d40ad..e20dfe6b69 100644 --- a/lang/a68s/aem/a68sdum.p +++ b/lang/a68s/aem/a68sdum.p @@ -29,12 +29,12 @@ 30280 (*+01() 30290 FUNCTION PFL: INTEGER; 30300 (*OBTAIN FIELD LENGTH FROM GLOBAL P.FL*) -30310 EXTERN; +30310 EXTERNAL; 30320 (**) 30330 (**) 30340 FUNCTION PFREE: PINTEGER; 30350 (*OBTAIN ADDRESS OF GLOBAL P.FREE*) -30360 EXTERN; +30360 EXTERNAL; 30370 (**) 30380 (**) 30390 (*$T-+) @@ -134,7 +134,7 @@ 31320 (**) 31330 (**) 31340 (*-01() (*-03() (*-04() -31350 FUNCTION GETADDRESS(VAR VARIABLE:INTEGER): ADDRINT; EXTERN; +31350 FUNCTION GETADDRESS(VAR VARIABLE:INTEGER): ADDRINT; EXTERNAL; 31360 (**) 31370 PROCEDURE RESTORE(VAR START,FINISH: INTEGER); 31380 VAR STACKSTART,STACKEND,GLOBALLENGTH,HEAPLENGTH, @@ -157,7 +157,7 @@ 31480 IF NOT EOF(A68INIT) THEN 31490 BEGIN 31500 READ(A68INIT,GLOBALLENGTH,HEAPLENGTH); -31510 ENEW(FRIG.PLEXP, HEAPLENGTH); +31510 GETMEM(FRIG.PLEXP, ( HEAPLENGTH)*SZWORD); 31520 HEAPSTART := FRIG.INT; 31530 FRIG.INT := STACKSTART; 31535 (*-19() @@ -242,8 +242,8 @@ 31860 (*+05() 31870 OPENLOADFILE(DUMPF, 5, TRUE); 31871 ()+05*) -31880 IF EOF(LGO) THEN ENEW(FRIG.PLEXP,SZREAL) -31890 ELSE ENEW(FRIG.PLEXP,2*SZREAL); +31880 IF EOF(LGO) THEN GETMEM(FRIG.PLEXP, (SZREAL)*SZWORD) +31890 ELSE GETMEM(FRIG.PLEXP, (2*SZREAL)*SZWORD); 31900 NEW(FRIG.POINT); (*-02() DISPOSE(FRIG.POINT); ()-02*) 31910 HEAPSTART := FRIG.INT; 31920 RESTORE(START,FINISH); @@ -252,7 +252,7 @@ 31940 NEW(FRIG.POINT); DISPOSE(FRIG.POINT); 31941 ()-02*) 31943 (*+02() -31945 ENEW(FRIG.POINT,100); (* TO MAKE SURE IT GOES AT THE END *) +31945 GETMEM(FRIG.POINT, (100)*SZWORD); (* TO MAKE SURE IT GOES AT THE END *) 31947 ()+02*) 31950 HEAPLENGTH := FRIG.INT-HEAPSTART; 31960 STACKSTART := GETADDRESS(START); diff --git a/lang/a68s/aem/a68sin.p b/lang/a68s/aem/a68sin.p index e1782bd3f9..7ed3f33bc7 100644 --- a/lang/a68s/aem/a68sin.p +++ b/lang/a68s/aem/a68sin.p @@ -112,7 +112,7 @@ 34110 (*+81() 34120 PROCEDURE LOCNDEX(VAR LEX: PLEX; LXV: LXM); 34130 BEGIN -34140 ENEW(LEX, LEX1SIZE); +34140 GETMEM(LEX, ( LEX1SIZE)*SZWORD); 34150 LEX^.LXV := LXV; 34160 LEX^.LXCOUNT := 0; 34170 END; @@ -142,7 +142,7 @@ 34410 LXV := TLXV; LXTOKEN := TKSYMBOL; 34420 (*+11() S10 := SYMB; LXCOUNT := 1; ()+11*) 34430 (*-11() STASHLEX(SYMB); ()-11*) -34440 ENEW(LEX, LEX1SIZE+LXCOUNT*SZWORD); +34440 GETMEM(LEX, ( LEX1SIZE+LXCOUNT*SZWORD)*SZWORD); 34450 FOR I := 1 TO LEX1SIZE DIV SZWORD + LXCOUNT DO 34460 LEX^.LEXWORDS[I] := LEXWORDS[I]; 34470 END @@ -605,7 +605,7 @@ 39040 END 39050 END; 39060 PROCEDURE MDVAR(VAR V: MODE; MDV: MDM); -39070 BEGIN ENEW(V, MODE1SIZE); V^.MDV := MDV END; +39070 BEGIN GETMEM(V, ( MODE1SIZE)*SZWORD); V^.MDV := MDV END; 39080 PROCEDURE MDIND(TAG: ALFA; M: MODE); 39090 VAR LEX: PLEX; STB: PSTB; 39100 BEGIN @@ -788,13 +788,13 @@ 40850 FOR I := 0 TO HTSIZE DO 40860 HT[I] := NIL; 40870 INPRAGMENT := FALSE; -40880 ENEW(LEXALEPH, LEX1SIZE); WITH LEXALEPH^ DO +40880 GETMEM(LEXALEPH, ( LEX1SIZE)*SZWORD); WITH LEXALEPH^ DO 40890 BEGIN LXV:=LXVTAG; LXCOUNT:=0; LXTOKEN:=TKTAG END; 40900 BOLDWORDS; 40910 ()+81*) 40920 (*+84() INITMODES; ()+84*) 40930 (*+84() -40940 ENEW(LEXONE, SZADDR+SZINT+LEX1SIZE); WITH LEXONE^ DO +40940 GETMEM(LEXONE, ( SZADDR+SZINT+LEX1SIZE)*SZWORD); WITH LEXONE^ DO 40950 BEGIN LXV:=LXVPRDEN; LXCOUNT:= (SZADDR+SZINT) DIV SZWORD; LXTOKEN:=TKDENOT; LXDENRP:=1; LXDENMD:=MDINT END; 40960 ()+84*) 40970 END; diff --git a/lang/a68s/aem/a68sint.p b/lang/a68s/aem/a68sint.p index 340ffe0f0a..d512a30221 100644 --- a/lang/a68s/aem/a68sint.p +++ b/lang/a68s/aem/a68sint.p @@ -1,32 +1,32 @@ 12000 (*+84() -12002 PROCEDURE FIND(VAR SEARCHLIST: MODE; RECURSIVE: BOOLEAN; LENGTH: CNTR); EXTERN; -12010 PROCEDURE FINDPRC(RESMD: MODE; CNT: CNTR; CP:CODEPROC); EXTERN; -12020 PROCEDURE FINSTRUCT(CNT: CNTR); EXTERN; -12030 FUNCTION FINDREF(M: MODE): MODE; EXTERN; -12040 FUNCTION FINDROW(M: MODE; CNT:CNTR): MODE; EXTERN; -12050 PROCEDURE NEWFIELD(LEX: PLEX); EXTERN; -12060 PROCEDURE RECURFIX(VAR BASEM: MODE); EXTERN; +12002 PROCEDURE FIND(VAR SEARCHLIST: MODE; RECURSIVE: BOOLEAN; LENGTH: CNTR); EXTERNAL; +12010 PROCEDURE FINDPRC(RESMD: MODE; CNT: CNTR; CP:CODEPROC); EXTERNAL; +12020 PROCEDURE FINSTRUCT(CNT: CNTR); EXTERNAL; +12030 FUNCTION FINDREF(M: MODE): MODE; EXTERNAL; +12040 FUNCTION FINDROW(M: MODE; CNT:CNTR): MODE; EXTERNAL; +12050 PROCEDURE NEWFIELD(LEX: PLEX); EXTERNAL; +12060 PROCEDURE RECURFIX(VAR BASEM: MODE); EXTERNAL; 12070 ()+84*) -12090 (*+05() PROCEDURE OPENLOADFILE(VAR F: LOADFILE; PARAM: INTEGER; WRITING: BOOLEAN); EXTERN; -12100 PROCEDURE OPENTEXT(VAR F: TEXT; PARAM: INTEGER; WRITING: BOOLEAN); EXTERN; +12090 (*+05() PROCEDURE OPENLOADFILE(VAR F: LOADFILE; PARAM: INTEGER; WRITING: BOOLEAN); EXTERNAL; +12100 PROCEDURE OPENTEXT(VAR F: TEXT; PARAM: INTEGER; WRITING: BOOLEAN); EXTERNAL; 12110 ()+05*) -12120 PROCEDURE CHECKPAGE; EXTERN; -12130 PROCEDURE OUTLST(LINE: INTEGER; VAR BUF: BUFFER; PTR: INTEGER); EXTERN; -12140 PROCEDURE OUTERR(N: INTEGER; LEV: ERRLEV; LEX: PLEX); EXTERN; -12150 PROCEDURE SEMERR(N: INTEGER); EXTERN; -12160 PROCEDURE INITIO; EXTERN; -12170 PROCEDURE SEMERRP(N: INTEGER; LEX: PLEX); EXTERN; -12180 PROCEDURE SUBREST; EXTERN; -12190 PROCEDURE SUBSAVE; EXTERN; -12200 PROCEDURE SCPUSH(M: MODE); EXTERN; -12210 FUNCTION SCPOP: MODE; EXTERN; -12220 FUNCTION SRPOPMD: MODE; EXTERN; -12230 PROCEDURE MODERR(M: MODE; N: INTEGER); EXTERN; -12240 FUNCTION HASHIN: PLEX; EXTERN; +12120 PROCEDURE CHECKPAGE; EXTERNAL; +12130 PROCEDURE OUTLST(LINE: INTEGER; VAR BUF: BUFFER; PTR: INTEGER); EXTERNAL; +12140 PROCEDURE OUTERR(N: INTEGER; LEV: ERRLEV; LEX: PLEX); EXTERNAL; +12150 PROCEDURE SEMERR(N: INTEGER); EXTERNAL; +12160 PROCEDURE INITIO; EXTERNAL; +12170 PROCEDURE SEMERRP(N: INTEGER; LEX: PLEX); EXTERNAL; +12180 PROCEDURE SUBREST; EXTERNAL; +12190 PROCEDURE SUBSAVE; EXTERNAL; +12200 PROCEDURE SCPUSH(M: MODE); EXTERNAL; +12210 FUNCTION SCPOP: MODE; EXTERNAL; +12220 FUNCTION SRPOPMD: MODE; EXTERNAL; +12230 PROCEDURE MODERR(M: MODE; N: INTEGER); EXTERNAL; +12240 FUNCTION HASHIN: PLEX; EXTERNAL; 12260 (*+82() -12270 PROCEDURE INITLX; EXTERN; -12280 PROCEDURE NEXTCH(LEVEL: INDEXTYPE); EXTERN; -12290 PROCEDURE LXERR(N: INTEGER); EXTERN; -12300 PROCEDURE LEXALF(LEX: PLEX; VAR ALF: ALFA); EXTERN; -12310 FUNCTION PARSIN: PLEX; EXTERN; +12270 PROCEDURE INITLX; EXTERNAL; +12280 PROCEDURE NEXTCH(LEVEL: INDEXTYPE); EXTERNAL; +12290 PROCEDURE LXERR(N: INTEGER); EXTERNAL; +12300 PROCEDURE LEXALF(LEX: PLEX; VAR ALF: ALFA); EXTERNAL; +12310 FUNCTION PARSIN: PLEX; EXTERNAL; 12320 ()+82*) diff --git a/lang/a68s/aem/a68spar.p b/lang/a68s/aem/a68spar.p index 15788e8f39..2d9312397b 100644 --- a/lang/a68s/aem/a68spar.p +++ b/lang/a68s/aem/a68spar.p @@ -342,7 +342,7 @@ 53370 PROCEDURE CLASSES; 53380 BEGIN 53390 HTCOPY := HT; -53400 (*+01() ENEW(FRED, SZWORD); (*TO MARK THE PRESENT HEAP LIMIT*) ()+01*) +53400 (*+01() GETMEM(FRED, ( SZWORD)*SZWORD); (*TO MARK THE PRESENT HEAP LIMIT*) ()+01*) 53410 CLASS('CL00 '); CLASS('CL01 '); 53420 CLASS('CL10 '); CLASS('CL11 '); 53430 CLASS('CL12 '); CLASS('CL13 '); diff --git a/lang/a68s/aem/a68ssp.p b/lang/a68s/aem/a68ssp.p index 05a35fcb6a..c02ebe82e8 100644 --- a/lang/a68s/aem/a68ssp.p +++ b/lang/a68s/aem/a68ssp.p @@ -88,7 +88,7 @@ 42790 ELSE 42800 (*-05() BEGIN STVALUE := LX; STDEFTYP := [STCONST] END; ()-05*) 42801 (*+05() BEGIN -42802 ENEW(LEX, LEX1SIZE + LX^.LXCOUNT*SZWORD); +42802 GETMEM(LEX, ( LEX1SIZE + LX^.LXCOUNT*SZWORD)*SZWORD); 42803 FOR I := 1 TO LEX1SIZE DIV SZWORD + LX^.LXCOUNT DO 42804 LEX^.LEXWORDS[I] := LX^.LEXWORDS[I]; 42805 STVALUE := LEX; @@ -108,7 +108,7 @@ 42910 WITH STB^ DO 42920 BEGIN 42930 STMODE := MD; -42940 ENEW(LX, SZADDR+SZINT+LEX1SIZE); WITH LX^ DO +42940 GETMEM(LX, ( SZADDR+SZINT+LEX1SIZE)*SZWORD); WITH LX^ DO 42950 BEGIN LXV := LXVPRDEN; LXCOUNT := (SZADDR+SZINT) DIV SZWORD; 42960 LXTOKEN := TKDENOT; LXDENRP := VALUE; LXDENMD := MD END; 42970 STVALUE := LX @@ -130,7 +130,7 @@ 43050 WITH STB^ DO 43060 BEGIN 43070 STMODE:=MD; -43080 ENEW(LX,SZADDR+SZREAL+LEX1SIZE); +43080 GETMEM(LX, (SZADDR+SZREAL+LEX1SIZE)*SZWORD); 43090 WITH LX^ DO 43100 BEGIN 43110 LXV:=LXVPRDEN; LXCOUNT:=(SZADDR+SZREAL) DIV SZWORD; LXTOKEN:=TKDENOT; diff --git a/lang/a68s/aem/build.py b/lang/a68s/aem/build.py new file mode 100644 index 0000000000..ccc694b287 --- /dev/null +++ b/lang/a68s/aem/build.py @@ -0,0 +1,70 @@ +from build.ab import export, simplerule +from build.pascal import pascalprogram +from lang.a68s.util.build import tailor + +tnos = [ + 101, + 2, + 103, + 104, + 105, + 111, + 122, + 123, + 24, + 125, + 32, + 133, + 41, + 42, + 150, + 151, + 152, + 153, + 154, + 155, + 161, + 112, # 16 bit off + 13, # 32 bit on + 119, # 16 bit with 32 bit pointers off +] + +tailor( + name="a68sdec0.h", + srcs=["./a68sdec.p"], + numbers=tnos + [70, 171, 172, 73, 174, 175, 176, 177, 178, 300], +) + +pascalprogram( + name="init1_out", + srcs=[ + simplerule( + name="init1_out_src", + ins=[ + ".+a68sdec0.h", + "./freepascal.p", + tailor( + name="a68sint_300", + srcs=["./a68sint.p"], + numbers=tnos + [300], + ), + tailor( + name="a68sdum_83_300", + srcs=["./a68sdum.p"], + numbers=tnos + [83, 300], + ), + tailor( + name="a68sin_81_83_184_300", + srcs=["./a68sin.p"], + numbers=tnos + [81, 83, 184, 300], + ), + "./end.p", + ], + outs=["=init1_out.pas"], + commands=["cat $[ins] > $[outs]"], + ) + ], + fpcflags=["-Miso"], +) + +export(name="all", deps=[".+init1_out"]) diff --git a/lang/a68s/aem/dec_main.p b/lang/a68s/aem/dec_main.p index 142ef5f66c..57cc1d7956 100644 --- a/lang/a68s/aem/dec_main.p +++ b/lang/a68s/aem/dec_main.p @@ -3,7 +3,7 @@ BEGIN writeln('dbug value',number) END; -PROCEDURE dump (VAR start,finish : INTEGER); EXTERN; +PROCEDURE dump (VAR start,finish : INTEGER); EXTERNAL; BEGIN reset(A68INIT); diff --git a/lang/a68s/aem/dec_main_s1.p b/lang/a68s/aem/dec_main_s1.p index 806d576c81..66533eea06 100644 --- a/lang/a68s/aem/dec_main_s1.p +++ b/lang/a68s/aem/dec_main_s1.p @@ -8,10 +8,10 @@ BEGIN writeln('long dbug value ',number); END; -PROCEDURE algol68; EXTERN; -PROCEDURE encaps(PROCEDURE p;PROCEDURE q(n:integer));EXTERN; -PROCEDURE trap(err: integer); EXTERN; -PROCEDURE abort; EXTERN; +PROCEDURE algol68; EXTERNAL; +PROCEDURE encaps(PROCEDURE p;PROCEDURE q(n:integer));EXTERNAL; +PROCEDURE trap(err: integer); EXTERNAL; +PROCEDURE abort; EXTERNAL; PROCEDURE traphandler (n:INTEGER); BEGIN diff --git a/lang/a68s/aem/end.p b/lang/a68s/aem/end.p new file mode 100644 index 0000000000..9ad8426238 --- /dev/null +++ b/lang/a68s/aem/end.p @@ -0,0 +1 @@ +end. diff --git a/lang/a68s/aem/freepascal.p b/lang/a68s/aem/freepascal.p new file mode 100644 index 0000000000..502af5a28a --- /dev/null +++ b/lang/a68s/aem/freepascal.p @@ -0,0 +1,7 @@ +(* This is a shim that (hopefully) allows building the extremely custom Pascal +dialect used by the aem compiler using FreePascal. *) + +procedure enew(var ptr: pointer; words: integer); +begin + getmem(ptr, words*szword); +end; diff --git a/lang/a68s/aem/perqce.p b/lang/a68s/aem/perqce.p index f7303a4f8f..af2fb552d4 100644 --- a/lang/a68s/aem/perqce.p +++ b/lang/a68s/aem/perqce.p @@ -757,8 +757,8 @@ 07260 VAR TEMP : PLEX; 07270 S: ARGSTRING; 07280 I,J: INTEGER; -07290 PROCEDURE NAMEFILE(S: ARGSTRING; SU, SL: INTEGER; VAR F: ANYFILE); EXTERN; -07300 FUNCTION GETARG(VAR S: ARGSTRING; SU, SL: INTEGER; I: INTEGER): BOOLEAN; EXTERN; +07290 PROCEDURE NAMEFILE(S: ARGSTRING; SU, SL: INTEGER; VAR F: ANYFILE); EXTERNAL; +07300 FUNCTION GETARG(VAR S: ARGSTRING; SU, SL: INTEGER; I: INTEGER): BOOLEAN; EXTERNAL; 07310 BEGIN 07320 NEXTLABEL := 1; 07330 DATASTATE := ENDDATA;(* ??? *) diff --git a/lang/a68s/cpem/READ_ME b/lang/a68s/cpem/READ_ME index e854daad45..08fe8e5e04 100644 --- a/lang/a68s/cpem/READ_ME +++ b/lang/a68s/cpem/READ_ME @@ -78,7 +78,7 @@ Modifacation to 'argident'. (m_a_i_n) is left in lower case for 'ld'. ---------------------------- revision 2.5 date: 86/07/17 19:25:10; author: dw; state: Exp; lines added/del: 7/1 -This forces the compiler to take note of where an EXTERN procedure is +This forces the compiler to take note of where an EXTERNAL procedure is declared and make it STATICALLY be there. ---------------------------- revision 2.4 diff --git a/lang/a68s/liba68s/associate.p b/lang/a68s/liba68s/associate.p index 97ad73d885..5440999fc6 100644 --- a/lang/a68s/liba68s/associate.p +++ b/lang/a68s/liba68s/associate.p @@ -1,29 +1,29 @@ 70000 #include "rundecs.h" 70010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 70020 (**) -70030 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -70040 PROCEDURE ERRORR(N :INTEGER); EXTERN ; -70050 FUNCTION SAFEACCESS(LOCATION: OBJECTP): UNDRESSP; EXTERN; -70060 PROCEDURE PCINCR (STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT; INCREMENT: INTEGER); EXTERN ; +70030 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +70040 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; +70050 FUNCTION SAFEACCESS(LOCATION: OBJECTP): UNDRESSP; EXTERNAL; +70060 PROCEDURE PCINCR (STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT; INCREMENT: INTEGER); EXTERNAL ; 70070 (**) 70080 (**) 70090 (*+01() (*$X6*) ()+01*) -70100 FUNCTION PROC( PROCEDURE P (*-01() ( COV: OBJECTP ; EFET: FETROOMP ) ()-01*) ): ASPROC ; EXTERN ; +70100 FUNCTION PROC( PROCEDURE P (*-01() ( COV: OBJECTP ; EFET: FETROOMP ) ()-01*) ): ASPROC ; EXTERNAL ; 70110 (*-01() 70120 FUNCTION PROC1( 70130 PROCEDURE P( COV: OBJECTP ; CHARS: GETBUFTYPE ; TERM: TERMSET ; I: INTEGER ; EFET: FETROOMP ) -70140 ): ASPROC ; EXTERN ; -70150 FUNCTION PROC2( PROCEDURE P( COV, STRNG: OBJECTP ; LB, UB: INTEGER ; EFET: FETROOMP ) ): ASPROC ; EXTERN ; -70160 FUNCTION PROC3( PROCEDURE P( COV: OBJECTP ; P, L, C: INTEGER ; EFET: FETROOMP ) ): ASPROC ; EXTERN ; -70170 FUNCTION PROCH( PROCEDURE P( COV: OBJECTP ; L: LFNTYPE ) ): ASPROC ; EXTERN ; +70140 ): ASPROC ; EXTERNAL ; +70150 FUNCTION PROC2( PROCEDURE P( COV, STRNG: OBJECTP ; LB, UB: INTEGER ; EFET: FETROOMP ) ): ASPROC ; EXTERNAL ; +70160 FUNCTION PROC3( PROCEDURE P( COV: OBJECTP ; P, L, C: INTEGER ; EFET: FETROOMP ) ): ASPROC ; EXTERNAL ; +70170 FUNCTION PROCH( PROCEDURE P( COV: OBJECTP ; L: LFNTYPE ) ): ASPROC ; EXTERNAL ; 70180 ()-01*) -70190 PROCEDURE ASSWRSTR(COV, PUTSTRING: OBJECTP; LB, UB: INTEGER; EFET: FETROOMP); EXTERN; +70190 PROCEDURE ASSWRSTR(COV, PUTSTRING: OBJECTP; LB, UB: INTEGER; EFET: FETROOMP); EXTERNAL; 70200 PROCEDURE ASSRDSTR(COV:OBJECTP; CHARS:GETBUFTYPE; TERM(*+01(),TERM1()+01*): TERMSET; I: INTEGER; EFET: FETROOMP); -70210 EXTERN; -70220 PROCEDURE ASSNEWLINE(COV: OBJECTP; EFET: FETROOMP); EXTERN; -70230 PROCEDURE ASSNEWPAGE(COV: OBJECTP; EFET: FETROOMP); EXTERN; -70240 PROCEDURE ASSRESET(COV: OBJECTP; EFET: FETROOMP); EXTERN; -70250 PROCEDURE ASSSET(COV: OBJECTP; P, L, C: INTEGER; EFET: FETROOMP); EXTERN; +70210 EXTERNAL; +70220 PROCEDURE ASSNEWLINE(COV: OBJECTP; EFET: FETROOMP); EXTERNAL; +70230 PROCEDURE ASSNEWPAGE(COV: OBJECTP; EFET: FETROOMP); EXTERNAL; +70240 PROCEDURE ASSRESET(COV: OBJECTP; EFET: FETROOMP); EXTERNAL; +70250 PROCEDURE ASSSET(COV: OBJECTP; P, L, C: INTEGER; EFET: FETROOMP); EXTERNAL; 70260 (**) 70270 (**) 70280 FUNCTION ASSOCIATE(RF,CHARFILE:OBJECTP): INTEGER; diff --git a/lang/a68s/liba68s/bytespack.p b/lang/a68s/liba68s/bytespack.p index d45f459583..f76433b0e7 100644 --- a/lang/a68s/liba68s/bytespack.p +++ b/lang/a68s/liba68s/bytespack.p @@ -2,7 +2,7 @@ 65010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 65020 (**) 65030 (**) -65040 PROCEDURE ERRORR(N :INTEGER); EXTERN ; +65040 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; 65050 (**) 65060 (**) 65070 FUNCTION BYTESPACK(STRING :OBJECTP): A68INT; diff --git a/lang/a68s/liba68s/catpl.p b/lang/a68s/liba68s/catpl.p index a8886b1e08..c397091b67 100644 --- a/lang/a68s/liba68s/catpl.p +++ b/lang/a68s/liba68s/catpl.p @@ -2,9 +2,9 @@ 60010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 60020 (**) 60030 (**) -60040 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -60050 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERN; -60060 FUNCTION SAFEACCESS (LOCATION: OBJECTP) : UNDRESSP; EXTERN; +60040 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +60050 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERNAL; +60060 FUNCTION SAFEACCESS (LOCATION: OBJECTP) : UNDRESSP; EXTERNAL; 60070 (**) 60080 (**) 60090 FUNCTION CATCC(LCH, RCH: CHAR): OBJECTP; diff --git a/lang/a68s/liba68s/cfstr.p b/lang/a68s/liba68s/cfstr.p index 320e7b9d34..d2913f068c 100644 --- a/lang/a68s/liba68s/cfstr.p +++ b/lang/a68s/liba68s/cfstr.p @@ -2,7 +2,7 @@ 61010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 61020 (**) 61030 (**) -61040 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; +61040 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; 61050 (**) 61060 (**) 61070 FUNCTION CFSTR(LEFT, RIGHT: OBJECTP; JOB :INTEGER): INTEGER; diff --git a/lang/a68s/liba68s/collp.p b/lang/a68s/liba68s/collp.p index 5fef1fba4b..8805c27cd2 100644 --- a/lang/a68s/liba68s/collp.p +++ b/lang/a68s/liba68s/collp.p @@ -2,8 +2,8 @@ 20010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 20020 (**) 20030 (**) -20040 PROCEDURE PCINCR (STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT; INCREMENT: INTEGER); EXTERN ; -20050 PROCEDURE GARBAGE(ANOBJECT:OBJECTP); EXTERN; +20040 PROCEDURE PCINCR (STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT; INCREMENT: INTEGER); EXTERNAL ; +20050 PROCEDURE GARBAGE(ANOBJECT:OBJECTP); EXTERNAL; 20060 (**) 20070 (**) 20080 FUNCTION COLLTP(TEMP:NAKEGER; UNIT: OBJECTP; TEMPLATE: DPOINT; OFFSET: OFFSETRANGE): ASNAKED; diff --git a/lang/a68s/liba68s/colltm.p b/lang/a68s/liba68s/colltm.p index 0f70bcd838..2199658b67 100644 --- a/lang/a68s/liba68s/colltm.p +++ b/lang/a68s/liba68s/colltm.p @@ -2,12 +2,12 @@ 20610 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 20620 (**) 20630 (**) -20640 PROCEDURE ERRORR(N :INTEGER); EXTERN; -20650 PROCEDURE GARBAGE(ANOBJECT:OBJECTP); EXTERN; -20660 FUNCTION NEXTEL(I: INTEGER; VAR PDESC1: PDESC): BOOLEAN; EXTERN; -20670 PROCEDURE PCINCRSLICE(MULT: OBJECTP; VAR APDESC: PDESC; INCREMENT: INTEGER); EXTERN; -20680 PROCEDURE PCINCRMULT(ELSPTR: OBJECTP; INCREMENT: INTEGER); EXTERN; -20690 PROCEDURE FORMPDESC(OLDESC: OBJECTP; VAR PDESC1: PDESC); EXTERN; +20640 PROCEDURE ERRORR(N :INTEGER); EXTERNAL; +20650 PROCEDURE GARBAGE(ANOBJECT:OBJECTP); EXTERNAL; +20660 FUNCTION NEXTEL(I: INTEGER; VAR PDESC1: PDESC): BOOLEAN; EXTERNAL; +20670 PROCEDURE PCINCRSLICE(MULT: OBJECTP; VAR APDESC: PDESC; INCREMENT: INTEGER); EXTERNAL; +20680 PROCEDURE PCINCRMULT(ELSPTR: OBJECTP; INCREMENT: INTEGER); EXTERNAL; +20690 PROCEDURE FORMPDESC(OLDESC: OBJECTP; VAR PDESC1: PDESC); EXTERNAL; 20700 (**) 20710 (**) 20720 FUNCTION COLLTM(TEMP: NAKEGER; SOURCEMULT: OBJECTP; OFFSET: OFFSETRANGE): ASNAKED; diff --git a/lang/a68s/liba68s/complex.p b/lang/a68s/liba68s/complex.p index 3598a33d06..fecdf1e628 100644 --- a/lang/a68s/liba68s/complex.p +++ b/lang/a68s/liba68s/complex.p @@ -1,9 +1,9 @@ 22300 #include "rundecs.h" 22310 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 22320 (**) -22330 PROCEDURE ERRORR(N: INTEGER);EXTERN; -22340 PROCEDURE GARBAGE(ANOBJECT: OBJECTP);EXTERN; -22350 FUNCTION SAFEACCESS(LOCATION: OBJECTP): UNDRESSP; EXTERN; +22330 PROCEDURE ERRORR(N: INTEGER);EXTERNAL; +22340 PROCEDURE GARBAGE(ANOBJECT: OBJECTP);EXTERNAL; +22350 FUNCTION SAFEACCESS(LOCATION: OBJECTP): UNDRESSP; EXTERNAL; 22360 (**) 22370 (**) 22380 FUNCTION CRCOMPLEX(REPART,IMAGPART: REAL): OBJECTP; diff --git a/lang/a68s/liba68s/crmult.p b/lang/a68s/liba68s/crmult.p index efccb2cba7..d59bf96a63 100644 --- a/lang/a68s/liba68s/crmult.p +++ b/lang/a68s/liba68s/crmult.p @@ -2,9 +2,9 @@ 26010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 26020 (**) 26030 (**) -26040 PROCEDURE COPYSLICE(ASLICE: OBJECTP); EXTERN; -26050 FUNCTION COPYDESC(ORIGINAL: OBJECTP; NEWSORT: STRUCTYPE): OBJECTP; EXTERN; -26060 PROCEDURE ERRORR(N :INTEGER); EXTERN; +26040 PROCEDURE COPYSLICE(ASLICE: OBJECTP); EXTERNAL; +26050 FUNCTION COPYDESC(ORIGINAL: OBJECTP; NEWSORT: STRUCTYPE): OBJECTP; EXTERNAL; +26060 PROCEDURE ERRORR(N :INTEGER); EXTERNAL; 26070 (**) 26080 (**) 26090 FUNCTION BOUND(ROWCOUNT: INTEGER): OBJECTP; diff --git a/lang/a68s/liba68s/drefm.p b/lang/a68s/liba68s/drefm.p index 024b0bec6b..f6ac7be214 100644 --- a/lang/a68s/liba68s/drefm.p +++ b/lang/a68s/liba68s/drefm.p @@ -1,10 +1,10 @@ 28500 #include "rundecs.h" 28510 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 28520 (**) -28530 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN; -28540 PROCEDURE ERRORR(N :INTEGER); EXTERN; -28550 FUNCTION GETMULT(NEWMULT: OBJECTP): OBJECTP; EXTERN; -28560 FUNCTION COPYDESC(ORIGINAL: OBJECTP; NEWSORT: STRUCTYPE): OBJECTP; EXTERN; +28530 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL; +28540 PROCEDURE ERRORR(N :INTEGER); EXTERNAL; +28550 FUNCTION GETMULT(NEWMULT: OBJECTP): OBJECTP; EXTERNAL; +28560 FUNCTION COPYDESC(ORIGINAL: OBJECTP; NEWSORT: STRUCTYPE): OBJECTP; EXTERNAL; 28570 (**) 28580 (**) 28590 FUNCTION DREFM(REFER: OBJECTP): OBJECTP; diff --git a/lang/a68s/liba68s/drefs.p b/lang/a68s/liba68s/drefs.p index 5578dbd64c..c00a0d46cd 100644 --- a/lang/a68s/liba68s/drefs.p +++ b/lang/a68s/liba68s/drefs.p @@ -1,8 +1,8 @@ 29100 #include "rundecs.h" 29110 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 29120 (**) -29130 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN; -29140 PROCEDURE ERRORR(N :INTEGER); EXTERN; +29130 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL; +29140 PROCEDURE ERRORR(N :INTEGER); EXTERNAL; 29150 (**) 29160 (**) 29170 FUNCTION DREFS(REFER: OBJECTP): A68INT; diff --git a/lang/a68s/liba68s/dummy.p b/lang/a68s/liba68s/dummy.p index 75c1f6e0bc..17b9ae184d 100644 --- a/lang/a68s/liba68s/dummy.p +++ b/lang/a68s/liba68s/dummy.p @@ -1,7 +1,7 @@ 29900 #include "rundecs.h" 29910 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 29920 (**) -29930 PROCEDURE ERRORR(N :INTEGER); EXTERN ; +29930 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; 29940 (**) 29950 (**) 29960 PROCEDURE DUMMY; diff --git a/lang/a68s/liba68s/dumoutch.p b/lang/a68s/liba68s/dumoutch.p index f7ae2a1996..afce852a11 100644 --- a/lang/a68s/liba68s/dumoutch.p +++ b/lang/a68s/liba68s/dumoutch.p @@ -2,7 +2,7 @@ 71510 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 71520 (**) 71530 (*+01() (*$X6*) ()+01*) -71540 PROCEDURE AOPEN( EFET:FETROOMP; DISP:INTEGER; LFN:LFNTYPE; BUF:IPOINT ); EXTERN; +71540 PROCEDURE AOPEN( EFET:FETROOMP; DISP:INTEGER; LFN:LFNTYPE; BUF:IPOINT ); EXTERNAL; 71550 (**) 71560 (**) 71570 PROCEDURE DUMOUTCH(PCOV: OBJECTP; LFN: LFNTYPE); diff --git a/lang/a68s/liba68s/ensure.p b/lang/a68s/liba68s/ensure.p index c8a29a0e34..f8324d05f4 100644 --- a/lang/a68s/liba68s/ensure.p +++ b/lang/a68s/liba68s/ensure.p @@ -1,17 +1,17 @@ 71800 #include "rundecs.h" 71810 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 71820 (**) -71830 PROCEDURE GARBAGE(ANOBJECT: OBJECTP); EXTERN; -71840 PROCEDURE ERRORR(N :INTEGER); EXTERN ; -71850 PROCEDURE CLPASC2(P1,P2: IPOINT; PROC: ASPROC); EXTERN; +71830 PROCEDURE GARBAGE(ANOBJECT: OBJECTP); EXTERNAL; +71840 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; +71850 PROCEDURE CLPASC2(P1,P2: IPOINT; PROC: ASPROC); EXTERNAL; 71860 (**) 71870 (**) 71880 (*+01() (*$X4*) ()+01*) -71890 FUNCTION FUNC68(PB: ASNAKED; RF: OBJECTP): BOOLEAN; EXTERN; +71890 FUNCTION FUNC68(PB: ASNAKED; RF: OBJECTP): BOOLEAN; EXTERNAL; 71900 (**) 71910 (**) -71920 PROCEDURE NEWLINE(RF:OBJECTP); EXTERN; -71930 PROCEDURE NEWPAGE(RF:OBJECTP); EXTERN; +71920 PROCEDURE NEWLINE(RF:OBJECTP); EXTERNAL; +71930 PROCEDURE NEWPAGE(RF:OBJECTP); EXTERNAL; 71940 (**) 71950 (**) 71960 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); diff --git a/lang/a68s/liba68s/errorr.p b/lang/a68s/liba68s/errorr.p index 2fffba8375..d55d2fccde 100644 --- a/lang/a68s/liba68s/errorr.p +++ b/lang/a68s/liba68s/errorr.p @@ -1,16 +1,16 @@ 01000 #include "rundecs.h" 01010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 01020 (**) -01030 PROCEDURE CL68(PB: ASNAKED; RF: OBJECTP); EXTERN; -01040 (*+05() FUNCTION TIME: REAL; EXTERN; ()+05*) -01050 PROCEDURE ABORT; EXTERN; -01060 PROCEDURE ACLOSE(EFET: FETROOMP); EXTERN; -01070 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; +01030 PROCEDURE CL68(PB: ASNAKED; RF: OBJECTP); EXTERNAL; +01040 (*+05() FUNCTION TIME: REAL; EXTERNAL; ()+05*) +01050 PROCEDURE ABORT; EXTERNAL; +01060 PROCEDURE ACLOSE(EFET: FETROOMP); EXTERNAL; +01070 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; 01080 (**) 01090 (**) -01100 FUNCTION CRSTRUCT(TEMPLATE: DPOINT): OBJECTP; EXTERN; -01110 FUNCTION GETPROC(RN: OBJECTP): ASNAKED; EXTERN; -01120 (*+02() FUNCTION GETLINENO :INTEGER; EXTERN; ()+02*) +01100 FUNCTION CRSTRUCT(TEMPLATE: DPOINT): OBJECTP; EXTERNAL; +01110 FUNCTION GETPROC(RN: OBJECTP): ASNAKED; EXTERNAL; +01120 (*+02() FUNCTION GETLINENO :INTEGER; EXTERNAL; ()+02*) 01130 (**) 01140 (**) 01150 PROCEDURE ERRORR(N :INTEGER); FORWARD; diff --git a/lang/a68s/liba68s/fixed.p b/lang/a68s/liba68s/fixed.p index e0c5001b61..87f5daa912 100644 --- a/lang/a68s/liba68s/fixed.p +++ b/lang/a68s/liba68s/fixed.p @@ -3,8 +3,8 @@ 74220 (**) 74230 (**) 74240 FUNCTION SUBFIXED(SIGN, BEFORE, POINT, AFTER : INTEGER; VAR EXP: INTEGER; EXPNEEDED: BOOLEAN; -74250 X: REALTEGER; R: BOOLEAN; VAR S: OBJECTP; START: INTEGER): BOOLEAN; EXTERN; -74260 PROCEDURE ERRORFILL(VAR S: OBJECTP; LENGTH: INTEGER); EXTERN; +74250 X: REALTEGER; R: BOOLEAN; VAR S: OBJECTP; START: INTEGER): BOOLEAN; EXTERNAL; +74260 PROCEDURE ERRORFILL(VAR S: OBJECTP; LENGTH: INTEGER); EXTERNAL; 74270 (**) 74280 (**) 74290 FUNCTION FIXED(XMODE: INTEGER; VAL: REALTEGER; WIDTH, AFTER: INTEGER): OBJECTP; diff --git a/lang/a68s/liba68s/float.p b/lang/a68s/liba68s/float.p index 84f45d8370..4ac4547e59 100644 --- a/lang/a68s/liba68s/float.p +++ b/lang/a68s/liba68s/float.p @@ -2,10 +2,10 @@ 74710 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 74720 (**) 74730 (**) -74740 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERN ; +74740 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERNAL ; 74750 FUNCTION SUBFIXED(SIGN, BEFORE, POINT, AFTER : INTEGER; VAR EXP: INTEGER; EXPNEEDED: BOOLEAN; -74760 X: REALTEGER; R: BOOLEAN; VAR S: OBJECTP; START: INTEGER): BOOLEAN; EXTERN; -74770 PROCEDURE ERRORFILL(VAR S: OBJECTP; LENGTH: INTEGER); EXTERN; +74760 X: REALTEGER; R: BOOLEAN; VAR S: OBJECTP; START: INTEGER): BOOLEAN; EXTERNAL; +74770 PROCEDURE ERRORFILL(VAR S: OBJECTP; LENGTH: INTEGER); EXTERNAL; 74780 (**) 74790 (**) 74800 FUNCTION FLOAT(XMODE: INTEGER; VAL: REALTEGER; WIDTH, AFTER, EXP: INTEGER): OBJECTP; diff --git a/lang/a68s/liba68s/genrec.p b/lang/a68s/liba68s/genrec.p index aad14c304d..deda99fc37 100644 --- a/lang/a68s/liba68s/genrec.p +++ b/lang/a68s/liba68s/genrec.p @@ -2,10 +2,10 @@ 30110 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 30120 (**) 30130 (**) -30140 FUNCTION CRSTRUCT(TEMPLATE: DPOINT): OBJECTP; EXTERN; -30150 FUNCTION HEAPMUL(NEWMULT: OBJECTP; TEMPLATE: DPOINT): OBJECTP; EXTERN; -30160 PROCEDURE COPYSLICE(ASLICE: OBJECTP); EXTERN; -30170 FUNCTION COPYDESC(ORIGINAL: OBJECTP; NEWSORT: STRUCTYPE): OBJECTP; EXTERN; +30140 FUNCTION CRSTRUCT(TEMPLATE: DPOINT): OBJECTP; EXTERNAL; +30150 FUNCTION HEAPMUL(NEWMULT: OBJECTP; TEMPLATE: DPOINT): OBJECTP; EXTERNAL; +30160 PROCEDURE COPYSLICE(ASLICE: OBJECTP); EXTERNAL; +30170 FUNCTION COPYDESC(ORIGINAL: OBJECTP; NEWSORT: STRUCTYPE): OBJECTP; EXTERNAL; 30180 (**) 30190 (**) 30200 FUNCTION RECCMN (THEREC: OBJECTP; LOCRG: DEPTHRANGE): OBJECTP; diff --git a/lang/a68s/liba68s/getmult.p b/lang/a68s/liba68s/getmult.p index db2f396e51..8ef4164e39 100644 --- a/lang/a68s/liba68s/getmult.p +++ b/lang/a68s/liba68s/getmult.p @@ -1,7 +1,7 @@ 31300 #include "rundecs.h" 31310 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 31320 (**) -31330 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; +31330 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; 31340 (**) 31350 (**) 31360 FUNCTION GETMULT(NEWMULT: OBJECTP): OBJECTP; diff --git a/lang/a68s/liba68s/getout.p b/lang/a68s/liba68s/getout.p index aca36d41ee..2b6c860505 100644 --- a/lang/a68s/liba68s/getout.p +++ b/lang/a68s/liba68s/getout.p @@ -2,8 +2,8 @@ 31810 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 31820 (**) 31830 (**) -31840 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN; -31850 PROCEDURE RANGEXT; EXTERN; +31840 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL; +31850 PROCEDURE RANGEXT; EXTERNAL; 31860 (**) 31870 (**) 31880 PROCEDURE DORECGEN; diff --git a/lang/a68s/liba68s/gett.p b/lang/a68s/liba68s/gett.p index 5dd61eed41..c3ccee092d 100644 --- a/lang/a68s/liba68s/gett.p +++ b/lang/a68s/liba68s/gett.p @@ -1,24 +1,24 @@ 75200 #include "rundecs.h" 75210 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 75220 (**) -75230 PROCEDURE CL68(PB: ASNAKED; RF: OBJECTP); EXTERN ; -75240 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -75250 PROCEDURE FORMPDESC(OLDESC: OBJECTP; VAR PDESC1: PDESC); EXTERN ; -75260 FUNCTION NEXTEL(I: INTEGER; VAR PDESC1: PDESC): BOOLEAN; EXTERN ; -75270 PROCEDURE ERRORR(N :INTEGER); EXTERN ; -75280 FUNCTION SAFEACCESS(LOCATION: OBJECTP): UNDRESSP; EXTERN; -75290 PROCEDURE TESTCC (TARGET: OBJECTP); EXTERN ; -75300 PROCEDURE TESTSS (REFSTRUCT: OBJECTP); EXTERN ; -75310 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERN ; -75320 FUNCTION GETPROC(RN: OBJECTP): ASNAKED; EXTERN ; -75330 PROCEDURE CLPASC1(P1: IPOINT; PROC: ASPROC); EXTERN; +75230 PROCEDURE CL68(PB: ASNAKED; RF: OBJECTP); EXTERNAL ; +75240 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +75250 PROCEDURE FORMPDESC(OLDESC: OBJECTP; VAR PDESC1: PDESC); EXTERNAL ; +75260 FUNCTION NEXTEL(I: INTEGER; VAR PDESC1: PDESC): BOOLEAN; EXTERNAL ; +75270 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; +75280 FUNCTION SAFEACCESS(LOCATION: OBJECTP): UNDRESSP; EXTERNAL; +75290 PROCEDURE TESTCC (TARGET: OBJECTP); EXTERNAL ; +75300 PROCEDURE TESTSS (REFSTRUCT: OBJECTP); EXTERNAL ; +75310 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERNAL ; +75320 FUNCTION GETPROC(RN: OBJECTP): ASNAKED; EXTERNAL ; +75330 PROCEDURE CLPASC1(P1: IPOINT; PROC: ASPROC); EXTERNAL; 75340 PROCEDURE CLRDSTR(PCOV: OBJECTP; VAR CHARS: GETBUFTYPE; TERM (*+01() , TERM1 ()+01*) : TERMSET; -75350 VAR I: INTEGER; BOOK: FETROOMP; PROC: ASPROC); EXTERN; -75360 FUNCTION FUNC68(PB: ASNAKED; RF: OBJECTP): BOOLEAN; EXTERN; -75370 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERN; -75380 PROCEDURE ENSSTATE(RF:OBJECTP;VAR F:OBJECTP;READING:STATUSSET); EXTERN; -75390 FUNCTION ENSPAGE(RF:OBJECTP;VAR F:OBJECTP):BOOLEAN; EXTERN; -75400 FUNCTION ENSLINE(RF:OBJECTP;VAR F:OBJECTP):BOOLEAN; EXTERN; +75350 VAR I: INTEGER; BOOK: FETROOMP; PROC: ASPROC); EXTERNAL; +75360 FUNCTION FUNC68(PB: ASNAKED; RF: OBJECTP): BOOLEAN; EXTERNAL; +75370 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERNAL; +75380 PROCEDURE ENSSTATE(RF:OBJECTP;VAR F:OBJECTP;READING:STATUSSET); EXTERNAL; +75390 FUNCTION ENSPAGE(RF:OBJECTP;VAR F:OBJECTP):BOOLEAN; EXTERNAL; +75400 FUNCTION ENSLINE(RF:OBJECTP;VAR F:OBJECTP):BOOLEAN; EXTERNAL; 75410 (**) 75420 (**) 75430 PROCEDURE GETT(RF: OBJECTP); diff --git a/lang/a68s/liba68s/global.p b/lang/a68s/liba68s/global.p index c7bacca51e..3015aaf63c 100644 --- a/lang/a68s/liba68s/global.p +++ b/lang/a68s/liba68s/global.p @@ -2,23 +2,23 @@ 08010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 08020 (**) 08030 (*+01() (*$X6*) ()+01*) -08040 PROCEDURE STANDINC(PCOV: OBJECTP; LFN: LFNTYPE); EXTERN; -08050 PROCEDURE STANDOUT(PCOV: OBJECTP; LFN: LFNTYPE); EXTERN; -08060 PROCEDURE STANDBAC(PCOV: OBJECTP; LFN: LFNTYPE); EXTERN; +08040 PROCEDURE STANDINC(PCOV: OBJECTP; LFN: LFNTYPE); EXTERNAL; +08050 PROCEDURE STANDOUT(PCOV: OBJECTP; LFN: LFNTYPE); EXTERNAL; +08060 PROCEDURE STANDBAC(PCOV: OBJECTP; LFN: LFNTYPE); EXTERNAL; 08070 (*+01() (*$X4*) ()+01*) -08080 PROCEDURE CL68(PB: ASNAKED; RF: OBJECTP); EXTERN; -08090 PROCEDURE ERRORR(N: INTEGER); EXTERN; -08100 (*+05() FUNCTION TIME: REAL; EXTERN; ()+05*) -08110 PROCEDURE CALLPASC ; EXTERN; -08120 PROCEDURE ABORT; EXTERN; +08080 PROCEDURE CL68(PB: ASNAKED; RF: OBJECTP); EXTERNAL; +08090 PROCEDURE ERRORR(N: INTEGER); EXTERNAL; +08100 (*+05() FUNCTION TIME: REAL; EXTERNAL; ()+05*) +08110 PROCEDURE CALLPASC ; EXTERNAL; +08120 PROCEDURE ABORT; EXTERNAL; 08130 (*+02() -08140 PROCEDURE ACLS(FIL: FETROOMP); EXTERN; -08150 PROCEDURE STOPEN (VAR PF: FYL; VAR RF: OBJECTP; LFN: LFNTYPE; PROCEDURE CH(COV:OBJECTP;L:LFNTYPE) ); EXTERN; +08140 PROCEDURE ACLS(FIL: FETROOMP); EXTERNAL; +08150 PROCEDURE STOPEN (VAR PF: FYL; VAR RF: OBJECTP; LFN: LFNTYPE; PROCEDURE CH(COV:OBJECTP;L:LFNTYPE) ); EXTERNAL; 08160 ()+02*) 08170 (*+01() (*$X6*) ()+01*) -08180 FUNCTION PROC(PROCEDURE P):ASPROC;EXTERN; +08180 FUNCTION PROC(PROCEDURE P):ASPROC;EXTERNAL; 08190 (*-01() -08200 FUNCTION PROCH( PROCEDURE P( COV: OBJECTP ; L: LFNTYPE ) ): ASPROC ; EXTERN ; +08200 FUNCTION PROCH( PROCEDURE P( COV: OBJECTP ; L: LFNTYPE ) ): ASPROC ; EXTERNAL ; 08210 ()-01*) 08220 (*+01() (*$X4*) ()+01*) 08230 (**) @@ -394,12 +394,12 @@ 11930 TEMP1: REALTEGER; 11940 I: INTEGER; 11950 EFET: INTEGER; -11960 (*+01() PROCEDURE ESTART(CURR: IPOINT); EXTERN; ()+01*) -11970 (*+02() PROCEDURE ESTART_(VAR INF,OUTF : TEXT); EXTERN; -11980 FUNCTION MAXR REAL; EXTERN; ()+02*) +11960 (*+01() PROCEDURE ESTART(CURR: IPOINT); EXTERNAL; ()+01*) +11970 (*+02() PROCEDURE ESTART_(VAR INF,OUTF : TEXT); EXTERNAL; +11980 FUNCTION MAXR REAL; EXTERNAL; ()+02*) 11990 (*-02() PROCEDURE STOPEN( 12000 VAR PF: FYL; VAR RF: OBJECTP; LFN: LFNTYPE; PROCEDURE CH (*-01() ( COV: OBJECTP ; L: LFNTYPE ) ()-01*) -12010 ); EXTERN; ()-02*) +12010 ); EXTERNAL; ()-02*) 12020 BEGIN 12030 (*+01() CPUCLOCK := -CLOCK; ()+01*) 12040 (*-02() CURR := STATIC(ME)+FIRSTIBOFFSET; @@ -534,8 +534,8 @@ 13330 (**) 13340 (**) 13350 PROCEDURE STOP68; -13360 (*+01() PROCEDURE PEND(EFET: INTEGER); EXTERN; ()+01*) -13370 (*+02() PROCEDURE ESTOP_; EXTERN; ()+02*) +13360 (*+01() PROCEDURE PEND(EFET: INTEGER); EXTERNAL; ()+01*) +13370 (*+02() PROCEDURE ESTOP_; EXTERNAL; ()+02*) 13380 BEGIN 13390 (*+05() FLSBUF(STOUT^.PVALUE^.PCOVER^.BOOK^.XFILE, CHR(10)); ()+05*) 13400 WRITELN((*-05()OUTPUT()-05*)(*+05()ERROR()+05*)); diff --git a/lang/a68s/liba68s/gtot.p b/lang/a68s/liba68s/gtot.p index 82bee26a4b..315144a2c0 100644 --- a/lang/a68s/liba68s/gtot.p +++ b/lang/a68s/liba68s/gtot.p @@ -2,8 +2,8 @@ 33710 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 33720 (**) 33730 (**) -33740 PROCEDURE GARBAGE(ANOBJECT:OBJECTP); EXTERN; -33750 FUNCTION DRESSN (CONTENTS: UNDRESSP; TEMPLATE: DPOINT): OBJECTP; EXTERN ; +33740 PROCEDURE GARBAGE(ANOBJECT:OBJECTP); EXTERNAL; +33750 FUNCTION DRESSN (CONTENTS: UNDRESSP; TEMPLATE: DPOINT): OBJECTP; EXTERNAL ; 33760 (**) 33770 (**) 33780 (*-01() (*-05() diff --git a/lang/a68s/liba68s/gtotref.p b/lang/a68s/liba68s/gtotref.p index 3049f346f5..cc7147be3e 100644 --- a/lang/a68s/liba68s/gtotref.p +++ b/lang/a68s/liba68s/gtotref.p @@ -2,8 +2,8 @@ 34610 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 34620 (**) 34630 (**) -34640 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -34650 PROCEDURE ERRORR(N :INTEGER); EXTERN ; +34640 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +34650 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; 34660 (**) 34670 (**) 34680 FUNCTION GTOTREF (NAK: NAKED; TEMPLATE: DPOINT): OBJECTP; diff --git a/lang/a68s/liba68s/gvasstx.p b/lang/a68s/liba68s/gvasstx.p index 6b464142a8..cac67f06fc 100644 --- a/lang/a68s/liba68s/gvasstx.p +++ b/lang/a68s/liba68s/gvasstx.p @@ -2,7 +2,7 @@ 35110 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 35120 (**) 35130 (**) -35140 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; +35140 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; 35150 (**) 35160 (**) 35170 PROCEDURE GVASSTX(SOURCE: OBJECTP; DEST: UNDRESSP); diff --git a/lang/a68s/liba68s/gvscope.p b/lang/a68s/liba68s/gvscope.p index 3a9f652eb5..396ff2937a 100644 --- a/lang/a68s/liba68s/gvscope.p +++ b/lang/a68s/liba68s/gvscope.p @@ -2,8 +2,8 @@ 35410 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 35420 (**) 35430 (**) -35440 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN; -35450 PROCEDURE ERRORR(N :INTEGER); EXTERN; +35440 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL; +35450 PROCEDURE ERRORR(N :INTEGER); EXTERNAL; 35460 (**) 35470 (**) 35480 FUNCTION GLDVAR (LOCRG: DEPTHRANGE; PTR: UNDRESSP; IBPT: IPOINT): OBJECTP; diff --git a/lang/a68s/liba68s/heapmul.p b/lang/a68s/liba68s/heapmul.p index 606adeb98f..7859428f96 100644 --- a/lang/a68s/liba68s/heapmul.p +++ b/lang/a68s/liba68s/heapmul.p @@ -2,7 +2,7 @@ 36010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 36020 (**) 36030 (**) -36040 FUNCTION CRMULT(NEWMULT: OBJECTP; TEMPLATE: DPOINT): OBJECTP; EXTERN; +36040 FUNCTION CRMULT(NEWMULT: OBJECTP; TEMPLATE: DPOINT): OBJECTP; EXTERNAL; 36050 (**) 36060 (**) 36070 FUNCTION HEAPMUL(NEWMULT: OBJECTP; TEMPLATE: DPOINT): OBJECTP; diff --git a/lang/a68s/liba68s/heapstr.p b/lang/a68s/liba68s/heapstr.p index 88e3e12f7e..1e07ae8cae 100644 --- a/lang/a68s/liba68s/heapstr.p +++ b/lang/a68s/liba68s/heapstr.p @@ -2,7 +2,7 @@ 36410 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 36420 (**) 36430 (**) -36440 FUNCTION CRSTRUCT(TEMPLATE: DPOINT): OBJECTP; EXTERN; +36440 FUNCTION CRSTRUCT(TEMPLATE: DPOINT): OBJECTP; EXTERNAL; 36450 (**) 36460 (**) 36470 FUNCTION HEAPSTR(TEMPLATE: DPOINT): OBJECTP; diff --git a/lang/a68s/liba68s/is.p b/lang/a68s/liba68s/is.p index 2674f18ae3..ab8750089f 100644 --- a/lang/a68s/liba68s/is.p +++ b/lang/a68s/liba68s/is.p @@ -2,7 +2,7 @@ 37210 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 37220 (**) 37230 (**) -37240 FUNCTION RELSUP(REF: OBJECTP): UNDRESSP; EXTERN; +37240 FUNCTION RELSUP(REF: OBJECTP): UNDRESSP; EXTERNAL; 37250 (**) 37260 (**) 37270 FUNCTION IS(LEFT, RIGHT: OBJECTP): INTEGER; diff --git a/lang/a68s/liba68s/mulis.p b/lang/a68s/liba68s/mulis.p index afae875cf1..c723a2dfc9 100644 --- a/lang/a68s/liba68s/mulis.p +++ b/lang/a68s/liba68s/mulis.p @@ -2,9 +2,9 @@ 61510 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 61520 (**) 61530 (**) -61540 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -61550 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERN; -61560 PROCEDURE ERRORR(N :INTEGER); EXTERN ; +61540 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +61550 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERNAL; +61560 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; 61570 (**) 61580 (**) 61590 FUNCTION MULCI(CH: CHAR; N: INTEGER): OBJECTP; diff --git a/lang/a68s/liba68s/nassp.p b/lang/a68s/liba68s/nassp.p index 5a2a0dbbfc..13fd52ca3e 100644 --- a/lang/a68s/liba68s/nassp.p +++ b/lang/a68s/liba68s/nassp.p @@ -1,15 +1,15 @@ 40000 #include "rundecs.h" 40010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 40020 (**) -40030 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN; -40040 PROCEDURE ERRORR(N :INTEGER); EXTERN; -40050 FUNCTION STRUCTSCOPE(STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT):DEPTHRANGE; EXTERN; -40060 PROCEDURE UNDRESSN (COLLECTOR, STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT; SOURCEP: OBJECTP); EXTERN ; -40070 PROCEDURE NASSTCMN(ANOBJECT: OBJECTP); EXTERN; +40030 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL; +40040 PROCEDURE ERRORR(N :INTEGER); EXTERNAL; +40050 FUNCTION STRUCTSCOPE(STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT):DEPTHRANGE; EXTERNAL; +40060 PROCEDURE UNDRESSN (COLLECTOR, STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT; SOURCEP: OBJECTP); EXTERNAL ; +40070 PROCEDURE NASSTCMN(ANOBJECT: OBJECTP); EXTERNAL; 40080 (**) 40090 (**) 40100 FUNCTION NASSTP(TEMP: NAKEGER; SOURCE: OBJECTP; TEMPLATE: DPOINT): ASNAKED; -40110 (*+01() EXTERN ; ()+01*) +40110 (*+01() EXTERNAL ; ()+01*) 40120 (*PASSIGNNT+3*) 40130 (*-01() 40140 BEGIN diff --git a/lang/a68s/liba68s/nassts.p b/lang/a68s/liba68s/nassts.p index 079aacdfed..e3d7a6ffed 100644 --- a/lang/a68s/liba68s/nassts.p +++ b/lang/a68s/liba68s/nassts.p @@ -1,10 +1,10 @@ 38900 #include "rundecs.h" 38910 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 38920 (**) -38930 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN; -38940 PROCEDURE ERRORR(N :INTEGER); EXTERN; -38950 PROCEDURE TESTCC(TARGET: OBJECTP); EXTERN ; -38960 PROCEDURE TESTSS (REFSTRUCT: OBJECTP); EXTERN ; +38930 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL; +38940 PROCEDURE ERRORR(N :INTEGER); EXTERNAL; +38950 PROCEDURE TESTCC(TARGET: OBJECTP); EXTERNAL ; +38960 PROCEDURE TESTSS (REFSTRUCT: OBJECTP); EXTERNAL ; 38970 (**) 38980 (**) 38990 PROCEDURE NASSTCMN(ANOBJECT: OBJECTP); @@ -58,7 +58,7 @@ 39470 (**) 39480 (**) 39490 FUNCTION NASSTPT(TEMP: NAKEGER; SOURCE: OBJECTP): ASNAKED; -39500 (*+01() EXTERN ; ()+01*) +39500 (*+01() EXTERNAL ; ()+01*) 39510 (*-01() 39520 (*PASSIGNNT+2*) 39530 VAR DEST: UNDRESSP; diff --git a/lang/a68s/liba68s/newline.p b/lang/a68s/liba68s/newline.p index cd23c354cf..77285c9116 100644 --- a/lang/a68s/liba68s/newline.p +++ b/lang/a68s/liba68s/newline.p @@ -1,13 +1,13 @@ 79200 #include "rundecs.h" 79210 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 79220 (**) -79230 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -79240 PROCEDURE ERRORR(N :INTEGER); EXTERN ; -79250 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERN; -79260 FUNCTION ENSPAGE(RF:OBJECTP;VAR F:OBJECTP):BOOLEAN; EXTERN; -79270 FUNCTION ENSPHYSICALFILE(RF:OBJECTP;VAR F:OBJECTP):BOOLEAN; EXTERN; +79230 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +79240 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; +79250 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERNAL; +79260 FUNCTION ENSPAGE(RF:OBJECTP;VAR F:OBJECTP):BOOLEAN; EXTERNAL; +79270 FUNCTION ENSPHYSICALFILE(RF:OBJECTP;VAR F:OBJECTP):BOOLEAN; EXTERNAL; 79280 (**) -79290 PROCEDURE CLPASC2(P1,P2: IPOINT; PROC: ASPROC); EXTERN; +79290 PROCEDURE CLPASC2(P1,P2: IPOINT; PROC: ASPROC); EXTERNAL; 79300 (**) 79310 (**) 79320 PROCEDURE ERRORSTATE(F:OBJECTP); diff --git a/lang/a68s/liba68s/onend.p b/lang/a68s/liba68s/onend.p index f6c5e99bf2..7ec8d11cbd 100644 --- a/lang/a68s/liba68s/onend.p +++ b/lang/a68s/liba68s/onend.p @@ -1,9 +1,9 @@ 79900 #include "rundecs.h" 79910 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 79920 (**) -79930 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -79940 PROCEDURE NASSTCMN(ANOBJECT:OBJECTP); EXTERN; -79950 FUNCTION SCPNTPT(TEMP: NAKEGER; SOURCE: OBJECTP): ASNAKED; EXTERN ; +79930 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +79940 PROCEDURE NASSTCMN(ANOBJECT:OBJECTP); EXTERNAL; +79950 FUNCTION SCPNTPT(TEMP: NAKEGER; SOURCE: OBJECTP): ASNAKED; EXTERNAL ; 79960 (**) 79970 (**) 79980 PROCEDURE ONLINEEND(RF, ROUTINE: OBJECTP); diff --git a/lang/a68s/liba68s/openclose.p b/lang/a68s/liba68s/openclose.p index c4ada17f31..8944682601 100644 --- a/lang/a68s/liba68s/openclose.p +++ b/lang/a68s/liba68s/openclose.p @@ -1,27 +1,27 @@ 81000 #include "rundecs.h" 81010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 81020 (**) -81030 PROCEDURE ACLOSE(EFET: FETROOMP); EXTERN; -81040 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -81050 PROCEDURE ERRORR(N :INTEGER); EXTERN ; -81060 FUNCTION SAFEACCESS(LOCATION: OBJECTP): UNDRESSP; EXTERN; -81070 PROCEDURE PCINCR (STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT; INCREMENT: INTEGER); EXTERN ; -81080 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERN ; -81090 PROCEDURE SETWRITEMOOD(PCOV: OBJECTP); EXTERN; -81100 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERN; +81030 PROCEDURE ACLOSE(EFET: FETROOMP); EXTERNAL; +81040 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +81050 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; +81060 FUNCTION SAFEACCESS(LOCATION: OBJECTP): UNDRESSP; EXTERNAL; +81070 PROCEDURE PCINCR (STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT; INCREMENT: INTEGER); EXTERNAL ; +81080 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERNAL ; +81090 PROCEDURE SETWRITEMOOD(PCOV: OBJECTP); EXTERNAL; +81100 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERNAL; 81110 (*+02() -81120 PROCEDURE AOPN(FIL: FETROOMP); EXTERN; -81130 PROCEDURE ACRE(FIL: FETROOMP); EXTERN; +81120 PROCEDURE AOPN(FIL: FETROOMP); EXTERNAL; +81130 PROCEDURE ACRE(FIL: FETROOMP); EXTERNAL; 81140 ()+02*) 81150 (**) 81160 (*+01() (*$X6*) ()+01*) 81170 PROCEDURE OPENCOVER( 81180 PFET: FETROOMP; VAR PCOV: OBJECTP; LFN: LFNTYPE; PROCEDURE CH (*-01() ( COV: OBJECTP; L: LFNTYPE) ()-01*) -81190 ); EXTERN; +81190 ); EXTERNAL; 81200 (*+01() (*$X4*) ()+01*) 81210 (**) 81220 (**) -81230 FUNCTION FUNC68(PB: ASNAKED; RF: OBJECTP): BOOLEAN; EXTERN; +81230 FUNCTION FUNC68(PB: ASNAKED; RF: OBJECTP): BOOLEAN; EXTERNAL; 81240 (**) 81250 (**) 81260 (*+02() @@ -42,7 +42,7 @@ 81410 ()+02*) 81420 (*+05() 81430 PROCEDURE AOPEN( VAR FIL: FYL; DISP:INTEGER; LFN:LFNTYPE; BUF:IPOINT ); -81440 PROCEDURE NAMEFILE(CHARVEC: VECCHARS; SU, SL: INTEGER; VAR FIL: ANYFILE); EXTERN; +81440 PROCEDURE NAMEFILE(CHARVEC: VECCHARS; SU, SL: INTEGER; VAR FIL: ANYFILE); EXTERNAL; 81450 BEGIN 81460 IF LFN <> NIL THEN 81470 WITH LFN^ DO NAMEFILE(CHARVEC, STRLENGTH, 1, FIL); diff --git a/lang/a68s/liba68s/pcollmul.p b/lang/a68s/liba68s/pcollmul.p index 6f1ed6d05f..9d7e0ffd6f 100644 --- a/lang/a68s/liba68s/pcollmul.p +++ b/lang/a68s/liba68s/pcollmul.p @@ -2,7 +2,7 @@ 40810 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 40820 (**) 40830 (**) -40840 PROCEDURE ERRORR(N :INTEGER); EXTERN ; +40840 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; 40850 (**) 40860 (**) 40870 (*+01() (*$X3*) ()+01*) diff --git a/lang/a68s/liba68s/posenq.p b/lang/a68s/liba68s/posenq.p index eaf3c55572..bab57fbd9f 100644 --- a/lang/a68s/liba68s/posenq.p +++ b/lang/a68s/liba68s/posenq.p @@ -1,10 +1,10 @@ 82800 #include "rundecs.h" 82810 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 82820 (**) -82830 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -82840 PROCEDURE ERRORR(N :INTEGER); EXTERN ; +82830 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +82840 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; 82850 (*+01() (*$X4*) ()+01*) -82860 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERN; +82860 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERNAL; 82870 (**) 82880 (*******POSITION ENQUIRIES*******) 82890 (**) diff --git a/lang/a68s/liba68s/powneg.p b/lang/a68s/liba68s/powneg.p index 380b3bb49c..4ffc1414f5 100644 --- a/lang/a68s/liba68s/powneg.p +++ b/lang/a68s/liba68s/powneg.p @@ -2,7 +2,7 @@ 62610 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 62620 (**) 62630 (**) -62640 PROCEDURE ERRORR(N :INTEGER); EXTERN ; +62640 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; 62650 (**) 62660 (**) 62670 PROCEDURE POWNEG; diff --git a/lang/a68s/liba68s/putt.p b/lang/a68s/liba68s/putt.p index 2d2a701cac..bd23c188d5 100644 --- a/lang/a68s/liba68s/putt.p +++ b/lang/a68s/liba68s/putt.p @@ -1,26 +1,26 @@ 83300 #include "rundecs.h" 83310 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 83320 (**) -83330 PROCEDURE CL68(PB: ASNAKED; RF: OBJECTP); EXTERN ; -83340 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -83350 PROCEDURE FORMPDESC(OLDESC: OBJECTP; VAR PDESC1: PDESC); EXTERN ; -83360 FUNCTION NEXTEL(I: INTEGER; VAR PDESC1: PDESC): BOOLEAN; EXTERN ; -83370 PROCEDURE ERRORR(N :INTEGER); EXTERN ; -83380 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERN ; -83390 FUNCTION GETPROC(RN: OBJECTP): ASNAKED; EXTERN ; -83400 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERN; -83410 FUNCTION ENSLINE(RF:OBJECTP;VAR F:OBJECTP):BOOLEAN; EXTERN; -83420 PROCEDURE ENSSTATE(RF:OBJECTP;VAR F:OBJECTP;READING:STATUSSET); EXTERN; -83430 FUNCTION ENSPAGE(RF:OBJECTP;VAR F:OBJECTP):BOOLEAN; EXTERN; +83330 PROCEDURE CL68(PB: ASNAKED; RF: OBJECTP); EXTERNAL ; +83340 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +83350 PROCEDURE FORMPDESC(OLDESC: OBJECTP; VAR PDESC1: PDESC); EXTERNAL ; +83360 FUNCTION NEXTEL(I: INTEGER; VAR PDESC1: PDESC): BOOLEAN; EXTERNAL ; +83370 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; +83380 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERNAL ; +83390 FUNCTION GETPROC(RN: OBJECTP): ASNAKED; EXTERNAL ; +83400 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERNAL; +83410 FUNCTION ENSLINE(RF:OBJECTP;VAR F:OBJECTP):BOOLEAN; EXTERNAL; +83420 PROCEDURE ENSSTATE(RF:OBJECTP;VAR F:OBJECTP;READING:STATUSSET); EXTERNAL; +83430 FUNCTION ENSPAGE(RF:OBJECTP;VAR F:OBJECTP):BOOLEAN; EXTERNAL; 83440 (**) -83450 PROCEDURE CLPASC1(P1: IPOINT; PROC: ASPROC); EXTERN; -83460 PROCEDURE CLPASC5(P1,P2 :IPOINT; P3,P4 :INTEGER; P5 :IPOINT; PROC: ASPROC); EXTERN; -83470 FUNCTION NXTBIT(VAR N: INTEGER): INTEGER; EXTERN; +83450 PROCEDURE CLPASC1(P1: IPOINT; PROC: ASPROC); EXTERNAL; +83460 PROCEDURE CLPASC5(P1,P2 :IPOINT; P3,P4 :INTEGER; P5 :IPOINT; PROC: ASPROC); EXTERNAL; +83470 FUNCTION NXTBIT(VAR N: INTEGER): INTEGER; EXTERNAL; 83480 (**) 83490 (**) 83500 (*+01() (*$X6*) ()+01*) (*ONLY USED WITH PROC*) -83510 (*+01() FUNCTION TIMESTEN(T, E: INTEGER): REAL ; EXTERN ; ()+01*) -83520 (*+05() FUNCTION TIMESTEN( T: REAL; E: INTEGER ): REAL ; EXTERN ; ()+05*) +83510 (*+01() FUNCTION TIMESTEN(T, E: INTEGER): REAL ; EXTERNAL ; ()+01*) +83520 (*+05() FUNCTION TIMESTEN( T: REAL; E: INTEGER ): REAL ; EXTERNAL ; ()+05*) 83530 (*+01() (*$X4*) ()+01*) 83540 (**) 83550 (**) @@ -54,7 +54,7 @@ 83830 PROCEDURE CONVR(Y(*>=0.0*): REAL; VAR L: INTEGER; VAR A: MINT); 83840 (*COMPUTES L = THE LARGEST NUMBER OF DIGITS BEFORE THE DECIMAL POINT (POSSIBLY NEGATIVE) WHICH MIGHT BE NEEDED; 83850 A = (Y*POWOF2)/10**L (ROUNDED TO NEAREST INTEGER?) *) -83860 (*+01() EXTERN; ()+01*) +83860 (*+01() EXTERNAL; ()+01*) 83870 (*+05() 83880 CONST LOG10E = 0.43429; (*DELIBERATELY UNDERESTIMATED*) 83890 VAR LL: REAL; @@ -81,7 +81,7 @@ 84100 ()+02*) 84110 PROCEDURE CONVI(Y(*>=0*): INTEGER; VAR L: INTEGER; VAR A: MINT); 84120 (*AS CONVR, BUT FOR INTEGERS*) -84130 (*+01() EXTERN; ()+01*) +84130 (*+01() EXTERNAL; ()+01*) 84140 (*+05() 84150 VAR I: INTEGER ; YY: INTEGER ; 84160 BEGIN @@ -106,7 +106,7 @@ 84350 (*-44() 84360 PROCEDURE ROUNDER(DIGITS: INTEGER; VAR ROUNDD: MINT); 84370 (* COMPUTES ROUNDD = 0.5 X ( 10 TO THE POWER OF - DIGITS ) X POWOF2 *) -84380 (*+01() EXTERN; ()+01*) +84380 (*+01() EXTERNAL; ()+01*) 84390 (*+05() 84400 VAR I : INTEGER ; 84410 BEGIN diff --git a/lang/a68s/liba68s/random.p b/lang/a68s/liba68s/random.p index a94dc44df9..3dffb603e5 100644 --- a/lang/a68s/liba68s/random.p +++ b/lang/a68s/liba68s/random.p @@ -1,9 +1,9 @@ 65300 #include "rundecs.h" 65310 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 65320 (**) -65330 PROCEDURE ERRORR(N: INTEGER);EXTERN; -65340 PROCEDURE GARBAGE(ANOBJECT: OBJECTP);EXTERN; -65350 FUNCTION SAFEACCESS(LOCATION: OBJECTP): UNDRESSP; EXTERN; +65330 PROCEDURE ERRORR(N: INTEGER);EXTERNAL; +65340 PROCEDURE GARBAGE(ANOBJECT: OBJECTP);EXTERNAL; +65350 FUNCTION SAFEACCESS(LOCATION: OBJECTP): UNDRESSP; EXTERNAL; 65360 (**) 65370 (**) 65380 FUNCTION RAND(VAR SEED: INTEGER): REAL; diff --git a/lang/a68s/liba68s/rangext.p b/lang/a68s/liba68s/rangext.p index ccee070ba5..8d80e385b0 100644 --- a/lang/a68s/liba68s/rangext.p +++ b/lang/a68s/liba68s/rangext.p @@ -2,13 +2,13 @@ 42810 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 42820 (**) 42830 (**) -42840 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; +42840 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; 42850 (**) 42860 (**) 42870 PROCEDURE RANGEXT; 42880 (*PRANGEXT*) -42890 (*+01() EXTERN; ()+01*) -42900 (*+05() EXTERN; ()+05*) +42890 (*+01() EXTERNAL; ()+01*) +42900 (*+05() EXTERNAL; ()+05*) 42910 (*-01() (*-05() 42920 VAR LASTRG: PRANGE; 42930 IDP: PIDBLK ; diff --git a/lang/a68s/liba68s/reset.p b/lang/a68s/liba68s/reset.p index ae271aa48b..f7430a3873 100644 --- a/lang/a68s/liba68s/reset.p +++ b/lang/a68s/liba68s/reset.p @@ -1,12 +1,12 @@ 88100 #include "rundecs.h" 88110 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 88120 (**) -88130 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -88140 PROCEDURE ERRORR(N :INTEGER); EXTERN ; -88150 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERN; -88160 PROCEDURE SETREADMOOD(PCOV:OBJECTP); EXTERN; -88170 PROCEDURE SETWRITEMOOD(PCOV:OBJECTP); EXTERN; -88180 PROCEDURE SETCHARMOOD(PCOV:OBJECTP); EXTERN; +88130 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +88140 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; +88150 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERNAL; +88160 PROCEDURE SETREADMOOD(PCOV:OBJECTP); EXTERNAL; +88170 PROCEDURE SETWRITEMOOD(PCOV:OBJECTP); EXTERNAL; +88180 PROCEDURE SETCHARMOOD(PCOV:OBJECTP); EXTERNAL; 88190 (**) 88200 (**) 88210 PROCEDURE RESET(RF: OBJECTP); diff --git a/lang/a68s/liba68s/rnstart.p b/lang/a68s/liba68s/rnstart.p index fddd5d7028..373bee96b3 100644 --- a/lang/a68s/liba68s/rnstart.p +++ b/lang/a68s/liba68s/rnstart.p @@ -5,14 +5,14 @@ 43670 (*RNSTART HAD BETTER BE WRITTEN IN ASSEMBLER ON MOST SYSTEMS*) 43680 (**) 43690 (*-01() (*-05() -43700 FUNCTION GETADDRESS (VAR VARIABLE :IPOINT) :IPOINT; EXTERN; -43710 FUNCTION GETCALLER (CALLEE :IPOINT) :IPOINT; EXTERN; -43720 FUNCTION GETLINENO :INTEGER; EXTERN; +43700 FUNCTION GETADDRESS (VAR VARIABLE :IPOINT) :IPOINT; EXTERNAL; +43710 FUNCTION GETCALLER (CALLEE :IPOINT) :IPOINT; EXTERNAL; +43720 FUNCTION GETLINENO :INTEGER; EXTERNAL; 43730 PROCEDURE RNSTART; 43740 VAR TSCOPE: DEPTHRANGE; 43750 RNIB: IPOINT; 43760 CURR : INTPOINT ; -43764 PROCEDURE SETNSTATIC( N: INTEGER ) ; EXTERN ; +43764 PROCEDURE SETNSTATIC( N: INTEGER ) ; EXTERNAL ; 43770 BEGIN 43780 RNIB := DYNAMIC(ME); 43790 (*+05()SETMYSTATIC(STATIC(DYNAMIC(RNIB)));(*TO ALGOL 68 CALLER*) ()+05*) diff --git a/lang/a68s/liba68s/rowm.p b/lang/a68s/liba68s/rowm.p index 86cbc67433..d9a212b3ac 100644 --- a/lang/a68s/liba68s/rowm.p +++ b/lang/a68s/liba68s/rowm.p @@ -2,10 +2,10 @@ 44910 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 44920 (**) 44930 (**) -44940 FUNCTION GETMULT(NEWMULT: OBJECTP): OBJECTP; EXTERN; -44950 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -44960 FUNCTION COPYDESC(ORIGINAL: OBJECTP; NEWSORT: STRUCTYPE): OBJECTP; EXTERN ; -44970 PROCEDURE COPYSLICE(ASLICE: OBJECTP); EXTERN ; +44940 FUNCTION GETMULT(NEWMULT: OBJECTP): OBJECTP; EXTERNAL; +44950 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +44960 FUNCTION COPYDESC(ORIGINAL: OBJECTP; NEWSORT: STRUCTYPE): OBJECTP; EXTERNAL ; +44970 PROCEDURE COPYSLICE(ASLICE: OBJECTP); EXTERNAL ; 44980 (**) 44990 (**) 45000 FUNCTION ROWM(AMULT: OBJECTP; ROWCOUNT: INTEGER): OBJECTP; diff --git a/lang/a68s/liba68s/rownm.p b/lang/a68s/liba68s/rownm.p index 392ded6e22..cae77b13b2 100644 --- a/lang/a68s/liba68s/rownm.p +++ b/lang/a68s/liba68s/rownm.p @@ -2,9 +2,9 @@ 45410 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 45420 (**) 45430 (**) -45440 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -45450 PROCEDURE PCINCR (STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT; INCREMENT: INTEGER); EXTERN ; -45460 FUNCTION CRMULT( NEWMULT: OBJECTP ; TEMPLATE: DPOINT ) : OBJECTP ; EXTERN ; +45440 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +45450 PROCEDURE PCINCR (STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT; INCREMENT: INTEGER); EXTERNAL ; +45460 FUNCTION CRMULT( NEWMULT: OBJECTP ; TEMPLATE: DPOINT ) : OBJECTP ; EXTERNAL ; 45470 (**) 45480 (**) 45490 FUNCTION ROWNM(PVAL: OBJECTP; ROWCOUNT: INTEGER; TEMPLATE: DPOINT): OBJECTP; diff --git a/lang/a68s/liba68s/rundecs.p b/lang/a68s/liba68s/rundecs.p index b899c13330..e224e89098 100644 --- a/lang/a68s/liba68s/rundecs.p +++ b/lang/a68s/liba68s/rundecs.p @@ -1725,7 +1725,7 @@ 61850 ()+01*) 61900 (**) 61905 (*+02() -61910 FUNCTION TIMESTE (T:REAL; E:INTEGER) :REAL; EXTERN; +61910 FUNCTION TIMESTE (T:REAL; E:INTEGER) :REAL; EXTERNAL; 61945 ()+02*) 61950 (**) 62000 (*+01() (*$E+*) ()+01*) @@ -1790,12 +1790,12 @@ 64100 (*ALL THE PROCEDURES AND FUNCTIONS WHICH FOLLOW ARE WITHIN A68*) 64150 (**) 64200 (**) -64300 FUNCTION ME: IPOINT; EXTERN; (*STACK FRAME POINTER OF CALLER*) -64350 FUNCTION STATIC(IB: IPOINT): IPOINT; EXTERN; (*FOLLOW STATIC CHAIN*) -64400 (*+05() FUNCTION A68STATIC(IB: IPOINT): IPOINT; EXTERN; (*FOLLOW ALGOL 68S STATIC CHAIN*) ()+05*) -64450 FUNCTION DYNAMIC(IB: IPOINT): IPOINT; EXTERN; (*FOLLOW DYNAMIC CHAIN*) -64452 (*+02() FUNCTION ARGBASE(IB: IPOINT): IPOINT; EXTERN; ()+02*) -64500 FUNCTION ISA68(IB: IPOINT): BOOLEAN; EXTERN; (*IB IS FRAME FOR A68 PROC*) -64550 FUNCTION ISPUT(IB: IPOINT): BOOLEAN; EXTERN; (*IB IS FRAME FOR CALL OF PUTT*) -64600 FUNCTION ISGET(IB: IPOINT): BOOLEAN; EXTERN; (*IB IS FRAME FOR CALL OF GETT*) -64650 PROCEDURE SETMYSTATIC(IB: IPOINT); EXTERN; (*SETS STATIC CHAIN OF CALLER*) +64300 FUNCTION ME: IPOINT; EXTERNAL; (*STACK FRAME POINTER OF CALLER*) +64350 FUNCTION STATIC(IB: IPOINT): IPOINT; EXTERNAL; (*FOLLOW STATIC CHAIN*) +64400 (*+05() FUNCTION A68STATIC(IB: IPOINT): IPOINT; EXTERNAL; (*FOLLOW ALGOL 68S STATIC CHAIN*) ()+05*) +64450 FUNCTION DYNAMIC(IB: IPOINT): IPOINT; EXTERNAL; (*FOLLOW DYNAMIC CHAIN*) +64452 (*+02() FUNCTION ARGBASE(IB: IPOINT): IPOINT; EXTERNAL; ()+02*) +64500 FUNCTION ISA68(IB: IPOINT): BOOLEAN; EXTERNAL; (*IB IS FRAME FOR A68 PROC*) +64550 FUNCTION ISPUT(IB: IPOINT): BOOLEAN; EXTERNAL; (*IB IS FRAME FOR CALL OF PUTT*) +64600 FUNCTION ISGET(IB: IPOINT): BOOLEAN; EXTERNAL; (*IB IS FRAME FOR CALL OF GETT*) +64650 PROCEDURE SETMYSTATIC(IB: IPOINT); EXTERNAL; (*SETS STATIC CHAIN OF CALLER*) diff --git a/lang/a68s/liba68s/safeaccess.p b/lang/a68s/liba68s/safeaccess.p index 3036fb53a4..7318812d9b 100644 --- a/lang/a68s/liba68s/safeaccess.p +++ b/lang/a68s/liba68s/safeaccess.p @@ -2,8 +2,8 @@ 15010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 15020 (**) 15030 (**) -15040 PROCEDURE GARBAGE(ANOBJECT:OBJECTP); EXTERN; -15050 PROCEDURE ERRORR(N: INTEGER); EXTERN; +15040 PROCEDURE GARBAGE(ANOBJECT:OBJECTP); EXTERNAL; +15050 PROCEDURE ERRORR(N: INTEGER); EXTERNAL; 15060 (**) 15070 (**) 15080 PROCEDURE FORMPDESC(OLDESC: OBJECTP; VAR PDESC1: PDESC); diff --git a/lang/a68s/liba68s/scopext.p b/lang/a68s/liba68s/scopext.p index 9fe89bc292..5f41b596fc 100644 --- a/lang/a68s/liba68s/scopext.p +++ b/lang/a68s/liba68s/scopext.p @@ -2,9 +2,9 @@ 46010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 46020 (**) 46030 (**) -46040 FUNCTION STRUCTSCOPE(STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT):DEPTHRANGE; EXTERN; -46050 FUNCTION MULTSCOPE(MULT: OBJECTP):DEPTHRANGE; EXTERN; -46060 PROCEDURE ERRORR(N :INTEGER); EXTERN ; +46040 FUNCTION STRUCTSCOPE(STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT):DEPTHRANGE; EXTERNAL; +46050 FUNCTION MULTSCOPE(MULT: OBJECTP):DEPTHRANGE; EXTERNAL; +46060 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; 46070 (**) 46080 (**) 46090 FUNCTION SCOPEXT(SOURCE: OBJECTP): OBJECTP; diff --git a/lang/a68s/liba68s/selectr.p b/lang/a68s/liba68s/selectr.p index baaa8db9d8..e75003b8d9 100644 --- a/lang/a68s/liba68s/selectr.p +++ b/lang/a68s/liba68s/selectr.p @@ -2,9 +2,9 @@ 46410 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 46420 (**) 46430 (**) -46440 FUNCTION COPYDESC(ORIGINAL: OBJECTP; NEWSORT: STRUCTYPE): OBJECTP; EXTERN; -46450 FUNCTION GETMULT(NEWMULT: OBJECTP): OBJECTP; EXTERN; -46460 FUNCTION GETSLN(NEWREFSLN:OBJECTP): OBJECTP; EXTERN; +46440 FUNCTION COPYDESC(ORIGINAL: OBJECTP; NEWSORT: STRUCTYPE): OBJECTP; EXTERNAL; +46450 FUNCTION GETMULT(NEWMULT: OBJECTP): OBJECTP; EXTERNAL; +46460 FUNCTION GETSLN(NEWREFSLN:OBJECTP): OBJECTP; EXTERNAL; 46470 (**) 46480 (**) 46490 FUNCTION SELECTR(AROWED: OBJECTP; TEMPLATE: DPOINT; ROFFSET: INTEGER): OBJECTP; diff --git a/lang/a68s/liba68s/sett.p b/lang/a68s/liba68s/sett.p index f2ed07d0d7..f04b371185 100644 --- a/lang/a68s/liba68s/sett.p +++ b/lang/a68s/liba68s/sett.p @@ -1,10 +1,10 @@ 88500 #include "rundecs.h" 88510 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 88520 (**) -88530 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -88540 PROCEDURE ERRORR(N :INTEGER); EXTERN ; -88550 PROCEDURE CLPASC5(P1,P2 :IPOINT; P3,P4 :INTEGER; P5 :IPOINT; PROC: ASPROC); EXTERN; -88560 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERN; +88530 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +88540 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; +88550 PROCEDURE CLPASC5(P1,P2 :IPOINT; P3,P4 :INTEGER; P5 :IPOINT; PROC: ASPROC); EXTERNAL; +88560 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERNAL; 88570 (**) 88580 (**) 88590 (*+01() (*$X6*) ()+01*) diff --git a/lang/a68s/liba68s/skip.p b/lang/a68s/liba68s/skip.p index fd8869cae3..2a933eb6c5 100644 --- a/lang/a68s/liba68s/skip.p +++ b/lang/a68s/liba68s/skip.p @@ -2,8 +2,8 @@ 47710 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 47720 (**) 47730 (**) -47740 PROCEDURE GARBAGE(ANOBJECT: OBJECTP); EXTERN ; -47750 FUNCTION CRSTRUCT(TEMPLATE: DPOINT): OBJECTP; EXTERN; +47740 PROCEDURE GARBAGE(ANOBJECT: OBJECTP); EXTERNAL ; +47750 FUNCTION CRSTRUCT(TEMPLATE: DPOINT): OBJECTP; EXTERNAL; 47760 (**) 47770 (**) 47780 FUNCTION SKIPS: INTEGER; diff --git a/lang/a68s/liba68s/slice12.p b/lang/a68s/liba68s/slice12.p index e5e34e245e..61e28d1b47 100644 --- a/lang/a68s/liba68s/slice12.p +++ b/lang/a68s/liba68s/slice12.p @@ -2,7 +2,7 @@ 48310 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 48320 (**) 48330 (**) -48340 PROCEDURE ERRORR(N :INTEGER); EXTERN; +48340 PROCEDURE ERRORR(N :INTEGER); EXTERNAL; 48350 (**) 48360 (**) 48370 PROCEDURE SLCMN(STOWEDVAL: OBJECTP; INDEX, SLICDEX: INTEGER); diff --git a/lang/a68s/liba68s/slicen.p b/lang/a68s/liba68s/slicen.p index 1a7849da32..7e2883bb86 100644 --- a/lang/a68s/liba68s/slicen.p +++ b/lang/a68s/liba68s/slicen.p @@ -2,7 +2,7 @@ 49010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 49020 (**) 49030 (**) -49040 PROCEDURE SLCMN(STOWEDVAL: OBJECTP; INDEX, SLICDEX: INTEGER); EXTERN; +49040 PROCEDURE SLCMN(STOWEDVAL: OBJECTP; INDEX, SLICDEX: INTEGER); EXTERNAL; 49050 (**) 49060 (**) 49070 FUNCTION SLICEN(INDEX: BOUNDSRANGE; NOROWS: INTEGER): ASNAKED; diff --git a/lang/a68s/liba68s/space.p b/lang/a68s/liba68s/space.p index 027ea93a38..ccaeb291d8 100644 --- a/lang/a68s/liba68s/space.p +++ b/lang/a68s/liba68s/space.p @@ -1,14 +1,14 @@ 88800 #include "rundecs.h" 88810 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 88820 (**) -88830 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -88840 PROCEDURE ERRORR(N :INTEGER); EXTERN ; -88850 PROCEDURE CLPASC5(P1,P2 :IPOINT; P3,P4 :INTEGER; P5 :IPOINT; PROC: ASPROC); EXTERN; +88830 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +88840 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; +88850 PROCEDURE CLPASC5(P1,P2 :IPOINT; P3,P4 :INTEGER; P5 :IPOINT; PROC: ASPROC); EXTERNAL; 88860 PROCEDURE CLRDSTR(PCOV: OBJECTP; VAR CHARS: GETBUFTYPE; TERM (*+01() , TERM1 ()+01*) : TERMSET; -88870 VAR I: INTEGER; BOOK: FETROOMP; PROC: ASPROC); EXTERN; -88880 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERN; -88890 FUNCTION ENSLINE(RF:OBJECTP;VAR F:OBJECTP):BOOLEAN; EXTERN; -88900 PROCEDURE ERRORSTATE(F:OBJECTP); EXTERN; +88870 VAR I: INTEGER; BOOK: FETROOMP; PROC: ASPROC); EXTERNAL; +88880 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERNAL; +88890 FUNCTION ENSLINE(RF:OBJECTP;VAR F:OBJECTP):BOOLEAN; EXTERNAL; +88900 PROCEDURE ERRORSTATE(F:OBJECTP); EXTERNAL; 88910 (**) 88920 (**) 88930 PROCEDURE SPACE(RF:OBJECTP); diff --git a/lang/a68s/liba68s/standass.p b/lang/a68s/liba68s/standass.p index 7d60023b66..40a6a0a736 100644 --- a/lang/a68s/liba68s/standass.p +++ b/lang/a68s/liba68s/standass.p @@ -1,7 +1,7 @@ 89300 #include "rundecs.h" 89310 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 89320 (**) -89330 PROCEDURE TESTCC(TARGET:OBJECTP); EXTERN; +89330 PROCEDURE TESTCC(TARGET:OBJECTP); EXTERNAL; 89340 (**) 89350 (**) 89360 PROCEDURE ASSWRSTR(COV,PUTSTRING:OBJECTP;LB,UB:INTEGER; VAR FYLE :FYL); diff --git a/lang/a68s/liba68s/standout.p b/lang/a68s/liba68s/standout.p index cabb4226bd..5929a5be29 100644 --- a/lang/a68s/liba68s/standout.p +++ b/lang/a68s/liba68s/standout.p @@ -1,9 +1,9 @@ 91300 #include "rundecs.h" 91310 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 91320 (**) -91330 (*+05() PROCEDURE FLSBUF(P: PCFILE; CH: CHAR); EXTERN; ()+05*) +91330 (*+05() PROCEDURE FLSBUF(P: PCFILE; CH: CHAR); EXTERNAL; ()+05*) 91340 (*+02() -91350 PROCEDURE STOPEN (VAR PF: FYL; VAR RF: OBJECTP; LFN: LFNTYPE; PROCEDURE CH(COV:OBJECTP;L:LFNTYPE) ); EXTERN; +91350 PROCEDURE STOPEN (VAR PF: FYL; VAR RF: OBJECTP; LFN: LFNTYPE; PROCEDURE CH(COV:OBJECTP;L:LFNTYPE) ); EXTERNAL; 91360 ()+02*) 91370 (**) 91380 (**) @@ -11,7 +11,7 @@ 91400 (*******STAND OUT PRIMITIVES*******) 91410 PROCEDURE SONEWLINE(COV:OBJECTP; VAR FYLE :FYL); 91420 (*+05() -91430 PROCEDURE WRC(P: PCFILE; CH: CHAR); EXTERN; +91430 PROCEDURE WRC(P: PCFILE; CH: CHAR); EXTERNAL; 91440 ()+05*) 91450 BEGIN WITH COV^ DO 91460 BEGIN LOFCPOS:=LOFCPOS+1; @@ -75,19 +75,19 @@ 92040 PTR: UNDRESSP; 92050 (*+01() 92060 (*$X0*) -92070 PROCEDURE WRS(VAR FYLE: FYL; ADDR: UNDRESSP; FLDLGTH, STRLGTH: INTEGER); EXTERN; -92080 PROCEDURE WRSN(VAR FYLE: FYL; SHORTSTR: INTEGER; FLDLGTH, STRLGTH: INTEGER); EXTERN; +92070 PROCEDURE WRS(VAR FYLE: FYL; ADDR: UNDRESSP; FLDLGTH, STRLGTH: INTEGER); EXTERNAL; +92080 PROCEDURE WRSN(VAR FYLE: FYL; SHORTSTR: INTEGER; FLDLGTH, STRLGTH: INTEGER); EXTERNAL; 92090 (*$X4*) 92100 ()+01*) 92110 (*+02() 92120 CPTR: IPOINT; -92130 PROCEDURE WRC(CH :CHAR; FIL :FETROOMP); EXTERN; -92140 PROCEDURE WRS(LEN :INTEGER; CP :IPOINT; FIL :FETROOMP); EXTERN; +92130 PROCEDURE WRC(CH :CHAR; FIL :FETROOMP); EXTERNAL; +92140 PROCEDURE WRS(LEN :INTEGER; CP :IPOINT; FIL :FETROOMP); EXTERNAL; 92150 ()+02*) 92160 (*+05() 92170 CPTR: CHARPOINT ; -92180 PROCEDURE WRS(P: PCFILE; CP: CHARPOINT; LEN: INTEGER ); EXTERN; -92190 PROCEDURE WRC(P: PCFILE; CH: CHAR); EXTERN; +92180 PROCEDURE WRS(P: PCFILE; CP: CHARPOINT; LEN: INTEGER ); EXTERNAL; +92190 PROCEDURE WRC(P: PCFILE; CH: CHAR); EXTERNAL; 92200 ()+05*) 92210 BEGIN 92220 (*+01() diff --git a/lang/a68s/liba68s/stinch.p b/lang/a68s/liba68s/stinch.p index d2a90f8e54..df5613f161 100644 --- a/lang/a68s/liba68s/stinch.p +++ b/lang/a68s/liba68s/stinch.p @@ -1,21 +1,21 @@ 93200 #include "rundecs.h" 93210 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 93220 (**) -93230 PROCEDURE SETREADMOOD(PCOV:OBJECTP); EXTERN; +93230 PROCEDURE SETREADMOOD(PCOV:OBJECTP); EXTERNAL; 93240 (**) 93250 (*+01() (*$X6*) ()+01*) -93260 FUNCTION PROC( PROCEDURE P (*-01() ( COV: OBJECTP ; EFET: FETROOMP ) ()-01*) ): ASPROC ; EXTERN ; +93260 FUNCTION PROC( PROCEDURE P (*-01() ( COV: OBJECTP ; EFET: FETROOMP ) ()-01*) ): ASPROC ; EXTERNAL ; 93270 (*-01() 93280 FUNCTION PROC1( 93290 PROCEDURE P( COV: OBJECTP ; CHARS: GETBUFTYPE ; TERM: TERMSET ; I: INTEGER ; EFET: FETROOMP ) -93300 ): ASPROC ; EXTERN ; +93300 ): ASPROC ; EXTERNAL ; 93310 ()-01*) -93320 PROCEDURE AOPEN( EFET:FETROOMP; DISP:INTEGER; LFN:LFNTYPE; BUF:IPOINT ); EXTERN; +93320 PROCEDURE AOPEN( EFET:FETROOMP; DISP:INTEGER; LFN:LFNTYPE; BUF:IPOINT ); EXTERNAL; 93330 PROCEDURE SIRDSTR(COV: OBJECTP; CHARS: GETBUFTYPE; TERM (*+01(),TERM1()+01*): TERMSET; I: INTEGER; EFET: FETROOMP); -93340 EXTERN; -93350 PROCEDURE SINEWLINE(COV: OBJECTP; EFET: FETROOMP); EXTERN; -93360 PROCEDURE SINEWPAGE(COV: OBJECTP; EFET: FETROOMP); EXTERN; -93370 PROCEDURE SIRESET(COV: OBJECTP; EFET: FETROOMP); EXTERN; +93340 EXTERNAL; +93350 PROCEDURE SINEWLINE(COV: OBJECTP; EFET: FETROOMP); EXTERNAL; +93360 PROCEDURE SINEWPAGE(COV: OBJECTP; EFET: FETROOMP); EXTERNAL; +93370 PROCEDURE SIRESET(COV: OBJECTP; EFET: FETROOMP); EXTERNAL; 93380 (**) 93390 (**) 93400 PROCEDURE STINCH(PCOV: OBJECTP; LFN: LFNTYPE); diff --git a/lang/a68s/liba68s/stopen.p b/lang/a68s/liba68s/stopen.p index dd24862186..c683f3b92d 100644 --- a/lang/a68s/liba68s/stopen.p +++ b/lang/a68s/liba68s/stopen.p @@ -1,11 +1,11 @@ 93900 #include "rundecs.h" 93910 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 93920 (**) -93930 FUNCTION CRSTRUCT(TEMPLATE: DPOINT ) : OBJECTP ; EXTERN ; +93930 FUNCTION CRSTRUCT(TEMPLATE: DPOINT ) : OBJECTP ; EXTERNAL ; 93940 (*+01() (*$X6*) ()+01*) 93950 PROCEDURE OPENCOVER( 93960 PFET: FETROOMP; VAR PCOV: OBJECTP; LFN: LFNTYPE; PROCEDURE CH (*-01() ( COV: OBJECTP; L: LFNTYPE) ()-01*) -93970 ); EXTERN; +93970 ); EXTERNAL; 93980 (**) 93990 (**) 94000 PROCEDURE STOPEN( diff --git a/lang/a68s/liba68s/stoutch.p b/lang/a68s/liba68s/stoutch.p index 5efbb6838b..d20e042acb 100644 --- a/lang/a68s/liba68s/stoutch.p +++ b/lang/a68s/liba68s/stoutch.p @@ -1,17 +1,17 @@ 98400 #include "rundecs.h" 98410 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 98420 (**) -98430 PROCEDURE SETWRITEMOOD(PCOV:OBJECTP); EXTERN; +98430 PROCEDURE SETWRITEMOOD(PCOV:OBJECTP); EXTERNAL; 98440 (*+01() (*$X6*) ()+01*) -98450 PROCEDURE AOPEN( EFET:FETROOMP; DISP:INTEGER; LFN:LFNTYPE; BUF:IPOINT ); EXTERN; -98460 FUNCTION PROC( PROCEDURE P (*-01() ( COV: OBJECTP ; EFET: FETROOMP ) ()-01*) ): ASPROC ; EXTERN ; +98450 PROCEDURE AOPEN( EFET:FETROOMP; DISP:INTEGER; LFN:LFNTYPE; BUF:IPOINT ); EXTERNAL; +98460 FUNCTION PROC( PROCEDURE P (*-01() ( COV: OBJECTP ; EFET: FETROOMP ) ()-01*) ): ASPROC ; EXTERNAL ; 98470 (*-01() -98480 FUNCTION PROC2( PROCEDURE P( COV, STRNG: OBJECTP ; LB, UB: INTEGER ; EFET: FETROOMP ) ): ASPROC ; EXTERN ; +98480 FUNCTION PROC2( PROCEDURE P( COV, STRNG: OBJECTP ; LB, UB: INTEGER ; EFET: FETROOMP ) ): ASPROC ; EXTERNAL ; 98490 ()-01*) -98500 PROCEDURE SONEWLINE(COV: OBJECTP; EFET: FETROOMP); EXTERN; -98510 PROCEDURE SONEWPAGE(COV: OBJECTP; EFET: FETROOMP); EXTERN; -98520 PROCEDURE SORESET(COV: OBJECTP; EFET: FETROOMP); EXTERN; -98530 PROCEDURE SOWRSTR(COV, STRNG: OBJECTP; LB, UB: INTEGER; EFET: FETROOMP); EXTERN; +98500 PROCEDURE SONEWLINE(COV: OBJECTP; EFET: FETROOMP); EXTERNAL; +98510 PROCEDURE SONEWPAGE(COV: OBJECTP; EFET: FETROOMP); EXTERNAL; +98520 PROCEDURE SORESET(COV: OBJECTP; EFET: FETROOMP); EXTERNAL; +98530 PROCEDURE SOWRSTR(COV, STRNG: OBJECTP; LB, UB: INTEGER; EFET: FETROOMP); EXTERNAL; 98540 (**) 98550 (**) 98560 PROCEDURE STOUTCH(PCOV: OBJECTP; LFN: LFNTYPE); diff --git a/lang/a68s/liba68s/strsubtrim.p b/lang/a68s/liba68s/strsubtrim.p index 586368781b..2f776f4e26 100644 --- a/lang/a68s/liba68s/strsubtrim.p +++ b/lang/a68s/liba68s/strsubtrim.p @@ -2,9 +2,9 @@ 49410 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 49420 (**) 49430 (**) -49440 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -49450 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERN; -49460 PROCEDURE ERRORR(N :INTEGER); EXTERN ; +49440 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +49450 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERNAL; +49460 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; 49470 (**) 49480 (**) 49490 FUNCTION STRSUB(OBJECT: OBJECTP; INDEX: BOUNDSRANGE): CHAR; diff --git a/lang/a68s/liba68s/tassp.p b/lang/a68s/liba68s/tassp.p index 080fcca793..02e3108719 100644 --- a/lang/a68s/liba68s/tassp.p +++ b/lang/a68s/liba68s/tassp.p @@ -1,11 +1,11 @@ 50300 #include "rundecs.h" 50310 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 50320 (**) -50330 PROCEDURE PCINCR (STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT; INCREMENT: INTEGER); EXTERN; -50340 PROCEDURE GARBAGE(ANOBJECT:OBJECTP); EXTERN; -50350 PROCEDURE ERRORR(N :INTEGER); EXTERN; -50360 FUNCTION STRUCTSCOPE(STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT):DEPTHRANGE; EXTERN; -50370 FUNCTION SAFEACCESS(LOCATION: OBJECTP): UNDRESSP; EXTERN; +50330 PROCEDURE PCINCR (STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT; INCREMENT: INTEGER); EXTERNAL; +50340 PROCEDURE GARBAGE(ANOBJECT:OBJECTP); EXTERNAL; +50350 PROCEDURE ERRORR(N :INTEGER); EXTERNAL; +50360 FUNCTION STRUCTSCOPE(STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT):DEPTHRANGE; EXTERNAL; +50370 FUNCTION SAFEACCESS(LOCATION: OBJECTP): UNDRESSP; EXTERNAL; 50380 (**) 50390 (**) 50400 FUNCTION DRESSN(CONTENTS: UNDRESSP; TEMPLATE: DPOINT): OBJECTP; diff --git a/lang/a68s/liba68s/tasstm.p b/lang/a68s/liba68s/tasstm.p index ad4b57120c..e310e0ed51 100644 --- a/lang/a68s/liba68s/tasstm.p +++ b/lang/a68s/liba68s/tasstm.p @@ -2,16 +2,16 @@ 52010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 52020 (**) 52030 (**) -52040 FUNCTION STRUCTSCOPE(STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT):DEPTHRANGE; EXTERN; -52050 PROCEDURE GARBAGE(ANOBJECT:OBJECTP); EXTERN; -52060 FUNCTION NEXTEL(I: INTEGER; VAR PDESC1: PDESC): BOOLEAN; EXTERN; -52070 PROCEDURE PCINCR(STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT; INCREMENT: INTEGER); EXTERN; -52080 PROCEDURE FORMPDESC(OLDESC: OBJECTP; VAR PDESC1: PDESC); EXTERN; -52090 PROCEDURE PCINCRMULT(ELSPTR: OBJECTP; INCREMENT: INTEGER); EXTERN; -52100 FUNCTION COPYDESC(ORIGINAL: OBJECTP; NEWSORT: STRUCTYPE): OBJECTP; EXTERN; -52110 PROCEDURE TESTCC (TARGET: OBJECTP); EXTERN; -52120 PROCEDURE ERRORR(N :INTEGER); EXTERN; -52130 FUNCTION CHKDESC(SOURCEMULT, CDESC: OBJECTP): OBJECTP; EXTERN; +52040 FUNCTION STRUCTSCOPE(STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT):DEPTHRANGE; EXTERNAL; +52050 PROCEDURE GARBAGE(ANOBJECT:OBJECTP); EXTERNAL; +52060 FUNCTION NEXTEL(I: INTEGER; VAR PDESC1: PDESC): BOOLEAN; EXTERNAL; +52070 PROCEDURE PCINCR(STRUCTPTR: UNDRESSP; TEMPLATE: DPOINT; INCREMENT: INTEGER); EXTERNAL; +52080 PROCEDURE FORMPDESC(OLDESC: OBJECTP; VAR PDESC1: PDESC); EXTERNAL; +52090 PROCEDURE PCINCRMULT(ELSPTR: OBJECTP; INCREMENT: INTEGER); EXTERNAL; +52100 FUNCTION COPYDESC(ORIGINAL: OBJECTP; NEWSORT: STRUCTYPE): OBJECTP; EXTERNAL; +52110 PROCEDURE TESTCC (TARGET: OBJECTP); EXTERNAL; +52120 PROCEDURE ERRORR(N :INTEGER); EXTERNAL; +52130 FUNCTION CHKDESC(SOURCEMULT, CDESC: OBJECTP): OBJECTP; EXTERNAL; 52140 (**) 52150 (**) 52160 PROCEDURE PCINCRSLICE(MULT: OBJECTP; VAR APDESC: PDESC; INCREMENT: INTEGER); diff --git a/lang/a68s/liba68s/tassts.p b/lang/a68s/liba68s/tassts.p index b2f0692575..ca5f868df3 100644 --- a/lang/a68s/liba68s/tassts.p +++ b/lang/a68s/liba68s/tassts.p @@ -1,9 +1,9 @@ 54200 #include "rundecs.h" 54210 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 54220 (**) -54230 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN; -54240 PROCEDURE ERRORR(N :INTEGER); EXTERN; -54250 FUNCTION SAFEACCESS(LOCATION: OBJECTP): UNDRESSP; EXTERN; +54230 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL; +54240 PROCEDURE ERRORR(N :INTEGER); EXTERNAL; +54250 FUNCTION SAFEACCESS(LOCATION: OBJECTP): UNDRESSP; EXTERNAL; 54260 (**) 54270 (**) 54280 (*-01() (*-05() diff --git a/lang/a68s/liba68s/trim.p b/lang/a68s/liba68s/trim.p index 43acb3f9f8..c55b29db21 100644 --- a/lang/a68s/liba68s/trim.p +++ b/lang/a68s/liba68s/trim.p @@ -2,8 +2,8 @@ 55110 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 55120 (**) 55130 (**) -55140 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; -55150 PROCEDURE SLCMN(STOWEDVAL: OBJECTP; INDEX, SLICDEX: INTEGER); EXTERN; +55140 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; +55150 PROCEDURE SLCMN(STOWEDVAL: OBJECTP; INDEX, SLICDEX: INTEGER); EXTERNAL; 55160 (**) 55170 (**) 55180 FUNCTION GETSLN(NEWREFSLN:OBJECTP): OBJECTP; diff --git a/lang/a68s/liba68s/uplwb.p b/lang/a68s/liba68s/uplwb.p index 48379a3026..1092fbafcc 100644 --- a/lang/a68s/liba68s/uplwb.p +++ b/lang/a68s/liba68s/uplwb.p @@ -2,7 +2,7 @@ 62810 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 62820 (**) 62830 (**) -62840 PROCEDURE ERRORR(N :INTEGER); EXTERN ; +62840 PROCEDURE ERRORR(N :INTEGER); EXTERNAL ; 62850 (**) 62860 (**) 62870 FUNCTION LWB(D: INTEGER; MULT: OBJECTP): INTEGER; diff --git a/lang/a68s/liba68s/uplwbmstr.p b/lang/a68s/liba68s/uplwbmstr.p index 4f28c25da6..0125e8e573 100644 --- a/lang/a68s/liba68s/uplwbmstr.p +++ b/lang/a68s/liba68s/uplwbmstr.p @@ -2,7 +2,7 @@ 63510 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 63520 (**) 63530 (**) -63540 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; +63540 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; 63550 (**) 63560 (**) 63570 FUNCTION UPBMSTR(POINT: OBJECTP): INTEGER; diff --git a/lang/a68s/liba68s/whole.p b/lang/a68s/liba68s/whole.p index 1d8cd053e4..ae58a6d6ba 100644 --- a/lang/a68s/liba68s/whole.p +++ b/lang/a68s/liba68s/whole.p @@ -3,8 +3,8 @@ 99220 (**) 99230 (**) 99240 FUNCTION SUBFIXED(SIGN, BEFORE, POINT, AFTER : INTEGER; VAR EXP: INTEGER; EXPNEEDED: BOOLEAN; -99250 X: REALTEGER; R: BOOLEAN; VAR S: OBJECTP; START: INTEGER): BOOLEAN; EXTERN; -99260 PROCEDURE ERRORFILL(VAR S: OBJECTP; LENGTH: INTEGER); EXTERN; +99250 X: REALTEGER; R: BOOLEAN; VAR S: OBJECTP; START: INTEGER): BOOLEAN; EXTERNAL; +99260 PROCEDURE ERRORFILL(VAR S: OBJECTP; LENGTH: INTEGER); EXTERNAL; 99270 (**) 99280 (**) 99290 FUNCTION WHOLE(XMODE: INTEGER; VAL: REALTEGER; WIDTH: INTEGER): OBJECTP; diff --git a/lang/a68s/liba68s/widchar.p b/lang/a68s/liba68s/widchar.p index c73ba1956a..d23e9caefd 100644 --- a/lang/a68s/liba68s/widchar.p +++ b/lang/a68s/liba68s/widchar.p @@ -2,7 +2,7 @@ 57010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 57020 (**) 57030 (**) -57040 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERN; +57040 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERNAL; 57050 (**) 57060 (**) 57070 FUNCTION WIDCHAR(CH: CHAR): OBJECTP; diff --git a/lang/a68s/liba68s/widen.p b/lang/a68s/liba68s/widen.p index 051ae4ca45..3c9f22e32f 100644 --- a/lang/a68s/liba68s/widen.p +++ b/lang/a68s/liba68s/widen.p @@ -2,7 +2,7 @@ 57310 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 57320 (**) 57330 (**) -57340 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ; +57340 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERNAL ; 57350 (**) 57360 (**) 57370 FUNCTION WIDENM(COUNT: INTEGER): OBJECTP; diff --git a/lang/a68s/util/build.py b/lang/a68s/util/build.py new file mode 100644 index 0000000000..2ff35fc298 --- /dev/null +++ b/lang/a68s/util/build.py @@ -0,0 +1,19 @@ +from build.ab import export, Rule, Targets, simplerule, filenamesof +from build.pascal import pascalprogram + +pascalprogram(name="tailor", fpcflags=["-Miso"], srcs=["./tailor.p"]) + +@Rule +def tailor(self, name, srcs: Targets = [], numbers=[]): + nlist = " ".join([str(n) for n in numbers]) + simplerule( + replaces=self, + ins=srcs, + deps=["lang/a68s/util+tailor"], + outs=[f"={self.localname}"], + label="TAILOR", + commands=[ + f"echo {nlist} | $[deps[0]] {ff} >> $[outs[0]]" + for ff in filenamesof(srcs) + ], + ) diff --git a/lang/a68s/util/indent.p b/lang/a68s/util/indent.p index a3e8f10c84..cf181d1d74 100644 --- a/lang/a68s/util/indent.p +++ b/lang/a68s/util/indent.p @@ -414,7 +414,7 @@ PROCEDURE MAIN(VAR SOURCE: TEXT); END; END; (**) -FUNCTION ARGC: INTEGER; EXTERN; +FUNCTION ARGC: INTEGER; EXTERNAL; (**) BEGIN (*INDENT*) IF ARGC=1 THEN diff --git a/lang/a68s/util/pascal.ign b/lang/a68s/util/pascal.ign index 2ab330a14b..ade4fc57a6 100644 --- a/lang/a68s/util/pascal.ign +++ b/lang/a68s/util/pascal.ign @@ -38,5 +38,5 @@ CHAR INTEGER REAL TEXT -EXTERN +EXTERNAL FORWARD