Directory of image this file is from
This file as a plain text file
PPPPPPPP AAAAAA SSSSSSSS DDDDDD IIIIII FFFFFFFFFF PPPPPPPP AAAAAA SSSSSSSS DDDDDD IIIIII FFFFFFFFFF PP PP AA AA SS DD DD II FF PP PP AA AA SS DD DD II FF PP PP AA AA SS DD DD II FF PP PP AA AA SS DD DD II FF PPPPPPPP AAAAAAAAAA SSSSSS DD DD II FFFFFFFF PPPPPPPP AAAAAAAAAA SSSSSS DD DD II FFFFFFFF PP AA AA SS DD DD II FF PP AA AA SS DD DD II FF PP AA AA SS DD DD II FF PP AA AA SS DD DD II FF PP AA AA SSSSSSSS DDDDDD IIIIII FF PP AA AA SSSSSSSS DDDDDD IIIIII FF LL SSSSSSSS LL SSSSSSSS LL SS LL SS LL SS LL SS LL SSSSSS LL SSSSSS LL SS LL SS LL SS LL SS LLLLLLLLLL SSSSSSSS LLLLLLLLLL SSSSSSSS B E F O R E -- a n d -- A F T E R C O M P A R I S O N o f P A S C A L -- S S O U R C E ( .PA ) F I L E S February '83 (Cf. 'Changes Made' on Page v of Write-up)
SRCCOM V5A Moedling PASCAL.PA (1) versus February 1983 revision (2) 1) / ############ ######### ######### 2) / ############ ######### ######### 1)001 EJECT P A S C A L - S 1) VERSION=2 **** 2)001 / 2) / 2) / 2) / 2) / 2) / 2) / CHANGES MADE AT PORTSMOUTH ABBEY SCHOOL 2) / DECEMBER 1982 -- FEBRUARY 1983 INCLUDE: 2) / 2) / (1) TRANSLATING THE COMPILER ERROR MESSAGES. 2) / 2) / THE RUN-TIME MESSAGES IN PASCAL-S WERE IN ENGLISH 2) / FROM THE BEGINNING. THE SOURCE CODE, CAREFULLY LAID 2) / OUT, IS ALSO IN ENGLISH. WELL WORTH READING. 2) / 2) / (2) ARRANGING TO REPLACE H. TAB ON INPUT FILE BY 2) / ONE SPACE (BLANK). PASCAL-S REGARDS H. TAB 2) / AS A NULL CHARACTER. 2) / 2) / (3) MAPPING OCTAL 141-177 INTO OCTAL 101-137. LOWER- 2) / CASE LETTERS BECOME UPPER-CASE, ACCENT GRAVE BE- 2) / COMES ONE SPACE. { | } ~ BECOME [ \ ] ^ . RUB- 2) / OUT (DELETE), IF ANY, BECOMES _ . 2) / 2) / (4) CHANGING THE QUOTING CHARACTER FROM " TO ' . 2) / 2) / 2) / 2) / 2) XLIST 2) EJECT P A S C A L - S 2) XLIST 2)002 VERSION=2 ******** 1)031 TRUEFALSE, TEXT /TRUEFALSE/ 1) XISQU, 0 /AC := AC^2 (INTEGER) **** 2)032 / TRUEFALSE, TEXT /TRUEFALSE/ 2) / -- MOVED JAN. '83 TO NEXT CORE PAGE. 2) XISQU, 0 /AC := AC^2 (INTEGER)
******** 1)031 PAGE **** 2)032 // FOR 'CHECK': CONVERT H. TAB TO ONE SPACE, 2) // LOWER-CASE TO UPPER-CASE. JAN. 1983 P.A.S. 2) INCONV, 0 /(AC)=LOOK&177-15 2) TAD P1E1 /+4 2) SNA 2) TAD (40-11 /PROMOTE TAB TO BLANK (SPACE) 2) TAD (11-140 /TEST FOR LOWER-CASE 2) SPA SNA /SKIP IF .GT. 140(8) 2) TAD (40 2) TAD (100-32 /E.O.F. ? 2) JMP I INCONV 2) PAGE ******** 1)033 PAGE **** 2)034 TRUEFALSE, TEXT /TRUEFALSE/ 2) /MOVED JAN. '83 2) PAGE ******** 1)037 RTL 1) DCA CHECK **** 2)038 RTL // BSW IN THIS ROUTINE... 2) DCA CHECK ******** 1)037 RTL 1) RTL **** 2)038 RTL // ...WOULD SAVE 2 CORE LOCATIONS 2) RTL ******** 1)037 TAD (IBUFFER 1) DCA IBP **** 2)038 IFNZRO IBUFFER-6000 < 2) TAD (IBUFFER > 2) IFZERO IBUFFER-6000 <CLA STL IAC RTR> 2) DCA IBP
******** 1)037 TAD (15-32 1) SNA 1) JMP CR-2 1) TAD (-6 1) CLL **** 2)038 // TAD (15-32 -- REMOVED P.A.S. JAN. '83 2) JMS I (INCONV /JAN. '83 2) SNA 2) JMP CR-2 /E.O.F. 2) TAD (-6 /NOT E.O.F. ANOTHER CTRL? 2) CLL ******** 1)040 TEXT /DATEIANGABEN FEHLERHAFT BZW. UNVOLLSTAENDIG (EV. AUCH SYSTEMFEHLER)!/ 1) 0 **** 2)041 TEXT /* MISSING OR INCORRECT INPUT TO C.D.; OR, SYSTEM ERROR./ 2) 0 ******** 1)044 TAD ("Z+1-"A 1) SNL CLA 1) ISZ XSNALF 1) JMP I XSNALF **** 2)045 TAD ("Z+1-"A /LINK SETS IF CHAR IN [A..Z] 2) SNL CLA 2) ISZ XSNALF /2ND RETURN = NON-ALPHABETIC 2) JMP I XSNALF ******** 1)045 TAD (-"" 1) SZA CLA **** 2)046 TAD (-"' //MOEDLING HAD (-"" HERE; 2) //NOW SINGLE-QUOTE IS WANTED. 2) SZA CLA ******** 1)045 TAD (-"" 1) SZA CLA **** 2)046 TAD (-"' //( SAME CHANGE: CHECK FOR '' ) 2) SZA CLA
******** 1)054 JMPAPOS 1) NEQ 1) 0 **** 2)055 0000 // DISALLOW DOUBLE-QUOTE Febr. 1983 2) NEQ // 0000 HERE WOULD DISABLE '#' 2) 0 ******** 1)054 0 1) JMPLPAR **** 2)055 JMPAPOS // ENABLE SINGLE-QUOTE Febr. 1983 2) JMPLPAR ******** 1)056 FNN, TEXT /KOMPILATION ABGEBROCHEN - / 1) F00, TEXT /MAGNETBAND-LESEFEHLER!/ 1) F01, TEXT /ZU VIELE NAMEN!/ 1) F02, TEXT /ZU VIELE PROZEDUREN UND\ODER RECORDS!/ 1) F03, TEXT /ZU VIELE KONSTANTE!/ 1) F04, TEXT /ZU VIELE ARRAYS!/ 1) F05, TEXT /ZU VIELE UNTERPROGRAMMEBENEN!/ 1) F06, TEXT /PROGRAMM ZU GROSS!/ 1) F07, TEXT /ZU VIEL TEXT!/ 1) F08, TEXT /PROGRAMM ZU KOMPLEX!/ 1) F09, TEXT /PROGRAMM UNVOLLSTAENDIG!/ 1) F0C, TEXT /ZU VIELE CASE-MARKEN!/ 1) PAGE **** 2)057 FNN, TEXT /CAN'T COMPILE YOUR PROGRAM -- / 2) F00, TEXT "ERROR READING INPUT." 2) F01, TEXT /TOO MANY NAMES!/ 2) F02, TEXT "TOO MANY PROCEDURES AND/OR RECORDS!" 2) F03, TEXT /TOO MANY CONSTANTS!/ 2) F04, TEXT /TOO MANY ARRAYS!/ 2) F05, TEXT /TOO MANY SUB-PROGRAM NAMES!/ 2) F06, TEXT /PROGRAM TOO BIG!/ 2) F07, TEXT /TOO MUCH TEXT!/ 2) F08, TEXT /PROGRAM TOO COMPLEX!/ 2) F09, TEXT /INCOMPLETE PROGRAM./ 2) F0C, TEXT /TOO MANY CASE LABELS!/ 2) PAGE
******** 1)096 FIELD 6 **** 2)097 /Recoded into English text PAS Dec. 1982 g.c. FIELD 6 ******** AT THIS POINT, S R C C O M OVERFLOWED -- TOO MANY DIFFERENCES BETWEEN THE ENGLISH AND GERMAN COMPILE-TIME ERROR MESSAGES. APPENDED HERE ARE THE SOURCE FILES TO BOTH THE GERMAN AND THE ENGLISH MESSAGES, AS A CONTROL ON THEIR TRANSLATION.
EOKAY, TEXT /KOMPILATION EINWANDFREI!/ EHEAD, TEXT /ERKLAERUNG DER FEHLER:/ /L O N G E R R O R M E S S A G E S / /(MADE INVISIBLE BY 'XLIST' TO SAVE PAPER IN ASSEMBLY LISTING!) XLIST E00,TEXT / 0 DIESER NAME WURDE NICHT VEREINBART./ E01,TEXT / 1 NAME IM GUELTIGKEITSBEREICH MEHRFACH VEREINBART./ E02,TEXT / 2 NAME FEHLT!/ E03,TEXT / 3 JEDES PROGRAMM MUSS MIT DEM WORTSYMBOL 'PROGRAM' BEGINNE/ *.-1 TEXT /N./ E04,TEXT / 4 RUNDE RECHTSKLAMMER FEHLT (ECKIGE KLAMMER HIER FALSCH)./ E05,TEXT / 5 DOPPELPUNKT FEHLT. IN VEREINBARUNGEN FOLGT DEM : EIN TYP/ *.-1 TEXT /NAME./ E06,TEXT / 6 SYNTAXFEHLER! ANGEZEIGTES SYMBOL HIER NICHT KORREKT./ E07,TEXT / 7 LISTE DER FORMALPARAMETER FEHLERHAFT (NAME ODER WORTSYMB/ *.-1 TEXT /OL 'VAR')./ E08,TEXT / 8 DAS WORTSYMBOL 'OF' FEHLT./ E09,TEXT / 9 RUNDE LINKSKLAMMER FEHLT (ECKIGE KLAMMER HIER FALSCH)./ E10,TEXT /10 TYPVEREINBARUNG FEHLERHAFT (NAME, 'ARRAY' ODER 'RECORD')./ E11,TEXT /11 ECKIGE LINKSKLAMMER FEHLT (RUNDE KLAMMER HIER FALSCH)./ E12,TEXT /12 ECKIGE RECHTSKLAMMER FEHLT (RUNDE KLAMMER HIER FALSCH)./ E13,TEXT /13 SYMBOL .. FEHLT (LEERZEICHEN ZWISCHEN DEN PUNKTEN UNZULA/ *.-1 TEXT /ESSIG)./ E14,TEXT /14 STRICHPUNKT FEHLT!/ E15,TEXT /15 FUNKTIONSWERT KANN NUR VOM TYP INTEGER, REAL, BOOLEAN OD/ *.-1 TEXT /ER CHAR SEIN./ E16,TEXT /16 SYMBOL = FEHLT (IN VEREINBARUNGEN IST := UNZULAESSIG)./ E17,TEXT /17 NACH 'IF', 'WHILE' ODER 'UNTIL' MUSS EIN BOOL'SCHER AUSD/ *.-1 TEXT /RUCK STEHEN./ E18,TEXT /18 ZAEHLVARIABLE BEI 'FOR'-ANWEISUNG MUSS VOM TYP INTEGER, / *.-1 TEXT /CHAR ODER BOOLEAN SEIN./ E19,TEXT /19 ANFANGSWERT, ENDWERT UND ZAEHLVARIABLE MUESSEN VOM GLEIC/ *.-1 TEXT /HEN TYP SEIN./ E20,TEXT /20 DER STANDARDNAME 'OUTPUT' MUSS IM PROGRAMMKOPF GESCHRIEB/ *.-1 TEXT /EN WERDEN./ E21,TEXT /21 ZAHL IST ZU GROSS! (MAXINT=34359738367, REALS ABS. KLEIN/ *.-1 TEXT /ER ALS 1.0E+308)/ E22,TEXT /22 PUNKT AM PROGRAMMENDE FEHLT! (WORTSYMBOLE 'BEGIN' UND 'E/ *.-1 TEXT /ND' NICHT PAARWEISE?)/
E23,TEXT /23 AUSDRUCK NACH 'CASE' MUSS VOM TYP INTEGER, CHAR ODER BOO/ *.-1 TEXT /LEAN SEIN./ E24,TEXT /24 ILLEGALES ZEICHEN!/ E25,TEXT /25 BEI KONSTANTENVEREINBARUNG MUSS NACH = EINE KONSTANTE OD/ *.-1 TEXT /. EIN KONST.NAME STEHEN./ E26,TEXT /26 DER AUSDRUCK FUER EINEN FELD-INDEX MUSS VOM VEREINBARTEN/ *.-1 TEXT / INDEX-TYP SEIN./ E27,TEXT /27 BEREICHSGRENZEN BEI FELDVEREINBARUNG FEHLERHAFT (UG<=OG?/ *.-1 TEXT / GLEICHER TYP?)/ E28,TEXT /28 JEDE INDIZIERTE VARIABLE MUSS ALS ARRAY VEREINBART WERDE/ *.-1 TEXT /N./ E29,TEXT /29 TYPNAME FEHLT (IN PARAMETERLISTEN SIND ALLG. TYPVEREINBA/ *.-1 TEXT /RUNGEN VERBOTEN)./ E30,TEXT /30 DIESER TYP WURDE NICHT VEREINBART./ E31,TEXT /31 JEDE VARIABLE MIT KOMPONENTEN-SELEKTOR MUSS ALS RECORD V/ *.-1 TEXT /EREINBART WERDEN./ E32,TEXT /32 'NOT', 'AND' UND 'OR' VERLANGEN OPERANDEN VOM TYP BOOLEA/ *.-1 TEXT /N./ E33,TEXT /33 TYP DIESES AUSDRUCKS UNBESTIMMT (GANZES ARRAY IN ARITHM./ *.-1 TEXT /OPERATIONEN UNZULAESSIG)./ E34,TEXT /34 'DIV' UND 'MOD' VERLANGEN OPERANDEN VOM TYP INTEGER./ E35,TEXT /35 TYPEN DER VERGLEICHSOPERANDEN UNVERTRAEGLICH./ E36,TEXT /36 AKTUAL- UND FORMALPARAMETER MUESSEN VOM GLEICHEN TYP SEI/ *.-1 TEXT /N./ E37,TEXT /37 VARIABLE ERFORDERLICH!/ E38,TEXT /38 EIN STRING MUSS MINDESTENS EIN ZEICHEN ENTHALTEN./ E39,TEXT /39 ANZAHL DER AKTUAL- UND FORMALPARAMETER MUSS UEBEREINSTIM/ *.-1 TEXT /MEN./ E40,TEXT /40 STANDARDPROZEDUR READ NUR FUER TYP INTEGER, REAL UND CHA/ *.-1 TEXT /R VORGESEHEN./ E41,TEXT /41 BEI WRITE SIND NUR DIE TYPEN INTEGER, REAL, BOOLEAN UND / *.-1 TEXT /CHAR ZULAESSIG./ E42,TEXT /42 WRITE(X:M:N) IST NUR FUER WERTE VOM TYP REAL ZULAESSIG./ E43,TEXT /43 M UND N BEI WRITE(X:M:N) MUESSEN INTEGER-AUSDRUECKE SEIN./ E44,TEXT /44 TYP- ODER PROZEDURNAMEN SIND IN AUSDRUECKEN UNZULAESSIG./ E45,TEXT /45 EINE ANWEISUNG KANN NICHT MIT EINEM KONST-, TYP- ODER FU/ *.-1 TEXT /NKTIONSNAMEN BEGINNEN./ E46,TEXT /46 TYPUNVERTRAEGLICHKEIT BEI WERTZUWEISUNG./ E47,TEXT /47 'CASE'-MARKEN MUESSEN VOM GLEICHEN TYP WIE DER 'CASE'-AU/ *.-1 TEXT /SDRUCK SEIN./
E48,TEXT /48 TYP DES ARGUMENTS BEI DIESER STANDARDFUNKTION UNZULAESSI/ *.-1 TEXT /G./ E49,TEXT /49 ARRAY-INDIZES UND 'CASE'-MARKEN SIND AUF -2048 < X < 204/ *.-1 TEXT /8 BEGRENZT./ E50,TEXT /50 EINE KONSTANTE KANN NICHT MIT DEM BEZEICHNETEN SYMBOL BE/ *.-1 TEXT /GINNEN./ E51,TEXT /51 SYMBOL := FEHLT (LEERZEICHEN ZWISCHEN : UND = UNZULAESSI/ *.-1 TEXT /G)./ E52,TEXT /52 DAS WORTSYMBOL 'THEN' FEHLT./ E53,TEXT /53 DAS WORTSYMBOL 'UNTIL' FEHLT./ E54,TEXT /54 DAS WORTSYMBOL 'DO' FEHLT./ E55,TEXT /55 DAS WORTSYMBOL 'TO' ODER 'DOWNTO' FEHLT./ E56,TEXT /56 DAS WORTSYMBOL 'BEGIN' FEHLT./ E57,TEXT /57 DAS WORTSYMBOL 'END' FEHLT./ E58,TEXT /58 EIN FAKTOR MUSS MIT NAME, KONSTANTE, 'NOT' ODER LINKSKLA/ *.-1 TEXT /MMER BEGINNEN./ XLIST
EOKAY, TEXT /NO SYNTAX ERRORS./ EHEAD, TEXT /EXPLANATION OF ERROR CODES:/ /L O N G E R R O R M E S S A G E S / /(MADE INVISIBLE BY 'XLIST' TO SAVE PAPER IN ASSEMBLY LISTING!) / XLIST -- PAS Dec. 1982 E00,TEXT / 0 UNDEFINED NAME./ E01,TEXT / 1 MULTIPLE, CONFLICTING DEFINITIONS OF A NAME./ E02,TEXT / 2 MISSING NAME./ E03,TEXT / 3 EVERY PROGRAM MUST BEGIN WITH THE WORD 'PROGRAM'!/ E04,TEXT / 4 MISSING RIGHT PARENTHESIS ')' (DON'T USE ']' HERE)./ E05,TEXT / 5 MISSING COLON. IN DEFINITIONS, A TYPE NAME FOLLOWS : ./ E06,TEXT / 6 IT IS BAD SYNTAX TO USE THIS SYMBOL HERE./ E07,TEXT / 7 ERROR IN FORMAL PARAMETER LIST. NAME? OR MISSING WORD 'VAR'?/ E08,TEXT / 8 MISSING 'OF'./ E09,TEXT / 9 MISSING LEFT PARENTHESIS '(' (DON'T USE '[' HERE)./ E10,TEXT /10 DEFECTIVE TYPE SPECIFICATION (NAME, 'ARRAY' OR 'RECORD')./ E11,TEXT /11 MISSING LEFT BRACKET '[' (DON'T USE '(' HERE)./ E12,TEXT /12 MISSING RIGHT BRACKET ']' (DON'T USE ')' HERE)./ E13,TEXT /13 MISSING '..' (DON'T INSERT SPACES BETWEEN THE DOTS)./ E14,TEXT /14 MISSING SEMI-COLON./ E15,TEXT /15 FUNCTION VALUE MUST BE INTEGER, REAL, BOOLEAN OR CHAR./ E16,TEXT /16 MISSING = (DON'T USE := IN DEFINITIONS)./ E17,TEXT /17 'IF', 'WHILE', 'UNTIL' MUST BE FOLLOWED BY A BOOLEAN / *.-1 TEXT /EXPRESSION./ E18,TEXT /18 'FOR' NEEDS AN INDEX VARIABLE OF TYPE INTEGER, CHAR, OR / *.-1 TEXT /BOOLEAN./ E19,TEXT /19 INITIAL VALUE, FINAL VALUE, AND INDEX MUST ALL BE OF THE/ *.-1 TEXT / SAME TYPE./ E20,TEXT /20 THE WORD 'OUTPUT' MUST APPEAR IN THE PROGRAM HEADER LINE./ E21,TEXT /21 TOO LARGE! MAXINT=34359738367, ABS. REAL VALUES MUST BE/ *.-1 TEXT / < 1.0E+308/ E22,TEXT "22 MISSING PERIOD AT PROGRAM END (MIS-MATCHED 'BEGIN'/'END'?)." E23,TEXT /23 'CASE' NEEDS INTEGER, CHAR, OR BOOLEAN EXPRESSION./ E24,TEXT /24 ILLEGAL SYMBOL./ E25,TEXT /25 TO DEFINE A CONSTANT, FOLLOW = WITH A CONSTANT VALUE OR / *.-1 TEXT /NAME./ E26,TEXT /26 A FIELD INDEX MUST BE OF A DEFINED INDEX TYPE./ E27,TEXT /27 ERROR IN DEFINING FIELD LIMITS. WRONG ORDER? CLASHING TYPES?/ E28,TEXT /28 EVERY SUBSCRIPTED VARIABLE MUST BE DEFINED AS AN ARRAY./
E29,TEXT /29 MISSING TYPE NAME (DON'T DEFINE TYPES IN A PARAMETER LIST)./ E30,TEXT /30 UNDEFINED TYPE./ E31,TEXT /31 A COMPOUND VARIABLE MUST BE DEFINED AS A RECORD./ E32,TEXT /32 'NOT', 'AND', 'OR' REQUIRE BOOLEAN OPERANDS./ E33,TEXT /33 CAN'T DETERMINE TYPE (IN ARITHM. OPERATIONS, ENTIRE ARR/ *.-1 TEXT /AY IS ILLEGAL)./ E34,TEXT /34 'DIV' AND 'MOD' REQUIRE INTEGER OPERANDS./ E35,TEXT /35 COMPARISON BETWEEN INCOMPATIBLE TYPES./ E36,TEXT /36 ACTUAL & FORMAL PARAMETERS MUST BE OF THE SAME TYPE./ E37,TEXT /37 MISSING VARIABLE./ E38,TEXT /38 A STRING MUST HAVE AT LEAST ONE CHARACTER./ E39,TEXT /39 THERE MUST BE AS MANY ACTUAL AS FORMAL PARAMETERS./ E40,TEXT /40 'READ' WILL ONLY ACCEPT TYPES INTEGER, REAL, OR CHAR./ E41,TEXT /41 'WRITE' ONLY ACCEPTS TYPES INTEGER, REAL, BOOLEAN OR CHAR./ E42,TEXT /42 WRITE(X:M:N) IS FOR REAL-VALUED X ONLY./ E43,TEXT /43 WRITE(X:M:N) REQUIRES INTEGER EXPRESSIONS FOR 'M' AND 'N'./ E44,TEXT /44 TYPE AND PROCEDURE NAMES MUST NOT BE USED IN EXPRESSIONS./ E45,TEXT /45 AN INSTRUCTION MAY NOT BEGIN WITH A CONSTANT, A TYPE, OR/ *.-1 TEXT / A FUNCTION./ E46,TEXT /46 ASSIGNMENT OF VALUE: INCOMPATIBLE TYPES./ E47,TEXT /47 'CASE' LABELS AND 'CASE' EXPRESSIONS MUST AGREE IN TYPE./ E48,TEXT /48 ILLEGAL ARGUMENT TYPE FOR THIS FUNCTION./ E49,TEXT /49 SUBSCRIPTS, CASE LABELS ARE LIMITED TO -2048 < X < 2048 ./ E50,TEXT /50 CONSTANT BEGINS WITH AN ILLEGAL CHARACTER./ E51,TEXT /51 MISSING := (USE NO SPACES BETWEEN : AND =)./ E52,TEXT /52 MISSING 'THEN'./ E53,TEXT /53 MISSING 'UNTIL'./ E54,TEXT /54 MISSING 'DO'./ E55,TEXT /55 MISSING 'TO' OR 'DOWNTO'./ E56,TEXT /56 MISSING 'BEGIN'./ E57,TEXT /57 MISSING 'END'./ E58,TEXT /58 A FACTOR MUST BEGIN WITH: NAME, CONSTANT, 'NOT' OR '('./ / XLIST