![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to diff.pr CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / spitbol / 4.3|
Return to diff.pr CVS log | Up to [Research Unix] / researchv10no / cmd / spitbol / 4.3 |
1.1 ! root 1: ! 2: ! 3: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 1 ! 4: ! 5: ! 6: 1,4c1,6 ! 7: < TTL S P I T B O L - REVISION HISTORY ! 8: < EJC ! 9: < * R E V I S I O N H I S T O R Y ! 10: < * ------------------------------- ! 11: --- ! 12: > * CHANGES [SGD] ! 13: > * ------------- ! 14: > * 1. COMMENTED OUT DEFAULT .DEF, .UNDEF AS THESE MACHINE- ! 15: > * DEPENDENT. I SUGGEST AGAIN THAT THESE DO NOT BELONG ! 16: > * IN MINIMAL SOURCE, UNLESS SOMETHING OF THE FORM .*DEF ! 17: > * IS TO BE INCORPORTATED INTO MINIMAL LANGUAGE DEFN. ! 18: 5a8,11 ! 19: > * 2. NOTED THAT DESCRIPTION OF BEV, BOD MISSING FROM ! 20: > * SBL42.CMT MINIMAL DESCRIPTION, AND DISCUSSION OF ! 21: > * "ODD"/"EVEN" AND REQUIREMENTS PERTAINING THERETO ! 22: > * SEEMS INSUFFICIENT. ! 23: 7,8c13,21 ! 24: < * VERSION 3.5B (FEB 81... - SGD PATCHES) ! 25: < * ----------------------------------- ! 26: --- ! 27: > * 3. PERMIT CODE KEYWORD TO CONTAIN ANY INTEGER VALUE. ! 28: > * THIS CONSISTS OF REMOVING THE ENFORCED RESTRICTION ! 29: > * IN ASIGN (SEE ASG24), SINCE CODE CONTAINS NO RELOC. ! 30: > * USE OF KEYWORD VALUE (AS IT SHOULDNT). SBL DOC. ! 31: > * MUST BE UPDATED. ADDRESS OF CODE VALUE NOW PASSED TO ! 32: > * OSINT (KVCOD), INSTEAD OF VALUE ITSELF. HENCE OSINT ! 33: > * DOCUMENTATION MUST LIKEWISE BE REVISED. CHANGES ! 34: > * MADE IN KEYWORD DEFINITION TABLES, PROCEDURES ACESS ! 35: > * AND ASIGN SINCE CODE NOW SPECIAL KEYWORD. ! 36: 10,42c23,24 ! 37: < * SGD03 - ADDITION OF .CNCI AND SYSCI (INT->STRING ! 38: < * SYSTEM ROUTINE OPTION) ! 39: < * SGD04 - (06-MAY-1981) MODIFIED INILN TO 132 ! 40: < * SGD05 - (13-MAY-1981) INSERTED MISSING WTB AFTER SYSMM ! 41: < * CALLS ! 42: < * SGD06 - (25-MAY-1981) MERGED IN PROFILER PATCHES ! 43: < * (NOT MARKED) ! 44: < * SGD07 - (25-MAY-1981) MUCHO PATCHES TO PROFILER (MARKED, ! 45: < * BUT BEST JUST TO EXTRACT ENMASSE) ! 46: < * SGD08 - (25-MAY-1981) USE STRING LENGTH IN HASHS ! 47: < * SGD09 - (25-MAY-1981) FIXED SERIOUS PARSER PROBLEM ! 48: < * RELATING TO (X Y) ON LINE BEING VIEWED AS PATTERN ! 49: < * MATCH. FIXED BY ADDITION OF NEW CMTYP VALUE ! 50: < * C$CNP (CONCATENATION - NOT PATTERN MATCH) ! 51: < * SGD10 - (01-AUG-1981) FIXED EXIT(N) RESPECIFICATION CODE ! 52: < * TO PROPERLY OBSERVE HEADER SEMANTICS ON RETURN. ! 53: < * SGD11 - (07-AUG-1981) BYPASS PRTPG CALL AT INITIALIZATION ! 54: < * FOLLOWING COMPILATION IF NO OUTPUT GENERATED. ! 55: < * THIS PREVENTS OUTPUT FILES CONSISTING OF THE ! 56: < * HEADERS AND A FEW BLANK LINES WHEN THERE IS NO ! 57: < * SOURCE LISTING AND NO COMPILATION STATS. ! 58: < * ALSO FIX TIMSX INITIALIZATION IN SAME CODE. ! 59: < * SGD12 - (17-AUG-1981) B$EFC CODE DID NOT CHECK FOR ! 60: < * UNCONVERTED RESULT RETURNING NULL STRING. FIXED. ! 61: < * SGDBF - ( NOV-1981) ADDED BUFFER TYPE AND SYMBOL CNBF ! 62: ! 63: ! 64: ! 65: ! 66: ! 67: ! 68: ! 69: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 2 ! 70: ! 71: ! 72: < * SGD13 - (03-MAR-1982) LOAD PFVBL FIELD IN RETRN FOR ! 73: < * RETURN TRACING. THIS WAS CAUSING BUG ON RETURN ! 74: < * TRACES THAT TRIED TO ACCESS THE VARIABLE NAME ! 75: < * SGD14 - ADDED CHAR FUNCTION. CHAR(N) RETURNS NTH ! 76: < * CHARACTER OF HOST MACHINE CHARACTER SET. ! 77: < * NOT CONDITIONALIZED OR MARKED. ! 78: < * SGD15 - FIXED PROBLEM RELATING TO COMPILATION OF GOTO ! 79: < * FIELDS CONTAINING SMALL INTEGERS (IN CONST SEC). ! 80: --- ! 81: > * EROSI RETURNS NOW CONTAIN NEW CODE KEYWORD VALUE IN ! 82: > * IA. OSINT DOCUMENTATION MUST BE REVISED. ! 83: 44,48c26,29 ! 84: < * REG01 - (XX-AUG-82) ! 85: < * ADDED CFP$U TO EASE TRANSLATION ON SMALLER ! 86: < * SYSTEMS - CONDITIONAL .CUCF ! 87: < * ADDED LOWER CASE SUPPORT - CONDITIONAL .CULC ! 88: < * ADDED SET I/O FUNCTION - CONDITIONAL .CUST ! 89: --- ! 90: > * INTERESTINGLY, THIS SHOULD PERMIT THE SPITBOL PROGRAM ! 91: > * TO INTERROGATE THE CODE KEYWORD AT THE START OF ! 92: > * EXECUTION TO DETERMINE IF COMPILATION ERRORS ! 93: > * OCCURRED. ! 94: 50,51c31,46 ! 95: < * REG02 - (XX-SEP-82) ! 96: < * CHANGED INILN AND AND INILS TO 258 ! 97: --- ! 98: > * 4. ADD -COPY "FILETAG" CONTROL CARD. -COPY PERMITTED IN ! 99: > * CODE STRINGS. NESTING IS PERMITTED TO ANY LEVEL, ! 100: > * THOUGH OSINT IS FREE TO RESTRICT THE MAXIMUM LEVEL. ! 101: > * NOTE REQUIREMENT FOR FILETAG SPECIFIED AS ! 102: > * STRING CONSTANT SINCE FILETAGS MAY CONTAIN SEMICOLONS. ! 103: > * I HAVE TRIED TO MAKE THIS ENHANCEMENT WITH MINIMUM ! 104: > * (MINIMAL?) AMOUNT OF NEW CODE, SO THE FEATURE IS ! 105: > * NOT CONDITIONALIZED. THE SOLUTION ! 106: > * REQUIRED THE ADDITION OF A NEW BLOCK TYPE (COBLK) TO ! 107: > * BUILD THE INPUT CONTEXT SAVE STACK AS A CHAIN OF ! 108: > * COBLKS. A RECUSIVE SOLUTION ON CMPIL/READR/NEXTS ! 109: > * WOULD HAVE REQUIRED EXTENSIVE MODIFICATIONS AND ! 110: > * SUBSTANTIAL NEW CODE. NOTE THAT FORMS SUCH AS ! 111: > * CODE('-COPY "FILE.SBL"') ARE ACCEPTABLE, WHICH IS ! 112: > * VIEWED AS SIGNIFICANT ENHANCEMENT IN ADDITION TO ! 113: > * COMPILE-TIME INCLUDE. ! 114: 53,59c48,50 ! 115: < * REG03 - (XX-OCT-82) ! 116: < * CONDITIONALIZED THE PAGE EJECT AFTER CALL TO SYSBX ! 117: < * AND ADDED ANOTHER BEFORE CALL TO SYSBX, SO THAT, ! 118: < * IF DESIRED BY THE IMPLEMENTOR, STANDARD OUTPUT ! 119: < * WILL REFLECT ASSIGNMENTS MADE BY EXECUTING PROGRAM ! 120: < * ONLY. CONDITIONAL .CUEJ CONTROLS - IF DEFINED ! 121: < * EJECT IS BEFORE CALL TO SYSBX. ! 122: --- ! 123: > * TO SUPPORT THIS FEATURE, TWO NEW OSINT ROUTINES ARE ! 124: > * DEFINED, SYSSC (START COPY) AND SYSEC (END COPY) WITH ! 125: > * LOGICS DESCRIBED IN THE .CMT FILE. ! 126: 61,63c52,57 ! 127: < * REG04 - (XX-NOV-82) ! 128: ! 129: ! 130: ! 131: ! 132: ! 133: ! 134: ! 135: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 3 ! 136: ! 137: ! 138: < * FIXED DIFFICULTIES WITH LISTINGS DURING EXECUTION ! 139: < * WHEN NO LISTING GENERATED DURING COMPILATION. ! 140: --- ! 141: > * BECAUSE OF ANNOYANCE FACTOR, SOURCE LISTING OF ! 142: > * CODE() INFO VIA -LIST, INCLUDING -COPY INPUT, IS ! 143: > * NO LONGER POSSIBLE. IF THIS IS PERMITTED, THEN ! 144: > * ONE FINDS -COPY INPUT BEING PRINTED ON STD. ! 145: > * OUTPUT CHANNEL (DEPENDING ON STATE OF -LIST), ! 146: > * UNLESS EXPLICIT -NOLIST IS GIVEN. ! 147: 65,67c59,63 ! 148: < * -LIST TO CODE() CAUSED BOMB. FIX IS TO RESET ! 149: < * R$TTL AND R$STL TO NULLS NOT 0 AFTER COMPILATION. ! 150: < * (LISTR AND LISTT EXPECT NULLS) ! 151: --- ! 152: > * 5. THE DOCUMENTATION FOR SYSIO IS INCONSISTENT. IT ! 153: > * SHOWS 0,1,2,3 BEING POSSIBLE INPUTS DEPENDING ON ! 154: > * INPUT/OUTPUT, STD/NONSTD. HOWEVER, IT ALSO APPEARS ! 155: > * (AND IS STATED) THAT SYSIO IS NOT CALLED FOR STD ! 156: > * INPUT/OUTPUT. ! 157: 69,224c65,67 ! 158: < * WHEN LISTING AND STATISTICS ROUTED TO DIFFERENT ! 159: < * FILE THAN EXECUTION OUTPUT, ERROR MESSAGE IS SENT ! 160: < * TO EXECUTION OUTPUT (AND GETS SEPARATED FROM ! 161: < * ... IN STATEMENT ... MSG). LABO1 CALLS SYSAX AND ! 162: < * STOPR DOES NOT CALL SYSAX IF ENTERED FROM LABO1. ! 163: < * ! 164: < * REG05 - (XX-NOV-82) ! 165: < * PREVENT CLEAR() FROM CLOBBERING PROTECTED VARIABLES ! 166: < * AT LABEL SCLR5. ! 167: < * ! 168: < * REG06 - (XX-NOV-82) ! 169: < * FIXED GTEXP FROM ACCEPTING TRAILING SEMICOLON OR ! 170: < * COLON. NOT LEGAL WAY TO END AN EXPRESSION. ! 171: < * ! 172: < * VERSION 3.5A (OCT 79 - SGD PATCHES) ! 173: < * ----------------------------------- ! 174: < * ! 175: < * SGD01 - PATCH IN ASIGN TO FIX MULTIPLE TRAP BLOCK PROBLEM ! 176: < * (ASG10+2) ! 177: < * SGD02 - PATCH IN GTARR TO FIX NULL CONVERT (GTAR9+0) ! 178: < * ! 179: < TTL S P I T B O L -- BASIC INFORMATION ! 180: < EJC ! 181: < * ! 182: < * GENERAL STRUCTURE ! 183: < * ----------------- ! 184: < * ! 185: < * THIS PROGRAM IS A TRANSLATOR FOR A VERSION OF THE SNOBOL4 ! 186: < * PROGRAMMING LANGUAGE. LANGUAGE DETAILS ARE CONTAINED IN ! 187: < * THE MANUAL MACRO SPITBOL BY DEWAR AND MCCANN, TECHNICAL ! 188: < * REPORT 90, UNIVERSITY OF LEEDS 1976. THE LANGUAGE ! 189: < * IS IDENTICAL TO THAT IMPLEMENTED BY THE BTL TRANSLATOR ! 190: < * (R. E. GRISWOLD ET AL.) WITH THE FOLLOWING EXCEPTIONS. ! 191: < * ! 192: < * 1) REDEFINITION OF STANDARD SYSTEM FUNCTIONS AND ! 193: < * OPERATORS IS NOT PERMITTED. ! 194: ! 195: ! 196: ! 197: ! 198: ! 199: ! 200: ! 201: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 4 ! 202: ! 203: ! 204: < * ! 205: < * 2) THE VALUE FUNCTION IS NOT PROVIDED. ! 206: < * ! 207: < * 3) ACCESS TRACING IS PROVIDED IN ADDITION TO THE ! 208: < * OTHER STANDARD TRACE MODES. ! 209: < * ! 210: < * 4) THE KEYWORD STFCOUNT IS NOT PROVIDED. ! 211: < * ! 212: < * 5) THE KEYWORD FULLSCAN IS NOT PROVIDED AND ALL PATTERN ! 213: < * MATCHING TAKES PLACE IN FULLSCAN MODE (I.E. WITH NO ! 214: < * HEURISTICS APPLIED). ! 215: < * ! 216: < * 6) A SERIES OF EXPRESSIONS SEPARATED BY COMMAS MAY ! 217: < * BE GROUPED WITHIN PARENTHESES TO PROVIDE A SELECTION ! 218: < * CAPABILITY. THE SEMANTICS ARE THAT THE SELECTION ! 219: < * ASSUMES THE VALUE OF THE FIRST EXPRESSION WITHIN IT ! 220: < * WHICH SUCCEEDS AS THEY ARE EVALUATED FROM THE LEFT. ! 221: < * IF NO EXPRESSION SUCCEEDS THE ENTIRE STATEMENT FAILS ! 222: < * ! 223: < * 7) AN EXPLICIT PATTERN MATCHING OPERATOR IS PROVIDED. ! 224: < * THIS IS THE BINARY QUERY (SEE GIMPEL SIGPLAN OCT 74) ! 225: < * ! 226: < * 8) THE ASSIGNMENT OPERATOR IS INTRODUCED AS IN THE ! 227: < * GIMPEL REFERENCE. ! 228: < * ! 229: < * 9) THE EXIT FUNCTION IS PROVIDED FOR GENERATING LOAD ! 230: < * MODULES - CF. GIMPELS SITBOL. ! 231: < * ! 232: < * ! 233: < * THE METHOD USED IN THIS PROGRAM IS TO TRANSLATE THE ! 234: < * SOURCE CODE INTO AN INTERNAL PSEUDO-CODE (SEE FOLLOWING ! 235: < * SECTION). AN INTERPRETOR IS THEN USED TO EXECUTE THIS ! 236: < * GENERATED PSEUDO-CODE. THE NATURE OF THE SNOBOL4 LANGUAGE ! 237: < * IS SUCH THAT THE LATTER TASK IS MUCH MORE COMPLEX THAN ! 238: < * THE ACTUAL TRANSLATION PHASE. ACCORDINGLY, NEARLY ALL THE ! 239: < * CODE IN THE PROGRAM SECTION IS CONCERNED WITH THE ACTUAL ! 240: < * EXECUTION OF THE SNOBOL4 PROGRAM. ! 241: < EJC ! 242: < * ! 243: < * INTERPRETIVE CODE FORMAT ! 244: < * ------------------------ ! 245: < * ! 246: < * THE INTERPRETIVE PSEUDO-CODE CONSISTS OF A SERIES OF ! 247: < * ADDRESS POINTERS. THE EXACT FORMAT OF THE CODE IS ! 248: < * DESCRIBED IN CONNECTION WITH THE CDBLK FORMAT. THE ! 249: < * PURPOSE OF THIS SECTION IS TO GIVE GENERAL INSIGHT INTO ! 250: < * THE INTERPRETIVE APPROACH INVOLVED. ! 251: < * ! 252: < * THE BASIC FORM OF THE CODE IS RELATED TO REVERSE POLISH. ! 253: < * IN OTHER WORDS, THE OPERANDS PRECEDE THE OPERATORS WHICH ! 254: < * ARE ZERO ADDRESS OPERATORS. THERE ARE SOME EXCEPTIONS TO ! 255: < * THESE RULES, NOTABLY THE UNARY NOT OPERATOR AND THE ! 256: < * SELECTION CONSTRUCTION WHICH CLEARLY REQUIRE ADVANCE ! 257: < * KNOWLEDGE OF THE OPERATOR INVOLVED. ! 258: < * ! 259: < * THE OPERANDS ARE MOVED TO THE TOP OF THE MAIN STACK AND ! 260: ! 261: ! 262: ! 263: ! 264: ! 265: ! 266: ! 267: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 5 ! 268: ! 269: ! 270: < * THE OPERATORS ARE APPLIED TO THE TOP STACK ENTRIES. LIKE ! 271: < * OTHER VERSIONS OF SPITBOL, THIS PROCESSOR DEPENDS ON ! 272: < * KNOWING WHETHER OPERANDS ARE REQUIRED BY NAME OR BY VALUE ! 273: < * AND MOVES THE APPROPRIATE OBJECT TO THE STACK. THUS NO ! 274: < * NAME/VALUE CHECKS ARE INCLUDED IN THE OPERATOR CIRCUITS. ! 275: < * ! 276: < * THE ACTUAL POINTERS IN THE CODE POINT TO A BLOCK WHOSE ! 277: < * FIRST WORD IS THE ADDRESS OF THE INTERPRETOR ROUTINE ! 278: < * TO BE EXECUTED FOR THE CODE WORD. ! 279: < * ! 280: < * IN THE CASE OF OPERATORS, THE POINTER IS TO A WORD WHICH ! 281: < * CONTAINS THE ADDRESS OF THE OPERATOR TO BE EXECUTED. IN ! 282: < * THE CASE OF OPERANDS SUCH AS CONSTANTS, THE POINTER IS TO ! 283: < * THE OPERAND ITSELF. ACCORDINGLY, ALL OPERANDS CONTAIN ! 284: < * A FIELD WHICH POINTS TO THE ROUTINE TO LOAD THE VALUE OF ! 285: < * THE OPERAND ONTO THE STACK. IN THE CASE OF A VARIABLE, ! 286: < * THERE ARE THREE SUCH POINTERS. ONE TO LOAD THE VALUE, ! 287: < * ONE TO STORE THE VALUE AND A THIRD TO JUMP TO THE LABEL. ! 288: < * ! 289: < * THE HANDLING OF FAILURE RETURNS DESERVES SPECIAL COMMENT. ! 290: < * THE LOCATION FLPTR CONTAINS THE POINTER TO THE LOCATION ! 291: < * ON THE MAIN STACK WHICH CONTAINS THE FAILURE RETURN ! 292: < * WHICH IS IN THE FORM OF A BYTE OFFSET IN THE CURRENT ! 293: < * CODE BLOCK (CDBLK OR EXBLK). WHEN A FAILURE OCCURS, THE ! 294: < * STACK IS POPPED AS INDICATED BY THE SETTING OF FLPTR AND ! 295: < * CONTROL IS PASSED TO THE APPROPRIATE LOCATION IN THE ! 296: < * CURRENT CODE BLOCK WITH THE STACK POINTER POINTING TO THE ! 297: < * FAILURE OFFSET ON THE STACK AND FLPTR UNCHANGED. ! 298: < EJC ! 299: < * ! 300: < * INTERNAL DATA REPRESENTATIONS ! 301: < * ----------------------------- ! 302: < * ! 303: < * REPRESENTATION OF VALUES ! 304: < * ! 305: < * A VALUE IS REPRESENTED BY A POINTER TO A BLOCK WHICH ! 306: < * DESCRIBES THE TYPE AND PARTICULARS OF THE DATA VALUE. ! 307: < * IN GENERAL, A VARIABLE IS A LOCATION CONTAINING SUCH A ! 308: < * POINTER (ALTHOUGH IN THE CASE OF TRACE ASSOCIATIONS THIS ! 309: < * IS MODIFIED, SEE DESCRIPTION OF TRBLK). ! 310: < * ! 311: < * THE FOLLOWING IS A LIST OF POSSIBLE DATATYPES SHOWING THE ! 312: < * TYPE OF BLOCK USED TO HOLD THE VALUE. THE DETAILS OF ! 313: < * EACH BLOCK FORMAT ARE GIVEN LATER. ! 314: < * ! 315: < * DATATYPE BLOCK TYPE ! 316: < * -------- ---------- ! 317: < * ! 318: < * ! 319: < * ARRAY ARBLK OR VCBLK ! 320: < * ! 321: < * CODE CDBLK ! 322: < * ! 323: < * EXPRESSION EXBLK OR SEBLK ! 324: < * ! 325: < * INTEGER ICBLK ! 326: ! 327: ! 328: ! 329: ! 330: ! 331: ! 332: ! 333: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 6 ! 334: ! 335: ! 336: < * ! 337: < * NAME NMBLK ! 338: < * ! 339: < * PATTERN P0BLK OR P1BLK OR P2BLK ! 340: < * ! 341: < * REAL RCBLK ! 342: < * ! 343: < * STRING SCBLK ! 344: --- ! 345: > * 6. SINCE -PRINT,-NOPRINT REMOVED IN V4, I HAVE ! 346: > * REINSTATED THE CIRCUIT IN NEXTS TO AVOID LISTING ! 347: > * CONTROL CARDS (-COPY FORCES LIST IN CNCRD THOUGH). ! 348: 226c69,70 ! 349: < * TABLE TBBLK ! 350: --- ! 351: > * 7. WA NOW CONTAINS THE INITIAL VALUE OF &CODE ON ENTRY ! 352: > * TO SPITBOL. ! 353: 228,229c72,77 ! 354: < * PROGRAM DATATYPE PDBLK ! 355: < EJC ! 356: --- ! 357: > * 8. ADDED DDC (DEFINE DISPLAY CONSTANT). IS IDENTICAL ! 358: > * TO DTC EXCEPT THAT ON SYSTEMS SUPPORTING LOWER CASE, ! 359: > * THE DISPLAY TEXT CAN BE TRANSLATED WITH A ! 360: > * CASE MIX. FOR EXAMPLE, CAPITALIZE ONLY THE FIRST ! 361: > * LETTER, OR THE FIRST LETTER OF EVERY WORD, OR NO ! 362: > * UPPER CASE (FOR EUNICHS), ETC. ! 363: 231,232c79,81 ! 364: < * REPRESENTATION OF VARIABLES ! 365: < * --------------------------- ! 366: --- ! 367: > * 9. FIX MINOR OVERSIGHT IN FAILING TO CLEAR R$PMB AT ! 368: > * END OF PATTERN MATCH, THUS LEAVING PTR TO BCBLK ! 369: > * THAT CANNOT BE COLLECTED. ! 370: 234,238c83,92 ! 371: < * DURING THE COURSE OF EVALUATING EXPRESSIONS, IT IS ! 372: < * NECESSARY TO GENERATE NAMES OF VARIABLES (FOR EXAMPLE ! 373: < * ON THE LEFT SIDE OF A BINARY EQUALS OPERATOR). THESE ARE ! 374: < * NOT TO BE CONFUSED WITH OBJECTS OF DATATYPE NAME WHICH ! 375: < * ARE IN FACT VALUES. ! 376: --- ! 377: > * 10. AFTER CONSULTATION WITH DAVE SHIELDS, IT WAS AGREED ! 378: > * TO REINSTATE ARG,FIELD,ITEM AND LOCAL FUNCTIONS. ! 379: > * COMMENTS WERE RECEIVED THAT REMOVING THEM BREAKS ! 380: > * EXISTING CODE IN DIFFICULT-TO-FIX WAYS, INCLUDING ! 381: > * A NUMBER OF THE UTILITY ROUTINES IN GIMPELS BOOK. ! 382: > * IN ANY EVENT, THESE ARE SNOBOL4 COMPATIBILITY ! 383: > * FUNCTIONS THAT TAKE LITTLE CODE SPACE. AS A ! 384: > * RESULT OF THIS, AND -COPY, ERROR NUMBERS HAVE ! 385: > * BEEN PUSHED BACK OVER THE 255 THRESHOLD, WHICH ! 386: > * SEEMS UNAVOIDABLE UNLESS MAJOR SURGERY IS DONE. ! 387: 240,250c94,95 ! 388: < * FROM A LOGICAL POINT OF VIEW, SUCH NAMES COULD BE SIMPLY ! 389: < * REPRESENTED BY A POINTER TO THE APPROPRIATE VALUE CELL. ! 390: < * HOWEVER IN THE CASE OF ARRAYS AND PROGRAM DEFINED ! 391: < * DATATYPES, THIS WOULD VIOLATE THE RULE THAT THERE MUST BE ! 392: ! 393: ! 394: ! 395: ! 396: ! 397: ! 398: ! 399: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 7 ! 400: ! 401: ! 402: < * NO POINTERS INTO THE MIDDLE OF A BLOCK IN DYNAMIC STORE. ! 403: < * ACCORDINGLY, A NAME IS ALWAYS REPRESENTED BY A BASE AND ! 404: < * OFFSET. THE BASE POINTS TO THE START OF THE BLOCK ! 405: < * CONTAINING THE VARIABLE VALUE AND THE OFFSET IS THE ! 406: < * OFFSET WITHIN THIS BLOCK IN BYTES. THUS THE ADDRESS ! 407: < * OF THE ACTUAL VARIABLE IS DETERMINED BY ADDING THE BASE ! 408: < * AND OFFSET VALUES. ! 409: --- ! 410: > * 11. VERSION ID CHANGED TO V4.3 DUE TO SUBSTANTIAL ! 411: > * CHANGES. ! 412: 252,253c97,98 ! 413: < * THE FOLLOWING ARE THE INSTANCES OF VARIABLES REPRESENTED ! 414: < * IN THIS MANNER. ! 415: --- ! 416: > * 12. PERMIT DOLLAR SIGN IN VARIABLE NAMES. MINOR ! 417: > * CHANGE TO OPERATOR TABLE AND SCANE. ! 418: 255,256c100,103 ! 419: < * 1) NATURAL VARIABLE BASE IS PTR TO VRBLK ! 420: < * OFFSET IS *VRVAL ! 421: --- ! 422: > * 13. PERMIT BUFFER TYPE FOR LOAD SPECIFICATION. AS ! 423: > * A SIDE-EFFECT, THE CODE FOR BUFFER CONVERSION HAS ! 424: > * BEEN CENTRALIZED IN GTBUF. ALSO FIXED PADDING ! 425: > * BUG IN INSBF RELATED TO ZERO PADDING. ! 426: 258,259c105,108 ! 427: < * 2) TABLE ELEMENT BASE IS PTR TO TEBLK ! 428: < * OFFSET IS *TEVAL ! 429: --- ! 430: > * 14. DOCUMENT THAT SYSIL MUST NEVER REQUEST ZERO BYTES. ! 431: > * DOING SO CAUSES ACESS TO POTENTIALLY CREATE ! 432: > * INVALID MEMORY CAUSING LATER GARBAGE COLLECTOR ! 433: > * PROBLEMS OR MISADJUSTMENTS OF DNAMP, ETC. ! 434: 261,262c110,112 ! 435: < * 3) ARRAY ELEMENT BASE IS PTR TO ARBLK ! 436: < * OFFSET IS OFFSET TO ELEMENT ! 437: --- ! 438: > * 15. VDIFFER FUNCTION ADDED. VDIFFER(X,Y) RETURNS X ! 439: > * IF DIFFERENT FROM Y. IN MOST CASES IT IS EXPECTED ! 440: > * THAT Y WOULD BE NULL. ! 441: 264,281c114 ! 442: < * 4) VECTOR ELEMENT BASE IS PTR TO VCBLK ! 443: < * OFFSET IS OFFSET TO ELEMENT ! 444: < * ! 445: < * 5) PROG DEF DTP BASE IS PTR TO PDBLK ! 446: < * OFFSET IS OFFSET TO FIELD VALUE ! 447: < * ! 448: < * IN ADDITION THERE ARE TWO CASES OF OBJECTS WHICH ARE ! 449: < * LIKE VARIABLES BUT CANNOT BE HANDLED IN THIS MANNER. ! 450: < * THESE ARE CALLED PSEUDO-VARIABLES AND ARE REPRESENTED ! 451: < * WITH A SPECIAL BASE POINTER AS FOLLOWS= ! 452: < * ! 453: < * EXPRESSION VARIABLE PTR TO EVBLK (SEE EVBLK) ! 454: < * ! 455: < * KEYWORD VARIABLE PTR TO KVBLK (SEE KVBLK) ! 456: < * ! 457: < * PSEUDO-VARIABLES ARE HANDLED AS SPECIAL CASES BY THE ! 458: ! 459: ! 460: ! 461: ! 462: ! 463: ! 464: ! 465: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 8 ! 466: ! 467: ! 468: < * ACCESS PROCEDURE (ACESS) AND THE ASSIGNMENT PROCEDURE ! 469: < * (ASIGN). SEE THESE TWO PROCEDURES FOR DETAILS. ! 470: --- ! 471: > SEC FORMAL START OF PROCEDURES SECTION ! 472: 284,411d116 ! 473: < * ORGANIZATION OF DATA AREA ! 474: < * ------------------------- ! 475: < * ! 476: < * ! 477: < * THE DATA AREA IS DIVIDED INTO TWO REGIONS. ! 478: < * ! 479: < * STATIC AREA ! 480: < * ! 481: < * THE STATIC AREA BUILDS UP FROM THE BOTTOM AND CONTAINS ! 482: < * DATA AREAS WHICH ARE ALLOCATED DYNAMICALLY BUT ARE NEVER ! 483: < * DELETED OR MOVED AROUND. THE MACRO-PROGRAM ITSELF ! 484: < * USES THE STATIC AREA FOR THE FOLLOWING. ! 485: < * ! 486: < * 1) ALL VARIABLE BLOCKS (VRBLK). ! 487: < * ! 488: < * 2) THE HASH TABLE FOR VARIABLE BLOCKS. ! 489: < * ! 490: < * 3) MISCELLANEOUS BUFFERS AND WORK AREAS (SEE PROGRAM ! 491: < * INITIALIZATION SECTION). ! 492: < * ! 493: < * IN ADDITION, THE SYSTEM PROCEDURES MAY USE THIS AREA FOR ! 494: < * INPUT/OUTPUT BUFFERS, EXTERNAL FUNCTIONS ETC. SPACE IN ! 495: < * THE STATIC REGION IS ALLOCATED BY CALLING PROCEDURE ALOST ! 496: < * ! 497: < * THE FOLLOWING GLOBAL VARIABLES DEFINE THE CURRENT ! 498: < * LOCATION AND SIZE OF THE STATIC AREA. ! 499: < * ! 500: < * STATB ADDRESS OF START OF STATIC AREA ! 501: < * STATE ADDRESS+1 OF LAST WORD IN AREA. ! 502: < * ! 503: < * THE MINIMUM SIZE OF STATIC IS GIVEN APPROXIMATELY BY ! 504: < * 12 + *E$HNB + *E$STS + SPACE FOR ALPHABET STRING ! 505: < * AND STANDARD PRINT BUFFER. ! 506: < EJC ! 507: < * ! 508: < * DYNAMIC AREA ! 509: < * ! 510: < * THE DYNAMIC AREA IS BUILT UPWARDS IN MEMORY AFTER THE ! 511: < * STATIC REGION. DATA IN THIS AREA MUST ALL BE IN STANDARD ! 512: < * BLOCK FORMATS SO THAT IT CAN BE PROCESSED BY THE GARBAGE ! 513: < * COLLECTOR (PROCEDURE GBCOL). GBCOL COMPACTS BLOCKS DOWN ! 514: < * IN THIS REGION AS REQUIRED BY SPACE EXHAUSTION AND CAN ! 515: < * ALSO MOVE ALL BLOCKS UP TO ALLOW FOR EXPANSION OF THE ! 516: < * STATIC REGION. ! 517: < * WITH THE EXCEPTION OF TABLES AND ARRAYS, NO SPITBOL ! 518: < * OBJECT ONCE BUILT IN DYNAMIC MEMORY IS EVER SUBSEQUENTLY ! 519: < * MODIFIED. OBSERVING THIS RULE NECESSITATES A COPYING ! 520: < * ACTION DURING STRING AND PATTERN CONCATENATION. ! 521: < * ! 522: < * GARBAGE COLLECTION IS FUNDAMENTAL TO THE ALLOCATION OF ! 523: < * SPACE FOR VALUES. SPITBOL USES A VERY EFFICIENT GARBAGE ! 524: ! 525: ! 526: ! 527: ! 528: ! 529: ! 530: ! 531: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 9 ! 532: ! 533: ! 534: < * COLLECTOR WHICH INSISTS THAT POINTERS INTO DYNAMIC STORE ! 535: < * SHOULD BE IDENTIFIABLE WITHOUT USE OF BIT TABLES, ! 536: < * MARKER BITS ETC. TO SATISFY THIS REQUIREMENT, DYNAMIC ! 537: < * MEMORY MUST NOT START AT TOO LOW AN ADDRESS AND LENGTHS ! 538: < * OF ARRAYS, TABLES, STRINGS, CODE AND EXPRESSION BLOCKS ! 539: < * MAY NOT EXCEED THE NUMERICAL VALUE OF THE LOWEST DYNAMIC ! 540: < * ADDRESS. TO AVOID EITHER PENALIZING USERS WITH MODEST ! 541: < * REQUIREMENTS OR RESTRICTING THOSE WITH GREATER NEEDS ON ! 542: < * HOST SYSTEMS WHERE DYNAMIC MEMORY IS ALLOCATED IN LOW ! 543: < * ADDRESSES, THE MINIMUM DYNAMIC ADDRESS MAY BE SPECIFIED ! 544: < * SUFFICIENTLY HIGH TO PERMIT ARBITRARILY LARGE SPITBOL ! 545: < * OBJECTS TO BE CREATED ( WITH THE POSSIBILITY IN EXTREME ! 546: < * CASES OF WASTING LARGE AMOUNTS OF MEMORY BELOW THE ! 547: < * START ADDRESS). THIS MINIMUM VALUE IS MADE AVAILABLE ! 548: < * IN VARIABLE MXLEN BY A SYSTEM ROUTINE, SYSMX. ! 549: < * ALTERNATIVELY SYSMX MAY INDICATE THAT A ! 550: < * DEFAULT MAY BE USED IN WHICH DYNAMIC IS PLACED ! 551: < * AT THE LOWEST POSSIBLE ADDRESS FOLLOWING STATIC. ! 552: < * ! 553: < * THE FOLLOWING GLOBAL WORK CELLS DEFINE THE LOCATION AND ! 554: < * LENGTH OF THE DYNAMIC AREA. ! 555: < * ! 556: < * DNAMB START OF DYNAMIC AREA ! 557: < * DNAMP NEXT AVAILABLE LOCATION ! 558: < * DNAME LAST AVAILABLE LOCATION + 1 ! 559: < * ! 560: < * DNAMB IS ALWAYS HIGHER THAN STATE SINCE THE ALOST ! 561: < * PROCEDURE MAINTAINS SOME EXPANSION SPACE ABOVE STATE. ! 562: < * *** DNAMB MUST NEVER BE PERMITTED TO HAVE A VALUE LESS ! 563: < * THAN THAT IN MXLEN *** ! 564: < * ! 565: < * SPACE IN THE DYNAMIC REGION IS ALLOCATED BY THE ALLOC ! 566: < * PROCEDURE. THE DYNAMIC REGION MAY BE USED BY SYSTEM ! 567: < * PROCEDURES PROVIDED THAT ALL THE RULES ARE OBEYED. ! 568: < EJC ! 569: < * ! 570: < * REGISTER USAGE ! 571: < * -------------- ! 572: < * ! 573: < * (CP) CODE POINTER REGISTER. USED TO ! 574: < * HOLD A POINTER TO THE CURRENT ! 575: < * LOCATION IN THE INTERPRETIVE PSEUDO ! 576: < * CODE (I.E. PTR INTO A CDBLK). ! 577: < * ! 578: < * (XL,XR) GENERAL INDEX REGISTERS. USUALLY ! 579: < * USED TO HOLD POINTERS TO BLOCKS IN ! 580: < * DYNAMIC STORAGE. AN IMPORTANT ! 581: < * RESTRICTION IS THAT THE VALUE IN ! 582: < * XL MUST BE COLLECTABLE FOR ! 583: < * A GARBAGE COLLECT CALL. A VALUE ! 584: < * IS COLLECTABLE IF IT EITHER POINTS ! 585: < * OUTSIDE THE DYNAMIC AREA, OR IF IT ! 586: < * POINTS TO THE START OF A BLOCK IN ! 587: < * THE DYNAMIC AREA. ! 588: < * ! 589: < * (XS) STACK POINTER. USED TO POINT TO ! 590: ! 591: ! 592: ! 593: ! 594: ! 595: ! 596: ! 597: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 10 ! 598: ! 599: ! 600: < * THE STACK FRONT. THE STACK MAY ! 601: < * BUILD UP OR DOWN AND IS USED ! 602: < * TO STACK SUBROUTINE RETURN POINTS ! 603: < * AND OTHER RECURSIVELY SAVED DATA. ! 604: < * ! 605: < * (XT) AN ALTERNATIVE NAME FOR XL DURING ! 606: < * ITS USE IN ACCESSING STACKED ITEMS. ! 607: < * ! 608: < * (WA,WB,WC) GENERAL WORK REGISTERS. CANNOT BE ! 609: < * USED FOR INDEXING, BUT MAY HOLD ! 610: < * VARIOUS TYPES OF DATA. ! 611: < * ! 612: < * (IA) USED FOR ALL SIGNED INTEGER ! 613: < * ARITHMETIC, BOTH THAT USED BY THE ! 614: < * TRANSLATOR AND THAT ARISING FROM ! 615: < * USE OF SNOBOL4 ARITHMETIC OPERATORS ! 616: < * ! 617: < * (RA) REAL ACCUMULATOR. USED FOR ALL ! 618: < * FLOATING POINT ARITHMETIC. ! 619: < EJC ! 620: < * ! 621: 416,422c121,134 ! 622: < * ASSEMBLY SYMBOLS ARE REFERRED TO. TO INCORPORATE THE ! 623: < * FEATURES REFERRED TO, THE MINIMAL SOURCE SHOULD BE ! 624: < * PREFACED BY SUITABLE CONDITIONAL ASSEMBLY SYMBOL ! 625: < * DEFINITIONS. ! 626: < * IN ALL CASES IT IS PERMISSIBLE TO DEFAULT THE DEFINITIONS ! 627: < * IN WHICH CASE THE ADDITIONAL FEATURES WILL BE OMITTED ! 628: < * FROM THE TARGET CODE. ! 629: --- ! 630: > * ASSEMBLY SYMBOLS ARE REFERRED TO. ! 631: > * A PARTICULAR SET OF DEFAULT SETTINGS IS GIVEN IN THIS ! 632: > * SOURCE BY USE OF .DEF AND .UNDEF PSEUDO OPS. ! 633: > * A DIFFERENT SELECTION MAY BE MADE BY VARYING THE ! 634: > * DEFINITIONS. AS AN ALTERNATIVE, THIS SECTION MAY BE ! 635: > * COMMENTED OUT AND THE MINIMAL TRANSLATOR PRELOADED WITH ! 636: > * THE SELECTED DEFINITIONS, THUS ALLOWING A MORE DYNAMIC ! 637: > * CHOICE TO BE MADE. ! 638: > * SOME OF THE CONDITIONAL FEATURES CHOOSE AMONGST A VARIETY ! 639: > * OF OPTIONS. OTHERS ARE DEFINED PRINCIPALLY TO ALLOW ! 640: > * OMISSION OF A FEATURE WHICH IS NOT WANTED IN ORDER TO ! 641: > * SAVE MEMORY OR BECAUSE IT CANNOT BE SUPPORTED. ! 642: > * NOTE THAT IF .CPLC OPTION IS CHOSEN, TRANSLATION OF DTC, ! 643: > * ERR, ERB ARGUMENTS SHOULD BE TO LOWER CASE. ! 644: 424,505c136,158 ! 645: < * .CASL DEFINE TO INCLUDE 26 SHIFTED LETTRS ! 646: < * .CAHT DEFINE TO INCLUDE HORIZONTAL TAB ! 647: < * .CAVT DEFINE TO INCLUDE VERTICAL TAB ! 648: < * .CIOD IF DEFINED, DEFAULT DELIMITER IS ! 649: < * NOT USED IN PROCESSING 3RD ARG OF ! 650: < * INPUT() AND OUTPUT() ! 651: < * .CNBT DEFINE TO OMIT BATCH INITIALISATION ! 652: < * .CNCI DEFINE TO ENABLE SYSCI ROUTINE ! 653: < * .CNEX DEFINE TO OMIT EXIT() CODE. ! 654: < * .CNLD DEFINE TO OMIT LOAD() CODE. ! 655: < * .CNPF DEFINE TO OMIT PROFILE STUFF ! 656: ! 657: ! 658: ! 659: ! 660: ! 661: ! 662: ! 663: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 11 ! 664: ! 665: ! 666: < * .CNRA DEFINE TO OMIT ALL REAL ARITHMETIC ! 667: < * .CNSR DEFINE TO OMIT SORT, RSORT ! 668: < * .CSAX DEFINE IF SYSAX IS TO BE CALLED ! 669: < * .CSN6 DEFINE TO PAD STMT NOS TO 6 CHARS ! 670: < * .CSN8 DEFINE TO PAD STMT NOS TO 8 CHARS ! 671: < * .CUCF DEFINE TO INCLUDE CFP$U ! 672: < * .CULC DEFINE TO INCLUDE &CASE (LC NAMES) ! 673: < * .CUST DEFINE TO INCLUDE SET() CODE ! 674: < .DEF .CASL ! 675: < .DEF .CAHT ! 676: < .DEF .CIOD ! 677: < .DEF .CSAX ! 678: < .DEF .CSN8 ! 679: < .DEF .CUCF ! 680: < .DEF .CUEJ ! 681: < .DEF .CULC ! 682: < .DEF .CUST ! 683: < TTL S P I T B O L -- PROCEDURES SECTION ! 684: < * ! 685: < * THIS SECTION STARTS WITH DESCRIPTIONS OF THE OPERATING ! 686: < * SYSTEM DEPENDENT PROCEDURES WHICH ARE USED BY THE SPITBOL ! 687: < * TRANSLATOR. ALL SUCH PROCEDURES HAVE FIVE LETTER NAMES ! 688: < * BEGINNING WITH SYS. THEY ARE LISTED IN ALPHABETICAL ! 689: < * ORDER. ! 690: < * ALL PROCEDURES HAVE A SPECIFICATION CONSISTING OF A ! 691: < * MODEL CALL, PRECEDED BY A POSSIBLY EMPTY LIST OF REGISTER ! 692: < * CONTENTS GIVING PARAMETERS AVAILABLE TO THE PROCEDURE AND ! 693: < * FOLLOWED BY A POSSIBLY EMPTY LIST OF REGISTER CONTENTS ! 694: < * REQUIRED ON RETURN FROM THE CALL OR WHICH MAY HAVE HAD ! 695: < * THEIR CONTENTS DESTROYED. ONLY THOSE REGISTERS EXPLICITLY ! 696: < * MENTIONED IN THE LIST AFTER THE CALL MAY HAVE THEIR ! 697: < * VALUES CHANGED. ! 698: < * THE SEGMENT OF CODE PROVIDING THE EXTERNAL PROCEDURES IS ! 699: < * CONVENIENTLY REFERRED TO AS OSINT (OPERATING SYSTEM ! 700: < * INTERFACE). THE SYSXX PROCEDURES IT CONTAINS PROVIDE ! 701: < * FACILITIES NOT USUALLY AVAILABLE AS PRIMITIVES IN ! 702: < * ASSEMBLY LANGUAGES. FOR PARTICULAR TARGET MACHINES, ! 703: < * IMPLEMENTORS MAY CHOOSE FOR SOME MINIMAL OPCODES WHICH ! 704: < * DO NOT HAVE REASONABLY DIRECT TRANSLATIONS, TO USE CALLS ! 705: < * OF ADDITIONAL PROCEDURES WHICH THEY PROVIDE IN OSINT. ! 706: < * E.G. MWB OR TRC MIGHT BE TRANSLATED AS JSR SYSMB, ! 707: < * JSR SYSTC IN SOME IMPLEMENTATIONS. ! 708: < * ! 709: < * IN THE DESCRIPTIONS, REFERENCE IS MADE TO --BLK ! 710: < * FORMATS (-- = A PAIR OF LETTERS). SEE THE SPITBOL ! 711: < * DEFINITIONS SECTION FOR DETAILED DESCRIPTIONS OF ALL ! 712: < * SUCH BLOCK FORMATS EXCEPT FCBLK FOR WHICH SYSFC SHOULD ! 713: < * BE CONSULTED. ! 714: < * ! 715: < * SECTION 0 CONTAINS INP,INR SPECIFICATIONS OF INTERNAL ! 716: < * PROCEDURES,ROUTINES. THIS GIVES A SINGLE PASS TRANSLATOR ! 717: < * INFORMATION MAKING IT EASY TO GENERATE ALTERNATIVE CALLS ! 718: < * IN THE TRANSLATION OF JSR-S FOR PROCEDURES OF DIFFERENT ! 719: < * TYPES IF THIS PROVES NECESSARY. ! 720: < * ! 721: < SEC START OF PROCEDURES SECTION ! 722: ! 723: ! 724: ! 725: ! 726: ! 727: ! 728: ! 729: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 12 ! 730: ! 731: ! 732: < .IF .CSAX ! 733: < EJC ! 734: < * ! 735: < * SYSAX -- AFTER EXECUTION ! 736: < * ! 737: < SYSAX EXP DEFINE EXTERNAL ENTRY POINT ! 738: < * ! 739: < * IF THE CONDITIONAL ASSEMBLY SYMBOL .CSAX IS DEFINED, ! 740: < * THIS ROUTINE IS CALLED IMMEDIATELY AFTER EXECUTION AND ! 741: < * BEFORE PRINTING OF EXECUTION STATISTICS OR DUMP OUTPUT. ! 742: < * PURPOSE OF CALL IS FOR IMPLEMENTOR TO DETERMINE AND ! 743: < * IF THE CALL IS NOT REQUIRED IT WILL BE OMITTED IF .CSAX ! 744: < * IS UNDEFINED. IN THIS CASE SYSAX NEED NOT BE CODED. ! 745: < * ! 746: < * JSR SYSAX CALL AFTER EXECUTION ! 747: --- ! 748: > *.DEF .CAHT DEFINE TO INCLUDE HORIZONTAL TAB ! 749: > *.DEF .CASL DEFINE TO INCLUDE 26 SHIFTED LETTRS ! 750: > *.DEF .CAVT DEFINE TO INCLUDE VERTICAL TAB ! 751: > *.UNDEF .CEPP DEFINE FOR ODD PARITY ENTRY POINTS ! 752: > *.UNDEF .CNBF DEFINE TO OMIT BUFFER EXTENSION ! 753: > *.UNDEF .CNBT DEFINE TO OMIT BATCH INITIALISATION ! 754: > *.UNDEF .CNEX DEFINE TO OMIT EXIT() CODE ! 755: > *.UNDEF .CNFN DEFINE TO OMIT FENCE() CODE ! 756: > *.UNDEF .CNLD DEFINE TO OMIT LOAD() CODE ! 757: > *.UNDEF .CNPF DEFINE TO OMIT PROFILE CODE ! 758: > *.UNDEF .CNRA DEFINE TO OMIT ALL REAL ARITHMETIC ! 759: > *.UNDEF .CNSR DEFINE TO OMIT SORT, RSORT CODE ! 760: > *.DEF .CPLC DEFINE IF HOST PREFERS LOWER CASE ! 761: > *.UNDEF .CRPP DEFINE FOR ODD PARITY RETURN POINTS ! 762: > *.UNDEF .CS16 DEFINE TO INITIALIZE STLIM TO 32767 ! 763: > *.UNDEF .CSAX DEFINE IF SYSAX IS TO BE CALLED ! 764: > *.UNDEF .CSCI DEFINE TO ENABLE SYSCI ROUTINE ! 765: > *.UNDEF .CSCV DEFINE FOR CLU, CUL CASE CONVERSION ! 766: > *.DEF .CSIG DEFINE TO IGNORE CASE OF LETTERS ! 767: > *.UNDEF .CSN6 DEFINE TO PAD STMT NOS TO 6 CHARS ! 768: > *.DEF .CSN8 DEFINE TO PAD STMT NOS TO 8 CHARS ! 769: > *.UNDEF .CTMD DEFINE IF SYSTM UNIT IS DECISECOND ! 770: > .IF .CASL ! 771: 506a160,161 ! 772: > .UNDEF .CSIG .CSIG USELESS WITHOUT LC LETTERS ! 773: > .UNDEF .CPLC .CPLC ERRONEOUS WITHOUT LC LETTERS ! 774: 510c165 ! 775: < * SYSBX -- BEFORE EXECUTION ! 776: --- ! 777: > * ACTUAL PROCESSABLE EXP PROCEDURE DEFINITIONS ! 778: 512,547c167,169 ! 779: < SYSBX EXP DEFINE EXTERNAL ENTRY POINT ! 780: < * ! 781: < * CALLED AFTER INITIAL SPITBOL COMPILATION AND BEFORE ! 782: < * COMMENCING EXECUTION IN CASE OSINT NEEDS ! 783: < * TO ASSIGN FILES OR PERFORM OTHER NECESSARY SERVICES. ! 784: < * OSINT MAY ALSO CHOOSE TO SEND A MESSAGE TO ONLINE ! 785: < * TERMINAL (IF ANY) INDICATING THAT EXECUTION IS STARTING. ! 786: < * ! 787: < * JSR SYSBX CALL BEFORE EXECUTION STARTS ! 788: ! 789: ! 790: ! 791: ! 792: ! 793: ! 794: ! 795: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 13 ! 796: ! 797: ! 798: < EJC ! 799: < .IF .CNCI ! 800: < * ! 801: < * SYSCI -- CONVERT INTEGER ! 802: < * ! 803: < SYSCI EXP ! 804: < * ! 805: < * SYSCI IS AN OPTIONAL OSINT ROUTINE THAT CAUSES SPITBOL TO ! 806: < * CALL SYSCI TO CONVERT INTEGER VALUES TO STRINGS, RATHER ! 807: < * THAN USING SPITBOL'S OWN INTERNAL CONVERSION CODE. THIS ! 808: < * CODE MAY BE LESS EFFICIENT ON MACHINES WITH HARDWARE ! 809: < * CONVERSION INSTRUCTIONS AND IN SUCH CASES, IT MAY BE AN ! 810: < * ADVANTAGE TO INCLUDE SYSCI. THE SYMBOL .CNCI MUST BE ! 811: < * DEFINED IF THIS ROUTINE IS TO BE USED. ! 812: < * ! 813: < * THE RULES FOR CONVERTING INTEGERS TO STRINGS ARE THAT ! 814: < * POSITIVE VALUES ARE REPRESENTED WITHOUT ANY SIGN, AND ! 815: < * THERE ARE NEVER ANY LEADING BLANKS OR ZEROS, EXCEPT IN ! 816: < * THE CASE OF ZERO ITSELF WHICH IS REPRESENTED AS A SINGLE ! 817: < * ZERO DIGIT. NEGATIVE NUMBERS ARE REPRESENTED WITH A ! 818: < * PRECEEDING MINUS SIGN. THERE ARE NEVER ANY TRAILING ! 819: < * BLANKS, AND CONVERSION CANNOT FAIL. ! 820: < * ! 821: < * (IA) VALUE TO BE CONVERTED ! 822: < * JSR SYSCI CALL TO CONVERT INTEGER VALUE ! 823: < * (XL) POINTER TO PSEUDO-SCBLK WITH STRING ! 824: < EJC ! 825: --- ! 826: > .IF .CSAX ! 827: > SYSAX EXP E,0 ! 828: > .ELSE ! 829: 549,1250c171,203 ! 830: < * ! 831: < * SYSDC -- DATE CHECK ! 832: < * ! 833: < SYSDC EXP DEFINE EXTERNAL ENTRY POINT ! 834: < * ! 835: < * SYSDC IS CALLED TO CHECK THAT THE EXPIRY DATE FOR A TRIAL ! 836: < * VERSION OF SPITBOL IS UNEXPIRED. ! 837: < * ! 838: < * JSR SYSDC CALL TO CHECK DATE ! 839: < * RETURN ONLY IF DATE IS OK ! 840: < EJC ! 841: < * ! 842: < * SYSDM -- DUMP CORE ! 843: < * ! 844: < SYSDM EXP DEFINE EXTERNAL ENTRY POINT ! 845: < * ! 846: < * SYSDM IS CALLED BY A SPITBOL PROGRAM CALL OF DUMP(N) WITH ! 847: < * N GE 3. ITS PURPOSE IS TO PROVIDE A CORE DUMP. ! 848: < * N COULD HOLD AN ENCODING OF THE START ADRS FOR DUMP AND ! 849: < * AMOUNT TO BE DUMPED E.G. N = 256*A + S , S = START ADRS ! 850: < * IN KILOWORDS, A = KILOWORDS TO DUMP ! 851: < * ! 852: < * (XR) PARAMETER N OF CALL DUMP(N) ! 853: < * JSR SYSDM CALL TO ENTER ROUTINE ! 854: ! 855: ! 856: ! 857: ! 858: ! 859: ! 860: ! 861: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 14 ! 862: ! 863: ! 864: < EJC ! 865: < * ! 866: < * SYSDT -- GET CURRENT DATE ! 867: < * ! 868: < SYSDT EXP DEFINE EXTERNAL ENTRY POINT ! 869: < * ! 870: < * SYSDT IS USED TO OBTAIN THE CURRENT DATE. THE DATE IS ! 871: < * RETURNED AS A CHARACTER STRING IN ANY FORMAT APPROPRIATE ! 872: < * TO THE OPERATING SYSTEM IN USE. IT MAY ALSO CONTAIN THE ! 873: < * CURRENT TIME OF DAY. SYSDT IS USED TO IMPLEMENT THE ! 874: < * SNOBOL4 FUNCTION DATE. ! 875: < * ! 876: < * JSR SYSDT CALL TO GET DATE ! 877: < * (XL) POINTER TO BLOCK CONTAINING DATE ! 878: < * ! 879: < * THE FORMAT OF THE BLOCK IS LIKE AN SCBLK EXCEPT THAT ! 880: < * THE FIRST WORD NEED NOT BE SET. THE RESULT IS COPIED ! 881: < * INTO SPITBOL DYNAMIC MEMORY ON RETURN. ! 882: < EJC ! 883: < * ! 884: < * SYSEF -- EJECT FILE ! 885: < * ! 886: < SYSEF EXP DEFINE EXTERNAL ENTRY POINT ! 887: < * ! 888: < * SYSEF IS USED TO WRITE A PAGE EJECT TO A NAMED FILE. IT ! 889: < * MAY ONLY BE USED FOR FILES WHERE THIS CONCEPT MAKES ! 890: < * SENSE. NOTE THAT SYSEF IS NOT NORMALLY USED FOR THE ! 891: < * STANDARD OUTPUT FILE (SEE SYSEP). ! 892: < * ! 893: < * (WA) PTR TO FCBLK OR ZERO ! 894: < * (XR) EJECT ARGUMENT (SCBLK PTR) ! 895: < * JSR SYSEF CALL TO EJECT FILE ! 896: < * PPM LOC RETURN HERE IF FILE DOES NOT EXIST ! 897: < * PPM LOC RETURN HERE IF INAPPROPRIATE FILE ! 898: < * PPM LOC RETURN HERE IF I/O ERROR ! 899: < EJC ! 900: < * ! 901: < * SYSEJ -- END OF JOB ! 902: < * ! 903: < SYSEJ EXP DEFINE EXTERNAL ENTRY POINT ! 904: < * ! 905: < * SYSEJ IS CALLED ONCE AT THE END OF EXECUTION TO ! 906: < * TERMINATE THE RUN. THE SIGNIFICANCE OF THE ABEND AND ! 907: < * CODE VALUES IS SYSTEM DEPENDENT. IN GENERAL, THE CODE ! 908: < * VALUE SHOULD BE MADE AVAILABLE FOR TESTING, AND THE ! 909: < * ABEND VALUE SHOULD CAUSE SOME POST-MORTEM ACTION SUCH AS ! 910: < * A DUMP. NOTE THAT SYSEJ DOES NOT RETURN TO ITS CALLER. ! 911: < * SEE SYSXI FOR DETAILS OF FCBLK CHAIN ! 912: < * ! 913: < * (WA) VALUE OF ABEND KEYWORD ! 914: < * (WB) VALUE OF CODE KEYWORD ! 915: < * (XL) O OR PTR TO HEAD OF FCBLK CHAIN ! 916: < * JSR SYSEJ CALL TO END JOB ! 917: < * ! 918: < * THE FOLLOWING SPECIAL VALUES ARE USED AS CODES IN (WB) ! 919: < * 999 EXECUTION SUPPRESSED ! 920: ! 921: ! 922: ! 923: ! 924: ! 925: ! 926: ! 927: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 15 ! 928: ! 929: ! 930: < * 998 STANDARD OUTPUT FILE FULL OR UNAVAILABLE IN A SYSXI ! 931: < * LOAD MODULE. IN THESE CASES (WA) CONTAINS THE NUMBER ! 932: < * OF THE STATEMENT CAUSING PREMATURE TERMINATION. ! 933: < EJC ! 934: < * ! 935: < * SYSEM -- GET ERROR MESSAGE TEXT ! 936: < * ! 937: < SYSEM EXP DEFINE EXTERNAL ENTRY POINT ! 938: < * ! 939: < * SYSEM IS USED TO OBTAIN THE TEXT OF ERR, ERB CALLS IN THE ! 940: < * SOURCE PROGRAM GIVEN THE ERROR CODE NUMBER. IT IS ALLOWED ! 941: < * TO RETURN A NULL STRING IF THIS FACILITY IS UNAVAILABLE. ! 942: < * ! 943: < * (WA) ERROR CODE NUMBER ! 944: < * JSR SYSEM CALL TO GET TEXT ! 945: < * (XR) TEXT OF MESSAGE ! 946: < * ! 947: < * THE RETURNED VALUE IS A POINTER TO A BLOCK IN SCBLK ! 948: < * FORMAT EXCEPT THAT THE FIRST WORD NEED NOT BE SET. THE ! 949: < * STRING IS COPIED INTO DYNAMIC MEMORY ON RETURN. ! 950: < * IF THE NULL STRING IS RETURNED EITHER BECAUSE SYSEM DOES ! 951: < * NOT PROVIDE ERROR MESSAGE TEXTS OR BECAUSE WA IS OUT OF ! 952: < * RANGE, SPITBOL WILL PRINT THE STRING STORED IN ERRTEXT ! 953: < * KEYWORD. ! 954: < EJC ! 955: < * ! 956: < * SYSEN -- ENDFILE ! 957: < * ! 958: < SYSEN EXP DEFINE EXTERNAL ENTRY POINT ! 959: < * ! 960: < * SYSEN IS USED TO IMPLEMENT THE SNOBOL4 FUNCTION ENDFILE. ! 961: < * THE MEANING IS SYSTEM DEPENDENT. IN GENERAL, ENDFILE ! 962: < * IMPLIES THAT NO FURTHER I/O OPERATIONS WILL BE PERFORMED, ! 963: < * BUT DOES NOT GUARANTEE THIS TO BE THE CASE. THE FILE ! 964: < * SHOULD BE CLOSED AFTER THE CALL, A SUBSEQUENT READ ! 965: < * OR WRITE MAY REOPEN THE FILE AT THE START OR IT MAY BE ! 966: < * NECESSARY TO REOPEN THE FILE VIA SYSIO. ! 967: < * ! 968: < * (WA) PTR TO FCBLK OR ZERO ! 969: < * (XR) ENDFILE ARGUMENT (SCBLK PTR) ! 970: < * JSR SYSEN CALL TO ENDFILE ! 971: < * PPM LOC RETURN HERE IF FILE DOES NOT EXIST ! 972: < * PPM LOC RETURN HERE IF ENDFILE NOT ALLOWED ! 973: < * PPM LOC RETURN HERE IF I/O ERROR ! 974: < * (WA,WB) DESTROYED ! 975: < * ! 976: < * THE SECOND ERROR RETURN IS USED FOR FILES FOR WHICH ! 977: < * ENDFILE IS NOT PERMITTED. FOR EXAMPLE, IT MAY BE EXPECTED ! 978: < * THAT THE STANDARD INPUT AND OUTPUT FILES ARE IN THIS ! 979: < * CATEGORY. ! 980: < EJC ! 981: < * ! 982: < * SYSEP -- EJECT PRINTER PAGE ! 983: < * ! 984: < SYSEP EXP DEFINE EXTERNAL ENTRY POINT ! 985: < * ! 986: ! 987: ! 988: ! 989: ! 990: ! 991: ! 992: ! 993: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 16 ! 994: ! 995: ! 996: < * SYSEP IS CALLED TO PERFORM A PAGE EJECT ON THE STANDARD ! 997: < * PRINTER OUTPUT FILE (CORRESPONDING TO SYSPR OUTPUT). ! 998: < * ! 999: < * JSR SYSEP CALL TO EJECT PRINTER OUTPUT ! 1000: < EJC ! 1001: < * ! 1002: < * SYSEX -- CALL EXTERNAL FUNCTION ! 1003: < * ! 1004: < SYSEX EXP DEFINE EXTERNAL ENTRY POINT ! 1005: < * ! 1006: < * SYSEX IS CALLED TO PASS CONTROL TO AN EXTERNAL FUNCTION ! 1007: < * PREVIOUSLY LOADED WITH A CALL TO SYSLD. ! 1008: < * ! 1009: < * (XS) POINTER TO ARGUMENTS ON STACK ! 1010: < * (XL) POINTER TO CONTROL BLOCK (EFBLK) ! 1011: < * (WA) NUMBER OF ARGUMENTS ON STACK ! 1012: < * JSR SYSEX CALL TO PASS CONTROL TO FUNCTION ! 1013: < * PPM LOC RETURN HERE IF FUNCTION CALL FAILS ! 1014: < * (XS) POPPED PAST ARGUMENTS ! 1015: < * (XR) RESULT RETURNED ! 1016: < * ! 1017: < * THE ARGUMENTS ARE STORED ON THE STACK WITH ! 1018: < * THE LAST ARGUMENT AT 0(XS). ON RETURN, XS ! 1019: < * IS POPPED PAST THE ARGUMENTS. ! 1020: < * ! 1021: < * THE FORM OF THE ARGUMENTS AS PASSED IS THAT USED IN THE ! 1022: < * SPITBOL TRANSLATOR (SEE DEFINITIONS AND DATA STRUCTURES ! 1023: < * SECTION). THE CONTROL BLOCK FORMAT IS ALSO DESCRIBED ! 1024: < * (UNDER EFBLK) IN THIS SECTION. ! 1025: < * ! 1026: < * THERE ARE TWO WAYS OF RETURNING A RESULT. ! 1027: < * ! 1028: < * 1) RETURN A POINTER TO A BLOCK IN DYNAMIC STORAGE. THIS ! 1029: < * BLOCK MUST BE IN EXACTLY CORRECT FORMAT, INCLUDING ! 1030: < * THE FIRST WORD. ONLY FUNCTIONS WRITTEN WITH INTIMATE ! 1031: < * KNOWLEDGE OF THE SYSTEM WILL RETURN IN THIS WAY. ! 1032: < * ! 1033: < * 2) STRING, INTEGER AND REAL RESULTS MAY BE RETURNED BY ! 1034: < * POINTING TO A PSEUDO-BLOCK OUTSIDE DYNAMIC MEMORY. ! 1035: < * THIS BLOCK IS IN ICBLK, RCBLK OR SCBLK FORMAT EXCEPT ! 1036: < * THAT THE FIRST WORD WILL BE OVERWRITTEN ! 1037: < * BY A TYPE WORD ON RETURN AND SO NEED NOT ! 1038: < * BE CORRECTLY SET. SUCH A RESULT IS ! 1039: < * COPIED INTO MAIN STORAGE BEFORE PROCEEDING. ! 1040: < * UNCONVERTED RESULTS MAY SIMILARLY BE RETURNED IN A ! 1041: < * PSEUDO-BLOCK WHICH IS IN CORRECT FORMAT INCLUDING ! 1042: < * TYPE WORD RECOGNISABLE BY GARBAGE COLLECTOR SINCE ! 1043: < * BLOCK IS COPIED INTO DYNAMIC MEMORY. ! 1044: < EJC ! 1045: < * ! 1046: < * SYSFC -- FILE CONTROL BLOCK ROUTINE ! 1047: < * ! 1048: < SYSFC EXP DEFINE EXTERNAL ENTRY POINT ! 1049: < * ! 1050: < * SEE ALSO SYSIO ! 1051: < * INPUT AND OUTPUT HAVE 3 ARGUMENTS REFERRED TO AS SHOWN ! 1052: ! 1053: ! 1054: ! 1055: ! 1056: ! 1057: ! 1058: ! 1059: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 17 ! 1060: ! 1061: ! 1062: < * INPUT(VARIABLE NAME,FILE ARG1,FILE ARG2) ! 1063: < * OUTPUT(VARIABLE NAME,FILE ARG1,FILE ARG2) ! 1064: < * FILE ARG1 MAY BE AN INTEGER OR STRING USED TO IDENTIFY ! 1065: < * AN I/O CHANNEL. IT IS CONVERTED TO A STRING FOR CHECKING. ! 1066: < * THE EXACT SIGNIFICANCE OF FILE ARG2 ! 1067: < * IS NOT RIGOROUSLY PRESCRIBED BUT TO IMPROVE PORTABILITY, ! 1068: < * THE SCHEME DESCRIBED IN THE SPITBOL USER MANUAL ! 1069: < * SHOULD BE ADOPTED WHEN POSSIBLE. THE PREFERRED FORM IS ! 1070: < * A STRING $F$,R$R$,C$C$,I$I$,...,Z$Z$ WHERE ! 1071: < * $F$ IS AN OPTIONAL FILE NAME WHICH IS PLACED FIRST. ! 1072: < * REMAINING ITEMS MAY BE OMITTED OR INCLUDED IN ANY ORDER. ! 1073: < * $R$ IS MAXIMUM RECORD LENGTH ! 1074: < * $C$ IS A CARRIAGE CONTROL CHARACTER OR CHARACTER STRING ! 1075: < * $I$ IS SOME FORM OF CHANNEL IDENTIFICATION USED IN THE ! 1076: < * ABSENCE OF $F$ TO ASSOCIATE THE VARIABLE ! 1077: < * WITH A FILE ALLOCATED DYNAMICALLY BY JCL COMMANDS AT ! 1078: < * SPITBOL LOAD TIME. ! 1079: < * ,...,Z$Z$ ARE ADDITIONAL FIELDS. ! 1080: < * IF , (COMMA) CANNOT BE USED AS A DELIMITER, .CIOD ! 1081: < * SHOULD BE DEFINED TO INTRODUCE BY CONDITIONAL ASSEMBLY ! 1082: < * ANOTHER DELIMITER (SEE ! 1083: < * IODEL EQU * ! 1084: < * EARLY IN DEFINITIONS SECTION). ! 1085: < * SYSFC IS CALLED WHEN A VARIABLE IS INPUT OR OUTPUT ! 1086: < * ASSOCIATED TO CHECK FILE ARG1 AND FILE ARG2 AND ! 1087: < * TO REPORT WHETHER AN FCBLK (FILE CONTROL ! 1088: < * BLOCK) IS NECESSARY AND IF SO WHAT SIZE IT SHOULD BE. ! 1089: < * THIS MAKES IT POSSIBLE FOR SPITBOL RATHER THAN OSINT TO ! 1090: < * ALLOCATE SUCH A BLOCK IN DYNAMIC MEMORY IF REQUIRED ! 1091: < * OR ALTERNATIVELY IN STATIC MEMORY. ! 1092: < * THE SIGNIFICANCE OF AN FCBLK , IF ONE IS REQUESTED, IS ! 1093: < * ENTIRELY UP TO THE SYSTEM INTERFACE. THE ONLY RESTRICTION ! 1094: < * IS THAT IF THE FCBLK SHOULD APPEAR TO LIE IN DYNAMIC ! 1095: < * MEMORY , POINTERS TO IT SHOULD BE PROPER POINTERS TO ! 1096: < * THE START OF A RECOGNISABLE AND GARBAGE COLLECTABLE ! 1097: < * BLOCK (THIS CONDITION WILL BE MET IF SYSFC REQUESTS ! 1098: < * SPITBOL TO PROVIDE AN FCBLK). ! 1099: < * AN OPTION IS PROVIDED FOR OSINT TO RETURN A POINTER IN ! 1100: < * XL TO AN FCBLK WHICH IT PRIVATELY ALLOCATED. THIS PTR ! 1101: < * WILL BE MADE AVAILABLE WHEN I/O OCCURS LATER. ! 1102: < * PRIVATE FCBLKS MAY HAVE ARBITRARY CONTENTS AND SPITBOL ! 1103: < * STORES NOTHING IN THEM. ! 1104: < EJC ! 1105: < * THE REQUESTED SIZE FOR AN FCBLK IN DYNAMIC MEMORY ! 1106: < * SHOULD ALLOW A 2 WORD OVERHEAD FOR BLOCK TYPE AND ! 1107: < * LENGTH FIELDS. INFORMATION SUBSEQUENTLY STORED IN THE ! 1108: < * REMAINING WORDS MAY BE ARBITRARY IF AN XNBLK (EXTERNAL ! 1109: < * NON-RELOCATABLE BLOCK) IS REQUESTED. IF THE REQUEST IS ! 1110: < * FOR AN XRBLK (EXTERNAL RELOCATABLE BLOCK) THE ! 1111: < * CONTENTS OF WORDS SHOULD BE COLLECTABLE (I.E. ANY ! 1112: < * APPARENT POINTERS INTO DYNAMIC SHOULD BE GENUINE BLOCK ! 1113: < * POINTERS). THESE RESTRICTIONS DO NOT APPLY IF AN FCBLK ! 1114: < * IS ALLOCATED OUTSIDE DYNAMIC OR IS NOT ALLOCATED AT ALL. ! 1115: < * IF AN FCBLK IS REQUESTED, ITS FIELDS WILL BE INITIALISED ! 1116: < * TO ZERO BEFORE ENTRY TO SYSIO WITH THE EXCEPTION OF ! 1117: < * WORDS 0 AND 1 IN WHICH THE BLOCK TYPE AND LENGTH ! 1118: ! 1119: ! 1120: ! 1121: ! 1122: ! 1123: ! 1124: ! 1125: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 18 ! 1126: ! 1127: ! 1128: < * FIELDS ARE PLACED FOR FCBLKS IN DYNAMIC MEMORY ONLY. ! 1129: < * FOR THE POSSIBLE USE OF SYSEJ AND SYSXI, IF FCBLKS ! 1130: < * ARE USED, A CHAIN IS BUILT SO THAT THEY MAY ALL BE ! 1131: < * FOUND - SEE SYSXI FOR DETAILS. ! 1132: < * IF BOTH FILE ARG1 AND FILE ARG2 ARE NULL, CALLS OF SYSFC ! 1133: < * AND SYSIO ARE OMITTED. ! 1134: < * IF FILE ARG1 IS NULL (STANDARD INPUT/OUTPUT FILE), SYSFC ! 1135: < * IS CALLED TO CHECK NON-NULL FILE ARG2 BUT ANY REQUEST ! 1136: < * FOR AN FCBLK WILL BE IGNORED, SINCE SPITBOL HANDLES THE ! 1137: < * STANDARD FILES SPECIALLY AND CANNOT READILY KEEP FCBLK ! 1138: < * POINTERS FOR THEM. ! 1139: < * FILEARG1 IS TYPE CHECKED BY SPITBOL SO FURTHER CHECKING ! 1140: < * MAY BE UNNECCESSARY IN MANY IMPLEMENTATIONS. ! 1141: < * FILE ARG2 IS PASSED SO THAT SYSFC MAY ANALYSE AND ! 1142: < * CHECK IT. HOWEVER TO ASSIST IN THIS, SPITBOL ALSO PASSES ! 1143: < * ON THE STACK THE COMPONENTS OF THIS ARGUMENT WITH ! 1144: < * FILE NAME, $F$ (OTHERWISE NULL) EXTRACTED AND STACKED ! 1145: < * FIRST. ! 1146: < * THE OTHER FIELDS, IF ANY, ARE EXTRACTED AS SUBSTRINGS, ! 1147: < * POINTERS TO THEM ARE STACKED AND A COUNT OF ALL ITEMS ! 1148: < * STACKED IS PLACED IN WC. IF AN FCBLK WAS EARLIER ! 1149: < * ALLOCATED AND POINTED TO VIA FILE ARG1, SYSFC IS ALSO ! 1150: < * PASSED A POINTER TO THIS FCBLK. ! 1151: < * ! 1152: < * (XL) FILE ARG1 SCBLK PTR (2ND ARG) ! 1153: < * (XR) FILEARG2 (3RD ARG) OR NULL ! 1154: < * -(XS)...-(XS) SCBLKS FOR $F$,$R$,$C$,... ! 1155: < * (WC) NO. OF STACKED SCBLKS ABOVE ! 1156: < * (WA) EXISTING FILE ARG1 FCBLK PTR OR 0 ! 1157: < * (WB) 0/3 FOR INPUT/OUTPUT ASSOCN ! 1158: < * JSR SYSFC CALL TO CHECK NEED FOR FCBLK ! 1159: < * PPM LOC INVALID FILE ARGUMENT ! 1160: < * (XS) POPPED (WC) TIMES ! 1161: < * (WA NON ZERO) BYTE SIZE OF REQUESTED FCBLK ! 1162: < * (WA=0,XL NON ZERO) PRIVATE FCBLK PTR IN XL ! 1163: < * (WA=XL=0) NO FCBLK WANTED, NO PRIVATE FCBLK ! 1164: < * (WC) 0/1/2 REQUEST ALLOC OF XRBLK/XNBLK ! 1165: < * /STATIC BLOCK FOR USE AS FCBLK ! 1166: < * (WB) DESTROYED ! 1167: < EJC ! 1168: < * ! 1169: < * SYSHS -- GIVE ACCESS TO HOST COMPUTER FEATURES ! 1170: < * ! 1171: < SYSHS EXP DEFINE EXTERNAL ENTRY POINT ! 1172: < * ! 1173: < * PROVIDES MEANS FOR IMPLEMENTING SPECIAL FEATURES ! 1174: < * ON DIFFERENT HOST COMPUTERS. THE ONLY DEFINED ENTRY IS ! 1175: < * THAT WHERE ALL ARGUMENTS ARE NULL IN WHICH CASE SYSHS ! 1176: < * RETURNS AN SCBLK CONTAINING NAME OF COMPUTER, ! 1177: < * NAME OF OPERATING SYSTEM AND NAME OF SITE SEPARATED BY ! 1178: < * COLONS. THE SCBLK NEED NOT HAVE A CORRECT FIRST FIELD ! 1179: < * AS THIS IS SUPPLIED ON COPYING STRING TO DYNAMIC MEMORY. ! 1180: < * SPITBOL DOES NO ARGUMENT CHECKING BUT DOES PROVIDE A ! 1181: < * SINGLE ERROR RETURN FOR ARGUMENTS CHECKED AS ERRONEOUS ! 1182: < * BY OSINT. IT ALSO PROVIDES A SINGLE EXECUTION ERROR ! 1183: < * RETURN. IF THESE ARE INADEQUATE, USE MAY BE MADE OF THE ! 1184: ! 1185: ! 1186: ! 1187: ! 1188: ! 1189: ! 1190: ! 1191: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 19 ! 1192: ! 1193: ! 1194: < * MINIMAL ERROR SECTION DIRECT AS DESCRIBED IN MINIMAL ! 1195: < * DOCUMENTATION, SECTION 10. ! 1196: < * SEVERAL NON-ERROR RETURNS ARE PROVIDED. THE FIRST ! 1197: < * CORRESPONDS TO THE DEFINED ENTRY OR, FOR IMPLEMENTATION ! 1198: < * DEFINED ENTRIES, ANY STRING MAY BE RETURNED. THE OTHERS ! 1199: < * PERMIT RESPECTIVELY, RETURN A NULL RESULT, RETURN WITH A ! 1200: < * RESULT TO BE STACKED WHICH IS POINTED AT BY XR, AND A ! 1201: < * RETURN CAUSING SPITBOL STATEMENT FAILURE. IF A RETURNED ! 1202: < * RESULT IS IN DYNAMIC MEMORY IT MUST OBEY GARBAGE ! 1203: < * COLLECTOR RULES. THE ONLY RESULTS COPIED ON RETURN ! 1204: < * ARE STRINGS RETURNED VIA PPM LOC3 RETURN. ! 1205: < * ! 1206: < * (WA) ARGUMENT 1 ! 1207: < * (XL) ARGUMENT 2 ! 1208: < * (XR) ARGUMENT 3 ! 1209: < * JSR SYSHS CALL TO GET HOST INFORMATION ! 1210: < * PPM LOC1 ERRONEOUS ARG ! 1211: < * PPM LOC2 EXECUTION ERROR ! 1212: < * PPM LOC3 SCBLK PTR IN XL OR 0 IF UNAVAILABLE ! 1213: < * PPM LOC4 RETURN A NULL RESULT ! 1214: < * PPM LOC5 RETURN RESULT IN XR ! 1215: < * PPM LOC6 CAUSE STATEMENT FAILURE ! 1216: < EJC ! 1217: < * ! 1218: < * SYSID -- RETURN SYSTEM IDENTIFICATION ! 1219: < * ! 1220: < SYSID EXP DEFINE EXTERNAL ENTRY POINT ! 1221: < * ! 1222: < * THIS ROUTINE SHOULD RETURN STRINGS TO HEAD THE STANDARD ! 1223: < * PRINTER OUTPUT. THE FIRST STRING WILL BE APPENDED TO ! 1224: < * A HEADING LINE OF THE FORM ! 1225: < * MACRO SPITBOL VERSION V.V ! 1226: < * SUPPLIED BY SPITBOL ITSELF. V.V ARE DIGITS GIVING THE ! 1227: < * MAJOR VERSION NUMBER AND GENERALLY AT LEAST A MINOR ! 1228: < * VERSION NUMBER RELATING TO OSINT SHOULD BE SUPPLIED TO ! 1229: < * GIVE SAY ! 1230: < * MACRO SPITBOL VERSION V.V(M.M) ! 1231: < * THE SECOND STRING SHOULD IDENTIFY AT LEAST THE MACHINE ! 1232: < * AND OPERATING SYSTEM. PREFERABLY IT SHOULD INCLUDE ! 1233: < * THE DATE AND TIME OF THE RUN. ! 1234: < * OPTIONALLY THE STRINGS MAY INCLUDE SITE NAME OF THE ! 1235: < * THE IMPLEMENTOR AND/OR MACHINE ON WHICH RUN TAKES PLACE, ! 1236: < * UNIQUE SITE OR COPY NUMBER AND OTHER INFORMATION AS ! 1237: < * APPROPRIATE WITHOUT MAKING IT SO LONG AS TO BE A ! 1238: < * NUISANCE TO USERS. ! 1239: < * THE FIRST WORDS OF THE SCBLKS POINTED AT NEED NOT BE ! 1240: < * CORRECTLY SET. ! 1241: < * ! 1242: < * JSR SYSID CALL FOR SYSTEM IDENTIFICATION ! 1243: < * (XR) SCBLK PTR FOR ADDITION TO HEADER ! 1244: < * (XL) PTR TO SECOND HEADER SCBLK ! 1245: < EJC ! 1246: < * ! 1247: < * SYSIL -- GET INPUT RECORD LENGTH ! 1248: < * ! 1249: < SYSIL EXP DEFINE EXTERNAL ENTRY POINT ! 1250: ! 1251: ! 1252: ! 1253: ! 1254: ! 1255: ! 1256: ! 1257: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 20 ! 1258: ! 1259: ! 1260: < * ! 1261: < * SYSIL IS USED TO GET THE LENGTH OF THE NEXT INPUT RECORD ! 1262: < * FROM A FILE PREVIOUSLY INPUT ASSOCIATED WITH A SYSIO ! 1263: < * CALL. THE LENGTH RETURNED IS USED TO ESTABLISH A BUFFER ! 1264: < * FOR A SUBSEQUENT SYSIN CALL. ! 1265: < * ! 1266: < * (WA) PTR TO FCBLK OR ZERO ! 1267: < * JSR SYSIL CALL TO GET RECORD LENGTH ! 1268: < * (WA) LENGTH OR ZERO IF FILE CLOSED ! 1269: < * ! 1270: < * NO HARM IS DONE IF THE VALUE RETURNED IS TOO LONG SINCE ! 1271: < * UNUSED SPACE WILL BE RECLAIMED AFTER THE SYSIN CALL. ! 1272: < * ! 1273: < * NOTE THAT IT IS THE SYSIL CALL (NOT THE SYSIO CALL) WHICH ! 1274: < * CAUSES THE FILE TO BE OPENED AS REQUIRED FOR THE FIRST ! 1275: < * RECORD INPUT FROM THE FILE. ! 1276: < EJC ! 1277: < * ! 1278: < * SYSIN -- READ INPUT RECORD ! 1279: < * ! 1280: < SYSIN EXP DEFINE EXTERNAL ENTRY POINT ! 1281: < * ! 1282: < * SYSIN IS USED TO READ A RECORD FROM THE FILE WHICH WAS ! 1283: < * REFERENCED IN A PRIOR CALL TO SYSIL (I.E. THESE CALLS ! 1284: < * ALWAYS OCCUR IN PAIRS). THE BUFFER PROVIDED IS AN ! 1285: < * SCBLK FOR A STRING OF LENGTH SET FROM THE SYSIL CALL. ! 1286: < * IF THE ACTUAL LENGTH READ IS LESS THAN THIS, THE LENGTH ! 1287: < * FIELD OF THE SCBLK MUST BE MODIFIED BEFORE RETURNING ! 1288: < * UNLESS BUFFER IS RIGHT PADDED WITH ZEROES. ! 1289: < * IT IS ALSO PERMISSIBLE TO TAKE ANY OF THE ALTERNATIVE ! 1290: < * RETURNS AFTER SCBLK LENGTH HAS BEEN MODIFIED. ! 1291: < * ! 1292: < * (WA) PTR TO FCBLK OR ZERO ! 1293: < * (XR) POINTER TO BUFFER (SCBLK PTR) ! 1294: < * JSR SYSIN CALL TO READ RECORD ! 1295: < * PPM LOC ENDFILE OR NO I/P FILE AFTER SYSXI ! 1296: < * PPM LOC RETURN HERE IF I/O ERROR ! 1297: < * PPM LOC RETURN HERE IF RECORD FORMAT ERROR ! 1298: < * (WA,WB,WC) DESTROYED ! 1299: < EJC ! 1300: < * ! 1301: < * SYSIO -- INPUT/OUTPUT FILE ASSOCIATION ! 1302: < * ! 1303: < SYSIO EXP DEFINE EXTERNAL ENTRY POINT ! 1304: < * ! 1305: < * SEE ALSO SYSFC. ! 1306: < * SYSIO IS CALLED IN RESPONSE TO A SNOBOL4 INPUT OR OUTPUT ! 1307: < * FUNCTION CALL EXCEPT WHEN FILE ARG1 AND FILE ARG2 ! 1308: < * ARE BOTH NULL. ! 1309: < * ITS CALL ALWAYS FOLLOWS IMMEDIATELY AFTER A CALL ! 1310: < * OF SYSFC. IF SYSFC REQUESTED ALLOCATION ! 1311: < * OF AN FCBLK, ITS ADDRESS WILL BE IN WA. ! 1312: < * FOR INPUT FILES, NON-ZERO VALUES OF $R$ SHOULD BE ! 1313: < * COPIED TO WC FOR USE IN ALLOCATING INPUT BUFFERS. IF $R$ ! 1314: < * IS DEFAULTED OR NOT IMPLEMENTED, WC SHOULD BE ZEROISED. ! 1315: < * ONCE A FILE HAS BEEN OPENED, SUBSEQUENT INPUT(),OUTPUT() ! 1316: ! 1317: ! 1318: ! 1319: ! 1320: ! 1321: ! 1322: ! 1323: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 21 ! 1324: ! 1325: ! 1326: < * CALLS IN WHICH THE SECOND ARGUMENT IS IDENTICAL WITH THAT ! 1327: < * IN A PREVIOUS CALL, MERELY ASSOCIATE THE ADDITIONAL ! 1328: < * VARIABLE NAME (FIRST ARGUMENT) TO THE FILE AND DO NOT ! 1329: < * RESULT IN RE-OPENING THE FILE. ! 1330: < * IN SUBSEQUENT ASSOCIATED ACCESSES TO THE FILE A POINTER ! 1331: < * TO ANY FCBLK ALLOCATED WILL BE MADE AVAILABLE. ! 1332: < * ! 1333: < * (XL) FILE ARG1 SCBLK PTR (2ND ARG) ! 1334: < * (XR) FILE ARG2 SCBLK PTR (3RD ARG) ! 1335: < * (WA) FCBLK PTR (0 IF NONE) ! 1336: < * (WB) 0 FOR INPUT, 3 FOR OUTPUT ! 1337: < * JSR SYSIO CALL TO ASSOCIATE FILE ! 1338: < * PPM LOC RETURN HERE IF FILE DOES NOT EXIST ! 1339: < * PPM LOC RETURN IF INPUT/OUTPUT NOT ALLOWED ! 1340: < * (XL) FCBLK POINTER (0 IF NONE) ! 1341: < * (WC) 0 (FOR DEFAULT) OR MAX RECORD LNGTH ! 1342: < * (WA,WB) DESTROYED ! 1343: < * ! 1344: < * THE SECOND ERROR RETURN IS USED IF THE FILE NAMED EXISTS ! 1345: < * BUT INPUT/OUTPUT FROM THE FILE IS NOT ALLOWED. FOR ! 1346: < * EXAMPLE, THE STANDARD OUTPUT FILE MAY BE IN THIS CATEGORY ! 1347: < * AS REGARDS INPUT ASSOCIATION. ! 1348: < EJC ! 1349: < * ! 1350: < * SYSLD -- LOAD EXTERNAL FUNCTION ! 1351: < * ! 1352: < SYSLD EXP DEFINE EXTERNAL ENTRY POINT ! 1353: < * ! 1354: < * SYSLD IS CALLED IN RESPONSE TO THE USE OF THE SNOBOL4 ! 1355: < * LOAD FUNCTION. THE NAMED FUNCTION IS LOADED (WHATEVER ! 1356: < * THIS MEANS), AND A POINTER IS RETURNED. THE POINTER WILL ! 1357: < * BE USED ON SUBSEQUENT CALLS TO THE FUNCTION (SEE SYSEX). ! 1358: < * ! 1359: < * (XR) POINTER TO FUNCTION NAME (SCBLK) ! 1360: < * (XL) POINTER TO LIBRARY NAME (SCBLK) ! 1361: < * JSR SYSLD CALL TO LOAD FUNCTION ! 1362: < * PPM LOC RETURN HERE IF FUNC DOES NOT EXIST ! 1363: < * PPM LOC RETURN HERE IF I/O ERROR ! 1364: < * (XR) POINTER TO LOADED CODE ! 1365: < * ! 1366: < * THE SIGNIFICANCE OF THE POINTER RETURNED IS UP TO THE ! 1367: < * SYSTEM INTERFACE ROUTINE. THE ONLY RESTRICTION IS THAT ! 1368: < * IF THE POINTER IS WITHIN DYNAMIC STORAGE, IT MUST BE ! 1369: < * A PROPER BLOCK POINTER. ! 1370: < EJC ! 1371: < * ! 1372: < * SYSMM -- GET MORE MEMORY ! 1373: < * ! 1374: < SYSMM EXP DEFINE EXTERNAL ENTRY POINT ! 1375: < * ! 1376: < * SYSMM IS CALLED IN AN ATTEMPT TO ALLOCATE MORE DYNAMIC ! 1377: < * MEMORY. THIS MEMORY MUST BE ALLOCATED CONTIGUOUSLY WITH ! 1378: < * THE CURRENT DYNAMIC DATA AREA. ! 1379: < * ! 1380: < * THE AMOUNT ALLOCATED IS UP TO THE SYSTEM TO DECIDE. ANY ! 1381: < * VALUE IS ACCEPTABLE INCLUDING ZERO IF ALLOCATION IS ! 1382: ! 1383: ! 1384: ! 1385: ! 1386: ! 1387: ! 1388: ! 1389: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 22 ! 1390: ! 1391: ! 1392: < * IMPOSSIBLE. ! 1393: < * ! 1394: < * JSR SYSMM CALL TO GET MORE MEMORY ! 1395: < * (XR) NUMBER OF ADDITIONAL WORDS OBTAINED ! 1396: < EJC ! 1397: < * ! 1398: < * SYSMX -- SUPPLY MXLEN ! 1399: < * ! 1400: < SYSMX EXP DEFINE EXTERNAL ENTRY POINT ! 1401: < * ! 1402: < * BECAUSE OF THE METHOD OF GARBAGE COLLECTION, NO SPITBOL ! 1403: < * OBJECT IS ALLOWED TO OCCUPY MORE BYTES OF MEMORY THAN ! 1404: < * THE INTEGER GIVING THE LOWEST ADDRESS OF DYNAMIC ! 1405: < * (GARBAGE COLLECTABLE) MEMORY. MXLEN IS THE NAME USED TO ! 1406: < * REFER TO THIS MAXIMUM LENGTH OF AN OBJECT AND FOR MOST ! 1407: < * USERS OF MOST IMPLEMENTATIONS, PROVIDED DYNAMIC MEMORY ! 1408: < * STARTS AT AN ADDRESS OF AT LEAST A FEW THOUSAND WORDS, ! 1409: < * THERE IS NO PROBLEM. ! 1410: < * IF THE DEFAULT STARTING ADDRESS IS LESS THAN SAY 10000 OR ! 1411: < * 20000, THEN A LOAD TIME OPTION SHOULD BE PROVIDED WHERE A ! 1412: < * USER CAN REQUEST THAT HE BE ABLE TO CREATE LARGER ! 1413: < * OBJECTS. THIS ROUTINE INFORMS SPITBOL OF THIS REQUEST IF ! 1414: < * ANY. THE VALUE RETURNED IS EITHER AN INTEGER ! 1415: < * REPRESENTING THE DESIRED VALUE OF MXLEN (AND HENCE THE ! 1416: < * MINIMUM DYNAMIC STORE ADDRESS WHICH MAY RESULT IN ! 1417: < * NON-USE OF SOME STORE) OR ZERO IF A DEFAULT IS ACCEPTABLE ! 1418: < * IN WHICH MXLEN IS SET TO THE LOWEST ADDRESS ALLOCATED ! 1419: < * TO DYNAMIC STORE BEFORE COMPILATION STARTS. ! 1420: < * IF A NON-ZERO VALUE IS RETURNED, THIS IS USED FOR KEYWORD ! 1421: < * MAXLNGTH. OTHERWISE THE INITIAL LOW ADDRESS OF DYNAMIC ! 1422: < * MEMORY IS USED FOR THIS KEYWORD. ! 1423: < * ! 1424: < * JSR SYSMX CALL TO GET MXLEN ! 1425: < * (WA) EITHER MXLEN OR 0 FOR DEFAULT ! 1426: < EJC ! 1427: < * ! 1428: < * SYSOU -- OUTPUT RECORD ! 1429: < * ! 1430: < SYSOU EXP DEFINE EXTERNAL ENTRY POINT ! 1431: < * ! 1432: < * SYSOU IS USED TO WRITE A RECORD TO A FILE PREVIOUSLY ! 1433: < * ASSOCIATED WITH A SYSIO CALL. ! 1434: < * ! 1435: < * (WA) PTR TO FCBLK OR ZERO ! 1436: < * (XR) RECORD TO BE WRITTEN (SCBLK) ! 1437: < * JSR SYSOU CALL TO OUTPUT RECORD ! 1438: < * PPM LOC FILE FULL OR NO FILE AFTER SYSXI ! 1439: < * PPM LOC RETURN HERE IF I/O ERROR ! 1440: < * (WA,WB,WC) DESTROYED ! 1441: < * ! 1442: < * NOTE THAT IT IS THE SYSOU CALL (NOT THE SYSIO CALL) WHICH ! 1443: < * CAUSES THE FILE TO BE OPENED AS REQUIRED FOR THE FIRST ! 1444: < * RECORD OUTPUT TO THE FILE. ! 1445: < EJC ! 1446: < * ! 1447: < * SYSPI -- PRINT ON INTERACTIVE CHANNEL ! 1448: ! 1449: ! 1450: ! 1451: ! 1452: ! 1453: ! 1454: ! 1455: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 23 ! 1456: ! 1457: ! 1458: < * ! 1459: < SYSPI EXP DEFINE EXTERNAL ENTRY POINT ! 1460: < * ! 1461: < * IF SPITBOL IS RUN FROM AN ONLINE TERMINAL, OSINT CAN ! 1462: < * REQUEST THAT MESSAGES SUCH AS COPIES OF COMPILATION ! 1463: < * ERRORS BE SENT TO THE TERMINAL (SEE SYSPP). IF RELEVANT ! 1464: < * REPLY WAS MADE BY SYSPP THEN SYSPI IS CALLED TO SEND SUCH ! 1465: < * MESSAGES TO THE INTERACTIVE CHANNEL. ! 1466: < * SYSPI IS ALSO USED FOR SENDING OUTPUT TO THE TERMINAL ! 1467: < * THROUGH THE SPECIAL VARIABLE NAME, TERMINAL. ! 1468: < * ! 1469: < * (XR) PTR TO LINE BUFFER (SCBLK) ! 1470: < * (WA) LINE LENGTH ! 1471: < * JSR SYSPI CALL TO PRINT LINE ! 1472: < * PPM LOC FAILURE RETURN ! 1473: < * (WA,WB) DESTROYED ! 1474: < EJC ! 1475: < * ! 1476: < * SYSPP -- OBTAIN PRINT PARAMETERS ! 1477: < * ! 1478: < SYSPP EXP DEFINE EXTERNAL ENTRY POINT ! 1479: < * ! 1480: < * SYSPP IS CALLED ONCE DURING COMPILATION TO OBTAIN ! 1481: < * PARAMETERS REQUIRED FOR CORRECT PRINTED OUTPUT FORMAT ! 1482: < * AND TO SELECT OTHER OPTIONS. IT MAY ALSO BE CALLED AGAIN ! 1483: < * AFTER SYSXI WHEN A LOAD MODULE IS RESUMED. IN THIS ! 1484: < * CASE THE VALUE RETURNED IN WA MAY BE LESS THAN OR EQUAL ! 1485: < * TO THAT RETURNED IN INITIAL CALL BUT MAY NOT BE ! 1486: < * GREATER. ! 1487: < * THE INFORMATION RETURNED IS - ! 1488: < * 1. LINE LENGTH IN CHARS FOR STANDARD PRINT FILE ! 1489: < * 2. NO OF LINES/PAGE. 0 IS PREFERABLE FOR A NON-PAGED ! 1490: < * DEVICE (E.G. ONLINE TERMINAL) IN WHICH CASE LISTING ! 1491: < * PAGE THROWS ARE SUPPRESSED AND PAGE HEADERS ! 1492: < * RESULTING FROM -TITLE,-STITL LINES ARE KEPT SHORT. ! 1493: < * 3. AN INITIAL -NOLIST OPTION TO SUPPRESS LISTING UNLESS ! 1494: < * THE PROGRAM CONTAINS AN EXPLICIT -LIST. ! 1495: < * 4. OPTIONS TO SUPPRESS LISTING OF COMPILATION AND/OR ! 1496: < * EXECUTION STATS (USEFUL FOR ESTABLISHED PROGRAMS) - ! 1497: < * COMBINED WITH 3. GIVES POSSIBILITY OF LISTING ! 1498: < * FILE NEVER BEING OPENED. ! 1499: < * 5. OPTION TO HAVE COPIES OF ERRORS SENT TO AN ! 1500: < * INTERACTIVE CHANNEL IN ADDITION TO STANDARD PRINTER. ! 1501: < * 6. OPTION TO KEEP PAGE HEADERS SHORT (E.G. IF LISTING ! 1502: < * TO AN ONLINE TERMINAL). ! 1503: < * 7. AN OPTION TO CHOOSE EXTENDED OR COMPACT LISTING ! 1504: < * FORMAT. IN THE FORMER A PAGE EJECT AND IN THE LATTER ! 1505: < * A FEW LINE FEEDS PRECEDE THE PRINTING OF EACH ! 1506: < * OF-- LISTING, COMPILATION STATISTICS, EXECUTION ! 1507: < * OUTPUT AND EXECUTION STATISTICS. ! 1508: < * 8. AN OPTION TO SUPPRESS EXECUTION AS THOUGH A ! 1509: < * -NOEXECUTE CARD WERE SUPPLIED. ! 1510: < * 9. AN OPTION TO REQUEST THAT NAME /TERMINAL/ BE PRE- ! 1511: < * ASSOCIATED TO AN ONLINE TERMINAL VIA SYSPI AND SYSRI ! 1512: < * 10. AN INTERMEDIATE (STANDARD) LISTING OPTION REQUIRING ! 1513: < * THAT PAGE EJECTS OCCUR IN SOURCE LISTINGS. REDUNDANT ! 1514: ! 1515: ! 1516: ! 1517: ! 1518: ! 1519: ! 1520: ! 1521: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 24 ! 1522: ! 1523: ! 1524: < * IF EXTENDED OPTION CHOSEN BUT PARTIALLY EXTENDS ! 1525: < * COMPACT OPTION. ! 1526: < * 11. OPTION TO SUPPRESS SYSID IDENTIFICATION. ! 1527: < * ! 1528: < * JSR SYSPP CALL TO GET PRINT PARAMETERS ! 1529: < * (WA) PRINT LINE LENGTH IN CHARS ! 1530: < * (WB) NUMBER OF LINES/PAGE ! 1531: < * (WC) BITS VALUE ...JIHGFEDCBA WHERE ! 1532: < * A = 1 TO SEND ERROR COPY TO INT.CH. ! 1533: < * B = 1 MEANS STD PRINTER IS INT. CH. ! 1534: < * C = 1 FOR -NOLIST OPTION ! 1535: < * D = 1 TO SUPPRESS COMPILN. STATS ! 1536: < * E = 1 TO SUPPRESS EXECN. STATS ! 1537: < * F = 1/0 FOR EXTNDED/COMPACT LISTING ! 1538: < * G = 1 FOR -NOEXECUTE ! 1539: < * H = 1 PRE-ASSOCIATE /TERMINAL/ ! 1540: < * I = 1 FOR STANDARD LISTING OPTION. ! 1541: < * J = 1 SUPPRESSES LISTING HEADER ! 1542: < EJC ! 1543: < * ! 1544: < * SYSPR -- PRINT LINE ON STANDARD OUTPUT FILE ! 1545: < * ! 1546: < SYSPR EXP DEFINE EXTERNAL ENTRY POINT ! 1547: < * ! 1548: < * SYSPR IS USED TO PRINT A SINGLE LINE ON THE STANDARD ! 1549: < * OUTPUT FILE. ! 1550: < * ! 1551: < * (XR) POINTER TO LINE BUFFER (SCBLK) ! 1552: < * (WA) LINE LENGTH ! 1553: < * JSR SYSPR CALL TO PRINT LINE ! 1554: < * PPM LOC TOO MUCH O/P OR NO FILE AFTER SYSXI ! 1555: < * (WA,WB) DESTROYED ! 1556: < * ! 1557: < * THE BUFFER POINTED TO IS THE LENGTH OBTAINED FROM THE ! 1558: < * SYSPP CALL AND IS FILLED OUT WITH TRAILING BLANKS. THE ! 1559: < * VALUE IN WA IS THE ACTUAL LINE LENGTH WHICH MAY BE LESS ! 1560: < * THAN THE MAXIMUM LINE LENGTH POSSIBLE. THERE IS NO SPACE ! 1561: < * CONTROL ASSOCIATED WITH THE LINE, ALL LINES ARE PRINTED ! 1562: < * SINGLE SPACED. NOTE THAT NULL LINES (WA=0) ARE POSSIBLE ! 1563: < * IN WHICH CASE A BLANK LINE IS TO BE PRINTED. ! 1564: < * ! 1565: < * THE ERROR EXIT IS USED FOR SYSTEMS WHICH LIMIT THE AMOUNT ! 1566: < * OF PRINTED OUTPUT. IF POSSIBLE, PRINTING SHOULD BE ! 1567: < * PERMITTED AFTER THIS CONDITION HAS BEEN SIGNALLED ONCE TO ! 1568: < * ALLOW FOR DUMP AND OTHER DIAGNOSTIC INFORMATION. ! 1569: < * ASSUMING THIS TO BE POSSIBLE, SPITBOL MAY MAKE MORE SYSPR ! 1570: < * CALLS. IF THE ERROR RETURN OCCURS ANOTHER TIME, EXECUTION ! 1571: < * IS TERMINATED BY A CALL OF SYSEJ WITH ENDING CODE 998. ! 1572: < EJC ! 1573: < * ! 1574: < * SYSRD -- READ RECORD FROM STANDARD INPUT FILE ! 1575: < * ! 1576: < SYSRD EXP DEFINE EXTERNAL ENTRY POINT ! 1577: < * ! 1578: < * SYSRD IS USED TO READ A RECORD FROM THE STANDARD INPUT ! 1579: < * FILE. THE BUFFER PROVIDED IS AN SCBLK FOR A STRING THE ! 1580: ! 1581: ! 1582: ! 1583: ! 1584: ! 1585: ! 1586: ! 1587: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 25 ! 1588: ! 1589: ! 1590: < * LENGTH OF WHICH IN CHARACTERS IS GIVEN IN WC, THIS ! 1591: < * CORRESPONDING TO THE MAXIMUM LENGTH OF STRING WHICH ! 1592: < * SPITBOL IS PREPARED TO RECEIVE. AT COMPILE TIME IT ! 1593: < * CORRESPONDS TO XXX IN THE MOST RECENT -INXXX CARD ! 1594: < * (DEFAULT 72) AND AT EXECUTION TIME TO THE MOST RECENT ! 1595: < * ,R$R$ (RECORD LENGTH) IN THE THIRD ARG OF AN INPUT() ! 1596: < * STATEMENT FOR THE STANDARD INPUT FILE (DEFAULT 80). ! 1597: < * IF FEWER THAN (WC) CHARACTERS ARE READ, THE LENGTH ! 1598: < * FIELD OF THE SCBLK MUST BE ADJUSTED BEFORE RETURNING ! 1599: < * UNLESS THE BUFFER IS RIGHT PADDED WITH ZEROES. ! 1600: < * IT IS ALSO PERMISSIBLE TO TAKE THE ALTERNATIVE RETURN ! 1601: < * AFTER SUCH AN ADJUSTMENT HAS BEEN MADE. ! 1602: < * SPITBOL MAY CONTINUE TO MAKE CALLS AFTER AN ENDFILE ! 1603: < * RETURN SO THIS ROUTINE SHOULD BE PREPARED TO MAKE ! 1604: < * REPEATED ENDFILE RETURNS. ! 1605: < * ! 1606: < * (XR) POINTER TO BUFFER (SCBLK PTR) ! 1607: < * (WC) LENGTH OF BUFFER IN CHARACTERS ! 1608: < * JSR SYSRD CALL TO READ LINE ! 1609: < * PPM LOC ENDFILE OR NO I/P FILE AFTER SYSXI ! 1610: < * (WA,WB,WC) DESTROYED ! 1611: < EJC ! 1612: < * ! 1613: < * SYSRI -- READ RECORD FROM INTERACTIVE CHANNEL ! 1614: < * ! 1615: < SYSRI EXP DEFINE EXTERNAL ENTRY POINT ! 1616: < * ! 1617: < * READS A RECORD FROM ONLINE TERMINAL FOR SPITBOL VARIABLE, ! 1618: < * TERMINAL. IF ONLINE TERMINAL IS UNAVAILABLE THEN CODE THE ! 1619: < * ENDFILE RETURN ONLY. ! 1620: < * THE BUFFER PROVIDED IS OF LENGTH 120 CHARACTERS. SYSRI ! 1621: < * SHOULD REPLACE THE COUNT IN THE SECOND WORD OF THE SCBLK ! 1622: < * BY THE ACTUAL CHARACTER COUNT UNLESS BUFFER IS RIGHT ! 1623: < * PADDED WITH ZEROES. ! 1624: < * IT IS ALSO PERMISSIBLE TO TAKE THE ALTERNATIVE ! 1625: < * RETURN AFTER ADJUSTING THE COUNT. ! 1626: < * THE END OF FILE RETURN MAY BE USED IF THIS MAKES ! 1627: < * SENSE ON THE TARGET MACHINE (E.G. IF THERE IS AN ! 1628: < * EOF CHARACTER.) ! 1629: < * ! 1630: < * (XR) PTR TO 120 CHAR BUFFER (SCBLK PTR) ! 1631: < * JSR SYSRI CALL TO READ LINE FROM TERMINAL ! 1632: < * PPM LOC END OF FILE RETURN ! 1633: < * (WA,WB,WC) MAY BE DESTROYED ! 1634: < EJC ! 1635: < * ! 1636: < * SYSRW -- REWIND FILE ! 1637: < * ! 1638: < SYSRW EXP DEFINE EXTERNAL ENTRY POINT ! 1639: < * ! 1640: < * SYSRW IS USED TO REWIND A FILE I.E. REPOSITION THE FILE ! 1641: < * AT THE START BEFORE THE FIRST RECORD. THE FILE SHOULD BE ! 1642: < * CLOSED AND THE NEXT READ OR WRITE CALL WILL OPEN THE ! 1643: < * FILE AT THE START. ! 1644: < * ! 1645: < * (WA) PTR TO FCBLK OR ZERO ! 1646: ! 1647: ! 1648: ! 1649: ! 1650: ! 1651: ! 1652: ! 1653: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 26 ! 1654: ! 1655: ! 1656: < * (XR) REWIND ARG (SCBLK PTR) ! 1657: < * JSR SYSRW CALL TO REWIND FILE ! 1658: < * PPM LOC RETURN HERE IF FILE DOES NOT EXIST ! 1659: < * PPM LOC RETURN HERE IF REWIND NOT ALLOWED ! 1660: < * PPM LOC RETURN HERE IF I/O ERROR ! 1661: < EJC ! 1662: --- ! 1663: > SYSBX EXP E,0 ! 1664: > .IF .CSCI ! 1665: > SYSCI EXP E,0 ! 1666: > .FI ! 1667: > SYSDT EXP E,0 ! 1668: > SYSEC EXP E,2 ! 1669: > SYSEF EXP E,2 ! 1670: > SYSEJ EXP E,0 ! 1671: > SYSEM EXP E,0 ! 1672: > SYSEN EXP E,2 ! 1673: > SYSEP EXP E,2 ! 1674: > .IF .CNLD ! 1675: > .ELSE ! 1676: > SYSEX EXP E,1 ! 1677: > .FI ! 1678: > SYSHS EXP E,2 ! 1679: > SYSID EXP E,0 ! 1680: > SYSIL EXP E,0 ! 1681: > SYSIN EXP E,2 ! 1682: > SYSIO EXP E,2 ! 1683: > .IF .CNLD ! 1684: > .ELSE ! 1685: > SYSLD EXP E,2 ! 1686: > .FI ! 1687: > SYSMM EXP E,0 ! 1688: > SYSMX EXP E,0 ! 1689: > SYSOU EXP E,2 ! 1690: > SYSPI EXP E,2 ! 1691: > SYSPP EXP E,0 ! 1692: > SYSPR EXP E,2 ! 1693: > SYSRD EXP E,2 ! 1694: > SYSRI EXP E,2 ! 1695: > SYSSC EXP E,2 ! 1696: 1252,1272c205 ! 1697: < * ! 1698: < * SYSST -- SET FILE POINTER ! 1699: < * ! 1700: < SYSST EXP DEFINE EXTERNAL ENTRY POINT ! 1701: < * ! 1702: < * SYSST IS CALLED TO CHANGE THE POSITION OF A FILE ! 1703: < * POINTER. THIS IS ACCOMPLISHED IN A SYSTEM DEPENDENT ! 1704: < * MANNER, AND THUS THE 2ND AND 3RD ARGUMENTS ARE PASSED ! 1705: < * UNCONVERTED. ! 1706: < * ! 1707: < * (WA) FCBLK POINTER ! 1708: < * (WB) 2ND ARGUMENT ! 1709: < * (WC) 3RD ARGUMENT ! 1710: < * JSR SYSST CALL TO SET FILE POINTER ! 1711: < * PPM LOC RETURN HERE IF INVALID 2ND ARG ! 1712: ! 1713: ! 1714: ! 1715: ! 1716: ! 1717: ! 1718: ! 1719: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 27 ! 1720: ! 1721: ! 1722: < * PPM LOC RETURN HERE IF INVALID 3RD ARG ! 1723: < * PPM LOC RETURN HERE IF FILE DOES NOT EXIST ! 1724: < * PPM LOC RETURN HERE IF SET NOT ALLOWED ! 1725: < * PPM LOC RETURN HERE IF I/O ERROR ! 1726: < * ! 1727: < EJC ! 1728: --- ! 1729: > SYSST EXP E,2 ! 1730: 1274,1316c207,212 ! 1731: < * ! 1732: < * SYSTM -- GET EXECUTION TIME SO FAR ! 1733: < * ! 1734: < SYSTM EXP DEFINE EXTERNAL ENTRY POINT ! 1735: < * ! 1736: < * SYSTM IS USED TO OBTAIN THE AMOUNT OF EXECUTION TIME ! 1737: < * USED SO FAR SINCE SPITBOL WAS GIVEN CONTROL. THE UNITS ! 1738: < * ARE DESCRIBED AS MILLISECONDS IN THE SPITBOL OUTPUT, BUT ! 1739: < * THE EXACT MEANING IS SYSTEM DEPENDENT. WHERE APPROPRIATE, ! 1740: < * THIS VALUE SHOULD RELATE TO PROCESSOR RATHER THAN CLOCK ! 1741: < * TIMING VALUES. ! 1742: < * ! 1743: < * JSR SYSTM CALL TO GET TIMER VALUE ! 1744: < * (IA) TIME SO FAR IN MILLISECONDS ! 1745: < EJC ! 1746: < * ! 1747: < * SYSTT -- TRACE TOGGLE ! 1748: < * ! 1749: < SYSTT EXP DEFINE EXTERNAL ENTRY POINT ! 1750: < * ! 1751: < * CALLED BY SPITBOL FUNCTION TRACE() WITH NO ARGS TO ! 1752: < * TOGGLE THE SYSTEM TRACE SWITCH. THIS PERMITS TRACING OF ! 1753: < * LABELS IN SPITBOL CODE TO BE TURNED ON OR OFF. ! 1754: < * ! 1755: < * JSR SYSTT CALL TO TOGGLE TRACE SWITCH ! 1756: < EJC ! 1757: < * ! 1758: < * SYSUL -- UNLOAD EXTERNAL FUNCTION ! 1759: < * ! 1760: < SYSUL EXP DEFINE EXTERNAL ENTRY POINT ! 1761: < * ! 1762: < * SYSUL IS USED TO UNLOAD A FUNCTION PREVIOUSLY ! 1763: < * LOADED WITH A CALL TO SYSLD. ! 1764: < * ! 1765: < * (XR) PTR TO CONTROL BLOCK (EFBLK) ! 1766: < * JSR SYSUL CALL TO UNLOAD FUNCTION ! 1767: < * ! 1768: < * THE FUNCTION CANNOT BE CALLED FOLLOWING A SYSUL CALL ! 1769: < * UNTIL ANOTHER SYSLD CALL IS MADE FOR THE SAME FUNCTION. ! 1770: < * ! 1771: < * THE EFBLK CONTAINS THE FUNCTION CODE POINTER AND ALSO A ! 1772: < * POINTER TO THE VRBLK CONTAINING THE FUNCTION NAME (SEE ! 1773: < * DEFINITIONS AND DATA STRUCTURES SECTION). ! 1774: --- ! 1775: > SYSTM EXP E,0 ! 1776: > SYSTT EXP E,0 ! 1777: > .IF .CNLD ! 1778: ! 1779: ! 1780: ! 1781: ! 1782: ! 1783: ! 1784: ! 1785: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 28 ! 1786: ! 1787: ! 1788: > .ELSE ! 1789: > SYSUL EXP E,0 ! 1790: > .FI ! 1791: 1319,1405c215 ! 1792: < EJC ! 1793: < * ! 1794: < * SYSXI -- EXIT TO PRODUCE LOAD MODULE ! 1795: < * ! 1796: < SYSXI EXP DEFINE EXTERNAL ENTRY POINT ! 1797: < * ! 1798: < * WHEN SYSXI IS CALLED, XL CONTAINS EITHER A STRING POINTER ! 1799: < * OR ZERO. IN THE FORMER CASE, THE STRING GIVES THE ! 1800: < * CHARACTER NAME OF A PROGRAM. THE INTENTION IS THAT ! 1801: < * SPITBOL EXECUTION SHOULD BE TERMINATED FORTHWITH AND ! 1802: < * THE NAMED PROGRAM LOADED AND EXECUTED. THIS TYPE OF CHAIN ! 1803: < * EXECUTION IS VERY SYSTEM DEPENDENT AND IMPLEMENTORS MAY ! 1804: < * CHOOSE TO OMIT IT OR FIND IT IMPOSSIBLE TO PROVIDE. ! 1805: < * IF (XL) IS ZERO,IA CONTAINS ONE OF THE FOLLOWING INTEGERS ! 1806: < * ! 1807: < * -1, -2, -3 ! 1808: < * CREATE IF POSSIBLE A LOAD MODULE CONTAINING ONLY THE ! 1809: < * IMPURE AREA OF MEMORY WHICH NEEDS TO BE LOADED WITH ! 1810: < * A COMPATIBLE PURE SEGMENT FOR SUBSEQUENT EXECUTIONS. ! 1811: < * VERSION NUMBERS TO CHECK COMPATIBILITY SHOULD BE ! 1812: < * KEPT IN BOTH SEGMENTS AND CHECKED ON LOADING. ! 1813: < * TO ASSIST WITH THIS CHECK, (XR) ON ENTRY IS A ! 1814: < * POINTER TO AN SCBLK CONTAINING THE SPITBOL MAJOR ! 1815: < * VERSION NUMBER V.V (SEE SYSID). ! 1816: < * ! 1817: < * 0 IF POSSIBLE, RETURN CONTROL TO JOB CONTROL ! 1818: < * COMMAND LEVEL. THE EFFECT IF AVAILABLE WILL BE ! 1819: < * SYSTEM DEPENDENT. ! 1820: < * ! 1821: < * +1, +2, +3 ! 1822: < * CREATE IF POSSIBLE A LOAD MODULE FROM ALL OF ! 1823: < * MEMORY. IT SHOULD BE POSSIBLE TO LOAD AND EXECUTE ! 1824: < * THIS MODULE DIRECTLY. ! 1825: < * ! 1826: < * IN THE CASE OF SAVED LOAD MODULES, THE STATUS OF OPEN ! 1827: < * FILES IS NOT PRESERVED AND IMPLEMENTORS MAY CHOOSE TO ! 1828: < * OFFER MEANS OF ATTACHING FILES BEFORE EXECUTION OF LOAD ! 1829: < * MODULES STARTS OR LEAVE IT TO THE USER TO INCLUDE ! 1830: < * SUITABLE INPUT(), OUTPUT() CALLS IN HIS PROGRAM. ! 1831: < * SYSXI SHOULD MAKE A NOTE THAT NO I/O CHANNELS, ! 1832: < * INCLUDING STANDARD FILES, HAVE FILES ATTACHED SO THAT ! 1833: < * CALLS OF SYSIN, SYSOU, SYSPR, SYSRD SHOULD FAIL UNLESS ! 1834: < * NEW ASSOCIATIONS ARE MADE FOR THE LOAD MODULE. ! 1835: < * AT LEAST IN THE CASE OF THE STANDARD OUTPUT FILE, IT IS ! 1836: < * RECOMMENDED THAT EITHER THE USER BE REQUIRED TO ATTACH ! 1837: < * A FILE OR THAT A DEFAULT FILE IS ATTACHED, SINCE THE ! 1838: < * PROBLEM OF ERROR MESSAGES GENERATED BY THE LOAD MODULE ! 1839: < * IS OTHERWISE SEVERE. AS A LAST RESORT, IF SPITBOL ! 1840: < * ATTEMPTS TO WRITE TO THE STANDARD OUTPUT FILE AND GETS A ! 1841: < * REPLY INDICATING THAT SUCH OUPUT IS UNACCEPTABLE IT STOPS ! 1842: < * BY USING AN ENTRY TO SYSEJ WITH ENDING CODE 998. ! 1843: < * AS DESCRIBED BELOW, PASSING OF SOME ARGUMENTS MAKES IT ! 1844: ! 1845: ! 1846: ! 1847: ! 1848: ! 1849: ! 1850: ! 1851: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 29 ! 1852: ! 1853: ! 1854: < * CLEAR THAT LOAD MODULE WILL USE A STANDARD OUTPUT FILE. ! 1855: < * ! 1856: < * IF USE IS MADE OF FCBLKS FOR I/O ASSOCIATION, SPITBOL ! 1857: < * BUILDS A CHAIN SO THAT THOSE IN USE MAY BE FOUND IN SYSXI ! 1858: < * AND SYSEJ. THE NODES ARE 4 WORDS LONG. THIRD WORD ! 1859: < * CONTAINS LINK TO NEXT NODE OR 0, FOURTH WORD CONTAINS ! 1860: < * FCBLK POINTER. ! 1861: < EJC ! 1862: < * ! 1863: < * SYSXI (CONTINUED) ! 1864: < * ! 1865: < * (XL) ZERO OR SCBLK PTR ! 1866: < * (XR) PTR TO V.V SCBLK ! 1867: < * (IA) SIGNED INTEGER ARGUMENT ! 1868: < * (WB) 0 OR PTR TO HEAD OF FCBLK CHAIN ! 1869: < * JSR SYSXI CALL TO EXIT ! 1870: < * PPM LOC REQUESTED ACTION NOT POSSIBLE ! 1871: < * PPM LOC ACTION CAUSED IRRECOVERABLE ERROR ! 1872: < * (REGISTERS) SHOULD BE PRESERVED OVER CALL ! 1873: < * ! 1874: < * LOADING AND RUNNING THE LOAD MODULE OR RETURNING FROM ! 1875: < * JCL COMMAND LEVEL CAUSES EXECUTION TO RESUME AT THE POINT ! 1876: < * AFTER THE ERROR RETURNS WHICH FOLLOW THE CALL OF SYSXI. ! 1877: < * THE VALUE PASSED AS EXIT ARGUMENT IS USED TO INDICATE ! 1878: < * OPTIONS REQUIRED ON RESUMPTION OF LOAD MODULE. ! 1879: < * +1 OR -1 REQUIRE THAT ON RESUMPTION, SYSID AND SYSPP BE ! 1880: < * CALLED AND A HEADING PRINTED ON THE STANDARD OUTPUT FILE. ! 1881: < * +2 OR -2 INDICATE THAT SYSPP WILL BE CALLED BUT NOT SYSID ! 1882: < * AND NO HEADING WILL BE PUT ON STANDARD OUTPUT FILE. ! 1883: < * ABOVE OPTIONS HAVE THE OBVIOUS IMPLICATION THAT A ! 1884: < * STANDARD O/P FILE MUST BE PROVIDED FOR THE LOAD MODULE. ! 1885: < * +3 OR -3 INDICATE CALLS OF NEITHER SYSID NOR SYSPP ! 1886: < * AND NO HEADING WILL BE PLACED ON STANDARD OUTPUT FILE. ! 1887: < * NO RETURN FROM SYSXI IS POSSIBLE IF ANOTHER PROGRAM ! 1888: < * IS LOADED AND ENTERED. ! 1889: --- ! 1890: > SYSXI EXP E,2 ! 1891: 1407a218 ! 1892: > * NAME GLOBAL LABELS, INTERNAL PROCEDURES AND ROUTINES. ! 1893: 1409,1410c220,228 ! 1894: < * INTRODUCE THE INTERNAL PROCEDURES. ! 1895: < * ! 1896: --- ! 1897: > CMPCE GLB ! 1898: > CMPEL GLB ! 1899: > CMPLE GLB ! 1900: > CMPSE GLB ! 1901: > EVLXF GLB ! 1902: > EVLXN GLB ! 1903: > EVLXV GLB ! 1904: > LCNXE GLB ! 1905: > TRXQR GLB ! 1906: 1420d237 ! 1907: < APNDB INP E,2 ! 1908: 1428a246 ! 1909: > CBLCK INP N,1 ! 1910: ! 1911: ! 1912: ! 1913: ! 1914: ! 1915: ! 1916: ! 1917: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 30 ! 1918: ! 1919: ! 1920: 1437c255 ! 1921: < COPYB INP N,1 ! 1922: --- ! 1923: > COPND INP E,0 ! 1924: 1439d256 ! 1925: < DTACH INP E,0 ! 1926: 1444c261 ! 1927: < EVALI INP R,4 ! 1928: --- ! 1929: > EVALI INP R,3 ! 1930: 1446c263 ! 1931: < EVALS INP R,3 ! 1932: --- ! 1933: > EVALS INP R,2 ! 1934: 1453,1455d269 ! 1935: < .IF .CULC ! 1936: < FLSTG INP R,0 ! 1937: < .FI ! 1938: 1458a273,276 ! 1939: > .IF .CNBF ! 1940: > .ELSE ! 1941: > GTBUF INP E,1 ! 1942: > .FI ! 1943: 1481,1483c299,300 ! 1944: < IOFCB INP N,2 ! 1945: < IOPPF INP N,0 ! 1946: < IOPUT INP N,6 ! 1947: --- ! 1948: > IOFTG INP N,1 ! 1949: > IOPUT INP N,4 ! 1950: 1500a318 ! 1951: > PRTCF INP E,0 ! 1952: 1502,1503c320,321 ! 1953: < PRTIC INP E,0 ! 1954: < PRTIS INP E,0 ! 1955: --- ! 1956: > PRTFB INP E,0 ! 1957: > PRTFH INP R,0 ! 1958: 1506,1507d323 ! 1959: < PRTMX INP E,0 ! 1960: < PRTNL INP R,0 ! 1961: 1511a328 ! 1962: > PRTSF INP E,0 ! 1963: 1515c332 ! 1964: < PRTTR INP E,0 ! 1965: --- ! 1966: > PRTVF INP E,0 ! 1967: 1517a335,336 ! 1968: > PTTFH INP E,0 ! 1969: > PTTST INP E,0 ! 1970: 1522a342,345 ! 1971: > .IF .CASL ! 1972: > SBSCC INP E,0 ! 1973: > SBSTG INP E,0 ! 1974: > .FI ! 1975: 1529c352 ! 1976: ! 1977: ! 1978: ! 1979: ! 1980: ! 1981: ! 1982: ! 1983: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 31 ! 1984: ! 1985: ! 1986: < SORTA INP N,0 ! 1987: --- ! 1988: > SORTA INP N,1 ! 1989: 1532c355 ! 1990: < SORTH INP E,0 ! 1991: --- ! 1992: > SORTH INP N,0 ! 1993: 1535c358 ! 1994: < TRACE INP N,2 ! 1995: --- ! 1996: > TRACE INP N,3 ! 1997: 1536a360 ! 1998: > TRCHN INP E,1 ! 1999: 1541,1543d364 ! 2000: < * ! 2001: < * INTRODUCE THE INTERNAL ROUTINES ! 2002: < * ! 2003: 1545a367,368 ! 2004: > EROSI INR ! 2005: > ERROR INR ! 2006: 1560a384 ! 2007: > INITL INR ! 2008: 1562a387 ! 2009: > STAKV INR ! 2010: 1567,1568d391 ! 2011: < SYSAB INR ! 2012: < SYSTU INR ! 2013: 1569a393,395 ! 2014: > * THIS SECTION CONTAINS ALL SYMBOL DEFINITIONS AND ALSO ! 2015: > * PICTURES OF ALL DATA STRUCTURES USED IN THE SYSTEM. ! 2016: > * ! 2017: 1577a404,407 ! 2018: > * NOTE THAT EVEN IF CONDITIONAL ASSEMBLY IS USED TO OMIT ! 2019: > * SOME FEATURE (E.G. REAL ARITHMETIC) A FULL SET OF CFP$- ! 2020: > * VALUES MUST BE SUPPLIED. USE DUMMY VALUES IF GENUINE ! 2021: > * ONES ARE NOT NEEDED. ! 2022: 1581c411 ! 2023: < CFP$B EQU * BYTES/WORD ADDRESSING FACTOR ! 2024: --- ! 2025: > CFP$B EQU * BAUS/WORD ADDRESSING FACTOR ! 2026: 1585c415 ! 2027: < CFP$F EQU * OFFSET IN BYTES TO CHARS IN ! 2028: --- ! 2029: > CFP$F EQU * OFFSET IN BAUS TO CHARS IN ! 2030: 1594,1601d423 ! 2031: < * THE FOLLOWING DEFINITIONS REQUIRE THE SUPPLY OF EITHER ! 2032: < * A SINGLE PARAMETER IF REAL ARITHMETIC IS OMITTED OR ! 2033: < * THREE PARAMETERS IF REAL ARITHMETIC IS INCLUDED. ! 2034: < * ! 2035: < .IF .CNRA ! 2036: < NSTMX EQU * NO. OF DECIMAL DIGITS IN CFP$M ! 2037: < .ELSE ! 2038: < * ! 2039: 1606,1613d427 ! 2040: < CFP$X EQU * MAX DIGITS IN REAL EXPONENT ! 2041: < * ! 2042: ! 2043: ! 2044: ! 2045: ! 2046: ! 2047: ! 2048: ! 2049: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 32 ! 2050: ! 2051: ! 2052: < MXDGS EQU CFP$S+CFP$X MAX DIGITS IN REAL NUMBER ! 2053: < * ! 2054: < NSTMX EQU MXDGS+5 MAX SPACE FOR REAL (FOR +0.E+) ! 2055: < .FI ! 2056: < .IF .CUCF ! 2057: < * ! 2058: 1620c434,439 ! 2059: < .FI ! 2060: --- ! 2061: > * ! 2062: > CFP$X EQU * MAX DIGITS IN REAL EXPONENT ! 2063: > * ! 2064: > MXDGS EQU CFP$S+CFP$X MAX DIGITS IN REAL NUMBER ! 2065: > * ! 2066: > NSTMX EQU MXDGS+5 MAX SPACE FOR REAL (FOR +0.E+) ! 2067: 1759a579 ! 2068: > * THEY ARE ALL UNDER CONDITIONAL ASSEMBLY. ! 2069: 1798a619,620 ! 2070: > .IF .CASL ! 2071: > DFA$A EQU CH$$A-CH$LA DIFF BETWEEN LC AND UC LETTERS ! 2072: 1800,1807d621 ! 2073: < * IF A DELIMITER OTHER THAN CH$CM MUST BE USED IN ! 2074: < * THE THIRD ARGUMENT OF INPUT(),OUTPUT() THEN .CIOD SHOULD ! 2075: < * BE DEFINED AND A PARAMETER SUPPLIED FOR IODEL. ! 2076: < * ! 2077: < .IF .CIOD ! 2078: < IODEL EQU * ! 2079: < .ELSE ! 2080: < IODEL EQU CH$CM ! 2081: 1927c741,742 ! 2082: < BL$CT EQU BL$CM+1 CTBLK ! 2083: --- ! 2084: > BL$CO EQU BL$CM+1 COBLK ! 2085: > BL$CT EQU BL$CO+1 CTBLK ! 2086: 2030,2033d844 ! 2087: < .IF .CNBF ! 2088: < .ELSE ! 2089: < * BCBLK BUFFER CONTROL BLOCK ! 2090: < .FI ! 2091: 2079c890 ! 2092: < ARLEN EQU IDVAL+1 LENGTH OF ARBLK IN BYTES ! 2093: --- ! 2094: > ARLEN EQU IDVAL+1 LENGTH OF ARBLK IN BAUS ! 2095: 2096c907 ! 2096: < * THE LENGTH OF AN ARBLK IN BYTES MAY NOT EXCEED MXLEN. ! 2097: --- ! 2098: > * THE LENGTH OF AN ARBLK IN BAUS MAY NOT EXCEED MXLEN. ! 2099: 2103c914 ! 2100: < * ! 2101: --- ! 2102: > EJC ! 2103: 2197,2198c1008,1009 ! 2104: < CCLEN EQU CCTYP+1 LENGTH OF CCBLK IN BYTES ! 2105: < CCUSE EQU CCLEN+1 OFFSET PAST LAST USED WORD (BYTES) ! 2106: --- ! 2107: > CCLEN EQU CCTYP+1 LENGTH OF CCBLK IN BAUS ! 2108: ! 2109: ! 2110: ! 2111: ! 2112: ! 2113: ! 2114: ! 2115: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 33 ! 2116: ! 2117: ! 2118: > CCUSE EQU CCLEN+1 OFFSET PAST LAST USED WORD (BAUS) ! 2119: 2227c1038 ! 2120: < CDLEN EQU OFFS2 LENGTH OF CDBLK IN BYTES ! 2121: --- ! 2122: > CDLEN EQU OFFS2 LENGTH OF CDBLK IN BAUS ! 2123: 2564c1375 ! 2124: < CMLEN EQU CMIDN+1 LENGTH OF CMBLK IN BYTES ! 2125: --- ! 2126: > CMLEN EQU CMIDN+1 LENGTH OF CMBLK IN BAUS ! 2127: 2626a1438,1477 ! 2128: > * COPY FILE BLOCK (COBLK) ! 2129: > * ! 2130: > * A CHAIN STACK OF COPY BLOCKS IS BUILT FOR EVERY NESTED ! 2131: > * -COPY CONTROL CARD. THE CONTROL BLOCK IS USED TO PRESERVE ! 2132: > * THE INPUT CONTEXT OF THE FILE CONTAINING THE -COPY. ! 2133: > * AS -COPYS ARE ENDED, THESE BLOCKS ARE POPPED OFF THE CHAIN ! 2134: > * AND THE STATE RESTORED. SEE ROUTINES CNCRD, COPND. ! 2135: > * ! 2136: > * +------------------------------------+ ! 2137: > * I COTYP I ! 2138: > * +------------------------------------+ ! 2139: > * I CONXT I ! 2140: > * +------------------------------------+ ! 2141: > * I COIOT I ! 2142: > * +------------------------------------+ ! 2143: > * I COTTI I ! 2144: > * +------------------------------------+ ! 2145: > * I COCIM I ! 2146: > * +------------------------------------+ ! 2147: > * I COSPT I ! 2148: > * +------------------------------------+ ! 2149: > * I COSLS I ! 2150: > * +------------------------------------+ ! 2151: > * I COSIN I ! 2152: > * +------------------------------------+ ! 2153: > * I COSTL I ! 2154: > * +------------------------------------+ ! 2155: > * ! 2156: > COTYP EQU 0 POINTER TO DUMMY ROUTINE B$COP ! 2157: > CONXT EQU COTYP+1 POINT TO NEXT (OUTER -COPY) COBLK ! 2158: > COIOT EQU CONXT+1 RECORD IOTAG FOR OSINT ! 2159: > COTTI EQU COIOT+1 RECORD TTINS FLAG ! 2160: > COCIM EQU COTTI+1 RECORD R$CIM COMPILER IMAGE ! 2161: > COSPT EQU COCIM+1 RECORD SCNPT SCAN POINTER ! 2162: > COSLS EQU COSPT+1 RECORD CSWLS LISTING FLAG ! 2163: > COSIN EQU COSLS+1 RECORD CSWIN -INXXX VALUE ! 2164: > COSTL EQU COSIN+1 RECORD R$STL -STITL STRING PTR ! 2165: > COSI$ EQU COSTL+1 SIZE OF COBLK ! 2166: > EJC ! 2167: > * ! 2168: 2688c1539 ! 2169: < DFLEN EQU FARGS+1 LENGTH OF DFBLK IN BYTES ! 2170: --- ! 2171: > DFLEN EQU FARGS+1 LENGTH OF DFBLK IN BAUS ! 2172: 2798a1650,1651 ! 2173: > .IF .CNLD ! 2174: ! 2175: ! 2176: ! 2177: ! 2178: ! 2179: ! 2180: ! 2181: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 34 ! 2182: ! 2183: ! 2184: > .ELSE ! 2185: 2826c1679 ! 2186: < EFLEN EQU FARGS+1 LENGTH OF EFBLK IN BYTES ! 2187: --- ! 2188: > EFLEN EQU FARGS+1 LENGTH OF EFBLK IN BAUS ! 2189: 2845a1699,1700 ! 2190: > * 4 TYPE IS BUFFER ! 2191: > .FI ! 2192: 2901c1756 ! 2193: < EXLEN EQU EXSTM+1 LENGTH OF EXBLK IN BYTES ! 2194: --- ! 2195: > EXLEN EQU EXSTM+1 LENGTH OF EXBLK IN BAUS ! 2196: 2941c1796 ! 2197: < FFOFS EQU FFNXT+1 OFFSET (BYTES) TO FIELD IN PDBLK ! 2198: --- ! 2199: > FFOFS EQU FFNXT+1 OFFSET (BAUS) TO FIELD IN PDBLK ! 2200: 3022c1877 ! 2201: < * IS FOUND NMOFS BYTES PAST THE ADDRESS IN NMBAS. ! 2202: --- ! 2203: > * IS FOUND NMOFS BAUS PAST THE ADDRESS IN NMBAS. ! 2204: 3135c1990 ! 2205: < * CONTAINS THE LENGTH OF THE PDBLK IN BYTES (FIELD DFPDL). ! 2206: --- ! 2207: > * CONTAINS THE LENGTH OF THE PDBLK IN BAUS (FIELD DFPDL). ! 2208: 3169c2024 ! 2209: < PFLEN EQU FARGS+1 LENGTH OF PFBLK IN BYTES ! 2210: --- ! 2211: > PFLEN EQU FARGS+1 LENGTH OF PFBLK IN BAUS ! 2212: 3176c2031 ! 2213: < PFAGB EQU PFARG-1 OFFSET BEHIND PFARG FOR ARG, LOCAL ! 2214: --- ! 2215: > PFAGB EQU PFARG-1 OFFSET BEHIND PFARG FOR ARG,LOCAL ! 2216: 3237c2092 ! 2217: < * IS GIVEN IN BYTES BY CFP$F AND THAT THIS VALUE IS ! 2218: --- ! 2219: > * IS GIVEN IN BAUS BY CFP$F AND THAT THIS VALUE IS ! 2220: 3278c2133 ! 2221: < * I SVCHS I ! 2222: --- ! 2223: > * / SVCHS / ! 2224: 3323c2178,2181 ! 2225: < SVFPK EQU SVFNP+SVKVC PREEVAL FCN + CONST KEYWD + VAL ! 2226: --- ! 2227: > .IF .CNFN ! 2228: > .ELSE ! 2229: > SVFPK EQU SVFNP+SVKVC PREEVAL FUNC + CONST KEYWD+VAL ! 2230: > .FI ! 2231: 3333c2191 ! 2232: < * THE ITEM AND APPLY FUNCTIONS FALL OUTSIDE THIS CATEGORY. ! 2233: --- ! 2234: > * THE APPLY FUNCTION FALLS OUTSIDE THIS CATEGORY. ! 2235: 3373c2231 ! 2236: < * PREDEFINED FUNCTIONS USING THIS ARE APPLY AND ITEM. ! 2237: --- ! 2238: > * PREDEFINED FUNCTION USING THIS IS APPLY. ! 2239: 3401,3409c2259,2260 ! 2240: ! 2241: ! 2242: ! 2243: ! 2244: ! 2245: ! 2246: ! 2247: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 35 ! 2248: ! 2249: ! 2250: < K$ABE EQU 0 ABEND ! 2251: < K$ANC EQU K$ABE+CFP$B ANCHOR ! 2252: < .IF .CULC ! 2253: < K$CAS EQU K$ANC+CFP$B CASE ! 2254: < K$COD EQU K$CAS+CFP$B CODE ! 2255: < .ELSE ! 2256: < K$COD EQU K$ANC+CFP$B CODE ! 2257: < .FI ! 2258: < K$DMP EQU K$COD+CFP$B DUMP ! 2259: --- ! 2260: > K$ANC EQU 0 ANCHOR ! 2261: > K$DMP EQU K$ANC+CFP$B DUMP ! 2262: 3447c2298,2299 ! 2263: < K$STC EQU K$RTN+1 STCOUNT ! 2264: --- ! 2265: > K$COD EQU K$RTN+1 CODE ! 2266: > K$STC EQU K$COD+1 STCOUNT ! 2267: 3454a2307 ! 2268: > K$$CD EQU K$COD-K$ALP CODE ! 2269: 3478d2330 ! 2270: < * +------------------------------------+ ! 2271: 3487c2339 ! 2272: < TBLEN EQU OFFS2 LENGTH OF TBBLK IN BYTES ! 2273: --- ! 2274: > TBLEN EQU OFFS2 LENGTH OF TBBLK IN BAUS ! 2275: 3546c2398 ! 2276: < * I TRTAG OR TRTER OR TRTRF I ! 2277: --- ! 2278: > * I TRTAG OR TRTER I ! 2279: 3548c2400 ! 2280: < * I TRFNC OR TRFPT I ! 2281: --- ! 2282: > * I TRFNC OR TRTRI I ! 2283: 3557c2409 ! 2284: < TRTAG EQU TRVAL+1 TRACE TAG ! 2285: --- ! 2286: > TRTAG EQU TRVAL+1 TRACE TAG OR IOTAG ! 2287: 3559d2410 ! 2288: < TRTRF EQU TRTAG PTR TO TRBLK HOLDING FCBLK PTR ! 2289: 3561c2412 ! 2290: < TRFPT EQU TRFNC FCBLK PTR FOR SYSIO ! 2291: --- ! 2292: > TRTRI EQU TRFNC PTR TO TRACE BLOCK HOLDING IOTAG ! 2293: 3567,3568c2418,2419 ! 2294: < TRTOU EQU TRTVL+1 TRACE TYPE FOR OUTPUT ASSOCIATION ! 2295: < TRTFC EQU TRTOU+1 TRACE TYPE FOR FCBLK IDENTIFICATION ! 2296: --- ! 2297: > TRTIO EQU TRTVL+1 TRACE TYPE FOR IOTAG TRACE BLOCK ! 2298: > TRTOU EQU TRTIO+1 TRACE TYPE FOR OUTPUT ASSOCIATION ! 2299: 3584,3586c2435 ! 2300: < * TRTRF POINTS TO THE TRAP BLOCK WHICH IN TURN POINTS ! 2301: < * TO AN FCBLK USED FOR I/O ASSOCIATION. ! 2302: < * TRFPT IS THE FCBLK PTR RETURNED BY SYSIO. ! 2303: --- ! 2304: > * TRTRI IS A PTR TO IOTAG TRBLK FROM SYSIO OR ZERO. ! 2305: 3625,3627c2474 ! 2306: ! 2307: ! 2308: ! 2309: ! 2310: ! 2311: ! 2312: ! 2313: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 36 ! 2314: ! 2315: ! 2316: < * TRTRF POINTS TO THE TRAP BLOCK WHICH IN TURN POINTS ! 2317: < * TO AN FCBLK USED FOR I/O ASSOCIATION. ! 2318: < * TRFPT IS THE FCBLK PTR RETURNED BY SYSIO. ! 2319: --- ! 2320: > * TRTRI IS A PTR TO IOTAG TRBLK FROM SYSIO OR ZERO. ! 2321: 3681c2528 ! 2322: < * INPUT/OUTPUT FILE ARG1 TRAP BLOCK ! 2323: --- ! 2324: > * INPUT/OUTPUT FILETAG TRAP BLOCK (TRTIO) ! 2325: 3683c2530 ! 2326: < * THE VALUE FIELD OF THE VARIABLE POINTS TO A TRBLK ! 2327: --- ! 2328: > * THE VALUE FIELD OF THE FILETAG VBL POINTS TO A TRBLK ! 2329: 3687,3689c2534 ! 2330: < * TO HOLD A POINTER TO THE FCBLK WHICH AN ! 2331: < * IMPLEMENTATION MAY REQUEST TO HOLD INFORMATION ! 2332: < * ABOUT A FILE. ! 2333: --- ! 2334: > * TO HOLD THE IOTAG RETURNED BY A SYSIO CALL ! 2335: 3691,3694c2536,2538 ! 2336: < * TRTYP IS SET TO TRTFC ! 2337: < * TRNEXT POINTS TO NEXT TRBLK OR TRVAL IS VARIABLE VAL ! 2338: < * TRFNM IS 0 ! 2339: < * TRFPT IS THE FCBLK POINTER. ! 2340: --- ! 2341: > * TRTYP IS SET TO TRTIO ! 2342: > * TRNXT POINTS TO NEXT TRBLK OR TRVAL IS VARIABLE VAL ! 2343: > * TRTAG HOLDS THE IOTAG. ! 2344: 3701a2546 ! 2345: > * FILETAG ASSOCIATION (IF PRESENT) ! 2346: 3729c2574 ! 2347: < VCLEN EQU OFFS2 LENGTH OF VCBLK IN BYTES ! 2348: --- ! 2349: > VCLEN EQU OFFS2 LENGTH OF VCBLK IN BAUS ! 2350: 3832c2677 ! 2351: < * VRCHS IS THE NAME (LJRZ) IF VRLEN IS NON-ZERO. ! 2352: --- ! 2353: > * VRCHS IS THE NAME IF VRLEN IS NON-ZERO. ! 2354: 3843,3844d2687 ! 2355: < * THIS TYPE OF BLOCK MAY BE USED AS A FILE CONTROL BLOCK. ! 2356: < * SEE SYSFC,SYSIN,SYSOU,S$INP,S$OUP FOR DETAILS. ! 2357: 3857c2700 ! 2358: < XNLEN EQU XNTYP+1 LENGTH OF XNBLK IN BYTES ! 2359: --- ! 2360: > XNLEN EQU XNTYP+1 LENGTH OF XNBLK IN BAUS ! 2361: 3873,3874d2715 ! 2362: < * THIS TYPE OF BLOCK MAY BE USED AS A FILE CONTROL BLOCK. ! 2363: < * SEE SYSFC,SYSIN,SYSOU,S$INP,S$OUP FOR DETAILS. ! 2364: 3887c2728 ! 2365: < XRLEN EQU XRTYP+1 LENGTH OF XRBLK IN BYTES ! 2366: --- ! 2367: > XRLEN EQU XRTYP+1 LENGTH OF XRBLK IN BAUS ! 2368: 3911,3912c2752 ! 2369: < INILN EQU 132 DEFAULT IMAGE LENGTH FOR COMPILER ! 2370: < INILS EQU 80 IMAGE LENGTH IF -SEQU IN EFFECT ! 2371: --- ! 2372: ! 2373: ! 2374: ! 2375: ! 2376: ! 2377: ! 2378: ! 2379: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 37 ! 2380: ! 2381: ! 2382: > INILN EQU 160 DEFAULT IMAGE LENGTH FOR COMPILER ! 2383: 3914,3916d2753 ! 2384: < IONMB EQU 2 NAME BASE USED FOR IOCHN IN SYSIO ! 2385: < IONMO EQU 4 NAME OFFSET USED FOR IOCHN IN SYSIO ! 2386: < * ! 2387: 3931d2767 ! 2388: < NINI8 EQU 998 ! 2389: 3934d2769 ! 2390: < EJC ! 2391: 3945c2780 ! 2392: < RILEN EQU 120 BUFFER LENGTH FOR SYSRI ! 2393: --- ! 2394: > RILEN EQU 160 BUFFER LENGTH FOR SYSRI ! 2395: 4051,4053c2886,2888 ! 2396: < .IF .CULC ! 2397: < CC$CA EQU 0 -CASE ! 2398: < CC$DO EQU CC$CA+1 -DOUBLE ! 2399: --- ! 2400: > .IF .CASL ! 2401: > CC$CI EQU 0 -CASEIG ! 2402: > CC$CO EQU CC$CI+1 -COPY ! 2403: 4055c2890 ! 2404: < CC$DO EQU 0 -DOUBLE ! 2405: --- ! 2406: > CC$CO EQU 0 -COPY ! 2407: 4057,4061c2892,2893 ! 2408: < CC$DU EQU CC$DO+1 -DUMP ! 2409: < CC$EJ EQU CC$DU+1 -EJECT ! 2410: < CC$ER EQU CC$EJ+1 -ERRORS ! 2411: < CC$EX EQU CC$ER+1 -EXECUTE ! 2412: < CC$FA EQU CC$EX+1 -FAIL ! 2413: --- ! 2414: > CC$EJ EQU CC$CO+1 -EJECT ! 2415: > CC$FA EQU CC$EJ+1 -FAIL ! 2416: 4063,4065c2895,2900 ! 2417: < CC$NR EQU CC$LI+1 -NOERRORS ! 2418: < CC$NX EQU CC$NR+1 -NOEXECUTE ! 2419: < CC$NF EQU CC$NX+1 -NOFAIL ! 2420: --- ! 2421: > .IF .CASL ! 2422: > CC$NC EQU CC$LI+1 -NOCASEIG ! 2423: > CC$NF EQU CC$NC+1 -NOFAIL ! 2424: > .ELSE ! 2425: > CC$NF EQU CC$LI+1 -NOFAIL ! 2426: > .FI ! 2427: 4067,4073c2902 ! 2428: < CC$NO EQU CC$NL+1 -NOOPT ! 2429: < CC$NP EQU CC$NO+1 -NOPRINT ! 2430: < CC$OP EQU CC$NP+1 -OPTIMISE ! 2431: < CC$PR EQU CC$OP+1 -PRINT ! 2432: < CC$SI EQU CC$PR+1 -SINGLE ! 2433: < CC$SP EQU CC$SI+1 -SPACE ! 2434: < CC$ST EQU CC$SP+1 -STITL ! 2435: --- ! 2436: > CC$ST EQU CC$NL+1 -STITL ! 2437: 4076c2905 ! 2438: ! 2439: ! 2440: ! 2441: ! 2442: ! 2443: ! 2444: ! 2445: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 38 ! 2446: ! 2447: ! 2448: < CC$NC EQU CC$TR+1 NUMBER OF CONTROL CARDS ! 2449: --- ! 2450: > CC$CT EQU CC$TR+1 NUMBER OF CONTROL CARDS ! 2451: 4079d2907 ! 2452: < EJC ! 2453: 4108d2935 ! 2454: < * ! 2455: 4157c2984 ! 2456: < .IF .CULC ! 2457: --- ! 2458: > .IF .CASL ! 2459: 4159c2986 ! 2460: < DTC /DOUB/ ! 2461: --- ! 2462: > DTC /COPY/ ! 2463: 4161c2988 ! 2464: < CCNMS DTC /DOUB/ ! 2465: --- ! 2466: > CCNMS DTC /COPY/ ! 2467: 4163d2989 ! 2468: < DTC /DUMP/ ! 2469: 4165,4166d2990 ! 2470: < DTC /ERRO/ ! 2471: < DTC /EXEC/ ! 2472: 4169,4170c2993,2995 ! 2473: < DTC /NOER/ ! 2474: < DTC /NOEX/ ! 2475: --- ! 2476: > .IF .CASL ! 2477: > DTC /NOCA/ ! 2478: > .FI ! 2479: 4173,4178d2997 ! 2480: < DTC /NOOP/ ! 2481: < DTC /NOPR/ ! 2482: < DTC /OPTI/ ! 2483: < DTC /PRIN/ ! 2484: < DTC /SING/ ! 2485: < DTC /SPAC/ ! 2486: 4185c3004 ! 2487: < DMHDK DAC B$SCL DUMP OF KEYWORD VALUES ! 2488: --- ! 2489: > DMHDK DAC B$SCL ! 2490: 4187c3006 ! 2491: < DTC /DUMP OF KEYWORD VALUES/ ! 2492: --- ! 2493: > DDC /DUMP OF KEYWORD VALUES/ ! 2494: 4189c3008 ! 2495: < DMHDV DAC B$SCL DUMP OF NATURAL VARIABLES ! 2496: --- ! 2497: > DMHDV DAC B$SCL ! 2498: 4191,4192c3010 ! 2499: < DTC /DUMP OF NATURAL VARIABLES/ ! 2500: < EJC ! 2501: --- ! 2502: > DDC /DUMP OF NATURAL VARIABLES/ ! 2503: 4198c3016 ! 2504: ! 2505: ! 2506: ! 2507: ! 2508: ! 2509: ! 2510: ! 2511: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 39 ! 2512: ! 2513: ! 2514: < DTC /STORE USED/ ! 2515: --- ! 2516: > DDC /STORE USED/ ! 2517: 4202c3020 ! 2518: < DTC /STORE LEFT/ ! 2519: --- ! 2520: > DDC /STORE LEFT/ ! 2521: 4206c3024 ! 2522: < DTC /COMP ERRORS/ ! 2523: --- ! 2524: > DDC /COMP ERRORS/ ! 2525: 4210c3028,3032 ! 2526: < DTC /COMP TIME-MSEC/ ! 2527: --- ! 2528: > .IF .CTMD ! 2529: > DDC /COMP TIME-DSEC/ ! 2530: > .ELSE ! 2531: > DDC /COMP TIME-MSEC/ ! 2532: > .FI ! 2533: 4212c3034 ! 2534: < ENCM5 DAC B$SCL EXECUTION SUPPRESSED ! 2535: --- ! 2536: > ENCM5 DAC B$SCL ! 2537: 4214c3036,3037 ! 2538: < DTC /EXECUTION SUPPRESSED/ ! 2539: --- ! 2540: > DDC /EXECUTION SUPPRESSED/ ! 2541: > EJC ! 2542: 4216c3039 ! 2543: < * STRING CONSTANT FOR ABNORMAL END ! 2544: --- ! 2545: > * FOR TERMINATION IN COMPILATION ! 2546: 4218,4221c3041,3043 ! 2547: < ENDAB DAC B$SCL ! 2548: < DAC 12 ! 2549: < DTC /ABNORMAL END/ ! 2550: < EJC ! 2551: --- ! 2552: > ENDIC DAC B$SCL ! 2553: > DAC 14 ! 2554: > DDC /IN COMPILATION/ ! 2555: 4227c3049 ! 2556: < DTC /MEMORY OVERFLOW/ ! 2557: --- ! 2558: > DDC /MEMORY OVERFLOW/ ! 2559: 4233c3055 ! 2560: < DTC /NORMAL END/ ! 2561: --- ! 2562: > DDC /NORMAL END/ ! 2563: 4237c3059 ! 2564: < ENDSO DAC B$SCL STACK OVERFLOW IN GARBAGE COLLECTOR ! 2565: --- ! 2566: > ENDSO DAC B$SCL ! 2567: 4239,4245c3061 ! 2568: < DTC /STACK OVERFLOW IN GARBAGE COLLECTION/ ! 2569: < * ! 2570: ! 2571: ! 2572: ! 2573: ! 2574: ! 2575: ! 2576: ! 2577: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 40 ! 2578: ! 2579: ! 2580: < * STRING CONSTANT FOR TIME UP ! 2581: < * ! 2582: < ENDTU DAC B$SCL ! 2583: < DAC 15 ! 2584: < DTC /ERROR - TIME UP/ ! 2585: --- ! 2586: > DDC /STACK OVERFLOW IN GARBAGE COLLECTION/ ! 2587: 4250c3066 ! 2588: < ERMMS DAC B$SCL ERROR ! 2589: --- ! 2590: > ERMMS DAC B$SCL ! 2591: 4252c3068 ! 2592: < DTC /ERROR/ ! 2593: --- ! 2594: > DDC /ERROR/ ! 2595: 4254c3070 ! 2596: < ERMNS DAC B$SCL STRING / -- / ! 2597: --- ! 2598: > ERMNS DAC B$SCL ! 2599: 4257a3074,3076 ! 2600: > * ! 2601: > ERRTF DAC 251 FATAL ERROR CODE - SEE LABEL ERRAF ! 2602: > * ! 2603: 4260c3079 ! 2604: < LSTMS DAC B$SCL PAGE ! 2605: --- ! 2606: > LSTMS DAC B$SCL ! 2607: 4262c3081 ! 2608: < DTC /PAGE / ! 2609: --- ! 2610: > DDC /PAGE / ! 2611: 4268c3087 ! 2612: < DTC /MACRO SPITBOL VERSION 3.5/ ! 2613: --- ! 2614: > DDC /MACRO SPITBOL VERSION 4.3/ ! 2615: 4272c3091 ! 2616: < DTC /3.5/ ! 2617: --- ! 2618: > DTC /4.3/ ! 2619: 4301a3121,3123 ! 2620: > NDEXC DAC P$EXC EXPRESSION ! 2621: > .IF .CNFN ! 2622: > .ELSE ! 2623: 4304c3126 ! 2624: < NDEXC DAC P$EXC EXPRESSION ! 2625: --- ! 2626: > .FI ! 2627: 4351,4353c3173,3175 ! 2628: < * OPDVS IS USED WHEN SCANNING BELOW THE TOP LEVEL TO ! 2629: < * INSURE THAT THE CONCATENATION WILL NOT BE LATER ! 2630: < * MISTAKEN FOR PATTERN MATCHING ! 2631: --- ! 2632: > * OPDVP IS USED WHEN SCANNING BELOW TOP LEVEL TO ENSURE ! 2633: > * THE CONCATENATION WILL NOT LATER BE MISTAKEN FOR ! 2634: > * PATTERN MATCHING ! 2635: 4355c3177 ! 2636: ! 2637: ! 2638: ! 2639: ! 2640: ! 2641: ! 2642: ! 2643: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 41 ! 2644: ! 2645: ! 2646: < OPDVP DAC O$CNC CONCATENATION - NOT PATTERN MATCH ! 2647: --- ! 2648: > OPDVP DAC O$CNC PROVEN CONCATENATION ! 2649: 4459,4467d3280 ! 2650: < DAC O$IMA IMMEDIATE ASSIGNMENT ! 2651: < DAC C$BVN ! 2652: < DAC LLDLD ! 2653: < DAC RRDLD ! 2654: < * ! 2655: < DAC O$INV INDIRECTION ! 2656: < DAC C$IND ! 2657: < DAC LLUNO ! 2658: < * ! 2659: 4497a3311,3319 ! 2660: > DAC O$IMA IMMEDIATE ASSIGNMENT ! 2661: > DAC C$BVN ! 2662: > DAC LLDLD ! 2663: > DAC RRDLD ! 2664: > * ! 2665: > DAC O$INV INDIRECTION ! 2666: > DAC C$IND ! 2667: > DAC LLUNO ! 2668: > * ! 2669: 4580c3402 ! 2670: < DTC /PROGRAM PROFILE/ ! 2671: --- ! 2672: > DDC /PROGRAM PROFILE/ ! 2673: 4583c3405 ! 2674: < DTC /STMT NUMBER OF -- EXECUTION TIME --/ ! 2675: --- ! 2676: > DDC /STMT NUMBER OF -- EXECUTION TIME --/ ! 2677: 4586c3408 ! 2678: < DTC /NUMBER EXECUTIONS TOTAL(MSEC) PER EXCN(MCSEC)/ ! 2679: --- ! 2680: > DDC /NUMBER EXECUTIONS TOTAL(MSEC) PER EXCN(MCSEC)/ ! 2681: 4588d3409 ! 2682: < * ! 2683: 4616a3438,3439 ! 2684: > .IF .CNBF ! 2685: > .ELSE ! 2686: 4618c3441 ! 2687: < SCBUF DAC B$SCL BUFFER ! 2688: --- ! 2689: > SCBUF DAC B$SCL ! 2690: 4620a3444 ! 2691: > .FI ! 2692: 4717a3542,3544 ! 2693: > .IF .CS16 ! 2694: > STLIM DIC +32767 DEFAULT STATEMENT LIMIT ! 2695: > .ELSE ! 2696: 4718a3546 ! 2697: > .FI ! 2698: 4749c3577 ! 2699: < STPM1 DAC B$SCL IN STATEMENT ! 2700: --- ! 2701: > STPM1 DAC B$SCL ! 2702: ! 2703: ! 2704: ! 2705: ! 2706: ! 2707: ! 2708: ! 2709: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 42 ! 2710: ! 2711: ! 2712: 4751c3579 ! 2713: < DTC /IN STATEMENT/ ! 2714: --- ! 2715: > DDC /IN STATEMENT/ ! 2716: 4755c3583 ! 2717: < DTC /STMTS EXECUTED/ ! 2718: --- ! 2719: > DDC /STMTS EXECUTED/ ! 2720: 4759c3587,3591 ! 2721: < DTC /RUN TIME-MSEC/ ! 2722: --- ! 2723: > .IF .CTMD ! 2724: > DDC /RUN TIME-DSEC/ ! 2725: > .ELSE ! 2726: > DDC /RUN TIME-MSEC/ ! 2727: > .FI ! 2728: 4763c3595 ! 2729: < DTC $MCSEC / STMT$ ! 2730: --- ! 2731: > DDC $MCSEC / STMT$ ! 2732: 4767c3599 ! 2733: < DTC /REGENERATIONS/ ! 2734: --- ! 2735: > DDC /REGENERATIONS/ ! 2736: 4769,4772d3600 ! 2737: < * CHARS FOR /TU/ ENDING CODE ! 2738: < * ! 2739: < STRTU DTC /TU/ ! 2740: < * ! 2741: 4800c3628 ! 2742: < TMASB DAC B$SCL ASTERISKS FOR TRACE STATEMENT NO ! 2743: --- ! 2744: > TMASB DAC B$SCL ! 2745: 4803d3630 ! 2746: < ! 2747: 4805c3632 ! 2748: < TMBEB DAC B$SCL BLANK-EQUAL-BLANK ! 2749: --- ! 2750: > TMBEB DAC B$SCL ! 2751: 4891a3719,3724 ! 2752: > V$CTI DBC SVFNP CTI ! 2753: > DAC 3 ! 2754: > DTC /CTI/ ! 2755: > DAC S$CTI ! 2756: > DAC 1 ! 2757: > * ! 2758: 4896a3730,3735 ! 2759: > V$ITC DBC SVFNN ITC ! 2760: > DAC 3 ! 2761: > DTC /ITC/ ! 2762: > DAC S$ITC ! 2763: > DAC 1 ! 2764: > * ! 2765: 4967d3805 ! 2766: < .IF .CULC ! 2767: 4969,4980d3806 ! 2768: ! 2769: ! 2770: ! 2771: ! 2772: ! 2773: ! 2774: ! 2775: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 43 ! 2776: ! 2777: ! 2778: < V$CAS DBC SVKNM CASE ! 2779: < DAC 4 ! 2780: < DTC /CASE/ ! 2781: < DAC K$CAS ! 2782: < .FI ! 2783: < * ! 2784: < V$CHR DBC SVFNP CHAR ! 2785: < DAC 4 ! 2786: < DTC /CHAR/ ! 2787: < DAC S$CHR ! 2788: < DAC 1 ! 2789: < * ! 2790: 5077a3904 ! 2791: > EJC ! 2792: 5078a3906,3908 ! 2793: > * STANDARD VARIABLE BLOCKS (CONTINUED) ! 2794: > * ! 2795: > * ! 2796: 5133,5137d3962 ! 2797: < V$ABE DBC SVKNM ABEND ! 2798: < DAC 5 ! 2799: < DTC /ABEND/ ! 2800: < DAC K$ABE ! 2801: < * ! 2802: 5183a4009,4011 ! 2803: > .IF .CNFN ! 2804: > V$FEN DBC SVKVC FENCE ! 2805: > .ELSE ! 2806: 5184a4013 ! 2807: > .FI ! 2808: 5187a4017,4018 ! 2809: > .IF .CNFN ! 2810: > .ELSE ! 2811: 5189a4021 ! 2812: > .FI ! 2813: 5217d4048 ! 2814: < * ! 2815: 5257a4089,4092 ! 2816: > EJC ! 2817: > * ! 2818: > * STANDARD VARIABLE BLOCKS (CONTINUED) ! 2819: > * ! 2820: 5260,5261c4095 ! 2821: < * ! 2822: < V$APN DBC SVFNN ! 2823: --- ! 2824: > V$APN DBC SVFNN APPEND ! 2825: 5273d4106 ! 2826: < * ! 2827: 5286c4119 ! 2828: < DAC S$DEF ! 2829: --- ! 2830: > DAC S$DFN ! 2831: 5294d4126 ! 2832: < EJC ! 2833: 5296,5297d4127 ! 2834: ! 2835: ! 2836: ! 2837: ! 2838: ! 2839: ! 2840: ! 2841: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 44 ! 2842: ! 2843: ! 2844: < * STANDARD VARIABLE BLOCKS (CONTINUED) ! 2845: < * ! 2846: 5308c4138 ! 2847: < * ! 2848: --- ! 2849: > EJC ! 2850: 5310a4141 ! 2851: > * ! 2852: 5316d4146 ! 2853: < * ! 2854: 5317a4148 ! 2855: > * ! 2856: 5341,5346d4171 ! 2857: < V$REW DBC SVFNN REWIND ! 2858: < DAC 6 ! 2859: < DTC /REWIND/ ! 2860: < DAC S$REW ! 2861: < DAC 1 ! 2862: < * ! 2863: 5377c4202 ! 2864: < DAC S$CNV ! 2865: --- ! 2866: > DAC S$CVT ! 2867: 5384c4209 ! 2868: < DAC 1 ! 2869: --- ! 2870: > DAC 2 ! 2871: 5414d4238 ! 2872: < * ! 2873: 5423a4248 ! 2874: > * ! 2875: 5462a4288,4293 ! 2876: > V$VDF DBC SVFPR VDIFFER ! 2877: > DAC 7 ! 2878: > DTC /VDIFFER/ ! 2879: > DAC S$VDF ! 2880: > DAC 2 ! 2881: > * ! 2882: 5466a4298 ! 2883: > EJC ! 2884: 5467a4300,4301 ! 2885: > * STANDARD VARIABLE BLOCKS (CONTINUED) ! 2886: > * ! 2887: 5472d4305 ! 2888: < EJC ! 2889: 5474,5475d4306 ! 2890: < * STANDARD VARIABLE BLOCKS (CONTINUED) ! 2891: < * ! 2892: 5516,5518d4346 ! 2893: < .IF .CULC ! 2894: < DAC V$CAS CCASE ! 2895: < .FI ! 2896: 5548,5553c4376,4377 ! 2897: < .IF .CULC ! 2898: < DAC V$CAS START OF 4 CHAR VARIABLES ! 2899: < .ELSE ! 2900: ! 2901: ! 2902: ! 2903: ! 2904: ! 2905: ! 2906: ! 2907: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 45 ! 2908: ! 2909: ! 2910: < DAC V$CHR START OF 4 CHAR VARIABLES ! 2911: < .FI ! 2912: < DAC V$ABE START OF 5 CHAR VARIABLES ! 2913: --- ! 2914: > DAC V$COD START OF 4 CHAR VARIABLES ! 2915: > DAC V$ABO START OF 5 CHAR VARIABLES ! 2916: 5598c4422 ! 2917: < * LABEL TO MARK START OF WORK AREA ! 2918: --- ! 2919: > * LABEL TO MARK START OF WORK AREA WHICH IS CLEARED ! 2920: 5663,5665c4487,4489 ! 2921: < CSWDB DAC 0 0/1 FOR -SINGLE/-DOUBLE ! 2922: < CSWER DAC 0 0/1 FOR -ERRORS/-NOERRORS ! 2923: < CSWEX DAC 0 0/1 FOR -EXECUTE/-NOEXECUTE ! 2924: --- ! 2925: > .IF .CASL ! 2926: > CSWCI DAC 0 0/1 FOR -NOCASEIG/CASEIG ! 2927: > .FI ! 2928: 5669,5670c4493 ! 2929: < CSWNO DAC 0 0/1 FOR -OPTIMISE/-NOOPT ! 2930: < CSWPR DAC 0 0/1 FOR -NOPRINT/-PRINT ! 2931: --- ! 2932: > EJC ! 2933: 5676d4498 ! 2934: < EJC ! 2935: 5711,5715d4532 ! 2936: < * WORK AREA FOR DTACH ! 2937: < * ! 2938: < DTCNB DAC 0 NAME BASE ! 2939: < DTCNM DAC 0 NAME PTR ! 2940: < * ! 2941: 5726,5727c4543 ! 2942: < ERICH DAC 0 COPY ERROR REPORTS TO INT.CHAN IF 1 ! 2943: < ERLST DAC 0 FOR LISTR WHEN ERRORS GO TO INT.CH. ! 2944: --- ! 2945: > EROSN DAC 0 FLAG FOR SPECIAL EROSI RETURN ! 2946: 5741a4558 ! 2947: > * ! 2948: 5798a4616 ! 2949: > GTNSV DIC +0 SAVE IA ! 2950: 5821a4640 ! 2951: > EJC ! 2952: 5827c4646 ! 2953: < * FLAG FOR HEADER PRINTING ! 2954: --- ! 2955: > * FLAGS FOR HEADER PRINTING ! 2956: 5828a4648 ! 2957: > HEADN DAC 0 NON-ZERO IF HDRS NOT TO BE PRINTED ! 2958: 5838a4659 ! 2959: > INICD DIC +0 CODE KWD VAL (NEEDED FOR BATCH) ! 2960: 5846c4667,4669 ! 2961: < INSAB DAC 0 ENTRY WA + ENTRY WB ! 2962: --- ! 2963: > INSAB DAC 0 ENTRY WA PLUS ENTRY WB ! 2964: > INSBB DAC 0 BFBLK POINTER ! 2965: > INSBC DAC 0 BCBLK POINTER ! 2966: ! 2967: ! 2968: ! 2969: ! 2970: ! 2971: ! 2972: ! 2973: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 46 ! 2974: ! 2975: ! 2976: 5849d4671 ! 2977: < INSSC DAC 0 SAVE ENTRY WC ! 2978: 5854c4676,4680 ! 2979: < IOPTT DAC 0 TYPE OF ASSOCIATION ! 2980: --- ! 2981: > IOPNF DAC 0 NAME OFFSET ! 2982: > IOPVR DAC 0 FILETAG VRBLK ! 2983: > IOPWA DAC 0 KEEP WA ! 2984: > IOPWB DAC 0 KEEP WB ! 2985: > IOPWC DAC 0 KEEP WC ! 2986: 5861d4686 ! 2987: < KVABE DAC 0 ABEND ! 2988: 5863,5866d4687 ! 2989: < .IF .CULC ! 2990: < KVCAS DAC 0 CASE ! 2991: < .FI ! 2992: < KVCOD DAC 0 CODE ! 2993: 5887a4709,4713 ! 2994: > KVCOD DIC 0 CODE ! 2995: > .IF .CS16 ! 2996: > KVSTL DIC +32767 STLIMIT ! 2997: > KVSTC DIC +32767 STCOUNT (COUNTS DOWN FROM STLIMIT) ! 2998: > .ELSE ! 2999: 5889a4716 ! 3000: > .FI ! 3001: 5897a4725 ! 3002: > EJC ! 3003: 5920c4748 ! 3004: < PFDMP DAC 0 SET NON-0 IF &PROFILE SET NON-0 ! 3005: --- ! 3006: > PFDMP DAC 0 SET NON-0 IF PROFILE SET NON-0 ! 3007: 5927c4755 ! 3008: < PFSTE DIC +0 GETS INT REP OF TABLE ENTRY SIZE ! 3009: --- ! 3010: > PFSTE DIC +0 TABLE ENTRY SIZE IN BAUS ! 3011: 5929d4756 ! 3012: < * ! 3013: 5938,5943d4764 ! 3014: < * FLAGS USED FOR STANDARD FILE LISTING OPTIONS ! 3015: < * ! 3016: < PRICH DAC 0 PRINTER ON INTERACTIVE CHANNEL ! 3017: < PRSTD DAC 0 TESTED BY PRTPG ! 3018: < PRSTO DAC 0 STANDARD LISTING OPTION FLAG ! 3019: < * ! 3020: 5957a4779,4780 ! 3021: > PRAVL DAC 0 SET IF PRINT FILE AVAILABLE ! 3022: > PRBLK DAC 0 ADDRESS OF BUFFER BLANKING STRING ! 3023: 5958a4782,4783 ! 3024: > PRCHS DAC 0 ADDRESS OF CHARS IN PRINT BUFFER ! 3025: > PRCMV DAC 0 NO. OF BAUS TO MOVE IN BFR CLEARING ! 3026: 5961d4785 ! 3027: < PRLNW DAC 0 LENGTH OF PRINT BUFFER IN WORDS ! 3028: 5962a4787,4789 ! 3029: > PRPUT DAC 0 SET IF CHARS TO BE PUT IN BFR ! 3030: > PRSTD DAC 0 TESTED BY PRTPG ! 3031: > PRSTO DAC 0 STANDARD LISTING OPTION FLAG ! 3032: ! 3033: ! 3034: ! 3035: ! 3036: ! 3037: ! 3038: ! 3039: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 47 ! 3040: ! 3041: ! 3042: 5965c4792 ! 3043: < * WORK AREAS FOR PRTST PROCEDURE ! 3044: --- ! 3045: > * WORK AREAS FOR PRTST, PTTST PROCEDURES ! 3046: 5969c4796,4797 ! 3047: < PRSVC DAC 0 SAVE CHAR COUNTER ! 3048: --- ! 3049: > PRTVA DAC 0 SAVE WA ! 3050: > PRTVB DAC 0 SAVE WB ! 3051: 5971,5975d4798 ! 3052: < * WORK AREA FOR PRTNL ! 3053: < * ! 3054: < PRTSA DAC 0 SAVE WA ! 3055: < PRTSB DAC 0 SAVE WB ! 3056: < * ! 3057: 5985a4809,4812 ! 3058: > * FLAG TO TELL ERROR THAT WE ARE READING SOURCE LINE ! 3059: > * ! 3060: > RDRER DAC 0 READ-SOURCE-LINE IN PROGRESS FLAG ! 3061: > * ! 3062: 6009a4837 ! 3063: > R$COP DAC 0 PTR TO -COPY CHAIN STACK ! 3064: 6014d4841 ! 3065: < R$FCB DAC 0 FCBLK CHAIN HEAD ! 3066: 6017,6022c4844,4847 ! 3067: < R$IO1 DAC 0 FILE ARG1 FOR IOPUT ! 3068: < R$IO2 DAC 0 FILE ARG2 FOR IOPUT ! 3069: < R$IOF DAC 0 FCBLK PTR OR 0 ! 3070: < R$ION DAC 0 NAME BASE PTR ! 3071: < R$IOP DAC 0 PREDECESSOR BLOCK PTR FOR IOPUT ! 3072: < R$IOT DAC 0 TRBLK PTR FOR IOPUT ! 3073: --- ! 3074: > R$IO1 DAC 0 FIRST ARGUMENT ! 3075: > R$IOL DAC 0 SECOND ARGUMENT (FILETAG) SCBLK PTR ! 3076: > R$IOR DAC 0 FILEPROPS SCBLK PTR ! 3077: > R$IOT DAC 0 TRTIO TRACE BLK PTR ! 3078: 6077a4903,4910 ! 3079: > * ! 3080: > * WORK AREA FOR DETACH PROCEDURE ! 3081: > * ! 3082: > SDETF DAC 0 TRACE BLOCK FLAG ! 3083: > * ! 3084: > * WORK AREA FOR ENDFILE PROCEDURE ! 3085: > * ! 3086: > SENFR DAC 0 SAVE XR ! 3087: 6102c4935 ! 3088: < * GLOBAL VALUE FOR INDICATING STAGE (SEE ERROR SECTION) ! 3089: --- ! 3090: > * VALUES FOR INDICATING COMPILATION/EXECUTION STAGE ! 3091: 6104a4938 ! 3092: > STAGX DAC 0 NON-ZERO IF EXECUTING ! 3093: 6119a4954 ! 3094: > STPXR DAC 0 SAVE XR ! 3095: 6133d4967 ! 3096: < TIMUP DAC 0 SET WHEN TIME UP OCCURS ! 3097: 6134a4969,4981 ! 3098: ! 3099: ! 3100: ! 3101: ! 3102: ! 3103: ! 3104: ! 3105: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 48 ! 3106: ! 3107: ! 3108: > * TERMINAL BUFFER ADDRESSES, FLAGS ETC ! 3109: > * ! 3110: > TTBLK DAC 0 BLANKING STRING ADRS ! 3111: > TTBUF DAC 0 BUFFER ADRS ! 3112: > TTCHS DAC 0 START OF BUFFER CHARACTERS ! 3113: > TTCMV DAC 0 COUNT OF BLANKING CHARS TO MOVE ! 3114: > TTERL DAC 0 ERROR FLAG ! 3115: > TTINS DAC 0 NON-ZERO IF STD INPUT FROM TERML ! 3116: > TTLEN DAC 0 LENGTH OF TERMINAL BUFFER ! 3117: > TTLST DAC 0 COPY STD O/P TO TERML IF SET ! 3118: > TTOFS DAC 0 OFFSET TO POSITION IN TERML BFR ! 3119: > TTOUS DAC 0 SET IF STD OUTPUT TO TERMINAL ! 3120: > * ! 3121: 6136a4984,4985 ! 3122: > XSCBL DAC 0 COUNT OF TRAILING BLANKS ! 3123: > XSCNB DAC 0 NON-ZERO IF NON-BLANKS SEEN ! 3124: 6155a5005 ! 3125: > * (WA) INITIAL &CODE VALUE ! 3126: 6158c5008,5010 ! 3127: < JSR SYSTM INITIALISE TIMER ! 3128: --- ! 3129: > * ! 3130: > INITL RTN INITIALISATION CODE ! 3131: > MOV WA,INICD SAVE INITIAL CODE KYWD VALUE ! 3132: 6160d5011 ! 3133: < STI TIMSX STORE TIME ! 3134: 6196c5047 ! 3135: < MOV WA,CSWIN -IN72 ! 3136: --- ! 3137: > MOV WA,CSWIN STORE FOR LATER USE ! 3138: 6206d5056 ! 3139: < STI TIMSX STORE TIME IN CORRECT PLACE ! 3140: 6211a5062,5068 ! 3141: > .IF .CSIG ! 3142: > MNZ CSWCI -CASEIG ! 3143: > .FI ! 3144: > JSR SYSTM INITIALISE TIMER ! 3145: > STI TIMSX STORE TIME ! 3146: > LDI INICD LOAD INITIAL CODE KWD VALUE ! 3147: > STI KVCOD STORE ! 3148: 6247a5105,5106 ! 3149: > ADD TTLEN,WA ADD TERMINAL BUFFER LENGTH ! 3150: > ADD WA,WA ALLOW FOR EQUALLY BIG BLANK STRINGS ! 3151: 6250c5109 ! 3152: < CTB WA,8 CONVERT TO BYTES, ALLOWING A MARGIN ! 3153: --- ! 3154: > CTB WA,8 CONVERT TO BAUS, ALLOWING A MARGIN ! 3155: 6258c5117 ! 3156: < BGT XR,WA,INI06 SKIP IF STATIC HI EXCEEDS MXLEN ! 3157: --- ! 3158: > BGT XR,WA,INI05 SKIP IF STATIC HI EXCEEDS MXLEN ! 3159: 6265c5124 ! 3160: < INI06 MOV XR,DNAMB DYNAMIC BASE ADRS ! 3161: --- ! 3162: > INI05 MOV XR,DNAMB DYNAMIC BASE ADRS ! 3163: 6267c5126 ! 3164: ! 3165: ! 3166: ! 3167: ! 3168: ! 3169: ! 3170: ! 3171: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 49 ! 3172: ! 3173: ! 3174: < BNZ WA,INI07 SKIP IF NON-ZERO MXLEN ! 3175: --- ! 3176: > BNZ WA,INI06 SKIP IF NON-ZERO MXLEN ! 3177: 6271d5129 ! 3178: < EJC ! 3179: 6276,6277c5134,5135 ! 3180: < INI07 MOV XL,DNAME STORE DYNAMIC END ADDRESS ! 3181: < BLT DNAMB,XL,INI09 SKIP IF HIGH ENOUGH ! 3182: --- ! 3183: > INI06 MOV XL,DNAME STORE DYNAMIC END ADDRESS ! 3184: > BLT DNAMB,XL,INI08 SKIP IF HIGH ENOUGH ! 3185: 6279c5137 ! 3186: < WTB XR GET AS BAUS (SGD05) ! 3187: --- ! 3188: > WTB XR CONVERT TO BAUS ! 3189: 6281c5139 ! 3190: < BNZ XR,INI07 TRY AGAIN ! 3191: --- ! 3192: > BNZ XR,INI06 TRY AGAIN ! 3193: 6283c5141 ! 3194: < MOV ENDML,WA MESSAGE LENGTH ! 3195: --- ! 3196: > MOV ENDML,WC MESSAGE LENGTH ! 3197: 6285c5143,5148 ! 3198: < PPM SHOULD NOT FAIL ! 3199: --- ! 3200: > PPM INI07 ! 3201: > PPM INI07 ! 3202: > * ! 3203: > * EMERGENCY SHUTDOWN ! 3204: > * ! 3205: > INI07 MOV =KVCOD,WA CODE KEYWORD ! 3206: 6286a5150 ! 3207: > EJC ! 3208: 6290c5154 ! 3209: < INI09 MOV PRLEN,WC NO. OF CHARS IN PRINT BFR ! 3210: --- ! 3211: > INI08 MOV PRLEN,WA NO. OF CHARS IN PRINT BFR ! 3212: 6294,6297c5158,5169 ! 3213: < MOV WC,(XR)+ AND STRING LENGTH ! 3214: < CTW WC,0 GET NUMBER OF WORDS IN BUFFER ! 3215: < MOV WC,PRLNW STORE FOR BUFFER CLEAR ! 3216: < LCT WC,WC WORDS TO CLEAR ! 3217: --- ! 3218: > MOV WA,(XR)+ AND STRING LENGTH ! 3219: > MOV XR,PRCHS KEEP ADRS OF BUFFER PROPER ! 3220: > MOV XR,XL COPY IT ! 3221: > CTB WA,0 WORDS NEEDED EXPRESSED IN BAUS ! 3222: > MOV WA,PRCMV KEEP FOR CLEARING BUFFER ! 3223: > MOV XR,PRBLK CONSTRUCT ADRS OF BLANKING STRING ! 3224: > ADD WA,PRBLK ADD OFFSET TO BLANKING STRING ! 3225: > ADD WA,WA CLEAR BOTH BFR AND BLANKING STRING ! 3226: > MOV NULLW,(XR)+ CLEAR FIRST WORD ! 3227: > BZE WA,INI09 SKIP IF NO PRINT BUFFER ! 3228: > DCA WA ADJUST FOR FIRST WORD ! 3229: > MVW PERFORM BLANKING ! 3230: ! 3231: ! 3232: ! 3233: ! 3234: ! 3235: ! 3236: ! 3237: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 50 ! 3238: ! 3239: ! 3240: 6299c5171 ! 3241: < * LOOP TO CLEAR BUFFER ! 3242: --- ! 3243: > * SET UP TERMINAL BUFFER ! 3244: 6301,6302c5173,5187 ! 3245: < INI10 MOV NULLW,(XR)+ STORE BLANK ! 3246: < BCT WC,INI10 LOOP ! 3247: --- ! 3248: > INI09 MOV TTLEN,WA LENGTH OF TERMINAL BUFFER ! 3249: > MOV XR,TTBUF ADRS OF TERMINAL STRING BUFFER ! 3250: > MOV =B$SCL,(XR)+ STRING TYPE CODE ! 3251: > MOV WA,(XR)+ STRING LENGTH ! 3252: > MOV XR,TTCHS KEEP ADRS OF BUFFER PROPER ! 3253: > MOV XR,XL COPY IT ! 3254: > CTB WA,0 WORDS NEEDED EXPRESSED IN BAUS ! 3255: > MOV WA,TTCMV KEEP FOR CLEARING BUFFER ! 3256: > MOV XR,TTBLK CONSTRUCT ADRS OF BLANKING STRING ! 3257: > ADD WA,TTBLK ADD OFFSET TO BLANKING STRING ! 3258: > ADD WA,WA CLEAR BOTH BFR AND BLANKING STRING ! 3259: > MOV NULLW,(XR)+ CLEAR FIRST WORD ! 3260: > BZE WA,INI10 SKIP IF NO PRINT BUFFER ! 3261: > DCA WA ADJUST FOR FIRST WORD ! 3262: > MVW PERFORM BLANKING ! 3263: 6306c5191 ! 3264: < MOV =E$HNB,WA GET NUMBER OF HASH HEADERS ! 3265: --- ! 3266: > INI10 MOV =E$HNB,WA GET NUMBER OF HASH HEADERS ! 3267: 6321c5206 ! 3268: < CTB WA,SCSI$ NO OF BYTES NEEDED ! 3269: --- ! 3270: > CTB WA,SCSI$ NO OF BAUS NEEDED ! 3271: 6333c5218 ! 3272: < CTB WB,SCSI$ NO. OF BYTES NEEDED ! 3273: --- ! 3274: > CTB WB,SCSI$ NO. OF BAUS NEEDED ! 3275: 6347c5232 ! 3276: < * INITIALIZE VARIABLE BLOCKS FOR INPUT AND OUTPUT ! 3277: --- ! 3278: > * INITIALIZE VARIABLE BLOCKS FOR INPUT OUTPUT TERMINAL ! 3279: 6355,6357c5240,5246 ! 3280: < MOV INITR,WC TERMINAL FLAG ! 3281: < BZE WC,INI13 SKIP IF NO TERMINAL ! 3282: < JSR PRPAR ASSOCIATE TERMINAL ! 3283: --- ! 3284: > BZE TTLEN,INI13 SKIP IF NO TERMINAL I/O ! 3285: > MOV =V$TER,XL POINT TO STRING /TERMINAL/ ! 3286: > MOV =TRTOU,WB TRTYP FOR OUTPUT ! 3287: > JSR INOUT PERFORM ASSOCIATION ! 3288: > MOV =V$TER,XL ! 3289: > MOV =TRTIN,WB TRTYP FOR INPUT ! 3290: > JSR INOUT PERFORM ASSOCIATION ! 3291: 6360d5248 ! 3292: < * CHECK FOR EXPIRY DATE ! 3293: 6362,6363c5250 ! 3294: < INI13 JSR SYSDC CALL DATE CHECK ! 3295: < MOV XS,FLPTR IN CASE STACK OVERFLOWS IN COMPILER ! 3296: ! 3297: ! 3298: ! 3299: ! 3300: ! 3301: ! 3302: ! 3303: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 51 ! 3304: ! 3305: ! 3306: --- ! 3307: > * PREPARE FOR COMPILATION ! 3308: 6364a5252,5253 ! 3309: > INI13 MOV XS,FLPTR IN CASE STACK OVERFLOWS IN COMPILER ! 3310: > * ! 3311: 6369,6370c5258,5259 ! 3312: < MOV =NULLS,R$TTL FORGET TITLE (REG04) ! 3313: < MOV =NULLS,R$STL FORGET SUB-TITLE (REG04) ! 3314: --- ! 3315: > MOV =NULLS,R$TTL FORGET TITLE ! 3316: > MOV =NULLS,R$STL FORGET SUB-TITLE ! 3317: 6375c5264 ! 3318: < BNZ CPSTS,INIX0 SKIP IF NO LISTING OF COMP STATS ! 3319: --- ! 3320: > BNZ CPSTS,INIX1 SKIP IF NO LISTING OF COMP STATS ! 3321: 6404,6407d5292 ! 3322: < .IF .CUEJ ! 3323: < BZE HEADP,INIX0 NO EJECT IF NOTHING PRINTED (SDG11) ! 3324: < JSR PRTPG EJECT PRINTER ! 3325: < .FI ! 3326: 6412d5296 ! 3327: < * SET DEFAULT INPUT RECORD LENGTH ! 3328: 6414,6415c5298 ! 3329: < INIX0 BGT CSWIN,=INILN,INIX1 SKIP IF NOT DEFAULT -IN72 USED ! 3330: < MOV =INILS,CSWIN ELSE USE DEFAULT RECORD LENGTH ! 3331: --- ! 3332: > * CHECK FOR NOEXECUTE ! 3333: 6417,6422c5300 ! 3334: < * RESET TIMER ! 3335: < * ! 3336: < INIX1 JSR SYSTM GET TIME AGAIN ! 3337: < STI TIMSX STORE FOR END RUN PROCESSING ! 3338: < ADD CSWEX,NOXEQ ADD -NOEXECUTE FLAG ! 3339: < BNZ NOXEQ,INIX2 JUMP IF EXECUTION SUPPRESSED ! 3340: --- ! 3341: > INIX1 BNZ NOXEQ,INIX3 JUMP IF EXECUTION SUPPRESSED ! 3342: 6424,6429c5302,5303 ! 3343: < JSR SYSBX CALL BEFORE STARTING EXECUTION ! 3344: < .IF .CUEJ ! 3345: < .ELSE ! 3346: < BZE HEADP,INIY0 NO EJECT IF NOTHING PRINTED (SGD11) ! 3347: < JSR PRTPG EJECT PRINTER ! 3348: < .FI ! 3349: --- ! 3350: > BZE HEADP,INIX2 SKIP IF NO PRTPG CALLS IN COMPILN ! 3351: > JSR PRTPG EJECT STANDARD PRINTER FILE ! 3352: 6431c5305 ! 3353: < * MERGE WHEN LISTING FILE SET FOR EXECUTION ! 3354: --- ! 3355: > * INFORM OSINT OF STAGE ! 3356: 6433c5307 ! 3357: < INIY0 MNZ HEADP MARK HEADERS OUT REGARDLESS ! 3358: --- ! 3359: > INIX2 JSR SYSBX CALL BEFORE STARTING EXECUTION ! 3360: 6437a5312,5313 ! 3361: > JSR SYSTM GET TIME ! 3362: ! 3363: ! 3364: ! 3365: ! 3366: ! 3367: ! 3368: ! 3369: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 52 ! 3370: ! 3371: ! 3372: > STI TIMSX STORE FOR END RUN PROCESSING ! 3373: 6440,6442c5316,5317 ! 3374: < MOV CMPSN,PFNTE COPY STMTS COMPILED COUNT IN CASE ! 3375: < JSR SYSTM TIME YET AGAIN ! 3376: < STI PFSTM ! 3377: --- ! 3378: > STI PFSTM STORE TIME FOR PROFILER ! 3379: > MOV CMPSN,PFNTE COPY STATEMENTS COMPILED COUNT ! 3380: 6448c5323 ! 3381: < INIX2 JSR PRTNL PRINT A BLANK LINE ! 3382: --- ! 3383: > INIX3 JSR PRTFH PRINT A BLANK LINE ! 3384: 6450,6453c5325,5327 ! 3385: < JSR PRTST PRINT STRING ! 3386: < JSR PRTNL OUTPUT LINE ! 3387: < ZER WA SET ABEND VALUE TO ZERO ! 3388: < MOV =NINI9,WB SET SPECIAL CODE VALUE ! 3389: --- ! 3390: > MOV TTERL,TTLST TO FORCE MSG TO TERMINAL ! 3391: > JSR PRTSF PRINT NOEXECUTE MESSAGE ! 3392: > MOV =KVCOD,WA ENDING CODE ! 3393: 6500c5374 ! 3394: < ERB 261,ADDITION CAUSED REAL OVERFLOW ! 3395: --- ! 3396: > ERB 004,ADDITION CAUSED REAL OVERFLOW ! 3397: 6509c5383 ! 3398: < ERR 004,AFFIRMATION OPERAND IS NOT NUMERIC ! 3399: --- ! 3400: > ERR 005,AFFIRMATION OPERAND IS NOT NUMERIC ! 3401: 6518c5392 ! 3402: < ERR 005,ALTERNATION RIGHT OPERAND IS NOT PATTERN ! 3403: --- ! 3404: > ERR 006,ALTERNATION RIGHT OPERAND IS NOT PATTERN ! 3405: 6527c5401 ! 3406: < ERR 006,ALTERNATION LEFT OPERAND IS NOT PATTERN ! 3407: --- ! 3408: > ERR 007,ALTERNATION LEFT OPERAND IS NOT PATTERN ! 3409: 6551d5424 ! 3410: < EJC ! 3411: 6559d5431 ! 3412: < EJC ! 3413: 6583c5455 ! 3414: < WTB WA CONVERT TO BYTES ! 3415: --- ! 3416: > WTB WA CONVERT TO BAUS ! 3417: 6622c5494 ! 3418: < WTB WA CONVERT TO BYTES ! 3419: --- ! 3420: > WTB WA CONVERT TO BAUS ! 3421: 6636c5508 ! 3422: < * ASSIGNMENT ! 3423: --- ! 3424: > * ASSIGNMENT (O$RPL MERGES) ! 3425: 6639,6642c5511 ! 3426: < * ! 3427: < * O$RPL (PATTERN REPLACEMENT) MERGES HERE ! 3428: ! 3429: ! 3430: ! 3431: ! 3432: ! 3433: ! 3434: ! 3435: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 53 ! 3436: ! 3437: ! 3438: < * ! 3439: < OASS0 MOV (XS)+,WB LOAD VALUE TO BE ASSIGNED ! 3440: --- ! 3441: > MOV (XS)+,WB LOAD VALUE TO BE ASSIGNED ! 3442: 6649d5517 ! 3443: < EJC ! 3444: 6654,6655c5522 ! 3445: < ERB 007,COMPILATION ERROR ENCOUNTERED DURING EXECUTION ! 3446: < EJC ! 3447: --- ! 3448: > ERB 008,COMPILATION ERROR ENCOUNTERED DURING EXECUTION ! 3449: 6729c5596 ! 3450: < ERR 008,CONCATENATION LEFT OPND IS NOT STRING OR PATTERN ! 3451: --- ! 3452: > ERR 009,CONCATENATION LEFT OPND IS NOT STRING OR PATTERN ! 3453: 6733c5600 ! 3454: < ERR 009,CONCATENATION RIGHT OPD IS NOT STRING OR PATTERN ! 3455: --- ! 3456: > ERR 010,CONCATENATION RIGHT OPD IS NOT STRING OR PATTERN ! 3457: 6754c5621 ! 3458: < ERR 010,COMPLEMENTATION OPERAND IS NOT NUMERIC ! 3459: --- ! 3460: > ERR 011,COMPLEMENTATION OPERAND IS NOT NUMERIC ! 3461: 6762c5629 ! 3462: < ERB 011,COMPLEMENTATION CAUSED INTEGER OVERFLOW ! 3463: --- ! 3464: > ERB 012,COMPLEMENTATION CAUSED INTEGER OVERFLOW ! 3465: 6778,6779c5645,5646 ! 3466: < ERR 012,DIVISION LEFT OPERAND IS NOT NUMERIC ! 3467: < ERR 013,DIVISION RIGHT OPERAND IS NOT NUMERIC ! 3468: --- ! 3469: > ERR 013,DIVISION LEFT OPERAND IS NOT NUMERIC ! 3470: > ERR 014,DIVISION RIGHT OPERAND IS NOT NUMERIC ! 3471: 6789c5656 ! 3472: < ERB 014,DIVISION CAUSED INTEGER OVERFLOW ! 3473: --- ! 3474: > ERB 015,DIVISION CAUSED INTEGER OVERFLOW ! 3475: 6797c5664 ! 3476: < ERB 262,DIVISION CAUSED REAL OVERFLOW ! 3477: --- ! 3478: > ERB 016,DIVISION CAUSED REAL OVERFLOW ! 3479: 6806c5673 ! 3480: < ERR 015,EXPONENTIATION RIGHT OPERAND IS NOT NUMERIC ! 3481: --- ! 3482: > ERR 017,EXPONENTIATION RIGHT OPERAND IS NOT NUMERIC ! 3483: 6814c5681 ! 3484: < ERR 016,EXPONENTIATION LEFT OPERAND IS NOT NUMERIC ! 3485: --- ! 3486: > ERR 018,EXPONENTIATION LEFT OPERAND IS NOT NUMERIC ! 3487: 6840c5707 ! 3488: < OEXP2 ERB 017,EXPONENTIATION CAUSED INTEGER OVERFLOW ! 3489: --- ! 3490: > OEXP2 ERB 019,EXPONENTIATION CAUSED INTEGER OVERFLOW ! 3491: 6858c5725 ! 3492: < OEXP4 ERB 018,EXPONENTIATION RESULT IS UNDEFINED ! 3493: --- ! 3494: ! 3495: ! 3496: ! 3497: ! 3498: ! 3499: ! 3500: ! 3501: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 54 ! 3502: ! 3503: ! 3504: > OEXP4 ERB 020,EXPONENTIATION RESULT IS UNDEFINED ! 3505: 6871c5738 ! 3506: < OEXP6 ERB 266,EXPONENTIATION CAUSED REAL OVERFLOW ! 3507: --- ! 3508: > OEXP6 ERB 021,EXPONENTIATION CAUSED REAL OVERFLOW ! 3509: 6875c5742 ! 3510: < OEXP7 ERB 267,EXPONENTIATION RIGHT OPERAND IS REAL NOT INTEGER ! 3511: --- ! 3512: > OEXP7 ERB 022,EXPONENTIATION RIGHT OPERAND IS REAL NOT INTEGER ! 3513: 6880c5747 ! 3514: < OEXP8 ERB 019,EXPONENTIATION RIGHT OPERAND IS NEGATIVE ! 3515: --- ! 3516: > OEXP8 ERB 023,EXPONENTIATION RIGHT OPERAND IS NEGATIVE ! 3517: 6890,6891c5757 ! 3518: < BRN EVLX6 JUMP TO FAILURE LOC IN EVALX ! 3519: < EJC ! 3520: --- ! 3521: > JMG EVLXF JUMP TO FAILURE LOC IN EVALX ! 3522: 6896,6897c5762 ! 3523: < ERB 020,GOTO EVALUATION FAILURE ! 3524: < EJC ! 3525: --- ! 3526: > ERB 024,GOTO EVALUATION FAILURE ! 3527: 6907d5771 ! 3528: < EJC ! 3529: 6914c5778,5779 ! 3530: < BZE 2(XS),EVLX3 OK IF EXPR. WAS WANTED BY VALUE ! 3531: --- ! 3532: > BNZ 2(XS),OFNE1 FAIL UNLESS EXPRN WANTED BY VALUE ! 3533: > JMG EVLXV JOIN EXPRESSION BY VALUE CODE ! 3534: 6918,6919c5783 ! 3535: < OFNE1 ERB 021,FUNCTION CALLED BY NAME RETURNED A VALUE ! 3536: < EJC ! 3537: --- ! 3538: > OFNE1 ERB 025,FUNCTION CALLED BY NAME RETURNED A VALUE ! 3539: 6933,6934c5797 ! 3540: < ERB 022,UNDEFINED FUNCTION CALLED ! 3541: < EJC ! 3542: --- ! 3543: > ERB 026,UNDEFINED FUNCTION CALLED ! 3544: 6946,6947c5809 ! 3545: < OGOC1 ERB 023,GOTO OPERAND IS NOT A NATURAL VARIABLE ! 3546: < EJC ! 3547: --- ! 3548: > OGOC1 ERB 027,GOTO OPERAND IS NOT A NATURAL VARIABLE ! 3549: 6954,6957c5816,5818 ! 3550: < BEQ WA,=B$CDS,BCDS0 JUMP IF CODE BLOCK TO CODE ROUTINE ! 3551: < BEQ WA,=B$CDC,BCDC0 JUMP IF CODE BLOCK TO CODE ROUTINE ! 3552: < ERB 024,GOTO OPERAND IN DIRECT GOTO IS NOT CODE ! 3553: < EJC ! 3554: --- ! 3555: > BEQ WA,=B$CDC,OGOD1 JUMP IF CODE BLOCK ! 3556: > BEQ WA,=B$CDS,OGOD2 JUMP IF CODE BLOCK ! 3557: > ERB 028,GOTO OPERAND IN DIRECT GOTO IS NOT CODE ! 3558: 6958a5820,5831 ! 3559: > * CASE OF COMPLEX FAILURE CODE ! 3560: ! 3561: ! 3562: ! 3563: ! 3564: ! 3565: ! 3566: ! 3567: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 55 ! 3568: ! 3569: ! 3570: > * ! 3571: > OGOD1 MOV FLPTR,XS POP GARBAGE OFF STACK ! 3572: > MOV CDFAL(XR),(XS) SET NEW FAILURE OFFSET ! 3573: > BRN STMGO JUMP TO EXECUTE CODE ! 3574: > * ! 3575: > * CASE OF SIMPLE FAILURE CODE ! 3576: > * ! 3577: > OGOD2 MOV FLPTR,XS POP GARBAGE OFF STACK ! 3578: > MOV *CDFAL,(XS) SET NEW FAILURE OFFSET ! 3579: > BRN STMGO JUMP TO EXECUTE CODE ! 3580: > * ! 3581: 6985c5858 ! 3582: < ERR 025,IMMEDIATE ASSIGNMENT LEFT OPERAND IS NOT PATTERN ! 3583: --- ! 3584: > ERR 029,IMMEDIATE ASSIGNMENT LEFT OPERAND IS NOT PATTERN ! 3585: 6992d5864 ! 3586: < EJC ! 3587: 6999d5870 ! 3588: < EJC ! 3589: 7006d5876 ! 3590: < EJC ! 3591: 7020d5889 ! 3592: < EJC ! 3593: 7030d5898 ! 3594: < EJC ! 3595: 7044d5911 ! 3596: < EJC ! 3597: 7060d5926 ! 3598: < EJC ! 3599: 7066,7067c5932,5933 ! 3600: < ERR 026,MULTIPLICATION LEFT OPERAND IS NOT NUMERIC ! 3601: < ERR 027,MULTIPLICATION RIGHT OPERAND IS NOT NUMERIC ! 3602: --- ! 3603: > ERR 030,MULTIPLICATION LEFT OPERAND IS NOT NUMERIC ! 3604: > ERR 031,MULTIPLICATION RIGHT OPERAND IS NOT NUMERIC ! 3605: 7077c5943 ! 3606: < ERB 028,MULTIPLICATION CAUSED INTEGER OVERFLOW ! 3607: --- ! 3608: > ERB 032,MULTIPLICATION CAUSED INTEGER OVERFLOW ! 3609: 7085c5951 ! 3610: < ERB 263,MULTIPLICATION CAUSED REAL OVERFLOW ! 3611: --- ! 3612: > ERB 033,MULTIPLICATION CAUSED REAL OVERFLOW ! 3613: 7087d5952 ! 3614: < EJC ! 3615: 7123d5987 ! 3616: < EJC ! 3617: 7128,7129c5992 ! 3618: < ERB 029,UNDEFINED OPERATOR REFERENCED ! 3619: < EJC ! 3620: --- ! 3621: > ERB 034,UNDEFINED OPERATOR REFERENCED ! 3622: 7145c6008 ! 3623: < ERR 030,PATTERN ASSIGNMENT LEFT OPERAND IS NOT PATTERN ! 3624: --- ! 3625: > ERR 035,PATTERN ASSIGNMENT LEFT OPERAND IS NOT PATTERN ! 3626: ! 3627: ! 3628: ! 3629: ! 3630: ! 3631: ! 3632: ! 3633: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 56 ! 3634: ! 3635: ! 3636: 7159d6021 ! 3637: < EJC ! 3638: 7170d6031 ! 3639: < EJC ! 3640: 7177d6037 ! 3641: < EJC ! 3642: 7184d6043 ! 3643: < EJC ! 3644: 7189,7190c6048,6050 ! 3645: < BRN LEND0 JUMP TO END CIRCUIT ! 3646: < EJC ! 3647: --- ! 3648: > MOV =ENDMS,XR ENDING MESSAGE ! 3649: > ZER WA NO ERROR CODE ! 3650: > BRN STOPR STOP THE RUN ! 3651: 7198c6058 ! 3652: < BRN EVLX4 RETURN TO EVALX PROCEDURE ! 3653: --- ! 3654: > JMG EVLXN RETURN TO EVALX PROCEDURE ! 3655: 7210c6070 ! 3656: < * SUBJECT POINTER ! 3657: --- ! 3658: > * SUBJECT STRING POINTER ! 3659: 7215c6075 ! 3660: < ERR 031,PATTERN REPLACEMENT RIGHT OPERAND IS NOT STRING ! 3661: --- ! 3662: > ERR 036,PATTERN REPLACEMENT RIGHT OPERAND IS NOT STRING ! 3663: 7222c6082 ! 3664: < BEQ (XL),=B$BCT,ORPL4 BRANCH IF BUFFER ASSIGNMENT ! 3665: --- ! 3666: > BEQ (XL),=B$BCT,ORPL5 BRANCH IF BUFFER ASSIGNMENT ! 3667: 7257c6117 ! 3668: < BZE WA,OASS0 JUMP TO ASSIGN IF PART 3 IS NULL ! 3669: --- ! 3670: > BZE WA,ORPL4 JUMP TO ASSIGN IF PART 3 IS NULL ! 3671: 7260c6120 ! 3672: < BRN OASS0 JUMP TO PERFORM ASSIGNMENT ! 3673: --- ! 3674: > BRN ORPL4 JUMP TO PERFORM ASSIGNMENT ! 3675: 7266c6126,6130 ! 3676: < BRN OASS0 JUMP TO ASSIGN NULL VALUE ! 3677: --- ! 3678: > * ! 3679: > * MERGE WITH ASSIGNMENT ROUTINE ! 3680: > * ! 3681: > ORPL4 MOV =O$ASS,XL CONTINUATION ROUTINE ! 3682: > BRI XL ENTER ROUTINE ! 3683: 7272c6136 ! 3684: < ORPL4 MOV XR,XL COPY SCBLK REPLACEMENT PTR ! 3685: --- ! 3686: > ORPL5 MOV XR,XL COPY SCBLK REPLACEMENT PTR ! 3687: 7292c6156 ! 3688: < BRN EVLX3 RETURN TO EVALX PROCEDURE ! 3689: --- ! 3690: > BRN EVLXV RETURN TO EVALX PROCEDURE ! 3691: 7337,7338c6201,6202 ! 3692: ! 3693: ! 3694: ! 3695: ! 3696: ! 3697: ! 3698: ! 3699: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 57 ! 3700: ! 3701: ! 3702: < ERR 032,SUBTRACTION LEFT OPERAND IS NOT NUMERIC ! 3703: < ERR 033,SUBTRACTION RIGHT OPERAND IS NOT NUMERIC ! 3704: --- ! 3705: > ERR 037,SUBTRACTION LEFT OPERAND IS NOT NUMERIC ! 3706: > ERR 038,SUBTRACTION RIGHT OPERAND IS NOT NUMERIC ! 3707: 7348c6212 ! 3708: < ERB 034,SUBTRACTION CAUSED INTEGER OVERFLOW ! 3709: --- ! 3710: > ERB 039,SUBTRACTION CAUSED INTEGER OVERFLOW ! 3711: 7356c6220 ! 3712: < ERB 264,SUBTRACTION CAUSED REAL OVERFLOW ! 3713: --- ! 3714: > ERB 040,SUBTRACTION CAUSED REAL OVERFLOW ! 3715: 7358d6221 ! 3716: < EJC ! 3717: 7363,7364c6226 ! 3718: < BRN TRXQ1 JUMP INTO TRXEQ PROCEDURE ! 3719: < EJC ! 3720: --- ! 3721: > JMG TRXQR JUMP INTO TRXEQ PROCEDURE ! 3722: 7375c6237 ! 3723: < ERB 035,UNEXPECTED FAILURE IN -NOFAIL MODE ! 3724: --- ! 3725: > ERB 041,UNEXPECTED FAILURE IN -NOFAIL MODE ! 3726: 7387d6248 ! 3727: < EJC ! 3728: 7391a6253,6255 ! 3729: > MOV KVERT,WA LOAD ERROR CODE ! 3730: > ZER XR INDICATE NO ENDING MESSAGE ! 3731: > BNZ WA,STOPR STOP RUN ! 3732: 7393d6256 ! 3733: < * MERGE HERE IF EXECUTION TERMINATES IN ERROR ! 3734: 7395,7404c6258 ! 3735: < LABO1 MOV KVERT,WA LOAD ERROR CODE ! 3736: < BZE WA,LABO2 JUMP IF NO ERROR HAS OCCURED ! 3737: < .IF .CSAX ! 3738: < JSR SYSAX CALL AFTER EXECUTION PROC (REG04) ! 3739: < .ELSE ! 3740: < .FI ! 3741: < JSR PRTPG ELSE EJECT PRINTER ! 3742: < JSR ERMSG PRINT ERROR MESSAGE ! 3743: < ZER XR INDICATE NO MESSAGE TO PRINT ! 3744: < BRN STOPR JUMP TO ROUTINE TO STOP RUN ! 3745: --- ! 3746: > * FAIL IF NO ERROR HAD OCCURED ! 3747: 7406c6260 ! 3748: < * HERE IF NO ERROR HAD OCCURED ! 3749: --- ! 3750: > ERB 042,GOTO ABORT WITH NO PRECEDING ERROR ! 3751: 7408,7410d6261 ! 3752: < LABO2 ERB 036,GOTO ABORT WITH NO PRECEDING ERROR ! 3753: < EJC ! 3754: < * ! 3755: 7417,7418c6268,6269 ! 3756: < LCNT1 MOV R$CNT,XR LOAD CONTINUATION CODE BLOCK PTR ! 3757: < BZE XR,LCNT2 JUMP IF NO PREVIOUS ERROR ! 3758: ! 3759: ! 3760: ! 3761: ! 3762: ! 3763: ! 3764: ! 3765: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 58 ! 3766: ! 3767: ! 3768: --- ! 3769: > LCNXE MOV R$CNT,XR LOAD CONTINUATION CODE BLOCK PTR ! 3770: > BZE XR,LCNT1 JUMP IF NO PREVIOUS ERROR ! 3771: 7428c6279 ! 3772: < LCNT2 ERB 037,GOTO CONTINUE WITH NO PRECEDING ERROR ! 3773: --- ! 3774: > LCNT1 ERB 043,GOTO CONTINUE WITH NO PRECEDING ERROR ! 3775: 7434,7437c6285,6286 ! 3776: < * ! 3777: < * MERGE HERE FROM END CODE CIRCUIT ! 3778: < * ! 3779: < LEND0 MOV =ENDMS,XR POINT TO MESSAGE /NORMAL TERM../ ! 3780: --- ! 3781: > MOV =ENDMS,XR POINT TO MESSAGE /NORMAL TERM../ ! 3782: > ZER WA NO ERROR CODE ! 3783: 7439d6287 ! 3784: < EJC ! 3785: 7446d6293 ! 3786: < EJC ! 3787: 7453d6299 ! 3788: < EJC ! 3789: 7460d6305 ! 3790: < EJC ! 3791: 7465c6310 ! 3792: < ERB 038,GOTO UNDEFINED LABEL ! 3793: --- ! 3794: > ERB 044,GOTO UNDEFINED LABEL ! 3795: 7523d6367 ! 3796: < EJC ! 3797: 7536d6379 ! 3798: < EJC ! 3799: 7547d6389 ! 3800: < EJC ! 3801: 7565d6406 ! 3802: < EJC ! 3803: 7582d6422 ! 3804: < EJC ! 3805: 7594c6434 ! 3806: < BCDC0 MOV FLPTR,XS POP GARBAGE OFF STACK ! 3807: --- ! 3808: > MOV FLPTR,XS POP GARBAGE OFF STACK ! 3809: 7597d6436 ! 3810: < EJC ! 3811: 7599,7600d6437 ! 3812: < * CDBLK (CONTINUED) ! 3813: < * ! 3814: 7606c6443 ! 3815: < BCDS0 MOV FLPTR,XS POP GARBAGE OFF STACK ! 3816: --- ! 3817: > MOV FLPTR,XS POP GARBAGE OFF STACK ! 3818: 7609d6445 ! 3819: < EJC ! 3820: 7616d6451 ! 3821: < EJC ! 3822: 7617a6453,6458 ! 3823: > * COBLK ! 3824: ! 3825: ! 3826: ! 3827: ! 3828: ! 3829: ! 3830: ! 3831: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 59 ! 3832: ! 3833: ! 3834: > * ! 3835: > * THE ROUTINE FOR A COBLK IS NEVER EXECUTED ! 3836: > * ! 3837: > B$COP ENT BL$CO ENTRY POINT (COBLK) ! 3838: > * ! 3839: 7646a6488,6489 ! 3840: > .IF .CNLD ! 3841: > .ELSE ! 3842: 7657,7658d6499 ! 3843: < .IF .CNLD ! 3844: < .ELSE ! 3845: 7671,7676c6512 ! 3846: < .IF .CNRA ! 3847: < BSW XR,3 SWITCH ON TYPE ! 3848: < .ELSE ! 3849: < BSW XR,4 SWITCH ON TYPE ! 3850: < .FI ! 3851: < IFF 0,BEFC7 NO CONVERSION NEEDED ! 3852: --- ! 3853: > BSW XR,5,BEFC7 SWITCH ON EFTAR TYPE ! 3854: 7682a6519,6522 ! 3855: > .IF .CNBF ! 3856: > .ELSE ! 3857: > IFF 4,BEFCA BUFFER ! 3858: > .FI ! 3859: 7689c6529 ! 3860: < ERR 039,EXTERNAL FUNCTION ARGUMENT IS NOT STRING ! 3861: --- ! 3862: > ERR 045,EXTERNAL FUNCTION ARGUMENT IS NOT STRING ! 3863: 7700c6540 ! 3864: < ERR 040,EXTERNAL FUNCTION ARGUMENT IS NOT INTEGER ! 3865: --- ! 3866: > ERR 046,EXTERNAL FUNCTION ARGUMENT IS NOT INTEGER ! 3867: 7710,7711c6550 ! 3868: < ERR 265,EXTERNAL FUNCTION ARGUMENT IS NOT REAL ! 3869: < .FI ! 3870: --- ! 3871: > ERR 047,EXTERNAL FUNCTION ARGUMENT IS NOT REAL ! 3872: 7714a6554,6570 ! 3873: > .FI ! 3874: > .IF .CNBF ! 3875: > .ELSE ! 3876: > BRN BEFC5 MERGE ! 3877: > * ! 3878: > * HERE TO CONVERT BUFFER ! 3879: > * ! 3880: > BEFCA MOV (XT),XR LOAD ARGUMENT ! 3881: > MOV WC,BEFOF SAVE OFFSET ! 3882: > MOV XL,-(XS) SAVE EFBLK PTR ! 3883: > JSR GTBUF GET A BUFFER ! 3884: > ERR 259,EXTERNAL FUNCTION ARGUMENT IS NOT BUFFER ! 3885: > MOV (XS)+,XL RESTORE EFBLK PTR ! 3886: > * ! 3887: > * INTEGER AND REAL CASE MERGES HERE ! 3888: > * ! 3889: > .FI ! 3890: ! 3891: ! 3892: ! 3893: ! 3894: ! 3895: ! 3896: ! 3897: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 60 ! 3898: ! 3899: ! 3900: 7739c6595 ! 3901: < MOV EFRSL(XL),WB GET RESULT TYPE ID ! 3902: --- ! 3903: > MOV EFRSL(XL),WB GET RESULT TYPE ! 3904: 7764a6621 ! 3905: > BEQ WB,=NUM03,BEF10 YES JUMP ! 3906: 7765a6623,6627 ! 3907: > .IF .CNBF ! 3908: > .ELSE ! 3909: > MOV =B$BCT,WA BUFFER ! 3910: > BEQ WB,=NUM04,BEF10 YES JUMP ! 3911: > .FI ! 3912: 7780d6641 ! 3913: < EJC ! 3914: 7811,7812c6672 ! 3915: < BFFC2 ERB 041,FIELD FUNCTION ARGUMENT IS WRONG DATATYPE ! 3916: < EJC ! 3917: --- ! 3918: > BFFC2 ERB 048,FIELD FUNCTION ARGUMENT IS WRONG DATATYPE ! 3919: 7814,7815d6673 ! 3920: < * FFBLK (CONTINUED) ! 3921: < * ! 3922: 7851d6708 ! 3923: < EJC ! 3924: 7858d6714 ! 3925: < EJC ! 3926: 7871d6726 ! 3927: < EJC ! 3928: 7924c6779 ! 3929: < WTB WA CONVERT NO. OF ARGS TO BYTES OFFSET ! 3930: --- ! 3931: > WTB WA CONVERT NO. OF ARGS TO BAUS OFFSET ! 3932: 7989c6844 ! 3933: < * HERE IF &PROFILE = 1 ! 3934: --- ! 3935: > * HERE IF PROFILE = 1 ! 3936: 7998c6853 ! 3937: < * HERE IF &PROFILE = 2 ! 3938: --- ! 3939: > * HERE IF PROFILE = 2 ! 3940: 8007a6863 ! 3941: > EJC ! 3942: 8008a6865,6866 ! 3943: > * PFBLK (CONTINUED) ! 3944: > * ! 3945: 8078c6936 ! 3946: < WTB WB CONVERT TO BYTE OFFSET ! 3947: --- ! 3948: > WTB WB CONVERT TO BAU OFFSET ! 3949: 8095,8096c6953 ! 3950: < JSR PRTCH PRINT TO TERMINATE OUTPUT ! 3951: < JSR PRTNL TERMINATE PRINT LINE ! 3952: --- ! 3953: > JSR PRTCF PRINT TO TERMINATE OUTPUT ! 3954: 8122d6978 ! 3955: < EJC ! 3956: ! 3957: ! 3958: ! 3959: ! 3960: ! 3961: ! 3962: ! 3963: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 61 ! 3964: ! 3965: ! 3966: 8133d6988 ! 3967: < EJC ! 3968: 8140d6994 ! 3969: < EJC ! 3970: 8147d7000 ! 3971: < EJC ! 3972: 8176d7028 ! 3973: < EJC ! 3974: 8178,8179d7029 ! 3975: < * VRBLK (CONTINUED) ! 3976: < * ! 3977: 8185,8186c7035 ! 3978: < ERB 042,ATTEMPT TO CHANGE VALUE OF PROTECTED VARIABLE ! 3979: < EJC ! 3980: --- ! 3981: > ERB 049,ATTEMPT TO CHANGE VALUE OF PROTECTED VARIABLE ! 3982: 8188,8189d7036 ! 3983: < * VRBLK (CONTINUED) ! 3984: < * ! 3985: 8199d7045 ! 3986: < EJC ! 3987: 8201,8202d7046 ! 3988: < * VRBLK (CONTINUED) ! 3989: < * ! 3990: 8223d7066 ! 3991: < EJC ! 3992: 8225,8226d7067 ! 3993: < * VRBLK (CONTINUED) ! 3994: < * ! 3995: 8252,8253c7093 ! 3996: < JSR PRTCH PRINT IT ! 3997: < JSR PRTNL TERMINATE LINE ! 3998: --- ! 3999: > JSR PRTCF PRINT IT ! 4000: 8286d7125 ! 4001: < EJC ! 4002: 8593a7433,7434 ! 4003: > .IF .CNFN ! 4004: > .ELSE ! 4005: 8596,8597d7436 ! 4006: < * COMPOUNT PATTERN STRUCTURES (CONTINUED) ! 4007: < * ! 4008: 8627c7466,7467 ! 4009: < * STACK BACK PAST THE INNTER STACK BASE CREATED BY P$FNA ! 4010: --- ! 4011: > * STACK BACK PAST THE INNER STACK BASE CREATED BY P$FNA ! 4012: > .FI ! 4013: 8734d7573 ! 4014: < EJC ! 4015: 8743d7581 ! 4016: < EJC ! 4017: 8767d7604 ! 4018: < EJC ! 4019: 8784d7620 ! 4020: < EJC ! 4021: 8809d7644 ! 4022: ! 4023: ! 4024: ! 4025: ! 4026: ! 4027: ! 4028: ! 4029: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 62 ! 4030: ! 4031: ! 4032: < EJC ! 4033: 8811a7647 ! 4034: > * EXPRESSION ARGUMENT CASE MERGES ! 4035: 8817,8820c7653 ! 4036: < * ! 4037: < * EXPRESSION ARGUMENT CASE MERGES HERE ! 4038: < * ! 4039: < PANY1 BEQ WB,PMSSL,FAILP FAIL IF NO CHARACTERS LEFT ! 4040: --- ! 4041: > BEQ WB,PMSSL,FAILP FAIL IF NO CHARACTERS LEFT ! 4042: 8825c7658 ! 4043: < WTB WA CHANGE TO BYTE OFFSET ! 4044: --- ! 4045: > WTB WA CHANGE TO BAU OFFSET ! 4046: 8832d7664 ! 4047: < EJC ! 4048: 8838a7671 ! 4049: > MOV =P$ANY,WA PCODE FOR NEW NODE ! 4050: 8840c7673 ! 4051: < ERR 043,ANY EVALUATED ARGUMENT IS NOT STRING ! 4052: --- ! 4053: > ERR 050,ANY EVALUATED ARGUMENT IS NOT STRING ! 4054: 8842c7675 ! 4055: < PPM PANY1 MERGE MULTI-CHAR CASE IF OK ! 4056: --- ! 4057: > BRI XL MERGE MULTI-CHAR CASE IF OK ! 4058: 8859d7691 ! 4059: < EJC ! 4060: 8922a7755 ! 4061: > MOV =P$BRK,WA PCODE FOR NEW NODE ! 4062: 8924c7757 ! 4063: < ERR 044,BREAK EVALUATED ARGUMENT IS NOT STRING ! 4064: --- ! 4065: > ERR 051,BREAK EVALUATED ARGUMENT IS NOT STRING ! 4066: 8926,8927c7759 ! 4067: < PPM PBRK1 MERGE WITH MULTI-CHAR CASE IF OK ! 4068: < EJC ! 4069: --- ! 4070: > BRI XL MERGE WITH MULTI-CHAR CASE IF OK ! 4071: 8950a7783 ! 4072: > * EXPRESSION ARGUMENT CASE MERGES ! 4073: 8956,8959c7789 ! 4074: < * ! 4075: < * EXPRESSION ARGUMENT MERGES HERE ! 4076: < * ! 4077: < PBRK1 MOV PMSSL,WC LOAD SUBJECT STRING LENGTH ! 4078: --- ! 4079: > MOV PMSSL,WC LOAD SUBJECT STRING LENGTH ! 4080: 8971c7801 ! 4081: < WTB WA CONVERT TO BYTE OFFSET ! 4082: --- ! 4083: > WTB WA CONVERT TO BAU OFFSET ! 4084: 8993d7822 ! 4085: < EJC ! 4086: 9004a7834 ! 4087: > MOV =P$BRK,WA PCODE FOR NEW NODE ! 4088: ! 4089: ! 4090: ! 4091: ! 4092: ! 4093: ! 4094: ! 4095: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 63 ! 4096: ! 4097: ! 4098: 9006c7836 ! 4099: < ERR 045,BREAKX EVALUATED ARGUMENT IS NOT STRING ! 4100: --- ! 4101: > ERR 052,BREAKX EVALUATED ARGUMENT IS NOT STRING ! 4102: 9008,9009c7838 ! 4103: < PPM PBRK1 MERGE WITH BREAK IF ALL OK ! 4104: < EJC ! 4105: --- ! 4106: > BRI XL MERGE WITH BREAK IF ALL OK ! 4107: 9060c7889 ! 4108: < ERR 046,EXPRESSION DOES NOT EVALUATE TO PATTERN ! 4109: --- ! 4110: > ERR 053,EXPRESSION DOES NOT EVALUATE TO PATTERN ! 4111: 9068c7897,7908 ! 4112: < BRN PSTR1 ELSE MERGE WITH STRING CIRCUIT ! 4113: --- ! 4114: > MOV XR,PSAVE SAVE NODE PTR ! 4115: > MOV R$PMS,XR LOAD SUBJECT STRING PTR ! 4116: > PLC XR,WB POINT TO CURRENT CHAR ! 4117: > ADD SCLEN(XL),WB COMPUTE NEW CURSOR POSITION ! 4118: > BGT WB,PMSSL,FAILP FAIL IF PAST END OF STRING ! 4119: > MOV WB,PSAVC SAVE UPDATED CURSOR ! 4120: > MOV SCLEN(XL),WA NUMBER OF CHARS TO COMPARE ! 4121: > PLC XL POINT TO TEST STRING CHARS ! 4122: > CMC FAILP,FAILP COMPARE, FAIL IF UNEQUAL ! 4123: > MOV PSAVE,XR IF ALL MATCHED, RESTORE NODE PTR ! 4124: > MOV PSAVC,WB RESTORE UPDATED CURSOR ! 4125: > BRN SUCCP AND SUCCEED ! 4126: 9093d7932 ! 4127: < EJC ! 4128: 9102d7940 ! 4129: < * ! 4130: 9114c7952,7953 ! 4131: < EJC ! 4132: --- ! 4133: > .IF .CNFN ! 4134: > .ELSE ! 4135: 9128d7966 ! 4136: < EJC ! 4137: 9137d7974 ! 4138: < EJC ! 4139: 9155d7991 ! 4140: < EJC ! 4141: 9163a8000 ! 4142: > .FI ! 4143: 9180d8016 ! 4144: < EJC ! 4145: 9232d8067 ! 4146: < EJC ! 4147: 9251,9254c8086 ! 4148: < * ! 4149: < * EXPRESSION ARGUMENT CASE MERGES HERE ! 4150: < * ! 4151: < PLEN1 ADD PARM1(XR),WB PUSH CURSOR INDICATED AMOUNT ! 4152: --- ! 4153: > ADD PARM1(XR),WB PUSH CURSOR INDICATED AMOUNT ! 4154: ! 4155: ! 4156: ! 4157: ! 4158: ! 4159: ! 4160: ! 4161: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 64 ! 4162: ! 4163: ! 4164: 9257d8088 ! 4165: < EJC ! 4166: 9265,9266c8096,8097 ! 4167: < ERR 047,LEN EVALUATED ARGUMENT IS NOT INTEGER ! 4168: < ERR 048,LEN EVALUATED ARGUMENT IS NEGATIVE OR TOO LARGE ! 4169: --- ! 4170: > ERR 054,LEN EVALUATED ARGUMENT IS NOT INTEGER ! 4171: > ERR 055,LEN EVALUATED ARGUMENT IS NEGATIVE OR TOO LARGE ! 4172: 9268c8099,8101 ! 4173: < PPM PLEN1 MERGE WITH NORMAL CIRCUIT IF OK ! 4174: --- ! 4175: > ADD PARM1(XR),WB PUSH CURSOR INDICATED AMOUNT ! 4176: > BLE WB,PMSSL,SUCCP SUCCEED IF NOT OFF END ! 4177: > BRN FAILP ELSE FAIL ! 4178: 9275a8109 ! 4179: > MOV =P$NAY,WA PCODE FOR NEW NODE ! 4180: 9277c8111 ! 4181: < ERR 049,NOTANY EVALUATED ARGUMENT IS NOT STRING ! 4182: --- ! 4183: > ERR 056,NOTANY EVALUATED ARGUMENT IS NOT STRING ! 4184: 9279c8113 ! 4185: < PPM PNAY1 MERGE WITH MULTI-CHAR CASE IF OK ! 4186: --- ! 4187: > BRI XL MERGE WITH MULTI-CHAR CASE IF OK ! 4188: 9296a8131 ! 4189: > * EXPRESSION ARGUMENT CASE MERGES ! 4190: 9302,9305c8137 ! 4191: < * ! 4192: < * EXPRESSION ARGUMENT CASE MERGES HERE ! 4193: < * ! 4194: < PNAY1 BEQ WB,PMSSL,FAILP FAIL IF NO CHARACTERS LEFT ! 4195: --- ! 4196: > BEQ WB,PMSSL,FAILP FAIL IF NO CHARACTERS LEFT ! 4197: 9309c8141 ! 4198: < WTB WA CONVERT TO BYTE OFFSET ! 4199: --- ! 4200: > WTB WA CONVERT TO BAU OFFSET ! 4201: 9405a8238 ! 4202: > ZER R$PMB CLEAR POSSIBLE BCBLK PTR FOR GBCOL ! 4203: 9418a8252 ! 4204: > MOV XL,-(XS) STACK SUBJECT STRING POINTER ! 4205: 9422c8256 ! 4206: < .FI ! 4207: --- ! 4208: > ZER R$PMB CLEAR BCBLK PTR FOR GBCOL ! 4209: 9426a8261 ! 4210: > .FI ! 4211: 9435,9438c8270 ! 4212: < * ! 4213: < * EXPRESSION ARGUMENT CASE MERGES HERE ! 4214: < * ! 4215: < PPOS1 BEQ WB,PARM1(XR),SUCCP SUCCEED IF AT RIGHT LOCATION ! 4216: --- ! 4217: > BEQ WB,PARM1(XR),SUCCP SUCCEED IF AT RIGHT LOCATION ! 4218: 9440d8271 ! 4219: < EJC ! 4220: ! 4221: ! 4222: ! 4223: ! 4224: ! 4225: ! 4226: ! 4227: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 65 ! 4228: ! 4229: ! 4230: 9448,9449c8279,8280 ! 4231: < ERR 050,POS EVALUATED ARGUMENT IS NOT INTEGER ! 4232: < ERR 051,POS EVALUATED ARGUMENT IS NEGATIVE OR TOO LARGE ! 4233: --- ! 4234: > ERR 057,POS EVALUATED ARGUMENT IS NOT INTEGER ! 4235: > ERR 058,POS EVALUATED ARGUMENT IS NEGATIVE OR TOO LARGE ! 4236: 9451c8282,8283 ! 4237: < PPM PPOS1 MERGE WITH NORMAL CASE IF OK ! 4238: --- ! 4239: > BEQ WB,PARM1(XR),SUCCP SUCCEED IF AT RIGHT LOCATION ! 4240: > BRN FAILP ELSE FAIL ! 4241: 9465d8296 ! 4242: < EJC ! 4243: 9476d8306 ! 4244: < EJC ! 4245: 9493d8322 ! 4246: < EJC ! 4247: 9513d8341 ! 4248: < EJC ! 4249: 9521,9522c8349,8350 ! 4250: < ERR 052,RPOS EVALUATED ARGUMENT IS NOT INTEGER ! 4251: < ERR 053,RPOS EVALUATED ARGUMENT IS NEGATIVE OR TOO LARGE ! 4252: --- ! 4253: > ERR 059,RPOS EVALUATED ARGUMENT IS NOT INTEGER ! 4254: > ERR 060,RPOS EVALUATED ARGUMENT IS NEGATIVE OR TOO LARGE ! 4255: 9524,9525c8352,8353 ! 4256: < PPM PRPS1 MERGE WITH NORMAL CASE IF OK ! 4257: < EJC ! 4258: --- ! 4259: > MOV =P$RPS,XL CONTINUATION ROUTINE ! 4260: > BRI XL ENTER ROUTINE ! 4261: 9527a8356 ! 4262: > * EXPRESSION ARGUMENT CASE MERGES ! 4263: 9532,9535c8361 ! 4264: < * ! 4265: < * EXPRESSION ARGUMENT CASE MERGES HERE ! 4266: < * ! 4267: < PRPS1 MOV PMSSL,WC GET LENGTH OF STRING ! 4268: --- ! 4269: > MOV PMSSL,WC GET LENGTH OF STRING ! 4270: 9541a8368 ! 4271: > * EXPRESSION ARGUMENT CASE MERGES ! 4272: 9546,9549c8373 ! 4273: < * ! 4274: < * EXPRESSION ARGUMENT CASE MERGES HERE ! 4275: < * ! 4276: < PRTB1 MOV WB,WC SAVE INITIAL CURSOR ! 4277: --- ! 4278: > MOV WB,WC SAVE INITIAL CURSOR ! 4279: 9555d8378 ! 4280: < EJC ! 4281: 9563,9564c8386,8387 ! 4282: < ERR 054,RTAB EVALUATED ARGUMENT IS NOT INTEGER ! 4283: < ERR 055,RTAB EVALUATED ARGUMENT IS NEGATIVE OR TOO LARGE ! 4284: --- ! 4285: > ERR 061,RTAB EVALUATED ARGUMENT IS NOT INTEGER ! 4286: ! 4287: ! 4288: ! 4289: ! 4290: ! 4291: ! 4292: ! 4293: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 66 ! 4294: ! 4295: ! 4296: > ERR 062,RTAB EVALUATED ARGUMENT IS NEGATIVE OR TOO LARGE ! 4297: 9566c8389,8390 ! 4298: < PPM PRTB1 MERGE WITH NORMAL CASE IF SUCCESS ! 4299: --- ! 4300: > MOV =P$RTB,XL CONTINUATION ROUTINE ! 4301: > BRI XL ENTER ROUTINE ! 4302: 9573a8398 ! 4303: > MOV =P$SPN,WA PCODE FOR NEW NODE ! 4304: 9575c8400 ! 4305: < ERR 056,SPAN EVALUATED ARGUMENT IS NOT STRING ! 4306: --- ! 4307: > ERR 063,SPAN EVALUATED ARGUMENT IS NOT STRING ! 4308: 9577,9578c8402 ! 4309: < PPM PSPN1 MERGE WITH MULTI-CHAR CASE IF OK ! 4310: < EJC ! 4311: --- ! 4312: > BRI XL MERGE WITH MULTI-CHAR CASE IF OK ! 4313: 9580a8405 ! 4314: > * EXPRESSION ARGUMENT CASE MERGES ! 4315: 9586,9589c8411 ! 4316: < * ! 4317: < * EXPRESSION ARGUMENT CASE MERGES HERE ! 4318: < * ! 4319: < PSPN1 MOV PMSSL,WC COPY SUBJECT STRING LENGTH ! 4320: --- ! 4321: > MOV PMSSL,WC COPY SUBJECT STRING LENGTH ! 4322: 9601c8423 ! 4323: < WTB WA CONVERT TO BYTE OFFSET ! 4324: --- ! 4325: > WTB WA CONVERT TO BAU OFFSET ! 4326: 9641d8462 ! 4327: < EJC ! 4328: 9643c8464 ! 4329: < * MULTI-CHARACTER STRING ! 4330: --- ! 4331: > * MULTI-CHARACTER STRING (MERGE FROM P$EXA) ! 4332: 9652,9655c8473 ! 4333: < * ! 4334: < * MERGE HERE AFTER EVALUATING EXPRESSION WITH STRING VALUE ! 4335: < * ! 4336: < PSTR1 MOV XR,PSAVE SAVE NODE POINTER ! 4337: --- ! 4338: > MOV XR,PSAVE SAVE NODE POINTER ! 4339: 9682a8501 ! 4340: > * EXPRESSION CASE MERGES ! 4341: 9687,9690c8506 ! 4342: < * ! 4343: < * EXPRESSION ARGUMENT CASE MERGES HERE ! 4344: < * ! 4345: < PTAB1 BGT WB,PARM1(XR),FAILP FAIL IF TOO FAR ALREADY ! 4346: --- ! 4347: > BGT WB,PARM1(XR),FAILP FAIL IF TOO FAR ALREADY ! 4348: 9694d8509 ! 4349: < EJC ! 4350: 9702,9703c8517,8518 ! 4351: < ERR 057,TAB EVALUATED ARGUMENT IS NOT INTEGER ! 4352: ! 4353: ! 4354: ! 4355: ! 4356: ! 4357: ! 4358: ! 4359: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 67 ! 4360: ! 4361: ! 4362: < ERR 058,TAB EVALUATED ARGUMENT IS NEGATIVE OR TOO LARGE ! 4363: --- ! 4364: > ERR 064,TAB EVALUATED ARGUMENT IS NOT INTEGER ! 4365: > ERR 065,TAB EVALUATED ARGUMENT IS NEGATIVE OR TOO LARGE ! 4366: 9705,9706c8520,8521 ! 4367: < PPM PTAB1 MERGE WITH NORMAL CASE IF OK ! 4368: < EJC ! 4369: --- ! 4370: > MOV =P$TAB,XL CONTINUATION ROUTINE ! 4371: > BRI XL ENTER ROUTINE ! 4372: 9721d8535 ! 4373: < EJC ! 4374: 9764c8578 ! 4375: < ERR 059,ANY ARGUMENT IS NOT STRING OR EXPRESSION ! 4376: --- ! 4377: > ERR 066,ANY ARGUMENT IS NOT STRING OR EXPRESSION ! 4378: 9766d8579 ! 4379: < EJC ! 4380: 9768a8582 ! 4381: > EJC ! 4382: 9776c8590 ! 4383: < ERB 275,APPEND FIRST ARGUMENT IS NOT BUFFER ! 4384: --- ! 4385: > ERB 067,APPEND FIRST ARGUMENT IS NOT BUFFER ! 4386: 9780,9781c8594,8597 ! 4387: < SAPN1 JSR APNDB DO THE APPEND ! 4388: < ERR 276,APPEND SECOND ARGUMENT IS NOT STRING ! 4389: --- ! 4390: > SAPN1 MOV BCLEN(XR),WA OFFSET TO BUFFER END ! 4391: > ZER WB NO CHARS TO BE REPLACED ! 4392: > JSR INSBF DO THE APPEND ! 4393: > ERR 068,APPEND SECOND ARGUMENT IS NOT STRING ! 4394: 9784d8599 ! 4395: < EJC ! 4396: 9785a8601 ! 4397: > EJC ! 4398: 9796c8612 ! 4399: < WTB WB CONVERT TO BYTES ! 4400: --- ! 4401: > WTB WB CONVERT TO BAUS ! 4402: 9819c8635 ! 4403: < SAPP3 ERB 060,APPLY FIRST ARG IS NOT NATURAL VARIABLE NAME ! 4404: --- ! 4405: > SAPP3 ERB 069,APPLY FIRST ARG IS NOT NATURAL VARIABLE NAME ! 4406: 9841c8657 ! 4407: < ERR 061,ARBNO ARGUMENT IS NOT PATTERN ! 4408: --- ! 4409: > ERR 070,ARBNO ARGUMENT IS NOT PATTERN ! 4410: 9857c8673 ! 4411: < ERR 062,ARG SECOND ARGUMENT IS NOT INTEGER ! 4412: --- ! 4413: > ERR 253,ARG SECOND ARGUMENT IS NOT INTEGER ! 4414: 9874c8690 ! 4415: < SARG1 ERB 063,ARG FIRST ARGUMENT IS NOT PROGRAM FUNCTION NAME ! 4416: --- ! 4417: > SARG1 ERB 252,ARG FIRST ARGUMENT IS NOT PROGRAM FUNCTION NAME ! 4418: ! 4419: ! 4420: ! 4421: ! 4422: ! 4423: ! 4424: ! 4425: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 68 ! 4426: ! 4427: ! 4428: 9892c8708 ! 4429: < WTB WA CONVERT LENGTH TO BYTES ! 4430: --- ! 4431: > WTB WA CONVERT LENGTH TO BAUS ! 4432: 9914c8730 ! 4433: < ERR 064,ARRAY FIRST ARGUMENT IS NOT INTEGER OR STRING ! 4434: --- ! 4435: > ERR 071,ARRAY FIRST ARGUMENT IS NOT INTEGER OR STRING ! 4436: 9938c8754 ! 4437: < ERR 065,ARRAY FIRST ARGUMENT LOWER BOUND IS NOT INTEGER ! 4438: --- ! 4439: > ERR 072,ARRAY FIRST ARGUMENT LOWER BOUND IS NOT INTEGER ! 4440: 9950,9951c8766,8772 ! 4441: < SAR04 JSR GTINT CONVERT HIGH BOUND TO INTEGER ! 4442: < ERR 066,ARRAY FIRST ARGUMENT UPPER BOUND IS NOT INTEGER ! 4443: --- ! 4444: > SAR04 BNZ WA,SAR4A SKIP IF DELIMITER 1 OR 2 ! 4445: > BNZ XSCNB,SAR10 JUMP IF ILLEGALLY PLACED BLANK ! 4446: > * ! 4447: > * CHECK FOR INTEGER BOUND ! 4448: > * ! 4449: > SAR4A JSR GTINT CONVERT HIGH BOUND TO INTEGER ! 4450: > ERR 073,ARRAY FIRST ARGUMENT UPPER BOUND IS NOT INTEGER ! 4451: 9989c8810 ! 4452: < WTB WB ELSE CONVERT TO LENGTH IN BYTES ! 4453: --- ! 4454: > WTB WB ELSE CONVERT TO LENGTH IN BAUS ! 4455: 10007c8828 ! 4456: < MOV WA,WC SAVE LENGTH IN BYTES ! 4457: --- ! 4458: > MOV WA,WC SAVE LENGTH IN BAUS ! 4459: 10024c8845 ! 4460: < MOV WC,ARLEN(XR) STORE LENGTH IN BYTES ! 4461: --- ! 4462: > MOV WC,ARLEN(XR) STORE LENGTH IN BAUS ! 4463: 10044c8865 ! 4464: < SAR10 ERB 067,ARRAY DIMENSION IS ZERO,NEGATIVE OR OUT OF RANGE ! 4465: --- ! 4466: > SAR10 ERB 074,BAD DIMENSION, ZERO, NEGATIVE OR OUT OF RANGE ! 4467: 10048c8869 ! 4468: < SAR11 ERB 068,ARRAY SIZE EXCEEDS MAXIMUM PERMITTED ! 4469: --- ! 4470: > SAR11 ERB 075,ARRAY SIZE EXCEEDS MAXIMUM PERMITTED ! 4471: 10050,10051d8870 ! 4472: < .IF .CNBF ! 4473: < .ELSE ! 4474: 10053,10078d8871 ! 4475: < * BUFFER ! 4476: < * ! 4477: < S$BUF ENT ENTRY POINT ! 4478: < MOV (XS)+,XL GET INITIAL VALUE ! 4479: < MOV (XS)+,XR GET REQUESTED ALLOCATION ! 4480: < JSR GTINT CONVERT TO INTEGER ! 4481: < ERR 269,BUFFER FIRST ARGUMENT IS NOT INTEGER ! 4482: < LDI ICVAL(XR) GET VALUE ! 4483: < ILE SBF01 BRANCH IF NEGATIVE OR ZERO ! 4484: ! 4485: ! 4486: ! 4487: ! 4488: ! 4489: ! 4490: ! 4491: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 69 ! 4492: ! 4493: ! 4494: < MFI WA,SBF02 MOVE WITH OVERFLOW CHECK ! 4495: < JSR ALOBF ALLOCATE THE BUFFER ! 4496: < JSR APNDB COPY IT IN ! 4497: < ERR 270,BUFFER SECOND ARGUMENT IS NOT STRING OR BUFFER ! 4498: < ERR 271,BUFFER INITIAL VALUE TOO BIG FOR ALLOCATION ! 4499: < BRN EXSID EXIT SETTING IDVAL ! 4500: < * ! 4501: < * HERE FOR INVALID ALLOCATION SIZE ! 4502: < * ! 4503: < SBF01 ERB 272,BUFFER FIRST ARGUMENT IS NOT POSITIVE ! 4504: < * ! 4505: < * HERE FOR ALLOCATION SIZE INTEGER OVERFLOW ! 4506: < * ! 4507: < SBF02 ERB 273,BUFFER SIZE IS TOO BIG ! 4508: < EJC ! 4509: < .FI ! 4510: < * ! 4511: 10086c8879 ! 4512: < ERR 069,BREAK ARGUMENT IS NOT STRING OR EXPRESSION ! 4513: --- ! 4514: > ERR 076,BREAK ARGUMENT IS NOT STRING OR EXPRESSION ! 4515: 10100c8893 ! 4516: < ERR 070,BREAKX ARGUMENT IS NOT STRING OR EXPRESSION ! 4517: --- ! 4518: > ERR 077,BREAKX ARGUMENT IS NOT STRING OR EXPRESSION ! 4519: 10113a8907,8908 ! 4520: > .IF .CNBF ! 4521: > .ELSE ! 4522: 10116c8911 ! 4523: < * CHAR ! 4524: --- ! 4525: > * BUFFER ! 4526: 10118,10130c8913,8923 ! 4527: < S$CHR ENT ENTRY POINT ! 4528: < JSR GTSMI CONVERT ARG TO INTEGER ! 4529: < ERR 281,CHAR ARGUMENT NOT INTEGER ! 4530: < PPM SCHR1 TOO BIG ERROR EXIT ! 4531: < BGE WC,=CFP$A,SCHR1 SEE IF OUT OF RANGE OF HOST SET ! 4532: < MOV =NUM01,WA IF NOT SET SCBLK ALLOCATION ! 4533: < MOV WC,WB SAVE CHAR CODE ! 4534: < JSR ALOCS ALLOCATE 1 BAU SCBLK ! 4535: < MOV XR,XL COPY SCBLK POINTER ! 4536: < PSC XL GET SET TO STUFF CHAR ! 4537: < SCH WB,(XL)+ STUFF IT ! 4538: < ZER XL CLEAR SLOP IN XL ! 4539: < BRN EXIXR EXIT WITH SCBLK POINTER ! 4540: --- ! 4541: > S$BUF ENT ENTRY POINT ! 4542: > MOV (XS)+,XL GET INITIAL STRING ! 4543: > JSR GTSMI CONVERT MEMORY REQUEST TO INTEGER ! 4544: > ERR 078,BUFFER FIRST ARGUMENT IS NOT INTEGER ! 4545: > PPM SBF01 FAIL IF OUT OF RANGE ! 4546: > MOV WC,WA MOVE LENGTH TO CORRECT REGISTER ! 4547: > JSR ALOBF ALLOCATE THE BUFFER ! 4548: > JSR INSBF COPY INITIAL ARG IN ! 4549: > ERR 079,BUFFER SECOND ARGUMENT IS NOT STRING OR BUFFER ! 4550: ! 4551: ! 4552: ! 4553: ! 4554: ! 4555: ! 4556: ! 4557: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 70 ! 4558: ! 4559: ! 4560: > ERR 080,BUFFER INITIAL VALUE TOO BIG FOR ALLOCATION ! 4561: > BRN EXSID EXIT SETTING IDVAL ! 4562: 10132c8925 ! 4563: < * HERE IF CHAR ARGUMENT IS OUT OF RANGE ! 4564: --- ! 4565: > * HERE FOR INVALID ALLOCATION SIZE ! 4566: 10134c8927,8928 ! 4567: < SCHR1 ERB 282,CHAR ARGUMENT NOT IN RANGE ! 4568: --- ! 4569: > SBF01 ERB 081,BUFFER FIRST ARGUMENT IS OUT OF RANGE ! 4570: > .FI ! 4571: 10141c8935 ! 4572: < ERR 071,CLEAR ARGUMENT IS NOT STRING ! 4573: --- ! 4574: > ERR 082,CLEAR ARGUMENT IS NOT STRING ! 4575: 10145c8939 ! 4576: < * THE LIST ARE FALGGED BY SETTING VRGET OF VRBLK TO ZERO. ! 4577: --- ! 4578: > * THE LIST ARE FLAGGED BY SETTING VRGET OF VRBLK TO ZERO. ! 4579: 10151c8945 ! 4580: < ERR 072,CLEAR ARGUMENT HAS NULL VARIABLE NAME ! 4581: --- ! 4582: > PPM SCLR7 ERRONEOUS NAME ! 4583: 10153a8948 ! 4584: > BNZ XSCNB,SCLR7 BADLY PLACED BLANK ! 4585: 10181c8976 ! 4586: < * PRROTECTED VARIABLES (ARB, ETC) ARE EXEMPT ! 4587: --- ! 4588: > * PROTECTED VARIABLES (ARB ETC) ARE EXEMPT ! 4589: 10183,10184c8978,8979 ! 4590: < SCLR5 BEQ VRSTO(XR),=B$VRE,SCLR4 CHECK FOR PROTECTED VARIABLE (REG05) ! 4591: < MOV XR,XL COPY VRBLK POINTER (REG05) ! 4592: --- ! 4593: > SCLR5 BEQ VRSTO(XR),=B$VRE,SCLR4 CHECK FOR PROTECTED VARIABLE ! 4594: > MOV XR,XL COPY VRBLK POINTER ! 4595: 10196a8992,8995 ! 4596: > * ! 4597: > * ERROR POINT ! 4598: > * ! 4599: > SCLR7 ERB 083,NULL VARIABLE NAME OR ILLEGAL BLANK IN CLEAR ARG ! 4600: 10213c9012 ! 4601: < ERR 073,COLLECT ARGUMENT IS NOT INTEGER ! 4602: --- ! 4603: > ERR 084,COLLECT ARGUMENT IS NOT INTEGER ! 4604: 10220c9019 ! 4605: < BTW WA CONVERT BYTES TO WORDS ! 4606: --- ! 4607: > BTW WA CONVERT BAUS TO WORDS ! 4608: 10231c9030 ! 4609: < S$CNV ENT ENTRY POINT ! 4610: --- ! 4611: > S$CVT ENT ENTRY POINT ! 4612: 10233,10235c9032,9036 ! 4613: < ERR 074,CONVERT SECOND ARGUMENT IS NOT STRING ! 4614: < .IF .CULC ! 4615: < JSR FLSTG FOLD LOWER CASE TO UPPER CASE ! 4616: ! 4617: ! 4618: ! 4619: ! 4620: ! 4621: ! 4622: ! 4623: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 71 ! 4624: ! 4625: ! 4626: --- ! 4627: > ERR 085,CONVERT SECOND ARGUMENT IS NOT STRING ! 4628: > .IF .CASL ! 4629: > MOV XR,XL COPY STRING PTR TO XL ! 4630: > ZER WB ZERO OFFSET ! 4631: > JSR SBSTG CONVERT CASE OF ARG IF NECESSARY ! 4632: 10253c9054 ! 4633: < MOV WA,WC SAVE LENGTH OF ARGUMENT STRING ! 4634: --- ! 4635: > MOV SCLEN(XR),WC SAVE LENGTH OF ARGUMENT STRING ! 4636: 10287c9088 ! 4637: < IFF CNVRT,SCV08 REAL ! 4638: --- ! 4639: > IFF 9,SCV08 REAL ! 4640: 10371c9172 ! 4641: < WTB WA CONVERT LENGTH TO BYTES ! 4642: --- ! 4643: > WTB WA CONVERT LENGTH TO BAUS ! 4644: 10441,10442c9242 ! 4645: < SCV28 MOV XR,-(XS) STACK STRING FOR PROCEDURE ! 4646: < JSR GTSTG CONVERT TO STRING ! 4647: --- ! 4648: > SCV28 JSR GTBUF CONVERT TO BUFFER ! 4649: 10444,10448d9243 ! 4650: < MOV XR,XL SAVE STRING POINTER ! 4651: < JSR ALOBF ALLOCATE BUFFER OF SAME SIZE ! 4652: < JSR APNDB COPY IN THE STRING ! 4653: < PPM ALREADY STRING - CANT FAIL TO CNV ! 4654: < PPM MUST BE ENOUGH ROOM ! 4655: 10450d9244 ! 4656: < EJC ! 4657: 10451a9246 ! 4658: > EJC ! 4659: 10456c9251 ! 4660: < JSR COPYB COPY THE BLOCK ! 4661: --- ! 4662: > JSR CBLCK COPY THE BLOCK ! 4663: 10458a9254,9270 ! 4664: > * ! 4665: > * CTI ! 4666: > * ! 4667: > S$CTI ENT ! 4668: > LDI INTV0 ZERO IN CASE NULL STRING ! 4669: > JSR GTSTG GET ARG AS A STRING ! 4670: > ERR 086,CTI ARGUMENT IS NOT A STRING ! 4671: > BZE WA,SCT01 SKIP IF NULL ! 4672: > PLC XR PREPARE TO READ THE CHARACTER ! 4673: > LCH WB,(XR) GET THE CHARACTER ! 4674: > MTI WB CONVERT TO INTEGER ! 4675: > ZER XR CLEAR GARBAGE ! 4676: > * ! 4677: > * MAKE ICBLK AND RETURN ! 4678: > * ! 4679: > SCT01 JSR ICBLD BUILD ICBLK ! 4680: > BRN EXIXR RETURN INTEGER RESULT ! 4681: 10465,10466c9277,9278 ! 4682: ! 4683: ! 4684: ! 4685: ! 4686: ! 4687: ! 4688: ! 4689: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 72 ! 4690: ! 4691: ! 4692: < ERR 075,DATA ARGUMENT IS NOT STRING ! 4693: < ERR 076,DATA ARGUMENT IS NULL ! 4694: --- ! 4695: > ERR 087,DATA ARGUMENT IS NOT STRING ! 4696: > ERR 088,DATA ARGUMENT IS NULL ! 4697: 10474c9286 ! 4698: < ERB 077,DATA ARGUMENT IS MISSING A LEFT PAREN ! 4699: --- ! 4700: > ERB 089,DATA ARGUMENT IS MISSING A LEFT PAREN ! 4701: 10478,10482d9289 ! 4702: < .IF .CULC ! 4703: < SDAT1 MOV SCLEN(XR),WA GET LENGTH ! 4704: < JSR FLSTG FOLD LOWER CASE TO UPPER CASE ! 4705: < MOV XR,XL SAVE NAME PTR ! 4706: < .ELSE ! 4707: 10484d9290 ! 4708: < .FI ! 4709: 10493c9299 ! 4710: < ERR 078,DATA ARGUMENT HAS NULL DATATYPE NAME ! 4711: --- ! 4712: > ERR 090,DATA ARGUMENT HAS NULL DATATYPE NAME ! 4713: 10504c9310 ! 4714: < ERB 079,DATA ARGUMENT IS MISSING A RIGHT PAREN ! 4715: --- ! 4716: > ERB 091,BAD BLANK OR MISSING RIGHT PAREN IN DATA ARG ! 4717: 10509c9315 ! 4718: < ERR 080,DATA ARGUMENT HAS NULL FIELD NAME ! 4719: --- ! 4720: > ERR 092,DATA ARGUMENT HAS NULL FIELD NAME ! 4721: 10521c9327 ! 4722: < WTB WA CONVERT LENGTH TO BYTES ! 4723: --- ! 4724: > WTB WA CONVERT LENGTH TO BAUS ! 4725: 10608c9414 ! 4726: < S$DEF ENT ENTRY POINT ! 4727: --- ! 4728: > S$DFN ENT ENTRY POINT ! 4729: 10619,10620c9425,9426 ! 4730: < ERR 081,DEFINE FIRST ARGUMENT IS NOT STRING ! 4731: < ERR 082,DEFINE FIRST ARGUMENT IS NULL ! 4732: --- ! 4733: > ERR 093,DEFINE FIRST ARGUMENT IS NOT STRING ! 4734: > ERR 094,DEFINE FIRST ARGUMENT IS NULL ! 4735: 10625c9431 ! 4736: < ERB 083,DEFINE FIRST ARGUMENT IS MISSING A LEFT PAREN ! 4737: --- ! 4738: > ERB 095,DEFINE FIRST ARGUMENT IS MISSING A LEFT PAREN ! 4739: 10630c9436 ! 4740: < ERR 084,DEFINE FIRST ARGUMENT HAS NULL FUNCTION NAME ! 4741: --- ! 4742: > ERR 096,DEFINE FIRST ARGUMENT HAS NULL FUNCTION NAME ! 4743: 10642,10643c9448,9454 ! 4744: < BNZ WA,SDF04 SKIP IF DELIMITER FOUND ! 4745: < ERB 085,NULL ARG NAME OR MISSING ) IN DEFINE FIRST ARG. ! 4746: --- ! 4747: > BZE WA,SDF14 FAIL IF RUNOUT ! 4748: ! 4749: ! 4750: ! 4751: ! 4752: ! 4753: ! 4754: ! 4755: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 73 ! 4756: ! 4757: ! 4758: > JSR GTNVR GET VRBLK POINTER ! 4759: > PPM SDF04 IGNORE NULL NAME ! 4760: > MOV XR,-(XS) STACK ARGUMENT VRBLK POINTER ! 4761: > ICV WB INCREMENT COUNTER ! 4762: > BEQ WA,=NUM02,SDF03 LOOP BACK IF STOPPED BY A COMMA ! 4763: > BRN SDF05 JUMP FOR RIGHT PAREN ! 4764: 10648c9459 ! 4765: < * HERE AFTER SCANNING AN ARGUMENT NAME ! 4766: --- ! 4767: > * NULL ARG FOUND. CONTINUE IF STOPPED BY COMMA ! 4768: 10650,10651c9461 ! 4769: < SDF04 BNE XR,=NULLS,SDF05 SKIP IF NON-NULL ! 4770: < BZE WB,SDF06 IGNORE NULL IF CASE OF NO ARGUMENTS ! 4771: --- ! 4772: > SDF04 BEQ WA,=NUM02,SDF03 LOOP IF COMMA ! 4773: 10653,10660d9462 ! 4774: < * HERE AFTER DEALING WITH THE CASE OF NO ARGUMENTS ! 4775: < * ! 4776: < SDF05 JSR GTNVR GET VRBLK POINTER ! 4777: < PPM SDF03 LOOP BACK TO IGNORE NULL NAME ! 4778: < MOV XR,-(XS) STACK ARGUMENT VRBLK POINTER ! 4779: < ICV WB INCREMENT COUNTER ! 4780: < BEQ WA,=NUM02,SDF03 LOOP BACK IF STOPPED BY A COMMA ! 4781: < * ! 4782: 10663c9465 ! 4783: < SDF06 MOV WB,DEFNA SAVE NUMBER OF ARGUMENTS ! 4784: --- ! 4785: > SDF05 MOV WB,DEFNA SAVE NUMBER OF ARGUMENTS ! 4786: 10668c9470 ! 4787: < SDF07 MOV =CH$CM,WC SET DELIMITER ONE = COMMA ! 4788: --- ! 4789: > SDF06 MOV =CH$CM,WC SET DELIMITER ONE = COMMA ! 4790: 10671,10672c9473,9474 ! 4791: < BNE XR,=NULLS,SDF08 SKIP IF NON-NULL ! 4792: < BZE WB,SDF09 IGNORE NULL IF CASE OF NO LOCALS ! 4793: --- ! 4794: > BNZ WA,SDF07 SKIP IF COMMA FOUND ! 4795: > BNZ XSCNB,SDF14 FAIL IF BAD BLANK, OK IF LAST LOC ! 4796: 10676,10677c9478,9479 ! 4797: < SDF08 JSR GTNVR GET VRBLK POINTER ! 4798: < PPM SDF07 LOOP BACK TO IGNORE NULL NAME ! 4799: --- ! 4800: > SDF07 JSR GTNVR GET VRBLK POINTER ! 4801: > PPM SDF08 IGNORE NULL NAME ! 4802: 10680c9482,9487 ! 4803: < BNZ WA,SDF07 LOOP BACK IF STOPPED BY A COMMA ! 4804: --- ! 4805: > BNZ WA,SDF06 LOOP BACK IF STOPPED BY A COMMA ! 4806: > BRN SDF09 JUMP FOR END OF STRING ! 4807: > * ! 4808: > * NULL LOCAL ! 4809: > * ! 4810: > SDF08 BNZ WA,SDF06 LOOP IF COMMA AFTER NULL LOCAL ! 4811: 10691c9498 ! 4812: < WTB WA CONVERT LENGTH TO BYTES ! 4813: --- ! 4814: ! 4815: ! 4816: ! 4817: ! 4818: ! 4819: ! 4820: ! 4821: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 74 ! 4822: ! 4823: ! 4824: > WTB WA CONVERT LENGTH TO BAUS ! 4825: 10734c9541,9545 ! 4826: < SDF13 ERB 086,DEFINE FUNCTION ENTRY POINT IS NOT DEFINED LABEL ! 4827: --- ! 4828: > SDF13 ERB 097,DEFINE FUNCTION ENTRY POINT IS NOT DEFINED LABEL ! 4829: > * ! 4830: > * ERRONEOUS ARG OR LOCAL ! 4831: > * ! 4832: > SDF14 ERB 098,BAD BLANK OR MISSING RIGHT PAREN IN DEFINE ARG ! 4833: 10742,10744c9553,9573 ! 4834: < ERR 087,DETACH ARGUMENT IS NOT APPROPRIATE NAME ! 4835: < JSR DTACH DETACH I/O ASSOCIATION FROM NAME ! 4836: < BRN EXNUL RETURN NULL RESULT ! 4837: --- ! 4838: > ERR 099,DETACH ARGUMENT IS NOT APPROPRIATE NAME ! 4839: > MOV WA,-(XS) KEEP OFFSET ! 4840: > ZER SDETF CLEAR FAIL FLAG ! 4841: > MOV =TRTIN,WB TRACE TYPE ! 4842: > ZER XR REMOVE TRBLK ! 4843: > JSR TRCHN REMOVE ANY INPUT ASSOCIATION ! 4844: > PPM SDET1 SKIP IF NO INPUT TRBLK ! 4845: > MNZ SDETF NOTE TRBLK REMOVED ! 4846: > * ! 4847: > * REPEAT FOR OUTPUT TRBLK ! 4848: > * ! 4849: > SDET1 MOV (XS)+,WA RECOVER OFFSET ! 4850: > MOV =TRTOU,WB TRTYP ! 4851: > JSR TRCHN REMOVE ANY OUTPUT ASSOCIATION ! 4852: > PPM SDET2 SKIP IF NO TRBLK ! 4853: > BRN EXNUL SUCCEED ! 4854: > * ! 4855: > * CHECK AT LEAST ONE TRBLK REMOVED ! 4856: > * ! 4857: > SDET2 BNZ SDETF,EXNUL SUCCEED IF SO ! 4858: > BRN EXFAL ELSE FAIL ! 4859: 10761,10762c9590,9591 ! 4860: < ERR 088,DUMP ARGUMENT IS NOT INTEGER ! 4861: < ERR 089,DUMP ARGUMENT IS NEGATIVE OR TOO LARGE ! 4862: --- ! 4863: > ERR 100,DUMP ARGUMENT IS NOT INTEGER ! 4864: > ERR 101,DUMP ARGUMENT IS NEGATIVE OR TOO LARGE ! 4865: 10771c9600 ! 4866: < ERR 090,DUPL SECOND ARGUMENT IS NOT INTEGER ! 4867: --- ! 4868: > ERR 102,DUPL SECOND ARGUMENT IS NOT INTEGER ! 4869: 10816c9645 ! 4870: < ERR 091,DUPL FIRST ARGUMENT IS NOT STRING OR PATTERN ! 4871: --- ! 4872: > ERR 103,DUPL FIRST ARGUMENT IS NOT STRING OR PATTERN ! 4873: 10848,10850c9677,9685 ! 4874: < JSR IOFCB CALL FCBLK ROUTINE ! 4875: < ERR 092,EJECT ARGUMENT IS NOT A SUITABLE NAME ! 4876: < PPM SEJC1 NULL ARGUMENT ! 4877: --- ! 4878: > MOV (XS)+,WB GET ARGUMENT ! 4879: > MOV WB,-(XS) RESTACK IT ! 4880: ! 4881: ! 4882: ! 4883: ! 4884: ! 4885: ! 4886: ! 4887: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 75 ! 4888: ! 4889: ! 4890: > JSR GTSTG CONVERT TO STRING ! 4891: > PPM SEJC2 FAIL IF CANT ! 4892: > BZE WA,SEJC1 SKIP IF NULL STRING ! 4893: > MOV WB,-(XS) RESTACK ORIGINAL ARG ! 4894: > JSR IOFTG CALL FILETAG ROUTINE ! 4895: > PPM SEJC2 FAIL ! 4896: > BZE WA,EXFAL FAIL IF NOT ASSOCIATED ! 4897: 10852,10854c9687,9688 ! 4898: < ERR 093,EJECT FILE DOES NOT EXIST ! 4899: < ERR 094,EJECT FILE DOES NOT PERMIT PAGE EJECT ! 4900: < ERR 095,EJECT CAUSED NON-RECOVERABLE OUTPUT ERROR ! 4901: --- ! 4902: > PPM EXFAL FAIL RETURN ! 4903: > PPM EROSI ERROR RETURN ! 4904: 10859a9694,9695 ! 4905: > PPM EXFAL FAIL RETURN ! 4906: > PPM EROSI ERROR RETURN ! 4907: 10860a9697,9700 ! 4908: > * ! 4909: > * ERROR POINT ! 4910: > * ! 4911: > SEJC2 ERB 104,EJECT ARGUMENT IS NOT A SUITABLE FILETAG ! 4912: 10866,10873c9706,9709 ! 4913: < JSR IOFCB CALL FCBLK ROUTINE ! 4914: < ERR 096,ENDFILE ARGUMENT IS NOT A SUITABLE NAME ! 4915: < ERR 097,ENDFILE ARGUMENT IS NULL ! 4916: < JSR SYSEN CALL ENDFILE ROUTINE ! 4917: < ERR 098,ENDFILE FILE DOES NOT EXIST ! 4918: < ERR 099,ENDFILE FILE DOES NOT PERMIT ENDFILE ! 4919: < ERR 100,ENDFILE CAUSED NON-RECOVERABLE OUTPUT ERROR ! 4920: < MOV XL,WB REMEMBER VRBLK PTR FROM IOFCB CALL ! 4921: --- ! 4922: > JSR GTSTG CONVERT SECOND ARG TO STRING ! 4923: > ERR 105,ENDFILE SECOND ARGUMENT IS NOT A STRING ! 4924: > BNZ WA,SENF1 SKIP IF NON NULL SECOND ARG ! 4925: > ZER XR 0 IF NULL ! 4926: 10875c9711 ! 4927: < * LOOP TO FIND TRTRF BLOCK ! 4928: --- ! 4929: > * NOW PROCESS FILETAG ! 4930: 10877,10909c9713,9728 ! 4931: < SENF1 MOV XL,XR COPY POINTER ! 4932: < MOV TRVAL(XR),XR CHAIN ALONG ! 4933: < BNE (XR),=B$TRT,EXNUL SKIP OUT IF CHAIN END ! 4934: < BNE TRTYP(XR),=TRTFC,SENF1 LOOP IF NOT FOUND ! 4935: < MOV TRVAL(XR),TRVAL(XL) REMOVE TRTRF ! 4936: < MOV TRTRF(XR),ENFCH POINT TO HEAD OF IOCHN ! 4937: < MOV TRFPT(XR),WC POINT TO FCBLK ! 4938: < MOV WB,XR FILEARG1 VRBLK FROM IOFCB ! 4939: < JSR SETVR RESET IT ! 4940: < MOV =R$FCB,XL PTR TO HEAD OF FCBLK CHAIN ! 4941: < SUB *NUM02,XL ADJUST READY TO ENTER LOOP ! 4942: < * ! 4943: < * FIND FCBLK ! 4944: < * ! 4945: < SENF2 MOV XL,XR COPY PTR ! 4946: ! 4947: ! 4948: ! 4949: ! 4950: ! 4951: ! 4952: ! 4953: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 76 ! 4954: ! 4955: ! 4956: < MOV 2(XL),XL GET NEXT LINK ! 4957: < BZE XL,SENF4 STOP IF CHAIN END ! 4958: < BEQ 3(XL),WC,SENF3 JUMP IF FCBLK FOUND ! 4959: < BRN SENF2 LOOP ! 4960: < * ! 4961: < * REMOVE FCBLK ! 4962: < * ! 4963: < SENF3 MOV 2(XL),2(XR) DELETE FCBLK FROM CHAIN ! 4964: < * ! 4965: < * LOOP WHICH DETACHES ALL VBLS ON IOCHN CHAIN ! 4966: < * ! 4967: < SENF4 MOV ENFCH,XL GET CHAIN HEAD ! 4968: < BZE XL,EXNUL FINISHED IF CHAIN END ! 4969: < MOV TRTRF(XL),ENFCH CHAIN ALONG ! 4970: < MOV IONMO(XL),WA NAME OFFSET ! 4971: < MOV IONMB(XL),XL NAME BASE ! 4972: < JSR DTACH DETACH NAME ! 4973: < BRN SENF4 LOOP TILL DONE ! 4974: --- ! 4975: > SENF1 MOV XR,SENFR KEEP SECOND ARG ! 4976: > JSR IOFTG CALL FILETAG PROC (WB = VRBLK PTR) ! 4977: > ERR 106,ENDFILE FIRST ARGUMENT IS NOT A SUITABLE FILETAG ! 4978: > BZE WA,EXFAL FAIL IF NO IOTAG ! 4979: > MOV SENFR,XR RECOVER SECOND ARG ! 4980: > JSR SYSEN CALL ENDFILE ROUTINE ! 4981: > PPM EXFAL FAIL RETURN ! 4982: > PPM EROSI ERROR RETURN ! 4983: > BNZ WA,EXNUL RETURN NULL IF NO FILE CLOSURE ! 4984: > MOV WB,XL POINT TO FILETAG VRBLK ! 4985: > MOV *VRVAL,WA OFFSET TO VALUE FIELD ! 4986: > ZER XR FOR TRBLK REMOVAL ! 4987: > MOV =TRTIO,WB TRTYP ! 4988: > JSR TRCHN REMOVE TRBLK ! 4989: > PPM EXFAL (CANT FAIL HERE) ! 4990: > BRN EXNUL RETURN NULL ! 4991: 10916,10917c9735,9736 ! 4992: < ERR 101,EQ FIRST ARGUMENT IS NOT NUMERIC ! 4993: < ERR 102,EQ SECOND ARGUMENT IS NOT NUMERIC ! 4994: --- ! 4995: > ERR 107,EQ FIRST ARGUMENT IS NOT NUMERIC ! 4996: > ERR 108,EQ SECOND ARGUMENT IS NOT NUMERIC ! 4997: 10928c9747 ! 4998: < ERR 103,EVAL ARGUMENT IS NOT EXPRESSION ! 4999: --- ! 5000: > ERR 109,EVAL ARGUMENT IS NOT EXPRESSION ! 5001: 10963c9782 ! 5002: < ERR 104,EXIT ARGUMENT IS NOT SUITABLE INTEGER OR STRING ! 5003: --- ! 5004: > ERR 110,EXIT ARGUMENT IS NOT SUITABLE INTEGER OR STRING ! 5005: 10969d9787 ! 5006: < MOV R$FCB,WB GET FCBLK CHAIN HEADER ! 5007: 10973a9792 ! 5008: > MOV =KVCOD,WA VALUE OF CODE KEYWORD ! 5009: 10975,10976c9794,9795 ! 5010: < ERR 105,EXIT ACTION NOT AVAILABLE IN THIS IMPLEMENTATION ! 5011: < ERR 106,EXIT ACTION CAUSED IRRECOVERABLE ERROR ! 5012: ! 5013: ! 5014: ! 5015: ! 5016: ! 5017: ! 5018: ! 5019: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 77 ! 5020: ! 5021: ! 5022: --- ! 5023: > PPM EXFAL FAIL RETURN ! 5024: > PPM EROSI ERROR RETURN ! 5025: 10978c9797 ! 5026: < ZER GBCNT RESUMING EXECUTION SO RESET ! 5027: --- ! 5028: > ZER GBCNT RESUMING EXECUTION SO. ! 5029: 10984c9803 ! 5030: < SEXT2 MFI WC GET VALUE IN WORK REG ! 5031: --- ! 5032: > SEXT2 MFI WC GET VALUE IN WORK REGISTER ! 5033: 10989c9808 ! 5034: < MOV (XS)+,WC RESTORE VALUE ! 5035: --- ! 5036: > MOV (XS)+,WA RESTORE VALUE ! 5037: 10991c9810 ! 5038: < * DEAL WITH HEADER OPTION (FIDDLED BY PRPAR) ! 5039: --- ! 5040: > * DEAL WITH HEADER OPTIONS (FIDDLED BY PRPAR) ! 5041: 10999c9818 ! 5042: < SEXT4 JSR SYSTM GET EXECUTION TIME START (SGD11) ! 5043: --- ! 5044: > SEXT4 JSR SYSTM GET RECOMMENCEMENT TIME ! 5045: 11004a9824,9825 ! 5046: > .IF .CNFN ! 5047: > .ELSE ! 5048: 11006a9828,9848 ! 5049: > * FENCE ! 5050: > * ! 5051: > S$FNC ENT ENTRY POINT ! 5052: > MOV =P$FNC,WB SET PCODE FOR P$FNC ! 5053: > ZER XR P0BLK ! 5054: > JSR PBILD BUILD P$FNC NODE ! 5055: > MOV XR,XL SAVE POINTER TO IT ! 5056: > MOV (XS)+,XR GET ARGUMENT ! 5057: > JSR GTPAT CONVERT TO PATTERN ! 5058: > ERR 180,FENCE ARGUMENT IS NOT PATTERN ! 5059: > JSR PCONC CONCATENATE TO P$FNC NODE ! 5060: > MOV XR,XL SAVE PTR TO CONCATENATED PATTERN ! 5061: > MOV =P$FNA,WB SET FOR P$FNA PCODE ! 5062: > ZER XR P0BLK ! 5063: > JSR PBILD CONSTRUCT P$FNA NODE ! 5064: > MOV XL,PTHEN(XR) SET PATTERN AS PTHEN ! 5065: > MOV XR,-(XS) SET AS RESULT ! 5066: > BRN EXITS DO NEXT CODE WORD ! 5067: > EJC ! 5068: > .FI ! 5069: > * ! 5070: 11011c9853 ! 5071: < ERR 107,FIELD SECOND ARGUMENT IS NOT INTEGER ! 5072: --- ! 5073: > ERR 255,FIELD SECOND ARGUMENT IS NOT INTEGER ! 5074: 11031c9873 ! 5075: < SFLD1 ERB 108,FIELD FIRST ARGUMENT IS NOT DATATYPE NAME ! 5076: --- ! 5077: > SFLD1 ERB 254,FIELD FIRST ARGUMENT IS NOT DATATYPE NAME ! 5078: ! 5079: ! 5080: ! 5081: ! 5082: ! 5083: ! 5084: ! 5085: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 78 ! 5086: ! 5087: ! 5088: 11034,11053d9875 ! 5089: < * FENCE ! 5090: < * ! 5091: < S$FNC ENT ENTRY POINT ! 5092: < MOV =P$FNC,WB SET PCODE FOR P$FNC ! 5093: < ZER XR P0BLK ! 5094: < JSR PBILD BUILD P$FNC NODE ! 5095: < MOV XR,XL SAVE POINTER TO IT ! 5096: < MOV (XS)+,XR GET ARGUMENT ! 5097: < JSR GTPAT CONVERT TO PATTERN ! 5098: < ERR 259,FENCE ARGUMENT IS NOT PATTERN ! 5099: < JSR PCONC CONCATENATE TO P$FNC NODE ! 5100: < MOV XR,XL SAVE PTR TO CONCATENATED PATTERN ! 5101: < MOV =P$FNA,WB SET FOR P$FNA PCODE ! 5102: < ZER XR P0BLK ! 5103: < JSR PBILD CONSTRUCT P$FNA NODE ! 5104: < MOV XL,PTHEN(XR) SET PATTERN AS PTHEN ! 5105: < MOV XR,-(XS) SET AS RESULT ! 5106: < BRN EXITS DO NEXT CODE WORD ! 5107: < EJC ! 5108: < * ! 5109: 11058,11059c9880,9881 ! 5110: < ERR 109,GE FIRST ARGUMENT IS NOT NUMERIC ! 5111: < ERR 110,GE SECOND ARGUMENT IS NOT NUMERIC ! 5112: --- ! 5113: > ERR 111,GE FIRST ARGUMENT IS NOT NUMERIC ! 5114: > ERR 112,GE SECOND ARGUMENT IS NOT NUMERIC ! 5115: 11063d9884 ! 5116: < EJC ! 5117: 11069,11070c9890,9891 ! 5118: < ERR 111,GT FIRST ARGUMENT IS NOT NUMERIC ! 5119: < ERR 112,GT SECOND ARGUMENT IS NOT NUMERIC ! 5120: --- ! 5121: > ERR 113,GT FIRST ARGUMENT IS NOT NUMERIC ! 5122: > ERR 114,GT SECOND ARGUMENT IS NOT NUMERIC ! 5123: 11079,11087c9900,9913 ! 5124: < MOV (XS)+,XR GET THIRD ARG ! 5125: < MOV (XS)+,XL GET SECOND ARG ! 5126: < MOV (XS)+,WA GET FIRST ARG ! 5127: < JSR SYSHS ENTER SYSHS ROUTINE ! 5128: < ERR 254,ERRONEOUS ARGUMENT FOR HOST ! 5129: < ERR 255,ERROR DURING EXECUTION OF HOST ! 5130: < PPM SHST1 STORE HOST STRING ! 5131: < PPM EXNUL RETURN NULL RESULT ! 5132: < PPM EXIXR RETURN XR ! 5133: --- ! 5134: > JSR GTSTG CONVERT ARG TO STRING ! 5135: > ERR 115,ERRONEOUS THIRD ARGUMENT FOR HOST ! 5136: > MOV WA,WB KEEP LENGTH ! 5137: > MOV XR,WC KEEP THIRD ARG ! 5138: > JSR GTSTG CONVERT ARG TO STRING ! 5139: > ERR 116,ERRONEOUS SECOND ARGUMENT FOR HOST ! 5140: > ORB WA,WB NON ZERO UNLESS TWO ARGS NULL ! 5141: > MOV XR,XL KEEP SECOND ARG ! 5142: > JSR GTSTG CONVERT ARG TO STRING ! 5143: > ERR 117,ERRONEOUS FIRST ARGUMENT FOR HOST ! 5144: ! 5145: ! 5146: ! 5147: ! 5148: ! 5149: ! 5150: ! 5151: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 79 ! 5152: ! 5153: ! 5154: > ORB WA,WB NON ZERO UNLESS ALL ARGS NULL ! 5155: > MOV XR,WA KEEP FIRST ARG ! 5156: > MOV WC,XR GET THIRD ARG ! 5157: > JSR SYSHS CALL SYSHS ROUTINE ! 5158: 11089,11093c9915,9916 ! 5159: < * ! 5160: < * RETURN HOST STRING ! 5161: < * ! 5162: < SHST1 BZE XL,EXNUL NULL STRING IF SYSHS UNCOOPERATIVE ! 5163: < MOV SCLEN(XL),WA LENGTH ! 5164: --- ! 5165: > PPM EROSI ERROR RETURN ! 5166: > MOV SCLEN(XL),WA LENGTH OF RETURNED STRING ! 5167: 11115,11120c9938,9941 ! 5168: < ERR 113,INPUT THIRD ARGUMENT IS NOT A STRING ! 5169: < ERR 114,INAPPROPRIATE SECOND ARGUMENT FOR INPUT ! 5170: < ERR 115,INAPPROPRIATE FIRST ARGUMENT FOR INPUT ! 5171: < ERR 116,INAPPROPRIATE FILE SPECIFICATION FOR INPUT ! 5172: < PPM EXFAL FAIL IF FILE DOES NOT EXIST ! 5173: < ERR 117,INPUT FILE CANNOT BE READ ! 5174: --- ! 5175: > ERR 118,INPUT THIRD ARGUMENT (FILEPROPS) IS NOT A STRING ! 5176: > ERR 119,INAPPROPRIATE SECOND ARGUMENT (FILETAG) FOR INPUT ! 5177: > ERR 120,INAPPROPRIATE FIRST ARGUMENT FOR INPUT ! 5178: > PPM EXFAL FAIL RETURN ! 5179: 11122d9942 ! 5180: < EJC ! 5181: 11124a9945 ! 5182: > EJC ! 5183: 11131c9952 ! 5184: < ERR 277,INSERT THIRD ARGUMENT NOT INTEGER ! 5185: --- ! 5186: > ERR 121,INSERT THIRD ARGUMENT NOT INTEGER ! 5187: 11135c9956 ! 5188: < ERR 278,INSERT SECOND ARGUMENT NOT INTEGER ! 5189: --- ! 5190: > ERR 122,INSERT SECOND ARGUMENT NOT INTEGER ! 5191: 11142c9963 ! 5192: < ERB 279,INSERT FIRST ARGUMENT NOT BUFFER ! 5193: --- ! 5194: > ERB 123,INSERT FIRST ARGUMENT NOT BUFFER ! 5195: 11147c9968 ! 5196: < ERR 280,INSERT FOURTH ARGUMENT NOT A STRING ! 5197: --- ! 5198: > ERR 124,INSERT FOURTH ARGUMENT NOT A STRING ! 5199: 11150d9970 ! 5200: < EJC ! 5201: 11151a9972 ! 5202: > EJC ! 5203: 11162a9984,10000 ! 5204: > * ITC ! 5205: > * ! 5206: > S$ITC ENT ! 5207: > JSR GTSMI OBTAIN ARG AS AN INTEGER ! 5208: > ERR 125,ITC ARGUMENT IS NOT A SMALL INTEGER ! 5209: > PPM EXFAL FAIL IF OUT OF RANGE ! 5210: ! 5211: ! 5212: ! 5213: ! 5214: ! 5215: ! 5216: ! 5217: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 80 ! 5218: ! 5219: ! 5220: > BGE WC,=CFP$A,EXFAL FURTHER RANGE CHECK ! 5221: > MOV WC,WB PRESERVE WC ! 5222: > MOV =NUM01,WA FOR SCBLK REQUEST ! 5223: > JSR ALOCS BUILD STRING BLOCK ! 5224: > MOV XR,XL COPY STRING PTR ! 5225: > PSC XL READY TO STORE CHAR ! 5226: > SCH WB,(XL) STORE IT ! 5227: > ZER XL CLEAR GARBAGE ! 5228: > BRN EXIXR RETURN STRING RESULT ! 5229: > EJC ! 5230: > * ! 5231: 11200,11201c10038,10039 ! 5232: < ERR 118,LE FIRST ARGUMENT IS NOT NUMERIC ! 5233: < ERR 119,LE SECOND ARGUMENT IS NOT NUMERIC ! 5234: --- ! 5235: > ERR 126,LE FIRST ARGUMENT IS NOT NUMERIC ! 5236: > ERR 127,LE SECOND ARGUMENT IS NOT NUMERIC ! 5237: 11213,11214c10051,10052 ! 5238: < ERR 120,LEN ARGUMENT IS NOT INTEGER OR EXPRESSION ! 5239: < ERR 121,LEN ARGUMENT IS NEGATIVE OR TOO LARGE ! 5240: --- ! 5241: > ERR 128,LEN ARGUMENT IS NOT INTEGER OR EXPRESSION ! 5242: > ERR 129,LEN ARGUMENT IS NEGATIVE OR TOO LARGE ! 5243: 11222,11223c10060,10061 ! 5244: < ERR 122,LEQ FIRST ARGUMENT IS NOT STRING ! 5245: < ERR 123,LEQ SECOND ARGUMENT IS NOT STRING ! 5246: --- ! 5247: > ERR 130,LEQ FIRST ARGUMENT IS NOT STRING ! 5248: > ERR 131,LEQ SECOND ARGUMENT IS NOT STRING ! 5249: 11233,11234c10071,10072 ! 5250: < ERR 124,LGE FIRST ARGUMENT IS NOT STRING ! 5251: < ERR 125,LGE SECOND ARGUMENT IS NOT STRING ! 5252: --- ! 5253: > ERR 132,LGE FIRST ARGUMENT IS NOT STRING ! 5254: > ERR 133,LGE SECOND ARGUMENT IS NOT STRING ! 5255: 11244,11245c10082,10083 ! 5256: < ERR 126,LGT FIRST ARGUMENT IS NOT STRING ! 5257: < ERR 127,LGT SECOND ARGUMENT IS NOT STRING ! 5258: --- ! 5259: > ERR 134,LGT FIRST ARGUMENT IS NOT STRING ! 5260: > ERR 135,LGT SECOND ARGUMENT IS NOT STRING ! 5261: 11255,11256c10093,10094 ! 5262: < ERR 128,LLE FIRST ARGUMENT IS NOT STRING ! 5263: < ERR 129,LLE SECOND ARGUMENT IS NOT STRING ! 5264: --- ! 5265: > ERR 136,LLE FIRST ARGUMENT IS NOT STRING ! 5266: > ERR 137,LLE SECOND ARGUMENT IS NOT STRING ! 5267: 11266,11267c10104,10105 ! 5268: < ERR 130,LLT FIRST ARGUMENT IS NOT STRING ! 5269: < ERR 131,LLT SECOND ARGUMENT IS NOT STRING ! 5270: --- ! 5271: > ERR 138,LLT FIRST ARGUMENT IS NOT STRING ! 5272: > ERR 139,LLT SECOND ARGUMENT IS NOT STRING ! 5273: 11277,11278c10115,10116 ! 5274: < ERR 132,LNE FIRST ARGUMENT IS NOT STRING ! 5275: < ERR 133,LNE SECOND ARGUMENT IS NOT STRING ! 5276: ! 5277: ! 5278: ! 5279: ! 5280: ! 5281: ! 5282: ! 5283: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 81 ! 5284: ! 5285: ! 5286: --- ! 5287: > ERR 140,LNE FIRST ARGUMENT IS NOT STRING ! 5288: > ERR 141,LNE SECOND ARGUMENT IS NOT STRING ! 5289: 11282,11309d10119 ! 5290: < EJC ! 5291: < * ! 5292: < * LOCAL ! 5293: < * ! 5294: < S$LOC ENT ENTRY POINT ! 5295: < JSR GTSMI GET SECOND ARGUMENT (LOCAL NUMBER) ! 5296: < ERR 134,LOCAL SECOND ARGUMENT IS NOT INTEGER ! 5297: < PPM EXFAL FAIL IF OUT OF RANGE ! 5298: < MOV XR,WB SAVE LOCAL NUMBER ! 5299: < MOV (XS)+,XR LOAD FIRST ARGUMENT ! 5300: < JSR GTNVR POINT TO VRBLK ! 5301: < PPM SLOC1 JUMP IF NOT VARIABLE NAME ! 5302: < MOV VRFNC(XR),XR ELSE LOAD FUNCTION POINTER ! 5303: < BNE (XR),=B$PFC,SLOC1 JUMP IF NOT PROGRAM DEFINED ! 5304: < * ! 5305: < * HERE IF WE HAVE A PROGRAM DEFINED FUNCTION NAME ! 5306: < * ! 5307: < BZE WB,EXFAL FAIL IF SECOND ARG IS ZERO ! 5308: < BGT WB,PFNLO(XR),EXFAL OR TOO LARGE ! 5309: < ADD FARGS(XR),WB ELSE ADJUST OFFSET TO INCLUDE ARGS ! 5310: < WTB WB CONVERT TO BYTES ! 5311: < ADD WB,XR POINT TO LOCAL POINTER ! 5312: < MOV PFAGB(XR),XR LOAD VRBLK POINTER ! 5313: < BRN EXVNM EXIT BUILDING NMBLK ! 5314: < * ! 5315: < * HERE IF FIRST ARGUMENT IS NO GOOD ! 5316: < * ! 5317: < SLOC1 ERB 135,LOCAL FIRST ARG IS NOT A PROGRAM FUNCTION NAME ! 5318: 11318c10128 ! 5319: < ERR 136,LOAD SECOND ARGUMENT IS NOT STRING ! 5320: --- ! 5321: > ERR 142,LOAD SECOND ARGUMENT IS NOT STRING ! 5322: 11321,11322c10131,10132 ! 5323: < ERR 137,LOAD FIRST ARGUMENT IS NOT STRING ! 5324: < ERR 138,LOAD FIRST ARGUMENT IS NULL ! 5325: --- ! 5326: > ERR 143,LOAD FIRST ARGUMENT IS NOT STRING ! 5327: > ERR 144,LOAD FIRST ARGUMENT IS NULL ! 5328: 11329c10139 ! 5329: < ERB 139,LOAD FIRST ARGUMENT IS MISSING A LEFT PAREN ! 5330: --- ! 5331: > ERB 145,LOAD FIRST ARGUMENT IS MISSING A LEFT PAREN ! 5332: 11334c10144 ! 5333: < ERR 140,LOAD FIRST ARGUMENT HAS NULL FUNCTION NAME ! 5334: --- ! 5335: > ERR 146,LOAD FIRST ARGUMENT HAS NULL FUNCTION NAME ! 5336: 11345c10155 ! 5337: < ERB 141,LOAD FIRST ARGUMENT IS MISSING A RIGHT PAREN ! 5338: --- ! 5339: > ERB 147,BAD BLANK OR MISSING RIGHT PAREN IN LOAD ARG ! 5340: 11355c10165 ! 5341: < MOV =NUM01,WB SET STRING CODE IN CASE ! 5342: ! 5343: ! 5344: ! 5345: ! 5346: ! 5347: ! 5348: ! 5349: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 82 ! 5350: ! 5351: ! 5352: --- ! 5353: > MOV =NUM01,WB SET STRING CODE IN CASE (1) ! 5354: 11363a10174 ! 5355: > ICV WB ELSE SET CODE FOR REAL (3) ! 5356: 11366,11367c10177 ! 5357: < MOV (XS),XR ELSE RELOAD STRING POINTER ! 5358: < ICV WB SET CODE FOR REAL (3) ! 5359: --- ! 5360: > MOV (XS),XR RELOAD STRING POINTER ! 5361: 11371a10182,10189 ! 5362: > ICV WB SET CODE FOR BUFFER (4) ! 5363: > .IF .CNBF ! 5364: > .ELSE ! 5365: > MOV (XS),XR RELOAD STRING POINTER ! 5366: > MOV =SCBUF,XL POINT TO /BUFFER/ ! 5367: > JSR IDENT CHECK FOR MATCH ! 5368: > PPM SLOD4 JUMP IF MATCH ! 5369: > .FI ! 5370: 11395c10213 ! 5371: < WTB WA CONVERT LENGTH TO BYTES ! 5372: --- ! 5373: > WTB WA CONVERT LENGTH TO BAUS ! 5374: 11420,11421c10238,10239 ! 5375: < ERR 142,LOAD FUNCTION DOES NOT EXIST ! 5376: < ERR 143,LOAD FUNCTION CAUSED INPUT ERROR DURING LOAD ! 5377: --- ! 5378: > PPM EXFAL FAIL RETURN ! 5379: > PPM EROSI ERROR RETURN ! 5380: 11429a10248,10275 ! 5381: > * LOCAL ! 5382: > * ! 5383: > S$LOC ENT ENTRY POINT ! 5384: > JSR GTSMI GET SECOND ARGUMENT (LOCAL NUMBER) ! 5385: > ERR 256,LOCAL SECOND ARGUMENT IS NOT INTEGER ! 5386: > PPM EXFAL FAIL IF OUT OF RANGE ! 5387: > MOV XR,WB SAVE LOCAL NUMBER ! 5388: > MOV (XS)+,XR LOAD FIRST ARGUMENT ! 5389: > JSR GTNVR POINT TO VRBLK ! 5390: > PPM SLOC1 JUMP IF NOT VARIABLE NAME ! 5391: > MOV VRFNC(XR),XR ELSE LOAD FUNCTION POINTER ! 5392: > BNE (XR),=B$PFC,SLOC1 JUMP IF NOT PROGRAM DEFINED ! 5393: > * ! 5394: > * HERE IF WE HAVE A PROGRAM DEFINED FUNCTION NAME ! 5395: > * ! 5396: > BZE WB,EXFAL FAIL IF SECOND ARG IS ZERO ! 5397: > BGT WB,PFNLO(XR),EXFAL OR TOO LARGE ! 5398: > ADD FARGS(XR),WB ELSE ADJUST OFFSET TO INCLUDE ARGS ! 5399: > WTB WB CONVERT TO BYTES ! 5400: > ADD WB,XR POINT TO LOCAL POINTER ! 5401: > MOV PFAGB(XR),XR LOAD VRBLK POINTER ! 5402: > BRN EXVNM EXIT BUILDING NMBLK ! 5403: > * ! 5404: > * HERE IF FIRST ARGUMENT IS NO GOOD ! 5405: > * ! 5406: > SLOC1 ERB 257,LOCAL FIRST ARG IS NOT A PROGRAM FUNCTION NAME ! 5407: > EJC ! 5408: ! 5409: ! 5410: ! 5411: ! 5412: ! 5413: ! 5414: ! 5415: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 83 ! 5416: ! 5417: ! 5418: > * ! 5419: 11434c10280 ! 5420: < ERR 144,LPAD THIRD ARGUMENT NOT A STRING ! 5421: --- ! 5422: > ERR 148,LPAD THIRD ARGUMENT NOT A STRING ! 5423: 11438c10284 ! 5424: < ERR 145,LPAD SECOND ARGUMENT IS NOT INTEGER ! 5425: --- ! 5426: > ERR 149,LPAD SECOND ARGUMENT IS NOT INTEGER ! 5427: 11444c10290 ! 5428: < ERR 146,LPAD FIRST ARGUMENT IS NOT STRING ! 5429: --- ! 5430: > ERR 150,LPAD FIRST ARGUMENT IS NOT STRING ! 5431: 11485,11486c10331,10332 ! 5432: < ERR 147,LT FIRST ARGUMENT IS NOT NUMERIC ! 5433: < ERR 148,LT SECOND ARGUMENT IS NOT NUMERIC ! 5434: --- ! 5435: > ERR 151,LT FIRST ARGUMENT IS NOT NUMERIC ! 5436: > ERR 152,LT SECOND ARGUMENT IS NOT NUMERIC ! 5437: 11496,11497c10342,10343 ! 5438: < ERR 149,NE FIRST ARGUMENT IS NOT NUMERIC ! 5439: < ERR 150,NE SECOND ARGUMENT IS NOT NUMERIC ! 5440: --- ! 5441: > ERR 153,NE FIRST ARGUMENT IS NOT NUMERIC ! 5442: > ERR 154,NE SECOND ARGUMENT IS NOT NUMERIC ! 5443: 11510c10356 ! 5444: < ERR 151,NOTANY ARGUMENT IS NOT STRING OR EXPRESSION ! 5445: --- ! 5446: > ERR 155,NOTANY ARGUMENT IS NOT STRING OR EXPRESSION ! 5447: 11518,11519c10364,10365 ! 5448: < ERR 152,OPSYN THIRD ARGUMENT IS NOT INTEGER ! 5449: < ERR 153,OPSYN THIRD ARGUMENT IS NEGATIVE OR TOO LARGE ! 5450: --- ! 5451: > ERR 156,OPSYN THIRD ARGUMENT IS NOT INTEGER ! 5452: > ERR 157,OPSYN THIRD ARGUMENT IS NEGATIVE OR TOO LARGE ! 5453: 11523c10369 ! 5454: < ERR 154,OPSYN SECOND ARG IS NOT NATURAL VARIABLE NAME ! 5455: --- ! 5456: > ERR 158,OPSYN SECOND ARG IS NOT NATURAL VARIABLE NAME ! 5457: 11531c10377 ! 5458: < ERR 155,OPSYN FIRST ARG IS NOT NATURAL VARIABLE NAME ! 5459: --- ! 5460: > ERR 159,OPSYN FIRST ARG IS NOT NATURAL VARIABLE NAME ! 5461: 11574c10420 ! 5462: < SOPS5 ERB 156,OPSYN FIRST ARG IS NOT CORRECT OPERATOR NAME ! 5463: --- ! 5464: > SOPS5 ERB 160,OPSYN FIRST ARG IS NOT CORRECT OPERATOR NAME ! 5465: 11586c10432 ! 5466: < MOV =NUM03,WB OUTPUT FLAG ! 5467: --- ! 5468: > MOV =NUM02,WB OUTPUT FLAG ! 5469: 11588,11593c10434,10437 ! 5470: < ERR 157,OUTPUT THIRD ARGUMENT IS NOT A STRING ! 5471: < ERR 158,INAPPROPRIATE SECOND ARGUMENT FOR OUTPUT ! 5472: < ERR 159,INAPPROPRIATE FIRST ARGUMENT FOR OUTPUT ! 5473: < ERR 160,INAPPROPRIATE FILE SPECIFICATION FOR OUTPUT ! 5474: ! 5475: ! 5476: ! 5477: ! 5478: ! 5479: ! 5480: ! 5481: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 84 ! 5482: ! 5483: ! 5484: < PPM EXFAL FAIL IF FILE DOES NOT EXIST ! 5485: < ERR 161,OUTPUT FILE CANNOT BE WRITTEN TO ! 5486: --- ! 5487: > ERR 161,OUTPUT THIRD ARGUMENT (FILEPROPS) IS NOT A STRING ! 5488: > ERR 162,INAPPROPRIATE SECOND ARGUMENT (FILETAG) FOR OUTPUT ! 5489: > ERR 163,INAPPROPRIATE FIRST ARGUMENT FOR OUTPUT ! 5490: > PPM EXFAL FAIL RETURN ! 5491: 11603,11604c10447,10448 ! 5492: < ERR 162,POS ARGUMENT IS NOT INTEGER OR EXPRESSION ! 5493: < ERR 163,POS ARGUMENT IS NEGATIVE OR TOO LARGE ! 5494: --- ! 5495: > ERR 164,POS ARGUMENT IS NOT INTEGER OR EXPRESSION ! 5496: > ERR 165,POS ARGUMENT IS NEGATIVE OR TOO LARGE ! 5497: 11617a10462,10463 ! 5498: > .IF .CNBF ! 5499: > .ELSE ! 5500: 11619c10465,10466 ! 5501: < ERB 164,PROTOTYPE ARGUMENT IS NOT VALID OBJECT ! 5502: --- ! 5503: > .FI ! 5504: > ERB 166,PROTOTYPE ARGUMENT IS NOT TABLE OR ARRAY ! 5505: 11657c10504 ! 5506: < ERR 165,REMDR SECOND ARGUMENT IS NOT INTEGER ! 5507: --- ! 5508: > ERR 167,REMDR SECOND ARGUMENT IS NOT INTEGER ! 5509: 11668c10515 ! 5510: < ERB 167,REMDR CAUSED INTEGER OVERFLOW ! 5511: --- ! 5512: > ERB 168,REMDR CAUSED INTEGER OVERFLOW ! 5513: 11672c10519 ! 5514: < SRM01 ERB 166,REMDR FIRST ARGUMENT IS NOT INTEGER ! 5515: --- ! 5516: > SRM01 ERB 169,REMDR FIRST ARGUMENT IS NOT INTEGER ! 5517: 11684c10531 ! 5518: < ERR 168,REPLACE THIRD ARGUMENT IS NOT STRING ! 5519: --- ! 5520: > ERR 170,REPLACE THIRD ARGUMENT IS NOT STRING ! 5521: 11687c10534 ! 5522: < ERR 169,REPLACE SECOND ARGUMENT IS NOT STRING ! 5523: --- ! 5524: > ERR 171,REPLACE SECOND ARGUMENT IS NOT STRING ! 5525: 11749c10596 ! 5526: < ERR 170,REPLACE FIRST ARGUMENT IS NOT STRING ! 5527: --- ! 5528: > ERR 172,REPLACE FIRST ARGUMENT IS NOT STRING ! 5529: 11768c10615 ! 5530: < SRPL5 ERB 171,NULL OR UNEQUALLY LONG 2ND, 3RD ARGS TO REPLACE ! 5531: --- ! 5532: > SRPL5 ERB 173,NULL OR UNEQUALLY LONG 2ND, 3RD ARGS TO REPLACE ! 5533: 11771,11783d10617 ! 5534: < * REWIND ! 5535: < * ! 5536: < S$REW ENT ENTRY POINT ! 5537: < JSR IOFCB CALL FCBLK ROUTINE ! 5538: < ERR 172,REWIND ARGUMENT IS NOT A SUITABLE NAME ! 5539: < ERR 173,REWIND ARGUMENT IS NULL ! 5540: ! 5541: ! 5542: ! 5543: ! 5544: ! 5545: ! 5546: ! 5547: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 85 ! 5548: ! 5549: ! 5550: < JSR SYSRW CALL SYSTEM REWIND FUNCTION ! 5551: < ERR 174,REWIND FILE DOES NOT EXIST ! 5552: < ERR 175,REWIND FILE DOES NOT PERMIT REWIND ! 5553: < ERR 176,REWIND CAUSED NON-RECOVERABLE ERROR ! 5554: < BRN EXNUL EXIT WITH NULL RESULT IF NO ERROR ! 5555: < EJC ! 5556: < * ! 5557: 11788c10622 ! 5558: < ERR 177,REVERSE ARGUMENT IS NOT STRING ! 5559: --- ! 5560: > ERR 174,REVERSE ARGUMENT IS NOT STRING ! 5561: 11810c10644 ! 5562: < ERR 178,RPAD THIRD ARGUMENT IS NOT STRING ! 5563: --- ! 5564: > ERR 175,RPAD THIRD ARGUMENT IS NOT STRING ! 5565: 11814c10648 ! 5566: < ERR 179,RPAD SECOND ARGUMENT IS NOT INTEGER ! 5567: --- ! 5568: > ERR 176,RPAD SECOND ARGUMENT IS NOT INTEGER ! 5569: 11820c10654 ! 5570: < ERR 180,RPAD FIRST ARGUMENT IS NOT STRING ! 5571: --- ! 5572: > ERR 177,RPAD FIRST ARGUMENT IS NOT STRING ! 5573: 11863,11864c10697,10698 ! 5574: < ERR 181,RTAB ARGUMENT IS NOT INTEGER OR EXPRESSION ! 5575: < ERR 182,RTAB ARGUMENT IS NEGATIVE OR TOO LARGE ! 5576: --- ! 5577: > ERR 178,RTAB ARGUMENT IS NOT INTEGER OR EXPRESSION ! 5578: > ERR 179,RTAB ARGUMENT IS NEGATIVE OR TOO LARGE ! 5579: 11872c10706 ! 5580: < MOV (XS)+,R$IO2 SAVE THIRD ARG ! 5581: --- ! 5582: > MOV (XS)+,R$IOL SAVE THIRD ARG ! 5583: 11874,11876c10708,10710 ! 5584: < JSR IOFCB CALL FCBLK ROUTINE ! 5585: < ERR 291,SET FIRST ARGUMENT IS NOT A SUITABLE NAME ! 5586: < ERR 292,SET FIRST ARGUMENT IS NULL ! 5587: --- ! 5588: > JSR IOFTG CALL IOTAG ROUTINE ! 5589: > ERR 180,SET FIRST ARGUMENT IS NOT A SUITABLE NAME ! 5590: > BZE WA,EXFAL FAIL IF NO IOTAG ! 5591: 11878c10712 ! 5592: < MOV R$IO2,WC LOAD THIRD ARG ! 5593: --- ! 5594: > MOV R$IOL,WC LOAD THIRD ARG ! 5595: 11880,11885c10714,10716 ! 5596: < ERR 293,INAPPROPRIATE SECOND ARGUMENT TO SET ! 5597: < ERR 294,INAPPROPRIATE THIRD ARGUMENT TO SET ! 5598: < ERR 295,SET FILE DOES NOT EXIST ! 5599: < ERR 296,SET FILE DOES NOT PERMIT SETTING FILE POINTER ! 5600: < ERR 297,SET CAUSED NON-RECOVERABLE I/O ERROR ! 5601: < BRN EXNUL OTHERWISEW RETURN NULL ! 5602: --- ! 5603: > PPM EXFAL FAILURE RETURN ! 5604: > PPM EROSI ERROR RETURN ! 5605: > BRN EXNUL OTHERWISE RETURN NULL ! 5606: ! 5607: ! 5608: ! 5609: ! 5610: ! 5611: ! 5612: ! 5613: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 86 ! 5614: ! 5615: ! 5616: 11889,11899d10719 ! 5617: < * TAB ! 5618: < * ! 5619: < S$TAB ENT ENTRY POINT ! 5620: < MOV =P$TAB,WB SET PCODE FOR INTEGER ARG CASE ! 5621: < MOV =P$TBD,WA SET PCODE FOR EXPRESSION ARG CASE ! 5622: < JSR PATIN CALL COMMON ROUTINE TO BUILD NODE ! 5623: < ERR 183,TAB ARGUMENT IS NOT INTEGER OR EXPRESSION ! 5624: < ERR 184,TAB ARGUMENT IS NEGATIVE OR TOO LARGE ! 5625: < BRN EXIXR RETURN PATTERN NODE ! 5626: < EJC ! 5627: < * ! 5628: 11906,11907c10726,10727 ! 5629: < ERR 185,RPOS ARGUMENT IS NOT INTEGER OR EXPRESSION ! 5630: < ERR 186,RPOS ARGUMENT IS NEGATIVE OR TOO LARGE ! 5631: --- ! 5632: > ERR 181,RPOS ARGUMENT IS NOT INTEGER OR EXPRESSION ! 5633: > ERR 182,RPOS ARGUMENT IS NEGATIVE OR TOO LARGE ! 5634: 11917a10738 ! 5635: > PPM EXFAL FAIL EMPTY TABLE ! 5636: 11946c10767 ! 5637: < SSTX2 ERB 187,SETEXIT ARGUMENT IS NOT LABEL NAME OR NULL ! 5638: --- ! 5639: > SSTX2 ERB 183,SETEXIT ARGUMENT IS NOT LABEL NAME OR NULL ! 5640: 11955a10777 ! 5641: > PPM EXFAL FAIL EMPTY TABLE ! 5642: 11967c10789 ! 5643: < ERR 188,SPAN ARGUMENT IS NOT STRING OR EXPRESSION ! 5644: --- ! 5645: > ERR 184,SPAN ARGUMENT IS NOT STRING OR EXPRESSION ! 5646: 11974a10797 ! 5647: > JSR GTSTG LOAD STRING ARGUMENT ! 5648: 11981d10803 ! 5649: < .FI ! 5650: 11986c10808,10809 ! 5651: < ERR 189,SIZE ARGUMENT IS NOT STRING ! 5652: --- ! 5653: > .FI ! 5654: > ERR 185,SIZE ARGUMENT IS NOT STRING ! 5655: 11996,11997c10819,10821 ! 5656: < ERR 190,STOPTR FIRST ARGUMENT IS NOT APPROPRIATE NAME ! 5657: < ERR 191,STOPTR SECOND ARGUMENT IS NOT TRACE TYPE ! 5658: --- ! 5659: > ERR 186,STOPTR FIRST ARGUMENT IS NOT APPROPRIATE NAME ! 5660: > ERR 187,STOPTR SECOND ARGUMENT IS NOT TRACE TYPE ! 5661: > PPM EXFAL FAIL RETURN ! 5662: 12005c10829 ! 5663: < ERR 192,SUBSTR THIRD ARGUMENT IS NOT INTEGER ! 5664: --- ! 5665: > ERR 188,SUBSTR THIRD ARGUMENT IS NOT INTEGER ! 5666: 12009c10833 ! 5667: < ERR 193,SUBSTR SECOND ARGUMENT IS NOT INTEGER ! 5668: --- ! 5669: > ERR 189,SUBSTR SECOND ARGUMENT IS NOT INTEGER ! 5670: 12014a10839 ! 5671: > JSR GTSTG LOAD FIRST ARGUMENT ! 5672: ! 5673: ! 5674: ! 5675: ! 5676: ! 5677: ! 5678: ! 5679: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 87 ! 5680: ! 5681: ! 5682: 12024d10848 ! 5683: < .FI ! 5684: 12026c10850,10855 ! 5685: < ERR 194,SUBSTR FIRST ARGUMENT IS NOT STRING ! 5686: --- ! 5687: > .FI ! 5688: > ERR 190,SUBSTR FIRST ARGUMENT IS NOT STRING ! 5689: > MOV XR,XL COPY POINTER TO FIRST ARG ! 5690: > .IF .CNBF ! 5691: > MOV SBSSV,WC RELOAD THIRD ARGUMENT ! 5692: > .ELSE ! 5693: 12028c10857 ! 5694: < * MERGE WITH BFBLK OR SCBLK PTR IN XR. WA HAS LENGTH ! 5695: --- ! 5696: > * MERGE WITH BFBLK OR SCBLK IN XR, LENGTH IN WA ! 5697: 12030a10860 ! 5698: > .FI ! 5699: 12032c10862 ! 5700: < MOV WA,WC ELSE GET STRING LENGTH ! 5701: --- ! 5702: > MOV SCLEN(XL),WC ELSE GET STRING LENGTH ! 5703: 12038,12039c10868 ! 5704: < SSUB1 MOV WA,XL SAVE STRING LENGTH ! 5705: < MOV WC,WA SET LENGTH OF SUBSTRING ! 5706: --- ! 5707: > SSUB1 MOV WC,WA SET LENGTH OF SUBSTRING ! 5708: 12041,12042c10870 ! 5709: < BGT WC,XL,EXFAL JUMP IF IMPROPER SUBSTRING ! 5710: < MOV XR,XL COPY POINTER TO FIRST ARG ! 5711: --- ! 5712: > BGT WC,SCLEN(XL),EXFAL JUMP IF IMPROPER SUBSTRING ! 5713: 12046a10875,10885 ! 5714: > * TAB ! 5715: > * ! 5716: > S$TAB ENT ENTRY POINT ! 5717: > MOV =P$TAB,WB SET PCODE FOR INTEGER ARG CASE ! 5718: > MOV =P$TBD,WA SET PCODE FOR EXPRESSION ARG CASE ! 5719: > JSR PATIN CALL COMMON ROUTINE TO BUILD NODE ! 5720: > ERR 191,TAB ARGUMENT IS NOT INTEGER OR EXPRESSION ! 5721: > ERR 192,TAB ARGUMENT IS NEGATIVE OR TOO LARGE ! 5722: > BRN EXIXR RETURN PATTERN NODE ! 5723: > EJC ! 5724: > * ! 5725: 12053,12054c10892,10893 ! 5726: < ERR 195,TABLE ARGUMENT IS NOT INTEGER ! 5727: < ERR 196,TABLE ARGUMENT IS OUT OF RANGE ! 5728: --- ! 5729: > ERR 193,TABLE ARGUMENT IS NOT INTEGER ! 5730: > ERR 194,TABLE ARGUMENT IS OUT OF RANGE ! 5731: 12062c10901 ! 5732: < WTB WA CONVERT LENGTH TO BYTES ! 5733: --- ! 5734: > WTB WA CONVERT LENGTH TO BAUS ! 5735: 12101c10940 ! 5736: < STR01 ERB 197,TRACE FOURTH ARG IS NOT FUNCTION NAME OR NULL ! 5737: --- ! 5738: ! 5739: ! 5740: ! 5741: ! 5742: ! 5743: ! 5744: ! 5745: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 88 ! 5746: ! 5747: ! 5748: > STR01 ERB 195,TRACE FOURTH ARG IS NOT FUNCTION NAME OR NULL ! 5749: 12110,12111c10949,10951 ! 5750: < ERR 198,TRACE FIRST ARGUMENT IS NOT APPROPRIATE NAME ! 5751: < ERR 199,TRACE SECOND ARGUMENT IS NOT TRACE TYPE ! 5752: --- ! 5753: > ERR 196,TRACE FIRST ARGUMENT IS NOT APPROPRIATE NAME ! 5754: > ERR 197,TRACE SECOND ARGUMENT IS NOT TRACE TYPE ! 5755: > PPM UNUSED RETURN ! 5756: 12125c10965 ! 5757: < ERR 200,TRIM ARGUMENT IS NOT STRING ! 5758: --- ! 5759: > ERR 198,TRIM ARGUMENT IS NOT STRING ! 5760: 12142c10982 ! 5761: < ERR 201,UNLOAD ARGUMENT IS NOT NATURAL VARIABLE NAME ! 5762: --- ! 5763: > ERR 199,UNLOAD ARGUMENT IS NOT NATURAL VARIABLE NAME ! 5764: 12145a10986,10995 ! 5765: > EJC ! 5766: > * ! 5767: > * VDIFFER ! 5768: > * ! 5769: > S$VDF ENT ENTRY POINT ! 5770: > MOV (XS)+,XR LOAD SECOND ARGUMENT ! 5771: > MOV (XS),XL LOAD FIRST ARGUMENT ! 5772: > JSR IDENT CALL IDENT COMPARISON ROUTINE ! 5773: > PPM EXFAL FAIL IF IDENT ! 5774: > BRN EXITS RETURN FIRST ARG IF DIFFER ! 5775: 12255c11105 ! 5776: < MOV TRFPT(XR),XL GET FILE CTRL BLK PTR OR ZERO ! 5777: --- ! 5778: > MOV TRTRI(XR),XL GET TRTIO BLOCK PTR OR 0 ! 5779: 12263c11113,11121 ! 5780: < JSR SYSRD READ NEXT STANDARD INPUT IMAGE ! 5781: --- ! 5782: > BZE TTINS,ACSA5 SKIP IF NOT TERML STD INPUT ! 5783: > JSR SYSRI READ FROM TERMINAL ! 5784: > PPM ACS03 END FILE ! 5785: > PPM EROSI ERROR ! 5786: > BRN ACS07 MERGE ! 5787: > * ! 5788: > * GENUINE STD INPUT FILE ! 5789: > * ! 5790: > ACSA5 JSR SYSRD READ NEXT STANDARD INPUT IMAGE ! 5791: 12264a11123 ! 5792: > PPM EROSI ERROR RETURN ! 5793: 12269c11128,11129 ! 5794: < ACS06 MOV XL,WA FCBLK PTR ! 5795: --- ! 5796: > ACS06 MOV TRTAG(XL),WA OBTAIN IOTAG ! 5797: > BZE WA,ACS03 FAIL IF ENDFILE DONE ! 5798: 12272c11132 ! 5799: < MOV XL,WA FCBLK PTR ! 5800: --- ! 5801: > MOV TRTAG(XL),WA GET IOTAG ! 5802: 12275,12276c11135 ! 5803: < PPM ACS22 ERROR ! 5804: ! 5805: ! 5806: ! 5807: ! 5808: ! 5809: ! 5810: ! 5811: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 89 ! 5812: ! 5813: ! 5814: < PPM ACS23 ERROR ! 5815: --- ! 5816: > PPM ACS22 ERROR RETURN ! 5817: 12328c11187 ! 5818: < MTI KVABE(XR) ELSE LOAD VALUE AS INTEGER ! 5819: --- ! 5820: > MTI KVANC(XR) ELSE LOAD VALUE AS INTEGER ! 5821: 12338a11198 ! 5822: > WTB XR CONVERT TO OFFSET IN BAUS ! 5823: 12347c11207 ! 5824: < BSW XR,5 SWITCH ON KEYWORD NUMBER ! 5825: --- ! 5826: > BSW XR,6 SWITCH ON KEYWORD NUMBER ! 5827: 12349a11210 ! 5828: > IFF K$$CD,ACS23 CODE ! 5829: 12385a11247 ! 5830: > PPM EROSI ERROR RETURN ! 5831: 12388c11250 ! 5832: < * ERROR RETURNS ! 5833: --- ! 5834: > * ERROR RETURN ! 5835: 12391c11253 ! 5836: < ERB 202,INPUT FROM FILE CAUSED NON-RECOVERABLE ERROR ! 5837: --- ! 5838: > BRN EROSI GENERATE ERROR MESSAGE ! 5839: 12393,12394c11255,11258 ! 5840: < ACS23 MOV XR,DNAMP POP UNUSED SCBLK ! 5841: < ERB 203,INPUT FILE RECORD HAS INCORRECT FORMAT ! 5842: --- ! 5843: > * ACCESS CODE KEYWORD ! 5844: > * ! 5845: > ACS23 LDI KVCOD GET CODE VALUE ! 5846: > BRN ACS13 EXIT ! 5847: 12480c11344 ! 5848: < * (WA) LENGTH REQUIRED IN BYTES ! 5849: --- ! 5850: > * (WA) LENGTH REQUIRED IN BAUS ! 5851: 12514c11378 ! 5852: < WTB XR CONVERT TO BAUS (SGD05) ! 5853: --- ! 5854: > WTB XR CONVERT TO BAUS ! 5855: 12520c11384 ! 5856: < ERB 204,MEMORY OVERFLOW ! 5857: --- ! 5858: > ERB 200,MEMORY OVERFLOW ! 5859: 12528c11392 ! 5860: < BTW WB CONVERT BYTES TO WORDS ! 5861: --- ! 5862: > BTW WB CONVERT BAUS TO WORDS ! 5863: 12539c11403 ! 5864: < WTB XR CONVERT TO BAUS (SGD05) ! 5865: --- ! 5866: > WTB XR CONVERT TO BAUS ! 5867: 12561a11426,11427 ! 5868: > * (WA) 0 (INITIAL OFFSET TO BFBLK CHARS) ! 5869: > * (WB) 0 (INITIAL BCLEN) ! 5870: ! 5871: ! 5872: ! 5873: ! 5874: ! 5875: ! 5876: ! 5877: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 90 ! 5878: ! 5879: ! 5880: 12563d11428 ! 5881: < * (WA,WB) DESTROYED ! 5882: 12580c11445,11446 ! 5883: < ZER BFCHR(XL) CLEAR FIRST WORD (NULL PAD) ! 5884: --- ! 5885: > ZER WB CLEAR FOR RETURN ! 5886: > MOV WB,BFCHR(XL) CLEAR FIRST WORD (NULL PAD) ! 5887: 12581a11448 ! 5888: > ZER WA CLEAR FOR RETURN ! 5889: 12586c11453 ! 5890: < ALB01 ERB 274,REQUESTED BUFFER ALLOCATION EXCEEDS MXLEN ! 5891: --- ! 5892: > ALB01 ERB 201,REQUESTED BUFFER ALLOCATION EXCEEDS MAXLNGTH ! 5893: 12611c11478 ! 5894: < CTB WA,SCSI$ COMPUTE LENGTH OF SCBLK IN BYTES ! 5895: --- ! 5896: > CTB WA,SCSI$ COMPUTE LENGTH OF SCBLK IN BAUS ! 5897: 12634c11501 ! 5898: < ALCS2 ERB 205,STRING LENGTH EXCEEDS VALUE OF MAXLNGTH KEYWORD ! 5899: --- ! 5900: > ALCS2 ERB 202,STRING LENGTH EXCEEDS VALUE OF MAXLNGTH KEYWORD ! 5901: 12640c11507 ! 5902: < * (WA) LENGTH REQUIRED IN BYTES ! 5903: --- ! 5904: > * (WA) LENGTH REQUIRED IN BAUS ! 5905: 12676,12677d11542 ! 5906: < .IF .CNBF ! 5907: < .ELSE ! 5908: 12679,12712d11543 ! 5909: < * APNDB -- APPEND STRING TO BUFFER ! 5910: < * ! 5911: < * THIS ROUTINE IS USED BY BUFFER HANDLING ROUTINES TO ! 5912: < * APPEND DATA TO AN EXISTING BFBLK. ! 5913: < * ! 5914: < * (XR) EXISTING BCBLK TO BE APPENDED ! 5915: < * (XL) CONVERTABLE TO STRING ! 5916: < * JSR APNDB CALL TO APPEND TO BUFFER ! 5917: < * PPM LOC THREAD IF (XL) CANT BE CONVERTED ! 5918: < * PPM LOC IF NOT ENOUGH ROOM ! 5919: < * (WA,WB) DESTROYED ! 5920: < * ! 5921: < * IF MORE CHARACTERS ARE SPECIFIED THAN CAN BE INSERTED, ! 5922: < * THEN NO ACTION IS TAKEN AND THE SECOND RETURN IS TAKEN. ! 5923: < * ! 5924: < APNDB PRC E,2 ENTRY POINT ! 5925: < MOV BCLEN(XR),WA LOAD OFFSET TO INSERT ! 5926: < ZER WB REPLACE SECTION IS NULL ! 5927: < JSR INSBF CALL TO INSERT AT END ! 5928: < PPM APN01 CONVERT ERROR ! 5929: < PPM APN02 NO ROOM ! 5930: < EXI RETURN TO CALLER ! 5931: < * ! 5932: < * HERE TO TAKE CONVERT FAILURE EXIT ! 5933: < * ! 5934: < APN01 EXI 1 RETURN TO CALLER ALTERNATE ! 5935: < * ! 5936: ! 5937: ! 5938: ! 5939: ! 5940: ! 5941: ! 5942: ! 5943: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 91 ! 5944: ! 5945: ! 5946: < * HERE FOR NO FIT EXIT ! 5947: < * ! 5948: < APN02 EXI 2 ALTERNATE EXIT TO CALLER ! 5949: < ENP END PROCEDURE APNDB ! 5950: < EJC ! 5951: < .FI ! 5952: < * ! 5953: 12882c11713 ! 5954: < * HERE FOR FAILURE DURING EXPRESSION EVALUATION ! 5955: --- ! 5956: > * HERE FOR FAILURE RETURNS ! 5957: 12885d11715 ! 5958: < EXI 1 TAKE FAILURE EXIT ! 5959: 12886a11717,11718 ! 5960: > ASG3A EXI 1 TAKE FAILURE EXIT ! 5961: > * ! 5962: 12933c11765 ! 5963: < MOV TRVAL(WC),-(XS) STACK VALUE TO OUTPUT (SGD01) ! 5964: --- ! 5965: > MOV TRVAL(XR),-(XS) STACK VALUE TO OUTPUT ! 5966: 12939c11771 ! 5967: < ASG11 MOV TRFPT(XL),WA FCBLK PTR ! 5968: --- ! 5969: > ASG11 MOV TRTRI(XL),WA TRTIO BLK PTR ! 5970: 12943a11776,11779 ! 5971: > MOV WA,XL COPY TRTIO BLOCK PTR TO XL ! 5972: > MOV TRTAG(XL),WA GET IOTAG ! 5973: > BZE WA,ASG3A FAIL IF ENDFILE DONE ! 5974: > MOV SCLEN(XR),WC STRING LENGTH ! 5975: 12945,12946c11781,11782 ! 5976: < ERR 206,OUTPUT CAUSED FILE OVERFLOW ! 5977: < ERR 207,OUTPUT CAUSED NON-RECOVERABLE ERROR ! 5978: --- ! 5979: > PPM ASG3A FAIL RETURN ! 5980: > PPM EROSI ERROR RETURN ! 5981: 12954c11790 ! 5982: < * HERE TO PRINT A STRING ON THE PRINTER ! 5983: --- ! 5984: > * HERE TO PRINT A STRING ! 5985: 12956,12958c11792,11793 ! 5986: < ASG13 JSR PRTST PRINT STRING VALUE ! 5987: < BEQ TRTER(XL),=V$TER,ASG20 JUMP IF TERMINAL OUTPUT ! 5988: < JSR PRTNL END OF LINE ! 5989: --- ! 5990: > ASG13 BEQ TRTER(XL),=V$TER,ASG20 JUMP IF TERMINAL OUTPUT ! 5991: > JSR PRTSF PRINT STRING AND FLUSH BUFFER ! 5992: 12970c11805 ! 5993: < ERR 208,KEYWORD VALUE ASSIGNED IS NOT INTEGER ! 5994: --- ! 5995: > ERR 203,KEYWORD VALUE ASSIGNED IS NOT INTEGER ! 5996: 12972a11808 ! 5997: > BEQ XL,=K$COD,ASG24 JUMP IF SPECIAL CASE OF CODE ! 5998: 12981c11817 ! 5999: < ERB 209,KEYWORD IN ASSIGNMENT IS PROTECTED ! 6000: --- ! 6001: > ERB 204,KEYWORD IN ASSIGNMENT IS PROTECTED ! 6002: ! 6003: ! 6004: ! 6005: ! 6006: ! 6007: ! 6008: ! 6009: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 92 ! 6010: ! 6011: ! 6012: 12985c11821 ! 6013: < ASG15 MOV WA,KVABE(XL) STORE NEW VALUE ! 6014: --- ! 6015: > ASG15 MOV WA,KVANC(XL) STORE NEW VALUE ! 6016: 12998a11835 ! 6017: > EJC ! 6018: 12999a11837,11838 ! 6019: > * ASIGN (CONTINUED) ! 6020: > * ! 6021: 13006c11845 ! 6022: < ASG18 ERB 210,KEYWORD VALUE ASSIGNED IS NEGATIVE OR TOO LARGE ! 6023: --- ! 6024: > ASG18 ERB 205,KEYWORD VALUE ASSIGNED IS NEGATIVE OR TOO LARGE ! 6025: 13012c11851 ! 6026: < ERR 211,VALUE ASSIGNED TO KEYWORD ERRTEXT NOT A STRING ! 6027: --- ! 6028: > ERR 206,VALUE ASSIGNED TO KEYWORD ERRTEXT NOT A STRING ! 6029: 13018c11857,11858 ! 6030: < ASG20 JSR PRTTR PRINT ! 6031: --- ! 6032: > ASG20 JSR PTTST PRINT STRING TO TERMINAL ! 6033: > JSR PTTFH FLUSH TERMINAL BUFFER ! 6034: 13020d11859 ! 6035: < * ! 6036: 13029c11868 ! 6037: < ERB 268,INCONSISTENT VALUE ASSIGNED TO KEYWORD PROFILE ! 6038: --- ! 6039: > ERB 207,INCONSISTENT VALUE ASSIGNED TO KEYWORD PROFILE ! 6040: 13031c11870 ! 6041: < ASG22 MOV WA,PFDMP NOTE VALUE ON FIRST ASSIGNMENT ! 6042: --- ! 6043: > ASG22 MOV WA,PFDMP NOTE VALUE ON FIRST ASSIGNMENT ! 6044: 13035a11875,11879 ! 6045: > * ! 6046: > * HERE FOR KEYWORD ASSIGNMENT TO CODE ! 6047: > * ! 6048: > ASG24 STI KVCOD STORE VALUE ! 6049: > EXI RETURN TO CALLER ! 6050: 13093c11937 ! 6051: < * (WA) LENGTH OF BLOCK IN BYTES ! 6052: --- ! 6053: > * (WA) LENGTH OF BLOCK IN BAUS ! 6054: 13107,13111d11950 ! 6055: < .IF .CNBF ! 6056: < .ELSE ! 6057: < IFF BL$BC,BLN04 BCBLK ! 6058: < IFF BL$BF,BLN11 BFBLK ! 6059: < .FI ! 6060: 13112a11952 ! 6061: > IFF BL$CO,BLN12 COBLK ! 6062: 13131a11972,11976 ! 6063: > .IF .CNBF ! 6064: > .ELSE ! 6065: > IFF BL$BC,BLN04 BCBLK ! 6066: > IFF BL$BF,BLN11 BFBLK ! 6067: > .FI ! 6068: ! 6069: ! 6070: ! 6071: ! 6072: ! 6073: ! 6074: ! 6075: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 93 ! 6076: ! 6077: ! 6078: 13162c12007 ! 6079: < * HERE FOR FOUR WORD BLOCKS (P2,TE,BC) ! 6080: --- ! 6081: > * HERE FOR FOUR WORD BLOCKS (P2,TE) ! 6082: 13202c12047 ! 6083: < CTB WA,SCSI$ CALCULATE LENGTH IN BYTES ! 6084: --- ! 6085: > CTB WA,SCSI$ CALCULATE LENGTH IN BAUS ! 6086: 13209,13210c12054,12055 ! 6087: < BLN11 MOV BFALC(XR),WA GET ALLOCATION IN BYTES ! 6088: < CTB WA,BFSI$ CALCULATE LENGTH IN BYTES ! 6089: --- ! 6090: > BLN11 MOV BFALC(XR),WA GET ALLOCATION IN BAUS ! 6091: > CTB WA,BFSI$ CALCULATE LENGTH IN BAUS ! 6092: 13212a12058,12062 ! 6093: > * ! 6094: > * HERE FOR COBLK ! 6095: > * ! 6096: > BLN12 MOV *COSI$,WA GET SIZE IN BAUS ! 6097: > EXI RETURN TO BLKLN CALLER ! 6098: 13216c12066 ! 6099: < * COPYB -- COPY A BLOCK ! 6100: --- ! 6101: > * CBLCK -- COPY A BLOCK ! 6102: 13219c12069 ! 6103: < * JSR COPYB CALL TO COPY BLOCK ! 6104: --- ! 6105: > * JSR CBLCK CALL TO COPY BLOCK ! 6106: 13226c12076 ! 6107: < COPYB PRC N,1 ENTRY POINT ! 6108: --- ! 6109: > CBLCK PRC N,1 ENTRY POINT ! 6110: 13228c12078 ! 6111: < BEQ XR,=NULLS,COP10 RETURN ARGUMENT IF IT IS NULL ! 6112: --- ! 6113: > BEQ XR,=NULLS,CBL10 RETURN ARGUMENT IF IT IS NULL ! 6114: 13237,13239c12087,12089 ! 6115: < BEQ WB,=B$TBT,COP05 JUMP IF TABLE ! 6116: < BEQ WB,=B$VCT,COP01 JUMP IF VECTOR ! 6117: < BEQ WB,=B$PDT,COP01 JUMP IF PROGRAM DEFINED ! 6118: --- ! 6119: > BEQ WB,=B$TBT,CBL05 JUMP IF TABLE ! 6120: > BEQ WB,=B$VCT,CBL01 JUMP IF VECTOR ! 6121: > BEQ WB,=B$PDT,CBL01 JUMP IF PROGRAM DEFINED ! 6122: 13242c12092 ! 6123: < BEQ WB,=B$BCT,COP11 JUMP IF BUFFER ! 6124: --- ! 6125: > BEQ WB,=B$BCT,CBL11 JUMP IF BUFFER ! 6126: 13244c12094 ! 6127: < BNE WB,=B$ART,COP10 RETURN COPY IF NOT ARRAY ! 6128: --- ! 6129: > BNE WB,=B$ART,CBL10 RETURN COPY IF NOT ARRAY ! 6130: 13249c12099 ! 6131: < BRN COP02 JUMP TO MERGE ! 6132: --- ! 6133: > BRN CBL02 JUMP TO MERGE ! 6134: ! 6135: ! 6136: ! 6137: ! 6138: ! 6139: ! 6140: ! 6141: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 94 ! 6142: ! 6143: ! 6144: 13253c12103 ! 6145: < COP01 ADD *PDFLD,XR POINT TO PDFLD = VCVLS ! 6146: --- ! 6147: > CBL01 ADD *PDFLD,XR POINT TO PDFLD = VCVLS ! 6148: 13258c12108 ! 6149: < COP02 MOV (XR),XL LOAD NEXT POINTER ! 6150: --- ! 6151: > CBL02 MOV (XR),XL LOAD NEXT POINTER ! 6152: 13262c12112 ! 6153: < COP03 BNE (XL),=B$TRT,COP04 JUMP IF NOT TRAPPED ! 6154: --- ! 6155: > CBL03 BNE (XL),=B$TRT,CBL04 JUMP IF NOT TRAPPED ! 6156: 13264c12114 ! 6157: < BRN COP03 AND LOOP BACK ! 6158: --- ! 6159: > BRN CBL03 AND LOOP BACK ! 6160: 13267c12117 ! 6161: < * COPYB (CONTINUED) ! 6162: --- ! 6163: > * CBLCK (CONTINUED) ! 6164: 13271,13273c12121,12123 ! 6165: < COP04 MOV XL,(XR)+ STORE REAL VALUE, BUMP POINTER ! 6166: < BNE XR,DNAMP,COP02 LOOP BACK IF MORE TO GO ! 6167: < BRN COP09 ELSE JUMP TO EXIT ! 6168: --- ! 6169: > CBL04 MOV XL,(XR)+ STORE REAL VALUE, BUMP POINTER ! 6170: > BNE XR,DNAMP,CBL02 LOOP BACK IF MORE TO GO ! 6171: > BRN CBL09 ELSE JUMP TO EXIT ! 6172: 13277c12127 ! 6173: < COP05 ZER IDVAL(XR) ZERO ID TO STOP DUMP BLOWING UP ! 6174: --- ! 6175: > CBL05 ZER IDVAL(XR) ZERO ID TO STOP DUMP BLOWING UP ! 6176: 13283,13284c12133,12134 ! 6177: < COP06 MOV (XS),XR LOAD TABLE POINTER ! 6178: < BEQ WC,TBLEN(XR),COP09 JUMP TO EXIT IF ALL DONE ! 6179: --- ! 6180: > CBL06 MOV (XS),XR LOAD TABLE POINTER ! 6181: > BEQ WC,TBLEN(XR),CBL09 JUMP TO EXIT IF ALL DONE ! 6182: 13291c12141 ! 6183: < COP07 MOV TENXT(XR),XL LOAD POINTER TO NEXT TEBLK ! 6184: --- ! 6185: > CBL07 MOV TENXT(XR),XL LOAD POINTER TO NEXT TEBLK ! 6186: 13293c12143 ! 6187: < BEQ (XL),=B$TBT,COP06 BACK FOR NEXT BUCKET IF CHAIN END ! 6188: --- ! 6189: > BEQ (XL),=B$TBT,CBL06 BACK FOR NEXT BUCKET IF CHAIN END ! 6190: 13306,13307c12156,12157 ! 6191: < COP08 MOV TEVAL(XL),XL LOAD VALUE ! 6192: < BEQ (XL),=B$TRT,COP08 LOOP BACK IF TRAPPED ! 6193: --- ! 6194: > CBL08 MOV TEVAL(XL),XL LOAD VALUE ! 6195: > BEQ (XL),=B$TRT,CBL08 LOOP BACK IF TRAPPED ! 6196: 13309c12159 ! 6197: < BRN COP07 BACK FOR NEXT TEBLK ! 6198: --- ! 6199: > BRN CBL07 BACK FOR NEXT TEBLK ! 6200: ! 6201: ! 6202: ! 6203: ! 6204: ! 6205: ! 6206: ! 6207: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 95 ! 6208: ! 6209: ! 6210: 13313c12163 ! 6211: < COP09 MOV (XS)+,XR LOAD POINTER TO BLOCK ! 6212: --- ! 6213: > CBL09 MOV (XS)+,XR LOAD POINTER TO BLOCK ! 6214: 13318,13319c12168 ! 6215: < COP10 EXI 1 RETURN ! 6216: < EJC ! 6217: --- ! 6218: > CBL10 EXI 1 RETURN ! 6219: 13321a12171 ! 6220: > EJC ! 6221: 13325c12175 ! 6222: < COP11 MOV BCBUF(XR),XL GET BFBLK PTR ! 6223: --- ! 6224: > CBL11 MOV BCBUF(XR),XL GET BFBLK PTR ! 6225: 13335c12185 ! 6226: < BRN COP09 BRANCH TO EXIT ! 6227: --- ! 6228: > BRN CBL09 BRANCH TO EXIT ! 6229: 13337c12187,12188 ! 6230: < ENP END PROCEDURE COPYB ! 6231: --- ! 6232: > ENP END PROCEDURE CBLCK ! 6233: > EJC ! 6234: 13455c12306 ! 6235: < CGN01 ERB 212,SYNTAX ERROR. VALUE USED WHERE NAME IS REQUIRED ! 6236: --- ! 6237: > CGN01 ERB 208,SYNTAX ERROR. VALUE USED WHERE NAME IS REQUIRED ! 6238: 13586,13592d12436 ! 6239: < BNZ VRLEN(XR),CGVL0 JUMP IF NOT SYSTEM VARIABLE ! 6240: < MOV XR,-(XS) STACK XR ! 6241: < MOV VRSVP(XR),XR POINT TO SVBLK ! 6242: < MOV SVBIT(XR),WA GET SVBLK PROPERTY BITS ! 6243: < MOV (XS)+,XR RECOVER XR ! 6244: < ANB BTCKW,WA CHECK IF CONSTANT KEYWORD ! 6245: < NZB WA,CGV00 JUMP IF CONSTANT KEYWORD ! 6246: 13616,13617c12460 ! 6247: < * PREPARE TO GENERATE CODE FOR CMBLK. WC IS SET TO THE ! 6248: < * VALUE OF CSWNO (ZERO IF -OPTIMISE, 1 IF -NOOPT) TO ! 6249: --- ! 6250: > * PREPARE TO GENERATE CODE FOR CMBLK. WC IS CLEARED TO ! 6251: 13624c12467 ! 6252: < MOV CSWNO,WC RESET CONSTANT FLAG ! 6253: --- ! 6254: > ZER WC CLEAR OPTIMISE FLAG ! 6255: 13644d12486 ! 6256: < IFF C$CNP,CGV24 CONCATENATION (NOT PATTERN MATCH) ! 6257: 13645a12488 ! 6258: > IFF C$CNP,CGV24 CONCAT. NOT PATTERN ! 6259: 13688,13689c12531,12532 ! 6260: < CGV07 SUB *CMVLS,WB GET NUMBER OF ARG PTRS (BYTES) ! 6261: < BTW WB CONVERT BYTES TO WORDS ! 6262: --- ! 6263: > CGV07 SUB *CMVLS,WB GET NUMBER OF ARG PTRS (BAUS) ! 6264: > BTW WB CONVERT BAUS TO WORDS ! 6265: 13968c12811 ! 6266: ! 6267: ! 6268: ! 6269: ! 6270: ! 6271: ! 6272: ! 6273: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 96 ! 6274: ! 6275: ! 6276: < WTB XR CONVERT WORD OFFSET TO BYTES ! 6277: --- ! 6278: > WTB XR CONVERT WORD OFFSET TO BAUS ! 6279: 14105c12948 ! 6280: < CDWD5 ERB 213,SYNTAX ERROR. STATEMENT IS TOO COMPLICATED. ! 6281: --- ! 6282: > CDWD5 ERB 209,SYNTAX ERROR. STATEMENT IS TOO COMPLICATED. ! 6283: 14258,14260c13101,13107 ! 6284: < BNE STAGE,=STGIC,CMP02 SKIP UNLESS INITIAL COMPILE ! 6285: < JSR READR READ NEXT INPUT IMAGE ! 6286: < BZE XR,CMP09 JUMP IF NO INPUT AVAILABLE ! 6287: --- ! 6288: > BEQ STAGE,=STGIC,CMPC1 READ IF INITIAL COMPILE ! 6289: > BZE R$COP,CMP02 ELSE SKIP IF NO -COPY IN FORCE ! 6290: > * ! 6291: > * HERE TO ATTEMPT READ (STGIC OR -COPY) ! 6292: > * ! 6293: > CMPC1 JSR READR READ NEXT INPUT IMAGE ! 6294: > BZE XR,CMPC2 JUMP IF NO INPUT AVAILABLE ! 6295: 14265a13113,13119 ! 6296: > * HERE IF READR HAD NOTHING TO RETURN. IF NOT DURING ! 6297: > * INITIAL COMPILE, THEN MUST BE AT OUTER LEVEL OF -COPY ! 6298: > * IN CODE(). R$CIM HAS BEEN RESTORED TO CODE STRING ! 6299: > * BY COPND SO WE CONTINUE FROM THE -COPY STMT. ! 6300: > * ! 6301: > CMPC2 BEQ STAGE,=STGIC,CMP09 JUMP IF INITIAL COMPILE ! 6302: > * ! 6303: 14296c13150 ! 6304: < BEQ WC,=CH$MN,CMP32 JUMP IF CONTROL CARD ! 6305: --- ! 6306: > BEQ WC,=CH$MN,CMP33 JUMP IF CONTROL CARD ! 6307: 14324c13178 ! 6308: < ERB 214,BAD LABEL OR MISPLACED CONTINUATION LINE ! 6309: --- ! 6310: > ERB 210,BAD LABEL OR MISPLACED CONTINUATION LINE ! 6311: 14363c13217 ! 6312: < BEQ XL,=T$SMC,CMP10 JUMP IF END OF IMAGE ! 6313: --- ! 6314: > BEQ XL,=T$SMC,CMPEE JUMP IF END OF IMAGE ! 6315: 14371c13225 ! 6316: < BEQ XL,=T$SMC,CMP10 JUMP IF OK (END OF IMAGE) ! 6317: --- ! 6318: > BEQ XL,=T$SMC,CMPEE JUMP IF OK (END OF IMAGE) ! 6319: 14375c13229 ! 6320: < CMP08 ERB 215,SYNTAX ERROR. UNDEFINED OR ERRONEOUS ENTRY LABEL ! 6321: --- ! 6322: > CMP08 ERB 211,SYNTAX ERROR. UNDEFINED OR ERRONEOUS ENTRY LABEL ! 6323: 14380,14381c13234,13235 ! 6324: < BEQ STAGE,=STGXE,CMP10 JUMP IF CODE CALL (OK) ! 6325: < ERB 216,SYNTAX ERROR. MISSING END LINE ! 6326: --- ! 6327: > BEQ STAGE,=STGXE,CMPEE JUMP IF CODE CALL (OK) ! 6328: > ERB 212,SYNTAX ERROR. MISSING END LINE ! 6329: 14385c13239 ! 6330: < CMP10 MOV =OSTP$,WA SET STOP CALL POINTER ! 6331: --- ! 6332: ! 6333: ! 6334: ! 6335: ! 6336: ! 6337: ! 6338: ! 6339: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 97 ! 6340: ! 6341: ! 6342: > CMPEE MOV =OSTP$,WA SET STOP CALL POINTER ! 6343: 14397c13251 ! 6344: < ERB 217,SYNTAX ERROR. DUPLICATE LABEL ! 6345: --- ! 6346: > ERB 213,SYNTAX ERROR. DUPLICATE LABEL ! 6347: 14414c13268 ! 6348: < BEQ XL,=T$SMC,CMP31 JUMP IF NO FIELDS LEFT ! 6349: --- ! 6350: > BEQ XL,=T$SMC,CMP32 JUMP IF NO FIELDS LEFT ! 6351: 14450c13304 ! 6352: < CMP17 ERB 218,SYNTAX ERROR. DUPLICATED GOTO FIELD ! 6353: --- ! 6354: > CMP17 ERB 214,SYNTAX ERROR. DUPLICATED GOTO FIELD ! 6355: 14599d13452 ! 6356: < EXI AND RETURN TO CMPIL CALLER ! 6357: 14600a13454,13459 ! 6358: > * LOOP TO UNNEST ANY OUTSTANDING -COPY LEVELS ! 6359: > * ! 6360: > CMP31 JSR COPND CALL TO UNNEST -COPY ! 6361: > BNZ R$COP,CMP31 LOOP IF NOT ALL -COPYS CLOSED ! 6362: > EXI RETURN TO CMPIL CALLER ! 6363: > * ! 6364: 14603c13462 ! 6365: < CMP31 MOV CMFGO(XS),WB GET FAIL GOTO ! 6366: --- ! 6367: > CMP32 MOV CMFGO(XS),WB GET FAIL GOTO ! 6368: 14606c13465 ! 6369: < ERB 219,SYNTAX ERROR. EMPTY GOTO FIELD ! 6370: --- ! 6371: > ERB 215,SYNTAX ERROR. EMPTY GOTO FIELD ! 6372: 14610c13469 ! 6373: < CMP32 ICV WB POINT PAST CH$MN ! 6374: --- ! 6375: > CMP33 ICV WB POINT PAST CH$MN ! 6376: 14634c13493 ! 6377: < CNC01 BGE SCNPT,SCNIL,CNC09 RETURN IF END OF IMAGE ! 6378: --- ! 6379: > CNC01 BGE SCNPT,SCNIL,CNC10 RETURN IF END OF IMAGE ! 6380: 14638,14640d13496 ! 6381: < .IF .CULC ! 6382: < FLC WA FOLD TO UPPER CASE ! 6383: < .FI ! 6384: 14641a13498,13500 ! 6385: > .IF .CASL ! 6386: > BEQ WA,=CH$$I,CNC07 DITTO (LC) ! 6387: > .FI ! 6388: 14649a13509,13511 ! 6389: > .IF .CASL ! 6390: > JSR SBSCC CONVERT CASE BEFORE COMPARISON ! 6391: > .ELSE ! 6392: 14651,14653d13512 ! 6393: < .IF .CULC ! 6394: < MOV SCLEN(XR),WA RELOAD LENGTH ! 6395: < JSR FLSTG FOLD TO UPPER CASE ! 6396: 14658c13517 ! 6397: < LCT WC,=CC$NC NUMBER OF STANDARD NAMES ! 6398: ! 6399: ! 6400: ! 6401: ! 6402: ! 6403: ! 6404: ! 6405: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 98 ! 6406: ! 6407: ! 6408: --- ! 6409: > LCT WC,=CC$CT NUMBER OF STANDARD NAMES ! 6410: 14682,14684c13541,13543 ! 6411: < BSW XL,CC$NC SWITCH ! 6412: < .IF .CULC ! 6413: < IFF CC$CA,CNC37 -CASE ! 6414: --- ! 6415: > BSW XL,CC$CT SWITCH ! 6416: > .IF .CASL ! 6417: > IFF CC$CI,CNC11 -CASEIG ! 6418: 14686,14687c13545 ! 6419: < IFF CC$DO,CNC10 -DOUBLE ! 6420: < IFF CC$DU,CNC11 -DUMP ! 6421: --- ! 6422: > IFF CC$CO,CNC23 -COPY ! 6423: 14689,14705c13547,13556 ! 6424: < IFF CC$ER,CNC13 -ERRORS ! 6425: < IFF CC$EX,CNC14 -EXECUTE ! 6426: < IFF CC$FA,CNC15 -FAIL ! 6427: < IFF CC$LI,CNC16 -LIST ! 6428: < IFF CC$NR,CNC17 -NOERRORS ! 6429: < IFF CC$NX,CNC18 -NOEXECUTE ! 6430: < IFF CC$NF,CNC19 -NOFAIL ! 6431: < IFF CC$NL,CNC20 -NOLIST ! 6432: < IFF CC$NO,CNC21 -NOOPT ! 6433: < IFF CC$NP,CNC22 -NOPRINT ! 6434: < IFF CC$OP,CNC24 -OPTIMISE ! 6435: < IFF CC$PR,CNC25 -PRINT ! 6436: < IFF CC$SI,CNC27 -SINGLE ! 6437: < IFF CC$SP,CNC28 -SPACE ! 6438: < IFF CC$ST,CNC31 -STITLE ! 6439: < IFF CC$TI,CNC32 -TITLE ! 6440: < IFF CC$TR,CNC36 -TRACE ! 6441: --- ! 6442: > IFF CC$FA,CNC13 -FAIL ! 6443: > IFF CC$LI,CNC14 -LIST ! 6444: > .IF .CASL ! 6445: > IFF CC$NC,CNC15 -NOCASEIG ! 6446: > .FI ! 6447: > IFF CC$NF,CNC16 -NOFAIL ! 6448: > IFF CC$NL,CNC17 -NOLIST ! 6449: > IFF CC$ST,CNC18 -STITLE ! 6450: > IFF CC$TI,CNC19 -TITLE ! 6451: > IFF CC$TR,CNC22 -TRACE ! 6452: 14717c13568 ! 6453: < CNC06 ERB 247,INVALID CONTROL CARD ! 6454: --- ! 6455: > CNC06 ERB 216,INVALID CONTROL CARD ! 6456: 14722,14723c13573,13574 ! 6457: < .IF .CULC ! 6458: < FLC WA FOLD TO UPPER CASE ! 6459: --- ! 6460: > .IF .CASL ! 6461: > BEQ WA,=CH$$N,CNC08 SKIP IF LC N ! 6462: 14725a13577,13579 ! 6463: > .IF .CASL ! 6464: ! 6465: ! 6466: ! 6467: ! 6468: ! 6469: ! 6470: ! 6471: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 99 ! 6472: ! 6473: ! 6474: > CNC08 ADD =NUM02,SCNPT BUMP OFFSET PAST -IN ! 6475: > .ELSE ! 6476: 14726a13581 ! 6477: > .FI ! 6478: 14739c13594 ! 6479: < CNC08 MOV SCNPT,WA PRESERVE IN CASE XEQ TIME COMPILE ! 6480: --- ! 6481: > CNC09 MOV SCNPT,WA PRESERVE IN CASE XEQ TIME COMPILE ! 6482: 14746c13601,13602 ! 6483: < CNC09 EXI RETURN ! 6484: --- ! 6485: > CNC10 EXI RETURN ! 6486: > .IF .CASL ! 6487: 14748c13604 ! 6488: < * -DOUBLE ! 6489: --- ! 6490: > * -CASEIG ! 6491: 14750,14751c13606,13608 ! 6492: < CNC10 MNZ CSWDB SET SWITCH ! 6493: < BRN CNC08 MERGE ! 6494: --- ! 6495: > CNC11 MNZ CSWCI SET SWITCH ! 6496: > BRN CNC09 MERGE ! 6497: > .FI ! 6498: 14753,14759d13609 ! 6499: < * -DUMP ! 6500: < * THIS IS USED FOR SYSTEM DEBUGGING . IT HAS THE EFFECT OF ! 6501: < * PRODUCING A CORE DUMP AT COMPILATION TIME ! 6502: < * ! 6503: < CNC11 JSR SYSDM CALL DUMPER ! 6504: < BRN CNC09 FINISHED ! 6505: < * ! 6506: 14762c13612 ! 6507: < CNC12 BZE CSWLS,CNC09 RETURN IF -NOLIST ! 6508: --- ! 6509: > CNC12 BZE CSWLS,CNC10 RETURN IF -NOLIST ! 6510: 14765c13615 ! 6511: < BRN CNC09 FINISHED ! 6512: --- ! 6513: > BRN CNC10 FINISHED ! 6514: 14767,14776d13616 ! 6515: < * -ERRORS ! 6516: < * ! 6517: < CNC13 ZER CSWER CLEAR SWITCH ! 6518: < BRN CNC08 MERGE ! 6519: < * ! 6520: < * -EXECUTE ! 6521: < * ! 6522: < CNC14 ZER CSWEX CLEAR SWITCH ! 6523: < BRN CNC08 MERGE ! 6524: < * ! 6525: 14779,14780c13619,13620 ! 6526: < CNC15 MNZ CSWFL SET SWITCH ! 6527: < BRN CNC08 MERGE ! 6528: --- ! 6529: > CNC13 MNZ CSWFL SET SWITCH ! 6530: ! 6531: ! 6532: ! 6533: ! 6534: ! 6535: ! 6536: ! 6537: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 100 ! 6538: ! 6539: ! 6540: > BRN CNC09 MERGE ! 6541: 14784,14785c13624,13626 ! 6542: < CNC16 MNZ CSWLS SET SWITCH ! 6543: < BEQ STAGE,=STGIC,CNC08 DONE IF COMPILE TIME ! 6544: --- ! 6545: > CNC14 MNZ CSWLS SET SWITCH ! 6546: > BRN CNC09 MERGE ! 6547: > .IF .CASL ! 6548: 14787c13628 ! 6549: < * LIST CODE LINE IF EXECUTE TIME COMPILE ! 6550: --- ! 6551: > * -NOCASEIG ! 6552: 14789,14792c13630,13632 ! 6553: < ZER LSTPF PERMIT LISTING ! 6554: < JSR LISTR LIST LINE ! 6555: < BRN CNC08 MERGE ! 6556: < EJC ! 6557: --- ! 6558: > CNC15 ZER CSWCI CLEAR SWITCH ! 6559: > BRN CNC09 MERGE ! 6560: > .FI ! 6561: 14794,14805d13633 ! 6562: < * CNCRD (CONTINUED) ! 6563: < * ! 6564: < * -NOERRORS ! 6565: < * ! 6566: < CNC17 MNZ CSWER SET SWITCH ! 6567: < BRN CNC08 MERGE ! 6568: < * ! 6569: < * -NOEXECUTE ! 6570: < * ! 6571: < CNC18 MNZ CSWEX SET SWITCH ! 6572: < BRN CNC08 MERGE ! 6573: < * ! 6574: 14808,14834c13636,13637 ! 6575: < CNC19 ZER CSWFL CLEAR SWITCH ! 6576: < BRN CNC08 MERGE ! 6577: < * ! 6578: < * -NOLIST ! 6579: < * ! 6580: < CNC20 ZER CSWLS CLEAR SWITCH ! 6581: < BRN CNC08 MERGE ! 6582: < * ! 6583: < * -NOOPTIMISE ! 6584: < * ! 6585: < CNC21 MNZ CSWNO SET SWITCH ! 6586: < BRN CNC08 MERGE ! 6587: < * ! 6588: < * -NOPRINT ! 6589: < * ! 6590: < CNC22 ZER CSWPR CLEAR SWITCH ! 6591: < BRN CNC08 MERGE ! 6592: < * ! 6593: < * -OPTIMISE ! 6594: < * ! 6595: < CNC24 ZER CSWNO CLEAR SWITCH ! 6596: ! 6597: ! 6598: ! 6599: ! 6600: ! 6601: ! 6602: ! 6603: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 101 ! 6604: ! 6605: ! 6606: < BRN CNC08 MERGE ! 6607: < * ! 6608: < * -PRINT ! 6609: < * ! 6610: < CNC25 MNZ CSWPR SET SWITCH ! 6611: < BRN CNC08 MERGE ! 6612: --- ! 6613: > CNC16 ZER CSWFL CLEAR SWITCH ! 6614: > BRN CNC09 MERGE ! 6615: 14839c13642 ! 6616: < * -SINGLE ! 6617: --- ! 6618: > * -NOLIST ! 6619: 14841,14863c13644 ! 6620: < CNC27 ZER CSWDB CLEAR SWITCH ! 6621: < BRN CNC08 MERGE ! 6622: < * ! 6623: < * -SPACE ! 6624: < * ! 6625: < CNC28 BZE CSWLS,CNC09 RETURN IF -NOLIST ! 6626: < JSR SCANE SCAN INTEGER AFTER -SPACE ! 6627: < MOV =NUM01,WC 1 SPACE IN CASE ! 6628: < BEQ XR,=T$SMC,CNC29 JUMP IF NO INTEGER ! 6629: < MOV XR,-(XS) STACK IT ! 6630: < JSR GTSMI CHECK INTEGER ! 6631: < PPM CNC06 FAIL IF NOT INTEGER ! 6632: < PPM CNC06 FAIL IF NEGATIVE OR LARGE ! 6633: < BNZ WC,CNC29 JUMP IF NON ZERO ! 6634: < MOV =NUM01,WC ELSE 1 SPACE ! 6635: < * ! 6636: < * MERGE WITH COUNT OF LINES TO SKIP ! 6637: < * ! 6638: < CNC29 ADD WC,LSTLC BUMP LINE COUNT ! 6639: < LCT WC,WC CONVERT TO LOOP COUNTER ! 6640: < BLT LSTLC,LSTNP,CNC30 JUMP IF FITS ON PAGE ! 6641: < JSR PRTPS EJECT ! 6642: < JSR LISTT LIST TITLE ! 6643: --- ! 6644: > CNC17 ZER CSWLS CLEAR SWITCH ! 6645: 14866,14874d13646 ! 6646: < * SKIP LINES ! 6647: < * ! 6648: < CNC30 JSR PRTNL PRINT A BLANK ! 6649: < BCT WC,CNC30 LOOP ! 6650: < BRN CNC09 MERGE ! 6651: < EJC ! 6652: < * ! 6653: < * CNCRD (CONTINUED) ! 6654: < * ! 6655: 14877,14878c13649,13650 ! 6656: < CNC31 MOV =R$STL,CNR$T PTR TO R$STL ! 6657: < BRN CNC33 MERGE ! 6658: --- ! 6659: > CNC18 MOV =R$STL,CNR$T PTR TO R$STL ! 6660: > BRN CNC20 MERGE ! 6661: 14882c13654 ! 6662: ! 6663: ! 6664: ! 6665: ! 6666: ! 6667: ! 6668: ! 6669: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 102 ! 6670: ! 6671: ! 6672: < CNC32 MOV =NULLS,R$STL CLEAR SUBTITLE ! 6673: --- ! 6674: > CNC19 MOV =NULLS,R$STL CLEAR SUBTITLE ! 6675: 14887c13659 ! 6676: < CNC33 MOV =NULLS,XR NULL IN CASE NEEDED ! 6677: --- ! 6678: > CNC20 MOV =NULLS,XR NULL IN CASE NEEDED ! 6679: 14891c13663 ! 6680: < BLO WA,WB,CNC34 JUMP IF NO CHARS LEFT ! 6681: --- ! 6682: > BLO WA,WB,CNC21 JUMP IF NO CHARS LEFT ! 6683: 14898c13670 ! 6684: < CNC34 MOV CNR$T,XL POINT TO STORAGE LOCATION ! 6685: --- ! 6686: > CNC21 MOV CNR$T,XL POINT TO STORAGE LOCATION ! 6687: 14900,14908c13672 ! 6688: < BEQ XL,=R$STL,CNC09 RETURN IF STITL ! 6689: < BNZ PRECL,CNC09 RETURN IF EXTENDED LISTING ! 6690: < BZE PRICH,CNC09 RETURN IF REGULAR PRINTER ! 6691: < MOV SCLEN(XR),XL GET LENGTH OF TITLE ! 6692: < MOV XL,WA COPY IT ! 6693: < BZE XL,CNC35 JUMP IF NULL ! 6694: < ADD =NUM10,XL INCREMENT ! 6695: < BHI XL,PRLEN,CNC09 USE DEFAULT LSTP0 VAL IF TOO LONG ! 6696: < ADD =NUM04,WA POINT JUST PAST TITLE ! 6697: --- ! 6698: > BRN CNC10 RETURN ! 6699: 14910,14914d13673 ! 6700: < * STORE OFFSET TO PAGE NN MESSAGE FOR SHORT TITLE ! 6701: < * ! 6702: < CNC35 MOV WA,LSTPO STORE OFFSET ! 6703: < BRN CNC09 RETURN ! 6704: < * ! 6705: 14915a13675 ! 6706: > * ! 6707: 14919,14921c13679,13680 ! 6708: < CNC36 JSR SYSTT TOGGLE SWITCH ! 6709: < BRN CNC08 MERGE ! 6710: < .IF .CULC ! 6711: --- ! 6712: > CNC22 JSR SYSTT TOGGLE SWITCH ! 6713: > BRN CNC09 MERGE ! 6714: 14923,14925c13682 ! 6715: < * -CASE ! 6716: < * SETS VALUE OF KVCAS SO THAT NAMES ARE FOLDED OR NOT ! 6717: < * DURING COMPILATION. ! 6718: --- ! 6719: > * -COPY ! 6720: 14927,14936c13684,13708 ! 6721: < CNC37 JSR SCANE SCAN INTEGER AFTER -CASE ! 6722: < ZER WC GET 0 IN CASE NONE THERE ! 6723: < BEQ XL,=T$SMC,CNC38 SKIP IF NO INTEGER ! 6724: < MOV XR,-(XS) STACK IT ! 6725: < JSR GTSMI CHECK INTEGER ! 6726: < PPM CNC06 FAIL IF NOT INTEGER ! 6727: < PPM CNC06 FAIL IF NEGATIVE OR TOO LARGE ! 6728: ! 6729: ! 6730: ! 6731: ! 6732: ! 6733: ! 6734: ! 6735: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 103 ! 6736: ! 6737: ! 6738: < CNC38 MOV WC,KVCAS STORE NEW CASE VALUE ! 6739: < BRN CNC09 MERGE ! 6740: < .FI ! 6741: --- ! 6742: > * GET FILETAG AND NOTIFY OSINT THAT WE ARE NESTING ! 6743: > * ! 6744: > CNC23 JSR SCANE GET FILETAG ! 6745: > BNE =T$CON,XL,CNC06 ERR IF NOT CONSTANT ! 6746: > BNE =B$SCL,(XR),CNC06 ERR IF NOT SCBLK ! 6747: > JSR SYSSC CALL TO START COPY ! 6748: > ERR 258,COPY FILE DOES NOT EXIST ! 6749: > PPM EROSI ERROR RETURN (ALWAYS) ! 6750: > MOV WA,WB SAVE IOTAG FROM OSINT ! 6751: > MOV *COSI$,WA GET SIZE OF COPY BLOCK ! 6752: > JSR ALLOC ALLOCATE ! 6753: > MOV =B$COP,COTYP(XR) SET TYPE ! 6754: > MOV R$COP,CONXT(XR) PLACE AT FRONT OF STACK CHN ! 6755: > MOV XR,R$COP SPLICE IT IN ! 6756: > MOV WB,COIOT(XR) SAVE OSINT IOTAG ! 6757: > MOV TTINS,COTTI(XR) SAVE TTINS ! 6758: > ZER TTINS INPUT NOT FROM TERMINAL NOW ! 6759: > MOV R$CIM,COCIM(XR) SAVE R$CIM IN CASE EXEC TIME ! 6760: > MOV SCNPT,COSPT(XR) SAVE SCNPT IN CASE EXEC TIME ! 6761: > MOV CSWLS,COSLS(XR) SAVE LIST FLAG ! 6762: > MOV CSWIN,COSIN(XR) SAVE -INXXX VALUE ! 6763: > MOV R$STL,COSTL(XR) SAVE SUBTITLE ! 6764: > BZE CSWLS,CNC10 NO LIST -COPY IF -NOLIST ! 6765: > JSR LISTR LIST -COPY CARD ! 6766: > BRN CNC10 EXIT ! 6767: 14939a13712,13750 ! 6768: > * COPND -- END -COPY NESTING ! 6769: > * ! 6770: > * COPND IS CALLED FROM CMPIL AND READR IN ORDER TO ! 6771: > * UNNEST ONE LEVEL OF -COPY AND RESTORE THE PREVIOUS ! 6772: > * INPUT COMPILE STRING. THE COPY BLOCK IS REMOVED ! 6773: > * FROM THE CHAIN AND THE STATE RESTORED FROM IT. ! 6774: > * ! 6775: > * JSR COPND CALL TO END -COPY AT CUR. LEVEL ! 6776: > * (XL,WA,WB,WC) DESTROYED ! 6777: > * ! 6778: > COPND PRC E,0 ENTRY POINT ! 6779: > MOV R$COP,XL GET POINTER TO CURRENT COBLK ! 6780: > BZE XL,COP02 EXIT IF NONE ! 6781: > MOV CONXT(XL),R$COP TAKE OFF CHAIN ! 6782: > MOV COIOT(XL),WA GET IOTAG FOR OSINT ! 6783: > JSR SYSEC CALL TO END COPY ! 6784: > PPM DO NOT USE ! 6785: > PPM EROSI ERROR EXIT ! 6786: > BZE CSWLS,COP01 SKIP LISTING IF -NOLIST ! 6787: > JSR LISTR LIST CURRENT IMAGE ! 6788: > * ! 6789: > * MERGE AFTER POSSIBLE LISTING OF CURRENT IMAGE ! 6790: > * ! 6791: > COP01 MOV COTTI(XL),TTINS RESTORE TERMINAL INPUT FLAG ! 6792: > MOV COSLS(XL),CSWLS RESTORE LISTING STATE ! 6793: > MOV COSPT(XL),SCNPT GET OLD SCAN POINTER ! 6794: ! 6795: ! 6796: ! 6797: ! 6798: ! 6799: ! 6800: ! 6801: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 104 ! 6802: ! 6803: ! 6804: > MOV COSIN(XL),CSWIN OLD INPUT IMAGE LENGTH ! 6805: > MOV COSTL(XL),R$STL RESTORE SUBTITLE STRING ! 6806: > MNZ LSTPF THIS IMAGE LISTED IN CNCRD ! 6807: > MOV COCIM(XL),XL GET OLD COMPILER IMAGE SCBLK ! 6808: > MOV XL,R$CIM RESTORE IT ! 6809: > MOV SCLEN(XL),SCNIL SET INPUT IMAGE LENGTH TOO ! 6810: > * ! 6811: > * MERGE TO EXIT ! 6812: > * ! 6813: > COP02 EXI RETURN TO CALLER ! 6814: > ENP END PROCEDURE COPND ! 6815: > EJC ! 6816: > * ! 6817: 14950a13762,13763 ! 6818: > .IF .CNLD ! 6819: > .ELSE ! 6820: 14957,14958d13769 ! 6821: < .IF .CNLD ! 6822: < .ELSE ! 6823: 14966d13776 ! 6824: < .FI ! 6825: 14970a13781 ! 6826: > .FI ! 6827: 14981c13792 ! 6828: < ERB 248,ATTEMPTED REDEFINITION OF SYSTEM FUNCTION ! 6829: --- ! 6830: > ERB 217,ATTEMPTED REDEFINITION OF SYSTEM FUNCTION ! 6831: 14991,15058d13801 ! 6832: < * DTACH -- DETACH I/O ASSOCIATED NAMES ! 6833: < * ! 6834: < * DETACHES TRBLKS FROM I/O ASSOCIATED VARIABLES, REMOVES ! 6835: < * ENTRY FROM IOCHN CHAIN ATTACHED TO FILEARG1 VRBLK AND MAY ! 6836: < * REMOVE VRBLK ACCESS AND STORE TRAPS. ! 6837: < * INPUT, OUTPUT, TERMINAL ARE HANDLED SPECIALLY. ! 6838: < * ! 6839: < * (XL) I/O ASSOC. VBL NAME BASE PTR ! 6840: < * (WA) OFFSET TO NAME ! 6841: < * JSR DTACH CALL FOR DETACH OPERATION ! 6842: < * (XL,XR,WA,WB,WC) DESTROYED ! 6843: < * ! 6844: < DTACH PRC E,0 ENTRY POINT ! 6845: < MOV XL,DTCNB STORE NAME BASE (GBCOL NOT CALLED) ! 6846: < ADD WA,XL POINT TO NAME LOCATION ! 6847: < MOV XL,DTCNM STORE IT ! 6848: < * ! 6849: < * LOOP TO SEARCH FOR I/O TRBLK ! 6850: < * ! 6851: < DTCH1 MOV XL,XR COPY NAME POINTER ! 6852: < * ! 6853: < * CONTINUE AFTER BLOCK DELETION ! 6854: < * ! 6855: < DTCH2 MOV (XL),XL POINT TO NEXT VALUE ! 6856: < BNE (XL),=B$TRT,DTCH6 JUMP AT CHAIN END ! 6857: < MOV TRTYP(XL),WA GET TRAP BLOCK TYPE ! 6858: < BEQ WA,=TRTIN,DTCH3 JUMP IF INPUT ! 6859: < BEQ WA,=TRTOU,DTCH3 JUMP IF OUTPUT ! 6860: ! 6861: ! 6862: ! 6863: ! 6864: ! 6865: ! 6866: ! 6867: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 105 ! 6868: ! 6869: ! 6870: < ADD *TRNXT,XL POINT TO NEXT LINK ! 6871: < BRN DTCH1 LOOP ! 6872: < * ! 6873: < * DELETE AN OLD ASSOCIATION ! 6874: < * ! 6875: < DTCH3 MOV TRVAL(XL),(XR) DELETE TRBLK ! 6876: < MOV XL,WA DUMP XL ... ! 6877: < MOV XR,WB ... AND XR ! 6878: < MOV TRTRF(XL),XL POINT TO TRTRF TRAP BLOCK ! 6879: < BZE XL,DTCH5 JUMP IF NO IOCHN ! 6880: < BNE (XL),=B$TRT,DTCH5 JUMP IF INPUT, OUTPUT, TERMINAL ! 6881: < * ! 6882: < * LOOP TO SEARCH IOCHN CHAIN FOR NAME PTR ! 6883: < * ! 6884: < DTCH4 MOV XL,XR REMEMBER LINK PTR ! 6885: < MOV TRTRF(XL),XL POINT TO NEXT LINK ! 6886: < BZE XL,DTCH5 JUMP IF END OF CHAIN ! 6887: < MOV IONMB(XL),WC GET NAME BASE ! 6888: < ADD IONMO(XL),WC ADD OFFSET ! 6889: < BNE WC,DTCNM,DTCH4 LOOP IF NO MATCH ! 6890: < MOV TRTRF(XL),TRTRF(XR) REMOVE NAME FROM CHAIN ! 6891: < EJC ! 6892: < * ! 6893: < * DTACH (CONTINUED) ! 6894: < * ! 6895: < * PREPARE TO RESUME I/O TRBLK SCAN ! 6896: < * ! 6897: < DTCH5 MOV WA,XL RECOVER XL ... ! 6898: < MOV WB,XR ... AND XR ! 6899: < ADD *TRVAL,XL POINT TO VALUE FIELD ! 6900: < BRN DTCH2 CONTINUE ! 6901: < * ! 6902: < * EXIT POINT ! 6903: < * ! 6904: < DTCH6 MOV DTCNB,XR POSSIBLE VRBLK PTR ! 6905: < JSR SETVR RESET VRBLK IF NECESSARY ! 6906: < EXI RETURN ! 6907: < ENP END PROCEDURE DTACH ! 6908: < EJC ! 6909: < * ! 6910: 15069c13812 ! 6911: < WTB XR CONVERT TO BYTE OFFSET ! 6912: --- ! 6913: > WTB XR CONVERT TO BAU OFFSET ! 6914: 15092,15093c13835 ! 6915: < * DMARG EQ 2 FULL DUMP (INCL ARRAYS ETC.) ! 6916: < * DMARG GE 3 CORE DUMP ! 6917: --- ! 6918: > * DMARG GE 2 FULL DUMP (INCL ARRAYS ETC.) ! 6919: 15101d13842 ! 6920: < BGT XR,=NUM02,DMP29 JUMP IF CORE DUMP REQUIRED ! 6921: 15108,15110c13849 ! 6922: < JSR PRTST PRINT IT ! 6923: < JSR PRTNL TERMINATE PRINT LINE ! 6924: < JSR PRTNL AND PRINT A BLANK LINE ! 6925: --- ! 6926: ! 6927: ! 6928: ! 6929: ! 6930: ! 6931: ! 6932: ! 6933: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 106 ! 6934: ! 6935: ! 6936: > JSR PRTFB PRINT IT ! 6937: 15227,15228c13966,13967 ! 6938: < DMP11 JSR PRTNL PRINT BLANK LINE ! 6939: < JSR PRTNL AND ANOTHER ! 6940: --- ! 6941: > DMP11 JSR PRTFH PRINT BLANK LINE ! 6942: > JSR PRTFH AND ANOTHER ! 6943: 15230,15232c13969 ! 6944: < JSR PRTST PRINT HEADING ! 6945: < JSR PRTNL END LINE ! 6946: < JSR PRTNL PRINT ONE BLANK LINE ! 6947: --- ! 6948: > JSR PRTFB PRINT HEADING ! 6949: 15256,15257c13993 ! 6950: < JSR PRTVL PRINT KEYWORD VALUE ! 6951: < JSR PRTNL TERMINATE PRINT LINE ! 6952: --- ! 6953: > JSR PRTVF PRINT KEYWORD VALUE ! 6954: 15276c14012 ! 6955: < BEQ WA,=B$BCT,DMP30 JUMP IF BUFFER ! 6956: --- ! 6957: > BEQ WA,=B$BCT,DMP29 JUMP IF BUFFER ! 6958: 15310c14046 ! 6959: < JSR PRTNL PRINT BLANK LINE ! 6960: --- ! 6961: > JSR PRTFH PRINT BLANK LINE ! 6962: 15312c14048 ! 6963: < JSR PRTVL PRINT BLOCK VALUE (FOR TITLE) ! 6964: --- ! 6965: > JSR PRTVF PRINT BLOCK VALUE (FOR TITLE) ! 6966: 15314d14049 ! 6967: < JSR PRTNL END PRINT LINE ! 6968: 15380,15384d14114 ! 6969: < * ! 6970: < * CALL SYSTEM CORE DUMP ROUTINE ! 6971: < * ! 6972: < DMP29 JSR SYSDM CALL IT ! 6973: < BRN DMP28 RETURN ! 6974: 15393,15395c14123,14124 ! 6975: < DMP30 JSR PRTNL PRINT BLANK LINE ! 6976: < JSR PRTVL PRINT VALUE ID FOR TITLE ! 6977: < JSR PRTNL FORCE NEW LINE ! 6978: --- ! 6979: > DMP29 JSR PRTFH PRINT BLANK LINE ! 6980: > JSR PRTVF PRINT VALUE ID FOR TITLE ! 6981: 15415,15416c14144 ! 6982: < JSR PRTCH PRINT IT ! 6983: < JSR PRTNL PRINT NEW LINE ! 6984: --- ! 6985: > JSR PRTCF PRINT IT ! 6986: 15430c14158 ! 6987: < JSR PRTIS PRINT ERROR PTR OR BLANK LINE ! 6988: --- ! 6989: > JSR PRTFH PRINT ERROR PTR OR BLANK LINE ! 6990: 15448,15450c14176 ! 6991: < JSR PRTST PRINT ERROR MESSAGE TEXT ! 6992: ! 6993: ! 6994: ! 6995: ! 6996: ! 6997: ! 6998: ! 6999: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 107 ! 7000: ! 7001: ! 7002: < JSR PRTIS PRINT LINE ! 7003: < JSR PRTIS PRINT BLANK LINE ! 7004: --- ! 7005: > JSR PRTFB PRINT ERROR MESSAGE TEXT ! 7006: 15465a14192 ! 7007: > BNZ EROSN,ERT03 SKIP IF SPECIAL EROSI RETURN ! 7008: 15483a14211,14216 ! 7009: > * ! 7010: > * SPECIAL CASE SET UP BY EROSI RETURN TO AVOID SYSEM CALL ! 7011: > * ! 7012: > ERT03 ZER EROSN CLEAR FLAG ! 7013: > MOV R$ETX,XR GET ERROR MESSAGE TEXT ! 7014: > BRN ERT01 RETURN WITHOUT MAKING SYSEM CALL ! 7015: 15498,15499d14230 ! 7016: < * PPM LOC TRANSFER LOC FOR SUCCESSFUL EVAL ! 7017: < * (THE NORMAL RETURN IS NEVER TAKEN) ! 7018: 15507c14238 ! 7019: < EVALI PRC R,4 ENTRY POINT (RECURSIVE) ! 7020: --- ! 7021: > EVALI PRC R,3 ENTRY POINT (RECURSIVE) ! 7022: 15518c14249 ! 7023: < EXI 4 TAKE SUCCESSFUL EXIT ! 7024: --- ! 7025: > EXI SUCCESSFUL RETURN ! 7026: 15621a14353 ! 7027: > * (WA) APPROPRIATE MULTI CHARACTER PCODE ! 7028: 15626,15627c14358 ! 7029: < * PPM LOC TRANSFER LOC FOR SUCCESSFUL EVAL ! 7030: < * (THE NORMAL RETURN IS NEVER TAKEN) ! 7031: --- ! 7032: > * (XL) PCODE OF NEW NODE (ENTRY WA) ! 7033: 15629c14360 ! 7034: < * (XL,WC,RA) DESTROYED ! 7035: --- ! 7036: > * (WA,WC,RA) DESTROYED ! 7037: 15634a14366,14367 ! 7038: > * THIS IS DONE BY THE USUAL INDIRECT BRANCH THROUGH THE ! 7039: > * PCODE PASSED IN WA. ! 7040: 15636c14369,14370 ! 7041: < EVALS PRC R,3 ENTRY POINT (RECURSIVE) ! 7042: --- ! 7043: > EVALS PRC R,2 ENTRY POINT (RECURSIVE) ! 7044: > MOV WA,-(XS) KEEP PCODE ! 7045: 15638a14373 ! 7046: > MOV (XS)+,WA RECOVER PCODE ! 7047: 15644c14379 ! 7048: < MOV =P$BRK,XL APPROPRIATE PCODE FOR OUR USE ! 7049: --- ! 7050: > MOV WA,XL APPROPRIATE PCODE FOR OUR USE ! 7051: 15649c14384,14385 ! 7052: < EXI 3 TAKE SUCCESS RETURN ! 7053: --- ! 7054: > MOV (XR),XL GET PCODE ! 7055: > EXI TAKE SUCCESS RETURN ! 7056: 15653c14389,14390 ! 7057: < EVLS1 EXI 2 TAKE FAILURE RETURN ! 7058: ! 7059: ! 7060: ! 7061: ! 7062: ! 7063: ! 7064: ! 7065: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 108 ! 7066: ! 7067: ! 7068: --- ! 7069: > EVLS1 MOV (XS)+,WA POP STACK ! 7070: > EXI 2 TAKE FAILURE RETURN ! 7071: 15733c14470 ! 7072: < EVLX3 MOV (XS)+,XR LOAD VALUE ! 7073: --- ! 7074: > EVLXV MOV (XS)+,XR LOAD VALUE ! 7075: 15735c14472 ! 7076: < ERB 249,EXPRESSION EVALUATED BY NAME RETURNED VALUE ! 7077: --- ! 7078: > ERB 218,EXPRESSION EVALUATED BY NAME RETURNED VALUE ! 7079: 15739c14476 ! 7080: < EVLX4 MOV (XS)+,WA LOAD NAME OFFSET ! 7081: --- ! 7082: > EVLXN MOV (XS)+,WA LOAD NAME OFFSET ! 7083: 15743c14480 ! 7084: < PPM EVLX6 JUMP IF FAILURE DURING ACCESS ! 7085: --- ! 7086: > PPM EVLXF JUMP IF FAILURE DURING ACCESS ! 7087: 15752c14489 ! 7088: < EVLX6 MNZ WB NOTE UNSUCCESSFUL ! 7089: --- ! 7090: > EVLXF MNZ WB NOTE UNSUCCESSFUL ! 7091: 15806c14543 ! 7092: < BTW WA CONVERT BYTE COUNT TO WORD COUNT ! 7093: --- ! 7094: > BTW WA CONVERT BAU COUNT TO WORD COUNT ! 7095: 15985c14722 ! 7096: < MOV =OPDVP,XR ELSE POINT TO UNMISTAKABLE CONCAT. ! 7097: --- ! 7098: > MOV =OPDVP,XR ELSE POINT TO UNMISTAKEABLE CONCAT ! 7099: 15987c14724 ! 7100: < * MERGE HERE WHEN XR SET UP WITH PROPER CONCATENATION DVBLK ! 7101: --- ! 7102: > * MERGE WITH CORRECT CONCATENATION DVBLK IN XR ! 7103: 15991c14728 ! 7104: < ERB 220,SYNTAX ERROR. MISSING OPERATOR ! 7105: --- ! 7106: > ERB 219,SYNTAX ERROR. MISSING OPERATOR ! 7107: 15998c14735 ! 7108: < ERB 221,SYNTAX ERROR. MISSING OPERAND ! 7109: --- ! 7110: > ERB 220,SYNTAX ERROR. MISSING OPERAND ! 7111: 16023c14760 ! 7112: < EXP08 ERB 222,SYNTAX ERROR. INVALID USE OF LEFT BRACKET ! 7113: --- ! 7114: > EXP08 ERB 221,SYNTAX ERROR. INVALID USE OF LEFT BRACKET ! 7115: 16049c14786 ! 7116: < ERB 223,SYNTAX ERROR. INVALID USE OF COMMA ! 7117: --- ! 7118: > ERB 222,SYNTAX ERROR. INVALID USE OF COMMA ! 7119: 16062c14799 ! 7120: < ERB 224,SYNTAX ERROR. UNBALANCED RIGHT PARENTHESIS ! 7121: --- ! 7122: > ERB 223,SYNTAX ERROR. UNBALANCED RIGHT PARENTHESIS ! 7123: 16080c14817 ! 7124: ! 7125: ! 7126: ! 7127: ! 7128: ! 7129: ! 7130: ! 7131: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 109 ! 7132: ! 7133: ! 7134: < WTB WA CONVERT LENGTH TO BYTES ! 7135: --- ! 7136: > WTB WA CONVERT LENGTH TO BAUS ! 7137: 16124c14861 ! 7138: < ERB 225,SYNTAX ERROR. UNBALANCED RIGHT BRACKET ! 7139: --- ! 7140: > ERB 224,SYNTAX ERROR. UNBALANCED RIGHT BRACKET ! 7141: 16153c14890 ! 7142: < EXP21 ERB 226,SYNTAX ERROR. MISSING RIGHT PAREN ! 7143: --- ! 7144: > EXP21 ERB 225,SYNTAX ERROR. MISSING RIGHT PAREN ! 7145: 16157c14894 ! 7146: < EXP22 ERB 227,SYNTAX ERROR. RIGHT PAREN MISSING FROM GOTO ! 7147: --- ! 7148: > EXP22 ERB 226,SYNTAX ERROR. RIGHT PAREN MISSING FROM GOTO ! 7149: 16161c14898 ! 7150: < EXP23 ERB 228,SYNTAX ERROR. RIGHT BRACKET MISSING FROM GOTO ! 7151: --- ! 7152: > EXP23 ERB 227,SYNTAX ERROR. RIGHT BRACKET MISSING FROM GOTO ! 7153: 16165c14902 ! 7154: < EXP24 ERB 229,SYNTAX ERROR. MISSING RIGHT ARRAY BRACKET ! 7155: --- ! 7156: > EXP24 ERB 228,SYNTAX ERROR. MISSING RIGHT ARRAY BRACKET ! 7157: 16269c15006 ! 7158: < EXDM1 BLE 1(XS),=NUM05,EXDM2 JUMP IF STACK BOTTOM (SAVED LEVEL ! 7159: --- ! 7160: > EXDM1 BLE 1(XS),=NUM05,EXDM2 JUMP IF STACK BOTTOM (SAVED LEVEL) ! 7161: 16324d15060 ! 7162: < .IF .CULC ! 7163: 16326,16369d15061 ! 7164: < * FLSTG -- FOLD STRING TO UPPER CASE ! 7165: < * ! 7166: < * FLSTG FOLDS A CHARACTER STRING CONTAINING LOWER CASE ! 7167: < * CHARACCTERS TO ONE CONTAINING UPPER CASE CHARACTERS. ! 7168: < * FOLDING IS ONLY DONE IF &CASE (KVCAS) IS NOT ZERO. ! 7169: < * ! 7170: < * (XR) STRING ARGUMENT ! 7171: < * (WA) LENGTH OF STRING ! 7172: < * JSR FLSTG CALL TO FOLD STRING ! 7173: < * (XR) RESULT STRING (POSSIBLY ORIGINAL) ! 7174: < * (WC) DESTROYED ! 7175: < * ! 7176: < FLSTG PRC R,0 ENTRY POINT ! 7177: < BZE KVCAS,FST99 SKIP IF &CASE IS 0 ! 7178: < MOV XL,-(XS) SAVE XL ACROSS CALL ! 7179: < MOV XR,-(XS) SAVE ORIGINAL SCBLK PTR ! 7180: < JSR ALOCS ALLOCATE NEW STRING BLOCK ! 7181: < MOV (XS),XL POINT TO ORIGINAL SCBLK ! 7182: < MOV XR,-(XS) SAVE POINTER TO NEW SCBLK ! 7183: < PLC XL POINT TO ORIGINAL CHARS ! 7184: < PLC XR POINT TO NEW CHARS ! 7185: < ZER -(XS) INIT DID FOLD FLAG ! 7186: < LCT WC,WC LOAD LOOP COUNTER ! 7187: < FST01 LCH WA,(XL)+ LOAD CHARACTER ! 7188: < BGT =CH$$A,WA,FST02 SKIP IF LESS THAN LC A ! 7189: < BGT WA,=CH$$$,FST02 SKIP IF GREATER THAN LC Z ! 7190: ! 7191: ! 7192: ! 7193: ! 7194: ! 7195: ! 7196: ! 7197: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 110 ! 7198: ! 7199: ! 7200: < FLC WA FOLD CHARACTER TO UPPER CASE ! 7201: < MNZ (XS) SET DID FOLD CHARACTER FLAG ! 7202: < FST02 SCH WA,(XR)+ STORE (POSSIBLY FOLDED) CHARACTER ! 7203: < BCT WC,FST01 LOOP THRU ENTIRE STRING ! 7204: < CSC XR COMPLETE STORE CHARACTERS ! 7205: < BNZ (XS)+,FST10 SKIP IF FOLDING DONE ! 7206: < MOV (XS)+,DNAMP DO NOT NEED NEW SCBLK ! 7207: < MOV (XS)+,XR RETURN ORIGINAL SCBLK ! 7208: < BRN FST20 MERGE BELOW ! 7209: < FST10 MOV (XS)+,XR RETURN NEW SCBLK ! 7210: < ICA XS THROW AWAY ORIGINAL SCBLK POINTER ! 7211: < FST20 MOV SCLEN(XR),WA RELOAD STRING LENGTH ! 7212: < MOV (XS)+,XL RESTORE XL ! 7213: < FST99 EXI RETURN ! 7214: < ENP ! 7215: < EJC ! 7216: < .FI ! 7217: < * ! 7218: 16414c15106 ! 7219: < * ENTRY VALUE OF WB IS THE NUMBER OF BYTES TO MOVE UP. ! 7220: --- ! 7221: > * ENTRY VALUE OF WB IS THE NUMBER OF BAUS TO MOVE UP. ! 7222: 16549,16550c15241,15242 ! 7223: < * BYTES. SET TO THE ADDRESS OF THE ! 7224: < * FIRST BYTE WHILE ACTUALLY SCANNING ! 7225: --- ! 7226: > * BAUS. SET TO THE ADDRESS OF THE ! 7227: > * FIRST BAU WHILE ACTUALLY SCANNING ! 7228: 16570a15263,15265 ! 7229: > .IF .CEPP ! 7230: > BOD WA,GBC07 JUMP IF ENTRY POINTER (UNUSED) ! 7231: > .ELSE ! 7232: 16572a15268 ! 7233: > .FI ! 7234: 16578a15275,15277 ! 7235: > .IF .CEPP ! 7236: > BEV WA,GBC06 LOOP BACK IF NOT END OF CHAIN ! 7237: > .ELSE ! 7238: 16580a15280 ! 7239: > .FI ! 7240: 16603a15304,15306 ! 7241: > .IF .CEPP ! 7242: > BEV WA,GBC09 JUMP IF IN USE ! 7243: > .ELSE ! 7244: 16605a15309 ! 7245: > .FI ! 7246: 16672c15376 ! 7247: < ERB 250,INSUFFICIENT MEMORY TO COMPLETE DUMP ! 7248: --- ! 7249: > ERB 229,INSUFFICIENT MEMORY TO COMPLETE DUMP ! 7250: 16702a15407,15410 ! 7251: > .IF .CRPP ! 7252: > BOD XL,GPF02 JUMP IF NOT PTR INTO DYNAMIC AREA ! 7253: > .ELSE ! 7254: > .FI ! 7255: 16714a15423,15425 ! 7256: ! 7257: ! 7258: ! 7259: ! 7260: ! 7261: ! 7262: ! 7263: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 111 ! 7264: ! 7265: ! 7266: > .IF .CEPP ! 7267: > BOD WA,GPF03 JUMP IF NOT ALREADY PROCESSED ! 7268: > .ELSE ! 7269: 16716a15428 ! 7270: > .FI ! 7271: 16752a15465 ! 7272: > IFF BL$CO,GPF19 COBLK ! 7273: 16889a15603,15608 ! 7274: > * ! 7275: > * COBLK ! 7276: > * ! 7277: > GPF19 MOV *COSI$,WA SET LENGTH ! 7278: > MOV *CONXT,WB AND OFFSET ! 7279: > BRN GPF05 ALL SET ! 7280: 16890a15610,15611 ! 7281: > .IF .CNBF ! 7282: > .ELSE ! 7283: 16892a15614,15648 ! 7284: > * GTBUF -- GET BUFFER ! 7285: > * ! 7286: > * GTBUF IS PASSED AN OBJECT AND RETURNS A BUFFER IF ! 7287: > * POSSIBLE. UNLESS THE OBJECT IS ALREADY A BUFFER, ! 7288: > * THIS INVOLVES A CONVERSION TO STRING AND THEN ! 7289: > * STRING TO BUFFER. ! 7290: > * ! 7291: > * (XR) OBJECT TO BE CONVERTED ! 7292: > * JSR GTBUF CALL TO GET BUFFER ! 7293: > * PPM LOC TRANSFER LOC FOR CONVERT IMPOSSIBLE ! 7294: > * (XR) RESULTING BUFFER ! 7295: > * (XL,WA,WB,WC) DESTROYED ! 7296: > * ! 7297: > GTBUF PRC E,1 ENTRY POINT ! 7298: > BEQ (XR),=B$BCT,GTB01 EXIT IF ALREADY BUFFER ! 7299: > MOV XR,-(XS) STACK TO CONVERT TO STRING ! 7300: > JSR GTSTG CONVERT TO STRING ! 7301: > PPM GTB02 CONVERSION ERROR ! 7302: > MOV XR,XL SAVE STRING POINTER ! 7303: > JSR ALOBF ALLOCATE BUFFER OF SAME SIZE ! 7304: > JSR INSBF COPY IN THE STRING ! 7305: > PPM ALREADY STRING - CANT FAIL TO CNV ! 7306: > PPM MUST BE ENOUGH ROOM ! 7307: > * ! 7308: > * MERGE TO EXIT WITH BUFFER CONTROL BLK IN (XR) ! 7309: > * ! 7310: > GTB01 EXI RETURN TO CALLER ! 7311: > * ! 7312: > * HERE ON CONVERSION FAILURE ! 7313: > * ! 7314: > GTB02 EXI 1 TAKE FAILURE EXIT ! 7315: > ENP ! 7316: > .FI ! 7317: > EJC ! 7318: > * ! 7319: 16895c15651 ! 7320: < * GTARR IS PASSED AN OBJECT AND RETURNS AN ARRAY IF POSSIBL ! 7321: --- ! 7322: ! 7323: ! 7324: ! 7325: ! 7326: ! 7327: ! 7328: ! 7329: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 112 ! 7330: ! 7331: ! 7332: > * GTARR IS PASSED AN OBJECT AND RETURNS AN ARRAY IF POSSIBLE ! 7333: 16907c15663,15664 ! 7334: < BNE WA,=B$TBT,GTA9A ELSE FAIL IF NOT A TABLE (SGD02) ! 7335: --- ! 7336: > MOV XR,-(XS) PLACE POSSIBLE TBBLK PTR ON STACK ! 7337: > BNE WA,=B$TBT,GTAR9 ELSE FAIL IF NOT A TABLE ! 7338: 16911d15667 ! 7339: < MOV XR,-(XS) REPLACE TBBLK POINTER ON STACK ! 7340: 16973c15729 ! 7341: < WTB WA CONVERT LENGTH TO BYTES ! 7342: --- ! 7343: > WTB WA CONVERT LENGTH TO BAUS ! 7344: 17027,17031c15783,15784 ! 7345: < GTAR9 MOV (XS)+,XR RESTORE STACK FOR CONV ERR (SGD02) ! 7346: < * ! 7347: < * MERGE TO TAKE CONVERT ERROR WHEN STACK ADJUSTED OK ! 7348: < * ! 7349: < GTA9A EXI 1 RETURN ! 7350: --- ! 7351: > GTAR9 MOV (XS)+,XR CLEAR UP STACK ! 7352: > EXI 1 RETURN ! 7353: 17095,17099c15848,15852 ! 7354: < * CHECK THE LAST CHARACTER OF THE STRING FOR COLON OR ! 7355: < * SEMICOLON. THESE CHARACTERS CAN LEGITIMATELY END AN ! 7356: < * EXPRESSION IN OPEN CODE, SO EXPAN WILL NOT DETECT THEM ! 7357: < * AS ERRORS, BUT THEY ARE INVALID AS TERMINATORS FOR A ! 7358: < * STRING THAT IS BEING CONVERTED TO EXPRESSION FORM. ! 7359: --- ! 7360: > * CHECK THE LAST CHAR OF STRING FOR COLON OR ! 7361: > * SEMICOLON. THEY CAN LEGITIMATELY END AN EXPRESSION ! 7362: > * IN OPEN CODE, SO EXPAN WILL NOT FAIL THEM BUT THEY ARE ! 7363: > * INVALID AS TERMINATORS FOR A STRING WHICH IS TO BE ! 7364: > * CONVERTED TO EXPRESSION FORM. ! 7365: 17101,17105c15854,15858 ! 7366: < MOV XR,XL COPY INPUT STRING POINTER (REG06) ! 7367: < PLC XL,WA POINT ONE PAST THE STRING END (REG06) ! 7368: < LCH XL,-(XL) FETCH THE LAST CHARACTER (REG06) ! 7369: < BEQ XL,=CH$CL,GTEX2 ERROR IF IT IS A SEMICOLON (REG06) ! 7370: < BEQ XL,=CH$SM,GTEX2 OR IF IT IS A COLON (REG06) ! 7371: --- ! 7372: > MOV XR,XL COPY ARGUMENT STRING ! 7373: > PLC XL,WA POINT PAST STRING END ! 7374: > LCH XL,-(XL) GET LAST CHAR ! 7375: > BEQ XL,=CH$CL,GTEX2 FAIL IF COLON ! 7376: > BEQ XL,=CH$SM,GTEX2 FAIL IF SEMICOLON ! 7377: 17196c15949 ! 7378: < BEQ WA,=B$ICL,GTN34 JUMP IF INTEGER (NO CONVERSION) ! 7379: --- ! 7380: > BEQ WA,=B$ICL,GTN3A JUMP IF INTEGER (NO CONVERSION) ! 7381: 17199c15952 ! 7382: < BEQ WA,=B$RCL,GTN34 JUMP IF REAL (NO CONVERSION) ! 7383: --- ! 7384: > BEQ WA,=B$RCL,GTN3A JUMP IF REAL (NO CONVERSION) ! 7385: 17204a15958 ! 7386: > STI GTNSV SAVE IA ! 7387: 17357,17359c16111,16113 ! 7388: ! 7389: ! 7390: ! 7391: ! 7392: ! 7393: ! 7394: ! 7395: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 113 ! 7396: ! 7397: ! 7398: < .IF .CULC ! 7399: < BEQ WB,=CH$$E,GTN15 JUMP IF E FOR EXPONENT ! 7400: < BEQ WB,=CH$$D,GTN15 JUMP IF D FOR EXPONENT ! 7401: --- ! 7402: > .IF .CASL ! 7403: > BEQ WB,=CH$$E,GTN15 JUMP FOR EXPT ! 7404: > BEQ WB,=CH$$D,GTN15 JUMP FOR EXPT ! 7405: 17462c16216 ! 7406: < WTB WA CONVERT REMAINING SCALE TO BYTE OFS ! 7407: --- ! 7408: > WTB WA CONVERT REMAINING SCALE TO BAU OFS ! 7409: 17490c16244 ! 7410: < WTB WA CONVERT REMAINING SCALE TO BYTE OFS ! 7411: --- ! 7412: > WTB WA CONVERT REMAINING SCALE TO BAU OFS ! 7413: 17524c16278,16279 ! 7414: < GTN34 EXI RETURN TO GTNUM CALLER ! 7415: --- ! 7416: > GTN34 LDI GTNSV RECOVER IA ! 7417: > GTN3A EXI RETURN TO GTNUM CALLER ! 7418: 17538a16294 ! 7419: > LDI GTNSV RECOVER IA ! 7420: 17552d16307 ! 7421: < * (WA,WB) DESTROYED (CONVERSION ERROR ONLY) ! 7422: 17558a16314 ! 7423: > BRN GNV01 FAIL ! 7424: 17559a16316,16320 ! 7425: > * RESTORE REGS AND FAIL ! 7426: > * ! 7427: > GNV00 MOV GNVSA,WA RESTORE REGS ! 7428: > MOV GNVSB,WB ! 7429: > * ! 7430: 17570,17574c16331,16332 ! 7431: < PPM GNV01 JUMP IF CONVERSION ERROR ! 7432: < BZE WA,GNV01 NULL STRING IS AN ERROR ! 7433: < .IF .CULC ! 7434: < JSR FLSTG FOLD LOWER CASE TO UPPER CASE ! 7435: < .FI ! 7436: --- ! 7437: > PPM GNV00 JUMP IF CONVERSION ERROR ! 7438: > BZE WA,GNV00 NULL STRING IS AN ERROR ! 7439: 17575a16334,16339 ! 7440: > .IF .CASL ! 7441: > MOV XR,XL COPY STRING POINTER ! 7442: > ZER WB ZERO OFFSET ! 7443: > JSR SBSTG CONVERT TO PREFERRED CASE ! 7444: > MOV SCLEN(XR),WA RECOVER STRING LENGTH ! 7445: > .FI ! 7446: 17586c16350 ! 7447: < WTB WC CONVERT OFFSET TO BYTES ! 7448: --- ! 7449: > WTB WC CONVERT OFFSET TO BAUS ! 7450: 17635c16399 ! 7451: < WTB XL CONVERT TO BYTE OFFSET ! 7452: --- ! 7453: > WTB XL CONVERT TO BAU OFFSET ! 7454: ! 7455: ! 7456: ! 7457: ! 7458: ! 7459: ! 7460: ! 7461: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 114 ! 7462: ! 7463: ! 7464: 17687c16451 ! 7465: < WTB WA CONVERT LENGTH TO BYTES ! 7466: --- ! 7467: > WTB WA CONVERT LENGTH TO BAUS ! 7468: 17703c16467 ! 7469: < WTB WA CONVERT TO LENGTH IN BYTES ! 7470: --- ! 7471: > WTB WA CONVERT TO LENGTH IN BAUS ! 7472: 17826c16590 ! 7473: < * MERGE HERE TO EXIT OF NO CONVERSION REQUIRED ! 7474: --- ! 7475: > * MERGE HERE TO EXIT IF NO CONVERSION REQUIRED ! 7476: 17901c16665 ! 7477: < BGT WC,MXLEN,GTSM3 OR IF TOO SMALL ! 7478: --- ! 7479: > BGT WC,MXLEN,GTSM3 OR IF TOO LARGE ! 7480: 17979c16743 ! 7481: < .IF .CNCI ! 7482: --- ! 7483: > .IF .CSCI ! 7484: 18008d16771 ! 7485: < .FI ! 7486: 18023a16787 ! 7487: > .FI ! 7488: 18181a16946,16948 ! 7489: > .IF .CPLC ! 7490: > MOV =CH$$E,WA GET CHAR LETTER E ! 7491: > .ELSE ! 7492: 18182a16950 ! 7493: > .FI ! 7494: 18265c17033 ! 7495: < MOV BCBUF(XL),XL POINT TO BFBLK ! 7496: --- ! 7497: > MOV BCBUF(XL),XL POINT TOBFBLK ! 7498: 18326c17094 ! 7499: < * HASHS IS USED TO CONVERT A STRING TO A UNIQUE INTEGER ! 7500: --- ! 7501: > * HASHS REPRODUCIBLY MAPS A STRING TO AN INTEGER ! 7502: 18337c17105 ! 7503: < * START WITH THE LENGTH OF THE STRING (SGD07) ! 7504: --- ! 7505: > * START WITH THE LENGTH OF THE STRING ! 7506: 18383,18384c17151,17154 ! 7507: < MFI XR,ICBL1 COPY SMALL INTEGERS ! 7508: < BLE XR,=NUM02,ICBL3 JUMP IF 0,1 OR 2 ! 7509: --- ! 7510: > ILT ICBL1 SKIP IF NEGATIVE ! 7511: > SBI INTV2 REDUCE BY TWO ! 7512: > ILE ICBL3 JUMP IF 0 , 1 OR 2 ! 7513: > ADI INTV2 RESTORE VALUE ! 7514: 18405c17175,17177 ! 7515: < ICBL3 WTB XR CONVERT INTEGER TO OFFSET ! 7516: --- ! 7517: > ICBL3 ADI INTV2 RESTORE VALUE ! 7518: > MFI XR CONVERT TO SHORT INTEGER ! 7519: > WTB XR CONVERT INTEGER TO OFFSET ! 7520: ! 7521: ! 7522: ! 7523: ! 7524: ! 7525: ! 7526: ! 7527: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 115 ! 7528: ! 7529: ! 7530: 18503c17275 ! 7531: < * INOUT - USED TO INITIALISE INPUT AND OUTPUT VARIABLES ! 7532: --- ! 7533: > * INOUT - USED TO INITIALISE .INPUT .OUTPUT .TERMINAL ! 7534: 18506c17278 ! 7535: < * (WB) TRBLK TYPE ! 7536: --- ! 7537: > * (WB) TRBLK TYPE (TRTYP FIELD) ! 7538: 18508,18509d17279 ! 7539: < * (XL) VRBLK PTR ! 7540: < * (XR) TRBLK PTR ! 7541: 18521c17291 ! 7542: < JSR GTNVR BUILD VRBLK ! 7543: --- ! 7544: > JSR GTNVR FIND OR BUILD VRBLK ! 7545: 18524,18525c17294,17296 ! 7546: < MOV (XS)+,WB GET TRTER FIELD ! 7547: < ZER XL ZERO TRFPT ! 7548: --- ! 7549: > MOV (XS)+,WB GET TRTYP FIELD ! 7550: > ZER XL ZERO TRTRI ! 7551: > MOV VRSVP(XR),XR GET SVBLK POINTER ! 7552: 18528,18531c17299,17301 ! 7553: < MOV VRSVP(XL),TRTER(XR) STORE SVBLK POINTER ! 7554: < MOV XR,VRVAL(XL) STORE TRBLK PTR IN VRBLK ! 7555: < MOV =B$VRA,VRGET(XL) SET TRAPPED ACCESS ! 7556: < MOV =B$VRV,VRSTO(XL) SET TRAPPED STORE ! 7557: --- ! 7558: > MOV *VRVAL,WA OFFSET TO VALUE FIELD ! 7559: > JSR TRCHN PUT TRBLK IN TRACE CHAIN ! 7560: > PPM CANT FAIL ! 7561: 18542,18543c17312,17313 ! 7562: < * SECTION TO BE REPLACED IS DIFFERENT THAN THE LENGTH OF ! 7563: < * THE GIVEN STRING, AND THE REPLACEMENT IS NOT AN APPEND, ! 7564: --- ! 7565: > * SECTION TO BE REPLACED DIFFERS FROM THAT OF THE ! 7566: > * GIVEN STRING, AND THE REPLACEMENT IS NOT AN APPEND, ! 7567: 18547,18548c17317,17318 ! 7568: < * (XR) POINTER TO BFBLK ! 7569: < * (XL) OBJECT WHICH IS STRING CONVERTABLE ! 7570: --- ! 7571: > * (XR) POINTER TO BCBLK ! 7572: > * (XL) OBJECT WHICH IS STRING CONVERTIBLE ! 7573: 18552,18553c17322,17324 ! 7574: < * PPM LOC THREAD IF (XR) NOT CONVERTABLE ! 7575: < * PPM LOC THREAD IF INSERT NOT POSSIBLE ! 7576: --- ! 7577: > * PPM LOC ERROR IF (XR) NOT CONVERTIBLE ! 7578: > * PPM LOC FAIL IF INSERT NOT POSSIBLE ! 7579: > * (XL,WA,WB,WC) DESTROYED ! 7580: 18562d17332 ! 7581: < MOV WC,INSSC SAVE ENTRY WC ! 7582: 18568d17337 ! 7583: < MOV XL,-(XS) SAVE ENTRY XL ! 7584: 18570c17339 ! 7585: < MOV XL,-(XS) STACK AGAIN FOR GTSTG ! 7586: ! 7587: ! 7588: ! 7589: ! 7590: ! 7591: ! 7592: ! 7593: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 116 ! 7594: ! 7595: ! 7596: --- ! 7597: > MOV XL,-(XS) STACK STRING POINTER FOR GTSTG ! 7598: 18572c17341 ! 7599: < PPM INS05 TAKE STRING CONVERT ERR EXIT ! 7600: --- ! 7601: > PPM INS06 TAKE STRING CONVERT ERR EXIT ! 7602: 18574c17343,17346 ! 7603: < MOV (XS),XR RESTORE BCBLK PTR ! 7604: --- ! 7605: > MOV (XS)+,XR RESTORE BCBLK PTR ! 7606: > MOV XR,INSBC BCBLK PTR - NO DANGER OF GARB COLLN ! 7607: > MOV BCBUF(XR),XR POINT TO BFBLK ! 7608: > MOV XR,INSBB BFBLK PTR - NO DANGER OF GARB COLLN ! 7609: 18577,18579c17349,17350 ! 7610: < MOV BCBUF(XR),XR POINT TO BFBLK ! 7611: < BGT WA,BFALC(XR),INS06 FAIL IF RESULT EXCEEDS ALLOCATION ! 7612: < MOV (XS),XR RESTORE BCBLK PTR ! 7613: --- ! 7614: > BGT WA,BFALC(XR),INS07 FAIL IF RESULT EXCEEDS ALLOCATION ! 7615: > MOV INSBC,XR RESTORE BCBLK PTR ! 7616: 18586,18588c17357 ! 7617: < BZE WA,INS04 SKIP SHIFT IF NOTHING TO DO ! 7618: < BEQ INSSB,SCLEN(XL),INS04 SKIP SHIFT IF LENGTHS MATCH ! 7619: < MOV BCBUF(XR),XR POINT TO BFBLK ! 7620: --- ! 7621: > MOV INSBB,XR POINT TO BFBLK ! 7622: 18590c17359,17361 ! 7623: < BLO INSSB,SCLEN(XL),INS01 BRN IF SHFT IS FOR MORE ROOM ! 7624: --- ! 7625: > BZE WA,INS02 SKIP SHIFT IF NOTHING TO DO ! 7626: > BEQ INSSB,SCLEN(XL),INS02 SKIP SHIFT IF LENGTHS MATCH ! 7627: > BLO INSSB,SCLEN(XL),INS01 BRN IF SHIFT IS FOR MORE ROOM ! 7628: 18597c17368 ! 7629: < * SEGMENT BEING REPLACED.) REGISTERS ARE SET AS: ! 7630: --- ! 7631: > * SEGMENT BEING REPLACED). REGISTERS ARE SET AS - ! 7632: 18622c17393 ! 7633: < * MERGE HERE AFTER MOVE TO ADJUST PADDING AT NEW BUFFER END ! 7634: --- ! 7635: > * MERGE HERE AFTER POSSIBLE MOVE TO ADJUST ZERO FILL AT END ! 7636: 18626a17398 ! 7637: > BTC WA CONVERT TO CHAR COUNT ! 7638: 18629,18630c17401 ! 7639: < MOV (XS),XR GET BCBLK PTR ! 7640: < MOV BCBUF(XR),XR GET BFBLK PTR ! 7641: --- ! 7642: > MOV INSBB,XR POINT TO BFBLK ! 7643: 18633a17405 ! 7644: > EJC ! 7645: 18634a17407,17408 ! 7646: > * INSBF (CONTINUED) ! 7647: > * ! 7648: 18639d17412 ! 7649: < EJC ! 7650: 18641,18642d17413 ! 7651: < * INSBF (CONTINUED) ! 7652: ! 7653: ! 7654: ! 7655: ! 7656: ! 7657: ! 7658: ! 7659: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 117 ! 7660: ! 7661: ! 7662: < * ! 7663: 18646,18647c17417 ! 7664: < INS04 MOV (XS),XR GET BCBLK PTR ! 7665: < MOV BCBUF(XR),XR GET BFBLK PTR ! 7666: --- ! 7667: > INS04 MOV INSBB,XR POINT TO BFBLK ! 7668: 18648a17419 ! 7669: > BZE WA,INS05 SKIP IF NO CHARS TO INSERT ! 7670: 18652,18656c17423,17427 ! 7671: < MOV (XS)+,XR RESTORE ENTRY XR ! 7672: < MOV (XS)+,XL RESTORE ENTRY XL ! 7673: < MOV INSSA,WA RESTORE ENTRY WA ! 7674: < MOV INSSB,WB RESTORE ENTRY WB ! 7675: < MOV INSSC,WC RESTORE ENTRY WC ! 7676: --- ! 7677: > * ! 7678: > * SUCCESSFUL RETURN ! 7679: > * ! 7680: > INS05 MOV INSBC,XR RESTORE ENTRY XR ! 7681: > ZER XL CLEAR GARBAGE CHAR POINTER ! 7682: 18661,18665c17432 ! 7683: < INS05 MOV (XS)+,XR RESTORE ENTRY XR ! 7684: < MOV (XS)+,XL RESTORE ENTRY XL ! 7685: < MOV INSSA,WA RESTORE ENTRY WA ! 7686: < MOV INSSB,WB RESTORE ENTRY WB ! 7687: < MOV INSSC,WC RESTORE ENTRY WC ! 7688: --- ! 7689: > INS06 ICA XS DISCARD UNWANTED STACK TOP ! 7690: 18670,18678c17437 ! 7691: < INS06 MOV (XS)+,XR RESTORE ENTRY XR ! 7692: < MOV (XS)+,XL RESTORE ENTRY XL ! 7693: < * ! 7694: < * MERGE FOR LENGTH FAILURE EXIT WITH STACK SET ! 7695: < * ! 7696: < INS07 MOV INSSA,WA RESTORE ENTRY WA ! 7697: < MOV INSSB,WB RESTORE ENTRY WB ! 7698: < MOV INSSC,WC RESTORE ENTRY WC ! 7699: < EXI 2 ALTERNATE EXIT ! 7700: --- ! 7701: > INS07 EXI 2 ALTERNATE EXIT ! 7702: 18681a17441 ! 7703: > * IOFTG -- GET IOTAG ! 7704: 18683c17443,17444 ! 7705: < * IOFCB -- GET INPUT/OUTPUT FCBLK POINTER ! 7706: --- ! 7707: > * USED TO FIND THE IOTAG (IF ANY) CORRESPONDING TO THE ! 7708: > * FILETAG ARGUMENT. ! 7709: 18685,18691c17446,17448 ! 7710: < * USED BY ENDFILE, EJECT AND REWIND TO FIND THE FCBLK ! 7711: < * (IF ANY) CORRESPONDING TO THEIR ARGUMENT. ! 7712: < * ! 7713: < * -(XS) ARGUMENT ! 7714: < * JSR IOFCB CALL TO FIND FCBLK ! 7715: < * PPM LOC ARG IS AN UNSUITABLE NAME ! 7716: < * PPM LOC ARG IS NULL STRING ! 7717: --- ! 7718: ! 7719: ! 7720: ! 7721: ! 7722: ! 7723: ! 7724: ! 7725: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 118 ! 7726: ! 7727: ! 7728: > * -(XS) FILETAG ARGUMENT ! 7729: > * JSR IOFTG CALL TO FIND IOTAG ! 7730: > * PPM LOC ARG IS AN UNSUITABLE FILETAG ! 7731: 18693,18696c17450,17454 ! 7732: < * (XL) PTR TO FILEARG1 VRBLK ! 7733: < * (XR) ARGUMENT ! 7734: < * (WA) FCBLK PTR OR 0 ! 7735: < * (WB) DESTROYED ! 7736: --- ! 7737: > * (XL) PTR TO FILETAG SCBLK ! 7738: > * (XR) PTR TO TRTIO TRACE BLK OR ZERO ! 7739: > * (WA) IOTAG OR ZERO ! 7740: > * (WB) PTR TO FILETAG VRBLK ! 7741: > * (WC) VALUE/0 FOR INTEGER/STRING FILETAG ! 7742: 18698c17456 ! 7743: < IOFCB PRC N,2 ENTRY POINT ! 7744: --- ! 7745: > IOFTG PRC N,1 ENTRY POINT ! 7746: 18700c17458 ! 7747: < PPM IOFC2 FAIL ! 7748: --- ! 7749: > PPM IOFT4 FAIL ! 7750: 18702,18705c17460,17474 ! 7751: < JSR GTNVR GET AS NATURAL VARIABLE ! 7752: < PPM IOFC3 FAIL IF NULL ! 7753: < MOV XL,WB COPY STRING POINTER AGAIN ! 7754: < MOV XR,XL COPY VRBLK PTR FOR RETURN ! 7755: --- ! 7756: > MOV XR,-(XS) STACK STRING ! 7757: > JSR GTSMI TRY CONVERSION TO INTEGER ! 7758: > PPM IOFT5 SKIP IF CANT ! 7759: > PPM IOFT5 SKIP IF CANT ! 7760: > * ! 7761: > * MERGE WITH WC SET UP ! 7762: > * ! 7763: > IOFT1 MOV WC,WB KEEP INTEGER OR ZERO ! 7764: > MOV XL,XR FILETAG STRING TO XR FOR GTNVR CALL ! 7765: > JSR GTNVR FIND VRBLK ! 7766: > PPM IOFT4 SKIP IF NULL STRING ! 7767: > MOV XL,-(XS) KEEP SCBLK PTR ! 7768: > ZER XL IN CASE NO TRTIO BLK FOUND ! 7769: > MOV WB,WC KEEP INTEGER OR ZERO ! 7770: > MOV XR,WB COPY VRBLK PTR FOR RETURN ! 7771: 18710,18715c17479,17483 ! 7772: < IOFC1 MOV VRVAL(XR),XR GET POSSIBLE TRBLK PTR ! 7773: < BNE (XR),=B$TRT,IOFC2 FAIL IF END OF CHAIN ! 7774: < BNE TRTYP(XR),=TRTFC,IOFC1 LOOP IF NOT FILE ARG TRBLK ! 7775: < MOV TRFPT(XR),WA GET FCBLK PTR ! 7776: < MOV WB,XR COPY ARG ! 7777: < EXI RETURN ! 7778: --- ! 7779: > IOFT2 MOV VRVAL(XR),XR GET POSSIBLE TRBLK PTR ! 7780: > BNE (XR),=B$TRT,IOFT3 SKIP IF END OF CHAIN ! 7781: > BNE TRTYP(XR),=TRTIO,IOFT2 LOOP IF NOT FILETAG TRBLK ! 7782: > MOV TRTAG(XR),WA GET IOTAG OR 0 ! 7783: > MOV XR,XL TRTIO BLK PTR ! 7784: ! 7785: ! 7786: ! 7787: ! 7788: ! 7789: ! 7790: ! 7791: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 119 ! 7792: ! 7793: ! 7794: 18717c17485 ! 7795: < * FAIL RETURN ! 7796: --- ! 7797: > * RETURN POINT ! 7798: 18719c17487,17489 ! 7799: < IOFC2 EXI 1 FAIL ! 7800: --- ! 7801: > IOFT3 MOV XL,XR TRTIO BLK PTR OR 0 ! 7802: > MOV (XS)+,XL RECOVER SCBLK PTR ! 7803: > EXI SUCCESSFUL RETURN ! 7804: 18721c17491 ! 7805: < * NULL ARG ! 7806: --- ! 7807: > * FAIL RETURN ! 7808: 18723,18724c17493 ! 7809: < IOFC3 EXI 2 NULL ARG RETURN ! 7810: < ENP END PROCEDURE IOFCB ! 7811: --- ! 7812: > IOFT4 EXI 1 FAIL ! 7813: 18727c17496 ! 7814: < * IOPPF -- PROCESS FILEARG2 FOR IOPUT ! 7815: --- ! 7816: > * NON NUMERIC FILETAG ! 7817: 18729,18755c17498,17500 ! 7818: < * (R$XSC) FILEARG2 PTR ! 7819: < * JSR IOPPF CALL TO PROCESS FILEARG2 ! 7820: < * (XL) FILEARG1 PTR ! 7821: < * (XR) FILE ARG2 PTR ! 7822: < * -(XS)..-(XS) FIELDS EXTRACTED FROM FILEARG2 ! 7823: < * (WC) NO. OF FIELDS EXTRACTED ! 7824: < * (WB) INPUT/OUTPUT FLAG ! 7825: < * (WA) FCBLK PTR OR 0 ! 7826: < * ! 7827: < IOPPF PRC N,0 ENTRY POINT ! 7828: < ZER WB TO COUNT FIELDS EXTRACTED ! 7829: < * ! 7830: < * LOOP TO EXTRACT FIELDS ! 7831: < * ! 7832: < IOPP1 MOV =IODEL,XL GET DELIMITER ! 7833: < MOV XL,WC COPY IT ! 7834: < JSR XSCAN GET NEXT FIELD ! 7835: < MOV XR,-(XS) STACK IT ! 7836: < ICV WB INCREMENT COUNT ! 7837: < BNZ WA,IOPP1 LOOP ! 7838: < MOV WB,WC COUNT OF FIELDS ! 7839: < MOV IOPTT,WB I/O MARKER ! 7840: < MOV R$IOF,WA FCBLK PTR OR 0 ! 7841: < MOV R$IO2,XR FILE ARG2 PTR ! 7842: < MOV R$IO1,XL FILEARG1 ! 7843: < EXI RETURN ! 7844: < ENP END PROCEDURE IOPPF ! 7845: --- ! 7846: > IOFT5 ZER WC NOTE NON NUMERIC ! 7847: > BRN IOFT1 MERGE ! 7848: > ENP END PROCEDURE IOFTG ! 7849: 18758c17503 ! 7850: ! 7851: ! 7852: ! 7853: ! 7854: ! 7855: ! 7856: ! 7857: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 120 ! 7858: ! 7859: ! 7860: < * IOPUT -- ROUTINE USED BY INPUT AND OUTPUT ! 7861: --- ! 7862: > * IOPUT -- PROCESS INPUT AND OUTPUT ARGUMENTS ! 7863: 18760,18763c17505,17507 ! 7864: < * IOPUT SETS UP INPUT/OUTPUT ASSOCIATIONS. IT BUILDS ! 7865: < * SUCH TRACE AND FILE CONTROL BLOCKS AS ARE NECESSARY AND ! 7866: < * CALLS SYSFC,SYSIO TO PERFORM CHECKS ON THE ! 7867: < * ARGUMENTS AND TO OPEN THE FILES. ! 7868: --- ! 7869: > * IOPUT CHECKS THE ARGUMENTS OF INPUT AND OUTPUT CALLS, ! 7870: > * SETS UP THE REQUIRED ASSOCIATIONS AND CALLS SYSIO TO ! 7871: > * OPEN THE REQUESTED FILES. ! 7872: 18765,18820d17508 ! 7873: < * +-----------+ +---------------+ +-----------+ ! 7874: < * +-.I I I I------.I =B$XRT I ! 7875: < * I +-----------+ +---------------+ +-----------+ ! 7876: < * I / / (R$FCB) I *4 I ! 7877: < * I / / +-----------+ ! 7878: < * I +-----------+ +---------------+ I I- ! 7879: < * I I NAME +--.I =B$TRT I +-----------+ ! 7880: < * I / / +---------------+ I I ! 7881: < * I (FIRST ARG) I =TRTIN/=TRTOU I +-----------+ ! 7882: < * I +---------------+ I ! 7883: < * I I VALUE I I ! 7884: < * I +---------------+ I ! 7885: < * I I(TRTRF) 0 OR I--+ I ! 7886: < * I +---------------+ I I ! 7887: < * I I(TRFPT) 0 OR I----+ I ! 7888: < * I +---------------+ I I I ! 7889: < * I (I/O TRBLK) I I I ! 7890: < * I +-----------+ I I I ! 7891: < * I I I I I I ! 7892: < * I +-----------+ I I I ! 7893: < * I I I I I I ! 7894: < * I +-----------+ +---------------+ I I I ! 7895: < * I I +--.I =B$TRT I.-+ I I ! 7896: < * I +-----------+ +---------------+ I I ! 7897: < * I / / I =TRTFC I I I ! 7898: < * I / / +---------------+ I I ! 7899: < * I (FILEARG1 I VALUE I I I ! 7900: < * I VRBLK) +---------------+ I I ! 7901: < * I I(TRTRF) 0 OR I--+ I . ! 7902: < * I +---------------+ I . +-----------+ ! 7903: < * I I(TRFPT) 0 OR I------./ FCBLK / ! 7904: < * I +---------------+ I +-----------+ ! 7905: < * I (TRTRF) I ! 7906: < * I I ! 7907: < * I I ! 7908: < * I +---------------+ I ! 7909: < * I I =B$XRT I.-+ ! 7910: < * I +---------------+ ! 7911: < * I I *5 I ! 7912: < * I +---------------+ ! 7913: < * +------------------I I ! 7914: < * +---------------+ +-----------+ ! 7915: < * I(TRTRF) O OR I------.I =B$XRT I ! 7916: ! 7917: ! 7918: ! 7919: ! 7920: ! 7921: ! 7922: ! 7923: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 121 ! 7924: ! 7925: ! 7926: < * +---------------+ +-----------+ ! 7927: < * I NAME OFFSET I I ETC I ! 7928: < * +---------------+ ! 7929: < * (IOCHN - CHAIN OF NAME POINTERS) ! 7930: < EJC ! 7931: < * ! 7932: < * IOPUT (CONTINUED) ! 7933: < * ! 7934: < * NO ADDITIONAL TRAP BLOCKS ARE USED FOR STANDARD INPUT/OUT ! 7935: < * FILES. OTHERWISE AN I/O TRAP BLOCK IS ATTACHED TO SECOND ! 7936: < * ARG (FILEARG1) VRBLK. SEE DIAGRAM ABOVE FOR DETAILS OF ! 7937: < * THE STRUCTURE BUILT. ! 7938: < * ! 7939: 18822,18824c17510,17512 ! 7940: < * -(XS) 2ND ARG (FILE ARG1) ! 7941: < * -(XS) 3RD ARG (FILE ARG2) ! 7942: < * (WB) 0 FOR INPUT, 3 FOR OUTPUT ASSOC. ! 7943: --- ! 7944: > * -(XS) 2ND ARG (FILETAG) ! 7945: > * -(XS) 3RD ARG (FILEPROPS) ! 7946: > * (WB) 0 FOR INPUT, 2 FOR OUTPUT ASSOC. ! 7947: 18827c17515 ! 7948: < * PPM LOC 2ND ARG NOT A SUITABLE NAME ! 7949: --- ! 7950: > * PPM LOC 2ND ARG NOT A SUITABLE FILETAG ! 7951: 18829,18831c17517 ! 7952: < * PPM LOC INAPPROPRIATE FILE SPEC FOR I/O ! 7953: < * PPM LOC I/O FILE DOES NOT EXIST ! 7954: < * PPM LOC I/O FILE CANNOT BE READ/WRITTEN ! 7955: --- ! 7956: > * PPM LOC FAIL RETURN ! 7957: 18835,18858d17520 ! 7958: < IOPUT PRC N,6 ENTRY POINT ! 7959: < ZER R$IOT IN CASE NO TRTRF BLOCK USED ! 7960: < ZER R$IOF IN CASE NO FCBLK ALOCATED ! 7961: < MOV WB,IOPTT STORE I/O TRACE TYPE ! 7962: < JSR XSCNI PREPARE TO SCAN FILEARG2 ! 7963: < PPM IOP13 FAIL ! 7964: < PPM IOPA0 NULL FILE ARG2 ! 7965: < * ! 7966: < IOPA0 MOV XR,R$IO2 KEEP FILE ARG2 ! 7967: < MOV WA,XL COPY LENGTH ! 7968: < JSR GTSTG CONVERT FILEARG1 TO STRING ! 7969: < PPM IOP14 FAIL ! 7970: < MOV XR,R$IO1 KEEP FILEARG1 PTR ! 7971: < JSR GTNVR CONVERT TO NATURAL VARIABLE ! 7972: < PPM IOP00 JUMP IF NULL ! 7973: < BRN IOP04 JUMP TO PROCESS NON-NULL ARGS ! 7974: < * ! 7975: < * NULL FILEARG1 ! 7976: < * ! 7977: < IOP00 BZE XL,IOP01 SKIP IF BOTH ARGS NULL ! 7978: < JSR IOPPF PROCESS FILEARG2 ! 7979: < JSR SYSFC CALL FOR FILEARG2 CHECK ! 7980: < PPM IOP16 FAIL ! 7981: < BRN IOP11 COMPLETE FILE ASSOCIATION ! 7982: ! 7983: ! 7984: ! 7985: ! 7986: ! 7987: ! 7988: ! 7989: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 122 ! 7990: ! 7991: ! 7992: 18859a17522,17538 ! 7993: > * FIRST ARG NAME ! 7994: > * I I ! 7995: > * +------+ ! 7996: > * I I-----+ ! 7997: > * +------+ V ! 7998: > * I I +----------------+ ! 7999: > * I =B$TRT I ! 8000: > * +----------------+ ! 8001: > * I =TRTIN/=TRTOU I ! 8002: > * +----------------+ ! 8003: > * I VALUE OR TRCHN + ! 8004: > * +----------------+ ! 8005: > * TRTER I I-----+ ! 8006: > * +----------------+ V ! 8007: > * TRTRI I 0 I +------+ ! 8008: > * +----------------+ I I SVBLK ! 8009: > * I/O TRACE BLOCK +------+ ! 8010: 18861c17540 ! 8011: < * IOPUT (CONTINUED) ! 8012: --- ! 8013: > * 1. ASSOCIATION TO STANDARD FILES. ! 8014: 18863c17542,17558 ! 8015: < * HERE WITH 0 OR FCBLK PTR IN (XL) ! 8016: --- ! 8017: > * FIRST ARG NAME FILETAG VRBLK ! 8018: > * I I I I ! 8019: > * +------+ LK1 +------+ LK2 ! 8020: > * I I---+ +---+ I I---+ ! 8021: > * +------+ V I V +------+ V ! 8022: > * I I +----------------+ I +----------------+ ! 8023: > * I =B$TRT I I I =B$TRT I ! 8024: > * +----------------+ I +----------------+ ! 8025: > * I =TRTIN/=TRTOU I I I =TRTIO I ! 8026: > * +----------------+ I +----------------+ ! 8027: > * I VALUE OR TRCHN I I I VALUE OR TRCHN I ! 8028: > * +----------------+ I +----------------+ ! 8029: > * TRTER I 0 I I I 0 OR IOTAG I TRTAG ! 8030: > * +----------------+ I +----------------+ ! 8031: > * TRTRI I I--+ I 0 I TRTRI ! 8032: > * +----------------+ +----------------+ ! 8033: > * I/O TRACE BLOCK TRTIO BLOCK ! 8034: 18865,18875c17560 ! 8035: < IOP01 MOV IOPTT,WB GET TRACE TYPE ! 8036: < MOV R$IOT,XR GET 0 OR TRTRF PTR ! 8037: < JSR TRBLD BUILD TRBLK ! 8038: < MOV XR,WC COPY TRBLK POINTER ! 8039: < MOV (XS)+,XR GET VARIABLE FROM STACK ! 8040: < JSR GTVAR POINT TO VARIABLE ! 8041: < PPM IOP15 FAIL ! 8042: < MOV XL,R$ION SAVE NAME POINTER ! 8043: < MOV XL,XR COPY NAME POINTER ! 8044: < ADD WA,XR POINT TO VARIABLE ! 8045: < SUB *VRVAL,XR SUBTRACT OFFSET,MERGE INTO LOOP ! 8046: --- ! 8047: > * 2. REGULAR CASE. ! 8048: ! 8049: ! 8050: ! 8051: ! 8052: ! 8053: ! 8054: ! 8055: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 123 ! 8056: ! 8057: ! 8058: 18877,18902c17562,17579 ! 8059: < * LOOP TO END OF TRBLK CHAIN IF ANY ! 8060: < * ! 8061: < IOP02 MOV XR,XL COPY BLK PTR ! 8062: < MOV VRVAL(XR),XR LOAD PTR TO NEXT TRBLK ! 8063: < BNE (XR),=B$TRT,IOP03 JUMP IF NOT TRAPPED ! 8064: < BNE TRTYP(XR),IOPTT,IOP02 LOOP IF NOT SAME ASSOCN ! 8065: < MOV TRNXT(XR),XR GET VALUE AND DELETE OLD TRBLK ! 8066: < * ! 8067: < * IOPUT (CONTINUED) ! 8068: < * ! 8069: < * STORE NEW ASSOCIATION ! 8070: < * ! 8071: < IOP03 MOV WC,VRVAL(XL) LINK TO THIS TRBLK ! 8072: < MOV WC,XL COPY POINTER ! 8073: < MOV XR,TRNXT(XL) STORE VALUE IN TRBLK ! 8074: < MOV R$ION,XR RESTORE POSSIBLE VRBLK POINTER ! 8075: < MOV WA,WB KEEP OFFSET TO NAME ! 8076: < JSR SETVR IF VRBLK, SET VRGET,VRSTO ! 8077: < MOV R$IOT,XR GET 0 OR TRTRF PTR ! 8078: < BNZ XR,IOP19 JUMP IF TRTRF BLOCK EXISTS ! 8079: < EXI RETURN TO CALLER ! 8080: < * ! 8081: < * NON STANDARD FILE ! 8082: < * SEE IF AN FCBLK HAS ALREADY BEEN ALLOCATED. ! 8083: < * ! 8084: < IOP04 ZER WA IN CASE NO FCBLK FOUND ! 8085: --- ! 8086: > * THE STRUCTURES BUILT FOR I/O ASSOCIATIONS ARE AS SHOWN ! 8087: > * ABOVE. A TRACE BLOCK CHAIN (TRCHN) MAY HOLD ANY OR ALL ! 8088: > * OF THE TYPES, =TRTIN, =TRTOU, =TRTIO, BUT NOT MORE THAN ! 8089: > * ONE BLOCK OF ANY GIVEN TYPE. CASES ARE - ! 8090: > * 1. NO FILETAG OR IOTAG IS USED FOR ASSOCIATING STANDARD ! 8091: > * FILES (SYSRD, SYSPR, TERMINAL). THE I/O TRACE BLOCK ! 8092: > * IS DISTINGUISHED BY A NON-NULL TRTER FIELD POINTING ! 8093: > * TO THE RELEVANT SVBLK (V$INP, V$OUP, V$TER) AND A ! 8094: > * ZERO TRTRI FIELD. FOR TERMINAL, TRBLKS OF BOTH ! 8095: > * INPUT AND OUTPUT TYPE ARE CHAINED FROM THE FIRST ARG ! 8096: > * VIA THE TRCHN FIELD. ! 8097: > * 2. THE I/O TRACE BLOCK FOR THE REGULAR CASE HAS A ZERO ! 8098: > * TRTER FIELD AND A POINTER TO A TRTIO BLOCK IS IN ! 8099: > * THE TRTRI FIELD. THE FILETAG MUST BE A NATURAL ! 8100: > * VARIABLE AND THE TRTIO TRACE BLOCK ATTACHED TO IT ! 8101: > * HOLDS THE IOTAG. ! 8102: > * THE EFFECT OF ENDFILE() IS TO CLEAR IOTAG AND BREAK LK2. ! 8103: > * THE EFFECT OF DETACH() IS TO BREAK LK1. ! 8104: 18903a17581,17586 ! 8105: > IOPUT PRC N,4 ENTRY POINT ! 8106: > MOV WB,IOPWB KEEP ASSOCIATION TYPE FLAG ! 8107: > JSR GTSTG CONVERT THIRD ARG TO STRING ! 8108: > PPM IOP12 FAIL THIRD ARG ! 8109: > BNZ WA,IOP01 SKIP IF NON NULL ! 8110: > ZER XR NOTE NULL ARG ! 8111: 18905c17588 ! 8112: < * IOPUT (CONTINUED) ! 8113: --- ! 8114: ! 8115: ! 8116: ! 8117: ! 8118: ! 8119: ! 8120: ! 8121: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 124 ! 8122: ! 8123: ! 8124: > * PROCESS SECOND ARG ! 8125: 18907,18950c17590,17610 ! 8126: < * SEARCH POSSIBLE TRBLK CHAIN TO PICK UP THE FCBLK ! 8127: < * ! 8128: < IOP05 MOV XR,WB REMEMBER BLK PTR ! 8129: < MOV VRVAL(XR),XR CHAIN ALONG ! 8130: < BNE (XR),=B$TRT,IOP06 JUMP IF END OF TRBLK CHAIN ! 8131: < BNE TRTYP(XR),=TRTFC,IOP05 LOOP IF MORE TO GO ! 8132: < MOV XR,R$IOT POINT TO FILE ARG1 TRBLK ! 8133: < MOV TRFPT(XR),WA GET FCBLK PTR FROM TRBLK ! 8134: < * ! 8135: < * WA = 0 OR FCBLK PTR ! 8136: < * WB = PTR TO PRECEDING BLK TO WHICH ANY TRTRF BLOCK ! 8137: < * FOR FILE ARG1 MUST BE CHAINED. ! 8138: < * ! 8139: < IOP06 MOV WA,R$IOF KEEP POSSIBLE FCBLK PTR ! 8140: < MOV WB,R$IOP KEEP PRECEDING BLK PTR ! 8141: < JSR IOPPF PROCESS FILEARG2 ! 8142: < JSR SYSFC SEE IF FCBLK REQUIRED ! 8143: < PPM IOP16 FAIL ! 8144: < BZE WA,IOP12 SKIP IF NO NEW FCBLK WANTED ! 8145: < BLT WC,=NUM02,IOP6A JUMP IF FCBLK IN DYNAMIC ! 8146: < JSR ALOST GET IT IN STATIC ! 8147: < BRN IOP6B SKIP ! 8148: < * ! 8149: < * OBTAIN FCBLK IN DYNAMIC ! 8150: < * ! 8151: < IOP6A JSR ALLOC GET SPACE FOR FCBLK ! 8152: < * ! 8153: < * MERGE ! 8154: < * ! 8155: < IOP6B MOV XR,XL POINT TO FCBLK ! 8156: < MOV WA,WB COPY ITS LENGTH ! 8157: < BTW WB GET COUNT AS WORDS (SGD APR80) ! 8158: < LCT WB,WB LOOP COUNTER ! 8159: < * ! 8160: < * CLEAR FCBLK ! 8161: < * ! 8162: < IOP07 ZER (XR)+ CLEAR A WORD ! 8163: < BCT WB,IOP07 LOOP ! 8164: < BEQ WC,=NUM02,IOP09 SKIP IF IN STATIC - DONT SET FIELDS ! 8165: < MOV =B$XNT,(XL) STORE XNBLK CODE IN CASE ! 8166: < MOV WA,1(XL) STORE LENGTH ! 8167: < BNZ WC,IOP09 JUMP IF XNBLK WANTED ! 8168: < MOV =B$XRT,(XL) XRBLK CODE REQUESTED ! 8169: < * ! 8170: --- ! 8171: > IOP01 MOV XR,R$IOR KEEP FILEPROPS STRING PTR ! 8172: > JSR IOFTG CHECK SECOND ARG ! 8173: > PPM IOP07 FAIL SECOND ARG ! 8174: > MOV XL,R$IOL KEEP SCBLK FOR FILETAG ! 8175: > MOV XR,R$IOT KEEP TRTIO BLK PTR ! 8176: > MOV WA,IOPWA KEEP IOTAG ! 8177: > MOV WB,IOPVR KEEP FILETAG VRBLK PTR ! 8178: > MOV WC,IOPWC KEEP FILETAG VALUE ! 8179: > MOV (XS)+,XR GET FIRST ARG OFF STACK ! 8180: ! 8181: ! 8182: ! 8183: ! 8184: ! 8185: ! 8186: ! 8187: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 125 ! 8188: ! 8189: ! 8190: > JSR GTVAR CONVERT TO NAME ! 8191: > PPM IOP13 FAIL FIRST ARG ! 8192: > MOV XL,R$IO1 SAVE FIRST ARG NAME BASE ADRS ! 8193: > MOV WA,IOPNF SAVE FIRST ARG NAME OFFSET ! 8194: > MOV WB,XR FILETAG VRBLK PTR ! 8195: > BNZ VRLEN(XR),IOP02 NOT SPECIAL CASE IF NOT SYS NAME ! 8196: > MOV VRSVP(XR),WC GET SVBLK PTR ! 8197: > MOV =TRTIN,WB IN CASE .INPUT ! 8198: > BEQ WC,=V$INP,IOP06 JUMP IF .INPUT ! 8199: > MOV =TRTOU,WB IN CASE .OUTPUT OR .TERMINAL ! 8200: > BEQ WC,=V$OUP,IOP08 JUMP IF .OUTPUT ! 8201: > BEQ WC,=V$TER,IOP09 JUMP IF .TERMINAL ! 8202: 18952d17611 ! 8203: < * IOPUT (CONTINUED) ! 8204: 18954c17613 ! 8205: < * COMPLETE FCBLK INITIALISATION ! 8206: --- ! 8207: > * NORMAL CASE ! 8208: 18956,18958c17615,17624 ! 8209: < IOP09 MOV R$IOT,XR GET POSSIBLE TRBLK PTR ! 8210: < MOV XL,R$IOF STORE FCBLK PTR ! 8211: < BNZ XR,IOP10 JUMP IF TRBLK ALREADY FOUND ! 8212: --- ! 8213: > IOP02 BNZ R$IOT,IOP03 SKIP IF TRTIO BLK EXISTS ALREADY ! 8214: > MOV =TRTIO,WB TRACE BLOCK TYPE WORD ! 8215: > ZER XR ZERO IOTAG WORD ! 8216: > ZER XL ZERO TRTRI FIELD ! 8217: > JSR TRBLD BUILD TRTIO TRBLK ! 8218: > MOV XR,R$IOT SAVE TRTIO BLK PTR ! 8219: > MOV IOPVR,XL GET FILETAG VRBLK ! 8220: > MOV *VRVAL,WA OFFSET TO VALUE FIELD ! 8221: > JSR TRCHN PLACE IN TRBLK CHAIN FOR FILETAG ! 8222: > PPM UNUSED RETURN ! 8223: 18960c17626 ! 8224: < * A NEW TRBLK IS NEEDED ! 8225: --- ! 8226: > * MERGE TO BUILD TRBLK FOR FIRST ARG ! 8227: 18962,18970c17628,17630 ! 8228: < MOV =TRTFC,WB TRTYP FOR FCBLK TRAP BLK ! 8229: < JSR TRBLD MAKE THE BLOCK ! 8230: < MOV XR,R$IOT COPY TRTRF PTR ! 8231: < MOV R$IOP,XL POINT TO PRECEDING BLK ! 8232: < MOV VRVAL(XL),VRVAL(XR) COPY VALUE FIELD TO TRBLK ! 8233: < MOV XR,VRVAL(XL) LINK NEW TRBLK INTO CHAIN ! 8234: < MOV XL,XR POINT TO PREDECESSOR BLK ! 8235: < JSR SETVR SET TRACE INTERCEPTS ! 8236: < MOV VRVAL(XR),XR RECOVER TRBLK PTR ! 8237: --- ! 8238: > IOP03 MOV =TRTIN,WB IN CASE INPUT ! 8239: > BZE IOPWB,IOP04 SKIP IF SO ! 8240: > MOV =TRTOU,WB IN CASE OUTPUT ! 8241: 18972c17632 ! 8242: < * XR IS PTR TO TRBLK, XL IS FCBLK PTR OR 0 ! 8243: --- ! 8244: > * BUILD TRACE BLOCK ! 8245: 18974c17634,17641 ! 8246: ! 8247: ! 8248: ! 8249: ! 8250: ! 8251: ! 8252: ! 8253: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 126 ! 8254: ! 8255: ! 8256: < IOP10 MOV R$IOF,TRFPT(XR) STORE FCBLK PTR ! 8257: --- ! 8258: > IOP04 ICV IOPWB NOTE NOT STANDARD I/O FILE ! 8259: > MOV R$IOT,XL TRTIO BLK PTR TO TRTRI FIELD ! 8260: > ZER XR ZERO TRTER FIELD ! 8261: > JSR TRBLD BUILD I/O TRACE BLOCK ! 8262: > MOV R$IO1,XL ASSOCIATED VBL NAME BASE ! 8263: > MOV IOPNF,WA NAME OFFSET ! 8264: > JSR TRCHN UPDATE TRACE CHAIN FOR FIRST ARG ! 8265: > PPM UNUSED RETURN ! 8266: 18976c17643 ! 8267: < * CALL SYSIO TO COMPLETE FILE ACCESSING ! 8268: --- ! 8269: > * PREPARE FOR AND MAKE SYSIO CALL ! 8270: 18978,19003c17645,17656 ! 8271: < IOP11 MOV R$IOF,WA COPY FCBLK PTR OR 0 ! 8272: < MOV IOPTT,WB GET INPUT/OUTPUT FLAG ! 8273: < MOV R$IO2,XR GET FILE ARG2 ! 8274: < MOV R$IO1,XL GET FILE ARG1 ! 8275: < JSR SYSIO ASSOCIATE TO THE FILE ! 8276: < PPM IOP17 FAIL ! 8277: < PPM IOP18 FAIL ! 8278: < BNZ R$IOT,IOP01 NOT STD INPUT IF NON-NULL TRTRF BLK ! 8279: < BNZ IOPTT,IOP01 JUMP IF OUTPUT ! 8280: < BZE WC,IOP01 NO CHANGE TO STANDARD READ LENGTH ! 8281: < MOV WC,CSWIN STORE NEW READ LENGTH FOR STD FILE ! 8282: < BRN IOP01 MERGE TO FINISH THE TASK ! 8283: < * ! 8284: < * SYSFC MAY HAVE RETURNED A POINTER TO A PRIVATE FCBLK ! 8285: < * ! 8286: < IOP12 BNZ XL,IOP09 JUMP IF PRIVATE FCBLK ! 8287: < BRN IOP11 FINISH THE ASSOCIATION ! 8288: < * ! 8289: < * FAILURE RETURNS ! 8290: < * ! 8291: < IOP13 EXI 1 3RD ARG NOT A STRING ! 8292: < IOP14 EXI 2 2ND ARG UNSUITABLE ! 8293: < IOP15 EXI 3 1ST ARG UNSUITABLE ! 8294: < IOP16 EXI 4 FILE SPEC WRONG ! 8295: < IOP17 EXI 5 I/O FILE DOES NOT EXIST ! 8296: < IOP18 EXI 6 I/O FILE CANNOT BE READ/WRITTEN ! 8297: --- ! 8298: > IOP05 MOV R$IOL,XL FILETAG SCBLK PTR ! 8299: > MOV R$IOR,XR FILEPROPS SCBLK PTR ! 8300: > MOV IOPWA,WA IOTAG OR ZERO ! 8301: > MOV IOPWB,WB ASSOCIATION TYPE NUMBER ! 8302: > MOV IOPWC,WC POSSIBLE FILETAG VALUE ! 8303: > JSR SYSIO CALL SYSTEM ROUTINE TO OPEN FILE ! 8304: > PPM IOP14 FAIL RETURN ! 8305: > PPM EROSI ERROR RETURN ! 8306: > MOV R$IOT,XL TRTIO POINTER ! 8307: > BZE XL,IOP11 DONE IF ZERO ! 8308: > MOV WA,TRTAG(XL) STORE RETURNED IOTAG ! 8309: > BRN IOP11 SUCCEED ! 8310: 19006c17659 ! 8311: < * IOPUT (CONTINUED) ! 8312: ! 8313: ! 8314: ! 8315: ! 8316: ! 8317: ! 8318: ! 8319: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 127 ! 8320: ! 8321: ! 8322: --- ! 8323: > * SPECIAL CASE OF .INPUT ! 8324: 19008,19009c17661 ! 8325: < * ADD TO IOCHN CHAIN OF ASSSOCIATED VARIABLES UNLESS ALREAD ! 8326: < * PRESENT. ! 8327: --- ! 8328: > IOP06 BZE IOPWB,IOP09 FAIL OUTPUT(.X,.INPUT) ! 8329: 19011c17663 ! 8330: < IOP19 MOV R$ION,WC WC = NAME BASE, WB = NAME OFFSET ! 8331: --- ! 8332: > * BAD FILETAG ! 8333: 19013c17665 ! 8334: < * SEARCH LOOP ! 8335: --- ! 8336: > IOP07 EXI 2 ERRONEOUS SECOND ARG ! 8337: 19015,19019c17667 ! 8338: < IOP20 MOV TRTRF(XR),XR NEXT LINK OF CHAIN ! 8339: < BZE XR,IOP21 NOT FOUND ! 8340: < BNE WC,IONMB(XR),IOP20 NO MATCH ! 8341: < BEQ WB,IONMO(XR),IOP22 EXIT IF MATCHED ! 8342: < BRN IOP20 LOOP ! 8343: --- ! 8344: > * SPECIAL CASE OF .OUTPUT ! 8345: 19021c17669 ! 8346: < * NOT FOUND ! 8347: --- ! 8348: > IOP08 BZE IOPWB,IOP07 FAIL INPUT(.X,.OUTPUT) ! 8349: 19023,19032c17671 ! 8350: < IOP21 MOV *NUM05,WA SPACE NEEDED ! 8351: < JSR ALLOC GET IT ! 8352: < MOV =B$XRT,(XR) STORE XRBLK CODE ! 8353: < MOV WA,1(XR) STORE LENGTH ! 8354: < MOV WC,IONMB(XR) STORE NAME BASE ! 8355: < MOV WB,IONMO(XR) STORE NAME OFFSET ! 8356: < MOV R$IOT,XL POINT TO TRTRF BLK ! 8357: < MOV TRTRF(XL),WA GET PTR FIELD CONTENTS ! 8358: < MOV XR,TRTRF(XL) STORE PTR TO NEW BLOCK ! 8359: < MOV WA,TRTRF(XR) COMPLETE THE LINKING ! 8360: --- ! 8361: > * SPECIAL CASE OF .TERMINAL AND MERGE FOR OTHERS ! 8362: 19034c17673,17685 ! 8363: < * INSERT FCBLK ON FCBLK CHAIN FOR SYSEJ, SYSXI ! 8364: --- ! 8365: > IOP09 ZER R$IOT NOTE NO TRTIO BLOCK ! 8366: > MOV WC,XR SVBLK PTR FOR TRTER FIELD ! 8367: > ZER XL ZERO TRTRI FIELD ! 8368: > JSR TRBLD BUILD TRBLK ! 8369: > MOV R$IO1,XL ASSOCIATED VBL NAME BASE ! 8370: > MOV IOPNF,WA NAME OFFSET ! 8371: > JSR TRCHN UPDATE TRACE CHAIN FOR ARG 1 ! 8372: > PPM UNUSED RETURN ! 8373: > BNE TRTER(XR),=V$TER,IOP10 DONE UNLESS TERMINAL ! 8374: > BNE TRTYP(XR),=TRTOU,IOP10 DONE IF TERM. 2ND TIME ROUND ! 8375: > MOV =V$TER,WC TRTER FIELD ! 8376: > MOV =TRTIN,WB TRTYP FIELD ! 8377: > BRN IOP09 REPEAT LOOP FOR TERMINAL ! 8378: ! 8379: ! 8380: ! 8381: ! 8382: ! 8383: ! 8384: ! 8385: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 128 ! 8386: ! 8387: ! 8388: 19036,19037c17687 ! 8389: < IOP22 BZE R$IOF,IOP25 SKIP IF NO FCBLK ! 8390: < MOV R$FCB,XL PTR TO HEAD OF EXISTING CHAIN ! 8391: --- ! 8392: > * CHECK SPECIAL CASES FOR NON-NULL THIRD ARGS ! 8393: 19039c17689,17690 ! 8394: < * SEE IF FCBLK ALREADY ON CHAIN ! 8395: --- ! 8396: > IOP10 ZER IOPWA NO IOTAG ! 8397: > BNZ R$IOR,IOP05 MERGE ONLY IF FILEPROPS NON-NULL ! 8398: 19041,19044c17692 ! 8399: < IOP23 BZE XL,IOP24 NOT ON IF END OF CHAIN ! 8400: < BEQ 3(XL),R$IOF,IOP25 DONT DUPLICATE IF FIND IT ! 8401: < MOV 2(XL),XL GET NEXT LINK ! 8402: < BRN IOP23 LOOP ! 8403: --- ! 8404: > * SUCCESS RETURN ! 8405: 19046c17694,17698 ! 8406: < * NOT FOUND SO ADD AN ENTRY FOR THIS FCBLK ! 8407: --- ! 8408: > IOP11 ZER R$IO1 CLEAR GARBAGE ! 8409: > ZER R$IOL ! 8410: > ZER R$IOR ! 8411: > ZER R$IOT ! 8412: > EXI RETURN TO CALLER ! 8413: 19048,19054c17700 ! 8414: < IOP24 MOV *NUM04,WA SPACE NEEDED ! 8415: < JSR ALLOC GET IT ! 8416: < MOV =B$XRT,(XR) STORE BLOCK CODE ! 8417: < MOV WA,1(XR) STORE LENGTH ! 8418: < MOV R$FCB,2(XR) STORE PREVIOUS LINK IN THIS NODE ! 8419: < MOV R$IOF,3(XR) STORE FCBLK PTR ! 8420: < MOV XR,R$FCB INSERT NODE INTO FCBLK CHAIN ! 8421: --- ! 8422: > * ERROR RETURNS ! 8423: 19056c17702 ! 8424: < * RETURN ! 8425: --- ! 8426: > IOP12 EXI 1 ERRONEOUS THIRD ARG ! 8427: 19058c17704,17706 ! 8428: < IOP25 EXI RETURN TO CALLER ! 8429: --- ! 8430: > IOP13 EXI 3 ERRONEOUS FIRST ARG ! 8431: > * ! 8432: > IOP14 EXI 4 FAIL RETURN FROM SYSIO ! 8433: 19098,19099c17746 ! 8434: < JSR PRTVL PRINT KEYWORD VALUE ! 8435: < JSR PRTNL TERMINATE PRINT LINE ! 8436: --- ! 8437: > JSR PRTVF PRINT KEYWORD VALUE ! 8438: 19144c17791 ! 8439: < KWNM1 ERB 251,KEYWORD OPERAND IS NOT NAME OF DEFINED KEYWORD ! 8440: --- ! 8441: > KWNM1 ERB 230,KEYWORD OPERAND IS NOT NAME OF DEFINED KEYWORD ! 8442: 19173c17820 ! 8443: < BLO WA,WB,LCMP1 JUMP IF ARG 1 LENGTH IS SMALLER ! 8444: ! 8445: ! 8446: ! 8447: ! 8448: ! 8449: ! 8450: ! 8451: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 129 ! 8452: ! 8453: ! 8454: --- ! 8455: > BLO WA,WB,LCMP0 JUMP IF ARG 1 LENGTH IS SMALLER ! 8456: 19178,19179c17825,17830 ! 8457: < LCMP1 CMC LCMP4,LCMP3 COMPARE STRINGS, JUMP IF UNEQUAL ! 8458: < BNE WB,WC,LCMP2 IF EQUAL, JUMP IF LENGTHS UNEQUAL ! 8459: --- ! 8460: > LCMP0 BZE WA,LCMP1 SKIP IF A NULL ARG ! 8461: > CMC LCMP4,LCMP3 COMPARE STRINGS, JUMP IF UNEQUAL ! 8462: > * ! 8463: > * EQUAL STRINGS OR AT LEAST ONE NULL ARG ! 8464: > * ! 8465: > LCMP1 BNE WB,WC,LCMP2 IF EQUAL, JUMP IF LENGTHS UNEQUAL ! 8466: 19239c17890,17897 ! 8467: < BNZ CNTTL,LIST5 JUMP IF -TITLE OR -STITL ! 8468: --- ! 8469: > MOV STAGE,WA GET COMPILER STAGE ! 8470: > BEQ WA,=STGIC,LIST0 LIST OK IF INITIAL COMPILE ! 8471: > BEQ WA,=STGCE,LIST0 LIST OK IF END LINE ! 8472: > BRN LIST4 ELSE NO LISTING OF SOURCE ! 8473: > * ! 8474: > * HERE WHEN STAGE IS OK TO LIST ! 8475: > * ! 8476: > LIST0 BNZ CNTTL,LIST5 JUMP IF -TITLE OR -STITL ! 8477: 19245c17903 ! 8478: < LIST0 MOV R$CIM,XR LOAD POINTER TO CURRENT IMAGE ! 8479: --- ! 8480: > LIST1 MOV R$CIM,XR LOAD POINTER TO CURRENT IMAGE ! 8481: 19251d17908 ! 8482: < BNE STAGE,=STGIC,LIST1 SKIP IF EXECUTE TIME ! 8483: 19254,19257c17911 ! 8484: < * ! 8485: < * PRINT STATEMENT NUMBER ! 8486: < * ! 8487: < LIST1 JSR PRTIN ELSE PRINT STATEMENT NUMBER ! 8488: --- ! 8489: > JSR PRTIN ELSE PRINT STATEMENT NUMBER ! 8490: 19267c17921 ! 8491: < JSR PRTST PRINT IT ! 8492: --- ! 8493: > JSR PRTSF PRINT IT ! 8494: 19269,19273c17923 ! 8495: < BNZ ERLST,LIST3 JUMP IF ERROR COPY TO INT.CH. ! 8496: < JSR PRTNL TERMINATE LINE ! 8497: < BZE CSWDB,LIST3 JUMP IF -SINGLE MODE ! 8498: < JSR PRTNL ELSE ADD A BLANK LINE ! 8499: < ICV LSTLC AND BUMP LINE COUNTER ! 8500: --- ! 8501: > MNZ LSTPF SET FLAG FOR LINE PRINTED ! 8502: 19275,19278d17924 ! 8503: < * HERE AFTER PRINTING SOURCE IMAGE ! 8504: < * ! 8505: < LIST3 MNZ LSTPF SET FLAG FOR LINE PRINTED ! 8506: < * ! 8507: 19290,19291c17936,17937 ! 8508: < BZE PRICH,LIST7 SKIP IF LISTING TO REGULAR PRINTER ! 8509: < BEQ R$TTL,=NULLS,LIST0 TERMINAL LISTING OMITS NULL TITLE ! 8510: ! 8511: ! 8512: ! 8513: ! 8514: ! 8515: ! 8516: ! 8517: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 130 ! 8518: ! 8519: ! 8520: --- ! 8521: > BNZ PRLEN,LIST7 SKIP IF LISTING TO REGULAR PRINTER ! 8522: > BEQ R$TTL,=NULLS,LIST1 TERMINAL LISTING OMITS NULL TITLE ! 8523: 19296c17942 ! 8524: < BRN LIST0 MERGE ! 8525: --- ! 8526: > BRN LIST1 MERGE ! 8527: 19316c17962 ! 8528: < JSR PRTNL TERMINATE TITLE LINE ! 8529: --- ! 8530: > JSR PRTFH TERMINATE TITLE LINE ! 8531: 19323,19324c17969 ! 8532: < JSR PRTST ELSE PRINT SUB-TITLE ! 8533: < JSR PRTNL TERMINATE LINE ! 8534: --- ! 8535: > JSR PRTSF ELSE PRINT SUB-TITLE ! 8536: 19329c17974 ! 8537: < LSTT1 JSR PRTNL PRINT A BLANK LINE ! 8538: --- ! 8539: > LSTT1 JSR PRTFH PRINT A BLANK LINE ! 8540: 19358c18003 ! 8541: < BZE CSWLS,NXTS2 JUMP IF -NOLIST ! 8542: --- ! 8543: > BZE CSWLS,NXTS1 JUMP IF -NOLIST ! 8544: 19360c18005 ! 8545: < BZE XR,NXTS2 JUMP IF NO IMAGE ! 8546: --- ! 8547: > BZE XR,NXTS1 JUMP IF NO IMAGE ! 8548: 19363,19364c18008,18009 ! 8549: < BNE WA,=CH$MN,NXTS1 JUMP IF NOT CTRL CARD ! 8550: < BZE CSWPR,NXTS2 JUMP IF -NOPRINT ! 8551: --- ! 8552: > BEQ WA,=CH$MN,NXTS1 SKIP LISTING IF CONTROL CARD ! 8553: > JSR LISTR LIST LINE ! 8554: 19366,19369d18010 ! 8555: < * HERE TO CALL LISTER ! 8556: < * ! 8557: < NXTS1 JSR LISTR LIST LINE ! 8558: < * ! 8559: 19372c18013 ! 8560: < NXTS2 MOV R$CNI,XR POINT TO NEXT IMAGE ! 8561: --- ! 8562: > NXTS1 MOV R$CNI,XR POINT TO NEXT IMAGE ! 8563: 19377c18018 ! 8564: < BLO WA,WB,NXTS3 SKIP IF NOT TOO LONG ! 8565: --- ! 8566: > BLO WA,WB,NXTS2 SKIP IF NOT TOO LONG ! 8567: 19382c18023 ! 8568: < NXTS3 MOV WA,SCNIL USE AS RECORD LENGTH ! 8569: --- ! 8570: > NXTS2 MOV WA,SCNIL USE AS RECORD LENGTH ! 8571: 19505c18146 ! 8572: < WTB WA CONVERT TO BYTE OFFSET ! 8573: --- ! 8574: > WTB WA CONVERT TO BAU OFFSET ! 8575: 19697d18337 ! 8576: ! 8577: ! 8578: ! 8579: ! 8580: ! 8581: ! 8582: ! 8583: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 131 ! 8584: ! 8585: ! 8586: < EJC ! 8587: 19699a18340 ! 8588: > EJC ! 8589: 19714,19716c18355 ! 8590: < JSR PRTST AND PRINT IT ! 8591: < JSR PRTNL FOLLOWED BY NEWLINE ! 8592: < JSR PRTNL AND ANOTHER ! 8593: --- ! 8594: > JSR PRTFB AND PRINT IT ! 8595: 19718,19719c18357 ! 8596: < JSR PRTST PRINT IT ! 8597: < JSR PRTNL NEW LINE ! 8598: --- ! 8599: > JSR PRTSF PRINT IT ! 8600: 19721,19723c18359 ! 8601: < JSR PRTST PRINT IT ! 8602: < JSR PRTNL NEW LINE ! 8603: < JSR PRTNL AND ANOTHER BLANK LINE ! 8604: --- ! 8605: > JSR PRTFB ! 8606: 19726c18362,18363 ! 8607: < ADD *NUM02,XR BIAS PAST XNBLK HEADER (SGD07) ! 8608: --- ! 8609: > ADD *NUM02,XR BIASS PAST XNBLK HEADER ! 8610: > EJC ! 8611: 19728c18365 ! 8612: < * LOOP HERE TO PRINT SUCCESSIVE ENTRIES ! 8613: --- ! 8614: > * PRFLR (CONTINUED) ! 8615: 19729a18367,18368 ! 8616: > * LOOP FOR PRINTING TABLE ENTRIES ! 8617: > * ! 8618: 19748c18387 ! 8619: < * MERGE AFTER PRINTING TIME ! 8620: --- ! 8621: > * PRINT A BLANK ! 8622: 19750c18389 ! 8623: < PRFL2 JSR PRTNL THATS ANOTHER LINE ! 8624: --- ! 8625: > PRFL2 JSR PRTFH THATS ANOTHER LINE ! 8626: 19752c18391 ! 8627: < * HERE TO GO TO NEXT ENTRY ! 8628: --- ! 8629: > * TEST TO SEE IF LOOP FINISHED ! 8630: 19754c18393 ! 8631: < PRFL3 ADD *PF$I2,XR BUMP INDEX PTR (SGD07) ! 8632: --- ! 8633: > PRFL3 ADD *PF$I2,XR BUMP INDEX POINTER ! 8634: 19759c18398 ! 8635: < * HERE TO EXIT ! 8636: --- ! 8637: > * RETURN POINT ! 8638: 19775c18414 ! 8639: < MOV WA,PFSVW SAVE WA (SGD07) ! 8640: --- ! 8641: > MOV WA,PFSVW SAVE WA ! 8642: ! 8643: ! 8644: ! 8645: ! 8646: ! 8647: ! 8648: ! 8649: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 132 ! 8650: ! 8651: ! 8652: 19786c18425 ! 8653: < SUB =NUM01,PFNTE ADJUST FOR EXTRA COUNT (SGD07) ! 8654: --- ! 8655: > SUB =NUM01,PFNTE ADJUST FOR EXTRA COUNT ! 8656: 19804c18443,18444 ! 8657: < BCT WA,PFLU1 AND ALLLLLLL THE REST ! 8658: --- ! 8659: > BCT WA,PFLU1 AND ALL THE REST ! 8660: > EJC ! 8661: 19805a18446,18447 ! 8662: > * PRFLU (CONTINUED) ! 8663: > * ! 8664: 19828c18470 ! 8665: < * MERGE HERE TO EXIT ! 8666: --- ! 8667: > * RETURN POINT ! 8668: 19831c18473 ! 8669: < MOV PFSVW,WA RESTORE SAVED REG ! 8670: --- ! 8671: > MOV PFSVW,WA RESTORE WA ! 8672: 19841d18482 ! 8673: < EJC ! 8674: 19842a18484 ! 8675: > EJC ! 8676: 19844c18486 ! 8677: < * PRPAR - PROCESS PRINT PARAMETERS ! 8678: --- ! 8679: > * PRPAR -- PROCESS PRINT PARAMETERS ! 8680: 19846d18487 ! 8681: < * (WC) IF NONZERO ASSOCIATE TERMINAL ONLY ! 8682: 19848c18489 ! 8683: < * (XL,XR,WA,WB,WC) DESTROYED ! 8684: --- ! 8685: > * (XR,WA,WB,WC) DESTROYED ! 8686: 19850,19853d18490 ! 8687: < * SINCE MEMORY ALLOCATION IS UNDECIDED ON INITIAL CALL, ! 8688: < * TERMINAL CANNOT BE ASSOCIATED. THE ENTRY WITH WC NON-ZERO ! 8689: < * IS PROVIDED SO A LATER CALL CAN BE MADE TO COMPLETE THIS. ! 8690: < * ! 8691: 19855c18492 ! 8692: < BNZ WC,PRPA7 JUMP TO ASSOCIATE TERMINAL ! 8693: --- ! 8694: > MOV XL,-(XS) SAVE XL ! 8695: 19866,19868c18503,18504 ! 8696: < MOV PRLEN,WB GET PRIOR LENGTH IF ANY ! 8697: < BZE WB,PRPA2 SKIP IF NO LENGTH ! 8698: < BGT WA,WB,PRPA3 SKIP STORING IF TOO BIG ! 8699: --- ! 8700: > BZE PRLEN,PRPA2 SKIP IF NOT SYSXI RESUMPTION ! 8701: > BHI WA,PRLEN,PRPA3 SKIP IF BIGGER THAN PRIOR BFRS ! 8702: 19874c18510 ! 8703: < * PROCESS BITS OPTIONS ! 8704: --- ! 8705: > * CHECK TERMINAL BUFFER SIZE ! 8706: 19876,19879c18512,18513 ! 8707: < PRPA3 MOV BITS3,WB BIT 3 MASK ! 8708: ! 8709: ! 8710: ! 8711: ! 8712: ! 8713: ! 8714: ! 8715: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 133 ! 8716: ! 8717: ! 8718: < ANB WC,WB GET -NOLIST BIT ! 8719: < ZRB WB,PRPA4 SKIP IF CLEAR ! 8720: < ZER CSWLS SET -NOLIST ! 8721: --- ! 8722: > PRPA3 BZE TTLEN,PRPA4 SKIP IF NOT SYSXI RESUMPTION ! 8723: > BHI XL,TTLEN,PRPA5 SKIP IF TOO BIG ! 8724: 19881c18515 ! 8725: < * CHECK IF FAIL REPORTS GOTO INTERACTIVE CHANNEL ! 8726: --- ! 8727: > * STORE TERMINAL BUFFER LENGTH ! 8728: 19883c18517,18521 ! 8729: < PRPA4 MOV BITS1,WB BIT 1 MASK ! 8730: --- ! 8731: > PRPA4 MOV XL,TTLEN BFR LENGTH ! 8732: > * ! 8733: > * PROCESS BITS OPTIONS ! 8734: > * ! 8735: > PRPA5 MOV BITS1,WB BIT 1 MASK ! 8736: 19885c18523 ! 8737: < MOV WB,ERICH STORE INT. CHAN. ERROR FLAG ! 8738: --- ! 8739: > MOV WB,TTINS INPUT FROM TERMINAL FLAG ! 8740: 19888,19894c18526,18533 ! 8741: < MOV WB,PRICH FLAG FOR STD PRINTER ON INT. CHAN. ! 8742: < MOV BITS4,WB BIT 4 MASK ! 8743: < ANB WC,WB GET BIT ! 8744: < MOV WB,CPSTS FLAG FOR COMPILE STATS SUPPRESSN. ! 8745: < MOV BITS5,WB BIT 5 MASK ! 8746: < ANB WC,WB GET BIT ! 8747: < MOV WB,EXSTS FLAG FOR EXEC STATS SUPPRESSION ! 8748: --- ! 8749: > MOV WB,TTOUS STD OUTPUT TO TERMINAL FLAG ! 8750: > MOV TTLEN,TTERL ERRORS TO TERML IF AVAILABLE ! 8751: > MOV PRLEN,PRAVL NOTE IF A PRINT FILE IS AVAILABLE ! 8752: > ZRB WB,PRPA6 IF FLAG SET, CLEAR TTERL SINCE ... ! 8753: > ZER TTERL ... TERML GETS ALL OUTPUT ALREADY ! 8754: > MOV TTLEN,TTOUS REGULAR O/P TO TERML IF AVAILABLE ! 8755: > MOV TTLEN,PRLEN REVISED PRINT BUFFER LENGTH ! 8756: > ZER TTLEN DONT NEED SEPARATE TERML BUFFER ! 8757: 19899,19904c18538 ! 8758: < MOV BITS6,WB BIT 6 MASK ! 8759: < ANB WC,WB GET BIT ! 8760: < MOV WB,PRECL EXTENDED/COMPACT LISTING FLAG ! 8761: < SUB =NUM08,WA POINT 8 CHARS FROM LINE END ! 8762: < ZRB WB,PRPA5 JUMP IF NOT EXTENDED ! 8763: < MOV WA,LSTPO STORE FOR LISTING PAGE HEADINGS ! 8764: --- ! 8765: > * GET OFFSET TO /PAGE NN/ PART OF HEADER ! 8766: 19906c18540,18543 ! 8767: < * CONTINUE OPTION PROCESSING ! 8768: --- ! 8769: > PRPA6 MOV PRLEN,WA STD BFR LENGTH ! 8770: > BNZ WA,PRPA7 USE IF NON-ZERO ! 8771: > MOV TTLEN,WA ELSE TRY TERMINAL ! 8772: > BZE WA,PRPA8 GIVE UP IF ZERO ALSO ! 8773: 19908,19920c18545 ! 8774: ! 8775: ! 8776: ! 8777: ! 8778: ! 8779: ! 8780: ! 8781: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 134 ! 8782: ! 8783: ! 8784: < PRPA5 MOV BITS7,WB BIT 7 MASK ! 8785: < ANB WC,WB GET BIT 7 ! 8786: < MOV WB,CSWEX SET -NOEXECUTE IF NON-ZERO ! 8787: < MOV BIT10,WB BIT 10 MASK ! 8788: < ANB WC,WB GET BIT 10 ! 8789: < MOV WB,HEADP PRETEND PRINTED TO OMIT HEADERS ! 8790: < MOV BITS9,WB BIT 9 MASK ! 8791: < ANB WC,WB GET BIT 9 ! 8792: < MOV WB,PRSTO KEEP IT AS STD LISTING OPTION ! 8793: < ZRB WB,PRPA6 SKIP IF CLEAR ! 8794: < MOV PRLEN,WA GET PRINT BUFFER LENGTH ! 8795: < SUB =NUM08,WA POINT 8 CHARS FROM LINE END ! 8796: < MOV WA,LSTPO STORE PAGE OFFSET ! 8797: --- ! 8798: > * GET OFFSET ! 8799: 19922c18547,18552 ! 8800: < * CHECK FOR TERMINAL ! 8801: --- ! 8802: > PRPA7 MOV WA,PRLEN STORE AS BUFFER LENGTH ! 8803: > SUB =NUM08,WA JUST BEFORE END OF LINE ! 8804: > MOV WA,LSTPO KEEP IT ! 8805: > MOV TTOUS,WB CONSTRUCT VALUE FOR ... ! 8806: > ORB PRAVL,WB ... USE IN DECIDING WHETHER TO ... ! 8807: > MOV WB,PRPUT ... PUT STRINGS IN OUTPUT BUFFER ! 8808: 19924,19932c18554 ! 8809: < PRPA6 ANB BITS8,WC SEE IF TERMINAL TO BE ACTIVATED ! 8810: < BNZ WC,PRPA7 JUMP IF TERMINAL REQUIRED ! 8811: < BZE INITR,PRPA8 JUMP IF NO TERMINAL TO DETACH ! 8812: < MOV =V$TER,XL PTR TO /TERMINAL/ ! 8813: < JSR GTNVR GET VRBLK POINTER ! 8814: < PPM CANT FAIL ! 8815: < MOV =NULLS,VRVAL(XR) CLEAR VALUE OF TERMINAL ! 8816: < JSR SETVR REMOVE ASSOCIATION ! 8817: < BRN PRPA8 RETURN ! 8818: --- ! 8819: > * MORE BITS ! 8820: 19934c18556,18559 ! 8821: < * ASSOCIATE TERMINAL ! 8822: --- ! 8823: > PRPA8 MOV BITS3,WB BIT 3 MASK ! 8824: > ANB WC,WB GET -NOLIST BIT ! 8825: > ZRB WB,PRPA9 SKIP IF CLEAR ! 8826: > ZER CSWLS SET -NOLIST ! 8827: 19936,19945c18561 ! 8828: < PRPA7 MNZ INITR NOTE TERMINAL ASSOCIATED ! 8829: < BZE DNAMB,PRPA8 CANT IF MEMORY NOT ORGANISED ! 8830: < MOV =V$TER,XL POINT TO TERMINAL STRING ! 8831: < MOV =TRTOU,WB OUTPUT TRACE TYPE ! 8832: < JSR INOUT ATTACH OUTPUT TRBLK TO VRBLK ! 8833: < MOV XR,-(XS) STACK TRBLK PTR ! 8834: < MOV =V$TER,XL POINT TO TERMINAL STRING ! 8835: < MOV =TRTIN,WB INPUT TRACE TYPE ! 8836: < JSR INOUT ATTACH INPUT TRACE BLK ! 8837: < MOV (XS)+,VRVAL(XR) ADD OUTPUT TRBLK TO CHAIN ! 8838: --- ! 8839: > * MORE BITS ! 8840: ! 8841: ! 8842: ! 8843: ! 8844: ! 8845: ! 8846: ! 8847: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 135 ! 8848: ! 8849: ! 8850: 19947c18563,18575 ! 8851: < * RETURN POINT ! 8852: --- ! 8853: > PRPA9 MOV BITS4,WB BIT 4 MASK ! 8854: > ANB WC,WB GET BIT ! 8855: > MOV WB,CPSTS FLAG FOR COMPILE STATS SUPPRESSN. ! 8856: > MOV BITS5,WB BIT 5 MASK ! 8857: > ANB WC,WB GET BIT ! 8858: > MOV WB,EXSTS FLAG FOR EXEC STATS SUPPRESSION ! 8859: > MOV BITS6,WB BIT 6 MASK ! 8860: > ANB WC,WB GET BIT ! 8861: > MOV WB,NOXEQ SET NOEXECUTE IF NON-ZERO ! 8862: > MOV BITS7,WB BIT 7 MASK ! 8863: > ANB WC,WB GET BIT ! 8864: > ZRB WB,PRP10 SKIP IF NOT SET ! 8865: > ZER TTERL CLEAR ERRORS TO TERML IF SET ! 8866: 19949c18577,18589 ! 8867: < PRPA8 EXI RETURN ! 8868: --- ! 8869: > * MORE BITS ! 8870: > * ! 8871: > PRP10 MOV BITS8,WB BIT 8 MASK ! 8872: > ANB WC,WB GET BIT ! 8873: > MOV WB,HEADN SYSID HEADERS INCLUDE/OMIT FLAG ! 8874: > MOV BITS9,WB BIT 9 MASK ! 8875: > ANB WC,WB GET BIT ! 8876: > MOV WB,PRSTO STANDARD LISTING FLAG ! 8877: > MOV BIT10,WB BIT 10 MASK ! 8878: > ANB WC,WB GET BIT ! 8879: > MOV WB,PRECL EXTENDED LISTING OPTION ! 8880: > MOV (XS)+,XL RESTORE XL ! 8881: > EXI RETURN ! 8882: 19953c18593 ! 8883: < * PRTCH -- PRINT A CHARACTER ! 8884: --- ! 8885: > * PRTCF -- PRINT CHAR TO STD PRINTER AND FLUSH BFR ! 8886: 19954a18595,18605 ! 8887: > * (WA) CHAR TO PRINT ! 8888: > * JSR PRTCF CALL TO PRINT AND FLUSH ! 8889: > * ! 8890: > PRTCF PRC E,0 ENTRY POINT ! 8891: > JSR PRTCH PRINT CHARACTER ! 8892: > JSR PRTFH FLUSH BUFFER ! 8893: > EXI RETURN TO CALLER ! 8894: > ENP END PROCEDURE PRTCF ! 8895: > * ! 8896: > * PRTCH -- PRINT A CHARACTER ON STANDARD PRINTER ! 8897: > * ! 8898: 19960a18612 ! 8899: > BZE PRLEN,PTCH2 SKIP IF NO PRINT FILE ! 8900: 19962,19963c18614,18615 ! 8901: < BNE PROFS,PRLEN,PRCH1 JUMP IF ROOM IN BUFFER ! 8902: < JSR PRTNL ELSE PRINT THIS LINE ! 8903: --- ! 8904: > BNE PROFS,PRLEN,PTCH1 JUMP IF ROOM IN BUFFER ! 8905: > JSR PRTFH ELSE PRINT THIS LINE ! 8906: ! 8907: ! 8908: ! 8909: ! 8910: ! 8911: ! 8912: ! 8913: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 136 ! 8914: ! 8915: ! 8916: 19967c18619 ! 8917: < PRCH1 MOV PRBUF,XR POINT TO PRINT BUFFER ! 8918: --- ! 8919: > PTCH1 MOV PRBUF,XR POINT TO PRINT BUFFER ! 8920: 19973c18625,18628 ! 8921: < EXI RETURN TO PRTCH CALLER ! 8922: --- ! 8923: > * ! 8924: > * RETURN POINT ! 8925: > * ! 8926: > PTCH2 EXI RETURN TO PRTCH CALLER ! 8927: 19974a18630,18640 ! 8928: > * ! 8929: > * PRTFB -- PRINT STRING, FLUSH BFR AND PRINT BLANK LINE ! 8930: > * ! 8931: > * (XR) STRING TO PRINT ! 8932: > * JSR PRTFB CALL FOR PRINT FLUSH AND BLANK ! 8933: > * ! 8934: > PRTFB PRC E,0 ENTRY POINT ! 8935: > JSR PRTSF PRINT AND FLUSH ! 8936: > JSR PRTFH PRINT BLANK ! 8937: > EXI RETURN TO CALLER ! 8938: > ENP END PROCEDURE PRTFB ! 8939: 19977c18643 ! 8940: < * PRTIC -- PRINT TO INTERACTIVE CHANNEL ! 8941: --- ! 8942: > * PRTFH -- FLUSH STANDARD PRINT BUFFER ! 8943: 19979,19982c18645,18649 ! 8944: < * PRTIC IS CALLED TO PRINT THE CONTENTS OF THE STANDARD ! 8945: < * PRINT BUFFER TO THE INTERACTIVE CHANNEL. IT IS ONLY ! 8946: < * CALLED AFTER PRTST HAS SET UP THE STRING FOR PRINTING. ! 8947: < * IT DOES NOT CLEAR THE BUFFER. ! 8948: --- ! 8949: > * PRTFH PRINTS THE CONTENTS OF THE PRINT BUFFER, RESETS ! 8950: > * THE BUFFER TO ALL BLANKS AND RESETS THE PRINT POINTER. ! 8951: > * ON ITS FIRST CALL IT MAY PRINT LISTING HEADERS. ! 8952: > * IF TTLST IS NON-ZERO, IT COPIES PRINT BUFFER TO ! 8953: > * TERMINAL AND FLUSHES THIS ALSO. ! 8954: 19984,19985c18651 ! 8955: < * JSR PRTIC CALL FOR PRINT ! 8956: < * (WA,WB) DESTROYED ! 8957: --- ! 8958: > * JSR PRTFH CALL TO FLUSH BUFFER ! 8959: 19987,19992c18653,18655 ! 8960: < PRTIC PRC E,0 ENTRY POINT ! 8961: < MOV XR,-(XS) SAVE XR ! 8962: < MOV PRBUF,XR POINT TO BUFFER ! 8963: < MOV PROFS,WA NO OF CHARS ! 8964: < JSR SYSPI PRINT ! 8965: < PPM PRTC2 FAIL RETURN ! 8966: --- ! 8967: > PRTFH PRC R,0 ENTRY POINT ! 8968: > BNZ HEADP,PTFH1 WERE HEADERS PRINTED ! 8969: > JSR PRTPS NO - PRINT THEM ! 8970: 19994c18657 ! 8971: < * RETURN ! 8972: ! 8973: ! 8974: ! 8975: ! 8976: ! 8977: ! 8978: ! 8979: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 137 ! 8980: ! 8981: ! 8982: --- ! 8983: > * HEADERS DONE ! 8984: 19996,19997c18659,18668 ! 8985: < PRTC1 MOV (XS)+,XR RESTORE XR ! 8986: < EXI RETURN ! 8987: --- ! 8988: > PTFH1 BZE PRLEN,PTFH4 SKIP IF NO OUTPUT POSSIBLE ! 8989: > MOV XL,-(XS) SAVE XL ! 8990: > MOV XR,-(XS) SAVE XR ! 8991: > MOV WA,-(XS) SAVE WA ! 8992: > MOV WC,-(XS) SAVE WC ! 8993: > MOV PRBUF,XR LOAD POINTER TO BUFFER ! 8994: > MOV PROFS,WC LOAD NUMBER OF CHARS IN BUFFER ! 8995: > BNZ PRAVL,PTFH5 SKIP IF PRINT FILE AVAILABLE ! 8996: > BNZ TTOUS,PTFH2 SKIP IF STD OUTPUT TO TERML ! 8997: > BZE TTLST,PTFH3 LAST POSSIBILITY IS ERROR TO TERML ! 8998: 19999c18670 ! 8999: < * ERROR OCCURED ! 9000: --- ! 9001: > * SEND TO TERMINAL ! 9002: 20001,20004c18672,18674 ! 9003: < PRTC2 ZER ERICH PREVENT LOOPING ! 9004: < ERB 252,ERROR ON PRINTING TO INTERACTIVE CHANNEL ! 9005: < BRN PRTC1 RETURN ! 9006: < ENP PROCEDURE PRTIC ! 9007: --- ! 9008: > PTFH2 JSR SYSPI PRINT TO TERMINAL ! 9009: > PPM PTFH6 FAIL ! 9010: > PPM EROSI ERROR ! 9011: 20005a18676 ! 9012: > * PRTFH (CONTINUED) ! 9013: 20007c18678 ! 9014: < * PRTIS -- PRINT TO INTERACTIVE AND STANDARD PRINTER ! 9015: --- ! 9016: > * BLANK BUFFER ! 9017: 20009,20013c18680,18688 ! 9018: < * PRTIS PUTS A LINE FROM THE PRINT BUFFER ONTO THE ! 9019: < * INTERACTIVE CHANNEL (IF ANY) AND THE STANDARD PRINTER. ! 9020: < * IT ALWAYS PRINTS TO THE STANDARD PRINTER BUT DOES ! 9021: < * NOT DUPLICATE LINES IF THE STANDARD PRINTER IS ! 9022: < * INTERACTIVE. IT CLEARS DOWN THE PRINT BUFFER. ! 9023: --- ! 9024: > PTFH3 MOV PRBLK,XL POINT TO BLANKING STRING ! 9025: > MOV PRCHS,XR POINT TO BUFFER ! 9026: > MOV PRCMV,WA COUNT OF BAUS TO MOVE ! 9027: > MVW MOVE BLANKS INTO BUFFER ! 9028: > ZER PROFS RESET OFFSET ! 9029: > MOV (XS)+,WC RESTORE WC ! 9030: > MOV (XS)+,WA RECOVER WA ! 9031: > MOV (XS)+,XR RESTORE XR ! 9032: > MOV (XS)+,XL RESTORE XL ! 9033: 20015,20016c18690 ! 9034: < * JSR PRTIS CALL FOR PRINTING ! 9035: < * (WA,WB) DESTROYED ! 9036: --- ! 9037: > * RETURN POINT ! 9038: ! 9039: ! 9040: ! 9041: ! 9042: ! 9043: ! 9044: ! 9045: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 138 ! 9046: ! 9047: ! 9048: 20018,20021c18692 ! 9049: < PRTIS PRC E,0 ENTRY POINT ! 9050: < BNZ PRICH,PRTS1 JUMP IF STANDARD PRINTER IS INT.CH. ! 9051: < BZE ERICH,PRTS1 SKIP IF NOT DOING INT. ERROR REPS. ! 9052: < JSR PRTIC PRINT TO INTERACTIVE CHANNEL ! 9053: --- ! 9054: > PTFH4 EXI RETURN TO CALLER ! 9055: 20023c18694 ! 9056: < * MERGE AND EXIT ! 9057: --- ! 9058: > * HERE FOR REGULAR PRINT FILE ! 9059: 20025,20027c18696,18710 ! 9060: < PRTS1 JSR PRTNL PRINT TO STANDARD PRINTER ! 9061: < EXI RETURN ! 9062: < ENP END PROCEDURE PRTIS ! 9063: --- ! 9064: > PTFH5 JSR SYSPR CALL SYSTEM PRINT ROUTINE ! 9065: > PPM PTFH6 JUMP IF FAILED ! 9066: > PPM EROSI STOP IF ERROR ! 9067: > BZE TTLST,PTFH3 SKIP IF NO COPY TO TERMINAL ! 9068: > MOV PROFS,SCLEN(XR) SET STRING LENGTH FOR PTTST ! 9069: > JSR PTTST COPY STD BUFFER TO TERML BFR ! 9070: > JSR PTTFH FLUSH IT ! 9071: > MOV PRLEN,SCLEN(XR) RESTORE BUFFER LENGTH ! 9072: > BRN PTFH3 MERGE ! 9073: > * ! 9074: > * A FAILURE SUCH AS FILE OVERFILLED OCCURRED ! 9075: > * ! 9076: > PTFH6 BZE STAGX,PTFH3 IGNORE IF COMPILE TIME ! 9077: > BRN EXFAL ELSE CAUSE STMT FAILURE ! 9078: > ENP END PROCEDURE PRTFH ! 9079: 20057d18739 ! 9080: < EJC ! 9081: 20071c18753 ! 9082: < JSR PRTNL PRINT LINE ! 9083: --- ! 9084: > JSR PRTFH PRINT LINE ! 9085: 20076,20140d18757 ! 9086: < * PRTMX -- AS PRTMI WITH EXTRA COPY TO INTERACTIVE CHAN. ! 9087: < * ! 9088: < * JSR PRTMX CALL FOR PRINTING ! 9089: < * (WA,WB) DESTROYED ! 9090: < * ! 9091: < PRTMX PRC E,0 ENTRY POINT ! 9092: < JSR PRTST PRINT STRING MESSAGE ! 9093: < MOV =PRTMF,PROFS SET PTR TO COLUMN 15 ! 9094: < JSR PRTIN PRINT INTEGER ! 9095: < JSR PRTIS PRINT LINE ! 9096: < EXI RETURN ! 9097: < ENP END PROCEDURE PRTMX ! 9098: < EJC ! 9099: < * ! 9100: < * PRTNL -- PRINT NEW LINE (END PRINT LINE) ! 9101: < * ! 9102: < * PRTNL PRINTS THE CONTENTS OF THE PRINT BUFFER, RESETS ! 9103: < * THE BUFFER TO ALL BLANKS AND RESETS THE PRINT POINTER. ! 9104: ! 9105: ! 9106: ! 9107: ! 9108: ! 9109: ! 9110: ! 9111: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 139 ! 9112: ! 9113: ! 9114: < * ! 9115: < * JSR PRTNL CALL TO PRINT LINE ! 9116: < * ! 9117: < PRTNL PRC R,0 ENTRY POINT ! 9118: < BNZ HEADP,PRNL0 WERE HEADERS PRINTED ! 9119: < JSR PRTPS NO - PRINT THEM ! 9120: < * ! 9121: < * CALL SYSPR ! 9122: < * ! 9123: < PRNL0 MOV XR,-(XS) SAVE ENTRY XR ! 9124: < MOV WA,PRTSA SAVE WA ! 9125: < MOV WB,PRTSB SAVE WB ! 9126: < MOV PRBUF,XR LOAD POINTER TO BUFFER ! 9127: < MOV PROFS,WA LOAD NUMBER OF CHARS IN BUFFER ! 9128: < JSR SYSPR CALL SYSTEM PRINT ROUTINE ! 9129: < PPM PRNL2 JUMP IF FAILED ! 9130: < LCT WA,PRLNW LOAD LENGTH OF BUFFER IN WORDS ! 9131: < ADD *SCHAR,XR POINT TO CHARS OF BUFFER ! 9132: < MOV NULLW,WB GET WORD OF BLANKS ! 9133: < * ! 9134: < * LOOP TO BLANK BUFFER ! 9135: < * ! 9136: < PRNL1 MOV WB,(XR)+ STORE WORD OF BLANKS, BUMP PTR ! 9137: < BCT WA,PRNL1 LOOP TILL ALL BLANKED ! 9138: < * ! 9139: < * EXIT POINT ! 9140: < * ! 9141: < MOV PRTSB,WB RESTORE WB ! 9142: < MOV PRTSA,WA RESTORE WA ! 9143: < MOV (XS)+,XR RESTORE ENTRY XR ! 9144: < ZER PROFS RESET PRINT BUFFER POINTER ! 9145: < EXI RETURN TO PRTNL CALLER ! 9146: < * ! 9147: < * FILE FULL OR NO OUTPUT FILE FOR LOAD MODULE ! 9148: < * ! 9149: < PRNL2 BNZ PRTEF,PRNL3 JUMP IF NOT FIRST TIME ! 9150: < MNZ PRTEF MARK FIRST OCCURRENCE ! 9151: < ERB 253,PRINT LIMIT EXCEEDED ON STANDARD OUTPUT CHANNEL ! 9152: < * ! 9153: < * STOP AT ONCE ! 9154: < * ! 9155: < PRNL3 MOV =NINI8,WB ENDING CODE ! 9156: < MOV KVSTN,WA STATEMENT NUMBER ! 9157: < JSR SYSEJ STOP ! 9158: < ENP END PROCEDURE PRTNL ! 9159: < EJC ! 9160: < * ! 9161: 20376,20377c18993 ! 9162: < JSR PRTVL PRINT VALUE ! 9163: < JSR PRTNL TERMINATE LINE ! 9164: --- ! 9165: > JSR PRTVF PRINT VALUE ! 9166: 20384c19000 ! 9167: < * PRTPG -- PRINT A PAGE THROW ! 9168: --- ! 9169: > * PRTPG -- PRINT A PAGE THROW ! 9170: ! 9171: ! 9172: ! 9173: ! 9174: ! 9175: ! 9176: ! 9177: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 140 ! 9178: ! 9179: ! 9180: 20387c19003 ! 9181: < * LISTING CHANNEL DEPENDING ON THE LISTING OPTIONS CHOSEN. ! 9182: --- ! 9183: > * LISTING FILE DEPENDING ON THE LISTING OPTIONS CHOSEN. ! 9184: 20392,20393c19008,19009 ! 9185: < BEQ STAGE,=STGXT,PRP01 JUMP IF EXECUTION TIME ! 9186: < BZE LSTLC,PRP06 RETURN IF TOP OF PAGE ALREADY ! 9187: --- ! 9188: > BNZ STAGX,PTPG1 SKIP IF EXECUTION TIME ! 9189: > BZE LSTLC,PTPG6 RETURN IF TOP OF PAGE ALREADY ! 9190: 20398,20401c19014,19017 ! 9191: < PRP01 MOV XR,-(XS) PRESERVE XR ! 9192: < BNZ PRSTD,PRP02 EJECT IF FLAG SET ! 9193: < BNZ PRICH,PRP03 JUMP IF INTERACTIVE LISTING CHANNEL ! 9194: < BZE PRECL,PRP03 JUMP IF COMPACT LISTING ! 9195: --- ! 9196: > PTPG1 MOV XR,-(XS) PRESERVE XR ! 9197: > BNZ PRECL,PTPG2 EJECT IF EXTENDED LISTING ! 9198: > BZE PRSTD,PTPG3 SKIP IF COMPACT LISTING ! 9199: > BNZ TTOUS,PTPG3 SKIP IF LISTING TO TERMINAL ! 9200: 20405,20406c19021,19024 ! 9201: < PRP02 JSR SYSEP EJECT ! 9202: < BRN PRP04 MERGE ! 9203: --- ! 9204: > PTPG2 JSR SYSEP EJECT ! 9205: > PPM PTPG4 IGNORE FAILURE ! 9206: > PPM EROSI ERROR ! 9207: > BRN PTPG4 MERGE ! 9208: 20408,20409c19026 ! 9209: < * COMPACT OR INTERACTIVE CHANNEL LISTING. CANT PRINT ! 9210: < * BLANKS UNTIL CHECK MADE FOR HEADERS PRINTED AND FLAG SET. ! 9211: --- ! 9212: > * COMPACT LISTING. ! 9213: 20411,20416c19028,19033 ! 9214: < * ! 9215: < PRP03 MOV HEADP,XR REMEMBER HEADP ! 9216: < MNZ HEADP SET TO AVOID REPEATED PRTPG CALLS ! 9217: < JSR PRTNL PRINT BLANK LINE ! 9218: < JSR PRTNL PRINT BLANK LINE ! 9219: < JSR PRTNL PRINT BLANK LINE ! 9220: --- ! 9221: > PTPG3 BNZ HEADN,PTPG4 SKIP IF HEADERS OMITTED ! 9222: > MOV HEADP,XR REMEMBER HEADP ! 9223: > MNZ HEADP SET TO AVOID RECURSIVE PRTPG CALLS ! 9224: > JSR PRTFH PRINT BLANK LINE ! 9225: > JSR PRTFH PRINT BLANK LINE ! 9226: > JSR PRTFH PRINT BLANK LINE ! 9227: 20425c19042 ! 9228: < PRP04 BNZ HEADP,PRP05 JUMP IF HEADER LISTED ! 9229: --- ! 9230: > PTPG4 BNZ HEADP,PTPG5 JUMP IF HEADER LISTED ! 9231: 20426a19044 ! 9232: > BNZ HEADN,PTPG5 SKIP IF HEADERS OMITTED ! 9233: 20431,20432c19049 ! 9234: < JSR PRTST APPEND EXTRA CHARS ! 9235: < JSR PRTNL PRINT IT ! 9236: ! 9237: ! 9238: ! 9239: ! 9240: ! 9241: ! 9242: ! 9243: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 141 ! 9244: ! 9245: ! 9246: --- ! 9247: > JSR PRTSF APPEND EXTRA CHARS AND PRINT ! 9248: 20434,20437c19051,19052 ! 9249: < JSR PRTST PLACE IT ! 9250: < JSR PRTNL PRINT IT ! 9251: < JSR PRTNL PRINT A BLANK ! 9252: < JSR PRTNL AND ANOTHER ! 9253: --- ! 9254: > JSR PRTFB PLACE IT AND A BLANK ! 9255: > JSR PRTFH AND ANOTHER ! 9256: 20443c19058 ! 9257: < PRP05 MOV (XS)+,XR RESTORE XR ! 9258: --- ! 9259: > PTPG5 MOV (XS)+,XR RESTORE XR ! 9260: 20447c19062 ! 9261: < PRP06 EXI RETURN ! 9262: --- ! 9263: > PTPG6 EXI RETURN ! 9264: 20451c19066 ! 9265: < * PRTPS - PRINT PAGE WITH TEST FOR STANDARD LISTING OPTION ! 9266: --- ! 9267: > * PRTPS -- PRINT PAGE WITH TEST FOR STANDARD LISTING OPTION ! 9268: 20463a19079,19089 ! 9269: > * ! 9270: > * PRTSF -- PRINT STRING TO STD PRINTER AND FLUSH BFR ! 9271: > * ! 9272: > * (XR) STRING TO PRINT ! 9273: > * JSR PRTSF CALL TO PRINT AND FLUSH ! 9274: > * ! 9275: > PRTSF PRC E,0 ENTRY POINT ! 9276: > JSR PRTST PRINT STRING ! 9277: > JSR PRTFH FLUSH BUFFER ! 9278: > EXI RETURN TO CALLER ! 9279: > ENP END PROCEDURE PRTSF ! 9280: 20512c19138 ! 9281: < * PRTST -- PRINT STRING ! 9282: --- ! 9283: > * PRTST -- PRINT STRING TO STANDARD FILE ! 9284: 20514c19140 ! 9285: < * PRTST PLACES A STRING OF CHARACTERS IN THE PRINT BUFFER ! 9286: --- ! 9287: > * PLACE A STRING OF CHARACTERS IN THE STANDARD PRINT BUFFER ! 9288: 20516,20517d19141 ! 9289: < * SEE PRTNL FOR GLOBAL LOCATIONS USED ! 9290: < * ! 9291: 20519a19144,19147 ! 9292: > * IF GLOBAL TTOUS IS NON-ZERO, STRING IS SENT TO TERMINAL ! 9293: > * INSTEAD OF STANDARD OUTPUT FILE. ! 9294: > * IF GLOBAL TTLST IS NON-ZERO, STRING IS SENT TO ! 9295: > * TERMINAL AS WELL AS STANDARD OUTPUT FILE ! 9296: 20526c19154 ! 9297: < BNZ HEADP,PRST0 WERE HEADERS PRINTED ! 9298: --- ! 9299: > BNZ HEADP,PTST1 WERE HEADERS PRINTED ! 9300: 20529c19157 ! 9301: < * CALL SYSPR ! 9302: ! 9303: ! 9304: ! 9305: ! 9306: ! 9307: ! 9308: ! 9309: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 142 ! 9310: ! 9311: ! 9312: --- ! 9313: > * HEADERS DEALT WITH ! 9314: 20531c19159,19165 ! 9315: < PRST0 MOV WA,PRSVA SAVE WA ! 9316: --- ! 9317: > PTST1 BZE PRLEN,PTST7 SKIP IF NO O/P POSSIBLE ! 9318: > BNZ PRPUT,PTST2 SKIP IF PUTTING IS OK ! 9319: > BZE TTLST,PTST7 SKIP OUT IF NOT ERROR TO TERML ! 9320: > * ! 9321: > * KEEP REGISTERS ! 9322: > * ! 9323: > PTST2 MOV WA,PRSVA SAVE WA ! 9324: 20537c19171 ! 9325: < PRST1 MOV SCLEN(XR),WA LOAD STRING LENGTH ! 9326: --- ! 9327: > PTST3 MOV SCLEN(XR),WA LOAD STRING LENGTH ! 9328: 20539c19173 ! 9329: < BZE WA,PRST4 JUMP TO EXIT IF NONE LEFT ! 9330: --- ! 9331: > BZE WA,PTST6 JUMP TO EXIT IF NONE LEFT ! 9332: 20545,20546c19179,19180 ! 9333: < BNZ XR,PRST2 SKIP IF ROOM LEFT ON THIS LINE ! 9334: < JSR PRTNL ELSE PRINT THIS LINE ! 9335: --- ! 9336: > BNZ XR,PTST4 SKIP IF ROOM LEFT ON THIS LINE ! 9337: > JSR PRTFH PRINT THIS LINE ! 9338: 20554c19188 ! 9339: < PRST2 BLO WA,XR,PRST3 JUMP IF ROOM FOR REST OF STRING ! 9340: --- ! 9341: > PTST4 BLO WA,XR,PTST5 JUMP IF ROOM FOR REST OF STRING ! 9342: 20559c19193 ! 9343: < PRST3 MOV PRBUF,XR POINT TO PRINT BUFFER ! 9344: --- ! 9345: > PTST5 MOV PRBUF,XR POINT TO PRINT BUFFER ! 9346: 20564d19197 ! 9347: < MOV WB,PRSVC PRESERVE CHAR COUNTER ! 9348: 20566d19198 ! 9349: < MOV PRSVC,WB RECOVER CHAR COUNTER ! 9350: 20569c19201 ! 9351: < BRN PRST1 LOOP BACK TO TEST FOR MORE ! 9352: --- ! 9353: > BRN PTST3 LOOP BACK TO TEST FOR MORE ! 9354: 20573c19205 ! 9355: < PRST4 MOV PRSVB,WB RESTORE ENTRY WB ! 9356: --- ! 9357: > PTST6 MOV PRSVB,WB RESTORE ENTRY WB ! 9358: 20575,20577d19206 ! 9359: < EXI RETURN TO PRTST CALLER ! 9360: < ENP END PROCEDURE PRTST ! 9361: < EJC ! 9362: 20579c19208 ! 9363: < * PRTTR -- PRINT TO TERMINAL ! 9364: --- ! 9365: > * RETURN POINT ! 9366: 20581,20582c19210,19211 ! 9367: < * CALLED TO PRINT CONTENTS OF STANDARD PRINT BUFFER TO ! 9368: ! 9369: ! 9370: ! 9371: ! 9372: ! 9373: ! 9374: ! 9375: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 143 ! 9376: ! 9377: ! 9378: < * ONLINE TERMINAL. CLEARS BUFFER DOWN AND RESETS PROFS. ! 9379: --- ! 9380: > PTST7 EXI RETURN TO PRTST CALLER ! 9381: > ENP END PROCEDURE PRTST ! 9382: 20584,20585c19213 ! 9383: < * JSR PRTTR CALL FOR PRINT ! 9384: < * (WA,WB) DESTROYED ! 9385: --- ! 9386: > * PRTVF -- PLACE A VALUE AND FLUSH STANDARD BUFFER ! 9387: 20587,20593c19215,19216 ! 9388: < PRTTR PRC E,0 ENTRY POINT ! 9389: < MOV XR,-(XS) SAVE XR ! 9390: < JSR PRTIC PRINT BUFFER CONTENTS ! 9391: < MOV PRBUF,XR POINT TO PRINT BFR TO CLEAR IT ! 9392: < LCT WA,PRLNW GET BUFFER LENGTH ! 9393: < ADD *SCHAR,XR POINT PAST SCBLK HEADER ! 9394: < MOV NULLW,WB GET BLANKS ! 9395: --- ! 9396: > * (XR) VALUE TO PRINT ! 9397: > * JSR PRTVF CALL TO PRINT AND FLUSH ! 9398: 20595,20602c19218,19222 ! 9399: < * LOOP TO CLEAR BUFFER ! 9400: < * ! 9401: < PRTT1 MOV WB,(XR)+ CLEAR A WORD ! 9402: < BCT WA,PRTT1 LOOP ! 9403: < ZER PROFS RESET PROFS ! 9404: < MOV (XS)+,XR RESTORE XR ! 9405: < EXI RETURN ! 9406: < ENP END PROCEDURE PRTTR ! 9407: --- ! 9408: > PRTVF PRC E,0 ENTRY POINT ! 9409: > JSR PRTVL PLACE VALUE ! 9410: > JSR PRTFH FLUSH BUFFER ! 9411: > EXI RETURN TO CALLER ! 9412: > ENP END PROCEDURE PRTVF ! 9413: 20676c19296 ! 9414: < * VCBLK, TBBLK, BCBLK MERGE HERE FOR ) BLANK NUMBER IDVAL ! 9415: --- ! 9416: > * VCBLK, TBBLK MERGE HERE FOR ) BLANK NUMBER IDVAL ! 9417: 20814a19435,19536 ! 9418: > EJC ! 9419: > * ! 9420: > * PTTFH -- FLUSH TERMINAL BUFFER ! 9421: > * ! 9422: > * PRINTS THE CONTENTS OF THE TTY BUFFER, RESETS ! 9423: > * THE BUFFER TO ALL BLANKS AND RESETS THE POINTER. ! 9424: > * ! 9425: > * JSR PTTFH CALL TO FLUSH BUFFER ! 9426: > * ! 9427: > PTTFH PRC E,0 ENTRY POINT ! 9428: > BZE TTLEN,PTTF2 SKIP IF NO TERMINAL ! 9429: > MOV XL,-(XS) SAVE XL ! 9430: > MOV XR,-(XS) SAVE XR ! 9431: > MOV WA,-(XS) SAVE WA ! 9432: > MOV WC,-(XS) SAVE WC ! 9433: > MOV TTBUF,XR LOAD POINTER TO BUFFER ! 9434: ! 9435: ! 9436: ! 9437: ! 9438: ! 9439: ! 9440: ! 9441: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 144 ! 9442: ! 9443: ! 9444: > MOV TTOFS,WC LOAD NUMBER OF CHARS IN BUFFER ! 9445: > JSR SYSPI CALL SYSTEM PRINT ROUTINE ! 9446: > PPM PTTF3 JUMP IF FAILED ! 9447: > PPM EROSI STOP IF ERROR ! 9448: > * ! 9449: > * BLANK BUFFER ! 9450: > * ! 9451: > PTTF1 MOV TTBLK,XL POINT TO BLANKING STRING ! 9452: > MOV TTCHS,XR POINT TO BUFFER ! 9453: > MOV TTCMV,WA COUNT OF BAUS TO MOVE ! 9454: > MVW MOVE BLANKS INTO BUFFER ! 9455: > ZER TTOFS RESET OFFSET ! 9456: > MOV (XS)+,WC RESTORE WC ! 9457: > MOV (XS)+,WA RECOVER WA ! 9458: > MOV (XS)+,XR RESTORE XR ! 9459: > MOV (XS)+,XL RESTORE XL ! 9460: > * ! 9461: > * RETURN POINT ! 9462: > * ! 9463: > PTTF2 EXI RETURN TO CALLER ! 9464: > * ! 9465: > * A FAILURE SUCH AS FILE OVERFILLED OCCURRED ! 9466: > * ! 9467: > PTTF3 BZE STAGX,PTTF1 IGNORE IF COMPILE TIME ! 9468: > BRN EXFAL ELSE CAUSE STMT FAILURE ! 9469: > ENP END PROCEDURE ! 9470: > EJC ! 9471: > * ! 9472: > * PTTST -- PRINT STRING TO TERMINAL ! 9473: > * ! 9474: > * PLACE A STRING OF CHARACTERS IN THE TERMINAL BUFFER ! 9475: > * ! 9476: > * NOTE THAT THE FIRST WORD OF THE BLOCK (NORMALLY B$SCL) ! 9477: > * IS NOT USED AND NEED NOT BE SET CORRECTLY (SEE PRTVN) ! 9478: > * ! 9479: > * (XR) STRING TO BE PRINTED ! 9480: > * JSR PTTST CALL TO PRINT STRING ! 9481: > * (TTOFS) UPDATED PAST CHARS PLACED ! 9482: > * ! 9483: > PTTST PRC E,0 ENTRY POINT ! 9484: > BZE TTLEN,PTTS5 SKIP IF NO TERMINAL ! 9485: > MOV WA,PRTVA SAVE WA ! 9486: > MOV WB,PRTVB SAVE WB ! 9487: > ZER WB SET CHARS PRINTED COUNT TO ZERO ! 9488: > * ! 9489: > * LOOP TO PRINT SUCCESSIVE LINES FOR LONG STRING ! 9490: > * ! 9491: > PTTS1 MOV SCLEN(XR),WA LOAD STRING LENGTH ! 9492: > SUB WB,WA SUBTRACT COUNT OF CHARS ALREADY OUT ! 9493: > BZE WA,PTTS4 JUMP TO EXIT IF NONE LEFT ! 9494: > MOV XL,-(XS) ELSE STACK ENTRY XL ! 9495: > MOV XR,-(XS) SAVE ARGUMENT ! 9496: > MOV XR,XL COPY FOR EVENTUAL MOVE ! 9497: > MOV TTLEN,XR LOAD BUFFER LENGTH ! 9498: > SUB TTOFS,XR GET CHARS LEFT IN BUFFER ! 9499: > BNZ XR,PTTS2 SKIP IF ROOM LEFT ON THIS LINE ! 9500: ! 9501: ! 9502: ! 9503: ! 9504: ! 9505: ! 9506: ! 9507: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 145 ! 9508: ! 9509: ! 9510: > JSR PTTFH ELSE PRINT THIS LINE ! 9511: > MOV TTLEN,XR AND SET FULL WIDTH AVAILABLE ! 9512: > * ! 9513: > * HERE WITH CHARS TO PRINT AND SOME ROOM IN BUFFER ! 9514: > * ! 9515: > PTTS2 BLO WA,XR,PTTS3 JUMP IF ROOM FOR REST OF STRING ! 9516: > MOV XR,WA ELSE SET TO FILL LINE ! 9517: > * ! 9518: > * MERGE HERE WITH CHARACTER COUNT IN WA ! 9519: > * ! 9520: > PTTS3 MOV TTBUF,XR POINT TO PRINT BUFFER ! 9521: > PLC XL,WB POINT TO LOCATION IN STRING ! 9522: > PSC XR,TTOFS POINT TO LOCATION IN BUFFER ! 9523: > ADD WA,WB BUMP STRING CHARS COUNT ! 9524: > ADD WA,TTOFS BUMP BUFFER POINTER ! 9525: > MVC MOVE CHARACTERS TO BUFFER ! 9526: > MOV (XS)+,XR RESTORE ARGUMENT POINTER ! 9527: > MOV (XS)+,XL RESTORE ENTRY XL ! 9528: > BRN PTTS1 LOOP BACK TO TEST FOR MORE ! 9529: > EJC ! 9530: > * ! 9531: > * HERE TO EXIT AFTER PRINTING STRING ! 9532: > * ! 9533: > PTTS4 MOV PRTVB,WB RESTORE ENTRY WB ! 9534: > MOV PRTVA,WA RESTORE ENTRY WA ! 9535: > * ! 9536: > * RETURN POINT ! 9537: > * ! 9538: > PTTS5 EXI RETURN TO PTTST CALLER ! 9539: > ENP END PROCEDURE PTTST ! 9540: 20851a19574,19578 ! 9541: > * THE GLOBAL FLAG RDRER IS SET JUST BEFORE THE READ, AND ! 9542: > * CLEARED AFTER IT. THIS IS SO THAT IN THE EVENT SYSRD ! 9543: > * OR SYSRI TAKE AN EROSI EXIT, THE ERROR APPENDAGE CAN ! 9544: > * RECOGNIZE THE SITUATION AND TAKE APPROPRIATE ACTION. ! 9545: > * ! 9546: 20859,20861c19586,19596 ! 9547: < BNZ XR,READ3 EXIT IF ALREADY READ ! 9548: < BNE STAGE,=STGIC,READ3 EXIT IF NOT INITIAL COMPILE ! 9549: < MOV CSWIN,WA MAX READ LENGTH ! 9550: --- ! 9551: > BNZ XR,READ5 EXIT IF ALREADY READ ! 9552: > * ! 9553: > * MERGE FROM -COPY EOF TO TRY READ ! 9554: > * ! 9555: > READ0 BEQ STAGE,=STGIC,READ1 READ IF INITIAL COMPILE ! 9556: > BZE R$COP,READ6 ELSE EXIT IF NO -COPY IN FORCE ! 9557: > * ! 9558: > * ATTEMPT READ ! 9559: > * ! 9560: > READ1 MOV CSWIN,WA MAX READ LENGTH ! 9561: > MNZ RDRER NOTE IN-READR IN CASE EROSI ! 9562: 20863,20864c19598,19612 ! 9563: < JSR SYSRD READ INPUT IMAGE ! 9564: < PPM READ4 JUMP IF END OF FILE ! 9565: --- ! 9566: ! 9567: ! 9568: ! 9569: ! 9570: ! 9571: ! 9572: ! 9573: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 146 ! 9574: ! 9575: ! 9576: > BZE TTINS,READ2 SKIP IF STANDARD INPUT FILE ! 9577: > JSR SYSRI READ FROM TERMINAL ! 9578: > PPM READ7 FAIL ! 9579: > PPM EROSI ERROR ! 9580: > BRN READ3 MERGE ! 9581: > * ! 9582: > * READ FROM STANDARD FILE ! 9583: > * ! 9584: > READ2 JSR SYSRD READ INPUT IMAGE ! 9585: > PPM READ7 JUMP IF END OF FILE ! 9586: > PPM EROSI ERROR RETURN ! 9587: > * ! 9588: > * MERGE ! 9589: > * ! 9590: > READ3 ZER RDRER NOTE NOT-IN-READR FOR ERROR RTN ! 9591: 20866c19614 ! 9592: < BLE SCLEN(XR),CSWIN,READ1 USE SMALLER OF STRING LNTH .. ! 9593: --- ! 9594: > BLE SCLEN(XR),CSWIN,READ4 USE SMALLER OF STRING LNTH.. ! 9595: 20871c19619 ! 9596: < READ1 JSR TRIMR TRIM TRAILING BLANKS ! 9597: --- ! 9598: > READ4 JSR TRIMR TRIM TRAILING BLANKS ! 9599: 20875c19623 ! 9600: < READ2 MOV XR,R$CNI STORE COPY OF POINTER ! 9601: --- ! 9602: > READ5 MOV XR,R$CNI STORE COPY OF POINTER ! 9603: 20879c19627 ! 9604: < READ3 EXI RETURN TO READR CALLER ! 9605: --- ! 9606: > READ6 EXI RETURN TO READR CALLER ! 9607: 20883c19631,19632 ! 9608: < READ4 MOV XR,DNAMP POP UNUSED SCBLK ! 9609: --- ! 9610: > READ7 ZER RDRER NOTE NOT-IN-READR FOR ERR ! 9611: > MOV XR,DNAMP POP UNUSED SCBLK ! 9612: 20885c19634,19636 ! 9613: < BRN READ2 MERGE ! 9614: --- ! 9615: > BZE R$COP,READ5 SKIP IF NO -COPY IN FORCE ! 9616: > JSR COPND CALL TO END THIS -COPY (EOF) ! 9617: > BRN READ0 TRY AGAIN ! 9618: 20886a19638 ! 9619: > .IF .CASL ! 9620: 20888a19641,19724 ! 9621: > * SBSCC -- BUILD SUBSTRING WITH CASE CONVERSION ! 9622: > * ! 9623: > * (XL) PTR TO SCBLK CONTAINING CHARS ! 9624: > * (WA) CHAR COUNT ! 9625: > * (WB) OFFSET TO FIRST CHAR IN SCBLK ! 9626: > * JSR SBSCC CALL TO BUILD SUBSTRING ! 9627: > * (XR) PTR TO NEW SCBLK WITH SUBSTRING ! 9628: > * (WA,WB,WC,XL,IA) DESTROYED ! 9629: > * ! 9630: > * IF OPTION .CPLC IS SELECTED (PREFER LOWER CASE), TARGET ! 9631: > * CASE IS LOWER CASE, OTHERWISE IT IS UPPER CASE. ! 9632: ! 9633: ! 9634: ! 9635: ! 9636: ! 9637: ! 9638: ! 9639: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 147 ! 9640: ! 9641: ! 9642: > * ! 9643: > SBSCC PRC E,0 ENTRY POINT ! 9644: > BZE WA,SBSC4 JUMP IF NULL SUBSTRING ! 9645: > JSR ALOCS ELSE ALLOCATE SCBLK ! 9646: > MOV WC,WA MOVE NUMBER OF CHARACTERS ! 9647: > MOV XR,WC SAVE PTR TO NEW SCBLK ! 9648: > PLC XL,WB PREPARE TO LOAD CHARS FROM OLD BLK ! 9649: > PSC XR PREPARE TO STORE CHARS IN NEW BLK ! 9650: > LCT WA,WA TO COUNT ROUND LOOP ! 9651: > * ! 9652: > * LOOP TO COPY AND TRANSLATE CHARS ! 9653: > * ! 9654: > SBSC1 LCH WB,(XL)+ GET CHAR ! 9655: > .IF .CPLC ! 9656: > BGT WB,=CH$L$,SBSC2 SKIP IF NOT UC LETTER ! 9657: > BLT WB,=CH$LA,SBSC2 SKIP IF NOT UC LETTER ! 9658: > .IF .CSCV ! 9659: > CUL WB CONVERT FROM UC TO LC ! 9660: > .ELSE ! 9661: > ADD =DFA$A,WB CONVERT FROM UC TO LC ! 9662: > .FI ! 9663: > .ELSE ! 9664: > BGT WB,=CH$$$,SBSC2 SKIP IF NOT A LC LETTER ! 9665: > BLT WB,=CH$$A,SBSC2 SKIP IF NOT A LC LETTER ! 9666: > .IF .CSCV ! 9667: > CLU WB CONVERT FROM LC TO UC ! 9668: > .ELSE ! 9669: > SUB =DFA$A,WB CONVERT FROM LC TO UC ! 9670: > .FI ! 9671: > .FI ! 9672: > * ! 9673: > * STORE CHAR IN NEW SUBSTRING ! 9674: > * ! 9675: > SBSC2 SCH WB,(XR)+ STORE CHAR ! 9676: > BCT WA,SBSC1 LOOP ! 9677: > MOV WC,XR RESTORE SCBLK POINTER ! 9678: > * ! 9679: > * RETURN POINT ! 9680: > * ! 9681: > SBSC3 ZER XL CLEAR GARBAGE POINTER IN XL ! 9682: > EXI RETURN TO SBSCC CALLER ! 9683: > * ! 9684: > * HERE FOR NULL SUBSTRING ! 9685: > * ! 9686: > SBSC4 MOV =NULLS,XR SET NULL STRING AS RESULT ! 9687: > BRN SBSC3 RETURN ! 9688: > ENP END PROCEDURE SBSCC ! 9689: > EJC ! 9690: > * ! 9691: > * SBSTG -- BUILD SUBSTRING POSSIBLY CONVERTING CASE ! 9692: > * ! 9693: > * (XL) PTR TO SCBLK CONTAINING CHARS ! 9694: > * (WA) CHAR COUNT ! 9695: > * (WB) OFFSET TO FIRST CHAR IN SCBLK ! 9696: > * JSR SBSTG CALL TO BUILD SUBSTRING ! 9697: > * (XR) PTR TO NEW SCBLK WITH SUBSTRING ! 9698: ! 9699: ! 9700: ! 9701: ! 9702: ! 9703: ! 9704: ! 9705: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 148 ! 9706: ! 9707: ! 9708: > * (WA,WB,WC,XL,IA) DESTROYED ! 9709: > * ! 9710: > * IF CASE IS TO BE IGNORED (-CASEIG OR .CSIG), SUBSTRING ! 9711: > * IS CONVERTED TO PREFERRED CASE (DEFAULT UPPER), ! 9712: > * OTHERWISE CASE IS LEFT ALONE. ! 9713: > * ! 9714: > SBSTG PRC E,0 ENTRY POINT ! 9715: > BZE CSWCI,SBSG1 SKIP IF CASE NOT IGNORED ! 9716: > JSR SBSCC CONVERT TO IGNORE CASE ! 9717: > EXI RETURN TO CALLER ! 9718: > * ! 9719: > SBSG1 JSR SBSTR READ SUBSTRING IN MIXED CASE ! 9720: > EXI RETURN TO CALLER ! 9721: > ENP END PROCEDURE SBSTG ! 9722: > .FI ! 9723: > EJC ! 9724: > * ! 9725: 20891c19727 ! 9726: < * (XL) PTR TO SCBLK/BFBLK WITH CHARS ! 9727: --- ! 9728: > * (XL) PTR TO SCBLK CONTAINING CHARS ! 9729: 20896d19731 ! 9730: < * (XL) ZERO ! 9731: 21086,21087c19921 ! 9732: < .IF .CUCF ! 9733: < BLO =CFP$U,XR,SCN07 QUICK CHECK FOR OTHER CHAR ! 9734: --- ! 9735: > BGE XR,=CFP$U,SCN07 QUICK CHECK FOR OTHER CHAR ! 9736: 21089,21091d19922 ! 9737: < .ELSE ! 9738: < BSW XR,CFP$A,SCN07 SWITCH ON SCANNED CHARACTER ! 9739: < .FI ! 9740: 21187,21190c20018,20021 ! 9741: < IFF CH$PL,SCN33 PLUS ! 9742: < IFF CH$MN,SCN34 MINUS ! 9743: < IFF CH$NT,SCN35 NOT ! 9744: < IFF CH$DL,SCN36 DOLLAR ! 9745: --- ! 9746: > IFF CH$PL,SCN34 PLUS ! 9747: > IFF CH$MN,SCN35 MINUS ! 9748: > IFF CH$NT,SCN36 NOT ! 9749: > IFF CH$DL,SCN33 DOLLAR ! 9750: 21206c20037 ! 9751: < ERB 230,SYNTAX ERROR. ILLEGAL CHARACTER ! 9752: --- ! 9753: > ERB 232,SYNTAX ERROR. ILLEGAL CHARACTER ! 9754: 21260c20091 ! 9755: < SCN14 ERB 231,SYNTAX ERROR. INVALID NUMERIC ITEM ! 9756: --- ! 9757: > SCN14 ERB 233,SYNTAX ERROR. INVALID NUMERIC ITEM ! 9758: 21263a20095,20097 ! 9759: > .IF .CASL ! 9760: > SCN15 JSR SBSTG BUILD STRING NAME OF VARIABLE ! 9761: > .ELSE ! 9762: 21264a20099 ! 9763: > .FI ! 9764: ! 9765: ! 9766: ! 9767: ! 9768: ! 9769: ! 9770: ! 9771: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 149 ! 9772: ! 9773: ! 9774: 21305c20140 ! 9775: < ERB 232,SYNTAX ERROR. UNMATCHED STRING QUOTE ! 9776: --- ! 9777: > ERB 234,SYNTAX ERROR. UNMATCHED STRING QUOTE ! 9778: 21381,21382c20216,20217 ! 9779: < * THE FIRST THREE ENTRIES ARE SPECIAL SINCE THEY CAN OCCUR ! 9780: < * AS PART OF A VARIABLE NAME (.) OR CONSTANT (.+-). ! 9781: --- ! 9782: > * THE FIRST FOUR ENTRIES ARE SPECIAL SINCE THEY CAN OCCUR ! 9783: > * AS PART OF A VARIABLE NAME (.$) OR CONSTANT (.+-). ! 9784: 21387c20222,20225 ! 9785: < SCN33 BZE WC,SCN09 PLUS CAN BE PART OF CONSTANT ! 9786: --- ! 9787: > SCN33 BZE WB,SCN09 DOLLAR CAN BE PART OF NAME ! 9788: > ADD WB,WC ELSE BUMP POINTER ! 9789: > * ! 9790: > SCN34 BZE WC,SCN09 PLUS CAN BE PART OF CONSTANT ! 9791: 21391c20229 ! 9792: < SCN34 BZE WC,SCN09 MINUS CAN BE PART OF CONSTANT ! 9793: --- ! 9794: > SCN35 BZE WC,SCN09 MINUS CAN BE PART OF CONSTANT ! 9795: 21393a20232,20234 ! 9796: > LCH XR,(XL) GET NEXT CHARACTER ! 9797: > BLT XR,=CH$D0,SCN36 SKIP IF NOT DIGIT ! 9798: > BLE XR,=CH$D9,SCN08 JUMP IF DIGIT ! 9799: 21395,21396c20236 ! 9800: < SCN35 ADD WB,WC NOT ! 9801: < SCN36 ADD WB,WC DOLLAR ! 9802: --- ! 9803: > SCN36 ADD WB,WC NOT ! 9804: 21405a20246 ! 9805: > EJC ! 9806: 21406a20248,20249 ! 9807: > * SCANE (CONTINUED) ! 9808: > * ! 9809: 21439c20282 ! 9810: < SCN48 ERB 233,SYNTAX ERROR. INVALID USE OF OPERATOR ! 9811: --- ! 9812: > SCN48 ERB 235,SYNTAX ERROR. INVALID USE OF OPERATOR ! 9813: 21494c20337 ! 9814: < ERB 234,SYNTAX ERROR. GOTO FIELD INCORRECT ! 9815: --- ! 9816: > ERB 236,SYNTAX ERROR. GOTO FIELD INCORRECT ! 9817: 21500,21501c20343,20344 ! 9818: < MOV =OPDVN,WA POINT TO OPDV FOR COMPLEX GOTO ! 9819: < BLE XR,STATB,SCNG3 JUMP IF NOT IN STATIC (SGD15) ! 9820: --- ! 9821: > MOV =OPDVN,WA ELSE POINT TO OPDV FOR COMPLEX GOTO ! 9822: > BLE XR,STATB,SCNG3 JUMP IF NOT IN STATIC ! 9823: 21503c20346 ! 9824: < BRN SCNG3 COMPLEX GOTO - MERGE ! 9825: --- ! 9826: > BRN SCNG3 AND MERGE ! 9827: 21571c20414 ! 9828: < * THE SORT USED IS HEAPSORT, FUNDAMENTALS OF DATA STRUCTURE ! 9829: --- ! 9830: ! 9831: ! 9832: ! 9833: ! 9834: ! 9835: ! 9836: ! 9837: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 150 ! 9838: ! 9839: ! 9840: > * THE SORT USED IS HEAPSORT, FUNDAMENTALS OF DATA STRUCTURES, ! 9841: 21576c20419 ! 9842: < * SORT ARRAY) CONTAINING AT ITS HIGH ADDRESS END, BYTE ! 9843: --- ! 9844: > * SORT ARRAY) CONTAINING AT ITS HIGH ADDRESS END, BAU ! 9845: 21588a20432,20433 ! 9846: > * GIVES ERROR MESSAGES FOR INCORRECT ARGS, RETURNS EXI 1 ! 9847: > * FOR EMPTY TABLE. ! 9848: 21593a20439 ! 9849: > * PPM LOC FAIL RETURN FOR EMPTY TABLE ! 9850: 21600c20446 ! 9851: < SORTA PRC N,0 ENTRY POINT ! 9852: --- ! 9853: > SORTA PRC N,1 ENTRY POINT ! 9854: 21606a20453,20455 ! 9855: > MOV (XR),WA GET ARG TYPE ! 9856: > BEQ WA,=B$ART,SRT00 SKIP IF ARRAY ! 9857: > BNE WA,=B$TBT,SRT16 ERROR IF NOT TABLE ! 9858: 21608,21611c20457,20463 ! 9859: < PPM SRT16 FAIL ! 9860: < MOV XR,-(XS) STACK PTR TO RESULTING KEY ARRAY ! 9861: < MOV XR,-(XS) ANOTHER COPY FOR COPYB ! 9862: < JSR COPYB GET COPY ARRAY FOR SORTING INTO ! 9863: --- ! 9864: > PPM SRT18 FAIL ! 9865: > * ! 9866: > * MAKE COPY OF ARRAY ! 9867: > * ! 9868: > SRT00 MOV XR,-(XS) STACK PTR TO RESULTING KEY ARRAY ! 9869: > MOV XR,-(XS) ANOTHER COPY FOR CBLCK ! 9870: > JSR CBLCK GET COPY ARRAY FOR SORTING INTO ! 9871: 21619c20471 ! 9872: < ERR 257,ERRONEOUS 2ND ARG IN SORT/RSORT OF VECTOR ! 9873: --- ! 9874: > ERR 237,ERRONEOUS 2ND ARG IN SORT/RSORT OF VECTOR ! 9875: 21627c20479 ! 9876: < SUB *VCSI$,WA GET NO. OF ENTRIES, N (IN BYTES) ! 9877: --- ! 9878: > SUB *VCSI$,WA GET NO. OF ENTRIES, N (IN BAUS) ! 9879: 21635c20487 ! 9880: < MOV *ARVLS,WB OFFSET TO FIRST VALUE IF ONE ! 9881: --- ! 9882: > MOV *ARVLS,WB OFFSET TO FIRST VALUE IF ONE DIM. ! 9883: 21637,21639c20489,20491 ! 9884: < BEQ ARNDM(XL),=NUM01,SRT04 JUMP IN FACT IF ONE DIM. ! 9885: < BNE ARNDM(XL),=NUM02,SRT16 FAIL UNLESS TWO DIMENS ! 9886: < LDI ARLB2(XL) GET LOWER BOUND 2 AS DEFAULT ! 9887: --- ! 9888: > BEQ ARNDM(XL),=NUM01,SRT04 JUMP IF IN FACT ONE DIMENSION ! 9889: > BNE ARNDM(XL),=NUM02,SRT16 FAIL UNLESS TWO DIMENSIONAL ! 9890: > LDI ARLB2(XL) GET LOWER BOUND 2 AS DEFAULT COLUMN ! 9891: 21662c20514 ! 9892: < WTB WA CONVERT TO BYTES ! 9893: --- ! 9894: > WTB WA CONVERT TO BAUS ! 9895: 21679c20531 ! 9896: ! 9897: ! 9898: ! 9899: ! 9900: ! 9901: ! 9902: ! 9903: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 151 ! 9904: ! 9905: ! 9906: < * WA = NUMBER OF ITEMS, N (CONVERTED TO BYTES). ! 9907: --- ! 9908: > * WA = NUMBER OF ITEMS, N (CONVERTED TO BAUS). ! 9909: 21714c20566 ! 9910: < BTW WC CONVERT FROM BYTES ! 9911: --- ! 9912: > BTW WC CONVERT FROM BAUS ! 9913: 21726c20578 ! 9914: < * (SRTSN) NUMBER OF ITEMS TO SORT, N (BYTES) ! 9915: --- ! 9916: > * (SRTSN) NUMBER OF ITEMS TO SORT, N (BAUS) ! 9917: 21732c20584 ! 9918: < WTB WC CONVERT BACK TO BYTES ! 9919: --- ! 9920: > WTB WC CONVERT BACK TO BAUS ! 9921: 21742c20594 ! 9922: < * ITEM, SINCE ALGORITHM INITIALISES IT AS, AND THEN MAINTAI ! 9923: --- ! 9924: > * ITEM, SINCE ALGORITHM INITIALISES IT AS, AND THEN MAINTAINS ! 9925: 21799,21800c20651,20656 ! 9926: < SRT16 ERB 256,SORT/RSORT 1ST ARG NOT SUITABLE ARRAY OR TABLE ! 9927: < SRT17 ERB 258,SORT/RSORT 2ND ARG OUT OF RANGE OR NON-INTEGER ! 9928: --- ! 9929: > SRT16 ERB 238,SORT/RSORT 1ST ARG NOT SUITABLE ARRAY OR TABLE ! 9930: > SRT17 ERB 239,SORT/RSORT 2ND ARG OUT OF RANGE OR NON-INTEGER ! 9931: > * ! 9932: > * SOFT FAIL RETURN ! 9933: > * ! 9934: > SRT18 EXI 1 RETURN ! 9935: 21964c20820 ! 9936: < WTB WC CONVERT TO BYTES ! 9937: --- ! 9938: > WTB WC CONVERT TO BAUS ! 9939: 21993c20849 ! 9940: < * (WA) MAX ARRAY INDEX, N (IN BYTES) ! 9941: --- ! 9942: > * (WA) MAX ARRAY INDEX, N (IN BAUS) ! 9943: 22045c20901 ! 9944: < WTB WC CONVERT BACK TO BYTES ! 9945: --- ! 9946: > WTB WC CONVERT BACK TO BAUS ! 9947: 22057c20913 ! 9948: < WTB WC CONVERT BACK TO BYTES ! 9949: --- ! 9950: > WTB WC CONVERT BACK TO BAUS ! 9951: 22123a20980,20982 ! 9952: > * POSSIBILITY OF OVERFLOW EXIST ON TWOS COMPLEMENT ! 9953: > * MACHINE IF HASH SOURCE IS MOST NEGATIVE INTEGER OR IS ! 9954: > * A REAL HAVING THE SAME BIT PATTERN. ! 9955: 22149c21008 ! 9956: < WTB WC CONVERT TO BYTE OFFSET ! 9957: --- ! 9958: > WTB WC CONVERT TO BAU OFFSET ! 9959: 22202a21062 ! 9960: > MOV XR,WB COPY DEFAULT VALUE ! 9961: 22211c21071 ! 9962: ! 9963: ! 9964: ! 9965: ! 9966: ! 9967: ! 9968: ! 9969: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 152 ! 9970: ! 9971: ! 9972: < MOV =NULLS,TEVAL(XR) SET NULL AS INITIAL VALUE ! 9973: --- ! 9974: > MOV WB,TEVAL(XR) SET DEFAULT AS INITIAL VALUE ! 9975: 22214c21074 ! 9976: < ICA XS POP PAST NAME/VALUE INDICATOR ! 9977: --- ! 9978: > MOV (XS)+,WB RESTORE NAME/VALUE INDICATOR ! 9979: 22235a21096 ! 9980: > * PPM LOC FAIL STOPTR IF NON-EXISTENT TRACE ! 9981: 22239c21100 ! 9982: < TRACE PRC N,2 ENTRY POINT ! 9983: --- ! 9984: > TRACE PRC N,3 ENTRY POINT ! 9985: 22244,22246c21105,21112 ! 9986: < .IF .CULC ! 9987: < FLC WA FOLD TO UPPER CASE ! 9988: < .FI ! 9989: --- ! 9990: > .IF .CASL ! 9991: > BLT WA,=CH$$A,TRC00 SKIP IF NOT LOWER CASE ! 9992: > SUB =DFA$A,WA CONVERT LOWER TO UPPER CASE ! 9993: > * ! 9994: > * HERE WITH UPPER CASE TRACE TYPE CODE ! 9995: > * ! 9996: > TRC00 MOV (XS),XR LOAD NAME ARGUMENT ! 9997: > .ELSE ! 9998: 22247a21114 ! 9999: > .FI ! 10000: 22253,22255d21119 ! 10001: < .IF .CULC ! 10002: < BZE WA,TRC10 JUMP IF BLANK (VALUE) ! 10003: < .ELSE ! 10004: 22257d21120 ! 10005: < .FI ! 10006: 22273a21137 ! 10007: > MOV XL,WB COPY TRBLK PTR OR 0 ! 10008: 22280a21145 ! 10009: > ORB PFCTR(XR),WB STOPTR FAIL CHECK ! 10010: 22282c21147 ! 10011: < BEQ WA,=CH$LC,EXNUL EXIT WITH NULL IF C (CALL) ! 10012: --- ! 10013: > BEQ WA,=CH$LC,TRC11 RETURN IF LETTER C ! 10014: 22286,22287c21151,21153 ! 10015: < TRC02 MOV XL,PFRTR(XR) SET/RESET RETURN TRACE ! 10016: < EXI RETURN ! 10017: --- ! 10018: > TRC02 ORB PFRTR(XR),WB STOPTR FAIL CHECK ! 10019: > MOV XL,PFRTR(XR) SET/RESET RETURN TRACE ! 10020: > BRN TRC11 RETURN ! 10021: 22292a21159 ! 10022: > MOV (XS)+,WB GET TRBLK OR ZERO ! 10023: 22295a21163 ! 10024: > BRN TRCA4 MERGE ! 10025: 22299,22300c21167,21171 ! 10026: < TRC04 BEQ XL,=STNDL,TRC16 ERROR IF UNDEFINED LABEL ! 10027: < MOV (XS)+,WB GET TRBLK PTR AGAIN ! 10028: ! 10029: ! 10030: ! 10031: ! 10032: ! 10033: ! 10034: ! 10035: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 153 ! 10036: ! 10037: ! 10038: --- ! 10039: > TRC04 BZE WB,TRC12 FAIL IF STOPTR OF UNTRACED LABEL ! 10040: > * ! 10041: > * TEST FOR UNDEFINED LABEL ! 10042: > * ! 10043: > TRCA4 BEQ XL,=STNDL,TRC17 ERROR IF UNDEFINED LABEL ! 10044: 22326c21197 ! 10045: < * MERGE HERE WITH TRBLK SET UP IN WB (OR ZERO) ! 10046: --- ! 10047: > * MERGE HERE WITH TRBLK SET UP IN XL (OR ZERO) ! 10048: 22328a21200 ! 10049: > MOV XL,WB COPY TRBLK PR OR 0 ! 10050: 22334a21207 ! 10051: > ORB R$FNC,WB STOPTR FAIL CHECK ! 10052: 22336c21209 ! 10053: < EXI RETURN ! 10054: --- ! 10055: > BRN TRC11 RETURN ! 10056: 22340,22341c21213,21215 ! 10057: < TRC08 MOV XL,R$ERT SET/RESET ERRTYPE TRACE ! 10058: < EXI RETURN ! 10059: --- ! 10060: > TRC08 ORB R$ERT,WB STOPTR FAIL CHECK ! 10061: > MOV XL,R$ERT SET/RESET ERRTYPE TRACE ! 10062: > BRN TRC11 RETURN ! 10063: 22345,22346c21219,21221 ! 10064: < TRC09 MOV XL,R$STC SET/RESET STCOUNT TRACE ! 10065: < EXI RETURN ! 10066: --- ! 10067: > TRC09 ORB R$STC,WB STOPTR FAIL CHECK ! 10068: > MOV XL,R$STC SET/RESET STCOUNT TRACE ! 10069: > BRN TRC11 RETURN ! 10070: 22355,22357c21230,21234 ! 10071: < MOV (XS)+,WB GET NEW TRBLK PTR AGAIN ! 10072: < ADD XL,WA POINT TO VARIABLE LOCATION ! 10073: < MOV WA,XR COPY VARIABLE POINTER ! 10074: --- ! 10075: > MOV (XS)+,XR GET NEW TRBLK PTR AGAIN ! 10076: > MOV WC,WB COPY TRACE TYPE ! 10077: > JSR TRCHN UPDATE TRACE CHAIN ! 10078: > PPM TRC12 FAIL ! 10079: > EXI RETURN ! 10080: 22359c21236 ! 10081: < * LOOP TO SEARCH TRBLK CHAIN ! 10082: --- ! 10083: > * RETURN AFTER CHECKING STOPTR FAIL CONDITION (WB = 0) ! 10084: 22361,22367c21238,21239 ! 10085: < TRC11 MOV (XR),XL POINT TO NEXT ENTRY ! 10086: < BNE (XL),=B$TRT,TRC13 JUMP IF NOT TRBLK ! 10087: < BLT WC,TRTYP(XL),TRC13 JUMP IF TOO FAR OUT ON CHAIN ! 10088: < BEQ WC,TRTYP(XL),TRC12 JUMP IF THIS MATCHES OUR TYPE ! 10089: < ADD *TRNXT,XL ELSE POINT TO LINK FIELD ! 10090: < MOV XL,XR COPY POINTER ! 10091: < BRN TRC11 AND LOOP BACK ! 10092: --- ! 10093: > TRC11 ZRB WB,TRC12 FAIL IF NECESSARY ! 10094: ! 10095: ! 10096: ! 10097: ! 10098: ! 10099: ! 10100: ! 10101: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 154 ! 10102: ! 10103: ! 10104: > EXI ELSE RETURN ! 10105: 22369c21241 ! 10106: < * HERE TO DELETE AN OLD TRBLK OF THE TYPE WE WERE GIVEN ! 10107: --- ! 10108: > * FAIL STOPTR ! 10109: 22371,22372c21243 ! 10110: < TRC12 MOV TRNXT(XL),XL GET PTR TO NEXT BLOCK OR VALUE ! 10111: < MOV XL,(XR) STORE TO DELETE THIS TRBLK ! 10112: --- ! 10113: > TRC12 EXI 3 FAIL RETURN ! 10114: 22374,22388d21244 ! 10115: < * HERE AFTER DELETING ANY OLD ASSOCIATION OF THIS TYPE ! 10116: < * ! 10117: < TRC13 BZE WB,TRC14 JUMP IF STOPTR CASE ! 10118: < MOV WB,(XR) ELSE LINK NEW TRBLK IN ! 10119: < MOV WB,XR COPY TRBLK POINTER ! 10120: < MOV XL,TRNXT(XR) STORE FORWARD POINTER ! 10121: < MOV WC,TRTYP(XR) STORE APPROPRIATE TRAP TYPE CODE ! 10122: < * ! 10123: < * HERE TO MAKE SURE VRGET,VRSTO ARE SET PROPERLY ! 10124: < * ! 10125: < TRC14 MOV WA,XR RECALL POSSIBLE VRBLK POINTER ! 10126: < SUB *VRVAL,XR POINT BACK TO VRBLK ! 10127: < JSR SETVR SET FIELDS IF VRBLK ! 10128: < EXI RETURN ! 10129: < * ! 10130: 22409c21265 ! 10131: < * (XL) TRFNC OR TRFPT ! 10132: --- ! 10133: > * (XL) TRFNC OR TRTRI ! 10134: 22420,22421c21276,21277 ! 10135: < MOV XL,TRFNC(XR) STORE TRFNC (OR TRFPT) ! 10136: < MOV (XS)+,TRTAG(XR) STORE TRTAG (OR TRFNM) ! 10137: --- ! 10138: > MOV XL,TRFNC(XR) STORE TRFNC (OR TRTRI) ! 10139: > MOV (XS)+,TRTAG(XR) STORE TRTAG (OR TRTER) ! 10140: 22427a21284,21340 ! 10141: > * TRCHN -- UPDATE TRACE BLOCK CHAIN ! 10142: > * ! 10143: > * CALLED WHEN A TRACE BLOCK CHAIN IS TO BE UPDATED BY ! 10144: > * ADDITION OR REMOVAL OF A TRBLK. ! 10145: > * IF A TRBLK OF THE SAME TYPE AS AN ADDITION IS ALREADY ! 10146: > * PRESENT IT IS DELETED. THE TRTAG FIELD OF ANY DELETED ! 10147: > * TRBLK IS CLEARED AS REQUIRED BY S$ENF. ! 10148: > * ! 10149: > * (XL,WA) POINTER, OFFSET TO TRACED VARIABLE ! 10150: > * (XR) PTR TO NEW TRBLK OR 0 FOR REMOVAL ! 10151: > * (WB) TRACE TYPE (TRTYP) ! 10152: > * JSR TRCHN CALL TO UPDATE TRACE CHAIN ! 10153: > * PPM LOC NO TRACE BLK OF REQD DELETION TYPE ! 10154: > * (WA,WC) DESTROYED ! 10155: > * ! 10156: > TRCHN PRC E,1 ENTRY POINT ! 10157: > ADD XL,WA KEEP POINTER TO TRACED LOCATION ! 10158: > MOV WA,XL COPY POINTER ! 10159: > SUB *TRNXT,XL ADJUST OFFSET BEFORE ENTERING LOOP ! 10160: ! 10161: ! 10162: ! 10163: ! 10164: ! 10165: ! 10166: ! 10167: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 155 ! 10168: ! 10169: ! 10170: > MOV XR,WC COPY TRBLK PTR ! 10171: > * ! 10172: > * LOOP TO FIND TRACE BLOCK ! 10173: > * ! 10174: > TRCH1 MOV XL,XR COPY SO XR POINTS TO PREDECESSOR ! 10175: > MOV TRNXT(XL),XL POINT TO POSSIBLE TRACE BLOCK ! 10176: > BNE (XL),=B$TRT,TRCH2 SKIP OUT AT CHAIN END ! 10177: > BLT WB,TRTYP(XL),TRCH2 SKIP IF TOO FAR OUT ON CHAIN ! 10178: > BNE WB,TRTYP(XL),TRCH1 LOOP UNLESS TYPE MATCHES ! 10179: > MOV TRNXT(XL),TRNXT(XR) REMOVE LINK TO OLD TRBLK ! 10180: > ZER TRTAG(XL) CLEAR IOTAG FIELD OF DELETED BLOCK ! 10181: > BZE WC,TRCH3 DONE IF NO NEW TRBLK ! 10182: > * ! 10183: > * OLD TRBLK REMOVED AND/OR END OF CHAIN REACHED ! 10184: > * ! 10185: > TRCH2 BZE WC,TRCH4 FAIL IF REQD BLOCK TYPE NOT FOUND ! 10186: > MOV WC,XL POINT TO NEW TRBLK ! 10187: > MOV TRNXT(XR),TRNXT(XL) ATTACH TAIL OF CHAIN TO IT ! 10188: > MOV WC,TRNXT(XR) LINK NEW BLOCK IN ! 10189: > MOV WB,TRTYP(XL) ENSURE TRTYP FIELD SET UP ! 10190: > * ! 10191: > * UPDATE ACCESS FIELDS OF NAME IF IT IS A VRBLK ! 10192: > * ! 10193: > TRCH3 MOV WA,XR POINT TO VBL ! 10194: > SUB *VRVAL,XR ADJUST TO POSSIBLE VRBLK NAME BASE ! 10195: > JSR SETVR UPDATE ACCESS FIELDS ! 10196: > MOV WA,XL RECOVER XL ! 10197: > MOV WC,XR RECOVER XR ! 10198: > EXI RETURN TO CALLER ! 10199: > * ! 10200: > * FAIL RETURN ! 10201: > * ! 10202: > TRCH4 MOV WA,XL RECOVER XL ! 10203: > MOV WC,XR RECOVER XR ! 10204: > EXI 1 FAIL ! 10205: > ENP END PROCEDURE TRCHN ! 10206: > EJC ! 10207: > * ! 10208: 22475,22476c21388,21389 ! 10209: < PSC XL,WA READY FOR STORING BLANKS ! 10210: < CTB WA,SCHAR GET LENGTH OF BLOCK IN BYTES ! 10211: --- ! 10212: > PSC XL,WA READY FOR STORING ZEROES ! 10213: > CTB WA,SCHAR GET LENGTH OF BLOCK IN BAUS ! 10214: 22480c21393 ! 10215: < ZER WC SET BLANK CHAR ! 10216: --- ! 10217: > ZER WC SET ZERO CHAR ! 10218: 22562c21475 ! 10219: < TRXQ1 MOV FLPTR,XS POINT BACK TO OUR STACK ENTRIES ! 10220: --- ! 10221: > TRXQR MOV FLPTR,XS POINT BACK TO OUR STACK ENTRIES ! 10222: 22595a21509 ! 10223: > * (XSCNB) ERROR INDICATOR - SEE 4) BELOW ! 10224: 22596a21511,21513 ! 10225: > * LEADING BLANKS AND TRAILING BLANKS POSITIONED BEFORE A ! 10226: ! 10227: ! 10228: ! 10229: ! 10230: ! 10231: ! 10232: ! 10233: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 156 ! 10234: ! 10235: ! 10236: > * DELIMITER OR AT THE END OF THE ARGUMENT STRING ARE ! 10237: > * IGNORED. OTHER BLANKS ARE ILLEGAL. ! 10238: 22598c21515 ! 10239: < * UNTIL ONE OF THE FOLLOWING THREE CONDITIONS OCCURS. ! 10240: --- ! 10241: > * UNTIL ONE OF THE FOLLOWING CONDITIONS OCCURS. ! 10242: 22604c21521 ! 10243: < * 3) END OF STRING ENCOUNTERED (WA SET TO 0) ! 10244: --- ! 10245: > * 3) END OF STRING ENCOUNTERED (WA AND XSCNB SET TO 0) ! 10246: 22605a21523,21524 ! 10247: > * 4) ILLEGAL BLANK (WA 0, XSCNB NON-ZERO) ! 10248: > * ! 10249: 22622a21542,21543 ! 10250: > ZER XSCBL CLEAR COUNT OF TRAILING BLANKS ! 10251: > ZER XSCNB CLEAR NON-BLANK SEEN FLAG ! 10252: 22632c21553 ! 10253: < XSCN1 LCH WB,(XR)+ LOAD NEXT CHARACTER ! 10254: --- ! 10255: > XSCN0 LCH WB,(XR)+ LOAD NEXT CHARACTER ! 10256: 22635,22636c21556,21561 ! 10257: < DCV WA DECREMENT COUNT OF CHARS LEFT ! 10258: < BNZ WA,XSCN1 LOOP BACK IF MORE CHARS TO GO ! 10259: --- ! 10260: > BEQ WB,=CH$BL,XSCN7 SKIP IF IT IS A BLANK ! 10261: > .IF .CAHT ! 10262: > BEQ WB,=CH$HT,XSCN7 SKIP IF IT IS A TAB ! 10263: > .FI ! 10264: > BNZ XSCBL,XSCN2 FAIL CHAR AFTER TRAILING BLANK ! 10265: > MNZ XSCNB NOTE A NON-BLANK SEEN ! 10266: 22637a21563,21568 ! 10267: > * COUNT CHARS DONE ! 10268: > * ! 10269: > XSCN1 DCV WA DECREMENT COUNT OF CHARS LEFT ! 10270: > BNZ WA,XSCN0 LOOP BACK IF MORE CHARS TO GO ! 10271: > ZER XSCNB CLEAR ERRONEOUS BLANKS FLAG ! 10272: > * ! 10273: 22643a21575 ! 10274: > SUB XSCBL,WA ADJUST FOR TRAILING BLANKS ! 10275: 22665a21598 ! 10276: > SUB XSCBL,WA ADJUST FOR TRAILING BLANKS ! 10277: 22673a21607,21609 ! 10278: > .IF .CASL ! 10279: > JSR SBSTG BUILD SUBSTRING ! 10280: > .ELSE ! 10281: 22674a21611 ! 10282: > .FI ! 10283: 22677a21615,21625 ! 10284: > * ! 10285: > * DEAL WITH BLANK ! 10286: > * ! 10287: > XSCN7 BZE XSCNB,XSCN8 SKIP IF LEADING BLANK ! 10288: > ICV XSCBL ELSE COUNT TRAILING BLANK ! 10289: > BRN XSCN1 LOOP ! 10290: > * ! 10291: > * LEADING BLANK ! 10292: ! 10293: ! 10294: ! 10295: ! 10296: ! 10297: ! 10298: ! 10299: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 157 ! 10300: ! 10301: ! 10302: > * ! 10303: > XSCN8 ICV XSOFS PUSH OFFSET PAST BLANK ! 10304: > BRN XSCN1 LOOP ! 10305: 22753c21701 ! 10306: < WTB XR CONVERT TO BYTE OFFSET ! 10307: --- ! 10308: > WTB XR CONVERT TO BAU OFFSET ! 10309: 22765c21713 ! 10310: < ERB 235,SUBSCRIPTED OPERAND IS NOT TABLE OR ARRAY ! 10311: --- ! 10312: > ERB 240,SUBSCRIPTED OPERAND IS NOT TABLE OR ARRAY ! 10313: 22841c21789 ! 10314: < WTB WA CONVERT OFFSET TO BYTES ! 10315: --- ! 10316: > WTB WA CONVERT OFFSET TO BAUS ! 10317: 22853c21801 ! 10318: < ARF09 ERB 236,ARRAY REFERENCED WITH WRONG NUMBER OF SUBSCRIPTS ! 10319: --- ! 10320: > ARF09 ERB 241,ARRAY REFERENCED WITH WRONG NUMBER OF SUBSCRIPTS ! 10321: 22866c21814 ! 10322: < ARF11 ERB 237,TABLE REFERENCED WITH MORE THAN ONE SUBSCRIPT ! 10323: --- ! 10324: > ARF11 ERB 242,TABLE REFERENCED WITH MORE THAN ONE SUBSCRIPT ! 10325: 22870c21818 ! 10326: < ARF12 ERB 238,ARRAY SUBSCRIPT IS NOT INTEGER ! 10327: --- ! 10328: > ARF12 ERB 243,ARRAY SUBSCRIPT IS NOT INTEGER ! 10329: 22901c21849 ! 10330: < WTB WB CONVERT TO BYTES ! 10331: --- ! 10332: > WTB WB CONVERT TO BAUS ! 10333: 22921a21870,21888 ! 10334: > * EROSI -- PROCESS ERROR RETURN FROM OSINT ! 10335: > * ! 10336: > * (WA) 0 OR ERROR CODE IN 256 TO 998 ! 10337: > * (XL) 0 OR PSEUDO SCBLK FOR ERROR MESSAGE ! 10338: > * (IA) NEW VALUE FOR CODE KEYWORD ! 10339: > * BRN EROSI JUMP TO PROCESS ERROR ! 10340: > * ! 10341: > EROSI RTN ! 10342: > STI KVCOD STORE NEW CODE KEYWORD VALUE ! 10343: > MOV WA,KVERT STORE ERROR CODE ! 10344: > BZE XL,ERROR FAIL AT ONCE IF NO ERROR MSG TEXT ! 10345: > MOV SCLEN(XL),WA STRING LENGTH ! 10346: > ZER WB ZERO OFFSET ! 10347: > JSR SBSTR COPY ERROR MESSAGE STRING ! 10348: > MOV XR,R$ETX AND STORE IT ! 10349: > MNZ EROSN NOTE NO CALL OF SYSEM ! 10350: > MOV KVERT,WA RECALL ERROR CODE ! 10351: > BRN ERROR ENTER ERROR SECTION ! 10352: > * ! 10353: 22935d21901 ! 10354: < EJC ! 10355: 22972d21937 ! 10356: < EJC ! 10357: 22999d21963 ! 10358: ! 10359: ! 10360: ! 10361: ! 10362: ! 10363: ! 10364: ! 10365: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 158 ! 10366: ! 10367: ! 10368: < EJC ! 10369: 23015d21978 ! 10370: < EJC ! 10371: 23058d22020 ! 10372: < EJC ! 10373: 23070d22031 ! 10374: < EJC ! 10375: 23100c22061 ! 10376: < ERR 239,INDIRECTION OPERAND IS NOT NAME ! 10377: --- ! 10378: > ERR 244,INDIRECTION OPERAND IS NOT NAME ! 10379: 23131c22092 ! 10380: < ERR 240,PATTERN MATCH RIGHT OPERAND IS NOT PATTERN ! 10381: --- ! 10382: > ERR 245,PATTERN MATCH RIGHT OPERAND IS NOT PATTERN ! 10383: 23161c22122,22125 ! 10384: < ERR 241,PATTERN MATCH LEFT OPERAND IS NOT STRING ! 10385: --- ! 10386: > ERR 246,PATTERN MATCH LEFT OPERAND IS NOT STRING ! 10387: > .IF .CNBF ! 10388: > MOV XR,R$PMS IF OK, STORE SUBJECT STRING POINTER ! 10389: > .ELSE ! 10390: 23163c22127 ! 10391: < * MERGE WITH BUFFER OR STRING ! 10392: --- ! 10393: > * MERGE WITH NULL STRING OR BUFFER ! 10394: 23165a22130 ! 10395: > .FI ! 10396: 23173a22139 ! 10397: > EJC ! 10398: 23174a22141,22142 ! 10399: > * MATCH (CONTINUED) ! 10400: > * ! 10401: 23201c22169 ! 10402: < ERB 242,FUNCTION RETURN FROM LEVEL ZERO ! 10403: --- ! 10404: > ERB 247,FUNCTION RETURN FROM LEVEL ZERO ! 10405: 23227c22195 ! 10406: < MOV PFVBL(XR),XL LOAD VRBLK PTR (SGD13) ! 10407: --- ! 10408: > MOV PFVBL(XR),XL LOAD VRBLK POINTER ! 10409: 23260c22228 ! 10410: < JSR PRTNL TERMINATE PRINT LINE ! 10411: --- ! 10412: > JSR PRTFH TERMINATE PRINT LINE ! 10413: 23295c22263 ! 10414: < * HERE IF &PROFILE = 1. START TIME MUST BE FRIGGED TO ! 10415: --- ! 10416: > * HERE IF PROFILE = 1. START TIME MUST BE FRIGGED TO ! 10417: 23303c22271 ! 10418: < * HERE IF &PROFILE = 2 ! 10419: --- ! 10420: > * HERE IF PROFILE = 2 ! 10421: 23331a22300 ! 10422: > EJC ! 10423: 23332a22302,22303 ! 10424: ! 10425: ! 10426: ! 10427: ! 10428: ! 10429: ! 10430: ! 10431: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 159 ! 10432: ! 10433: ! 10434: > * RETRN (CONTINUED) ! 10435: > * ! 10436: 23344d22314 ! 10437: < EJC ! 10438: 23346,23347d22315 ! 10439: < * RETRN (CONTINUED) ! 10440: < * ! 10441: 23352c22320 ! 10442: < ERR 243,FUNCTION RESULT IN NRETURN IS NOT NAME ! 10443: --- ! 10444: > ERR 248,FUNCTION RESULT IN NRETURN IS NOT NAME ! 10445: 23393c22361 ! 10446: < ERB 244,STATEMENT COUNT EXCEEDS VALUE OF STLIMIT KEYWORD ! 10447: --- ! 10448: > ERB 249,STATEMENT COUNT EXCEEDS VALUE OF STLIMIT KEYWORD ! 10449: 23409a22378,22380 ! 10450: > * ! 10451: > * MERGE PROFILE, NO-PROFILE CASES ! 10452: > * ! 10453: 23432c22403,22404 ! 10454: < * (XR) POINTS TO ENDING MESSAGE ! 10455: --- ! 10456: > * (WA) 0 OR ERROR MESSAGE CODE ! 10457: > * (XR) 0 OR ENDING MESSAGE POINTER ! 10458: 23436c22408,22410 ! 10459: < * TO ENDING MESSAGE OR IS ZERO IF MESSAGE PRINTED ALREADY. ! 10460: --- ! 10461: > * TO ENDING MESSAGE OR IS ZERO IF MESSAGE PRINTED ALREADY. ! 10462: > * (WA) AND (XR) ARE BOTH NON-ZERO ONLY IN THE CASE OF FATAL ! 10463: > * ERRORS DURING INITIAL COMPILE. ! 10464: 23440d22413 ! 10465: < BZE XR,STPRA SKIP IF SYSAX ALREADY CALLED (REG04) ! 10466: 23442d22414 ! 10467: < STPRA ADD RSMEM,DNAME USE THE RESERVE MEMORY ! 10468: 23444d22415 ! 10469: < ADD RSMEM,DNAME USE THE RESERVE MEMORY ! 10470: 23446,23448c22417,22424 ! 10471: < BNE XR,=ENDMS,STPR0 SKIP IF NOT NORMAL END MESSAGE ! 10472: < BNZ EXSTS,STPR3 SKIP IF EXEC STATS SUPPRESSED ! 10473: < ZER ERICH CLEAR ERRORS TO INT.CH. FLAG ! 10474: --- ! 10475: > ADD RSMEM,DNAME USE THE RESERVE MEMORY ! 10476: > BZE WA,STPR1 SKIP IF NO ERROR MESSAGE ! 10477: > MOV XR,STPXR KEEP 0 OR ENDING MESSAGE ! 10478: > MOV TTERL,TTLST SEND ERROR AND STATS TO TERML ! 10479: > JSR PRTPG PAGE THROW ! 10480: > JSR ERMSG PRINT ERROR MESSAGE ! 10481: > MOV STPXR,XR RECOVER 0 OR ENDING MESSAGE ! 10482: > ZER EXSTS TO FORCE ENDING STATS OUT FOR ERROR ! 10483: 23450c22426 ! 10484: < * LOOK TO SEE IF AN ENDING MESSAGE IS SUPPLIED ! 10485: --- ! 10486: > * PROCESS ENDING STATISTICS ! 10487: 23452,23454c22428,22433 ! 10488: < STPR0 JSR PRTPG EJECT PRINTER ! 10489: < BZE XR,STPR1 SKIP IF NO MESSAGE ! 10490: ! 10491: ! 10492: ! 10493: ! 10494: ! 10495: ! 10496: ! 10497: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 160 ! 10498: ! 10499: ! 10500: < JSR PRTST PRINT MESSAGE ! 10501: --- ! 10502: > STPR1 MTI KVSTN GET STATEMENT NUMBER ! 10503: > IEQ STPR6 SKIP IF COMPILE TIME ! 10504: > BNZ EXSTS,STPR4 SKIP IF NO STATS TO BE PRINTED ! 10505: > JSR PRTPG EJECT PRINTER ! 10506: > BZE XR,STPR2 SKIP IF NO MESSAGE ! 10507: > JSR PRTFB PRINT MESSAGE ! 10508: 23458,23459c22437 ! 10509: < STPR1 JSR PRTIS PRINT BLANK LINE ! 10510: < MTI KVSTN GET STATEMENT NUMBER ! 10511: --- ! 10512: > STPR2 JSR PRTFH PRINT BLANK LINE ! 10513: 23461c22439 ! 10514: < JSR PRTMX PRINT IT ! 10515: --- ! 10516: > JSR PRTMI PRINT IT ! 10517: 23466c22444 ! 10518: < JSR PRTMX PRINT IT ! 10519: --- ! 10520: > JSR PRTMI PRINT IT ! 10521: 23468c22446 ! 10522: < ILT STPR2 SKIP IF NEGATIVE ! 10523: --- ! 10524: > ILT STPR3 SKIP IF NEGATIVE ! 10525: 23472c22450,22452 ! 10526: < JSR PRTMX PRINT IT ! 10527: --- ! 10528: > JSR PRTMI PRINT IT ! 10529: > .IF .CTMD ! 10530: > .ELSE ! 10531: 23475c22455 ! 10532: < IOV STPR2 JUMP IF WE CANNOT COMPUTE ! 10533: --- ! 10534: > IOV STPR3 JUMP IF WE CANNOT COMPUTE ! 10535: 23477c22457 ! 10536: < IOV STPR2 JUMP IF OVERFLOW ! 10537: --- ! 10538: > IOV STPR3 JUMP IF OVERFLOW ! 10539: 23479c22459,22460 ! 10540: < JSR PRTMX PRINT IT ! 10541: --- ! 10542: > JSR PRTMI PRINT IT ! 10543: > .FI ! 10544: 23486c22467 ! 10545: < STPR2 MTI GBCNT LOAD COUNT OF COLLECTIONS ! 10546: --- ! 10547: > STPR3 MTI GBCNT LOAD COUNT OF COLLECTIONS ! 10548: 23488,23489c22469,22470 ! 10549: < JSR PRTMX PRINT IT ! 10550: < JSR PRTIS ONE MORE BLANK FOR LUCK ! 10551: --- ! 10552: > JSR PRTMI PRINT IT ! 10553: > JSR PRTFH ONE MORE BLANK FOR LUCK ! 10554: 23494c22475 ! 10555: < STPR3 MOV KVDMP,XR LOAD DUMP KEYWORD ! 10556: ! 10557: ! 10558: ! 10559: ! 10560: ! 10561: ! 10562: ! 10563: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 161 ! 10564: ! 10565: ! 10566: --- ! 10567: > STPR4 MOV KVDMP,XR LOAD DUMP KEYWORD ! 10568: 23496,23497c22477 ! 10569: < STPR3 JSR PRFLR PRINT PROFILE IF WANTED ! 10570: < * ! 10571: --- ! 10572: > STPR4 JSR PRFLR PRINT PROFILE IF WANTED ! 10573: 23501,23503c22481,22484 ! 10574: < MOV R$FCB,XL GET FCBLK CHAIN HEAD ! 10575: < MOV KVABE,WA LOAD ABEND VALUE ! 10576: < MOV KVCOD,WB LOAD CODE VALUE ! 10577: --- ! 10578: > * ! 10579: > * MERGE TO END RUN FOR SEVERE COMPILATION ERRORS ! 10580: > * ! 10581: > STPR5 MOV =KVCOD,WA LOAD CODE VALUE ! 10582: 23504a22486,22496 ! 10583: > * ! 10584: > * TERMINATION DURING COMPILE ! 10585: > * ! 10586: > STPR6 BZE XR,STPR7 SKIP IF NO MESSAGE ! 10587: > JSR PRTSF ELSE PRINT IT ! 10588: > * ! 10589: > * NOTIFICATION THAT IT IS COMPILE TIME ! 10590: > * ! 10591: > STPR7 MOV =ENDIC,XR NOTIFY USER ! 10592: > JSR PRTSF SEND IT ! 10593: > BRN STPR5 END ! 10594: 23522,23542d22513 ! 10595: < EJC ! 10596: < * ! 10597: < * SYSAB -- PRINT /ABNORMAL END/ AND TERMINATE ! 10598: < * ! 10599: < SYSAB RTN ! 10600: < MOV =ENDAB,XR POINT TO MESSAGE ! 10601: < MOV =NUM01,KVABE SET ABEND FLAG ! 10602: < JSR PRTNL SKIP TO NEW LINE ! 10603: < BRN STOPR JUMP TO PACK UP ! 10604: < EJC ! 10605: < * ! 10606: < * SYSTU -- PRINT /TIME UP/ AND TERMINATE ! 10607: < * ! 10608: < SYSTU RTN ! 10609: < MOV =ENDTU,XR POINT TO MESSAGE ! 10610: < MOV STRTU,WA GET CHARS /TU/ ! 10611: < MOV WA,KVCOD PUT IN KVCOD ! 10612: < MOV TIMUP,WA CHECK STATE OF TIMEUP SWITCH ! 10613: < MNZ TIMUP SET SWITCH ! 10614: < BNZ WA,STOPR STOP RUN IF ALREADY SET ! 10615: < ERB 245,TRANSLATION/EXECUTION TIME EXPIRED ! 10616: 23548a22520 ! 10617: > STAKV RTN ENTRY POINT FOR STACK OVERFLOW ! 10618: 23552c22524 ! 10619: < ERB 246,STACK OVERFLOW ! 10620: --- ! 10621: > ERB 250,STACK OVERFLOW ! 10622: ! 10623: ! 10624: ! 10625: ! 10626: ! 10627: ! 10628: ! 10629: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 162 ! 10630: ! 10631: ! 10632: 23557a22530,22531 ! 10633: > ZER WA NO ERROR MESSAGE ! 10634: > MOV TTERL,TTLST SEND MESSAGE TO TERML IF POSSIBLE ! 10635: 23591c22565,22567 ! 10636: < ERROR BEQ R$CIM,=CMLAB,CMPLE JUMP IF ERROR IN SCANNING LABEL ! 10637: --- ! 10638: > ERROR RTN ERROR CODE ENTRY POINT ! 10639: > BGE ERRFT,=NUM03,ERR16 SKIP IF TOO MANY FATALS ! 10640: > BEQ R$CIM,=CMLAB,ERRG1 JUMP IF ERROR IN LABEL SCAN ! 10641: 23598,23601c22574,22577 ! 10642: < IFF STGXC,ERR04 EXECUTE TIME COMPILE ! 10643: < IFF STGEV,ERR04 EVAL COMPILING EXPR. ! 10644: < IFF STGEE,ERR04 EVAL EVALUATING EXPR ! 10645: < IFF STGXT,ERR05 EXECUTE TIME ! 10646: --- ! 10647: > IFF STGXC,ERR08 EXECUTE TIME COMPILE ! 10648: > IFF STGEV,ERR08 EVAL COMPILING EXPR. ! 10649: > IFF STGEE,ERR08 EVAL EVALUATING EXPR ! 10650: > IFF STGXT,ERR12 EXECUTE TIME ! 10651: 23603c22579 ! 10652: < IFF STGXE,ERR04 XEQ COMPILE-PAST END ! 10653: --- ! 10654: > IFF STGXE,ERR08 XEQ COMPILE-PAST END ! 10655: 23605d22580 ! 10656: < EJC ! 10657: 23608d22582 ! 10658: < * ! 10659: 23613d22586 ! 10660: < * ! 10661: 23617d22589 ! 10662: < * ! 10663: 23619a22592 ! 10664: > EJC ! 10665: 23623,23624c22596,22600 ! 10666: < BNZ ERRSP,ERR03 JUMP IF ERROR SUPPRESS FLAG SET ! 10667: < MOV ERICH,ERLST SET FLAG FOR LISTR ! 10668: --- ! 10669: > BNZ ERRSP,ERR06 JUMP IF ERROR SUPPRESS FLAG SET ! 10670: > JSR PRTFH PRINT A BLANK ! 10671: > MOV TTERL,TTLST SET FLAG FOR LISTR ! 10672: > ADD =NUM03,LSTLC CAUSE EJECT IF BELOW 4 LINES LEFT ! 10673: > MOV LSTLC,-(XS) KEEP LINE COUNT ! 10674: 23626,23629c22602,22609 ! 10675: < JSR PRTIS TERMINATE LISTING ! 10676: < ZER ERLST CLEAR LISTR FLAG ! 10677: < MOV SCNSE,WA LOAD SCAN ELEMENT OFFSET ! 10678: < BZE WA,ERR02 SKIP IF NOT SET ! 10679: --- ! 10680: > JSR PRTFH TERMINATE LISTING ! 10681: > MOV (XS)+,WA RECOVER LINE COUNT ! 10682: > BGT LSTLC,WA,ERR02 SKIP IF NOT NEW PAGE ! 10683: > ADD =NUM04,LSTLC BUMP FOR LINES PRINTED ! 10684: > * ! 10685: > * PRINT FLAG UNDER BAD ELEMENT ! 10686: > * ! 10687: > ERR02 MOV SCNSE,WA LOAD SCAN ELEMENT OFFSET ! 10688: ! 10689: ! 10690: ! 10691: ! 10692: ! 10693: ! 10694: ! 10695: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 163 ! 10696: ! 10697: ! 10698: 23631c22611 ! 10699: < LCT WB,WA LOOP COUNTER ! 10700: --- ! 10701: > MOV WA,WB COPY OFFSET ! 10702: 23635a22616 ! 10703: > BZE WB,ERR05 SKIP IF NO BLANKS BEFORE ERROR FLAG ! 10704: 23637a22619 ! 10705: > LCT WB,WB LOOP COUNTER ! 10706: 23641,23642c22623,22624 ! 10707: < ERRA1 LCH WC,(XL)+ GET NEXT CHAR ! 10708: < BEQ WC,=CH$HT,ERRA2 SKIP IF TAB ! 10709: --- ! 10710: > ERR03 LCH WC,(XL)+ GET NEXT CHAR ! 10711: > BEQ WC,=CH$HT,ERR04 SKIP IF TAB ! 10712: 23648,23650c22630,22636 ! 10713: < ERRA2 SCH WC,(XR)+ STORE CHAR ! 10714: < BCT WB,ERRA1 LOOP ! 10715: < MOV =CH$EX,XL EXCLAMATION MARK ! 10716: --- ! 10717: > ERR04 SCH WC,(XR)+ STORE CHAR ! 10718: > BCT WB,ERR03 LOOP ! 10719: > EJC ! 10720: > * ! 10721: > * MERGE IN CASE OF NO PRECEDING BLANKS ! 10722: > * ! 10723: > ERR05 MOV =CH$EX,XL EXCLAMATION MARK ! 10724: 23658c22644 ! 10725: < MFI GTNSI STORE AS SIGNED INTEGER ! 10726: --- ! 10727: > STI GTNSI STORE AS SIGNED INTEGER ! 10728: 23662c22648 ! 10729: < STI PROFS USE AS CHARACTER OFFSET ! 10730: --- ! 10731: > MFI PROFS USE AS CHARACTER OFFSET ! 10732: 23669,23670c22655,22656 ! 10733: < ERR02 JSR ERMSG GENERATE FLAG AND ERROR MESSAGE ! 10734: < ADD =NUM03,LSTLC BUMP PAGE CTR FOR BLANK, ERROR, BLK ! 10735: --- ! 10736: > JSR ERMSG GENERATE FLAG AND ERROR MESSAGE ! 10737: > ZER TTLST REVERT TO REGULAR LISTING ! 10738: 23672c22658,22659 ! 10739: < BHI ERRFT,=NUM03,STOPR PACK UP IF SEVERAL FATALS ! 10740: --- ! 10741: > ICV CMERC BUMP ERROR COUNT ! 10742: > BNE STAGE,=STGIC,ERRG2 SPECIAL RETURN IF AFTER END LINE ! 10743: 23674c22661,22662 ! 10744: < * COUNT ERROR, INHIBIT EXECUTION IF REQUIRED ! 10745: --- ! 10746: > * IF ERROR IN READR THEN EITHER CLOSE OUT ! 10747: > * CURRENT -COPY LEVEL, OR IF AT TOP THEN ABORT ! 10748: 23676,23679c22664,22667 ! 10749: < ICV CMERC BUMP ERROR COUNT ! 10750: < ADD CSWER,NOXEQ INHIBIT XEQ IF -NOERRORS ! 10751: < BNE STAGE,=STGIC,CMP10 SPECIAL RETURN IF AFTER END LINE ! 10752: < EJC ! 10753: --- ! 10754: ! 10755: ! 10756: ! 10757: ! 10758: ! 10759: ! 10760: ! 10761: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 164 ! 10762: ! 10763: ! 10764: > BZE RDRER,ERR06 SKIP IF NOT ERROR WHILE READING ! 10765: > BZE R$COP,ERR16 ABORT IF AT TOP LEVEL INPUT FILE ! 10766: > ZER RDRER ELSE CLEAR READR ERROR FLAG ! 10767: > JSR COPND AND CLOSE OUT THIS COPY LEVEL ! 10768: 23683c22671,22672 ! 10769: < ERR03 MOV R$CIM,XR POINT TO START OF IMAGE ! 10770: --- ! 10771: > ERR06 MOV R$CIM,XR POINT TO START OF IMAGE ! 10772: > BZE XR,ERR07 SKIP IF NO INPUT IMAGE ! 10773: 23686c22675 ! 10774: < BEQ XR,=CH$MN,CMPCE JUMP IF ERROR IN CONTROL CARD ! 10775: --- ! 10776: > BEQ XR,=CH$MN,ERRG3 JUMP IF ERROR IN CONTROL CARD ! 10777: 23690c22679 ! 10778: < BNE XL,=T$SMC,ERR03 LOOP BACK IF NOT STATEMENT END ! 10779: --- ! 10780: > BNE XL,=T$SMC,ERR06 LOOP BACK IF NOT STATEMENT END ! 10781: 23691a22681 ! 10782: > EJC ! 10783: 23695c22685 ! 10784: < MOV *CDCOD,CWCOF RESET OFFSET IN CCBLK ! 10785: --- ! 10786: > ERR07 MOV *CDCOD,CWCOF RESET OFFSET IN CCBLK ! 10787: 23701c22691,22692 ! 10788: < BRN CMPSE MERGE TO GENERATE ERROR AS CDFAL ! 10789: --- ! 10790: > JMG CMPSE MERGE TO GENERATE ERROR AS CDFAL ! 10791: > EJC ! 10792: 23703c22694 ! 10793: < * ERROR DURING EXECUTE TIME COMPILE OR EXPRESSION EVALUATIO ! 10794: --- ! 10795: > * ERROR DURING EXECUTE TIME COMPILE OR EXPRESSION EVALUATION. ! 10796: 23711c22702,22704 ! 10797: < ERR04 ZER R$CCB FORGET GARBAGE CODE BLOCK ! 10798: --- ! 10799: > ERR08 JSR COPND CALL TO CLOSE OFF THIS LEVEL ! 10800: > BNZ R$COP,ERR08 LOOP IF NOT ALL -COPYS CLOSED ! 10801: > ZER R$CCB FORGET GARBAGE CODE BLOCK ! 10802: 23719,23721c22712,22714 ! 10803: < ERRA4 ICA XS POP STACK ! 10804: < BEQ XS,FLPRT,ERRC4 JUMP IF PROG DEFINED FN CALL FOUND ! 10805: < BNE XS,GTCEF,ERRA4 LOOP IF NOT EVAL OR CODE CALL YET ! 10806: --- ! 10807: > ERR09 ICA XS POP STACK ! 10808: > BEQ XS,FLPRT,ERR11 JUMP IF PROG DEFINED FN CALL FOUND ! 10809: > BNE XS,GTCEF,ERR09 LOOP IF NOT EVAL OR CODE CALL YET ! 10810: 23729c22722 ! 10811: < ERRB4 BNZ KVERL,ERR07 JUMP IF ERRLIMIT NON-ZERO ! 10812: --- ! 10813: > ERR10 BNZ KVERL,ERR14 JUMP IF ERRLIMIT NON-ZERO ! 10814: 23734,23736c22727,22728 ! 10815: < ERRC4 MOV FLPTR,XS RESTORE STACK FROM FLPTR ! 10816: < BRN ERRB4 MERGE ! 10817: < EJC ! 10818: --- ! 10819: > ERR11 MOV FLPTR,XS RESTORE STACK FROM FLPTR ! 10820: ! 10821: ! 10822: ! 10823: ! 10824: ! 10825: ! 10826: ! 10827: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 165 ! 10828: ! 10829: ! 10830: > BRN ERR10 MERGE ! 10831: 23742,23744c22734 ! 10832: < * IF ERRLIMIT KEYWORD IS ZERO, AN ABORT IS SIGNALLED, ! 10833: < * SEE CODING FOR SYSTEM LABEL ABORT AT L$ABO. ! 10834: < * ! 10835: --- ! 10836: > * IF ERRLIMIT KEYWORD IS ZERO, THE RUN IS ABORTED. ! 10837: 23749c22739 ! 10838: < * IF 3 OR MORE FATAL ERRORS OCCUR AN ABORT IS SIGNALLED ! 10839: --- ! 10840: > * IF 3 OR MORE FATAL ERRORS OCCUR AN ABORT OCCURS ! 10841: 23752a22743 ! 10842: > EJC ! 10843: 23754,23755c22745,22746 ! 10844: < ERR05 SSL INISS RESTORE MAIN PROG S-R STACK PTR ! 10845: < BNZ DMVCH,ERR08 JUMP IF IN MID-DUMP ! 10846: --- ! 10847: > ERR12 SSL INISS RESTORE MAIN PROG S-R STACK PTR ! 10848: > BNZ DMVCH,ERR15 JUMP IF IN MID-DUMP ! 10849: 23757c22748 ! 10850: < * MERGE HERE FROM ERR08 ! 10851: --- ! 10852: > * MERGE HERE AFTER DUMP TIDY UP ! 10853: 23759c22750,22751 ! 10854: < ERR06 BZE KVERL,LABO1 ABORT IF ERRLIMIT IS ZERO ! 10855: --- ! 10856: > ERR13 ZER XR CLEAR XR FLAG ! 10857: > BZE KVERL,STOPR ABORT IF ERRLIMIT IS ZERO ! 10858: 23762c22754 ! 10859: < * MERGE FROM ERR04 ! 10860: --- ! 10861: > * MERGE AFTER ERRLIMIT TEST ! 10862: 23764,23765c22756 ! 10863: < ERR07 BGE ERRFT,=NUM03,LABO1 ABORT IF TOO MANY FATAL ERRORS ! 10864: < DCV KVERL DECREMENT ERRLIMIT ! 10865: --- ! 10866: > ERR14 DCV KVERL DECREMENT ERRLIMIT ! 10867: 23772c22763 ! 10868: < BZE XR,LCNT1 CONTINUE IF NO SETEXIT TRAP ! 10869: --- ! 10870: > BZE XR,ERRG4 CONTINUE IF NO SETEXIT TRAP ! 10871: 23781,23782c22772,22773 ! 10872: < ERR08 MOV DMVCH,XR CHAIN HEAD FOR AFFECTED VRBLKS ! 10873: < BZE XR,ERR06 DONE IF ZERO ! 10874: --- ! 10875: > ERR15 MOV DMVCH,XR CHAIN HEAD FOR AFFECTED VRBLKS ! 10876: > BZE XR,ERR13 DONE IF ZERO ! 10877: 23785c22776,22795 ! 10878: < BRN ERR08 LOOP THROUGH CHAIN ! 10879: --- ! 10880: > BRN ERR15 LOOP THROUGH CHAIN ! 10881: > * ! 10882: > * TAKE DRACONIAN STEPS FOR REPEATED FATAL ERRORS ! 10883: > * ! 10884: > ERR16 MOV ERRTF,WA ERROR CODE ! 10885: > MOV WA,KVERT PLACE ERROR CODE FOR ERMSG ! 10886: ! 10887: ! 10888: ! 10889: ! 10890: ! 10891: ! 10892: ! 10893: Jan 17 17:08 1985 Differences between 3.5 and 4.3 Page 166 ! 10894: ! 10895: ! 10896: > MNZ XR IN CASE COMPILE TIME ! 10897: > BEQ STAGE,=STGIC,STOPR JUMP IF SO ! 10898: > BEQ STAGE,=STGCE,STOPR ALSO COMPILE TIME ! 10899: > ZER XR INDICATE EXECUTION ! 10900: > BRN STOPR TERMINATE RUN ! 10901: > * ! 10902: > ERRAF ERB 251,TOO MANY FATAL ERRORS ! 10903: > * ! 10904: > * HERE FOR GLOBAL ERROR JUMPS ! 10905: > * ! 10906: > ERRG1 JMG CMPLE ! 10907: > ERRG2 JMG CMPEE ! 10908: > ERRG3 JMG CMPCE ! 10909: > ERRG4 JMG LCNXE ! 10910: 23791,23801d22800 ! 10911: < ! 10912: < ! 10913: < ! 10914: < ! 10915: < ! 10916: < ! 10917: < ! 10918: < ! 10919: < ! 10920: < ! 10921: < ! 10922: ! 10923: ! 10924: ! 10925: ! 10926: ! 10927: ! 10928: ! 10929: ! 10930: ! 10931: ! 10932: ! 10933: ! 10934: ! 10935: ! 10936: ! 10937: ! 10938: ! 10939: ! 10940: ! 10941: ! 10942: ! 10943: ! 10944: ! 10945: ! 10946: ! 10947: ! 10948: ! 10949: ! 10950: ! 10951: ! 10952: ! 10953: ! 10954: ! 10955: ! 10956:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.