Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0135/comp/midedb.lst
There are no other files named midedb.lst in the archive.
DECsystem-20 SIMULA %4A(310) 25-JAN- 1981 18:37 PAGE 1
DSK:MIDEDB.SIM 2-APR- 1979 13:59
00030 OPTIONS(/l); COMMENT DISPLAY EDITOR. See
00060 VISTA.MAN for explanations on the routines used in this program;
00090 COMMENT Copyright (c) Swedish National Defense Research Institute;
00120 COMMENT The Author and the Swedish National Defense Research
00150 Institute take no responsibility for errors in this program or other
00180 files connected with it;
B1 00210 BEGIN
00240
00270 COMMENT%IF callmac;
00300 EXTERNAL PROCEDURE vtmcur, vtsynk, vtisng;
00330 COMMENT%IFEND CALLMAC;
00360 EXTERNAL PROCEDURE outche, tshift, pgcopy, vdccin, vdccout;
00390 EXTERNAL INTEGER PROCEDURE iondx, vdlno;
00420 COMMENT the external procedures below are described in the
00450 DECsystem-10 SIMULA Language Handbook part 3;
00480 EXTERNAL TEXT PROCEDURE tmpin, conc, front, storbokstav, litenbokstav,
00510 compress, skip, rest, filspc, inline, frontstrip, scanto, from, upto,
00540 today, tmpnam, maketext;
00570 EXTERNAL CHARACTER PROCEDURE findtrigger, fetchar;
00600 EXTERNAL INTEGER PROCEDURE search, scanint, rename;
00630 EXTERNAL INTEGER PROCEDURE sscan;
00660 EXTERNAL REF (infile) PROCEDURE findinfile;
00690 EXTERNAL REF (outfile) PROCEDURE findoutfile;
00720 EXTERNAL CHARACTER PROCEDURE getch;
00750 EXTERNAL INTEGER PROCEDURE trmop, gettab, checkint;
00780 EXTERNAL BOOLEAN PROCEDURE puttext, numbered, tmpout, rescan,
00810 dotypeout, bokstav;
00840 EXTERNAL PROCEDURE depchar, outstring, forceout, echo, abort, exit,
00870 outchr, run;
00900 COMMENT%IF debugslow
00930 EXTERNAL PROCEDURE sleep;
00960 COMMENT%IFEND debugslow;
00990 EXTERNAL BOOLEAN PROCEDURE meny;
01020 EXTERNAL CLASS termty;
01050 COMMENT%IF CALLMAC;
01080 EXTERNAL CLASS mmista, mided1, mided2, mided3;
B2 01110 mided3 BEGIN
01140 COMMENT%IFNOT CALLMAC
01170 EXTERNAL CLASS mvista, vided1, vided2, vided3;
01200 COMMENT%IFNOT CALLMAC
01230 vided3 BEGIN
01260 COMMENT%IFEND CALLMAC;
E2 01290 END of vided3 BEGIN block;
E1 01320 END of dummy main program of vided;
SWITCHES CHANGED FROM DEFAULT:
-A NO CHECK OF ARRAY INDEX
-D NO SYMBOL TABLE GENERATED FOR DEBUG
-Q NO CHECK OF QUALIFICATION
NO ERRORS DETECTED
DECsystem-20 SIMULA %4A(310) 25-JAN- 1981 18:37 PAGE 2
DSK:MIDEDB.SIM 2-APR- 1979 13:59 LINE NUMBER TABLE
0 000567
210 000575
1110 000577
1290 000601
1290 000602
1320 000603
1321 000605