~~ I>~~~~~~~~a  qa ~~ q~~ I>~~~~~~~~a   qa ~~  q ; COPYRIGHT (C) DATA GENERAL CORPORATION, 1971, 1972, 1973 ; ALL RIGHTS RESERVED. ; FORTRAN RUN-TIME PARAMETER TAPE ; DEFINE THE CURRENT STACK POINTER LOCATION .DUSR FSP= USP ; DEFINE THE FIXED STACK DISPLACEMENTS .DUSR FRTN= -170 ; DON'T MODIFY THE DISPLACEMENTS .DUSR FAC2= -171 ; FOR FRTN, FAC2, FAC1, FAC0 .DUSR FAC1= -172 ; AC1 .DUSR FAC0= -173 ; AC0 .DUSR FCRY= -174 ; CARRY .DUSR FEAD= -175 ; SUBROUTINE ENTRY ADDRESS .DUSR FPLP= -176 ; PARAMETER LIST POINTER .DUSR FOSP= -177 ; OLD STACK POINTER .DUSR FLGT= -200 ; STACK FRAME LENGTH .DUSR FFEL= 11 ; FIXED LENGTH OF THE STACK FRAME .DUSR FTSTR= -167 ; TEMPORARY STORAGE STARTING DISKP. .DUSR TMP= FTSTR .DUSR FZD= -200 ;FUDGE FACTOR FOR ZEROTH FORTRAN DISPLACEMENT ; DEFINE THE RUN-TIME ERROR CODES ; FATAL ERRORS USE @"CODE" WHERE THE "CODES" ARE ;  GIVEN BELOW ; DEFINE THE ALC MAGIC .DUSR ENOP= @10+SKP  ; ALC NO-OP .DUSR EOS= 1B11  ; ERROR CODE OFFSET .DUSR FATAL= 1B1  ; FATAL ERROR BIT .DUSR FEMOF= 1.*EOS+ENOP ; STACK OVERFLOW .DUSR FECGT= 2.*EOS+ENOP ; COMPUTED GOTO ERROR .DUSR FEDV0= 4.*EOS+ENOP ; DIVISION BY ZERO .DUSR FEIOV= 5.*EOS+ENOP ; INTEGER OVERFLOW .DUSR FEIPR= 6.*EOS+ENOP ; INTEGER POWER OVERFLOW .DUSR FEFUF= 7.*EOS+ENOP ; FLOATING POINT UNDERFLOW .DUSR FEFOF= 8.*EOS+ENOP ; FLOATING POINT OVERFLOW .DUSR FEFMR= 9.*EOS+ENOP ;ILLEGAL FORMAT SYNTAX .DUSR FELER= 11.*EOS+ENOP ;LOGIC CONVERSION ERROR .DUSR FENER= 13.*EOS+ENOP ;NUMBER CONVERSION ERROR .DUSR FEIOR= 14.*EOS+ENOP ;I/O ERROR .DUSR FEFLD= 15.*EOS+ENOP ;FIELD ERROR .DUSR FESQR= 16.*EOS+ENOP ;SQUARE ROOT OF NEGATIVE NUMBER .DUSR FELOG= 17.*EOS+ENOP ;LOG OF NEGATIVE NUMBER .DUSR FECLS= 18.*EOS+ENOP ;CHANNEL NOT OPEN .DUSR FEOPN= 19.*EOS+ENOP ;CHANNEL ALREADY OPEN .DUSR FECHN= 20.*EOS+ENOP ;N0 CHANNELS AVAILABLE .DUSR FEDOS= 21.*EOS+ENOP ;DOS EXCEPTIONAL STATUS .DUSR FEEXP= 24.*EOS+ENOP ; EXPONENTIAL OVER/UNDERFLOW .DUSR FEOOB= 25.*EOS+ENOP ;ARRAY REFERENCE OUT OF BOUNDS. .DUSR FEPWR= 26.*EOS+ENOP ;-VE BASE FOR FLOATING POWER .DUSR FENSO= 27.*EOS+ENOP ;NUMBER STACK OVERFLOW .DUSR FEBNI= 28.*EOS+ENOP ;BACKSPACE NOT IMPLEMENTED .DUSR FERST= 29.*EOS+ENOP ; ATTEMPT TO RESTORE CHANNEL    ; STATUS NOT PREVIOUSLY SAVED .DUSR FEFNR= 30.*EOS+ENOP ;ATTEMP TO SEEK ON NONRANDOM FILE ; DEFINE THE FLOATING POINT INTERPRETER PARAMETERS .DUSR MAXPR= 10. ; MAXIMUM PRECISION   ; (NO. OF WDS. OF MANTISSA MAX.) EFINE THE FLOATING REGISTER EQUIVALENCES .DUSR SGN= -3 ; SIGN (BIT 15)    ; (LEAVE AS MOST NEG. DISPLACE.) .DUSR EX= -2 ; EXPONENT (BITS 9-15) .DUSR PRC= -1 ; REGISTER PRECISION .DUSR MANT= 0 ; HIGH ORDER MANTISSA WORD ; DEFINE I/O CHANNEL ASSIGNMENT TABLE. .DUSR CATEL=3  ;TABLE LENGTH .DUSR CATEC=16. ;ENTRY COUNT .DUSR CATFL=0  ;FLAGS .DUSR CATNP=1  ;NAME POINTER FOR DEFAULT OPENS .DUSR CATRL=2  ; RECORD LENGTH (RANDOM ONLY) .DUSR CATOP=1B0 ;OPEN SWITCH .DUSR CATMO=1B1 ;MODE ; DEFINE THE NUMBER STACK DISPLACEMENTS .DUSR OP1S=0  ;CURRENT STACK OPERAND - SIGN .DUSR OP1X=1  ;EXPONENT .DUSR OP1M=2  ;MANTISSA .DUSR OP2S=-6  ;LAST OPERAND - SIGN .DUSR OP2X=-5  ;EXPONENT .DUSR OP2M=-4  ;MANTISSA .DUSR OP3S=6  ;NEXT OPERAND - SIGN .DUSR OP3X=7  ;EXPONENT .DUSR OP3M=10  ;MANTISSA .DUSR REGL=6  ;REGISTER LENGTH .EOT ;END OF PARAMETERS *U*U*U*U:2