diff options
Diffstat (limited to 'hollerith.patch')
-rw-r--r-- | hollerith.patch | 775 |
1 files changed, 775 insertions, 0 deletions
diff --git a/hollerith.patch b/hollerith.patch new file mode 100644 index 000000000000..dcc1e1aecb8c --- /dev/null +++ b/hollerith.patch @@ -0,0 +1,775 @@ +diff --git a/npostscr.f b/npostscr.f +index 8e6e539..260d1fe 100644 +--- a/npostscr.f ++++ b/npostscr.f +@@ -55,23 +55,23 @@ C + C + integer itmpl,jtmpl,ixl,iyl,ixh,iyh + save itmpl,jtmpl,ixl,iyl,ixh,iyh +- DATA INST/17,2,4, 1, 0,'XMIN', +- X 2,4, 2, 0,'XMAX', +- X 2,4, 3, 0,'YMIN', +- X 2,4, 4, 0,'YMAX', +- X 3,5, 5, 0,'RUCM','X ', +- X 3,5, 6, 0,'RUCM','Y ', +- X 1,7, 7, 1,'ROTA','XIS ', +- X 1,7, 8, 1,'SLDF','ILL ', +- X 1,5, 9, 1,'GENI','L ', +- X 1,5, 10, 1,'ASCI','I ', +- X 4,6, 11,64,'DDNA','ME ', +- X 4,6, 27,64,'BEGF','IL ', +- X 4,6, 43,64,'ENDF','IL ', +- X 4,6, 59,64,'BEGP','IC ', +- X 4,6, 75,64,'ENDP','IC ', +- X 4,6, 91,64,'BEGR','EC ', +- X 4,6,107,64,'ENDR','EC '/ ++ DATA INST/17,2,4, 1, 0,4HXMIN, ++ X 2,4, 2, 0,4HXMAX, ++ X 2,4, 3, 0,4HYMIN, ++ X 2,4, 4, 0,4HYMAX, ++ X 3,5, 5, 0,4HRUCM,4HX , ++ X 3,5, 6, 0,4HRUCM,4HY , ++ X 1,7, 7, 1,4HROTA,4HXIS , ++ X 1,7, 8, 1,4HSLDF,4HILL , ++ X 1,5, 9, 1,4HGENI,4HL , ++ X 1,5, 10, 1,4HASCI,4HI , ++ X 4,6, 11,64,4HDDNA,4HME , ++ X 4,6, 27,64,4HBEGF,4HIL , ++ X 4,6, 43,64,4HENDF,4HIL , ++ X 4,6, 59,64,4HBEGP,4HIC , ++ X 4,6, 75,64,4HENDP,4HIC , ++ X 4,6, 91,64,4HBEGR,4HEC , ++ X 4,6,107,64,4HENDR,4HEC / + C + C CHECK OPERATION FLAG AND BRANCH TO THE CORRECT SECTION. + INT1=DDIN(1) +diff --git a/ntek4010.f b/ntek4010.f +index 7dd36e8..4209a43 100644 +--- a/ntek4010.f ++++ b/ntek4010.f +@@ -46,7 +46,7 @@ C + C + INTEGER INT1 + C +- DATA INST/1,4,7,1,64,'CHAN','NEL '/ ++ DATA INST/1,4,7,1,64,4HCHAN,4HNEL / + c DATA CLRX/Z1D,Z1B,Z0C/ + c DATA CRSX/Z1B,Z1A/ + c DATA BELL/Z07/ +diff --git a/nucleus.f b/nucleus.f +index 14f42c5..3a77e36 100644 +--- a/nucleus.f ++++ b/nucleus.f +@@ -55,54 +55,54 @@ C + DATA POTCC/PODCC/ + DATA POTST(1)/36/ + DATA POT001 +- X / 1, 4, 1, 1, 'VDIM', +- X 1, 3, 1, 2, 'DIM ', +- X 1, 6, 1, 3, 'MEDI', 'UM ', +- X 1, 6, 1, 4, 'BRIG', 'HT ', +- X 1, 7, 1, 5, 'VBRI', 'GHT '/ ++ X / 1, 4, 1, 1, 4HVDIM, ++ X 1, 3, 1, 2, 4HDIM , ++ X 1, 6, 1, 3, 4HMEDI, 4HUM , ++ X 1, 6, 1, 4, 4HBRIG, 4HHT , ++ X 1, 7, 1, 5, 4HVBRI, 4HGHT / + DATA POT002 +- X / 1, 5, 2, 1, 'WHIT', 'E ', +- X 1, 3, 2, 2, 'RED ', +- X 1, 5, 2, 3, 'GREE', 'N ', +- X 1, 4, 2, 4, 'BLUE', +- X 1, 6, 2, 5, 'YELL', 'OW ', +- X 1, 7, 2, 6, 'MAGE', 'NTA ', +- X 1, 4, 2, 7, 'CYAN', +- X 1, 5, 2, 8, 'BLAC', 'K '/ ++ X / 1, 5, 2, 1, 4HWHIT, 4HE , ++ X 1, 3, 2, 2, 4HRED , ++ X 1, 5, 2, 3, 4HGREE, 4HN , ++ X 1, 4, 2, 4, 4HBLUE, ++ X 1, 6, 2, 5, 4HYELL, 4HOW , ++ X 1, 7, 2, 6, 4HMAGE, 4HNTA , ++ X 1, 4, 2, 7, 4HCYAN, ++ X 1, 5, 2, 8, 4HBLAC, 4HK / + DATA POT003 +- X / 1, 6, 3, 1, 'STEA', 'DY ', +- X 1, 5, 3, 2, 'BLIN', 'K '/ ++ X / 1, 6, 3, 1, 4HSTEA, 4HDY , ++ X 1, 5, 3, 2, 4HBLIN, 4HK / + DATA POT004 +- X / 2, 6, 4, 0, 'PICK', 'ID '/ ++ X / 2, 6, 4, 0, 4HPICK, 4HID / + DATA POT005 +- X / 2, 4, 5, 0, 'MARK'/ ++ X / 2, 4, 5, 0, 4HMARK/ + DATA POT006 +- X / 1, 5, 6, 1, 'SOLI', 'D ', +- X 1, 6, 6, 2, 'DASH', 'ED ', +- X 1, 6, 6, 3, 'DOTT', 'ED ', +- X 1, 7, 6, 4, 'DOTD', 'ASH '/ ++ X / 1, 5, 6, 1, 4HSOLI, 4HD , ++ X 1, 6, 6, 2, 4HDASH, 4HED , ++ X 1, 6, 6, 3, 4HDOTT, 4HED , ++ X 1, 7, 6, 4, 4HDOTD, 4HASH / + DATA POT007 +- X / 3, 4, 7, 0, 'SIZE'/ ++ X / 3, 4, 7, 0, 4HSIZE/ + DATA POT008 +- X / 3, 5, 8, 0, 'DSIZ', 'E '/ ++ X / 3, 5, 8, 0, 4HDSIZ, 4HE / + DATA POT009 +- X / 3, 5, 9, 0, 'ANGL', 'E '/ ++ X / 3, 5, 9, 0, 4HANGL, 4HE / + DATA POT010 +- X / 1, 4, 10, 1, 'LEFT', +- X 1, 5, 10, 2, 'RIGH', 'T ', +- X 1, 6, 10, 3, 'CENT', 'ER '/ ++ X / 1, 4, 10, 1, 4HLEFT, ++ X 1, 5, 10, 2, 4HRIGH, 4HT , ++ X 1, 6, 10, 3, 4HCENT, 4HER / + DATA POT011 +- X / 1, 6, 11, 1, 'NORM', 'GN ', +- X 1, 6, 11, 2, 'HARD', 'GN ', +- X 1, 6, 11, 3, 'SOFT', 'GN '/ ++ X / 1, 6, 11, 1, 4HNORM, 4HGN , ++ X 1, 6, 11, 2, 4HHARD, 4HGN , ++ X 1, 6, 11, 3, 4HSOFT, 4HGN / + DATA POT012 +- X / 1, 7, 12, 1, 'NOFX', 'SIZ ', +- X 1, 7, 12, 2, 'FIXS', 'IZE '/ ++ X / 1, 7, 12, 1, 4HNOFX, 4HSIZ , ++ X 1, 7, 12, 2, 4HFIXS, 4HIZE / + DATA POT013 +- X / 1, 7, 13, 0, 'NOCO', 'NST ', +- X 1, 6, 13, 1, 'XCON', 'ST ', +- X 1, 6, 13, 2, 'YCON', 'ST ', +- X 1, 6, 13, 3, 'ZCON', 'ST '/ ++ X / 1, 7, 13, 0, 4HNOCO, 4HNST , ++ X 1, 6, 13, 1, 4HXCON, 4HST , ++ X 1, 6, 13, 2, 4HYCON, 4HST , ++ X 1, 6, 13, 3, 4HZCON, 4HST / + C + END + BLOCK DATA B000003 +diff --git a/seq4010.f b/seq4010.f +index 7f2c819..2432489 100644 +--- a/seq4010.f ++++ b/seq4010.f +@@ -41,10 +41,10 @@ C + C + INTEGER INT1 + C +- DATA INST/4,4,6,1, 4,'PICT','ID ', +- X 2,6,2, 0,'PICT','SQ ', +- X 2,8,3, 0,'BAUD','RATE', +- X 4,6,4,64,'DDNA','ME '/ ++ DATA INST/4,4,6,1, 4,4HPICT,4HID , ++ X 2,6,2, 0,4HPICT,4HSQ , ++ X 2,8,3, 0,4HBAUD,4HRATE, ++ X 4,6,4,64,4HDDNA,4HME / + C + C CHECK OPERATION FLAG AND BRANCH TO THE CORRECT SECTION. + INT1=DDIN(1) +diff --git a/ug2dhg.f b/ug2dhg.f +index a5177d3..a574eb8 100644 +--- a/ug2dhg.f ++++ b/ug2dhg.f +@@ -63,7 +63,7 @@ C + LOGICAL LGL1 + INTEGER INT1,INT2 + C +- DATA INST/1,3,5,1,0,'TOLE','R '/ ++ DATA INST/1,3,5,1,0,4HTOLE,4HR / + C + C SCAN THE OPTIONS LIST, INITIALIZE, AND CHECK THE INPUT.. + EXTL=0.00005 +diff --git a/ug3trn.f b/ug3trn.f +index a964ec8..e8fc6a3 100644 +--- a/ug3trn.f ++++ b/ug3trn.f +@@ -39,9 +39,9 @@ C + C + INTEGER INT1 + C +- DATA INST/3,1,3,1,1,'GET ', +- X 1,3,1,2,'PUT ', +- X 1,6,2,1,'REMO','TE '/ ++ DATA INST/3,1,3,1,1,4HGET , ++ X 1,3,1,2,4HPUT , ++ X 1,6,2,1,4HREMO,4HTE / + C + C IS THERE AN ACTIVE DEVICE? + IF (DDAAI.EQ.0) GO TO 307 +diff --git a/ug3wrd.f b/ug3wrd.f +index 9317957..90b8057 100644 +--- a/ug3wrd.f ++++ b/ug3wrd.f +@@ -36,8 +36,8 @@ C + C + INTEGER INT1 + C +- DATA INST/2,1,3,1,1,'GET ', +- X 1,3,1,2,'PUT '/ ++ DATA INST/2,1,3,1,1,4HGET , ++ X 1,3,1,2,4HPUT / + C + C IS THERE AN ACTIVE DEVICE? + IF (DDAAI.EQ.0) GO TO 305 +diff --git a/ugclos.f b/ugclos.f +index bac376e..7f4646d 100644 +--- a/ugclos.f ++++ b/ugclos.f +@@ -40,8 +40,8 @@ C + C + INTEGER INT1 + C +- DATA INST/2,1,3,1,1,'ALL ', +- X 1,7,2,1,'NOCL','EAR '/ ++ DATA INST/2,1,3,1,1,4HALL , ++ X 1,7,2,1,4HNOCL,4HEAR / + DATA TARY/1,3/ + C + C INITIALIZE AND SCAN THE OPTIONS LIST. +diff --git a/ugcntr.f b/ugcntr.f +index 2493eb6..058d76a 100644 +--- a/ugcntr.f ++++ b/ugcntr.f +@@ -55,8 +55,8 @@ C + C + INTEGER INT1 + C +- DATA INST/2,2,4,1,0,'NSCL', +- X 3,5,2,0,'TOLE','R '/ ++ DATA INST/2,2,4,1,0,4HNSCL, ++ X 3,5,2,0,4HTOLE,4HR / + C + C SCAN THE OPTIONS LIST. + EXSC=0 +diff --git a/ugctol.f b/ugctol.f +index 547e259..1ab1909 100644 +--- a/ugctol.f ++++ b/ugctol.f +@@ -64,13 +64,13 @@ C + REAL FLT1,FLT2,FLT3 + INTEGER INT1,INT2 + C +- DATA INST/7,3,4,1,0,'SIZE', +- X 3,5,2,0,'ANGL','E ', +- X 1,5,3,1,'RIGH','T ', +- X 1,6,3,2,'CENT','ER ', +- X 1,7,4,0,'FIXS','IZE ', +- X 1,4,5,1,'LAST', +- X 1,4,5,2,'NEXT'/ ++ DATA INST/7,3,4,1,0,4HSIZE, ++ X 3,5,2,0,4HANGL,4HE , ++ X 1,5,3,1,4HRIGH,4HT , ++ X 1,6,3,2,4HCENT,4HER , ++ X 1,7,4,0,4HFIXS,4HIZE , ++ X 1,4,5,1,4HLAST, ++ X 1,4,5,2,4HNEXT/ + c DATA BITS/Z80000000,Z40000000,Z20000000,Z10000000, + c X Z08000000,Z04000000,Z02000000,Z01000000, + c X Z00800000,Z00400000,Z00200000,Z00100000, +diff --git a/ugdefl.f b/ugdefl.f +index bd023a5..e96c9d4 100644 +--- a/ugdefl.f ++++ b/ugdefl.f +@@ -35,10 +35,10 @@ C + INTEGER*4 EXSX(1),EXRS + EQUIVALENCE (EXRS,EXSX(1)) + C +- DATA INST/4,1,3,1,1,'GET ', +- X 1,3,1,2,'PUT ', +- X 1,5,1,3,'RESE','T ', +- X 1,3,1,2,'SET '/ ++ DATA INST/4,1,3,1,1,4HGET , ++ X 1,3,1,2,4HPUT , ++ X 1,5,1,3,4HRESE,4HT , ++ X 1,3,1,2,4HSET / + C + C SCAN THE OPTIONS LIST. + EXRS=0 +diff --git a/ugdsab.f b/ugdsab.f +index f181464..fd1dd85 100644 +--- a/ugdsab.f ++++ b/ugdsab.f +@@ -33,12 +33,12 @@ C + C + INTEGER INT1 + C +- DATA INST/6,1,8,1,1,'KEYB','OARD', +- X 1,4,2,1,'PICK', +- X 1,6,3,1,'BUTT','ON ', +- X 1,6,4,1,'STRO','KE ', +- X 1,7,5,1,'LOCA','TOR ', +- X 1,8,6,1,'VALU','ATOR'/ ++ DATA INST/6,1,8,1,1,4HKEYB,4HOARD, ++ X 1,4,2,1,4HPICK, ++ X 1,6,3,1,4HBUTT,4HON , ++ X 1,6,4,1,4HSTRO,4HKE , ++ X 1,7,5,1,4HLOCA,4HTOR , ++ X 1,8,6,1,4HVALU,4HATOR/ + C + C IS THERE AN INTERACTIVE ACTIVE DEVICE? + EFLG=0 +diff --git a/ugdspc.f b/ugdspc.f +index b6acd17..6edbc8e 100644 +--- a/ugdspc.f ++++ b/ugdspc.f +@@ -41,8 +41,8 @@ C + REAL FLT1,FLT2 + INTEGER INT1,INT2 + C +- DATA INST/2,1,3,1,1,'GET ', +- X 1,3,1,2,'PUT '/ ++ DATA INST/2,1,3,1,1,4HGET , ++ X 1,3,1,2,4HPUT / + C + C IS THERE AN ACTIVE DEVICE? + IF (DDAAI.EQ.0) GO TO 304 +diff --git a/ugectl.f b/ugectl.f +index a8d9cf2..ea57049 100644 +--- a/ugectl.f ++++ b/ugectl.f +@@ -46,12 +46,12 @@ C + C + INTEGER INT1 + C +- DATA INST/6,1,8,1, 1,'KEYB','OARD', +- X 1,6,2, 1,'LOCA','SE ', +- X 1,6,3, 1,'STRO','KE ', +- X 1,7,4, 1,'LOCA','TOR ', +- X 2,8,5, 0,'VALU','ATOR', +- X 5,6,6,12,'BUTT','ON '/ ++ DATA INST/6,1,8,1, 1,4HKEYB,4HOARD, ++ X 1,6,2, 1,4HLOCA,4HSE , ++ X 1,6,3, 1,4HSTRO,4HKE , ++ X 1,7,4, 1,4HLOCA,4HTOR , ++ X 2,8,5, 0,4HVALU,4HATOR, ++ X 5,6,6,12,4HBUTT,4HON / + C + C IS THERE AN INTERACTIVE ACTIVE DEVICE? + EFLG=0 +diff --git a/ugenab.f b/ugenab.f +index c11593f..edeafb6 100644 +--- a/ugenab.f ++++ b/ugenab.f +@@ -33,12 +33,12 @@ C + C + INTEGER INT1 + C +- DATA INST/6,1,8,1,1,'KEYB','OARD', +- X 1,4,2,1,'PICK', +- X 1,6,3,1,'BUTT','ON ', +- X 1,6,4,1,'STRO','KE ', +- X 1,7,5,1,'LOCA','TOR ', +- X 1,8,6,1,'VALU','ATOR'/ ++ DATA INST/6,1,8,1,1,4HKEYB,4HOARD, ++ X 1,4,2,1,4HPICK, ++ X 1,6,3,1,4HBUTT,4HON , ++ X 1,6,4,1,4HSTRO,4HKE , ++ X 1,7,5,1,4HLOCA,4HTOR , ++ X 1,8,6,1,4HVALU,4HATOR/ + C + C IS THERE AN INTERACTIVE ACTIVE DEVICE? + EFLG=0 +diff --git a/ugfont.f b/ugfont.f +index af40e2f..045a841 100644 +--- a/ugfont.f ++++ b/ugfont.f +@@ -30,8 +30,8 @@ C + C + CHARACTER*8 NAMS(2) + C +- DATA INST/2,1,7,1,1,'SIMP','LEX ', +- X 1,6,1,2,'DUPL','EX '/ ++ DATA INST/2,1,7,1,1,4HSIMP,4HLEX , ++ X 1,6,1,2,4HDUPL,4HEX / + DATA NAMS/'UGA013 ', + X 'UGA014 '/ + C +diff --git a/uginfo.f b/uginfo.f +index c76367c..e344eb1 100644 +--- a/uginfo.f ++++ b/uginfo.f +@@ -48,17 +48,17 @@ C + C + INTEGER INT1 + C +- DATA INST/11,1, 7, 1,1,'OPEN','DEV ', +- X 1, 6, 2,1,'ACTD','EV ', +- X 1, 7, 3,1,'DEVT','YPE ', +- X 1, 6, 4,1,'ILEV','EL ', +- X 1, 7, 5,1,'DMED','IUM ', +- X 1, 9, 6,1,'DIME','NSIO','N ', +- X 1, 8, 7,1,'CONT','ROLS', +- X 1, 9, 8,1,'ECON','TROL','S ', +- X 1,10, 9,1,'EXTE','NSIO','NS ', +- X 1, 8,10,1,'DSPC','SIZE', +- X 1, 8,11,1,'WDOW','SIZE'/ ++ DATA INST/11,1, 7, 1,1,4HOPEN,4HDEV , ++ X 1, 6, 2,1,4HACTD,4HEV , ++ X 1, 7, 3,1,4HDEVT,4HYPE , ++ X 1, 6, 4,1,4HILEV,4HEL , ++ X 1, 7, 5,1,4HDMED,4HIUM , ++ X 1, 9, 6,1,4HDIME,4HNSIO,4HN , ++ X 1, 8, 7,1,4HCONT,4HROLS, ++ X 1, 9, 8,1,4HECON,4HTROL,4HS , ++ X 1,10, 9,1,4HEXTE,4HNSIO,4HNS , ++ X 1, 8,10,1,4HDSPC,4HSIZE, ++ X 1, 8,11,1,4HWDOW,4HSIZE/ + C + C SCAN THE OPTIONS LIST. + EXOD=0 +diff --git a/uginit.f b/uginit.f +index 2935add..ef62d5f 100644 +--- a/uginit.f ++++ b/uginit.f +@@ -40,9 +40,9 @@ C + C + INTEGER INT1,INT2 + C +- DATA INST/3,1,5,1,1,'CLEA','R ', +- X 1,5,1,2,'RESE','T ', +- X 1,8,1,3,'CONT','INUE'/ ++ DATA INST/3,1,5,1,1,4HCLEA,4HR , ++ X 1,5,1,2,4HRESE,4HT , ++ X 1,8,1,3,4HCONT,4HINUE/ + c DATA MASK/ZFFFEFFFF/ + DATA MASK/ -65537/ + +diff --git a/uglgax.f b/uglgax.f +index 505ce3c..e4c390f 100644 +--- a/uglgax.f ++++ b/uglgax.f +@@ -55,9 +55,9 @@ C + REAL FLT1 + INTEGER INT1,INT2 + C +- DATA INST/3,2,4,1,0,'NSTM', +- X 3,4,2,0,'LSTM', +- X 3,4,3,0,'RSTM'/ ++ DATA INST/3,2,4,1,0,4HNSTM, ++ X 3,4,2,0,4HLSTM, ++ X 3,4,3,0,4HRSTM/ + C + C SCAN THE OPTIONS LIST. + EXNT=0 +diff --git a/uglnax.f b/uglnax.f +index e4903e9..2417d5b 100644 +--- a/uglnax.f ++++ b/uglnax.f +@@ -55,9 +55,9 @@ C + REAL FLT1 + INTEGER INT1,INT2 + C +- DATA INST/3,2,4,1,0,'NSTM', +- X 3,4,2,0,'LSTM', +- X 3,4,3,0,'RSTM'/ ++ DATA INST/3,2,4,1,0,4HNSTM, ++ X 3,4,2,0,4HLSTM, ++ X 3,4,3,0,4HRSTM/ + C + C SCAN THE OPTIONS LIST. + EXNT=0 +diff --git a/ugmctl.f b/ugmctl.f +index 9b5cb6f..825372e 100644 +--- a/ugmctl.f ++++ b/ugmctl.f +@@ -44,9 +44,9 @@ C + C + INTEGER DDIN(2),DDEX(1) + C +- DATA INST/3,2,7,1,0,'ERRU','NIT ', +- X 2,6,2,0,'ERRM','AX ', +- X 1,4,3,1,'BEEP'/ ++ DATA INST/3,2,7,1,0,4HERRU,4HNIT , ++ X 2,6,2,0,4HERRM,4HAX , ++ X 1,4,3,1,4HBEEP/ + C + C SCAN THE OPTIONS LIST. + EXEU=EMMEU +diff --git a/ugmesh.f b/ugmesh.f +index afc03d0..b0764b2 100644 +--- a/ugmesh.f ++++ b/ugmesh.f +@@ -56,9 +56,9 @@ C + REAL FLT1,FLT2,FLT3,FLT4,FLT5 + INTEGER INT1,INT2 + C +- DATA INST/3,1,5,1,1,'LOWE','R ', +- X 1,6,2,1,'NOCO','MN ', +- X 3,5,3,0,'TOLE','R '/ ++ DATA INST/3,1,5,1,1,4HLOWE,4HR , ++ X 1,6,2,1,4HNOCO,4HMN , ++ X 3,5,3,0,4HTOLE,4HR / + C + C + C SCAN THE OPTIONS LIST. +diff --git a/ugopen.f b/ugopen.f +index 20c3406..1e00c79 100644 +--- a/ugopen.f ++++ b/ugopen.f +@@ -49,49 +49,49 @@ C + REAL FLT1,FLT2 + INTEGER INT1,INT2 + C +- DATA INST/NSGD,1,7,1, 1,'SDDX','COW ', +- X 1,7,1, 2,'SEQG','IGI ', +- X 1,7,1, 3,'SDDG','IGI ', +- X 1,7,1, 4,'DECG','IGI ', +- X 1,7,1, 5,'SDDV','ST2 ', +- X 1,7,1, 6,'DECV','ST2 ', +- X 1,7,1, 7,'SDDG','RIN ', +- X 1,7,1, 8,'IMGN','300 ', +- X 1,7,1, 9,'IMGN','IBM ', +- X 1,7,1,10,'SDDM','ETH ', +- X 1,7,1,11,'POST','SCR ', +- X 1,7,1,12,'PRNT','RNX ', +- X 1,7,1,13,'SEQS','EKO ', +- X 1,7,1,14,'SDDS','KRS ', +- X 1,7,1,15,'SEIK','ORS ', +- X 1,7,1,16,'SDDS','KRF ', +- X 1,7,1,17,'SEIK','ORF ', +- X 1,7,1,18,'SDDS','XSS ', +- X 1,7,1,19,'TALA','RIS ', +- X 1,7,1,20,'SEQ4','010 ', +- X 1,7,1,21,'SDD4','010 ', +- X 1,7,1,22,'TEK4','010 ', +- X 1,7,1,23,'SEQT','KEM ', +- X 1,7,1,24,'SDDT','KEM ', +- X 1,7,1,25,'TEKE','MUL ', +- X 1,7,1,26,'SEQ4','027 ', +- X 1,7,1,27,'SDD4','027 ', +- X 1,7,1,28,'TEK4','027 ', +- X 1,7,1,29,'SEQ4','105 ', +- X 1,7,1,30,'SDD4','105 ', +- X 1,7,1,31,'TEK4','105 ', +- X 1,7,1,32,'SDD4','207 ', +- X 1,7,1,33,'TEK4','207 ', +- X 1,7,1,34,'TEK4','510 ', +- X 1,7,1,35,'VEP1','2FF ', +- X 1,7,1,36,'SDDX','WDO ', +- X 1,7,1,37,'XWIN','DOW ', +- X 1,7,1,38,'PDEV','UGS ', +- X 1,7,1,39,'PDEV','LIN ', +- X 1,7,1,40,'PDEV','SVR ', +- X 1,7,1,41,'PDEV','MVR ', +- X 1,7,1,42,'GENW','KST ', +- X 1,7,1,43,'TEST','DEV '/ ++ DATA INST/NSGD,1,7,1, 1,4HSDDX,4HCOW , ++ X 1,7,1, 2,4HSEQG,4HIGI , ++ X 1,7,1, 3,4HSDDG,4HIGI , ++ X 1,7,1, 4,4HDECG,4HIGI , ++ X 1,7,1, 5,4HSDDV,4HST2 , ++ X 1,7,1, 6,4HDECV,4HST2 , ++ X 1,7,1, 7,4HSDDG,4HRIN , ++ X 1,7,1, 8,4HIMGN,4H300 , ++ X 1,7,1, 9,4HIMGN,4HIBM , ++ X 1,7,1,10,4HSDDM,4HETH , ++ X 1,7,1,11,4HPOST,4HSCR , ++ X 1,7,1,12,4HPRNT,4HRNX , ++ X 1,7,1,13,4HSEQS,4HEKO , ++ X 1,7,1,14,4HSDDS,4HKRS , ++ X 1,7,1,15,4HSEIK,4HORS , ++ X 1,7,1,16,4HSDDS,4HKRF , ++ X 1,7,1,17,4HSEIK,4HORF , ++ X 1,7,1,18,4HSDDS,4HXSS , ++ X 1,7,1,19,4HTALA,4HRIS , ++ X 1,7,1,20,4HSEQ4,4H010 , ++ X 1,7,1,21,4HSDD4,4H010 , ++ X 1,7,1,22,4HTEK4,4H010 , ++ X 1,7,1,23,4HSEQT,4HKEM , ++ X 1,7,1,24,4HSDDT,4HKEM , ++ X 1,7,1,25,4HTEKE,4HMUL , ++ X 1,7,1,26,4HSEQ4,4H027 , ++ X 1,7,1,27,4HSDD4,4H027 , ++ X 1,7,1,28,4HTEK4,4H027 , ++ X 1,7,1,29,4HSEQ4,4H105 , ++ X 1,7,1,30,4HSDD4,4H105 , ++ X 1,7,1,31,4HTEK4,4H105 , ++ X 1,7,1,32,4HSDD4,4H207 , ++ X 1,7,1,33,4HTEK4,4H207 , ++ X 1,7,1,34,4HTEK4,4H510 , ++ X 1,7,1,35,4HVEP1,4H2FF , ++ X 1,7,1,36,4HSDDX,4HWDO , ++ X 1,7,1,37,4HXWIN,4HDOW , ++ X 1,7,1,38,4HPDEV,4HUGS , ++ X 1,7,1,39,4HPDEV,4HLIN , ++ X 1,7,1,40,4HPDEV,4HSVR , ++ X 1,7,1,41,4HPDEV,4HMVR , ++ X 1,7,1,42,4HGENW,4HKST , ++ X 1,7,1,43,4HTEST,4HDEV / + DATA NAMS/'UGCW01 ', + X 'UGGS01 ', + X 'UGGD01 ', +diff --git a/ugpict.f b/ugpict.f +index ada8c53..b4384e3 100644 +--- a/ugpict.f ++++ b/ugpict.f +@@ -40,15 +40,15 @@ C + C + INTEGER INT1,INT2 + C +- DATA INST/9,1,5,1,1,'CLEA','R ', +- X 1,6,2,1,'WIND','OW ', +- X 1,6,3,1,'NOPI','CK ', +- X 1,4,3,2,'PICK', +- X 1,7,4,1,'INCL','UDE ', +- X 1,4,4,2,'OMIT', +- X 1,2,5,1,'ON ', +- X 1,3,5,2,'OFF ', +- X 4,5,6,8,'ALIA','S '/ ++ DATA INST/9,1,5,1,1,4HCLEA,4HR , ++ X 1,6,2,1,4HWIND,4HOW , ++ X 1,6,3,1,4HNOPI,4HCK , ++ X 1,4,3,2,4HPICK, ++ X 1,7,4,1,4HINCL,4HUDE , ++ X 1,4,4,2,4HOMIT, ++ X 1,2,5,1,4HON , ++ X 1,3,5,2,4HOFF , ++ X 4,5,6,8,4HALIA,4HS / + C + C IS THERE AN ACTIVE DEVICE? + IF (DDAAI.EQ.0) GO TO 401 +diff --git a/ugqctr.f b/ugqctr.f +index fbcab5f..39538c3 100644 +--- a/ugqctr.f ++++ b/ugqctr.f +@@ -52,7 +52,7 @@ C + C + INTEGER INT1 + C +- DATA INST/1,2,4,1,0,'NSCL'/ ++ DATA INST/1,2,4,1,0,4HNSCL/ + C + C SCAN THE OPTIONS LIST. + EXSC=0 +diff --git a/ugscin.f b/ugscin.f +index f6d9662..fe98cf5 100644 +--- a/ugscin.f ++++ b/ugscin.f +@@ -75,13 +75,13 @@ C + INTEGER BBIT + REAL XCRD,YCRD,DELX,DELY + C +- DATA INST/7,1,7,1,1,'UNIF','ORM ', +- X 1,6,2,1,'GENT','AN ', +- X 3,5,3,0,'XFAC','T ', +- X 3,5,4,0,'YFAC','T ', +- X 2,5,5,0,'NPAR','M ', +- X 3,5,6,0,'DPAR','M ', +- X 3,5,7,0,'TOLE','R '/ ++ DATA INST/7,1,7,1,1,4HUNIF,4HORM , ++ X 1,6,2,1,4HGENT,4HAN , ++ X 3,5,3,0,4HXFAC,4HT , ++ X 3,5,4,0,4HYFAC,4HT , ++ X 2,5,5,0,4HNPAR,4HM , ++ X 3,5,6,0,4HDPAR,4HM , ++ X 3,5,7,0,4HTOLE,4HR / + C + C CHECK THE INPUT DATA, SCAN THE OPTIONS LIST, AND INITIALIZE. + IF (NPTS.LT.2) GO TO 501 +diff --git a/ugshld.f b/ugshld.f +index 93adea1..f94b588 100644 +--- a/ugshld.f ++++ b/ugshld.f +@@ -35,10 +35,10 @@ C + C + INTEGER INT1 + C +- DATA INST/4,1,3,1,1,'GET ', +- X 1,3,1,2,'PUT ', +- X 1,6,1,3,'DELE','TE ', +- X 2,6,2,0,'SHIE','LD '/ ++ DATA INST/4,1,3,1,1,4HGET , ++ X 1,3,1,2,4HPUT , ++ X 1,6,1,3,4HDELE,4HTE , ++ X 2,6,2,0,4HSHIE,4HLD / + C + C IS THERE AN ACTIVE DEVICE? + IF (DDAAI.EQ.0) GO TO 303 +diff --git a/ugtran.f b/ugtran.f +index 694d94f..433dc19 100644 +--- a/ugtran.f ++++ b/ugtran.f +@@ -49,13 +49,13 @@ C + REAL FLT1,FLT2,FLT3,FLT4,FLT5,FLT6 + INTEGER INT1,INT2 + C +- DATA INST/7,1,8,1,1,'PARA','LLEL', +- X 3,4,2,0,'EYED', +- X 3,3,3,0,'XLO ', +- X 3,3,4,0,'XHI ', +- X 3,3,5,0,'YLO ', +- X 3,3,6,0,'YHI ', +- X 3,5,7,0,'TOLE','R '/ ++ DATA INST/7,1,8,1,1,4HPARA,4HLLEL, ++ X 3,4,2,0,4HEYED, ++ X 3,3,3,0,4HXLO , ++ X 3,3,4,0,4HXHI , ++ X 3,3,5,0,4HYLO , ++ X 3,3,6,0,4HYHI , ++ X 3,5,7,0,4HTOLE,4HR / + C + C SCAN THE OPTIONS LIST. + EXPL=0 +diff --git a/ugwdow.f b/ugwdow.f +index 8079fb4..738479a 100644 +--- a/ugwdow.f ++++ b/ugwdow.f +@@ -37,9 +37,9 @@ C + C + INTEGER INT1,INT2 + C +- DATA INST/3,1,3,1,1,'GET ', +- X 1,3,1,2,'PUT ', +- X 1,6,2,1,'WIND','OW '/ ++ DATA INST/3,1,3,1,1,4HGET , ++ X 1,3,1,2,4HPUT , ++ X 1,6,2,1,4HWIND,4HOW / + C + C IS THERE AN ACTIVE DEVICE? + IF (DDAAI.EQ.0) GO TO 304 +diff --git a/ugwrit.f b/ugwrit.f +index e7fc0a8..32c4577 100644 +--- a/ugwrit.f ++++ b/ugwrit.f +@@ -77,9 +77,9 @@ C + REAL FLT1,FLT2,FLT3 + CHARACTER*1 CHR1 + C +- DATA INST/3,1,4,1,1,'PICK', +- X 1,4,2,1,'OMIT', +- X 1,5,3,1,'ERAS','E '/ ++ DATA INST/3,1,4,1,1,4HPICK, ++ X 1,4,2,1,4HOMIT, ++ X 1,5,3,1,4HERAS,4HE / + DATA DIGT/'0','1','2','3','4','5','6','7','8','9'/ + c DATA MSK1/Z00010000/ + c DATA MSK2/ZFFFEFFFF/ +diff --git a/ugxhch.f b/ugxhch.f +index ebeac92..9ed63c8 100644 +--- a/ugxhch.f ++++ b/ugxhch.f +@@ -50,13 +50,13 @@ C + C + INTEGER INT1,INT2,INT3 + C +- DATA INST/7,3,7,1,0,'SPAC','ING ', +- X 3,5,2,0,'ANGL','E ', +- X 3,1,3,0,'X ', +- X 3,1,4,0,'Y ', +- X 3,5,5,0,'XFAC','T ', +- X 3,5,6,0,'YFAC','T ', +- X 3,5,7,0,'TOLE','R '/ ++ DATA INST/7,3,7,1,0,4HSPAC,4HING , ++ X 3,5,2,0,4HANGL,4HE , ++ X 3,1,3,0,4HX , ++ X 3,1,4,0,4HY , ++ X 3,5,5,0,4HXFAC,4HT , ++ X 3,5,6,0,4HYFAC,4HT , ++ X 3,5,7,0,4HTOLE,4HR / + C + C SCAN THE OPTIONS LIST. + EXSP=0.02 |