1 /OS8 FORTRAN II COMPILER OVERLAY V5 ***FPATCH.05***
14 /COPYRIGHT (C) 1974, 1975
15 /DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
19 /THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
20 /SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU-
21 /SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANT OTHER
22 /COPIES THEREOF, MAY NOT BR PROVIDED OR OTHERWISE MADE AVAILABLE
23 /TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
24 /AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE
25 /SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
28 /THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
29 /NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
30 /EQUIPMRNT COROPATION.
32 /DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
33 /SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
41 /FIXES TO FPATCH FOR V4 J.K. 1975
43 / .CHANGED USE OF 17645 SO /N CAN BE PASSED TO LOADER
44 / BIT 0 OF 17645 INDICATES THAT SABR WAS CHAINED
45 / TO FORM FORT INSTEAD OF WHOLE WORD
47 / .VERSION NUMBER VIA /V--OPTION
48 / WILL BE PASSED ONTO SABR
56 LLUNCH=7001 /TAKE OUT WHEN MERGING WITH COMPILER
83 0624 /.FT ASSUMED EXTENSION
93 4 /CLOSE OPERATOR USED AS DELETE
94 OUSNAME /DELETE FORTRN.TM IF IT EXISTS
97 CLA IAC /ENTER A FILE ON "SYS" - MAXIMUM SIZE
103 JMP I (OUERR /WHATS GOING ON HERE?
104 CLA IAC /DEVICE "SYS"
109 FCHFLG, 0 /USELESS LENGTH WORD
119 DCA I (JSBITS /SET "UNSTARTABLE" STATUS BIT
120 JMS I (FNEWF /INITIALIZE FIRST INPUT FILE WHILE I/O MON IS IN CORE
135 SNA CLA /DID HE SPECIFY A "L" OR "G" OPTION WITHOUT A
136 JMP FCDF0-3 /RELOCATABLE OUTPUT FILE?
137 FTADNM, TAD BDFALT /YES - GIVE HIM ONE
138 DCA I B7600 /NAMED "FORTRL.TM"
145 DCA I (7645 /SABR IT WAS CHAINED TO BY FORT
147 JMP I (1003 /START COMPILATION
149 BDFALT, 1 /DEVICE "SYS"
178 \f /ADDITIONS TO FORTRAN ERROR MESSAGES
188 /DUMMY PAGES TO CONSOLIDATE CORE IMAGE
204 JMP EOFERR /END OF INPUT REACHED BEFORE END STATEMENT
217 TAD (5001 /FORTRAN ALLOWS TWO-PAGE HANDLERS
223 1 /ASSIGN AND FETCH HANDLER
224 INHNDL, 5000 /LOCATIONS 5000-5377 ARE FREE
225 JMP IOERR /SOMETHINGS SCREWY
249 JUSTRD, JMS I INHNDL /INHNDL CONTAINS LOCN OF DEVICE HANDLER
250 0200 /READ 2 HALF-RECORDS INTO FIELD 0
303 EOFERR, JMS MOUCOR /KICK MONITOR OUT
315 P7400, 7400 /WARNING ***DO NOT MOVE THIS***
377 EOFORT, SZA CLA /ANY ERRORS?
378 JMP I SF7600 /YES, DO NOT ASSEMBLE
385 JMP .-5 /FILL BUFFER WITH ^Z
389 DCA I (JSBITS /NO NEED TO SAVE CORE ON THIS MONITOR CALL
393 CLA IAC /DEVICE "SYS"
398 CLOSCT, 0 /CLOSING LENGTH
404 BIGGIE, JMS I (MOUCOR
410 DCA I (JSBITS /WHOOPS - GUESS WE SHOULD RESTORE CORE AFTER ALL
424 SF7600, 7600 /CLEAR AC
434 \f *2200 /CANNOT GO PAST 2373
437 OUSNAM, TEXT /FORTRNTM/
438 NUMSG1, TEXT /ILLEGAL CONTINUATION/
439 EMSG15, TEXT /NO END STATEMENT/
440 EMSG16, TEXT #I/O ERROR#
441 EMSG17, TEXT /SABR.SV NOT FOUND/
442 EMSG20, TEXT /NO ROOM FOR OUTPUT/
444 /THESE ARE THE PATCHES OVER THE COMPILER.
447 *FORST /HEADER PRINTER
452 *FORST+5 /LEADER OUTPUT
453 CLA CLL CMA RTL /3 CHARACTERS OF LEADER
455 *LPTRIN+1 /HIGH-SPEED READER ROUTINE
461 JMS I FPROP /PUNCH 'CALL 0,EXIT'
465 *LPUNCH+1 /PUNCH ROUTINE
471 *XFINI-3 /TRAILER PRINTER
472 CLA CLL CMA RTL /3 CHARACTERS OF TRAILER
474 *XFINI-1 /ENDING SEQUENCE
476 TAD L75 /PICK UP ERROR FLAG
480 *GOOON+4 /TRAILER AFTER "END" STATEMENT
481 CLA CLL CMA RTL /3 CHARS ETC.
484 *LTTYPE+1 /REVERSE TTY WAIT MODE