Edinburgh IMP77 Compiler - Version 8.4 1 %external %routine %spec close output .machinemode zarch .machine "zEC12" .text .Ltext0: .align 8 OP.6946: .LFB189: 2 %external %routine %spec close input 3 %external %routine %spec open output(%integer i, %string(255) s) 4 %external %routine %spec open input(%integer i, %string(255) s) 5 %recordformat impcomfm(%integer statements, flags, code, gla, diags, perm, 6 %string(31) file, 7 %string(63) Option) 8 %externalrecord(impcomfm) IMPCOM 9 10 ! 11 ! On EMAS all shorts should be changed to integers. 12 ! Also, the INCLUDE facility will need to be modified. 13 ! 14 ! 15 !################################################### 16 ! Copyright: 1 January 1980 # 17 ! Interactive Datasystems (Edinburgh) Ltd. # 18 ! 32 Upper Gilmore Place # 19 ! Edinburgh EH3 9NJ # 20 ! All Rights Reserved # 21 !################################################### 22 23 %BEGIN .LVL867: stmg %r6,%r15,48(%r15) larl %r13,.L982 lay %r15,-107448(%r15) ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 lay %r4,107440(%r15) mvc 0(8,%r4),40(%r1) lay %r1,107608(%r15) stg %r1,107432(%r15) 24 %CONSTSTRING(4) version = "8.4" brasl %r14,_imp_initialise@PLT .LVL868: 25 26 !configuration parameters 27 28 %CONSTINTEGER max int = ((-1)>>1)//10 29 %CONSTINTEGER max dig = (-1)>>1-maxint*10 30 %CONSTINTEGER byte size = 8; !bits per byte 31 %CONSTINTEGER max tag = 800; !max no. of tags 32 %CONSTINTEGER max dict = 6000; !max extent of dictionary 33 %CONSTINTEGER name bits = 11 34 %CONSTINTEGER max names = 1<0 strings, <0 chars 154 %owninteger end mark = 0; !%end flag 155 %OWNINTEGER cont = ' ', 156 csym = ' '; !listing continuation marker 157 %OWNINTEGER decl = 0; !current declarator flags 158 %OWNINTEGER dim = 0; !arrayname dimension 159 %OWNINTEGER spec given = 0 160 161 %OWNINTEGER escape class = 0; !when and where to escape 162 %OWNINTEGER protection = 0, 163 atom flags = 0 164 %OWNINTEGER otype = 0; !current 'own' type 165 %OWNINTEGER reals ln = 1; ! =4 for %REALSLONG 166 %OWNINTEGER last1 = 0; !previous atom class 167 %OWNINTEGER gen type = 0 168 %OWNINTEGER ptype = 0; !current phrase type 169 %OWNINTEGER papp = 0; !current phrase parameters 170 %OWNINTEGER pformat = 0; !current phrase format 171 %OWNINTEGER force = 0; !force next ptype 172 %OWNINTEGER g = 0, 173 gg = 0, 174 map gg = 0; !grammar entries 175 %OWNINTEGER fdef = 0; !current format definition 176 %OWNINTEGER this = -1; !current recordformat tag 177 %OWNINTEGER nmin = 0; !analysis record atom pointer 178 %OWNINTEGER nmax = 0; !analysis record phrase pointer 179 %OWNINTEGER rbase = 0; !record format definition base 180 %OWNINTEGER stbase = 0; !constant work area base 181 %OWNINTEGER gmin = max grammar; !upper bound on grammar 182 %OWNINTEGER dmax = 1 183 %OWNINTEGER tmin = max tag; !upper bound on tags 184 %OWNINTEGER ss = 0; !source statement entry 185 %STRING(63) include file 186 %OWNINTEGER include list = 0, 187 include level= 0 188 %OWNINTEGER include = 0; !=0 unused, #0 being used 189 %OWNINTEGER perm = 1; !1 = compiling perm, 0 = program 190 %OWNINTEGER progmode = 0; !-1 = file, 1 = begin/eop 191 %OWNINTEGER sstype = 0; !-1:exec stat 192 ! 0: declaration 193 ! 1: block in 194 ! 2: block out 195 %OWNINTEGER spec mode = 0; !>=0: definition 196 ! -1: proc spec 197 ! -2: recordformat 198 %OWNINTEGER ocount = -1; !own constants wanted 199 %OWNINTEGER limit = 0; !lookup limit 200 %OWNINTEGER copy = 0; !duplicate name flag 201 %OWNINTEGER order = 0; !out of sequence flag 202 %OWNINTEGER for warn = 0; !non-local flag 203 %OWNINTEGER dubious = 0; !flag for dubious statements 204 %OWNINTEGER dp = 1 205 %OWNINTEGER pos1 = 0, 206 pos2 = 0; !error position 207 %OWNINTEGER pos = 0; !input line index 208 %OWNINTEGER dimension = 0; !current array dimension 209 %OWNINTEGER local = 0; !search limit for locals 210 %OWNINTEGER fm base = 0; !entry for format decls 211 %OWNINTEGER search base = 0; !entry for record_names 212 %OWNINTEGER format list = 0; !size of current format list 213 %INTEGER recid 214 %OWNBYTEINTEGERARRAY char(0:133) = nl(134); !input line 215 %INTEGERARRAY lit pool(0:lit max) 216 %OWNINTEGER lit = 0; !current literal (integer) 217 %OWNINTEGER lp = 0; !literals pointer 218 %OWNINTEGER block x = 0; !block tag 219 %OWNINTEGER list = 1; !<= to enable 220 %OWNINTEGER control = 0 221 %OWNINTEGER diag = 0; !diagnose flags 222 %SHORTINTEGERARRAY hash(0:max names) 223 %RECORD(tagfm)%ARRAY tag(0:max tag) 224 %SHORTINTEGERARRAY dict(1:max dict) 225 %BYTEINTEGERARRAY buff(1:512) 226 %OWNINTEGER bp = 0 227 228 !*** start of generated tables *** 229 %endoflist 575 !*** end of generated tables *** llill %r1,41126 agrk %r1,%r15,%r1 lghi %r2,255 .L970: pfd 2,1024(%r1) xc 0(256,%r1),0(%r1) la %r1,256(%r1) brctg %r2,.L970 xc 0(256,%r1),0(%r1) mviy 41126(%r15),1 llihh %r1,23040 stg %r1,41127(%r15) mviy 41382(%r15),4 llihf %r1,1447314755 stg %r1,41383(%r15) mviy 41638(%r15),7 lg %r1,.L983-.L982(%r13) stg %r1,41639(%r15) mviy 41894(%r15),8 lg %r1,.L984-.L982(%r13) stg %r1,41895(%r15) mviy 42150(%r15),4 llihf %r1,1094993219 stg %r1,42151(%r15) mviy 42406(%r15),7 lg %r1,.L985-.L982(%r13) stg %r1,42407(%r15) mviy 42662(%r15),8 lg %r1,.L986-.L982(%r13) stg %r1,42663(%r15) mviy 42918(%r15),4 llihf %r1,1347571523 stg %r1,42919(%r15) mviy 43174(%r15),8 lg %r1,.L987-.L982(%r13) stg %r1,43175(%r15) mviy 43430(%r15),7 lg %r1,.L988-.L982(%r13) stg %r1,43431(%r15) mviy 43686(%r15),5 lg %r1,.L989-.L982(%r13) stg %r1,43687(%r15) mviy 43942(%r15),4 llihf %r1,1279542595 stg %r1,43943(%r15) mviy 44198(%r15),8 lg %r1,.L990-.L982(%r13) stg %r1,44199(%r15) mviy 45734(%r15),6 lg %r1,.L991-.L982(%r13) stg %r1,45735(%r15) mviy 45990(%r15),5 lg %r1,.L992-.L982(%r13) stg %r1,45991(%r15) mviy 46246(%r15),1 llihh %r1,21504 stg %r1,46247(%r15) mviy 46502(%r15),5 lg %r1,.L993-.L982(%r13) stg %r1,46503(%r15) mviy 46758(%r15),7 lg %r1,.L994-.L982(%r13) stg %r1,46759(%r15) mviy 47014(%r15),2 llihh %r1,19522 stg %r1,47015(%r15) mviy 47270(%r15),5 lg %r1,.L995-.L982(%r13) stg %r1,47271(%r15) mviy 47526(%r15),2 llihh %r1,21058 stg %r1,47527(%r15) mviy 47782(%r15),3 llihf %r1,1398096384 stg %r1,47783(%r15) mviy 48038(%r15),6 lg %r1,.L996-.L982(%r13) stg %r1,48039(%r15) mviy 48294(%r15),5 lg %r1,.L997-.L982(%r13) stg %r1,48295(%r15) mviy 48550(%r15),5 lg %r1,.L998-.L982(%r13) stg %r1,48551(%r15) mviy 48806(%r15),4 llihf %r1,1312902469 stg %r1,48807(%r15) mviy 49062(%r15),5 lg %r1,.L999-.L982(%r13) stg %r1,49063(%r15) mviy 49318(%r15),5 lg %r1,.L1000-.L982(%r13) stg %r1,49319(%r15) mviy 49574(%r15),6 lg %r1,.L1001-.L982(%r13) stg %r1,49575(%r15) mviy 49830(%r15),3 llihf %r1,1331121664 stg %r1,49831(%r15) mviy 50086(%r15),8 lg %r1,.L1002-.L982(%r13) stg %r1,50087(%r15) mviy 50342(%r15),6 lg %r1,.L1003-.L982(%r13) stg %r1,50343(%r15) mviy 50598(%r15),6 lg %r1,.L1004-.L982(%r13) stg %r1,50599(%r15) mviy 50854(%r15),6 lg %r1,.L1005-.L982(%r13) stg %r1,50855(%r15) mviy 51110(%r15),4 llihf %r1,1397769539 stg %r1,51111(%r15) mviy 51366(%r15),5 lg %r1,.L1006-.L982(%r13) stg %r1,51367(%r15) mviy 51622(%r15),5 lg %r1,.L1007-.L982(%r13) stg %r1,51623(%r15) mviy 51878(%r15),3 llihf %r1,1330655488 stg %r1,51879(%r15) mviy 52134(%r15),3 llihf %r1,1330655744 stg %r1,52135(%r15) mviy 52390(%r15),3 llihf %r1,1330656000 stg %r1,52391(%r15) mviy 52646(%r15),4 llihf %r1,1397311310 stg %r1,52647(%r15) mviy 52902(%r15),3 llihf %r1,1431261184 stg %r1,52903(%r15) mviy 53158(%r15),3 llihf %r1,1297040384 stg %r1,53159(%r15) mviy 53414(%r15),3 llihf %r1,1146049536 stg %r1,53415(%r15) mviy 53670(%r15),4 llihf %r1,1129270608 stg %r1,53671(%r15) mviy 53926(%r15),5 lg %r1,.L1008-.L982(%r13) stg %r1,53927(%r15) mviy 54182(%r15),2 llihh %r1,17745 stg %r1,54183(%r15) mviy 54438(%r15),4 llihf %r1,1162954065 stg %r1,54439(%r15) mviy 54694(%r15),3 llihf %r1,1245793536 stg %r1,54695(%r15) mviy 54950(%r15),4 llihf %r1,1247104336 stg %r1,54951(%r15) mviy 55206(%r15),5 lg %r1,.L1009-.L982(%r13) stg %r1,55207(%r15) mviy 55462(%r15),3 llihf %r1,1095648256 stg %r1,55463(%r15) mviy 55718(%r15),2 llihh %r1,20306 stg %r1,55719(%r15) mviy 55974(%r15),3 llihf %r1,1313821696 stg %r1,55975(%r15) mviy 56230(%r15),5 lg %r1,.L1010-.L982(%r13) stg %r1,56231(%r15) mviy 56486(%r15),5 lg %r1,.L1011-.L982(%r13) stg %r1,56487(%r15) mviy 56742(%r15),3 llihf %r1,1179603456 stg %r1,56743(%r15) mviy 56998(%r15),5 lg %r1,.L1012-.L982(%r13) stg %r1,56999(%r15) mviy 57254(%r15),4 llihf %r1,1163413844 stg %r1,57255(%r15) mviy 57510(%r15),2 llihh %r1,20302 stg %r1,57511(%r15) mviy 57766(%r15),6 lg %r1,.L1013-.L982(%r13) stg %r1,57767(%r15) mviy 58022(%r15),4 llihf %r1,1414022478 stg %r1,58023(%r15) mviy 58278(%r15),5 lg %r1,.L1014-.L982(%r13) stg %r1,58279(%r15) mviy 58534(%r15),4 llihf %r1,1162629957 stg %r1,58535(%r15) mviy 58790(%r15),6 lg %r1,.L1015-.L982(%r13) stg %r1,58791(%r15) mviy 59046(%r15),5 lg %r1,.L1016-.L982(%r13) stg %r1,59047(%r15) mviy 59302(%r15),5 lg %r1,.L1017-.L982(%r13) stg %r1,59303(%r15) mviy 59558(%r15),6 lg %r1,.L1018-.L982(%r13) stg %r1,59559(%r15) mviy 59814(%r15),7 lg %r1,.L1019-.L982(%r13) stg %r1,59815(%r15) mviy 60070(%r15),5 lg %r1,.L1020-.L982(%r13) stg %r1,60071(%r15) mviy 60326(%r15),3 llihf %r1,1162757120 stg %r1,60327(%r15) mviy 60582(%r15),7 lg %r1,.L1021-.L982(%r13) stg %r1,60583(%r15) mviy 60838(%r15),7 lg %r1,.L1022-.L982(%r13) stg %r1,60839(%r15) mviy 61094(%r15),7 lg %r1,.L1023-.L982(%r13) stg %r1,61095(%r15) mviy 61350(%r15),7 lg %r1,.L1024-.L982(%r13) stg %r1,61351(%r15) mviy 61606(%r15),4 llihf %r1,1111573323 stg %r1,61607(%r15) mviy 61862(%r15),7 lg %r1,.L1025-.L982(%r13) stg %r1,61863(%r15) mviy 62118(%r15),4 llihf %r1,1398034256 stg %r1,62119(%r15) mviy 62374(%r15),4 llihf %r1,1279873876 stg %r1,62375(%r15) mviy 62630(%r15),7 lg %r1,.L1026-.L982(%r13) stg %r1,62631(%r15) mviy 62886(%r15),7 lg %r1,.L1027-.L982(%r13) stg %r1,62887(%r15) mviy 63142(%r15),7 lg %r1,.L1028-.L982(%r13) stg %r1,63143(%r15) mviy 63398(%r15),4 llihf %r1,1296126803 stg %r1,63399(%r15) mviy 63654(%r15),5 lg %r1,.L1029-.L982(%r13) stg %r1,63655(%r15) mviy 63910(%r15),5 lg %r1,.L1030-.L982(%r13) stg %r1,63911(%r15) mviy 64166(%r15),5 lg %r1,.L1031-.L982(%r13) stg %r1,64167(%r15) mviy 64422(%r15),1 llihh %r1,22016 stg %r1,64423(%r15) mviy 64678(%r15),1 llihh %r1,19968 stg %r1,64679(%r15) mviy 64934(%r15),5 lg %r1,.L1032-.L982(%r13) stg %r1,64935(%r15) mviy 65190(%r15),2 llihh %r1,17997 stg %r1,65191(%r15) mviy 65702(%r15),1 llihh %r1,20992 stg %r1,65703(%r15) mviy 65958(%r15),1 llihh %r1,17920 stg %r1,65959(%r15) mviy 66214(%r15),1 llihh %r1,19712 stg %r1,66215(%r15) mviy 66470(%r15),1 llihh %r1,20480 stg %r1,66471(%r15) mviy 66726(%r15),2 llihh %r1,21072 stg %r1,66727(%r15) mviy 66982(%r15),2 llihh %r1,18000 stg %r1,66983(%r15) mviy 67238(%r15),2 llihh %r1,19792 stg %r1,67239(%r15) mviy 67494(%r15),2 llihh %r1,20560 stg %r1,67495(%r15) mviy 67750(%r15),1 llihh %r1,19456 stg %r1,67751(%r15) mviy 68006(%r15),1 llihh %r1,21248 stg %r1,68007(%r15) mviy 68262(%r15),1 llihh %r1,16640 stg %r1,68263(%r15) mviy 68518(%r15),2 llihh %r1,16718 stg %r1,68519(%r15) mviy 68774(%r15),2 llihh %r1,20033 stg %r1,68775(%r15) mviy 69030(%r15),3 llihf %r1,1312902656 stg %r1,69031(%r15) mviy 71846(%r15),7 lg %r1,.L1033-.L982(%r13) stg %r1,71847(%r15) mviy 72102(%r15),6 lg %r1,.L1034-.L982(%r13) stg %r1,72103(%r15) mviy 72358(%r15),5 lg %r1,.L1035-.L982(%r13) stg %r1,72359(%r15) mviy 72870(%r15),8 lg %r1,.L1036-.L982(%r13) stg %r1,72871(%r15) mviy 73126(%r15),4 llihf %r1,625235280 stg %r1,73127(%r15) mviy 73382(%r15),4 llihf %r1,626018638 stg %r1,73383(%r15) mviy 73638(%r15),5 lg %r1,.L1037-.L982(%r13) stg %r1,73639(%r15) mviy 73894(%r15),5 lg %r1,.L1038-.L982(%r13) stg %r1,73895(%r15) mviy 74406(%r15),6 lg %r1,.L1039-.L982(%r13) stg %r1,74407(%r15) mviy 74662(%r15),6 lg %r1,.L1040-.L982(%r13) stg %r1,74663(%r15) mviy 74918(%r15),6 lg %r1,.L1041-.L982(%r13) stg %r1,74919(%r15) mviy 75174(%r15),5 lg %r1,.L1042-.L982(%r13) stg %r1,75175(%r15) mviy 75430(%r15),4 llihf %r1,1398229316 stg %r1,75431(%r15) mviy 75686(%r15),4 llihf %r1,1146049612 stg %r1,75687(%r15) mviy 75942(%r15),4 llihf %r1,1146049618 stg %r1,75943(%r15) mviy 76198(%r15),4 llihf %r1,1095976272 stg %r1,76199(%r15) mviy 76454(%r15),4 llihf %r1,1129530704 stg %r1,76455(%r15) mviy 76710(%r15),4 llihf %r1,1330857296 stg %r1,76711(%r15) mviy 76966(%r15),4 llihf %r1,1347634512 stg %r1,76967(%r15) mviy 77222(%r15),3 llihf %r1,1095909888 stg %r1,77223(%r15) mviy 77478(%r15),5 lg %r1,.L1043-.L982(%r13) stg %r1,77479(%r15) mviy 77734(%r15),3 llihf %r1,1330790912 stg %r1,77735(%r15) mviy 77990(%r15),3 llihf %r1,1347568128 stg %r1,77991(%r15) mviy 78246(%r15),3 llihf %r1,1129464320 stg %r1,78247(%r15) mviy 78502(%r15),4 llihf %r1,1380143682 stg %r1,78503(%r15) mviy 78758(%r15),5 lg %r1,.L1044-.L982(%r13) stg %r1,78759(%r15) mviy 79014(%r15),5 lg %r1,.L1045-.L982(%r13) stg %r1,79015(%r15) mviy 79270(%r15),3 llihf %r1,1279345152 stg %r1,79271(%r15) mviy 79526(%r15),4 llihf %r1,1296843074 stg %r1,79527(%r15) mviy 79782(%r15),4 llihf %r1,1397506370 stg %r1,79783(%r15) mviy 80038(%r15),5 lg %r1,.L1046-.L982(%r13) stg %r1,80039(%r15) mviy 80294(%r15),4 llihf %r1,1331121748 stg %r1,80295(%r15) mviy 80550(%r15),5 lg %r1,.L1047-.L982(%r13) stg %r1,80551(%r15) mviy 80806(%r15),6 lg %r1,.L1048-.L982(%r13) stg %r1,80807(%r15) mviy 81062(%r15),4 llihf %r1,1129140036 stg %r1,81063(%r15) mviy 81318(%r15),5 lg %r1,.L1049-.L982(%r13) stg %r1,81319(%r15) mviy 81574(%r15),4 llihf %r1,1129664336 stg %r1,81575(%r15) mviy 81830(%r15),4 llihf %r1,1129271345 stg %r1,81831(%r15) mviy 82086(%r15),4 llihf %r1,1129271346 stg %r1,82087(%r15) mviy 82342(%r15),4 llihf %r1,1129271347 stg %r1,82343(%r15) mviy 82598(%r15),5 lg %r1,.L1050-.L982(%r13) stg %r1,82599(%r15) mviy 82854(%r15),5 lg %r1,.L1051-.L982(%r13) stg %r1,82855(%r15) mviy 83110(%r15),6 lg %r1,.L1052-.L982(%r13) stg %r1,83111(%r15) mviy 83366(%r15),4 llihf %r1,1313620290 stg %r1,83367(%r15) mviy 83622(%r15),6 lg %r1,.L1053-.L982(%r13) stg %r1,83623(%r15) mviy 83878(%r15),6 lg %r1,.L1054-.L982(%r13) stg %r1,83879(%r15) mviy 84134(%r15),4 llihf %r1,1330795074 stg %r1,84135(%r15) mviy 84390(%r15),5 lg %r1,.L1055-.L982(%r13) stg %r1,84391(%r15) mviy 84646(%r15),7 lg %r1,.L1056-.L982(%r13) stg %r1,84647(%r15) mviy 84902(%r15),4 llihf %r1,1179470914 stg %r1,84903(%r15) mviy 85158(%r15),4 llihf %r1,1179472450 stg %r1,85159(%r15) mviy 85414(%r15),4 llihf %r1,1179471698 stg %r1,85415(%r15) mviy 85670(%r15),7 lg %r1,.L1057-.L982(%r13) stg %r1,85671(%r15) mviy 85926(%r15),4 llihf %r1,1179863364 stg %r1,85927(%r15) mviy 87462(%r15),6 lg %r1,.L1058-.L982(%r13) stg %r1,87463(%r15) mviy 87718(%r15),5 lg %r1,.L1059-.L982(%r13) stg %r1,87719(%r15) mviy 87974(%r15),5 lg %r1,.L1060-.L982(%r13) stg %r1,87975(%r15) mviy 88230(%r15),5 lg %r1,.L1061-.L982(%r13) stg %r1,88231(%r15) mviy 88486(%r15),6 lg %r1,.L1062-.L982(%r13) stg %r1,88487(%r15) mviy 88742(%r15),5 lg %r1,.L1063-.L982(%r13) stg %r1,88743(%r15) mviy 88998(%r15),8 lg %r1,.L1064-.L982(%r13) stg %r1,88999(%r15) mviy 89254(%r15),6 lg %r1,.L1065-.L982(%r13) stg %r1,89255(%r15) mviy 89510(%r15),5 lg %r1,.L1066-.L982(%r13) stg %r1,89511(%r15) mviy 89766(%r15),6 lg %r1,.L1067-.L982(%r13) stg %r1,89767(%r15) mviy 90022(%r15),6 lg %r1,.L1068-.L982(%r13) stg %r1,90023(%r15) mviy 90278(%r15),6 lg %r1,.L1069-.L982(%r13) stg %r1,90279(%r15) mviy 90534(%r15),7 lg %r1,.L1070-.L982(%r13) stg %r1,90535(%r15) mviy 90790(%r15),8 lg %r1,.L1071-.L982(%r13) stg %r1,90791(%r15) mviy 91046(%r15),5 lg %r1,.L1072-.L982(%r13) stg %r1,91047(%r15) mviy 91302(%r15),6 lg %r1,.L1073-.L982(%r13) stg %r1,91303(%r15) mviy 91558(%r15),6 lg %r1,.L1074-.L982(%r13) stg %r1,91559(%r15) mviy 91814(%r15),6 lg %r1,.L1075-.L982(%r13) stg %r1,91815(%r15) mviy 92070(%r15),8 lg %r1,.L1076-.L982(%r13) stg %r1,92071(%r15) mviy 92326(%r15),3 llihf %r1,1095782400 stg %r1,92327(%r15) mviy 92582(%r15),7 lg %r1,.L1077-.L982(%r13) stg %r1,92583(%r15) mviy 92838(%r15),4 llihf %r1,1095782450 stg %r1,92839(%r15) mviy 93094(%r15),4 llihf %r1,1095782451 stg %r1,93095(%r15) mviy 93350(%r15),4 llihf %r1,1095782452 stg %r1,93351(%r15) mviy 93606(%r15),4 llihf %r1,1095782453 stg %r1,93607(%r15) mviy 93862(%r15),4 llihf %r1,1095782454 stg %r1,93863(%r15) mviy 94118(%r15),5 lg %r1,.L1078-.L982(%r13) stg %r1,94119(%r15) mviy 94374(%r15),5 lg %r1,.L1079-.L982(%r13) stg %r1,94375(%r15) mviy 94630(%r15),5 lg %r1,.L1080-.L982(%r13) stg %r1,94631(%r15) mviy 94886(%r15),5 lg %r1,.L1081-.L982(%r13) stg %r1,94887(%r15) mviy 95142(%r15),5 lg %r1,.L1082-.L982(%r13) stg %r1,95143(%r15) mviy 95398(%r15),6 lg %r1,.L1083-.L982(%r13) stg %r1,95399(%r15) mviy 95654(%r15),6 lg %r1,.L1084-.L982(%r13) stg %r1,95655(%r15) mviy 95910(%r15),6 lg %r1,.L1085-.L982(%r13) stg %r1,95911(%r15) mviy 96166(%r15),4 llihf %r1,1481198928 stg %r1,96167(%r15) mviy 96422(%r15),3 llihf %r1,1229803520 stg %r1,96423(%r15) mviy 96678(%r15),4 llihf %r1,1129270852 stg %r1,96679(%r15) mviy 96934(%r15),5 lg %r1,.L1086-.L982(%r13) stg %r1,96935(%r15) mviy 97190(%r15),4 llihf %r1,1163415601 stg %r1,97191(%r15) mviy 97446(%r15),4 llihf %r1,1163415602 stg %r1,97447(%r15) mviy 97702(%r15),4 llihf %r1,1397053520 stg %r1,97703(%r15) mviy 97958(%r15),4 llihf %r1,1229281360 stg %r1,97959(%r15) mviy 98214(%r15),5 lg %r1,.L1087-.L982(%r13) stg %r1,98215(%r15) mviy 98470(%r15),5 lg %r1,.L1088-.L982(%r13) stg %r1,98471(%r15) mviy 98726(%r15),5 lg %r1,.L1089-.L982(%r13) stg %r1,98727(%r15) mviy 98982(%r15),3 llihf %r1,1397051648 stg %r1,98983(%r15) mviy 99238(%r15),4 llihf %r1,1178879302 stg %r1,99239(%r15) mviy 99494(%r15),3 llihf %r1,1163415552 stg %r1,99495(%r15) mviy 99750(%r15),7 lg %r1,.L1090-.L982(%r13) stg %r1,99751(%r15) mviy 100006(%r15),6 lg %r1,.L1091-.L982(%r13) stg %r1,100007(%r15) mviy 100262(%r15),6 lg %r1,.L1092-.L982(%r13) stg %r1,100263(%r15) mviy 100518(%r15),3 llihf %r1,1112558592 stg %r1,100519(%r15) mviy 100774(%r15),6 lg %r1,.L1093-.L982(%r13) stg %r1,100775(%r15) mviy 101030(%r15),5 lg %r1,.L1094-.L982(%r13) stg %r1,101031(%r15) mviy 101286(%r15),5 lg %r1,.L1095-.L982(%r13) stg %r1,101287(%r15) mviy 101542(%r15),5 lg %r1,.L1096-.L982(%r13) stg %r1,101543(%r15) mviy 101798(%r15),3 llihf %r1,1179668480 stg %r1,101799(%r15) mviy 102054(%r15),4 llihf %r1,1179668528 stg %r1,102055(%r15) mviy 102310(%r15),4 llihf %r1,1179668529 stg %r1,102311(%r15) mviy 102566(%r15),4 llihf %r1,1179668530 stg %r1,102567(%r15) mviy 102822(%r15),7 lg %r1,.L1097-.L982(%r13) stg %r1,102823(%r15) mviy 103078(%r15),6 lg %r1,.L1098-.L982(%r13) stg %r1,103079(%r15) mviy 103334(%r15),4 llihf %r1,1162431824 stg %r1,103335(%r15) mviy 103590(%r15),6 lg %r1,.L1099-.L982(%r13) stg %r1,103591(%r15) mviy 103846(%r15),5 lg %r1,.L1100-.L982(%r13) stg %r1,103847(%r15) mviy 104102(%r15),7 lg %r1,.L1101-.L982(%r13) stg %r1,104103(%r15) mviy 104358(%r15),4 llihf %r1,1447121488 stg %r1,104359(%r15) mviy 104614(%r15),7 lg %r1,.L1102-.L982(%r13) stg %r1,104615(%r15) mviy 105638(%r15),6 lg %r1,.L1103-.L982(%r13) stg %r1,105639(%r15) mviy 105894(%r15),7 lg %r1,.L1104-.L982(%r13) stg %r1,105895(%r15) mviy 106150(%r15),8 lg %r1,.L1105-.L982(%r13) stg %r1,106151(%r15) mviy 106406(%r15),6 lg %r1,.L1106-.L982(%r13) stg %r1,106407(%r15) larl %r1,.LC2 lay %r2,41060(%r15) mvc 0(50,%r2),0(%r1) larl %r1,.LC3 lay %r2,23556(%r15) mvc 0(240,%r2),0(%r1) larl %r1,.LC4 lay %r2,27892(%r15) mvc 0(256,%r2),0(%r1) lay %r2,28148(%r15) mvc 0(256,%r2),256(%r1) lay %r2,28404(%r15) mvc 0(256,%r2),512(%r1) lay %r2,28660(%r15) mvc 0(256,%r2),768(%r1) lay %r2,28916(%r15) mvc 0(128,%r2),1024(%r1) 576 577 %ROUTINE flush buffer stmg %r6,%r15,48(%r15) lay %r15,-1456(%r15) lgr %r11,%r0 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 mvc 1448(8,%r15),40(%r1) .LVL67: .LBB327: .LBB328: lgrl %r1,_imp_OutStream@GOTENT mvhi 0(%r1),1 lgrl %r1,_imp_OutFile@GOTENT lgrl %r2,_imp_outfile@GOTENT lg %r2,296(%r2) stg %r2,0(%r1) larl %r2,__PRETTY_FUNCTION__.6293 brasl %r14,check_outstream@PLT .LVL68: .LBE328: .LBE327: .LBB329: 578 %INTEGER j 579 %IF faulty = 0 %START 580 select output(object) 581 %FOR j = 1, 1, bp %CYCLE 582 printsymbol(buff(j)) lrl %r9,BP.6830 .LVL69: .LBB330: 583 %REPEAT ahik %r1,%r9,-1 .LVL70: .LBE330: cijl %r1,0,.L83 .LVL71: .L73: lgrl %r1,_imp_current_file@GOTENT .LVL78: ltg %r3,0(%r1) je .L74 la %r2,936(%r15) brasl %r14,_imp_c2istr@PLT .LVL79: .L75: lgrl %r1,_imp_current_line@GOTENT lt %r10,0(%r1) ltr %r10,%r10 lhi %r1,583 locrne %r1,%r10 lr %r10,%r1 larl %r3,.LC80 la %r2,1192(%r15) brasl %r14,_imp_c2istr@PLT .LVL80: mvc 424(256,%r15),936(%r15) mvc 168(256,%r15),1192(%r15) mvghi 160(%r15),0 lghi %r6,1 lghi %r5,5 la %r4,168(%r15) lgfr %r3,%r10 la %r2,424(%r15) brasl %r14,_signal_event@PLT .LVL81: j .L73 .L74: .LBB333: larl %r1,.LC15 mvc 1192(256,%r15),0(%r1) mvc 680(256,%r15),1192(%r15) .LBE333: mvc 936(256,%r15),680(%r15) j .L75 .LVL82: .L84: .LBE336: 584 select output(listing) 585 %FINISH 586 bp = 0 cije %r9,0,.L77 lgr %r10,%r11 algfi %r10,104710 ahi %r9,-1 .LVL72: algfr %r11,%r9 algfi %r11,104711 sgr %r11,%r10 .LVL73: .L78: .LBB331: .LBB332: llgc %r2,0(%r10) brasl %r14,_imp_printsymbol@PLT .LVL74: aghi %r10,1 .LBE332: .LBE331: brctg %r11,.L78 .LVL75: .L77: .LBE329: .LBB334: .LBB335: lgrl %r1,_imp_OutStream@GOTENT mvhi 0(%r1),2 lgrl %r1,_imp_OutFile@GOTENT lgrl %r2,_imp_outfile@GOTENT lg %r2,584(%r2) stg %r2,0(%r1) larl %r2,__PRETTY_FUNCTION__.6293 brasl %r14,check_outstream@PLT .LVL76: .LDL4: .LBE335: .LBE334: larl %r1,BP.6830 mvhi 0(%r1),0 587 %END 588 %ROUTINE print ident(%INTEGER p, mode) .LVL39: stmg %r6,%r15,48(%r15) lay %r15,-1968(%r15) lgr %r9,%r0 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 mvc 1960(8,%r15),40(%r1) ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 clc 1448(8,%r15),40(%r1) jne .L84 lg %r4,1568(%r15) lmg %r6,%r15,1504(%r15) br %r4 .LVL77: .L83: .LBB336: brasl %r14,__stack_chk_fail@PLT .LVL83: .LFE186: .align 8 DEF.7928: .LFB215: 589 %INTEGER j, ad 590 p = tag(p)_text sllg %r2,%r2,4 .LVL40: lh %r1,224(%r2,%r9) lr %r2,%r1 .LVL41: lhr %r1,%r1 .LVL42: 591 %IF p = 0 %START cijlh %r1,0,.L54 592 bp = bp+1 %AND buff(bp) = '?' %if Mode # 0 cgije %r3,0,.L53 593 %RETURN lrl %r1,BP.6830 .LVL43: ahik %r2,%r1,1 .LVL44: strl %r2,BP.6830 594 %FINISH lgfr %r1,%r1 lay %r1,104710(%r1,%r9) mvi 0(%r1),63 j .L53 .LVL45: .L54: 595 ad = addr(dict(p+1)) lghr %r2,%r2 aghik %r8,%r2,13418 sllg %r8,%r8,1 agr %r8,%r0 lr %r11,%r8 .LVL46: .LBB321: 596 %IF mode = 0 %THEN printstring(string(ad)) %ELSE %START cgije %r3,0,.L68 .L56: 597 %FOR j = ad+1, 1, ad+byteinteger(ad) %CYCLE 598 bp = bp+1 lgfr %r1,%r8 .LVL47: llc %r2,0(%r1) .LVL48: ark %r10,%r2,%r8 .LVL49: ahik %r1,%r8,1 .LVL50: .LBB322: 599 buff(bp) = byteinteger(j) srk %r1,%r10,%r1 .LVL51: .LBE322: cijl %r1,0,.L69 .LVL52: .L57: lgfr %r3,%r11 lgfr %r1,%r1 lay %r1,104710(%r1,%r9) mvc 0(1,%r1),0(%r3) lgrl %r1,_imp_current_file@GOTENT ltg %r3,0(%r1) .LVL61: je .L58 la %r2,1192(%r15) brasl %r14,_imp_c2istr@PLT .LVL62: .L59: lgrl %r1,_imp_current_line@GOTENT lt %r7,0(%r1) ltr %r7,%r7 lhi %r1,599 locrne %r1,%r7 lr %r7,%r1 larl %r3,.LC79 la %r2,1448(%r15) brasl %r14,_imp_c2istr@PLT .LVL63: mvc 424(256,%r15),1192(%r15) mvc 168(256,%r15),1448(%r15) mvghi 160(%r15),0 lghi %r6,1 lghi %r5,5 la %r4,168(%r15) lgfr %r3,%r7 la %r2,424(%r15) brasl %r14,_signal_event@PLT .LVL64: j .L57 .L58: .LBB323: larl %r1,.LC15 mvc 1704(256,%r15),0(%r1) mvc 936(256,%r15),1704(%r15) .LBE323: mvc 1192(256,%r15),936(%r15) j .L59 .LVL65: .L70: .LBE326: 600 %REPEAT 601 %FINISH 602 %END crje %r10,%r8,.L53 lrl %r1,BP.6830 srk %r8,%r1,%r8 .LVL53: srk %r2,%r10,%r11 .LVL54: .L61: ark %r1,%r11,%r8 .LVL55: brct %r2,.L61 ark %r1,%r11,%r8 strl %r1,BP.6830 .L55: .L62: .L63: .LVL57: .L53: .LBE321: 603 %ROUTINE abandon(%INTEGER n) .LVL17: stmg %r6,%r15,48(%r15) lay %r15,-1480(%r15) lgr %r11,%r2 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 mvc 1472(8,%r15),40(%r1) .LVL18: .LDL2: ahi %r11,1 .LVL56: ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 clc 1960(8,%r15),40(%r1) jne .L70 lg %r4,2080(%r15) lmg %r6,%r15,2016(%r15) br %r4 .LVL58: .L68: mvc 1704(256,%r15),680(%r15) .LBB324: .LBB325: mvc 424(256,%r15),1704(%r15) aghik %r2,%r15,424 brasl %r14,_imp_printstring@PLT .LVL59: j .L53 .LVL60: .L69: .LBE325: .LBE324: .LBB326: brasl %r14,__stack_chk_fail@PLT .LVL66: .LFE187: .section .rodata.str1.2 .align 2 .LC80: .string "Illegal cycle J = 1, 1, BP" .text .align 8 FLUSHBUFFER.6840: .LFB186: 604 %SWITCH reason(0:9) 605 %INTEGER stream 606 stream = listing 607 %CYCLE 608 newline %IF sym # nl lrl %r1,SYM.6761 chi %r1,10 jne .L43 .LVL19: .L30: .LBB308: .LBB309: lghi %r2,42 brasl %r14,_imp_printsymbol@PLT .LVL20: .LBE309: .LBE308: 609 printsymbol('*'); write(lines,4); space 610 ->reason(n) lghi %r3,4 lgfrl %r2,LINES.6753 brasl %r14,_imp_writeint@PLT .LVL21: .LBB310: .LBB311: brasl %r14,_imp_space@PLT .LVL22: .LDL3: .LBE311: .LBE310: 611 reason(0):printstring("compiler error!"); ->more 612 reason(1):printstring("switch vector too large"); ->more 613 reason(2):printstring("too many names"); ->more 614 reason(3):printstring("program too complex"); ->more 615 reason(4):printstring("feature not implemented"); ->more 616 reason(5):printstring("input ended: ") 617 %IF quote # 0 %START 618 %IF quote < 0 %THEN printsymbol(cquote) %C 619 %ELSE printsymbol(squote) 620 %ELSE 621 printstring("%endof") 622 %IF progmode >= 0 %THEN printstring("program") %C 623 %ELSE printstring("file") 624 %FINISH 625 printstring(" missing?"); ->more 626 reason(6):printstring("too many faults!"); ->more 627 reason(7):printstring("string constant too long"); ->more 628 reason(8):printstring("dictionary full"); -> more 629 reason(9):printstring("Included file ".include file." does not exist") 630 more: newline 631 printstring("*** compilation abandoned ***"); newline 632 %EXIT %IF stream = report 633 close output 634 stream = report 635 select output(report) 636 %REPEAT 637 !IMP80 BUG??? %SIGNAL 15,15 %IF diag&4096 # 0 638 %STOP 639 %END 640 %ROUTINE op(%INTEGER code, param) .LVL0: lgr %r4,%r0 641 buff(bp+1) <- code lrl %r1,BP.6830 lgfr %r5,%r1 stcy %r2,104710(%r5,%r4) clijle %r11,9,.L31 lgrl %r1,_imp_current_file@GOTENT ltg %r3,0(%r1) je .L32 la %r2,960(%r15) brasl %r14,_imp_c2istr@PLT .LVL23: .L33: lgrl %r1,_imp_current_line@GOTENT lt %r3,0(%r1) ltr %r3,%r3 lhi %r1,641 locrne %r1,%r3 lr %r3,%r1 mvc 192(256,%r15),960(%r15) mvghi 184(%r15),610 larl %r1,.LC76 stg %r1,176(%r15) stg %r11,168(%r15) larl %r1,.LC77 stg %r1,160(%r15) lgr %r6,%r11 lghi %r5,3 lghi %r4,6 lgfr %r3,%r3 la %r2,192(%r15) brasl %r14,_signal_eventf@PLT .LVL24: .L31: .L35: larl %r1,.LC15 mvc 1216(256,%r15),0(%r1) mvc 448(256,%r15),1216(%r15) .LBE314: mvc 960(256,%r15),448(%r15) j .L33 .L36: .LBB315: 642 buff(bp+2) <- param>>8 ahik %r2,%r1,1 .LVL1: lgfr %r2,%r2 srlk %r5,%r3,8 stcy %r5,104710(%r2,%r4) 643 buff(bp+3) <- param ahik %r2,%r1,2 lgfr %r2,%r2 stcy %r3,104710(%r2,%r4) 644 bp = bp+3 ahi %r1,3 strl %r1,BP.6830 lgrl %r1,_imp_current_file@GOTENT ltg %r3,0(%r1) je .L36 la %r2,1216(%r15) brasl %r14,_imp_c2istr@PLT .LVL25: .L37: lgrl %r1,_imp_current_line@GOTENT lt %r3,0(%r1) ltr %r3,%r3 lhi %r1,644 locrne %r1,%r3 lr %r3,%r1 mvc 192(256,%r15),1216(%r15) mvghi 184(%r15),610 larl %r1,.LC76 stg %r1,176(%r15) stg %r11,168(%r15) larl %r1,.LC78 stg %r1,160(%r15) lgr %r6,%r11 lghi %r5,2 lghi %r4,8 lgfr %r3,%r3 la %r2,192(%r15) brasl %r14,_signal_eventf@PLT .LVL26: larl %r1,.LC15 mvc 1216(256,%r15),0(%r1) mvc 704(256,%r15),1216(%r15) .LBE315: mvc 1216(256,%r15),704(%r15) j .L37 .L44: 645 %END ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 clc 1472(8,%r15),40(%r1) jne .L44 lg %r4,1592(%r15) lmg %r6,%r15,1528(%r15) .LVL27: br %r4 .LVL28: .L43: .LBB312: .LBB313: brasl %r14,_imp_newline@PLT .LVL29: j .L30 .LVL30: .L32: .LBE313: .LBE312: .LBB314: brasl %r14,__stack_chk_fail@PLT .LVL31: .LFE188: .align 8 SHOW.7238: .LFB200: 646 %ROUTINE set const(%INTEGER m) br %r14 .LFE189: .align 8 SETCONST.6949: .LFB190: .LVL2: lgr %r3,%r0 647 buff(bp+1) <- 'N' lrl %r1,BP.6830 lgfr %r4,%r1 lay %r4,104710(%r4,%r3) mvi 0(%r4),78 648 buff(bp+5) <- m; m = m>>8 ahik %r4,%r1,4 lgfr %r4,%r4 stcy %r2,104710(%r4,%r3) .LVL3: 649 buff(bp+4) <- m; m = m>>8 ahik %r4,%r1,3 lgfr %r4,%r4 srlk %r5,%r2,8 .LVL4: stcy %r5,104710(%r4,%r3) .LVL5: 650 buff(bp+3) <- m; m = m>>8 ahik %r4,%r1,2 lgfr %r4,%r4 srlk %r5,%r2,16 .LVL6: stcy %r5,104710(%r4,%r3) .LVL7: 651 buff(bp+2) <- m ahik %r4,%r1,1 lgfr %r4,%r4 srl %r2,24 .LVL8: stcy %r2,104710(%r4,%r3) 652 bp = bp+5 ahi %r1,5 strl %r1,BP.6830 653 %END 654 br %r14 .LFE190: .align 8 SETCELL.7162: .LFB195: 655 656 657 %ROUTINE compile block(%INTEGER level, block tag, dmin, tmax, id) stmg %r6,%r15,48(%r15) lay %r15,-2080(%r15) lgr %r10,%r0 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 mvc 2072(8,%r15),40(%r1) la %r1,2240(%r15) stg %r1,528(%r15) st %r2,508(%r15) st %r3,476(%r15) st %r5,512(%r15) st %r6,504(%r15) stg %r0,456(%r15) 658 659 %INTEGERFNSPEC gapp 660 %ROUTINESPEC delete names(%INTEGER quiet) 661 %ROUTINESPEC analyse 662 %ROUTINESPEC compile 663 664 %INTEGER open; open = closed; !zero if can return from proc 665 %INTEGER dbase; dbase = dmax; !dictionary base mvhi 480(%r15),16384 666 %INTEGER tbase; tbase = tmax; !tag base lrl %r2,DMAX.6791 .LVL814: 667 %INTEGER tstart; tstart = tmax st %r5,516(%r15) 668 %INTEGER label; label = 4; !first internal label st %r5,520(%r15) 669 %INTEGER access; access = 1; !non-zero if accessible mvhi 472(%r15),4 670 %INTEGER inhibit; inhibit = 0; !non-zero inhibits declaratons mvhi 484(%r15),1 671 mvhi 468(%r15),0 sllg %r11,%r3,4 672 %SHORTINTEGERNAME bflags; bflags == tag(block tag)_flags 673 %INTEGER block type; block type = bflags>>4&7 aghik %r1,%r11,220 agrk %r1,%r0,%r1 stg %r1,448(%r15) 674 %INTEGER block form; block form = bflags&15 lh %r1,220(%r11,%r10) risbgn %r3,%r1,64-3,128+63,57+3 st %r3,492(%r15) 675 %INTEGER block fm; block fm = tag(block tag)_format nilf %r1,15 st %r1,496(%r15) agr %r11,%r0 676 %INTEGER block otype; block otype = otype l %r1,216(%r11) st %r1,488(%r15) 677 %INTEGERNAME block app; block app == tag(block tag)_app lrl %r9,OTYPE.6773 .LVL815: 678 679 %INTEGER l, new app 680 681 %ROUTINE fault(%INTEGER n) .LVL339: stmg %r6,%r15,48(%r15) lgr %r14,%r15 lay %r15,-2520(%r15) aghi %r14,-16 std %f8,0(%r14) std %f10,8(%r14) lgr %r6,%r2 ldgr %f10,%r0 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 mvc 2496(8,%r15),40(%r1) 682 683 ! -5 : -1 - warnings 684 ! 1 : 22 - errors 685 686 %SWITCH fm(-5:22) 687 %INTEGER st 688 689 %ROUTINE print ss 690 %INTEGER s, p 691 %RETURN %IF pos = 0 larl %r1,POS.6811 lt %r1,0(%r1) jne .L417 .L387: .LDL21: .LBE464: .LBE463: .LBB472: .LBB473: brasl %r14,_imp_newline@PLT .LVL350: .LBE473: .LBE472: 692 space 693 p = 1 lhi %r11,1 694 %CYCLE 695 printsymbol(marker) %IF p = pos1 larl %r1,POS1.6809 c %r11,0(%r1) je .L422 .L390: 696 %EXIT %IF p = pos lrl %r1,POS.6811 crje %r11,%r1,.L397 .L392: 697 s = char(p); p = p+1 llc %r2,0(%r10) .LVL374: 698 %EXIT %IF s = nl %OR (s='%' %AND p = pos) ahi %r11,1 .LVL375: cije %r2,10,.L397 699 %IF s < ' ' %START; !beware of tabs cije %r2,37,.L423 .L393: cijh %r2,31,.L396 700 %IF s = ff %THEN s = nl %ELSE s = ' ' crje %r1,%r11,.L397 .L394: .L395: .LVL370: .L396: .LBB469: .LBB470: llgcr %r2,%r2 .LVL371: brasl %r14,_imp_printsymbol@PLT .LVL372: aghi %r10,1 .LVL373: .L389: .LBE470: .LBE469: cije %r2,12,.L409 701 %FINISH lhi %r2,10 .LVL378: j .L396 .L391: .LVL379: .L397: 702 printsymbol(s) 703 %REPEAT 704 pos = 0 %IF list <= 0 lhi %r8,32 j .L389 .LVL367: .L422: .LBB467: .LBB468: lghi %r2,94 brasl %r14,_imp_printsymbol@PLT .LVL368: j .L390 .LVL369: .L423: .LBE468: .LBE467: lr %r2,%r8 .LVL376: j .L396 .LVL377: .L409: larl %r1,LIST.6823 lt %r1,0(%r1) jh .L387 705 %END larl %r1,POS.6811 mvhi 0(%r1),0 j .L387 .LVL380: .L418: .L399: .LBE471: .LBE483: 706 707 pos1 = pos2 %IF pos2 > pos1 lrl %r1,POS2.6810 crl %r1,POS1.6809 jle .L377 708 newline %IF sym # nl strl %r1,POS1.6809 .L377: lrl %r1,SYM.6761 chi %r1,10 jne .L414 .LVL340: .L378: 709 st = report 710 st = listing %IF n = -3; !don't report unused on the console 711 %cycle chi %r6,-3 lhi %r9,0 lhi %r1,2 locre %r9,%r1 .LBB444: .LBB445: lgrl %r13,_imp_OutStream@GOTENT .LBE445: .LBE444: .LBB447: .LBB448: aghik %r1,%r15,192 ldgr %f8,%r1 .LBE448: .LBE447: .LBB450: 712 SELECT OUTPUT(st) 713 %if n < 0 %then printsymbol('?') %and pos1 = 0 %else printsymbol('*') cijl %r6,0,.L419 .L380: .LVL353: .LBB475: .LBB476: lghi %r2,42 brasl %r14,_imp_printsymbol@PLT .LVL354: .L381: .LBE476: .LBE475: 714 %if st # report %start cije %r9,0,.L382 715 %if list <= 0 %and pos1 # 0 %start larl %r1,POS1.6809 mvhi 0(%r1),0 larl %r1,LIST.6823 lt %r1,0(%r1) jh .L385 716 spaces(pos1+margin); PRINTSTRING(" ! ") j .L381 .L382: larl %r1,POS1.6809 lt %r1,0(%r1) je .L385 .LVL355: larl %r2,MARGIN.6755 .LVL356: a %r1,0(%r2) .LVL357: .LBB477: .LBB478: lgfr %r2,%r1 brasl %r14,_imp_spaces@PLT .LVL358: .LBE478: .LBE477: .LBB479: 717 %finish larl %r1,.LC30 mvc 1472(256,%r15),0(%r1) mvc 448(256,%r15),1472(%r15) mvc 1728(256,%r15),448(%r15) .LBE479: .LBB480: .LBB481: mvc 192(256,%r15),1728(%r15) lgdr %r2,%f8 brasl %r14,_imp_printstring@PLT .LVL359: j .L385 .L415: mvc 1984(256,%r15),704(%r15) .LBE481: .LBE480: .LBB482: .LBB449: mvc 192(256,%r15),1984(%r15) lgdr %r2,%f8 brasl %r14,_imp_printstring@PLT .LVL360: j .L384 .L416: .LVL361: .LDL22: .L403: .LBE449: .LBE482: 718 %finish %else %start 719 PRINTSTRING(include file) %if include # 0 larl %r1,INCLUDE.6797 lt %r1,0(%r1) jne .L415 .L384: 720 write(lines, 4); printsymbol(csym); space lghi %r3,4 lgfrl %r2,LINES.6753 brasl %r14,_imp_writeint@PLT .LVL345: .LBB455: .LBB456: lrl %r2,CSYM.6766 llgcr %r2,%r2 brasl %r14,_imp_printsymbol@PLT .LVL346: .LBE456: .LBE455: .LBB457: .LBB458: brasl %r14,_imp_space@PLT .LVL347: .L383: .L385: .LBE458: .LBE457: .LBB459: 721 %finish 722 ->fm(n) %if -5 <= n <= 22 723 PRINTSTRING("fault"); write(n, 2); ->ps larl %r1,.LC31 mvc 1472(256,%r15),0(%r1) mvc 960(256,%r15),1472(%r15) mvc 2240(256,%r15),960(%r15) .LBE460: .LBB461: .LBB462: mvc 192(256,%r15),2240(%r15) lgdr %r2,%f8 brasl %r14,_imp_printstring@PLT .LVL348: .LBE462: .LBE461: 724 lghi %r3,2 lgr %r2,%r6 brasl %r14,_imp_writeint@PLT .LVL349: .LDL20: .LBB463: .LBB464: 725 fm(-5):PRINTSTRING("Dubious statement"); dubious = 0; ->psd 726 fm(-4):PRINTSTRING("Non-local") 727 pos1 = for warn; for warn = 0; ->ps ahik %r7,%r6,5 j .L398 .LVL341: .L414: .LBE450: .LBB451: .LBB452: brasl %r14,_imp_newline@PLT .LVL342: j .L378 .LVL343: .L419: .LBE452: .LBE451: .LBB453: .LBB454: lghi %r2,63 brasl %r14,_imp_printsymbol@PLT .LVL344: .LBE454: .LBE453: clijle %r7,27,.L416 .L386: .LBE459: .LBB460: 728 fm(-3):print ident(x, 0); PRINTSTRING(" unused"); ->nps 729 fm(-2):PRINTSTRING("""}"""); ->miss 730 fm(-1):PRINTSTRING("access"); ->psd 731 732 fm(0): PRINTSTRING("form"); ->ps 733 fm(1): PRINTSTRING("atom"); ->ps 734 fm(2): PRINTSTRING("not declared"); ->ps 735 fm(3): PRINTSTRING("too complex"); ->ps 736 fm(4): PRINTSTRING("duplicate "); Print Ident(x, 0); ->ps 737 fm(5): PRINTSTRING("type"); ->ps 738 fm(6): PRINTSTRING("match"); ->psd 739 fm(7): PRINTSTRING("context"); ->psd 740 fm(21):PRINTSTRING("context "); print ident(this, 0); ->ps 741 fm(8): PRINTSTRING("%cycle"); ->miss 742 fm(9): PRINTSTRING("%start"); ->miss 743 fm(10):PRINTSTRING("size"); WRITE(lit, 1) %if pos1 = 0;->ps 744 fm(11):PRINTSTRING("bounds") 745 WRITE(ocount, 1) %unless ocount < 0; ->ps 746 fm(12):PRINTSTRING("index"); ->ps 747 fm(13):PRINTSTRING("order"); ->psd 748 fm(14):PRINTSTRING("not a location"); ->ps 749 fm(15):PRINTSTRING("%begin"); ->miss 750 fm(16):PRINTSTRING("%end"); ->miss 751 fm(17):PRINTSTRING("%repeat"); ->miss 752 fm(18):PRINTSTRING("%finish"); ->miss 753 fm(19):PRINTSTRING("result"); ->miss 754 fm(22):PRINTSTRING("format"); ->ps 755 fm(20):printsymbol('"'); print ident(x, 0); printsymbol('"') 756 miss: PRINTSTRING(" missing"); ->nps 757 psd: pos1 = 0 758 ps: print ss 759 nps: NEWLINE 760 %exit %if st = listing cijlh %r9,0,.L418 761 st = listing lhi %r9,2 .LVL351: .L398: .LBB474: .LBB446: st %r9,0(%r13) lgfr %r2,%r9 sllg %r1,%r2,3 agr %r1,%r2 sllg %r1,%r1,5 lgrl %r2,_imp_OutFile@GOTENT lgrl %r3,_imp_outfile@GOTENT lg %r1,8(%r1,%r3) stg %r1,0(%r2) larl %r2,__PRETTY_FUNCTION__.6293 brasl %r14,check_outstream@PLT .LVL352: .LBE446: .LBE474: 762 %repeat 763 %if n >= 0 %start cijhe %r6,0,.L424 .L400: .L401: 764 !IMP80 BUG??? %signal 15,15 %if diag&4096 # 0 765 %stop %if diag&4096 # 0 766 %if n # 13 %start; !order is fairly safe 767 ocount = -1 768 gg = 0 769 copy = 0; quote = 0 770 search base = 0; escape class = 0 771 gg = 0 772 %finish 773 faulty = faulty+1 774 775 !check that there haven't been too many faults 776 777 fault rate = fault rate+3; abandon(6) %IF fault rate > 30 778 fault rate = 3 %IF fault rate <= 0 779 %FINISH 780 tbase = tstart lgdr %r1,%f10 l %r2,72(%r1) st %r2,68(%r1) 781 %IF list <= 0 %AND sym # nl %START larl %r1,LIST.6823 lt %r1,0(%r1) jh .L376 782 error margin = column lrl %r1,SYM.6761 cije %r1,10,.L376 lrl %r2,COLUMN.6758 strl %r2,ERRORMARGIN.6756 783 error sym = sym; sym = nl strl %r1,ERRORSYM.6757 784 %FINISH larl %r1,SYM.6761 mvhi 0(%r1),10 j .L376 .L424: .LVL381: .LBB484: .LBB485: lghi %r2,0 brasl %r14,exit@PLT .LVL382: .L420: .LBE485: .LBE484: .LBB486: 785 %END 786 787 dmin = dmin-1; dict(dmin) = -1; !end marker for starts & cycles ahik %r3,%r4,-1 st %r3,500(%r15) 788 abandon(2) %IF dmax = dmin ahi %r4,-2 lgfr %r4,%r4 aghik %r1,%r4,13416 sllg %r1,%r1,1 la %r1,4(%r1,%r10) mvhhi 0(%r1),-1 crje %r2,%r3,.L956 .LVL816: .L917: 789 lghi %r2,2 .LVL819: brasl %r14,ABANDON.6872 .LVL820: j .L917 .L957: 790 %IF list > 0 %AND level > 0 %START larl %r1,LIST.6823 lt %r1,0(%r1) jle .L918 791 write(lines, 5); spaces(level*3-1) lgrl %r1,_imp_current_file@GOTENT ltg %r3,0(%r1) je .L420 la %r2,1472(%r15) brasl %r14,_imp_c2istr@PLT .LVL362: .L405: lgrl %r1,_imp_current_line@GOTENT lt %r3,0(%r1) ltr %r3,%r3 lhi %r1,791 locrne %r1,%r3 lr %r3,%r1 mvc 192(256,%r15),1472(%r15) mvghi 184(%r15),729 larl %r1,.LC76 stg %r1,176(%r15) stg %r6,168(%r15) larl %r1,.LC81 stg %r1,160(%r15) lghi %r5,2 lghi %r4,8 lgfr %r3,%r3 la %r2,192(%r15) brasl %r14,_signal_eventf@PLT .LVL363: .L402: .L376: larl %r1,.LC15 mvc 1472(256,%r15),0(%r1) mvc 1216(256,%r15),1472(%r15) .LBE486: mvc 1472(256,%r15),1216(%r15) j .L405 .LVL383: .L421: lt %r1,508(%r15) jh .L957 .L918: lghi %r3,5 lgfrl %r2,LINES.6753 brasl %r14,_imp_writeint@PLT .LVL821: 792 %IF block tag = 0 %START ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 clc 2496(8,%r15),40(%r1) jne .L421 ld %f8,2504(%r15) ld %f10,2512(%r15) lg %r4,2632(%r15) lmg %r6,%r15,2568(%r15) .LVL364: br %r4 .LVL365: .L417: .L388: .LBB483: .LBB471: .LBB465: .LBB466: brasl %r14,_imp_space@PLT .LVL366: larl %r1,CHAR.6818 la %r10,1(%r1) .LBE466: .LBE465: brasl %r14,__stack_chk_fail@PLT .LVL384: .LFE192: .align 8 POPLABEL.8036: .LFB221: l %r1,508(%r15) sllk %r2,%r1,1 ar %r2,%r1 ahi %r2,-1 .LBB715: .LBB716: lgfr %r2,%r2 brasl %r14,_imp_spaces@PLT .LVL822: .LBE716: .LBE715: lt %r1,476(%r15) jne .L919 .LBB717: 793 printstring("Begin") larl %r1,.LC8 mvc 1816(256,%r15),0(%r1) mvc 536(256,%r15),1816(%r15) mvc 1304(256,%r15),536(%r15) .LBE717: .LBB718: .LBB719: mvc 160(256,%r15),1304(%r15) aghik %r2,%r15,160 brasl %r14,_imp_printstring@PLT .LVL823: .L920: .LBE719: .LBE718: .LBB720: .LBB721: brasl %r14,_imp_newline@PLT .LVL824: j .L918 .L919: .LBE721: .LBE720: .LBB722: 794 %FINISH %ELSE %START 795 printstring("Procedure "); print ident(block tag, 0) larl %r1,.LC9 mvc 1816(256,%r15),0(%r1) mvc 792(256,%r15),1816(%r15) mvc 1560(256,%r15),792(%r15) .LBE722: .LBB723: .LBB724: mvc 160(256,%r15),1560(%r15) aghik %r2,%r15,160 brasl %r14,_imp_printstring@PLT .LVL825: .LBE724: .LBE723: 796 %FINISH lgr %r0,%r10 lghi %r3,0 lgf %r2,476(%r15) brasl %r14,PRINTIDENT.6853 .LVL826: j .L920 .L958: 797 newline 798 %FINISH 799 800 !deal with procedure definition (parameters) 801 802 %IF block tag # 0 %START; !proc lt %r1,476(%r15) jne .L958 .L921: 803 analyse; compile %IF ss # 0 aghik %r0,%r15,448 brasl %r14,ANALYSE.6963 .LVL827: 804 larl %r1,SS.6793 lt %r1,0(%r1) jne .L959 .L922: 805 %IF block otype # 0 %START; !external-ish cije %r9,0,.L926 aghik %r0,%r15,448 brasl %r14,COMPILE.6965 .LVL832: j .L922 .L960: 806 %IF bflags&spec = 0 %START; !definition lg %r1,448(%r15) tm 1(%r1),1 jne .L926 807 %IF progmode <= 0 %AND level = 1 %THEN progmode = -1 %C larl %r1,PROGMODE.6799 lt %r1,0(%r1) jh .L924 808 %ELSE fault(7) l %r1,508(%r15) chi %r1,1 je .L960 .L924: 809 %FINISH larl %r1,PROGMODE.6799 mvhi 0(%r1),-1 810 %FINISH j .L926 .LVL833: .L930: .LBB735: .LBB733: .LBB731: .LBB729: 811 812 new app = gapp; !generate app grammar aghik %r0,%r15,448 lghi %r2,7 brasl %r14,FAULT.6982 .LVL828: .L923: .L925: .L926: .LBB725: .LBB726: 813 %IF spec given # 0 %START; !definition after spec larl %r1,SPECGIVEN.6769 lt %r1,0(%r1) je .L936 814 fault(6) %IF new app # block app; !different from spec c %r9,212(%r11) je .L936 815 %FINISH aghik %r0,%r15,448 lghi %r2,6 brasl %r14,FAULT.6982 .LVL851: .L935: .L936: 816 block app = new app; !use the latest st %r9,212(%r11) 817 818 %IF level < 0 %START; !not procedure definition lt %r1,508(%r15) jhe .L937 819 delete names(0) aghik %r0,%r15,448 lghi %r2,0 brasl %r14,DELETENAMES.6961 .LVL852: 820 %RETURN j .L916 .LVL853: .L963: .LBB736: .LBB734: 821 %FINISH 822 %FINISH %ELSE %START 823 open = 0; !can return from a block? mvhi 480(%r15),0 .LVL817: .L937: 824 %FINISH 825 826 %CYCLE 827 analyse aghik %r11,%r15,448 j .L939 .LVL818: .L956: lgr %r0,%r11 brasl %r14,ANALYSE.6963 .LVL857: 828 %CONTINUE %IF ss = 0 larl %r1,SS.6793 lt %r1,0(%r1) je .L939 .L940: 829 compile lgr %r0,%r11 brasl %r14,COMPILE.6965 .LVL858: 830 fault(-5) %IF dubious # 0 larl %r1,DUBIOUS.6807 lt %r1,0(%r1) jne .L965 .L941: 831 flush buffer %IF bp >= 128 lgr %r0,%r11 lghi %r2,-5 brasl %r14,FAULT.6982 .LVL856: j .L941 .L942: larl %r1,BP.6830 chsi 0(%r1),127 jle .L942 832 %IF sstype > 0 %START; !block in or out larl %r1,SSTYPE.6800 lt %r1,0(%r1) jh .L964 .L939: lgr %r0,%r10 brasl %r14,FLUSHBUFFER.6840 .LVL859: j .L942 .L964: 833 %EXIT %IF sstype = 2; !out cije %r1,2,.L944 .L945: 834 compile block(spec mode, block x, dmin, tmax, id) lgr %r0,%r10 lgf %r6,504(%r15) lgf %r5,512(%r15) lgf %r4,500(%r15) lgfrl %r3,BLOCKX.6822 lgfrl %r2,SPECMODE.6801 brasl %r14,COMPILEBLOCK.6956 .LVL860: 835 %EXIT %IF ss < 0; !endofprogram larl %r1,SS.6793 lt %r1,0(%r1) jhe .L939 .L944: 836 %FINISH 837 %REPEAT 838 %IF list > 0 %AND level > 0 %START larl %r1,LIST.6823 lt %r1,0(%r1) jle .L947 839 write(lines, 5); spaces(level*3-1) lt %r1,508(%r15) jh .L966 .L947: lghi %r3,5 lgfrl %r2,LINES.6753 brasl %r14,_imp_writeint@PLT .LVL862: 840 printstring("End") l %r1,508(%r15) sllk %r2,%r1,1 ar %r2,%r1 ahi %r2,-1 .LBB737: .LBB738: lgfr %r2,%r2 brasl %r14,_imp_spaces@PLT .LVL863: .LBE738: .LBE737: .LBB739: larl %r1,.LC10 mvc 1816(256,%r15),0(%r1) mvc 1048(256,%r15),1816(%r15) mvc 1816(256,%r15),1048(%r15) .LBE739: .LBB740: .LBB741: mvc 160(256,%r15),1816(%r15) aghik %r2,%r15,160 brasl %r14,_imp_printstring@PLT .LVL864: .LBE741: .LBE740: .LBB742: .LBB743: brasl %r14,_imp_newline@PLT .LVL865: j .L947 .L967: .LBE743: .LBE742: 841 newline 842 %FINISH 843 delete names(0) aghik %r0,%r15,448 lghi %r2,0 brasl %r14,DELETENAMES.6961 .LVL861: .L916: 844 %RETURN 845 846 %INTEGERFN gapp; !generate app grammar (backwards) la %r1,2240(%r15) stg %r1,440(%r15) 847 %CONSTINTEGER comma = 140; !psep 848 %ROUTINESPEC set cell(%INTEGER g, tt) 849 %ROUTINESPEC class(%RECORD(tagfm)%NAME v) 850 %RECORD(tagfm)%NAME v 851 %INTEGER p, link, tp, c, ap, t 852 853 %RESULT = 0 %IF tmax = local; !no app needed lrl %r9,LOCAL.6813 .LVL829: l %r1,512(%r15) crje %r9,%r1,.L949 .L928: 854 lhi %r9,0 j .L927 .L965: .LBE734: .LBE736: 855 p = gmax1; link = 0; t = tmax mvhi 432(%r15),719 856 mvhi 428(%r15),0 .LVL830: .LBB727: .LBB728: 857 %CYCLE 858 v == tag(t); t = t-1 lg %r2,456(%r15) .LVL839: 859 class(v); !deduce class from tag lr %r1,%r8 .LVL838: .L929: ahik %r8,%r1,-1 .LVL840: .LBB732: .LBB730: 860 %IF c < 0 %START; !insert %PARAM lt %r1,416(%r15) jl .L961 .LVL835: .L931: 861 c = -c lcr %r1,%r1 st %r1,416(%r15) 862 set cell(196, tp) aghik %r6,%r15,416 srk %r9,%r1,%r9 j .L929 .LVL831: .L959: .LBE726: .LBE725: lgr %r0,%r6 lgf %r3,420(%r15) lghi %r2,196 brasl %r14,SETCELL.7162 .LVL849: 863 tp = -1 mvhi 420(%r15),-1 j .L931 .L962: .L932: 864 %FINISH 865 set cell(c, tp) lgr %r0,%r6 lgf %r3,420(%r15) lgf %r2,416(%r15) brasl %r14,SETCELL.7162 .LVL836: 866 %EXIT %IF t = local; !end of parameters brct %r9,.L953 j .L962 .L953: .L933: 867 set cell(comma, -1); !add the separating comma lgr %r0,%r6 lghi %r3,-1 lghi %r2,140 brasl %r14,SETCELL.7162 .LVL837: 868 %REPEAT 869 abandon(3) %IF gmax > gmin lrl %r1,GMAX.6832 crl %r1,GMIN.6790 jh .L963 .L934: 870 lg %r0,456(%r15) lghi %r2,3 brasl %r14,ABANDON.6872 .LVL854: j .L934 .LVL855: .L949: 871 %RESULT = link l %r9,428(%r15) .LVL850: .L927: .LBE733: .LBE735: 872 873 %ROUTINE set cell(%INTEGER g, tt) .LVL9: ldgr %f4,%r9 ldgr %f2,%r10 ldgr %f0,%r11 lgr %r5,%r0 874 875 !add the cell to the grammar, combining common tails 876 877 %WHILE p # gmax %CYCLE 878 p = p+1 lrl %r11,GMAX.6832 l %r4,16(%r5) crje %r11,%r4,.L6 ahik %r0,%r4,1 st %r0,16(%r5) 879 %IF glink(p) = link %AND gram(p) = g %START larl %r10,GLINK.6837 lgfr %r1,%r0 sllg %r1,%r1,1 lh %r1,0(%r1,%r10) c %r1,12(%r5) jne .L11 lgfr %r1,%r0 sllg %r1,%r1,1 ch %r2,0(%r1,%r9) jne .L11 cijl %r3,0,.L8 880 %IF tt < 0 %OR (gram(p+1) = tt %AND glink(p+1)=ap) %START larl %r9,GRAM.6836 .L11: 881 link = p; !already there ahi %r4,2 lgfr %r1,%r4 sllg %r1,%r1,1 ch %r3,0(%r1,%r9) jne .L11 st %r0,12(%r5) j .L5 .L6: 882 %RETURN lh %r1,0(%r1,%r10) c %r1,8(%r5) jne .L11 .L8: 883 %FINISH 884 %FINISH 885 %REPEAT 886 887 !add a new cell 888 889 gmax = gmax+1 ahik %r4,%r11,1 strl %r4,GMAX.6832 890 gram(gmax) = g lgfr %r1,%r4 sllg %r1,%r1,1 larl %r10,GRAM.6836 sth %r2,0(%r1,%r10) 891 glink(gmax) = link larl %r2,GLINK.6837 .LVL10: lh %r0,14(%r5) sth %r0,0(%r1,%r2) 892 link = gmax st %r4,12(%r5) 893 894 %IF tt >= 0 %START; ! set type cell cijl %r3,0,.L10 895 gmax = gmax+1 ahi %r11,2 strl %r11,GMAX.6832 896 gram(gmax) = tt lgfr %r11,%r11 sllg %r11,%r11,1 sth %r3,0(%r11,%r10) 897 glink(gmax) = ap larl %r2,GLINK.6837 lh %r1,10(%r5) sth %r1,0(%r11,%r2) .L10: 898 %FINISH 899 900 p = gmax lrl %r1,GMAX.6832 st %r1,16(%r5) .L5: 901 %END 902 lgdr %r9,%f4 lgdr %r10,%f2 lgdr %r11,%f0 br %r14 .LFE195: .align 8 DEFLAB.7875: .LFB210: 903 %ROUTINE class(%RECORD(tagfm)%NAME v) 904 %CONSTINTEGER err = 89 905 %CONSTINTEGER rtp = 100 906 %CONSTINTEGER fnp = 101 907 %CONSTINTEGER mapp = 102 908 %CONSTINTEGER predp = 103 909 %CONSTINTEGERARRAY class map(0:15) = %C larl %r7,.LC29 .LBE728: .LBE727: mvc 1816(64,%r15),0(%r7) 910 err,1764, 247, err(4), -rtp, -fnp, -mapp, -predp, err, 214, 911 err, 229, err 912 %INTEGER tags, type, form 913 ap = 0 mvhi 424(%r15),0 914 tags = v_flags lgfr %r1,%r1 .LVL841: sllg %r1,%r1,4 .LVL842: lh %r3,220(%r1,%r2) .LVL843: 915 type = tags>>4&7; form = tags&15 risbgn %r4,%r3,64-3,128+63,57+3 .LVL844: agr %r1,%r2 916 tp = v_format<<3!type lr %r2,%r4 .LVL845: l %r5,216(%r1) rosbg %r2,%r5,32,63-3,3 st %r2,420(%r15) 917 c = class map(form) risbg %r2,%r3,60,128+63,0 .LVL846: risbgn %r3,%r3,58,128+61,2 .LVL847: l %r3,1816(%r3,%r15) st %r3,416(%r15) 918 c = 208 %AND tp = 0 %IF type = 0 %AND form = 2; !%NAME cijlh %r4,0,.L930 919 ap = v_app %IF tags¶meters # 0 cijlh %r2,2,.L930 920 %END l %r1,212(%r1) st %r1,424(%r15) .LDL49: .LVL834: .LBE729: .LBE731: mvhi 416(%r15),208 921 %END mvhi 420(%r15),0 j .L930 .LVL848: .L961: .LBE730: .LBE732: 922 923 %ROUTINE delete names(%INTEGER quiet) .LVL679: stmg %r8,%r15,64(%r15) lay %r15,-160(%r15) lgr %r8,%r2 lgr %r10,%r0 924 %INTEGER flags 925 %RECORD(tagfm)%NAME tx 926 %WHILE tmax > tbase %CYCLE 927 x = tmax; tmax = tmax-1 l %r11,64(%r10) c %r11,68(%r10) jh .L815 .L812: .LVL680: .L811: l %r11,64(%r10) c %r11,68(%r10) jle .L811 .L815: strl %r11,X.6743 928 tx == tag(x) ahik %r1,%r11,-1 st %r1,64(%r10) lg %r9,8(%r10) .LVL683: 929 flags = tx_flags lgfr %r1,%r11 .LVL684: sllg %r1,%r1,4 .LVL685: 930 fault(20) %IF flags&spec # 0 %and flags&own bit = 0 931 {spec with no definition & not external} la %r1,221(%r1,%r9) .LVL686: tm 0(%r1),1 jne .L814 932 %IF flags&used bit = 0 %AND level >= 0 %AND list <= 0 %START lgr %r0,%r10 lghi %r2,20 brasl %r14,FAULT.6982 .LVL687: 933 fault(-3) %IF quiet = 0; !unused lt %r1,60(%r10) jl .L814 cgijlh %r8,0,.L814 934 %FINISH larl %r1,LIST.6823 lt %r1,0(%r1) jh .L814 lgr %r0,%r10 lghi %r2,-3 brasl %r14,FAULT.6982 .LVL688: j .L814 .LFE197: .section .rodata.str1.2 .align 2 .LC86: .string "->ACT(%d) out of bounds at %s line %d" .align 2 .LC87: .string "switch jump to undefined label ACT(%d): at %s line %d" .align 2 .LC88: .string "->PACTION(%d) out of bounds at %s line %d" .align 2 .LC89: .string "switch jump to undefined label PACTION(%d): at %s line %d" .section .rodata .align 2 .LC16: .byte 7 .string "Atom1 =" .zero 247 .align 2 .LC17: .byte 9 .string " Atom2 =" .zero 245 .align 2 .LC18: .byte 11 .string " subatom =" .zero 243 .align 2 .LC19: .byte 6 .string "Type =" .zero 248 .align 2 .LC20: .byte 10 .string " Ptype =" .zero 244 .align 2 .LC21: .byte 5 .string "App =" .zero 249 .align 2 .LC22: .byte 9 .string " Papp =" .zero 245 .align 2 .LC23: .byte 8 .string "Format =" .zero 246 .align 2 .LC24: .byte 12 .string " Pformat =" .zero 242 .align 2 .LC28: .byte 2 .string " [" .zero 252 .text .align 8 ANALYSE.6963: .LFB198: 935 dict(tx_text) = tx_link lgfr %r11,%r11 sllg %r11,%r11,4 .LVL682: lg %r2,8(%r10) lh %r1,224(%r11,%r9) ahi %r1,-1 lgfr %r1,%r1 aghi %r1,13416 sllg %r1,%r1,1 lh %r3,226(%r11,%r9) sth %r3,4(%r1,%r2) .LDL36: 936 %REPEAT 937 %END 938 lg %r4,272(%r15) lmg %r8,%r15,224(%r15) br %r4 .L813: .LVL681: .L814: 939 %ROUTINE analyse stmg %r6,%r15,48(%r15) lgr %r14,%r15 lay %r15,-6152(%r15) aghi %r14,-16 std %f8,0(%r14) std %f10,8(%r14) lgr %r9,%r0 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 lay %r2,6128(%r15) mvc 0(8,%r2),40(%r1) lay %r1,6312(%r15) stg %r1,488(%r15) stg %r0,472(%r15) 940 941 %CONSTINTEGER order bits = x'3000', order bit = x'1000' 942 %CONSTINTEGER escape = x'1000' 943 %INTEGER strp, mark, flags, prot err, k, s, c 944 %OWNINTEGER key = 0 945 %SHORTINTEGER node 946 %SHORTINTEGERNAME z 947 %RECORD(arfm)%NAME arp 948 !emas: %INTEGER node 949 !emas: %INTEGERNAME z 950 %SWITCH act(actions:phrasal), paction(0:15) 951 952 %ROUTINE trace analysis lay %r1,6312(%r15) stg %r1,464(%r15) aghik %r1,%r15,472 stg %r1,456(%r15) 953 !diagnostic trace routine (diagnose&1 # 0) 954 %INTEGER a 955 %ROUTINE show(%INTEGER a) .LVL32: stmg %r14,%r15,112(%r15) lay %r15,-936(%r15) ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 mvc 928(8,%r15),40(%r1) .LVL33: .LBB316: 956 %IF 0 < a < 130 %START 957 space 958 printstring(text(a)) 959 %FINISH %ELSE write(a, 3) ahik %r1,%r2,-1 clijh %r1,128,.L47 .LBE316: .LBB317: .LBB318: brasl %r14,_imp_space@PLT .LVL34: mvc 672(256,%r15),416(%r15) .LBE318: .LBE317: .LBB319: .LBB320: mvc 160(256,%r15),672(%r15) aghik %r2,%r15,160 brasl %r14,_imp_printstring@PLT .LVL35: j .L46 .LVL36: .L47: .LBE320: .LBE319: 960 %END 961 %OWNINTEGER la1=0, la2=0, lsa=0, lt=0 lghi %r3,3 brasl %r14,_imp_writeint@PLT .LVL37: .L48: .L46: ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 clc 928(8,%r15),40(%r1) jne .L51 lg %r4,1048(%r15) lmg %r14,%r15,1048(%r15) br %r4 .L51: brasl %r14,__stack_chk_fail@PLT .LVL38: .LFE200: .section .rodata.str1.2 .align 2 .LC79: .string "Illegal cycle J = AD + 1, 1, AD + *_imp_BYTEINTEGER(AD)" .text .align 8 PRINTIDENT.6853: .LFB187: 962 newline %IF mon pos # pos %AND sym # nl lrl %r2,MONPOS.6760 larl %r1,POS.6811 c %r2,0(%r1) je .L845 963 mon pos = pos lrl %r1,SYM.6761 chi %r1,10 jne .L908 .L845: lrl %r1,POS.6811 strl %r1,MONPOS.6760 964 write(g, 3) lghi %r3,3 lgfrl %r2,G.6781 brasl %r14,_imp_writeint@PLT .LVL756: .LBB637: .LBB638: brasl %r14,_imp_space@PLT .LVL757: lay %r1,5104(%r15) lay %r2,5360(%r15) mvc 0(256,%r1),0(%r2) .LBE638: .LBE637: .LBB639: .LBB630: mvc 192(256,%r15),0(%r1) lgdr %r2,%f8 brasl %r14,_imp_printstring@PLT .LVL758: .LBE630: .LBE639: .LBB640: .LBB641: lghi %r2,34 brasl %r14,_imp_printsymbol@PLT .LVL759: .LDL41: .LBE641: .LBE640: 965 space 966 printstring(text(class)) 967 printsymbol('"') %IF gg&trans bit # 0 968 a = gg>>8&15 lrl %r11,GG.6782 risbgn %r11,%r11,64-4,128+63,52+4 .LVL760: 969 %IF a # 0 %START cijlh %r11,0,.L909 .L846: 970 printsymbol('{') 971 write(a, 0) lghi %r3,0 lgfr %r2,%r11 brasl %r14,_imp_writeint@PLT .LVL752: .LBB635: .LBB636: lghi %r2,125 brasl %r14,_imp_printsymbol@PLT .LVL753: j .L846 .LVL754: .L910: .LBE636: .LBE635: 972 printsymbol('}') 973 %FINISH 974 %IF atom1 # la1 %OR atom2 # la2 %OR lsa # subatom %C lrl %r2,ATOM1.6744 larl %r1,LA1.7245 c %r2,0(%r1) jne .L847 975 %OR lt # type %START lrl %r2,ATOM2.6745 larl %r1,LA2.7246 c %r2,0(%r1) je .L910 .L847: .LBB642: 976 printstring(" [") lrl %r2,LSA.7247 larl %r1,SUBATOM.6746 c %r2,0(%r1) jne .L847 larl %r1,.LC28 lay %r2,5616(%r15) mvc 0(256,%r2),0(%r1) lay %r1,5872(%r15) mvc 0(256,%r1),0(%r2) lay %r1,4848(%r15) lay %r2,5872(%r15) mvc 0(256,%r1),0(%r2) .LBE642: .LBB643: .LBB644: mvc 192(256,%r15),0(%r1) lgdr %r2,%f8 brasl %r14,_imp_printstring@PLT .LVL761: .LBE644: .LBE643: 977 la1 = atom1 lrl %r2,LT.7248 larl %r1,TYPE.6747 c %r2,0(%r1) jne .L847 j .L848 .LVL755: .L852: .LBE649: .LBE688: lrl %r1,ATOM1.6744 strl %r1,LA1.7245 978 show(la1) aghik %r1,%r15,456 ldgr %f10,%r1 .LVL701: .L833: .LBE627: .LBE626: lgdr %r0,%f10 lgfr %r2,%r1 brasl %r14,SHOW.7238 .LVL762: 979 la2 = atom2 lrl %r1,ATOM2.6745 strl %r1,LA2.7246 980 show(la2) lgdr %r0,%f10 lgfr %r2,%r1 brasl %r14,SHOW.7238 .LVL763: 981 lsa = subatom lrl %r1,SUBATOM.6746 strl %r1,LSA.7247 982 write(lsa, 3) lghi %r3,3 lgfr %r2,%r1 brasl %r14,_imp_writeint@PLT .LVL764: 983 lt = type lrl %r1,TYPE.6747 strl %r1,LT.7248 984 write(lt, 5) lghi %r3,5 lgfr %r2,%r1 brasl %r14,_imp_writeint@PLT .LVL765: .LBB645: .LBB646: lghi %r2,93 brasl %r14,_imp_printsymbol@PLT .LVL766: .L848: .LBE646: .LBE645: .LBB647: .LBB648: brasl %r14,_imp_newline@PLT .LVL767: .LDL42: .LBE648: .LBE647: .LBE650: .LBE689: 985 printsymbol(']') 986 %FINISH 987 newline 988 %END 989 990 %ROUTINE get sym stmg %r14,%r15,112(%r15) lay %r15,-160(%r15) .LVL191: .LBB363: .LBB364: larl %r2,SYM.6761 brasl %r14,_imp_readsymbol@PLT .LVL192: .LBE364: .LBE363: 991 readsymbol(sym) 992 pos = pos+1 %IF pos # 133 lrl %r1,POS.6811 lhi %r2,133 crje %r1,%r2,.L178 993 char(pos) = sym ahi %r1,1 strl %r1,POS.6811 .L178: lrl %r1,SYM.6761 lr %r2,%r1 lgfrl %r3,POS.6811 larl %r4,CHAR.6818 stc %r1,0(%r3,%r4) 994 printsymbol(sym) %IF list <= 0 larl %r1,LIST.6823 lt %r1,0(%r1) jle .L181 .L179: 995 column = column+1 lrl %r1,COLUMN.6758 ahi %r1,1 strl %r1,COLUMN.6758 996 %END 997 %ROUTINE read sym lg %r4,272(%r15) lmg %r14,%r15,272(%r15) br %r4 .L181: .LBB365: .LBB366: llgcr %r2,%r2 brasl %r14,_imp_printsymbol@PLT .LVL193: j .L179 .LBE366: .LBE365: .LFE201: .section .rodata .align 2 .LC26: .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 10 .byte 0 .byte 3 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 33 .byte 34 .byte 35 .byte 36 .byte 1 .byte 38 .byte 39 .byte 40 .byte 41 .byte 42 .byte 43 .byte 44 .byte 45 .byte 46 .byte 47 .byte 48 .byte 49 .byte 50 .byte 51 .byte 52 .byte 53 .byte 54 .byte 55 .byte 56 .byte 57 .byte 58 .byte 59 .byte 60 .byte 61 .byte 62 .byte 63 .byte 64 .byte 65 .byte 66 .byte 67 .byte 68 .byte 69 .byte 70 .byte 71 .byte 72 .byte 73 .byte 74 .byte 75 .byte 76 .byte 77 .byte 78 .byte 79 .byte 80 .byte 81 .byte 82 .byte 83 .byte 84 .byte 85 .byte 86 .byte 87 .byte 88 .byte 89 .byte 90 .byte 91 .byte 92 .byte 93 .byte 94 .byte 95 .byte 96 .byte 65 .byte 66 .byte 67 .byte 68 .byte 69 .byte 70 .byte 71 .byte 72 .byte 73 .byte 74 .byte 75 .byte 76 .byte 77 .byte 78 .byte 79 .byte 80 .byte 81 .byte 82 .byte 83 .byte 84 .byte 85 .byte 86 .byte 87 .byte 88 .byte 89 .byte 90 .byte 2 .byte 124 .byte 125 .byte 126 .byte 0 .align 2 .LC27: .byte 2 .string " &" .zero 252 .text .align 8 READSYM.7264: .LFB202: stmg %r11,%r15,88(%r15) lay %r15,-1320(%r15) lgr %r11,%r0 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 mvc 1312(8,%r15),40(%r1) 998 %owninteger Last = 0 999 %CONSTBYTEINTEGERARRAY mapped(0:127) = %C larl %r1,.LC26 mvc 1184(128,%r15),0(%r1) 1000 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, nl, 0, 3 , 0, 0, 0, 1001 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1002 0 ,'!','"','#', '$', 1 ,'&', 39, '(',')','*','+', ',','-','.','/', 1003 '0','1','2','3', '4','5','6','7', '8','9',':',';', '<','=','>','?', 1004 '@','A','B','C', 'D','E','F','G', 'H','I','J','K', 'L','M','N','O', 1005 'P','Q','R','S', 'T','U','V','W', 'X','Y','Z','[', '\',']','^','_', 1006 '`','A','B','C', 'D','E','F','G', 'H','I','J','K', 'L','M','N','O', 1007 'P','Q','R','S', 'T','U','V','W', 'X','Y','Z', 2 , '|','}','~', 0 1008 1009 !! 0 = space 1010 !! 1 = % 1011 !! 2 = { 1012 !! 3 = ff 1013 !! other values represent themselves 1014 1015 %IF sym = nl %START lrl %r1,SYM.6761 chi %r1,10 jne .L195 .L185: 1016 s1: lines = lines+1 1017 printsymbol(end mark) %if end mark # 0 lrl %r1,LINES.6753 ahi %r1,1 strl %r1,LINES.6753 larl %r1,ENDMARK.6764 lt %r2,0(%r1) jne .L216 .L186: .L187: 1018 s11: pos = 0; pos1 = 0; pos2 = 0; margin = 0; column = 0 1019 Last = 0 larl %r1,POS.6811 mvhi 0(%r1),0 larl %r1,LAST.7266 mvhi 0(%r1),0 1020 end mark = 0 larl %r1,POS1.6809 mvhi 0(%r1),0 larl %r1,ENDMARK.6764 mvhi 0(%r1),0 1021 %IF list <= 0 %START larl %r1,POS2.6810 mvhi 0(%r1),0 larl %r1,LIST.6823 lt %r1,0(%r1) jle .L217 .L188: .L192: .L193: .L194: 1022 %IF include # 0 %START larl %r1,MARGIN.6755 mvhi 0(%r1),0 larl %r1,INCLUDE.6797 lt %r1,0(%r1) je .L189 .LBB371: 1023 printstring(" &"); write(lines, -4) larl %r1,COLUMN.6758 mvhi 0(%r1),0 larl %r1,.LC27 mvc 416(256,%r15),0(%r1) mvc 672(256,%r15),416(%r15) mvc 928(256,%r15),672(%r15) .LBE371: .LBB372: .LBB373: mvc 160(256,%r15),928(%r15) aghik %r2,%r15,160 brasl %r14,_imp_printstring@PLT .LVL199: .LBE373: .LBE372: 1024 %FINISH %ELSE write(lines, 5) lghi %r3,-4 lgfrl %r2,LINES.6753 brasl %r14,_imp_writeint@PLT .LVL200: .L190: 1025 csym = cont; printsymbol(csym) lrl %r1,CONT.6765 strl %r1,CSYM.6766 .LVL201: .LBB374: .LBB375: llgcr %r2,%r1 brasl %r14,_imp_printsymbol@PLT .LVL202: .LBE375: .LBE374: .LBB376: .LBB377: brasl %r14,_imp_space@PLT .LVL203: .LBE377: .LBE376: 1026 space lghi %r3,5 lgfrl %r2,LINES.6753 brasl %r14,_imp_writeint@PLT .LVL209: j .L190 .L218: .LVL210: .LBB382: .LBB383: llgcr %r2,%r2 brasl %r14,_imp_printsymbol@PLT .LVL211: j .L197 .L219: .LBE383: .LBE382: 1027 %IF error margin # 0 %START larl %r1,ERRORMARGIN.6756 lt %r2,0(%r1) je .L194 1028 lines = lines-1 lrl %r1,LINES.6753 ahi %r1,-1 strl %r1,LINES.6753 .LVL204: .LBB378: .LBB379: lgfr %r2,%r2 .LVL205: brasl %r14,_imp_spaces@PLT .LVL206: .LBE379: .LBE378: 1029 spaces(error margin) 1030 error margin = 0 larl %r1,ERRORMARGIN.6756 mvhi 0(%r1),0 1031 %IF error sym # 0 %START larl %r1,ERRORSYM.6757 lt %r2,0(%r1) je .L194 .LVL207: .LBB380: .LBB381: llgcr %r2,%r2 brasl %r14,_imp_printsymbol@PLT .LVL208: .LBE381: .LBE380: 1032 printsymbol(error sym) 1033 pos = 1 larl %r1,POS.6811 mvhi 0(%r1),1 1034 !IMP80 BUG??? 1035 !! char(1) = error sym 1036 byteinteger(addr(char(0))+1) = error sym lrl %r2,ERRORSYM.6757 larl %r1,CHAR.6818 stc %r2,1(%r1) 1037 sym = error sym; error sym = 0 strl %r2,SYM.6761 1038 ->s5 larl %r1,ERRORSYM.6757 mvhi 0(%r1),0 j .L191 .L189: 1039 %FINISH 1040 %FINISH 1041 %FINISH 1042 s2: symtype = 1 1043 %FINISH larl %r1,SYMTYPE.6762 mvhi 0(%r1),1 .L184: .L195: .LVL194: .LBB367: .LBB368: larl %r2,SYM.6761 brasl %r14,_imp_readsymbol@PLT .LVL195: .LBE368: .LBE367: 1044 s3:readsymbol(sym) 1045 pos = pos+1 %IF pos # 133 lrl %r1,POS.6811 lhi %r2,133 crje %r1,%r2,.L196 1046 char(pos) = sym ahi %r1,1 strl %r1,POS.6811 .L196: lrl %r1,SYM.6761 lr %r2,%r1 lgfrl %r3,POS.6811 larl %r4,CHAR.6818 stc %r1,0(%r3,%r4) 1047 printsymbol(sym) %IF list <= 0 larl %r1,LIST.6823 lt %r1,0(%r1) jle .L218 .L197: 1048 column = column+1 lrl %r1,COLUMN.6758 ahi %r1,1 strl %r1,COLUMN.6758 .L191: 1049 s5:%IF sym # nl %START 1050 Last = Sym lrl %r1,SYM.6761 cije %r1,10,.L209 strl %r1,LAST.7266 1051 %RETURN %IF quote # 0; !dont alter strings larl %r2,QUOTE.6763 lt %r2,0(%r2) jne .L183 .L200: 1052 sym = mapped(sym&127) risbg %r1,%r1,57,128+63,0 llc %r1,1184(%r1,%r15) strl %r1,SYM.6761 1053 %IF sym <= 3 %START; !special symbol cijh %r1,3,.L201 1054 ->s2 %IF sym = 0; !space (or dubious control) cije %r1,0,.L194 .L202: 1055 symtype = 2 %AND ->s3 %IF sym = 1; !% cije %r1,1,.L219 .L203: 1056 cont = '+' %AND ->s11 %IF sym = 3; !ff cije %r1,3,.L220 .L204: .L205: .L206: larl %r1,SYMTYPE.6762 mvhi 0(%r1),2 1057 !must be { j .L195 .L220: larl %r1,CONT.6765 mvhi 0(%r1),43 1058 %CYCLE j .L187 .L201: 1059 get sym brasl %r14,GETSYM.7259 .LVL196: 1060 ->s3 %IF sym = '}' lrl %r1,SYM.6761 cije %r1,125,.L195 .L207: 1061 ->s4 %IF sym = nl cijlh %r1,10,.L204 .L198: .L209: 1062 %REPEAT 1063 %FINISH 1064 key = kdict(sym) lg %r2,0(%r11) lg %r3,8(%r2) ahik %r2,%r1,-32 lgfr %r2,%r2 aghi %r2,12840 sllg %r2,%r2,1 lh %r2,4(%r2,%r3) strl %r2,KEY.7219 1065 %IF key&3 = 0 %AND symtype = 2 %START; !keyword tmll %r2,1 jne .L208 1066 %IF sym = 'C' %AND nextsymbol = nl %START; !%C... lrl %r3,SYMTYPE.6762 chi %r3,2 je .L222 .L208: cijlh %r1,67,.L183 .LBB384: .LBB385: brasl %r14,_imp_nextsymbol@PLT .LVL212: .LBE385: .LBE384: 1067 getsym; cont = '+'; ->s1 cijlh %r2,10,.L183 brasl %r14,GETSYM.7259 .LVL213: 1068 %FINISH larl %r1,CONT.6765 mvhi 0(%r1),43 1069 %ELSE j .L185 .L221: 1070 symtype = key&3-2 nilf %r2,3 ahik %r1,%r2,-2 strl %r1,SYMTYPE.6762 j .L183 .L222: 1071 %FINISH 1072 %RETURN 1073 %FINISH 1074 s4:symtype = quote 1075 ->S1 %if last = 0 %and Quote = 0 lrl %r1,QUOTE.6763 strl %r1,SYMTYPE.6762 larl %r2,LAST.7266 lt %r2,0(%r2) jne .L210 1076 Cont = '+' cije %r1,0,.L185 .L210: larl %r1,CONT.6765 mvhi 0(%r1),43 .L199: .L211: .L183: 1077 %END 1078 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 clc 1312(8,%r15),40(%r1) jne .L221 lg %r5,1432(%r15) lmg %r11,%r15,1408(%r15) br %r5 .L216: .LVL197: .LBB369: .LBB370: llgcr %r2,%r2 brasl %r14,_imp_printsymbol@PLT .LVL198: j .L187 .L217: .LBE370: .LBE369: brasl %r14,__stack_chk_fail@PLT .LVL214: .LFE202: .align 8 GET.7431: .LFB206: 1079 %INTEGERFN format selected 1080 format list = tag(format)_app; !number of names lg %r2,0(%r9) lg %r2,0(%r2) lgfr %r1,%r1 sllg %r1,%r1,4 ag %r1,8(%r2) l %r2,212(%r1) strl %r2,FORMATLIST.6816 1081 %IF format list < 0 %START; !forward ref cijl %r2,0,.L167 .L126: 1082 atom1 = error+22 llill %r1,32790 strl %r1,ATOM1.6744 j .L108 .L130: .LBE360: .LBE359: 1083 %RESULT = 0 1084 %FINISH 1085 %IF sym = '_' %START lrl %r2,SYM.6761 chi %r2,95 jne .L129 1086 escape class = esc rec larl %r2,ESCAPECLASS.6770 mvhi 0(%r2),255 1087 search base = tag(format)_format l %r1,216(%r1) strl %r1,SEARCHBASE.6815 j .L129 .L167: 1088 %FINISH 1089 %RESULT = 1 1090 %END 1091 1092 %ROUTINE code atom(%INTEGER target) .LVL225: stmg %r8,%r15,64(%r15) lay %r15,-200(%r15) lgr %r9,%r2 lgr %r11,%r0 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 mvc 192(8,%r15),40(%r1) la %r1,360(%r15) stg %r1,184(%r15) stg %r0,160(%r15) 1093 %INTEGER dbase, da 1094 %INTEGER base, n, mul, pend quote 1095 %INTEGER j,k,l, pt 1096 1097 %ROUTINE lookup(%INTEGER d) .LVL115: stmg %r6,%r15,48(%r15) lgr %r14,%r15 lay %r15,-944(%r15) aghi %r14,-8 std %f8,0(%r14) lgr %r6,%r2 lgr %r9,%r0 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 mvc 928(8,%r15),40(%r1) 1098 %CONSTINTEGER magic = 6700421 1099 %INTEGER new name, vid, k1, k2, form 1100 %RECORD(tagfm)%NAME t 1101 !emas: %LONGINTEGER k0 1102 %INTEGER new 1103 1104 !first locate the text of the name 1105 1106 new = addr(dict(dmax+1)) lg %r1,0(%r9) lg %r1,0(%r1) lg %r2,8(%r1) .LVL116: lgfrl %r1,DMAX.6791 aghi %r1,13418 sllg %r1,%r1,1 ar %r1,%r2 .LVL117: 1107 1108 !******** Machine code to inhibit overflow test ******** 1109 1110 ! *LI_1,magic 1111 ! * M_0,hash value 1112 ! *ST_1,K2 1113 1114 {K2 = hash value*magic} 1115 K2 = hash value*magic ;! requires NOCHECK option iilf %r10,6700421 ms %r10,208(%r2) .LVL118: 1116 ! we could fix this properly by a shift+add loop 1117 !******************************************************* 1118 1119 k2 = k2>>(32-2*name bits)!1 srl %r10,10 .LVL119: oill %r10,1 lr %r7,%r10 .LVL120: 1120 !emas: k0 = magic 1121 !emas: k1 = (k0*hash value)&X'7FFFFFFF' 1122 !emas: k2 = k1>>(32-2*name bits)!1 1123 k1 = k2>>name bits; !giving name bits srl %r10,11 .LVL121: 1124 %CYCLE 1125 newname = hash(k1) lgfr %r3,%r10 aghi %r3,10792 sllg %r3,%r3,1 lh %r11,4(%r3,%r2) lr %r8,%r11 lhr %r11,%r11 .LVL122: lg %r1,0(%r9) lg %r1,0(%r1) lg %r2,8(%r1) lgfr %r1,%r10 aghi %r1,10792 sllg %r1,%r1,1 lh %r11,4(%r1,%r2) .LVL127: lr %r8,%r11 lhr %r11,%r11 .LVL128: 1126 %EXIT %IF newname = 0; !not in cije %r11,0,.L109 cijlh %r11,0,.L110 .L109: 1127 ->in %IF string(addr(dict(newname+1))) = string(new) 1128 k1 = (k1+k2)&max names ar %r10,%r7 .LVL125: nilf %r10,2047 .LDL8: .LVL126: 1129 %REPEAT lgfr %r1,%r1 ldgr %f8,%r1 .LVL123: .L110: lgfr %r1,%r11 aghi %r1,13418 sllg %r1,%r1,1 lgdr %r3,%f8 la %r2,0(%r1,%r2) brasl %r14,_imp_strcmp@PLT .LVL124: cije %r2,0,.L111 .L112: 1130 1131 ! not found 1132 1133 spare names = spare names-1 lrl %r1,SPARENAMES.6714 ahi %r1,-1 strl %r1,SPARENAMES.6714 1134 abandon(2) %IF spare names <= 0 cijle %r1,0,.L163 .L113: 1135 hash(k1) = dmax; !put it in lrl %r11,DMAX.6791 .LVL129: lg %r1,0(%r9) lg %r1,0(%r1) lg %r2,8(%r1) lgfr %r10,%r10 aghik %r1,%r10,10792 sllg %r1,%r1,1 sth %r11,4(%r1,%r2) lgr %r0,%r2 lghi %r2,2 brasl %r14,ABANDON.6872 .LVL136: j .L113 .L111: 1136 dict(dmax) = -1 lg %r1,0(%r9) lg %r1,0(%r1) lg %r2,8(%r1) ahik %r1,%r11,-1 lgfr %r1,%r1 aghi %r1,13416 sllg %r1,%r1,1 la %r1,4(%r1,%r2) mvhhi 0(%r1),-1 .LVL130: 1137 newname = dmax; dmax = dp; ->not in 1138 lrl %r1,DP.6808 strl %r1,DMAX.6791 .L114: .LVL131: .L146: 1139 in: search base = rbase %IF this >= 0 %AND d # 0; !record elem defn 1140 %IF search base # 0 %START; !record subname larl %r1,THIS.6785 lt %r1,0(%r1) jl .L115 larl %r1,SEARCHBASE.6815 lt %r1,0(%r1) je .L116 .LVL137: 1141 new = -1 cgije %r6,0,.L115 1142 x = search base lrl %r1,RBASE.6788 strl %r1,SEARCHBASE.6815 .L115: strl %r1,X.6743 1143 %CYCLE 1144 ->not in %IF x < format list lrl %r4,FORMATLIST.6816 crjl %r1,%r4,.L146 crjl %r1,%r4,.L165 .L119: ahi %r1,-1 1145 %EXIT %IF tag(x)_text = new name lg %r2,0(%r9) lg %r2,0(%r2) lg %r5,8(%r2) lgfr %r2,%r1 sllg %r2,%r2,4 lhr %r3,%r8 ahi %r1,-1 lr %r8,%r3 ch %r3,224(%r2,%r5) je .L123 .L120: lgfr %r2,%r3 sllg %r2,%r2,4 ch %r8,224(%r2,%r5) jne .L120 strl %r3,X.6743 j .L123 .LVL138: .L116: 1146 x = x-1 lr %r3,%r1 .LDL9: 1147 %REPEAT 1148 %FINISH %ELSE %START; !hash in for normal names 1149 x = dict(newname) lg %r1,0(%r9) lg %r1,0(%r1) lg %r2,8(%r1) ahik %r1,%r11,-1 lgfr %r1,%r1 aghi %r1,13416 sllg %r1,%r1,1 lh %r1,4(%r1,%r2) strl %r1,X.6743 1150 ->not in %IF x <= limit; !wrong level crl %r1,LIMIT.6803 jle .L146 .L118: .L122: .L123: 1151 %FINISH 1152 1153 subatom = x; !name found, extract info lrl %r8,X.6743 strl %r8,SUBATOM.6746 1154 t == tag(x) lg %r1,0(%r9) lg %r1,0(%r1) lg %r7,8(%r1) .LVL139: 1155 atom flags = t_flags lgfr %r10,%r8 .LVL140: sllg %r10,%r10,4 .LVL141: lh %r1,220(%r10,%r7) lhr %r2,%r1 strl %r2,ATOMFLAGS.6772 agr %r10,%r7 1156 format = t_format; app = t_app l %r3,216(%r10) strl %r3,FORMAT.6749 1157 protection = atom flags&prot l %r3,212(%r10) strl %r3,APP.6748 1158 type = atom flags>>4&7; atom1 = amap(atom flags&15) risbgn %r2,%r2,64-3,128+63,57+3 strl %r2,TYPE.6747 1159 risbg %r1,%r1,60,128+63,0 llc %r1,38902(%r1,%r7) strl %r1,ATOM1.6744 .LBB353: 1160 %IF diag&8 # 0 %START 1161 printstring("lookup:") larl %r1,.LC25 mvc 672(256,%r15),0(%r1) mvc 416(256,%r15),672(%r15) mvc 672(256,%r15),416(%r15) .LBE353: .LBB354: .LBB355: mvc 160(256,%r15),672(%r15) aghik %r2,%r15,160 brasl %r14,_imp_printstring@PLT .LVL142: .LBE355: .LBE354: 1162 write(atom1, 3) lghi %r3,3 lgfrl %r2,ATOM1.6744 brasl %r14,_imp_writeint@PLT .LVL143: 1163 write(type, 1) lghi %r3,1 lgfrl %r2,TYPE.6747 brasl %r14,_imp_writeint@PLT .LVL144: 1164 write(app, 3) lghi %r3,3 lgfrl %r2,APP.6748 brasl %r14,_imp_writeint@PLT .LVL145: 1165 write(format, 5) lghi %r3,5 lgfrl %r2,FORMAT.6749 brasl %r14,_imp_writeint@PLT .LVL146: 1166 write(atom flags, 3) lghi %r3,3 lgfrl %r2,ATOMFLAGS.6772 brasl %r14,_imp_writeint@PLT .LVL147: .LBB356: .LBB357: brasl %r14,_imp_newline@PLT .LVL148: .LDL10: .LBE357: .LBE356: 1167 newline 1168 %FINISH 1169 1170 %IF d = 0 %START; !old name wanted cgijlh %r6,0,.L124 1171 t_flags <- t_flags!used bit lgfr %r8,%r8 .LVL149: sllg %r8,%r8,4 .LVL150: lh %r1,220(%r8,%r7) oill %r1,32768 sth %r1,220(%r8,%r7) 1172 search base = 0 larl %r1,SEARCHBASE.6815 mvhi 0(%r1),0 1173 1174 %IF atom flags&subname # 0 %AND format # 0 %START; !a record 1175 %RETURN %IF format selected = 0 larl %r1,FORMAT.6749 lt %r1,0(%r1) jne .L166 .L125: .L129: 1176 %FINISH 1177 1178 %IF atom flags¶meters # 0 %START; !proc or array 1179 1180 %IF app = 0 %START; !no parameters needed larl %r1,APP.6748 lt %r1,0(%r1) jne .L130 1181 atom2 = atom1 lrl %r1,ATOM1.6744 strl %r1,ATOM2.6745 1182 atom1 = atom1-4 ahik %r2,%r1,-4 strl %r2,ATOM1.6744 .LVL151: .LBB358: 1183 %IF 97 <= atom1 <= 98 %START 1184 map gg = atom1; atom1 = var strl %r2,MAPGG.6783 1185 %FINISH larl %r1,ATOM1.6744 mvhi 0(%r1),91 j .L135 .LVL152: .L166: .LBB359: .LBB360: 1186 %FINISH %ELSE %START ahi %r1,-101 clijh %r1,1,.L135 .LBE358: 1187 %IF sym = '(' %START lrl %r2,SYM.6761 chi %r2,40 je .L168 .L131: .L134: .L135: 1188 search base = 0; !ignore format for now larl %r2,SEARCHBASE.6815 mvhi 0(%r2),0 1189 %IF atom1 >= 106 %START; !arrays lrl %r2,ATOM1.6744 cijle %r2,105,.L132 1190 app = phrase(app+200) lgfr %r1,%r1 sllg %r1,%r1,1 larl %r3,PHRASE.6833 lh %r1,0(%r1,%r3) strl %r1,APP.6748 1191 escape class = esc array larl %r1,ESCAPECLASS.6770 mvhi 0(%r1),254 1192 atom1 = (atom1-106)>>1+91; !a,an->v na,nan->n ahik %r1,%r2,-106 srl %r1,1 ahi %r1,91 strl %r1,ATOM1.6744 .L133: 1193 %FINISH %ELSE %START; !procedures 1194 escape class = esc proc larl %r1,ESCAPECLASS.6770 mvhi 0(%r1),253 1195 atom1 = atom1-4 ahik %r1,%r2,-4 strl %r1,ATOM1.6744 j .L133 .LVL153: .L124: 1196 %FINISH 1197 phrase(200) = app lhrl %r1,APP.6748+2 sthrl %r1,PHRASE.6833 j .L135 .L132: 1198 %FINISH 1199 %FINISH 1200 pos2 = pos; %return lrl %r1,POS.6811 strl %r1,POS2.6810 1201 %FINISH j .L108 .L168: 1202 1203 !deal with constintegers etc 1204 1205 %IF atom flags&const bit # 0 %AND atom1 = var %START 1206 map gg = const; atom2 = const 1207 subatom = -subatom %IF type = integer 1208 %FINISH 1209 %RETURN 1210 1211 %FINISH 1212 !new name wanted 1213 ->not in %IF tbase # tstart; !don't fault proc parm-parm lg %r1,0(%r9) lg %r1,0(%r1) clc 68(4,%r1),72(%r1) je .L169 .L136: 1214 %IF d = lab+spec+used bit %START llill %r1,32899 crje %r6,%r1,.L173 .L138: 1215 t_flags = t_flags!used bit lgfr %r8,%r8 sllg %r8,%r8,4 .LVL174: lh %r1,220(%r8,%r7) oill %r1,32768 sth %r1,220(%r8,%r7) 1216 %RETURN j .L108 .LVL175: .L174: 1217 %FINISH 1218 %IF atom flags&spec # 0 %START; !a spec has been given 1219 %IF d = lab %START; !define label cije %r6,3,.L174 .L139: .LBB362: 1220 t_flags <- t_Flags-Spec lgfr %r8,%r8 sllg %r8,%r8,4 .LVL176: lh %r1,220(%r8,%r7) ahi %r1,-128 sth %r1,220(%r8,%r7) 1221 %RETURN j .L108 .L140: .LVL177: .L143: 1222 %FINISH 1223 %IF 7 <= decl&15 <= 10 %AND decl&spec = 0 %START 1224 1225 !procedure definition after spec 1226 lrl %r1,DECL.6767 .LVL167: risbg %r2,%r1,60,128+63,0 .LVL168: ahi %r2,-7 .LVL169: clijh %r2,3,.L143 .LBE362: 1227 %IF (decl!!atom flags)&b'1111111' = 0 %START; !correct type? larl %r2,ATOMFLAGS.6772 .LVL170: x %r1,0(%r2) .LVL171: tmll %r1,1 jne .L142 1228 t_flags = t_flags-spec lgfr %r8,%r8 sllg %r8,%r8,4 .LVL172: lh %r1,220(%r8,%r7) ahi %r1,-128 sth %r1,220(%r8,%r7) 1229 spec given = 1 larl %r1,SPECGIVEN.6769 mvhi 0(%r1),1 1230 %RETURN tmll %r1,1 jne .L144 j .L108 .LVL173: .L173: 1231 %FINISH 1232 1233 !note that an external procedure must be speced as a 1234 !non-external procedure. 1235 1236 %FINISH 1237 %IF decl&15 = recfm %START; !recordformat tmll %r1,1 jne .L144 .LVL178: .L142: 1238 t_flags = record<<4+recfm lgfr %r8,%r8 sllg %r8,%r8,4 .LVL179: la %r1,220(%r8,%r7) mvhhi 0(%r1),68 1239 t_format = fdef lrl %r1,FDEF.6784 st %r1,216(%r10) 1240 %RETURN j .L108 .L141: .LVL180: .L144: 1241 %FINISH 1242 %FINISH 1243 %RETURN %IF last1 = jump %AND atom1 = swit lrl %r1,LAST1.6775 chi %r1,54 je .L175 .L145: 1244 copy = x %IF copy = 0 larl %r1,COPY.6804 lt %r1,0(%r1) jne .L136 lrl %r1,ATOM1.6744 chi %r1,105 jne .L145 j .L108 .LVL181: .L165: strl %r1,X.6743 j .L146 .LVL182: .L170: 1245 lrl %r1,X.6743 strl %r1,COPY.6804 j .L136 .L175: 1246 notin:app = 0; vid = 0 1247 atom1 = error+2 larl %r1,APP.6748 mvhi 0(%r1),0 .LVL132: llill %r1,32770 strl %r1,ATOM1.6744 larl %r1,APP.6748 mvhi 0(%r1),0 .LVL154: .L147: 1248 lhi %r0,0 1249 %return %if d = 0; !old name wanted cgijlh %r6,0,.L147 .LVL133: .L108: 1250 type = d>>4&7; form = d&15; atom1 = amap(form) risbgn %r1,%r6,64-3,128+63,32+25+3 strl %r1,TYPE.6747 1251 risbg %r1,%r6,60,128+63,0 .LVL155: 1252 %IF this < 0 %START; !normal scope lg %r2,0(%r9) lg %r3,0(%r2) lg %r2,8(%r3) lgfr %r4,%r1 llc %r4,38902(%r4,%r2) strl %r4,ATOM1.6744 larl %r4,THIS.6785 lt %r4,0(%r4) jl .L170 .L148: .LVL156: 1253 new = newname 1254 tmax = tmax+1; x = tmax asi 64(%r3),1 1255 %FINISH %ELSE %START; !recordformat scope lg %r2,0(%r9) lg %r2,0(%r2) l %r2,64(%r2) strl %r2,X.6743 lr %r2,%r11 j .L149 .LVL183: .L171: 1256 new = -1 lhi %r2,-1 .LVL158: .L149: .LBB361: 1257 recid = recid-1; vid = recid asi 204(%r2),-1 1258 tmin = tmin-1; x = tmin lg %r2,0(%r9) lg %r2,0(%r2) lg %r2,8(%r2) l %r0,204(%r2) .LVL157: lrl %r2,TMIN.6792 ahi %r2,-1 strl %r2,TMIN.6792 1259 format list = tmin strl %r2,X.6743 strl %r2,FORMATLIST.6816 1260 %FINISH 1261 1262 %IF 11 <= form <= 14 %START; !arrays 1263 dim = 1 %IF dim = 0; !set dim for owns larl %r3,DIM.6768 lt %r3,0(%r3) jne .L151 1264 app = dim larl %r3,DIM.6768 mvhi 0(%r3),1 .L151: lrl %r3,DIM.6768 strl %r3,APP.6748 .L150: .LDL11: 1265 %FINISH ahik %r3,%r1,-11 clijh %r3,3,.L150 .LBE361: 1266 1267 d = d!used bit %IF (otype > 2 %AND d&spec = 0) %OR perm # 0 %OR %C 1268 Level = Include Level 1269 1270 !external definitions need not be used in the file in which larl %r3,PERM.6798 lt %r3,0(%r3) jne .L152 1271 !they are defined, so inhibit a useless unused warning. lg %r3,0(%r9) lg %r3,0(%r3) larl %r4,INCLUDELEVEL.6796 clc 0(4,%r4),60(%r3) jne .L153 .L152: 1272 1273 t == tag(x) oill %r6,32768 lgfr %r6,%r6 .LVL159: .L153: lrl %r4,X.6743 lg %r3,0(%r9) lg %r5,0(%r3) lg %r3,8(%r5) .LVL160: 1274 %IF form = lab %START cije %r1,3,.L171 .LVL161: .L154: 1275 id = id+1; vid = id asi 56(%r5),1 1276 %FINISH lg %r1,0(%r9) .LVL184: lg %r1,0(%r1) l %r0,56(%r1) .LVL185: j .L154 .LVL186: .L172: 1277 t_index = vid lgfr %r1,%r4 sllg %r1,%r1,4 sth %r0,222(%r1,%r3) 1278 t_text = new name sth %r11,224(%r1,%r3) 1279 t_flags <- d sth %r6,220(%r1,%r3) agr %r1,%r3 1280 t_app = app lrl %r5,APP.6748 st %r5,212(%r1) 1281 t_format = fdef; format = fdef lrl %r5,FDEF.6784 st %r5,216(%r1) 1282 subatom = x strl %r5,FORMAT.6749 strl %r4,SUBATOM.6746 1283 1284 %IF new >= 0 %START; !insert into hash table cijl %r2,0,.L156 1285 t_link = dict(new); dict(new) = x ahi %r2,-1 .LVL162: lg %r1,0(%r9) lg %r1,0(%r1) lg %r5,8(%r1) lgfr %r2,%r2 aghik %r1,%r2,13416 sllg %r1,%r1,1 lgfr %r2,%r4 .LVL163: sllg %r2,%r2,4 lh %r5,4(%r1,%r5) sth %r5,226(%r2,%r3) 1286 %IF gmin = max grammar %START; !proc param params lg %r2,0(%r9) lg %r2,0(%r2) lg %r2,8(%r2) sth %r4,4(%r1,%r2) lrl %r1,GMIN.6790 chi %r1,1720 je .L172 .L155: .LVL164: .L156: 1287 tmin = tmin-1; subatom = tmin lrl %r1,TMIN.6792 ahi %r1,-1 strl %r1,TMIN.6792 1288 tag(tmin) = t strl %r1,SUBATOM.6746 lg %r2,0(%r9) lg %r2,0(%r2) lg %r5,8(%r2) lgfr %r1,%r1 aghi %r1,13 sllg %r2,%r1,4 lgfr %r4,%r4 .LVL187: aghik %r1,%r4,13 sllg %r1,%r1,4 lg %r0,4(%r1,%r3) .LVL188: lg %r1,12(%r1,%r3) stg %r0,4(%r2,%r5) stg %r1,12(%r2,%r5) j .L156 .LVL189: .L164: 1289 %FINISH 1290 %FINISH 1291 abandon(3) %IF tmax >= tmin lg %r1,0(%r9) lg %r1,0(%r1) lrl %r2,TMIN.6792 c %r2,64(%r1) jh .L108 1292 %END lg %r0,8(%r1) lghi %r2,3 brasl %r14,ABANDON.6872 .LVL165: .L127: j .L108 .LVL166: .L169: .L137: 1293 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 clc 928(8,%r15),40(%r1) jne .L164 ld %f8,936(%r15) lg %r4,1056(%r15) lmg %r6,%r15,992(%r15) .LVL134: br %r4 .LVL135: .L163: brasl %r14,__stack_chk_fail@PLT .LVL190: .LFE205: .align 8 GETSYM.7259: .LFB201: 1294 1295 1296 top: pos1 = pos 1297 subatom = 0; pend quote = 0; atom flags = 0 lrl %r1,POS.6811 strl %r1,POS1.6809 larl %r1,SUBATOM.6746 mvhi 0(%r1),0 .LVL226: lrl %r1,POS.6811 strl %r1,POS1.6809 larl %r1,SUBATOM.6746 mvhi 0(%r1),0 1298 lhi %r10,0 .LVL239: .L282: lhi %r10,0 .LVL247: .L264: 1299 !app and format must be left for assigning to papp & pformat larl %r1,ATOMFLAGS.6772 mvhi 0(%r1),0 larl %r1,ATOMFLAGS.6772 mvhi 0(%r1),0 1300 1301 ->name %IF symtype = -2; !letter lrl %r1,SYMTYPE.6762 cije %r1,-2,.L250 lrl %r1,SYMTYPE.6762 cije %r1,-2,.L250 .L257: 1302 ->number %IF symtype < 0; !digit cijl %r1,0,.L251 cijl %r1,0,.L251 .L258: 1303 %IF symtype = 0 %START cije %r1,0,.L252 cije %r1,0,.L252 .L259: 1304 atom1 = termin; atom2 = 0 larl %r1,ATOM1.6744 mvhi 0(%r1),20 1305 %RETURN larl %r1,ATOM2.6745 mvhi 0(%r1),0 j .L249 .L254: 1306 %FINISH 1307 %IF symtype # 2 %START; !catch keywords here cije %r1,2,.L266 cije %r1,2,.L266 1308 ->text %IF quote # 0; !completion of text larl %r1,QUOTE.6763 lt %r1,0(%r1) je .L254 larl %r1,QUOTE.6763 lt %r1,0(%r1) je .L254 .L261: 1309 ->strings %IF sym = squote; !start of string lrl %r1,SYM.6761 cije %r1,34,.L262 .L263: 1310 ->symbols %IF sym = cquote; !start of symbol cije %r1,39,.L316 .L265: 1311 ->number %IF sym = '.' %AND '0' <= nextsymbol <= '9' cije %r1,46,.L323 .L253: .L266: 1312 %FINISH 1313 1314 !locate atom in fixed dict 1315 k = key>>2; read sym lrl %r10,KEY.7219 srl %r10,2 .LVL233: ahi %r2,-48 clijh %r2,9,.L266 .L251: .LBE386: 1316 %CYCLE lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL234: .LDL15: 1317 j = kdict(k) lg %r2,0(%r11) lgfr %r10,%r10 sllg %r1,%r10,1 ag %r1,8(%r2) lhy %r2,25620(%r1) .LVL235: .LDL16: 1318 %EXIT %IF j&x'4000' # 0 1319 %IF j&127 # sym %OR symtype < 0 %START 1320 ->err %UNLESS j < 0 1321 k = k+1 1322 %FINISH %ELSE %START 1323 l = j>>7&127; read sym 1324 %IF j > 0 %START 1325 %IF l # 0 %START 1326 ->err %IF l # sym %OR symtype < 0 1327 read sym 1328 %FINISH 1329 l = 1 1330 %FINISH 1331 k = k+l 1332 %FINISH 1333 %REPEAT 1334 atom1 = j&127 risbg %r3,%r2,57,128+63,0 strl %r3,ATOM1.6744 1335 %IF atom1 = 0 %START; !comma cijlh %r3,0,.L267 1336 atom1 = 19; subatom = 19; atom2 = 0 larl %r1,ATOM1.6744 mvhi 0(%r1),19 1337 %IF sym = nl %START larl %r1,SUBATOM.6746 mvhi 0(%r1),19 lrl %r1,SYM.6761 chi %r1,10 jne .L249 1338 %RETURN %IF ocount >= 0 larl %r1,ATOM2.6745 mvhi 0(%r1),0 larl %r1,OCOUNT.6802 lt %r1,0(%r1) jhe .L249 .L268: 1339 1340 !special action needs to be taken with as 1341 !const array lists can be enormous 1342 1343 read sym lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL236: j .L249 .LVL237: .L323: .LBB386: .LBB387: .LBB388: brasl %r14,_imp_nextsymbol@PLT .LVL238: .LBE388: .LBE387: 1344 %FINISH 1345 %RETURN 1346 %FINISH 1347 atom2 = j>>7&127 risbgn %r2,%r2,64-7,128+63,50+7 .LVL244: strl %r2,ATOM2.6745 1348 subatom = kdict(k+1)&x'3fff' lhy %r1,25622(%r1) .LVL245: nilf %r1,16383 strl %r1,SUBATOM.6746 1349 !!!!!cont = ' ' 1350 %RETURN j .L249 .LVL246: .L316: 1351 1352 !report an error. adjust the error marker (pos1) to point 1353 !to the faulty character in an atom, but care needs to be taken 1354 !to prevent misleading reports in cases like ...????? 1355 1356 err: atom1 = error+1; atom2 = 0 1357 pos1 = pos %IF pos-pos1 > 2 llill %r1,32769 strl %r1,ATOM1.6744 lrl %r1,POS.6811 lrl %r2,POS1.6809 srk %r2,%r1,%r2 cijle %r2,2,.L249 1358 %RETURN larl %r1,ATOM2.6745 mvhi 0(%r1),0 strl %r1,POS1.6809 j .L249 .LVL291: .L336: 1359 1360 !take care with strings and symbol constants. 1361 !make sure the constant is valid here before sucking it in 1362 !(and potentially loosing many lines) 1363 1364 symbols:atom1 = var; atom2 = const; type = integer 1365 map gg = const; protection = prot larl %r1,ATOM1.6744 mvhi 0(%r1),91 larl %r1,MAPGG.6783 mvhi 0(%r1),93 1366 subatom = lp; abandon(3) %IF lp >= lit max larl %r1,ATOM2.6745 mvhi 0(%r1),93 lrl %r1,LP.6821 strl %r1,SUBATOM.6746 1367 quote = \pend quote larl %r1,TYPE.6747 mvhi 0(%r1),1 cijh %r1,49,.L325 .L271: lr %r1,%r10 xilf %r1,4294967295 strl %r1,QUOTE.6763 1368 %RETURN j .L249 .LVL248: .L317: lg %r1,0(%r11) lg %r0,8(%r1) lghi %r2,3 brasl %r14,ABANDON.6872 .LVL251: j .L271 .LVL252: .L327: .L274: 1369 1370 !an integer constant is acceptable so get it in and 1371 !get the next atom 1372 1373 chars:n = 0; cont = cquote 1374 %CYCLE mvhi 172(%r15),0 1375 read sym larl %r1,CONT.6765 mvhi 0(%r1),39 .LDL18: lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL256: 1376 %IF sym = cquote %START lrl %r1,SYM.6761 chi %r1,39 jne .L272 .LBB389: .LBB390: brasl %r14,_imp_nextsymbol@PLT .LVL257: .LBE390: .LBE389: 1377 %EXIT %IF nextsymbol # cquote cije %r2,39,.L327 .L273: 1378 read sym lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL253: .L272: 1379 %FINISH 1380 %IF n&(\((-1)>>byte size)) # 0 %START; ! overflow 1381 pos1 = pos; atom1 = error+10; %RETURN lrl %r1,POS.6811 strl %r1,POS1.6809 1382 %FINISH llill %r1,32778 strl %r1,ATOM1.6744 .LVL254: .L249: 1383 ->err %IF quote = 0 1384 n = n<top ahik %r1,%r2,1 strl %r1,LP.6821 .LDL17: 1391 1392 !sniff the grammar before getting the string 1393 1394 strings:atom1 = var; atom2 = const; type = stringv 1395 subatom = (strp-stbase)!x'4000' larl %r1,ATOM1.6744 mvhi 0(%r1),91 l %r1,8(%r11) larl %r2,STBASE.6789 s %r1,0(%r2) oill %r1,16384 strl %r1,SUBATOM.6746 1396 map gg = const; protection = prot larl %r1,ATOM2.6745 mvhi 0(%r1),93 larl %r2,MAPGG.6783 mvhi 0(%r2),93 1397 quote = subatom larl %r1,TYPE.6747 mvhi 0(%r1),3 strl %r1,QUOTE.6763 1398 text line = lines; !in case of errors lrl %r1,LINES.6753 strl %r1,TEXTLINE.6754 1399 %RETURN j .L249 .LVL259: .L328: .LBB391: .LBB392: brasl %r14,_imp_nextsymbol@PLT .LVL260: .LBE392: .LBE391: 1400 1401 !a string constant is ok here, so pull it in and get 1402 !the next atom 1403 1404 text: ->chars %IF quote < 0; !character consts 1405 l = strp; n = strp cijl %r1,0,.L256 .LVL227: .L255: l %r10,8(%r11) .LVL228: cijhe %r1,0,.L255 .L256: 1406 j = addr(glink(gmin-1)); !absolute limit st %r10,172(%r15) .LVL229: lrl %r1,GMIN.6790 ahi %r1,-1 lgfr %r1,%r1 sllg %r1,%r1,1 larl %r2,GLINK.6837 agr %r1,%r2 cr %r8,%r1 locrnl %r8,%r1 .LVL231: .LDL12: .LDL13: .LDL14: j .L281 .LVL232: .L252: 1407 k = l+256; !string length limit ahik %r8,%r10,256 .LVL230: 1408 k = j %IF j < k; !choose lower 1409 1410 %CYCLE 1411 cont = squote; quote = 1 larl %r1,CONT.6765 mvhi 0(%r1),34 1412 %CYCLE larl %r1,QUOTE.6763 mvhi 0(%r1),1 .L276: 1413 read sym lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL264: 1414 %IF sym = squote %START; !terminator? lrl %r1,SYM.6761 chi %r1,34 je .L328 .L277: 1415 %EXIT %IF nextsymbol # squote; !yes -> cijlh %r2,34,.L278 .L279: 1416 read sym; ! skip quote lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL261: j .L277 .L278: 1417 %FINISH 1418 l = l+1; byteinteger(l) = sym ahi %r10,1 .LVL265: 1419 lines = text line %AND abandon(7) %IF l >= k; !too many chars lgfr %r1,%r10 lrl %r2,SYM.6761 stc %r2,0(%r1) crjl %r10,%r8,.L276 1420 %REPEAT lrl %r1,TEXTLINE.6754 strl %r1,LINES.6753 1421 byteinteger(n) = l-n; !plug in length l %r1,172(%r15) lgfr %r2,%r1 srk %r1,%r10,%r1 stc %r1,0(%r2) lg %r1,0(%r11) lg %r0,8(%r1) lghi %r2,7 brasl %r14,ABANDON.6872 .LVL266: j .L276 .LVL267: .L324: 1422 1423 strp = l+1; !ready for next string ahik %r1,%r10,1 st %r1,8(%r11) 1424 quote = 0; cont = ' '; read sym larl %r1,QUOTE.6763 mvhi 0(%r1),0 1425 code atom(target) larl %r1,CONT.6765 mvhi 0(%r1),32 lgr %r0,%r11 lgr %r2,%r9 brasl %r14,CODEATOM.7304 .LVL263: 1426 %RETURN %UNLESS atom1 = 48 %AND sym = squote; !fold "???"."+++" lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL262: lrl %r1,ATOM1.6744 chi %r1,48 jne .L249 1427 %REPEAT lrl %r1,SYM.6761 chi %r1,34 jne .L249 .L281: 1428 1429 %ROUTINE get(%INTEGER limit) .LVL215: stmg %r9,%r15,72(%r15) lay %r15,-160(%r15) lgr %r9,%r2 lgr %r11,%r0 .LVL216: 1430 %INTEGER s, shift 1431 shift = 0 srl %r10,31 lhi %r10,0 .L225: .L228: .L229: .L230: .LVL217: 1432 %IF base # 10 %START l %r1,16(%r11) cije %r1,10,.L242 1433 %IF base = 16 %START cije %r1,16,.L243 .L226: 1434 shift = 4 lhi %r10,4 j .L230 .L244: 1435 %FINISH %ELSE %START 1436 %IF base = 8 %START cije %r1,8,.L244 .L227: 1437 shift = 3 lhi %r10,3 j .L230 .LVL219: .L246: 1438 %FINISH %ELSE %START 1439 %IF base = 2 %START xilf %r1,2 lpr %r10,%r1 ahi %r10,-1 1440 shift = 1 1441 %FINISH j .L230 .L242: 1442 %FINISH 1443 %FINISH 1444 %FINISH 1445 n = 0 mvhi 12(%r11),0 j .L231 .LVL218: .L243: 1446 %CYCLE 1447 %IF symtype = -1 %START; !digit lrl %r1,SYMTYPE.6762 cije %r1,-1,.L246 .L232: 1448 s = sym-'0' lrl %r1,SYM.6761 ahik %r2,%r1,-48 .LVL220: 1449 %FINISH %ELSE %START j .L235 .L247: 1450 %IF symtype < 0 %START; !letter cijhe %r1,0,.L224 1451 s = sym-'A'+10 lrl %r1,SYM.6761 ahik %r2,%r1,-55 .LVL222: .L233: .L235: 1452 %FINISH %ELSE %START 1453 %RETURN 1454 %FINISH 1455 %FINISH 1456 %RETURN %IF s >= limit crjhe %r2,%r9,.L224 .L236: 1457 pt = pt+1; byteinteger(pt) = sym l %r1,8(%r11) ahi %r1,1 st %r1,8(%r11) 1458 %IF base = 10 %START; !check overflow lgfr %r1,%r1 lrl %r3,SYM.6761 stc %r3,0(%r1) l %r1,16(%r11) chi %r1,10 je .L247 .L237: .L239: 1459 %IF n >= max int %AND (s > max dig %OR n > max int) %START l %r1,12(%r11) iilf %r3,214748363 crjle %r1,%r3,.L239 1460 cijh %r2,7,.L238 1461 !too big for an integer, iilf %r3,214748364 crjle %r1,%r3,.L239 .L238: 1462 !so call it a real 1463 1464 base = 0; type = real; n = 0 mvhi 16(%r11),0 1465 %FINISH larl %r1,TYPE.6747 mvhi 0(%r1),2 1466 %FINISH mvhi 12(%r11),0 j .L239 .L240: 1467 %IF shift = 0 %START cijlh %r10,0,.L240 1468 n = n*base+s l %r1,12(%r11) ms %r1,16(%r11) ar %r1,%r2 st %r1,12(%r11) 1469 %FINISH %ELSE %START j .L241 .L234: .LVL223: .L224: 1470 n = n<= lit max larl %r1,ATOM2.6745 mvhi 0(%r1),93 cijh %r1,49,.L324 .L283: 1480 pt = strp; mul = 0 larl %r1,TYPE.6747 mvhi 0(%r1),1 l %r1,8(%r11) st %r1,168(%r15) .LVL240: lg %r1,0(%r11) lg %r0,8(%r1) lghi %r2,3 brasl %r14,ABANDON.6872 .LVL268: j .L283 .L285: .LVL269: .L288: 1481 %CYCLE lrl %r1,LP.6821 strl %r1,SUBATOM.6746 1482 get(base) aghik %r9,%r15,160 .L284: lgr %r0,%r9 lgf %r2,176(%r15) brasl %r14,GET.7431 .LVL241: 1483 %EXIT %UNLESS sym = '_' %AND base # 0 %AND pend quote = 0; !change of base lrl %r1,SYM.6761 cijlh %r1,95,.L288 1484 pt = pt+1; byteinteger(pt) = '_' lt %r1,176(%r15) je .L286 l %r1,168(%r15) ahi %r1,1 st %r1,168(%r15) 1485 read sym cijlh %r10,0,.L269 .L287: lgfr %r1,%r1 mvi 0(%r1),95 lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL242: 1486 base = n l %r1,172(%r15) st %r1,176(%r15) 1487 %REPEAT j .L284 .LVL243: .L267: 1488 1489 %IF pend quote # 0 %START cijlh %r10,0,.L329 .L289: cijlh %r10,0,.L269 .L292: 1490 ->err %IF sym # cquote cijlh %r1,39,.L269 .L290: 1491 readsym lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL275: j .L289 .L330: 1492 %FINISH 1493 %IF sym = '.' %START; !a real constant lrl %r1,SYM.6761 chi %r1,46 je .L330 .L291: 1494 pt = pt+1; byteinteger(pt) = '.' l %r1,168(%r15) ahi %r1,1 st %r1,168(%r15) 1495 read sym lgfr %r1,%r1 mvi 0(%r1),46 lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL276: 1496 type = real; n = base; base = 0; get(n) larl %r1,TYPE.6747 mvhi 0(%r1),2 1497 %FINISH l %r2,176(%r15) st %r2,172(%r15) 1498 mvhi 176(%r15),0 1499 %IF sym = '@' %START; !an exponent lrl %r1,SYM.6761 chi %r1,64 jne .L292 aghik %r0,%r15,160 lgfr %r2,%r2 brasl %r14,GET.7431 .LVL277: j .L291 .LVL278: .L331: 1500 pt = pt+1; byteinteger(pt) = '@'; k = pt l %r1,168(%r15) ahi %r1,1 st %r1,168(%r15) 1501 readsym lgfr %r1,%r1 mvi 0(%r1),64 lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL271: 1502 type = integer; base = 10 l %r10,168(%r15) .LVL270: larl %r1,TYPE.6747 mvhi 0(%r1),1 1503 %IF sym = '-' %START mvhi 176(%r15),10 lrl %r1,SYM.6761 chi %r1,45 je .L331 .L293: 1504 read sym; get(10); n = -n lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL279: 1505 %FINISH %ELSE %START aghik %r0,%r15,160 lghi %r2,10 brasl %r14,GET.7431 .LVL280: j .L294 .LVL281: .L250: .LBB393: 1506 get(10) aghik %r0,%r15,160 lghi %r2,10 brasl %r14,GET.7431 .LVL272: .L294: l %r1,172(%r15) lcr %r1,%r1 st %r1,172(%r15) 1507 %FINISH 1508 pt = k+1; byteinteger(pt) = lp; litpool(lp) = n; lp = lp+1 ahik %r1,%r10,1 st %r1,168(%r15) 1509 atom1 = error+10 %IF base = 0 lrl %r2,LP.6821 lgfr %r1,%r1 stc %r2,0(%r1) lt %r1,176(%r15) jne .L295 1510 type = real; !exponents force the type lg %r1,0(%r11) lg %r3,8(%r1) lgfr %r1,%r2 sllg %r1,%r1,2 l %r4,172(%r15) st %r4,0(%r1,%r3) llill %r1,32778 strl %r1,ATOM1.6744 .L295: larl %r1,TYPE.6747 mvhi 0(%r1),2 .LVL273: .L296: 1511 %FINISH ahik %r1,%r2,1 strl %r1,LP.6821 1512 1513 %IF type = real %START lrl %r1,TYPE.6747 chi %r1,2 je .L296 .L297: 1514 byteinteger(strp) = pt-strp l %r2,8(%r11) lgfr %r3,%r2 l %r1,168(%r15) sr %r1,%r2 stc %r1,0(%r3) 1515 subatom = (strp-stbase)!x'2000'; strp = pt+1 l %r1,8(%r11) larl %r2,STBASE.6789 s %r1,0(%r2) oill %r1,8192 strl %r1,SUBATOM.6746 1516 %FINISH %ELSE %START l %r1,168(%r15) ahi %r1,1 st %r1,8(%r11) j .L249 .LVL274: .L329: 1517 litpool(lp) = n lrl %r2,LP.6821 lg %r1,0(%r11) lg %r3,8(%r1) lgfr %r1,%r2 sllg %r1,%r1,2 l %r4,172(%r15) st %r4,0(%r1,%r3) 1518 lp = lp+1 ahik %r1,%r2,1 strl %r1,LP.6821 j .L249 .LVL303: .L326: 1519 %FINISH 1520 %RETURN 1521 1522 name: atom1 = 0 %AND %RETURN %IF 27 <= target <= 41 1523 hash value = 0 lg %r1,0(%r11) lg %r1,8(%r1) mvhi 208(%r1),0 1524 1525 !***************************** 1526 !*machine dependent for speed* ahik %r1,%r9,-27 clijh %r1,14,.L298 .LBE393: 1527 !***************************** 1528 1529 dp = dmax+1 lrl %r1,DMAX.6791 ahik %r2,%r1,1 strl %r2,DP.6808 1530 da = addr(dict(dp)); dbase = da larl %r1,ATOM1.6744 mvhi 0(%r1),0 lg %r2,0(%r11) lgfr %r1,%r1 aghik %r8,%r1,13418 sllg %r8,%r8,1 ag %r8,8(%r2) .LVL282: lr %r10,%r8 .L299: .LVL283: .L321: .L300: 1531 %CYCLE j .L249 .L298: 1532 hash value = hash value+(hash value+sym); !is this good enough? lrl %r1,SYM.6761 lg %r2,0(%r11) lg %r2,8(%r2) l %r3,208(%r2) ark %r4,%r1,%r3 ark %r3,%r4,%r3 st %r3,208(%r2) 1533 da = da+1; byteinteger(da) = sym ahi %r10,1 .LVL284: 1534 read sym lgfr %r2,%r10 stc %r1,0(%r2) lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL285: 1535 %EXIT %IF symtype >= 0 larl %r1,SYMTYPE.6762 lt %r1,0(%r1) jl .L321 .L301: 1536 %REPEAT 1537 %IF sym = cquote %START lrl %r1,SYM.6761 chi %r1,39 je .L332 .L302: 1538 pend quote = 100 lhi %r10,100 .LVL249: j .L264 .LVL250: .L325: lhi %r10,100 .LVL292: lhi %r10,100 .LVL294: lhi %r10,100 .LVL296: 1539 ->symbols %IF hash value = 'M' lg %r1,0(%r11) lg %r1,8(%r1) l %r1,208(%r1) chi %r1,77 je .L317 .L303: 1540 read sym lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL289: 1541 %IF hash value = 'X' %THEN base = 16 %AND ->bxk lg %r1,0(%r11) lg %r1,8(%r1) l %r1,208(%r1) cije %r1,88,.L336 .L304: 1542 %IF hash value = 'K' %C risbg %r2,%r1,62,128+60,0 cije %r2,75,.L337 .L305: mvhi 176(%r15),16 1543 %OR hash value = 'O' %THEN base = 8 %AND ->bxk j .L282 .LVL293: .L337: .L306: 1544 %IF hash value = 'B' %THEN base = 2 %AND ->bxk cije %r1,66,.L338 .LVL290: .L269: .L270: 1545 ->err mvhi 176(%r15),8 mvhi 176(%r15),2 1546 %FINISH j .L282 .LVL295: .L338: j .L282 .LVL297: .L333: 1547 n = da-dbase sr %r10,%r8 .LVL286: st %r10,172(%r15) 1548 byteinteger(dbase) = n lgfr %r8,%r8 stc %r10,0(%r8) 1549 dp = dp+(n+2)>>1 l %r1,172(%r15) ahi %r1,2 srl %r1,1 larl %r2,DP.6808 a %r1,0(%r2) strl %r1,DP.6808 1550 abandon(8) %IF dp >= dmin lg %r2,0(%r11) c %r1,52(%r2) jhe .L333 .L307: 1551 lg %r0,8(%r2) lghi %r2,8 brasl %r14,ABANDON.6872 .LVL298: j .L307 .L334: 1552 atom2 = 90; !ident larl %r1,ATOM2.6745 mvhi 0(%r1),90 1553 %IF last1 = 0 %AND sym = ':' %START; !label larl %r1,LAST1.6775 lt %r1,0(%r1) jne .L308 1554 limit = local; lookup(lab); %RETURN lrl %r1,SYM.6761 chi %r1,58 je .L334 .L309: lrl %r1,LOCAL.6813 strl %r1,LIMIT.6803 1555 %FINISH aghik %r0,%r15,160 lghi %r2,3 brasl %r14,LOOKUP.7317 .LVL299: 1556 %IF last1 = jump %START; !->label j .L249 .L308: cijlh %r1,54,.L309 1557 limit = local; lookup(lab+spec+used bit); %RETURN lrl %r1,LOCAL.6813 strl %r1,LIMIT.6803 1558 %FINISH aghik %r0,%r15,160 llill %r2,32899 brasl %r14,LOOKUP.7317 .LVL300: 1559 %IF decl # 0 %AND target = 90 %START; !identifier larl %r1,DECL.6767 lt %r2,0(%r1) je .L310 j .L249 .L335: 1560 search base = fm base cije %r9,90,.L335 .L310: lrl %r1,FMBASE.6814 strl %r1,SEARCHBASE.6815 1561 limit = local; lookup(decl) lrl %r1,LOCAL.6813 strl %r1,LIMIT.6803 1562 search base = 0 aghik %r0,%r15,160 lgfr %r2,%r2 brasl %r14,LOOKUP.7317 .LVL301: larl %r1,SEARCHBASE.6815 mvhi 0(%r1),0 1563 %FINISH %ELSE %START j .L249 .LVL302: .L286: 1564 limit = 0; lookup(0) larl %r1,LIMIT.6803 mvhi 0(%r1),0 1565 %FINISH aghik %r0,%r15,160 lghi %r2,0 brasl %r14,LOOKUP.7317 .LVL287: .L260: .L311: .L312: .L313: .L314: j .L249 .LVL288: .L332: 1566 %END 1567 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 clc 192(8,%r15),40(%r1) jne .L326 lg %r5,312(%r15) lmg %r8,%r15,264(%r15) br %r5 .LVL255: .L275: brasl %r14,__stack_chk_fail@PLT .LVL304: .LFE204: .align 8 GETNEXT.7878: .LFB211: 1568 %INTEGERFN parsed machine code 1569 ! *opcode_?????????? 1570 %routine octal(%integer n) 1571 %integer m 1572 m = n>>3 1573 octal(m) %if m # 0 1574 bp = bp+1; buff(bp) = n&7+'0' 1575 %end 1576 atom1 = error %AND %RESULT=0 %UNLESS symtype = -2; !starts with letter 1577 flush buffer %IF bp >= 128 1578 bp=bp+1 %AND buff(bp)='w' 1579 %CYCLE 1580 bp=bp+1 %AND buff(bp)=sym 1581 read sym 1582 %EXIT %IF symtype >= 0; !pull in letters and digits 1583 %REPEAT 1584 bp=bp+1 %AND buff(bp)='_' 1585 %IF symtype # 0 %START; !not terminator 1586 atom1 = error %AND %result=0 %UNLESS sym = '_' 1587 read sym 1588 %WHILE symtype # 0 %CYCLE 1589 %IF symtype < 0 %START; !complex 1590 code atom(0); %result=0 %IF atom1&error # 0 1591 %IF atom2 = const %AND type = integer %START 1592 %IF subatom < 0 %THEN octal(tag(-subatom)_format) %C 1593 %ELSE octal(litpool(subatom)) 1594 %FINISH %ELSE %START 1595 %IF 91 <= atom1 <= 109 %START 1596 %if atom1 = 104 {label} %and %C 1597 Tag(Subatom)_Flags&Closed = 0 %start 1598 This = Subatom; Atom1 = Error+21 1599 %result = 0 1600 %finish 1601 op(' ', tag(subatom)_index) 1602 %FINISH %ELSE %START 1603 atom1 = error; %result=0 1604 %FINISH 1605 %FINISH 1606 %FINISH %ELSE %START 1607 bp=bp+1 %AND buff(bp)=sym; read sym 1608 %FINISH 1609 %REPEAT 1610 %FINISH 1611 bp=bp+1 %AND buff(bp)=';' 1612 %RESULT=1 1613 %END 1614 1615 cont = ' ' %IF gg = 0 larl %r1,GG.6782 lt %r2,0(%r1) jne .L820 1616 last1 = 0; mapgg = 0 larl %r1,CONT.6765 mvhi 0(%r1),32 .L820: larl %r1,LAST1.6775 mvhi 0(%r1),0 1617 s = 0; ss = 0; sstype = -1; fdef = 0 larl %r1,MAPGG.6783 mvhi 0(%r1),0 .LVL689: lhi %r10,0 .LBB626: .LBB627: .LBB628: .LBB629: aghik %r1,%r15,192 ldgr %f8,%r1 .LBE629: .LBE628: 1618 fm base = 0 larl %r1,SS.6793 mvhi 0(%r1),0 larl %r1,FMBASE.6814 mvhi 0(%r1),0 1619 app = 0 larl %r1,SSTYPE.6800 mvhi 0(%r1),-1 larl %r1,APP.6748 mvhi 0(%r1),0 1620 larl %r1,FDEF.6784 mvhi 0(%r1),0 1621 !deal with alignment following an error in one statement 1622 !of several on a line 1623 1624 margin = column; !start of statement lrl %r1,COLUMN.6758 strl %r1,MARGIN.6755 1625 1626 pos = 0 larl %r1,POS.6811 mvhi 0(%r1),0 1627 stbase = addr(glink(gmax+1)); strp = stbase; lp = 0 lrl %r1,GMAX.6832 ahi %r1,1 lgfr %r1,%r1 sllg %r1,%r1,1 larl %r3,GLINK.6837 agr %r1,%r3 strl %r1,STBASE.6789 1628 tbase = tstart; !?????????????? st %r1,480(%r15) l %r1,72(%r9) st %r1,68(%r9) 1629 local = tbase larl %r1,LP.6821 mvhi 0(%r1),0 strl %r1,LOCAL.6813 1630 1631 %IF gg = 0 %or ocount >= 0 %START; !data or not continuation(z) cije %r2,0,.L821 1632 again:%WHILE sym type = 0 %CYCLE; !skip redundant terminators larl %r1,OCOUNT.6802 lt %r1,0(%r1) jl .L831 .L821: 1633 c = cont lrl %r10,CONT.6765 .LVL693: 1634 cont = ' '; cont = '+' %IF ocount >= 0 larl %r1,SYMTYPE.6762 lt %r1,0(%r1) jne .L824 larl %r1,CONT.6765 mvhi 0(%r1),32 1635 read sym lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL691: larl %r1,OCOUNT.6802 lt %r1,0(%r1) jl .L825 1636 cont = c strl %r10,CONT.6765 .LVL692: .L823: larl %r1,CONT.6765 mvhi 0(%r1),43 j .L825 .LVL694: .L824: 1637 %REPEAT 1638 ->skip %IF sym = '!'; !comment lrl %r1,SYM.6761 chi %r1,33 je .L827 .L828: 1639 this = -1 larl %r1,THIS.6785 mvhi 0(%r1),-1 1640 code atom(0) lgr %r0,%r11 lghi %r2,0 brasl %r14,CODEATOM.7304 .LVL695: 1641 %IF atom1 = comment %START lrl %r1,ATOM1.6744 chi %r1,22 jne .L831 .L827: 1642 skip: quote = 1 1643 c = cont larl %r1,QUOTE.6763 mvhi 0(%r1),1 lrl %r10,CONT.6765 .LVL696: 1644 read sym %AND cont = c %WHILE sym # nl; !skip to end of line 1645 quote = 0; symtype = 0 lrl %r1,SYM.6761 chi %r1,10 je .L829 .L830: lrl %r1,SYM.6761 chi %r1,10 jne .L830 .L829: larl %r1,QUOTE.6763 mvhi 0(%r1),0 1646 ->again aghik %r11,%r15,472 j .L823 .LVL690: .L825: lgr %r0,%r11 brasl %r14,READSYM.7264 .LVL697: larl %r1,SYMTYPE.6762 mvhi 0(%r1),0 j .L823 .L822: .LVL698: .L831: 1647 %FINISH strl %r10,CONT.6765 .LDL37: 1648 %FINISH 1649 decl = 0; mark = 0 larl %r1,DECL.6767 mvhi 0(%r1),0 .LVL699: 1650 gentype = 0; force = 0 larl %r1,GENTYPE.6776 mvhi 0(%r1),0 1651 dim = 0; prot err = 0 larl %r1,FORCE.6780 mvhi 0(%r1),0 larl %r1,DIM.6768 mvhi 0(%r1),0 .LVL700: 1652 node = 0; nmax = 0; nmin = rec size+1 mvhhi 454(%r15),0 1653 order = 1; gmin = max grammar+1 larl %r1,NMAX.6787 mvhi 0(%r1),0 larl %r1,ORDER.6805 mvhi 0(%r1),1 1654 sstype = 0 %AND ->more %IF gg # 0; !continuation larl %r1,NMIN.6786 mvhi 0(%r1),521 larl %r1,GMIN.6790 mvhi 0(%r1),1721 larl %r1,GG.6782 lt %r1,0(%r1) je .L832 1655 ptype = 0; spec given = 0 larl %r1,SSTYPE.6800 mvhi 0(%r1),0 larl %r1,PTYPE.6777 mvhi 0(%r1),0 1656 larl %r1,SPECGIVEN.6769 mvhi 0(%r1),0 1657 stats = stats+1; op('O', lines) %IF perm = 0 lrl %r1,STATS.6759 ahi %r1,1 strl %r1,STATS.6759 1658 larl %r1,PERM.6798 lt %r1,0(%r1) je .L904 .L834: .LVL703: .L873: 1659 ->fail1 %IF atom1&error # 0; !first atom faulty lg %r0,8(%r9) lgfrl %r3,LINES.6753 lghi %r2,79 brasl %r14,OP.6946 .LVL728: j .L873 .LVL729: .L835: .L836: 1660 1661 %IF escape class # 0 %START; !enter the hard way after 1662 g = imp phrase; sstype = -1; ->a3 1663 %FINISH 1664 1665 g = initial(atom1); !pick up entry point 1666 %IF g = 0 %START; !invalid first atom 1667 g = initial(0); sstype = 0; ->a3; !declarator? 1668 %FINISH 1669 %IF g < 0 %START; !phrase imp 1670 g = g&255 1671 nmax = 1 1672 ar(1)_class = 0; ar(1)_link = 0; ar(1)_sub = imp phrase 1673 %FINISH 1674 1675 gg = gram(g); class = gg&255; sstype = gg>>12&3-1 1676 ->a1 1677 1678 act(194): ptype = type; papp = app; pformat = format; ->more 1679 act(196):k =g+1; ->a610 1680 act(188):k = ar(nmax)_sub+1 1681 a610: papp = glink(k) 1682 k = gram(k) 1683 ->more %IF k = 0; !%NAME 1684 ptype = k&7; pformat = k>>3 1685 act(183):k = type; gentype = k %IF gentype = 0 %OR k = real 1686 %IF pformat < 0 %START; !general type 1687 app = papp; format = pformat 1688 k = real %IF ptype = real %AND type = integer 1689 k = force %AND force = 0 %IF force # 0 1690 %FINISH 1691 ->fail2 %UNLESS papp = app %AND (ptype = k %OR ptype = 0) 1692 ->more %IF pformat=format %OR pformat = 0 %OR format = 0 1693 ->fail2 1694 act(197):arp == ar(nmin) 1695 k = arp_sub 1696 ->fail3 %UNLESS block form = k&15 1697 arp_sub = k>>4 1698 1699 type = block type 1700 ptype = block type; pformat = block fm; papp = app 1701 pformat = -1 %IF ptype # record 1702 ->more 1703 act(195):->Fail2 %if Type # 0 %and Type # Integer %and %C 1704 Type # Real 1705 arp == ar(nmin) 1706 k = arp_sub 1707 arp_sub = k>>2 1708 k = k&3 1709 !1 = check integer 1710 !2 = check real 1711 !3 = check real + int 1712 ->more %IF k = 0; !0 = no action 1713 %IF k = 1 %START 1714 force = integer 1715 ->more %IF type = integer %OR type = 0 1716 ->fail2 1717 %FINISH 1718 ->fail2 %UNLESS ptype = real %or ptype = 0 {or added?} 1719 force = integer %IF k = 3 1720 ->more 1721 act(198):!%OTHER 1722 k = gg>>8&15 1723 %IF k = 0 %START; !restore atom 1724 atom1 = last1 1725 ->more 1726 %FINISH 1727 %IF k = 1 %START; !test string 1728 ->fail2 %UNLESS type = stringv 1729 ->more 1730 %FINISH 1731 %if k = 2 %start {fault record comparisons} 1732 ->fail2 %if type = record 1733 ->more 1734 %finish 1735 %if k = 3 %start; !check OWN variable coming 1736 code atom(0) 1737 ->A7 %if atom flags&own bit = 0 1738 ->more 1739 %finish 1740 for warn = pos1 %IF x <= local; !%FORTEST 1741 ->more 1742 paction(1):%IF type = record %THEN g = phrase(242) %ELSE pformat = -1 1743 ->a3 1744 paction(2):ptype = real; pformat = -1; ->a3 1745 paction(3):ptype = stringv; pformat = -1; ->a3 1746 paction(4):ptype = integer; pformat = -1; ->a3 1747 paction(5):->a3 %if ptype = integer 1748 g = phrase(212) %AND pformat=-1 %IF ptype = real 1749 g = phrase(213) %IF ptype = stringv 1750 ->a3 1751 paction(6):ptype = gram(ar(nmax)_sub+1)&7; pformat = -1; ->a3 1752 paction(7):ptype=real %IF ptype = integer; pformat = -1; ->a3 1753 1754 a1: last1 = class; atom1 = 0; s = subatom 1755 strl %r1,LAST1.6775 1756 a2: %IF gg&trans bit = 0 %START; !insert into analysis record larl %r1,ATOM1.6744 mvhi 0(%r1),0 1757 z == node lrl %r10,SUBATOM.6746 .LVL730: .L837: lrl %r2,GG.6782 tmll %r2,1 je .L905 .L838: .LVL731: aghik %r3,%r15,454 .LVL747: j .L841 .LVL748: .L908: .LBB688: .LBB649: .LBB631: .LBB632: brasl %r14,_imp_newline@PLT .LVL749: j .L845 .LVL750: .L909: .LBE632: .LBE631: .LBB633: .LBB634: lghi %r2,123 brasl %r14,_imp_printsymbol@PLT .LVL751: .LBE634: .LBE633: aghik %r3,%r15,454 .LVL811: j .L891 .LVL812: .L913: 1758 %CYCLE; !insert cell in order 1759 k = z lh %r1,454(%r15) .LVL733: lgfr %r1,%r3 .LVL736: aghi %r1,814 .LVL737: sllg %r1,%r1,4 .LVL738: lh %r1,8(%r1,%r4) .LVL739: ahi %r2,-4096 1760 %EXIT %IF gg&order bits = 0 %OR k = 0 1761 gg = gg-order bit; z == ar(k)_link cije %r1,0,.L839 lr %r5,%r2 cijlh %r1,0,.L840 1762 %REPEAT lg %r4,8(%r9) ahi %r2,-4096 .LVL734: .L840: ahik %r3,%r1,-1 .LDL38: .LVL735: lgfr %r3,%r3 .LVL740: sllg %r3,%r3,4 .LVL741: lay %r3,13032(%r3,%r4) .LDL39: .LDL40: strl %r5,GG.6782 1763 gg = map gg %IF map gg # 0 %AND gg&255 = var larl %r1,MAPGG.6783 .LVL742: lt %r1,0(%r1) je .L841 larl %r1,MAPGG.6783 .LVL810: lt %r1,0(%r1) je .L898 1764 nmin = nmin-1; ->fail0 %IF nmin = nmax tmll %r5,1 jne .L841 .L891: lrl %r1,NMIN.6786 ahik %r2,%r1,-1 strl %r2,NMIN.6786 1765 z = nmin strl %r1,GG.6782 .L841: larl %r4,NMAX.6787 c %r2,0(%r4) je .L842 .L843: sth %r2,0(%r3) .LVL743: lgfr %r1,%r1 sllg %r1,%r1,4 .LVL744: ag %r1,8(%r9) 1766 arp == ar(nmin) 1767 arp_sub = s; arp_class = (gg&255)!mark sthy %r10,12998(%r1) .LVL745: 1768 arp_link = k lrl %r2,GG.6782 rosbg %r6,%r2,56,63,0 sthy %r6,12996(%r1) lay %r1,13000(%r1) mvhhi 0(%r1),0 j .L838 .LVL746: .L898: 1769 %FINISH 1770 mark = 0; map gg = 0 1771 larl %r1,MAPGG.6783 mvhi 0(%r1),0 j .L833 .LVL732: .L905: 1772 more: g = glink(g); !chain down the grammar 1773 lgfrl %r1,G.6781 sllg %r1,%r1,1 larl %r2,GLINK.6837 lh %r1,0(%r1,%r2) strl %r1,G.6781 lhi %r6,0 1774 paction(0): 1775 a3: gg = gram(g); class = gg&255 1776 trace analysis %IF diag&1 # 0 larl %r7,GRAM.6836 j .L844 .LVL702: .L832: lgfrl %r1,G.6781 sllg %r1,%r1,1 lh %r1,0(%r1,%r7) strl %r1,GG.6782 1777 ->a5 %IF class = 0; !end of phrase llcr %r1,%r1 strl %r1,CLASS.6742 .LBB689: .LBB650: larl %r1,CLASS.6742 lt %r11,0(%r1) je .L849 .L850: 1778 1779 %IF class < actions %START; !not a phrase or an action lhi %r1,179 crjh %r11,%r1,.L851 1780 class = atomic(class) %IF class >= figurative lhi %r1,129 crjle %r11,%r1,.L852 1781 ->a2 %IF class >= manifest lrl %r2,CLASS.6742 cijh %r2,119,.L837 .L853: lg %r2,8(%r9) ahik %r1,%r11,-130 lgfr %r1,%r1 llc %r1,38852(%r1,%r2) strl %r1,CLASS.6742 j .L852 .L906: 1782 code atom(class) %IF atom1 = 0 larl %r1,ATOM1.6744 lt %r1,0(%r1) je .L906 .L854: 1783 %IF escape class # 0 %START; !escape to new grammar larl %r1,ESCAPECLASS.6770 lt %r1,0(%r1) jne .L907 .L855: aghik %r0,%r15,472 lgfr %r2,%r2 brasl %r14,CODEATOM.7304 .LVL768: j .L854 .L907: 1784 class = escape class; escape class = 0 strl %r1,CLASS.6742 1785 g = g+escape larl %r1,ESCAPECLASS.6770 mvhi 0(%r1),0 lrl %r1,G.6781 ahi %r1,4096 strl %r1,G.6781 .LDL43: 1786 1787 !note that following an escape the next item is 1788 !forced to be transparent! 1789 1790 esc: gg = 0 1791 arp == ar(nmax+1) larl %r1,GG.6782 mvhi 0(%r1),0 lg %r2,8(%r9) .LVL769: 1792 arp_papp = papp; arp_x = x; ->a4 lgfrl %r1,NMAX.6787 .LVL770: sllg %r1,%r1,4 .LVL771: lhrl %r3,PAPP.6778+2 sthy %r3,13036(%r1,%r2) 1793 %FINISH lhrl %r3,X.6743+2 sthy %r3,13040(%r1,%r2) .LVL772: .L856: 1794 1795 ->a1 %IF class = atom1 %OR class = atom2 lrl %r2,CLASS.6742 lrl %r1,ATOM1.6744 crje %r2,%r1,.L835 1796 lrl %r1,ATOM2.6745 crje %r2,%r1,.L835 .L857: .L858: 1797 a7: ->fail1 %IF gg >= 0; !no alternative 1798 g = g+1 larl %r1,GG.6782 lt %r1,0(%r1) jhe .L873 .L859: lrl %r1,G.6781 ahi %r1,1 strl %r1,G.6781 .L844: 1799 ->a3 1800 %FINISH 1801 1802 %IF class >= phrasal %START; !a phrase lhi %r1,199 crjh %r11,%r1,.L856 .L861: .LVL783: .LDL44: 1803 a4: nmax = nmax+1; ->fail0 %IF nmax = nmin 1804 arp == ar(nmax) lrl %r1,NMAX.6787 ahik %r2,%r1,1 strl %r2,NMAX.6787 lg %r3,8(%r9) .LVL773: lgfr %r1,%r1 .LVL774: sllg %r1,%r1,4 .LVL775: agrk %r2,%r3,%r1 .LVL776: 1805 arp_ptype = ptype larl %r3,NMIN.6786 c %r2,0(%r3) je .L842 .L862: lhrl %r4,PTYPE.6777+2 sthy %r4,13034(%r2) 1806 arp_pos = pos1 lhrl %r4,POS1.6809+2 sthy %r4,13042(%r1,%r3) 1807 arp_pformat = pformat lhrl %r4,PFORMAT.6779+2 sthy %r4,13038(%r1,%r3) 1808 arp_link = gentype lhrl %r1,GENTYPE.6776+2 sthy %r1,13032(%r2) 1809 arp_class = node lh %r1,454(%r15) sthy %r1,13028(%r2) 1810 arp_sub = g lhrl %r1,G.6781+2 sthy %r1,13030(%r2) 1811 node = 0 mvhhi 454(%r15),0 1812 g = phrase(class) lrl %r1,CLASS.6742 ahi %r1,-200 lgfr %r1,%r1 sllg %r1,%r1,1 larl %r2,PHRASE.6833 lh %r1,0(%r1,%r2) strl %r1,G.6781 1813 ptype = force %AND force = 0 %IF force # 0 larl %r1,FORCE.6780 lt %r1,0(%r1) je .L863 1814 gentype = 0 strl %r1,PTYPE.6777 larl %r1,GENTYPE.6776 mvhi 0(%r1),0 .LVL777: 1815 ->paction(gg>>8&15) larl %r1,FORCE.6780 mvhi 0(%r1),0 .L863: lrl %r8,GG.6782 risbgn %r8,%r8,64-4,128+63,52+4 .LVL778: .L864: 1816 %FINISH 1817 1818 ->act(class); !only actions left 1819 1820 a5: !reverse links 1821 1822 s = 0 lr %r10,%r11 j .L867 .LVL798: .L869: 1823 %WHILE node # 0 %CYCLE 1824 z == ar(node)_link lh %r2,454(%r15) lr %r1,%r2 lhr %r2,%r2 cije %r2,0,.L893 .LVL785: .L868: lhr %r10,%r1 .LVL786: lghr %r1,%r1 sllg %r1,%r1,4 ag %r1,8(%r9) lgr %r3,%r1 lr %r11,%r10 lhr %r2,%r2 .LVL789: cijlh %r2,0,.L868 mvhhi 454(%r15),0 .LVL790: .L867: 1825 k = z; z = s; s = node; node = k lhy %r2,13016(%r1) lr %r1,%r2 .LVL787: 1826 %REPEAT sthy %r11,13016(%r3) .LVL788: .LDL45: .LDL46: 1827 ss = s strl %r10,SS.6793 .LDL47: 1828 1829 a6: %IF nmax # 0 %START 1830 k = gentype; !type of phrase larl %r1,NMAX.6787 lt %r1,0(%r1) je .L869 .LVL791: 1831 arp == ar(nmax); nmax = nmax-1 ahik %r2,%r1,-1 lg %r3,8(%r9) .LVL792: 1832 node = arp_class strl %r2,NMAX.6787 lgfr %r1,%r1 sllg %r1,%r1,4 agr %r1,%r3 lhy %r4,13012(%r1) sth %r4,454(%r15) 1833 gentype = arp_link lhy %r4,13016(%r1) strl %r4,GENTYPE.6776 .LVL793: 1834 ptype = arp_ptype lhy %r4,13018(%r1) strl %r4,PTYPE.6777 1835 pformat = arp_pformat lgfr %r2,%r2 .LVL794: sllg %r2,%r2,4 .LVL795: lhy %r4,13038(%r2,%r3) strl %r4,PFORMAT.6779 1836 g = arp_sub lhy %r1,13014(%r1) 1837 %IF g&escape # 0 %START 1838 g = g-escape ahi %r1,-4096 strl %r1,G.6781 1839 papp = arp_papp lhy %r1,13036(%r2,%r3) strl %r1,PAPP.6778 .LVL796: 1840 mark = 255 lhi %r6,255 1841 subatom = s strl %r10,SUBATOM.6746 1842 ->a3 j .L844 .LVL797: .L893: 1843 %FINISH 1844 gentype = k %IF gentype = 0 %OR k = real 1845 type = gen type 1846 1847 k = gg; !exit-point code 1848 %CYCLE 1849 gg = gram(g) 1850 ->a2 %IF k = 0 1851 ->fail1 %IF gg >= 0; !no alternative phrase 1852 k = k-order bit 1853 g = g+1; !sideways step 1854 %REPEAT 1855 1856 %FINISH 1857 1858 Fault(4) %IF copy # 0 larl %r1,COPY.6804 lt %r1,0(%r1) jne .L911 .L870: 1859 fault(13) %IF order = 0 larl %r1,ORDER.6805 lt %r1,0(%r1) je .L912 .L871: .LDL48: lgr %r0,%r9 lghi %r2,4 brasl %r14,FAULT.6982 .LVL799: j .L870 .L912: 1860 fault(-4) %IF for warn # 0 lgr %r0,%r9 lghi %r2,13 brasl %r14,FAULT.6982 .LVL800: j .L871 .LVL801: .L865: 1861 pos1 = 0 larl %r1,POS1.6809 mvhi 0(%r1),0 1862 fault rate = fault rate-1 lrl %r1,FAULTRATE.6752 ahi %r1,-1 strl %r1,FAULTRATE.6752 .L819: 1863 %RETURN 1864 1865 act(193):gg = 0 %AND ->a5 %UNLESS sym = '=' %or sym = '<'; !cdummy 1866 act(181):atom1 = amap(decl&15); !dummy 1867 ->more 1868 1869 act(182):class = escdec; g = glink(g)!escape 1870 decl = 0; otype = 0; ->esc; !decl 1871 1872 act(199): !compile 1873 1874 s = 0 1875 %WHILE node # 0 %CYCLE 1876 z == ar(node)_link 1877 k = z; z = s; s = node; node = k 1878 %repeat 1879 ss = s 1880 1881 code atom(28) %IF quote # 0; !expend 1882 compile; ->more %IF atom1&error = 0 1883 ->fail1 1884 1885 act(184):->fail4 %UNLESS type = integer 1886 %IF subatom < 0 %THEN lit = tag(-subatom)_format %C 1887 %ELSE lit = lit pool(subatom) 1888 ->fail4 %IF lit # 0 1889 ->more 1890 act(185): !apply parameters 1891 s = 0 1892 %WHILE node # 0 %CYCLE 1893 z == ar(node)_link 1894 k = z; z = s; s = node; node = k 1895 %REPEAT 1896 ss = s 1897 1898 atom1 = ar(s)_class; atom2 = 0 1899 atom1 = var %IF atom1 = 97 %OR atom1 = 98 1900 arp == ar(nmax) 1901 x = arp_x 1902 pos1 = arp_pos 1903 pos2 = 0 1904 app = 0 1905 format = tag(x)_format 1906 flags = tag(x)_flags 1907 type = flags>>4&7 1908 protection = flags&prot 1909 protection = 0 %IF flags&aname # 0 1910 1911 %IF flags&subname # 0 %AND format # 0 %START 1912 ->fail1 %if format selected = 0 1913 %FINISH 1914 1915 ->a6 1916 1917 act(187):protection = prot; ->more; !%SETPROT 1918 act(186):->More %if protection&prot = 0 1919 prot err = nmin 1920 ->A7 1921 act(191):k = protection; !%GUARD 1922 code atom(0) 1923 protection = k %IF atom flags&aname = 0 1924 ->more 1925 1926 act(192):->fail1 %IF parsed machine code=0 1927 ->more 1928 1929 act(189):k = gapp; !%GAPP 1930 delete names(1) 1931 tmax = tbase; tbase = gram (gmin); !restore tmax 1932 local= tbase 1933 gmin = gmin+1 1934 1935 x = ar(ar(nmax)_class)_sub 1936 tag(x)_app = k; !update app 1937 ->more 1938 1939 act(190):gmin = gmin-1; !%LOCAL 1940 abandon(2) %IF gmin <= gmax 1941 gram (gmin) = tbase; tbase = tmax 1942 local = tbase 1943 ->more 1944 1945 ! errors 1946 1947 fail4:k = error+10; ->failed; !*size 1948 fail3:k = error+7; ->failed; !*context 1949 fail2:k = error+5; pos2 = 0; ->failed; !*type 1950 fail0:k = error+3; ->failed; !*too complex 1951 fail1:k = atom1; pos2 = 0 1952 1953 failed: larl %r1,POS2.6810 mvhi 0(%r1),0 .LVL704: .L842: .LBB651: 1954 %IF diag&32 # 0 %START 1955 printstring("Atom1 ="); write(atom1, 3) larl %r1,.LC16 lay %r2,5616(%r15) mvc 0(256,%r2),0(%r1) mvc 496(256,%r15),0(%r2) mvc 0(256,%r2),496(%r15) .LBE651: .LBB652: .LBB653: mvc 192(256,%r15),0(%r2) aghik %r11,%r15,192 lgr %r2,%r11 brasl %r14,_imp_printstring@PLT .LVL705: .LBE653: .LBE652: 1956 printstring(" Atom2 ="); write(atom2, 3) lghi %r3,3 lgfrl %r2,ATOM1.6744 brasl %r14,_imp_writeint@PLT .LVL706: .LBB654: larl %r1,.LC17 lay %r2,4592(%r15) mvc 0(256,%r2),0(%r1) mvc 752(256,%r15),0(%r2) mvc 0(256,%r2),752(%r15) .LBE654: .LBB655: .LBB656: mvc 192(256,%r15),0(%r2) lgr %r2,%r11 brasl %r14,_imp_printstring@PLT .LVL707: .LBE656: .LBE655: 1957 printstring(" subatom ="); write(subatom, 3); newline lghi %r3,3 lgfrl %r2,ATOM2.6745 brasl %r14,_imp_writeint@PLT .LVL708: .LBB657: larl %r1,.LC18 lay %r2,4336(%r15) mvc 0(256,%r2),0(%r1) mvc 1008(256,%r15),0(%r2) mvc 0(256,%r2),1008(%r15) .LBE657: .LBB658: .LBB659: mvc 192(256,%r15),0(%r2) lgr %r2,%r11 brasl %r14,_imp_printstring@PLT .LVL709: .LBE659: .LBE658: 1958 printstring("Type ="); write(type, 1) lghi %r3,3 lgfrl %r2,SUBATOM.6746 brasl %r14,_imp_writeint@PLT .LVL710: .LBB660: .LBB661: brasl %r14,_imp_newline@PLT .LVL711: .LBE661: .LBE660: .LBB662: larl %r1,.LC19 mvc 4080(256,%r15),0(%r1) mvc 1264(256,%r15),4080(%r15) mvc 4080(256,%r15),1264(%r15) .LBE662: .LBB663: .LBB664: mvc 192(256,%r15),4080(%r15) lgr %r2,%r11 brasl %r14,_imp_printstring@PLT .LVL712: .LBE664: .LBE663: 1959 printstring(" Ptype ="); write(ptype, 1); newline lghi %r3,1 lgfrl %r2,TYPE.6747 brasl %r14,_imp_writeint@PLT .LVL713: .LBB665: larl %r1,.LC20 mvc 3824(256,%r15),0(%r1) mvc 1520(256,%r15),3824(%r15) mvc 3824(256,%r15),1520(%r15) .LBE665: .LBB666: .LBB667: mvc 192(256,%r15),3824(%r15) lgr %r2,%r11 brasl %r14,_imp_printstring@PLT .LVL714: .LBE667: .LBE666: 1960 printstring("App ="); write(app, 1) lghi %r3,1 lgfrl %r2,PTYPE.6777 brasl %r14,_imp_writeint@PLT .LVL715: .LBB668: .LBB669: brasl %r14,_imp_newline@PLT .LVL716: .LBE669: .LBE668: .LBB670: larl %r1,.LC21 mvc 3568(256,%r15),0(%r1) mvc 1776(256,%r15),3568(%r15) mvc 3568(256,%r15),1776(%r15) .LBE670: .LBB671: .LBB672: mvc 192(256,%r15),3568(%r15) lgr %r2,%r11 brasl %r14,_imp_printstring@PLT .LVL717: .LBE672: .LBE671: 1961 printstring(" Papp ="); write(papp, 1); newline lghi %r3,1 lgfrl %r2,APP.6748 brasl %r14,_imp_writeint@PLT .LVL718: .LBB673: larl %r1,.LC22 mvc 3312(256,%r15),0(%r1) mvc 2032(256,%r15),3312(%r15) mvc 3312(256,%r15),2032(%r15) .LBE673: .LBB674: .LBB675: mvc 192(256,%r15),3312(%r15) lgr %r2,%r11 brasl %r14,_imp_printstring@PLT .LVL719: .LBE675: .LBE674: 1962 printstring("Format ="); write(format, 1) lghi %r3,1 lgfrl %r2,PAPP.6778 brasl %r14,_imp_writeint@PLT .LVL720: .LBB676: .LBB677: brasl %r14,_imp_newline@PLT .LVL721: .LBE677: .LBE676: .LBB678: larl %r1,.LC23 mvc 3056(256,%r15),0(%r1) mvc 2288(256,%r15),3056(%r15) mvc 3056(256,%r15),2288(%r15) .LBE678: .LBB679: .LBB680: mvc 192(256,%r15),3056(%r15) lgr %r2,%r11 brasl %r14,_imp_printstring@PLT .LVL722: .LBE680: .LBE679: 1963 printstring(" Pformat ="); write(pformat, 1); newline lghi %r3,1 lgfrl %r2,FORMAT.6749 brasl %r14,_imp_writeint@PLT .LVL723: .LBB681: larl %r1,.LC24 mvc 2800(256,%r15),0(%r1) mvc 2544(256,%r15),2800(%r15) mvc 2800(256,%r15),2544(%r15) .LBE681: .LBB682: .LBB683: mvc 192(256,%r15),2800(%r15) lgr %r2,%r11 brasl %r14,_imp_printstring@PLT .LVL724: .LBE683: .LBE682: 1964 !IMP80 BUG??? %SIGNAL 13,15 lghi %r3,1 lgfrl %r2,PFORMAT.6779 brasl %r14,_imp_writeint@PLT .LVL725: .LBB684: .LBB685: brasl %r14,_imp_newline@PLT .LVL726: .LBE685: .LBE684: .LBB686: .LBB687: lghi %r2,0 brasl %r14,exit@PLT .LVL727: .L904: .LBE687: .LBE686: 1965 %STOP 1966 %FINISH 1967 1968 quote = 0 %AND readsym %WHILE sym # nl %AND sym # ';' 1969 %IF k&error # 0 %START 1970 fault(k&255) 1971 %FINISH %ELSE %START 1972 %IF prot err = nmin %THEN fault(14) %ELSE fault(0) 1973 %FINISH 1974 gg = 0; ss = 0; symtype = 0 1975 %END; !of analyse 1976 1977 %ROUTINE compile stmg %r6,%r15,48(%r15) lay %r15,-5248(%r15) stg %r0,192(%r15) ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 lay %r2,5240(%r15) mvc 0(8,%r2),40(%r1) lay %r1,5408(%r15) stg %r1,808(%r15) stg %r0,768(%r15) 1978 ahik %r1,%r11,-180 clijh %r1,20,.L865 .L866: lgrl %r1,_imp_current_file@GOTENT ltg %r3,0(%r1) je .L874 la %r2,4080(%r15) brasl %r14,_imp_c2istr@PLT .LVL802: .L875: lgrl %r1,_imp_current_line@GOTENT lt %r3,0(%r1) ltr %r3,%r3 lhi %r1,1978 locrne %r1,%r3 lr %r3,%r1 mvc 192(256,%r15),4080(%r15) lgfr %r6,%r11 mvghi 184(%r15),1818 larl %r1,.LC76 stg %r1,176(%r15) stg %r6,168(%r15) larl %r1,.LC86 stg %r1,160(%r15) lghi %r5,3 lghi %r4,6 lgfr %r3,%r3 la %r2,192(%r15) brasl %r14,_signal_eventf@PLT .LVL803: j .L866 .L874: .LBB690: larl %r1,.LC15 lay %r2,5616(%r15) mvc 0(256,%r2),0(%r1) mvc 3056(256,%r15),0(%r2) .LBE690: mvc 4080(256,%r15),3056(%r15) j .L875 .LVL804: .L878: 1979 %CONSTINTEGER then = 4, else = 8, loop = 16 ahik %r1,%r11,-180 lgfr %r1,%r1 sllg %r1,%r1,3 larl %r2,ACT.7226 lg %r1,0(%r1,%r2) j .L877 .LVL784: .L849: 1980 1981 %SWITCH c(0:actions), litop(1:12) lgrl %r1,_imp_current_file@GOTENT ltg %r3,0(%r1) je .L914 lay %r2,4336(%r15) brasl %r14,_imp_c2istr@PLT .LVL805: .L881: lgrl %r1,_imp_current_line@GOTENT lt %r3,0(%r1) ltr %r3,%r3 lhi %r1,1981 locrne %r1,%r3 lr %r3,%r1 lay %r1,4336(%r15) mvc 192(256,%r15),0(%r1) lgfr %r6,%r11 mvghi 184(%r15),1818 larl %r1,.LC76 stg %r1,176(%r15) stg %r6,168(%r15) larl %r1,.LC87 stg %r1,160(%r15) lghi %r5,2 lghi %r4,8 lgfr %r3,%r3 la %r2,192(%r15) brasl %r14,_signal_eventf@PLT .LVL806: j .L864 .L914: .LBB691: larl %r1,.LC15 lay %r2,5616(%r15) mvc 0(256,%r2),0(%r1) mvc 3312(256,%r15),0(%r2) .LBE691: lay %r1,4336(%r15) mvc 0(256,%r1),3312(%r15) j .L881 .L884: .LBB692: 1982 1983 %CONSTBYTEINTEGERARRAY operator(1:14) = %C mviy 5210(%r15),91 mviy 5211(%r15),93 mviy 5212(%r15),88 mviy 5213(%r15),47 mviy 5214(%r15),38 mviy 5215(%r15),33 mviy 5216(%r15),37 mviy 5217(%r15),43 mviy 5218(%r15),45 mviy 5219(%r15),42 mviy 5220(%r15),81 mviy 5221(%r15),120 mviy 5222(%r15),46 mviy 5223(%r15),118 1984 '[', ']', 'X', '/', '&', '!', '%', '+', clijle %r8,15,.L883 lgrl %r1,_imp_current_file@GOTENT ltg %r3,0(%r1) je .L884 lay %r2,4592(%r15) brasl %r14,_imp_c2istr@PLT .LVL779: .L885: lgrl %r1,_imp_current_line@GOTENT lt %r3,0(%r1) ltr %r3,%r3 lhi %r1,1984 locrne %r1,%r3 lr %r3,%r1 lay %r1,4592(%r15) mvc 192(256,%r15),0(%r1) lgfr %r6,%r8 mvghi 184(%r15),1815 larl %r1,.LC76 stg %r1,176(%r15) stg %r6,168(%r15) larl %r1,.LC88 stg %r1,160(%r15) lghi %r5,3 lghi %r4,6 lgfr %r3,%r3 la %r2,192(%r15) brasl %r14,_signal_eventf@PLT .LVL780: .L883: larl %r1,.LC15 lay %r2,5616(%r15) mvc 0(256,%r2),0(%r1) mvc 3568(256,%r15),0(%r2) .LBE692: lay %r1,4592(%r15) mvc 0(256,%r1),3568(%r15) j .L885 .L887: 1985 '-', '*', 'Q', 'x', '.', 'v' lgfr %r1,%r8 sllg %r1,%r1,3 larl %r2,PACTION.7231 lg %r1,0(%r1,%r2) .LVL781: .L877: br %r1 .LVL782: .L851: 1986 1987 %CONSTBYTEINTEGERARRAY cc(0 : 7) = '#','=',')','<','(','>', 'k','t' mviy 5202(%r15),35 mviy 5203(%r15),61 mviy 5204(%r15),41 mviy 5205(%r15),60 mviy 5206(%r15),40 mviy 5207(%r15),62 mviy 5208(%r15),107 mviy 5209(%r15),116 lgrl %r1,_imp_current_file@GOTENT ltg %r3,0(%r1) je .L888 lay %r2,5616(%r15) brasl %r14,_imp_c2istr@PLT .LVL807: .L889: lgrl %r1,_imp_current_line@GOTENT lt %r3,0(%r1) ltr %r3,%r3 lhi %r1,1987 locrne %r1,%r3 lr %r3,%r1 lay %r1,5616(%r15) mvc 192(256,%r15),0(%r1) lgfr %r6,%r8 mvghi 184(%r15),1815 larl %r1,.LC76 stg %r1,176(%r15) stg %r6,168(%r15) larl %r1,.LC89 stg %r1,160(%r15) lghi %r5,2 lghi %r4,8 lgfr %r3,%r3 la %r2,192(%r15) brasl %r14,_signal_eventf@PLT .LVL808: j .L819 .L888: .LBB693: larl %r1,.LC15 lay %r2,5616(%r15) mvc 0(256,%r2),0(%r1) mvc 3824(256,%r15),0(%r2) .LBE693: mvc 0(256,%r2),3824(%r15) j .L889 .LVL809: .L839: 1988 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 lay %r2,6128(%r15) clc 0(8,%r2),40(%r1) jne .L913 ldy %f8,6136(%r15) ldy %f10,6144(%r15) lg %r4,6264(%r15) lmg %r6,%r15,6200(%r15) br %r4 .L911: brasl %r14,__stack_chk_fail@PLT .LVL813: .LFE198: .section .rodata .align 2 .LC8: .byte 5 .string "Begin" .zero 249 .align 2 .LC9: .byte 10 .string "Procedure " .zero 244 .align 4 .LC29: .long 89 .long 1764 .long 247 .long 89 .long 89 .long 89 .long 89 .long -100 .long -101 .long -102 .long -103 .long 89 .long 214 .long 89 .long 229 .long 89 .align 2 .LC10: .byte 3 .string "End" .zero 251 .text .align 8 COMPILEBLOCK.6956: .LFB191: 1989 %CONSTBYTEINTEGERARRAY anyform(0:15) = 1,0,1,1(4),1,0,1,1,0,1,1,1,1 mviy 5224(%r15),1 mviy 5225(%r15),0 mviy 5226(%r15),1 mviy 5227(%r15),1 mviy 5228(%r15),1 mviy 5229(%r15),1 mviy 5230(%r15),1 mviy 5231(%r15),1 mviy 5232(%r15),0 mviy 5233(%r15),1 mviy 5234(%r15),1 mviy 5235(%r15),0 mviy 5236(%r15),1 mviy 5237(%r15),1 mviy 5238(%r15),1 mviy 5239(%r15),1 1990 1991 %CONSTSHORTINTEGERARRAY decmap(0:15) = %C larl %r1,.LC13 mvc 818(32,%r15),0(%r1) 1992 1, 2, 1993 x'100B', x'100D', x'140C', x'140E', 1994 3, 4, 1995 x'1007', x'1008', x'1009', x'100A', 1996 6, 0, 0, 0 1997 %OWNBYTEINTEGERARRAY cnest(0:15) 1998 %INTEGER lmode, clab, dupid 1999 %INTEGER resln 2000 %OWNINTEGER last def = 0 2001 %OWNINTEGER lb, ub 2002 %INTEGER cp, ord 2003 %INTEGER next, link, j, k, n, done 2004 %INTEGER class 2005 %INTEGER lit2, defs, decs, cident 2006 %INTEGER pending; %OWNINTEGERARRAY pstack(1:40) 2007 %OWNSTRING(8) name = "" 2008 %OWNINTEGER count = 0 2009 2010 %ROUTINE def lab(%INTEGER l) .LVL11: stmg %r11,%r15,88(%r15) lay %r15,-160(%r15) lgr %r11,%r0 2011 op(':', l) lg %r1,0(%r11) lg %r0,8(%r1) lgr %r3,%r2 lghi %r2,58 .LVL12: brasl %r14,OP.6946 .LVL13: 2012 access = 1 lg %r1,0(%r11) mvhi 36(%r1),1 2013 %END 2014 lg %r4,272(%r15) lmg %r11,%r15,248(%r15) br %r4 .LFE210: .align 8 POPLIT.7975: .LFB219: 2015 %ROUTINE get next stmg %r10,%r15,80(%r15) lay %r15,-1704(%r15) lgr %r4,%r0 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 mvc 1696(8,%r15),40(%r1) lrl %r3,X.6743 lhi %r2,0 lhi %r11,0 lhi %r0,1 .L341: 2016 %RECORD(arfm)%NAME p 2017 gn: %IF next = 0 %START; !end of phrase 2018 class = 0 %AND %RETURN %IF link = 0; !end of statement lt %r1,36(%r4) jne .L342 lt %r1,32(%r4) je .L359 .L343: .LVL305: 2019 p == ar(link) lg %r2,0(%r4) lgfr %r1,%r1 .LVL306: sllg %r1,%r1,4 ag %r1,8(%r2) mvhi 28(%r4),0 2020 next = p_link lhy %r2,13016(%r1) st %r2,36(%r4) .LVL307: j .L340 .L361: strl %r3,X.6743 j .L344 .LVL310: .L360: strl %r2,X.6743 j .L347 .LVL311: .L351: 2021 link = p_sub lhy %r1,13014(%r1) st %r1,32(%r4) .L342: 2022 %FINISH 2023 %CYCLE 2024 p == ar(next) l %r1,36(%r4) ahik %r3,%r1,-1 lg %r2,0(%r4) lg %r5,8(%r2) .LVL308: lgfr %r1,%r1 sllg %r1,%r1,4 agr %r1,%r5 ahik %r3,%r2,-1 lg %r1,0(%r4) lg %r5,8(%r1) .LVL312: lgfr %r1,%r2 sllg %r1,%r1,4 agr %r1,%r5 2025 x = p_sub lhy %r2,13014(%r1) lhy %r2,13014(%r1) 2026 class = p_class lhy %r1,13012(%r1) st %r1,28(%r4) lhy %r1,13012(%r1) st %r1,28(%r4) 2027 %EXIT %IF class < actions; !an atom lhi %r10,179 crjle %r1,%r10,.L360 lhi %r10,179 crjle %r1,%r10,.L362 .L350: 2028 %IF x = 0 %START; !null phrase cijlh %r2,0,.L348 .LVL309: .L349: cije %r2,0,.L349 .LVL313: .L348: lgfr %r3,%r3 .LVL314: sllg %r1,%r3,4 2029 next = p_link; ->gn lgfr %r3,%r3 aghik %r1,%r3,814 sllg %r1,%r1,4 lh %r1,8(%r1,%r5) st %r1,36(%r4) lr %r3,%r11 lr %r2,%r0 2030 %FINISH j .L341 .L359: llcr %r2,%r2 cijlh %r2,0,.L361 .L344: 2031 %IF p_link # 0 %START; !follow a phrase la %r3,0(%r1,%r5) .LVL315: lay %r1,13032(%r1,%r5) icm %r1,3,0(%r1) je .L351 2032 p_sub = link; link = next lh %r1,34(%r4) sthy %r1,13030(%r3) 2033 %FINISH l %r1,36(%r4) st %r1,32(%r4) j .L351 .LVL316: .L362: strl %r2,X.6743 .LVL317: .L347: 2034 next = x st %r2,36(%r4) 2035 %REPEAT 2036 next = p_link lgfr %r3,%r3 aghik %r1,%r3,814 sllg %r1,%r1,4 lh %r1,8(%r1,%r5) st %r1,36(%r4) 2037 %IF diag&2 # 0 %START 2038 spaces(8-length(name)) %UNLESS name = "" 2039 name = text(class) 2040 write(x, 2) aghik %r3,%r15,416 larl %r2,NAME.7872 brasl %r14,_imp_strcmp@PLT .LVL318: cijlh %r2,0,.L363 .L352: lghi %r3,2 lgfrl %r2,X.6743 brasl %r14,_imp_writeint@PLT .LVL320: .LBB394: .LBB395: brasl %r14,_imp_space@PLT .LVL321: mvc 1440(256,%r15),928(%r15) .LBE395: .LBE394: .LBB396: .LBB397: mvc 160(256,%r15),1440(%r15) aghik %r2,%r15,160 brasl %r14,_imp_printstring@PLT .LVL322: .LBE397: .LBE396: .LBB398: .LBB399: brasl %r14,_imp_space@PLT .LVL323: .LBE399: .LBE398: 2041 space lghi %r4,8 la %r3,672(%r15) larl %r2,NAME.7872 brasl %r14,_imp_strncpy@PLT .LVL319: 2042 printstring(name) 2043 space larl %r1,NAME.7872 .LVL325: llc %r1,0(%r1) .LVL326: lhi %r2,8 sr %r2,%r1 .LVL327: .LBB400: .LBB401: lgfr %r2,%r2 brasl %r14,_imp_spaces@PLT .LVL328: j .L352 .L353: .LBE401: .LBE400: 2044 count = count-1 strl %r1,COUNT.7873 .L345: .L354: .L340: 2045 %IF count <= 0 %START lrl %r1,COUNT.7873 ahi %r1,-1 jle .L353 2046 count = 5 larl %r1,COUNT.7873 mvhi 0(%r1),5 .LVL329: 2047 name = "" 2048 newline 2049 %FINISH lghi %r4,8 la %r3,1184(%r15) larl %r2,NAME.7872 brasl %r14,_imp_strncpy@PLT .LVL330: .LBB402: .LBB403: brasl %r14,_imp_newline@PLT .LVL331: j .L340 .L364: .LBE403: .LBE402: 2050 %FINISH 2051 %END 2052 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 clc 1696(8,%r15),40(%r1) jne .L364 lg %r4,1816(%r15) lmg %r10,%r15,1784(%r15) br %r4 .L363: .LVL324: brasl %r14,__stack_chk_fail@PLT .LVL332: .LFE211: .align 8 SETSUBS.7903: .LFB212: 2053 %ROUTINE set subs(%INTEGER n) .LVL333: lgr %r5,%r0 stmg %r14,%r15,112(%r15) lay %r15,-160(%r15) .LVL337: .LBB404: .LBB405: lghi %r2,0 brasl %r14,exit@PLT .LVL338: .L367: .L366: br %r14 .LBE405: .LBE404: .LFE212: .section .rodata.str1.2 .align 2 .LC81: .string "switch jump to undefined label FM(%d): at %s line %d" .section .rodata .align 2 .LC31: .byte 5 .string "fault" .zero 249 .align 2 .LC30: .byte 8 .string " ! " .zero 246 .text .align 8 FAULT.6982: .LFB192: 2054 2055 !update the app field in n array descriptors 2056 2057 %INTEGER p 2058 p = tmax lg %r1,0(%r5) l %r3,64(%r1) .LVL334: 2059 %WHILE n > 0 %CYCLE 2060 !IMP80 BUG??? %SIGNAL 15,15 %IF p < tbase cijle %r2,0,.L366 brct %r2,.L371 2061 %STOP %IF p < tbase c %r3,68(%r1) jl .L369 lg %r1,0(%r5) c %r3,68(%r1) jhe .L370 .L369: 2062 tag(p)_app = dimension lrl %r0,DIMENSION.6812 srk %r2,%r3,%r2 .LVL335: srk %r2,%r3,%r2 .L370: lg %r4,8(%r1) lgfr %r1,%r3 aghi %r1,13 sllg %r1,%r1,4 st %r0,4(%r1,%r4) 2063 p = p-1; n = n-1 ahi %r3,-1 .LVL336: .LDL19: 2064 %REPEAT 2065 %END j .L366 .L371: 2066 2067 %ROUTINE set bp stmg %r11,%r15,88(%r15) lay %r15,-160(%r15) lgr %r11,%r0 2068 2069 !define a constant bound pair from the last stacked constants 2070 2071 pending = pending-2 l %r1,24(%r11) ahik %r2,%r1,-2 st %r2,24(%r11) 2072 lb = pstack(pending+1); ub = pstack(pending+2) larl %r3,PSTACK.7871 lgfr %r2,%r2 sllg %r2,%r2,2 l %r2,0(%r2,%r3) strl %r2,LB.7855 2073 %IF ub-lb+1 < 0 %START ahi %r1,-1 lgfr %r1,%r1 sllg %r1,%r1,2 l %r1,0(%r1,%r3) strl %r1,UB.7856 sr %r1,%r2 ahi %r1,1 cijl %r1,0,.L438 .L435: 2074 pos1 = 0; next = link; fault(11) larl %r1,POS1.6809 mvhi 0(%r1),0 2075 ub = lb l %r1,32(%r11) st %r1,36(%r11) lrl %r1,LB.7855 strl %r1,UB.7856 j .L435 .LFE213: .align 8 DEFSLAB.7952: .LFB216: 2076 %FINISH lg %r0,0(%r11) lghi %r2,11 brasl %r14,FAULT.6982 .LVL390: 2077 set const(lb); set const(ub) lg %r1,0(%r11) lg %r0,8(%r1) lgfrl %r2,LB.7855 brasl %r14,SETCONST.6949 .LVL388: 2078 bp=bp+1 %AND buff(bp)='b' %UNLESS class = 146 lg %r1,0(%r11) lg %r0,8(%r1) lgfrl %r2,UB.7856 brasl %r14,SETCONST.6949 .LVL389: l %r1,28(%r11) chi %r1,146 je .L434 2079 %END lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2080 lg %r2,0(%r11) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),98 .L436: .L434: lg %r4,272(%r15) lmg %r11,%r15,248(%r15) br %r4 .L438: 2081 %ROUTINE compile end(%INTEGER type) 2082 2083 ! type = 0:eof, 1:eop, 2:end 2084 2085 %IF access # 0 %START lg %r1,768(%r15) lt %r2,36(%r1) jne .L596 .L599: 2086 open = 0 mvhi 32(%r1),0 2087 fault(19) %IF block form > proc; !can reach end chsi 48(%r1),7 jle .L599 2088 %FINISH lgr %r0,%r1 lghi %r2,19 brasl %r14,FAULT.6982 .LVL521: j .L599 .L792: 2089 2090 %WHILE dict(dmin) >= 0 %CYCLE; !finishes & repeats 2091 fault(17+dict(dmin)&1) lg %r3,768(%r15) lg %r4,8(%r3) l %r1,52(%r3) ahi %r1,-1 lgfr %r1,%r1 aghi %r1,13416 sllg %r1,%r1,1 lh %r2,4(%r1,%r4) lr %r1,%r2 cijl %r2,0,.L597 .L598: nilf %r1,1 ahik %r2,%r1,17 lgr %r0,%r3 lgfr %r2,%r2 brasl %r14,FAULT.6982 .LVL515: lg %r4,8(%r3) lgfr %r1,%r1 aghi %r1,13416 sllg %r1,%r1,1 lh %r2,4(%r1,%r4) lr %r1,%r2 cijhe %r2,0,.L598 .L597: 2092 dmin = dmin+1 lg %r3,768(%r15) l %r1,52(%r3) ahik %r2,%r1,1 st %r2,52(%r3) 2093 %REPEAT 2094 {delete names(0)} 2095 bp=bp+1 %AND buff(bp)=';' lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2096 bp=bp+1 %AND buff(bp)=';' %IF type = 1; !endofprogram lgfr %r5,%r1 lay %r4,104710(%r5,%r4) mvi 0(%r4),59 cije %r11,1,.L792 .L600: 2097 ahi %r1,2 strl %r1,BP.6830 2098 bflags = bflags!open; !show if it returns lg %r1,0(%r3) oc 0(2,%r1),34(%r3) lg %r1,8(%r3) lgfr %r2,%r2 lay %r1,104710(%r2,%r1) mvi 0(%r1),59 lg %r1,0(%r3) oc 0(2,%r1),34(%r3) 2099 2100 def lab(0) %IF block tag # 0 %AND level # 1; !for jump around lg %r1,768(%r15) lt %r2,28(%r1) je .L603 lg %r1,768(%r15) lt %r2,28(%r1) je .L601 2101 %IF type # 2 %START; !eop, eof l %r1,60(%r1) chi %r1,1 jne .L745 .L472: .L743: cije %r11,2,.L608 j .L601 .LVL516: .L791: .LBE543: .LBE542: l %r1,60(%r1) chi %r1,1 je .L601 .L745: cije %r11,2,.L605 .L601: 2102 fault(16) %IF level # type; !end missing aghik %r0,%r15,768 lghi %r2,0 brasl %r14,DEFLAB.7875 .LVL522: .L603: lg %r0,768(%r15) lgr %r1,%r0 c %r11,60(%r1) jne .L793 .L606: .L607: .L608: 2103 %FINISH %ELSE %START lghi %r2,16 brasl %r14,FAULT.6982 .LVL523: j .L608 .L605: 2104 %IF level = 0 %START lg %r0,768(%r15) lgr %r1,%r0 lt %r1,60(%r1) jne .L608 2105 fault(15); !spurious end lghi %r2,15 brasl %r14,FAULT.6982 .LVL524: j .L608 .LVL525: .L609: .LDL27: .LDL28: .LDL29: .LBE544: .LBE547: 2106 %FINISH 2107 %FINISH 2108 2109 end mark = 11; !******Mouses specific****** larl %r1,ENDMARK.6764 mvhi 0(%r1),11 j .L448 .L793: 2110 %END 2111 2112 %ROUTINE def(%INTEGER p) .LVL84: stmg %r6,%r15,48(%r15) lay %r15,-168(%r15) lgr %r9,%r2 lgr %r11,%r0 2113 2114 !dump a descriptor 2115 2116 %INTEGER t, f, type 2117 %RECORD(tagfm)%NAME v 2118 flush buffer %if bp # 0 larl %r1,BP.6830 lt %r1,0(%r1) jne .L103 .LVL85: .L87: 2119 defs = defs+1 asi 20(%r11),1 lg %r1,0(%r11) lg %r0,8(%r1) brasl %r14,FLUSHBUFFER.6840 .LVL99: j .L87 .LVL100: .L101: 2120 v == tag(p) lg %r2,0(%r11) lg %r10,8(%r2) .LVL86: 2121 t = 0 lhi %r3,0 j .L88 .LVL101: .L104: 2122 %UNLESS v_index < 0 %START; !no index for subnames sllg %r1,%r9,4 lh %r1,222(%r1,%r10) cijl %r1,0,.L101 2123 id = id+1 %AND v_index = id %IF v_index = 0 lhr %r1,%r1 cijlh %r1,0,.L89 2124 last def = v_index asi 56(%r2),1 sllg %r1,%r9,4 lh %r3,222(%r1,%r10) .LVL87: .L88: 2125 t = last def sllg %r1,%r9,4 lg %r2,0(%r11) lh %r2,58(%r2) sth %r2,222(%r1,%r10) .L89: 2126 %FINISH 2127 op('$', t) lg %r1,0(%r11) lg %r0,8(%r1) lgfr %r3,%r3 lghi %r2,36 brasl %r14,OP.6946 .LVL88: 2128 print ident(p, 1); !output the name lg %r1,0(%r11) lg %r0,8(%r1) lghi %r3,1 lgr %r2,%r9 brasl %r14,PRINTIDENT.6853 .LVL89: 2129 t = v_flags sllg %r8,%r9,4 lh %r6,220(%r8,%r10) .LVL90: .LDL5: risbg %r1,%r6,60,128+63,0 sth %r1,162(%r15) 2130 type = t 2131 type = type&(\(7<<4)) %IF type&(7<<4) >= 6<<4;!routine & pred 2132 op(',', type&b'1111111'); !type & form lhr %r1,%r1 lr %r2,%r1 st %r1,164(%r15) lg %r1,0(%r11) lg %r0,8(%r1) lgfr %r3,%r2 lghi %r2,44 brasl %r14,OP.6946 .LVL91: agr %r8,%r10 2133 f = v_format l %r3,216(%r8) .LVL92: risbg %r7,%r6,63,128+63,0 2134 f = tag(f)_index %IF t&x'70' = record<<4 lhr %r1,%r7 cijlh %r1,0,.L90 2135 f = v_index %IF f < 0 lg %r1,0(%r11) lg %r1,8(%r1) lgfr %r3,%r3 .LVL93: sllg %r3,%r3,4 lh %r3,222(%r3,%r1) .LVL94: .L90: cijl %r3,0,.L104 .L91: 2136 op(',', f); !format lg %r1,0(%r11) lg %r0,8(%r1) lgfr %r3,%r3 lghi %r2,44 brasl %r14,OP.6946 .LVL95: sllg %r1,%r9,4 lh %r3,222(%r1,%r10) .LVL102: j .L91 .LVL103: .L105: 2137 f = otype+t>>4&b'1111000' lrl %r13,OTYPE.6773 risbgn %r3,%r6,57,128+60,64-4 ark %r1,%r3,%r13 .LVL96: 2138 f = f!8 %IF class = 125; !add spec from %DUP l %r2,28(%r11) chi %r2,125 je .L105 .L92: 2139 dim = v_app; !dimension l %r2,212(%r8) .LVL97: .LBB337: strl %r2,DIM.6768 j .L94 .LVL98: .L103: oill %r1,8 .LVL104: j .L92 .LVL105: .L93: 2140 dim = 0 %unless 0 < dim <= dim limit 2141 op(',', f+dim<<8); !otype & spec & prot lrl %r3,DIM.6768 sll %r3,8 ar %r3,%r1 lg %r1,0(%r11) .LVL107: lg %r0,8(%r1) lgfr %r3,%r3 lghi %r2,44 brasl %r14,OP.6946 .LVL108: 2142 defs = 0 %IF t¶meters = 0 lhr %r7,%r7 cijlh %r7,0,.L95 2143 f = t&15 ahik %r3,%r2,-1 clijh %r3,5,.L93 .LBE337: mvhi 20(%r11),0 .L95: .LVL109: .LBB338: 2144 %IF v_flags&spec # 0 %START 2145 v_flags = v_flags&(\spec) %UNLESS 3 <= f <= 10 2146 ocount = -1; !external specs have no constants larl %r1,OCOUNT.6802 mvhi 0(%r1),-1 .LDL7: larl %r1,OCOUNT.6802 mvhi 0(%r1),-1 2147 %FINISH 2148 dimension = 0 larl %r2,DIM.6768 .LVL106: mvhi 0(%r2),0 .L94: l %r1,160(%r15) ahi %r1,-3 llhr %r1,%r1 clijle %r1,7,.L96 .L97: .LBE338: larl %r1,DIMENSION.6812 mvhi 0(%r1),0 larl %r1,DIMENSION.6812 mvhi 0(%r1),0 2149 %if otype = 2 %and (f=2 %or f=12 %or f=14) %start cije %r13,2,.L106 .LVL110: .L86: cijlh %r13,2,.L86 j .L100 .LFE215: .section .rodata .align 2 .LC25: .byte 7 .string "lookup:" .zero 247 .text .align 8 LOOKUP.7317: .LFB205: 2150 v_flags = v_flags-1; !convert to simple l %r1,164(%r15) cije %r1,2,.L99 .L100: sllg %r9,%r9,4 .LVL113: lh %r1,220(%r9,%r10) ahi %r1,-1 sth %r1,220(%r9,%r10) .L98: 2151 %finish nilf %r6,13 .LVL112: cijlh %r6,12,.L86 .L99: 2152 %END j .L86 .LVL114: .L96: 2153 sllg %r1,%r9,4 lh %r2,220(%r1,%r10) nill %r2,65407 sth %r2,220(%r1,%r10) .LDL6: lg %r4,280(%r15) lmg %r6,%r15,216(%r15) br %r4 .LVL111: .L106: 2154 %ROUTINE def s lab(%INTEGER n) .LVL391: stmg %r9,%r15,72(%r15) lay %r15,-160(%r15) lgr %r11,%r0 2155 2156 !define a switch label, x defines the switch tag 2157 2158 %INTEGER p, l, b, w, bit 2159 p = tag(x)_format; !pointer to table lrl %r10,X.6743 lg %r0,0(%r11) lgr %r1,%r0 lg %r4,8(%r1) lgfr %r1,%r10 aghi %r1,13 sllg %r1,%r1,4 l %r5,8(%r1,%r4) .LVL392: lgfr %r1,%r5 sllg %r1,%r1,1 agr %r1,%r4 2160 l = dict(p); !lower bound lhy %r3,26834(%r1) .LVL393: .LBB487: 2161 %IF l <= n <= dict(p+1) %START 2162 b = n-l srk %r3,%r2,%r3 .LVL394: 2163 w = b>>4+p srl %r3,4 .LVL397: ar %r3,%r5 .LVL398: lgfr %r3,%r3 sllg %r3,%r3,1 .LVL399: agr %r3,%r4 2164 bit = 1<<(b&15) crjh %r3,%r2,.L441 risbg %r1,%r3,60,128+63,0 .LVL395: lhi %r9,1 sllk %r1,%r9,0(%r1) .LVL396: 2165 %IF dict(w+2)&bit # 0 %START; !already set lhy %r5,26838(%r3) .LVL400: lpr %r4,%r1 .LVL401: ahi %r4,-1 srl %r4,31 nrk %r4,%r5,%r4 jne .L442 2166 fault(4) %IF pending # 0 chy %r2,26836(%r1) jh .L441 .LBE487: lt %r1,24(%r11) .LVL402: je .L440 2167 %RETURN lghi %r2,4 .LVL403: brasl %r14,FAULT.6982 .LVL404: j .L440 .LVL405: .L442: 2168 %FINISH 2169 dict(w+2) <- dict(w+2)!bit %IF pending # 0 lt %r4,24(%r11) je .L444 2170 set const(n) or %r1,%r5 .LVL406: sthy %r1,26838(%r3) .LVL407: .L444: lg %r1,0(%r11) lg %r0,8(%r1) brasl %r14,SETCONST.6949 .LVL408: 2171 op('_', tag(x)_index) lg %r1,0(%r11) lg %r2,8(%r1) lgfr %r10,%r10 sllg %r10,%r10,4 lgr %r0,%r2 lgh %r3,222(%r10,%r2) lghi %r2,95 brasl %r14,OP.6946 .LVL409: 2172 %FINISH %ELSE %START j .L445 .LVL410: .L441: 2173 fault(12) lghi %r2,12 .LVL411: brasl %r14,FAULT.6982 .LVL412: .L445: 2174 %FINISH 2175 access = 1 lg %r1,0(%r11) mvhi 36(%r1),1 .L443: .L440: 2176 %END 2177 lg %r4,272(%r15) lmg %r9,%r15,232(%r15) br %r4 .LFE216: .section .rodata.str1.2 .align 2 .LC82: .string "Illegal cycle J = DICT[N - 1], 1, DICT[N + 1 - 1]" .align 2 .LC83: .string "->C(%d) out of bounds at %s line %d" .align 2 .LC84: .string "switch jump to undefined label C(%d): at %s line %d" .align 2 .LC85: .string "->LITOP(%d) out of bounds at %s line %d" .section .rodata .align 2 .LC13: .word 1 .word 2 .word 4107 .word 4109 .word 5132 .word 5134 .word 3 .word 4 .word 4103 .word 4104 .word 4105 .word 4106 .word 6 .word 0 .word 0 .word 0 .align 2 .LC14: .byte 4 .string "ss =" .zero 250 .text .align 8 COMPILE.6965: .LFB209: 2178 %ROUTINE call 2179 %RECORD(tagfm)%NAME T 2180 t == tag(x) lg %r1,768(%r15) lg %r10,8(%r1) .LVL559: 2181 op('@', t_index) lgfrl %r11,X.6743 .LVL560: sllg %r2,%r11,4 lgr %r0,%r10 lgh %r3,222(%r2,%r10) lghi %r2,64 brasl %r14,OP.6946 .LVL561: 2182 access = 0 %IF t_flags&closed # 0; !never comes back 2183 bp=bp+1 %AND buff(bp)='E' %IF t_app = 0; !no parameters lg %r2,768(%r15) mvhi 36(%r2),0 .LDL31: aghi %r11,13 .LVL562: sllg %r11,%r11,4 .LVL563: lt %r1,4(%r11,%r10) jne .L764 2184 %END lrl %r1,BP.6830 ahik %r3,%r1,1 strl %r3,BP.6830 2185 lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),69 j .L764 .LVL564: .L639: j .L641 .L640: j .L641 .L642: j .L652 .L643: j .L652 .L644: j .L652 .L645: j .L652 .L646: j .L652 .L647: .L652: .LBE551: .LBE550: 2186 %ROUTINE pop def 2187 set const(pstack(pending)); pending = pending-1 ahi %r1,-1 lgfr %r1,%r1 sllg %r1,%r1,2 lg %r2,768(%r15) lg %r0,8(%r2) larl %r2,PSTACK.7871 lgf %r2,0(%r1,%r2) brasl %r14,SETCONST.6949 .LVL584: 2188 %END asi 792(%r15),-1 .L672: .LBE553: .LBE552: 2189 2190 %ROUTINE pop lit 2191 %IF pending = 0 %THEN lit = 0 %ELSE %START lgr %r1,%r0 lt %r1,24(%r1) je .L20 .L18: 2192 lit = pstack(pending); pending = pending-1 ahi %r1,-1 lgfr %r2,%r1 sllg %r2,%r2,2 larl %r3,PSTACK.7871 l %r2,0(%r2,%r3) strl %r2,LIT.6820 larl %r1,LIT.6820 mvhi 0(%r1),0 2193 %FINISH lgr %r2,%r0 st %r1,24(%r2) .L19: .L17: j .L17 .LFE219: .align 8 PUSH.8031: .LFB220: 2194 %END 2195 br %r14 .L20: 2196 2197 %IF sstype < 0 %START; !executable statement larl %r1,SSTYPE.6800 lt %r1,0(%r1) jl .L772 .L449: .L451: .L452: 2198 %IF level = 0 %START; !outermost level lg %r1,192(%r15) lt %r1,60(%r1) je .L779 .L450: 2199 fault(13); !*order lg %r0,192(%r15) lghi %r2,13 brasl %r14,FAULT.6982 .LVL428: j .L452 .LVL429: .L773: 2200 %FINISH %ELSE %START 2201 %IF access = 0 %START lg %r1,192(%r15) lt %r1,36(%r1) jne .L452 2202 access = 1; fault(-1); !only a warning lg %r1,192(%r15) mvhi 36(%r1),1 2203 %FINISH lgr %r0,%r1 lghi %r2,-1 brasl %r14,FAULT.6982 .LVL427: j .L452 .L779: 2204 %FINISH 2205 %FINISH 2206 2207 %IF diag&2 # 0 %START 2208 newline %IF sym # nl lrl %r1,SYM.6761 chi %r1,10 je .L453 .LBB529: .LBB530: brasl %r14,_imp_newline@PLT .LVL413: .L453: .LBE530: .LBE529: .LBB531: 2209 printstring("ss =") larl %r1,.LC14 lay %r2,4946(%r15) mvc 0(256,%r2),0(%r1) mvc 850(256,%r15),0(%r2) mvc 0(256,%r2),850(%r15) .LBE531: .LBB532: .LBB533: mvc 512(256,%r15),0(%r2) aghik %r2,%r15,512 brasl %r14,_imp_printstring@PLT .LVL414: .LBE533: .LBE532: 2210 write(ss, 1) lghi %r3,1 lgfrl %r2,SS.6793 brasl %r14,_imp_writeint@PLT .LVL415: .LBB534: .LBB535: brasl %r14,_imp_newline@PLT .LVL416: .LBE535: .LBE534: 2211 newline 2212 count = 5 larl %r1,COUNT.7873 mvhi 0(%r1),5 .LVL417: 2213 name = "" 2214 %FINISH 2215 lghi %r4,8 la %r3,1106(%r15) larl %r2,NAME.7872 brasl %r14,_imp_strncpy@PLT .LVL418: .L454: 2216 next = ss lrl %r1,SS.6793 st %r1,804(%r15) 2217 pending = 0; lmode = 0 mvhi 792(%r15),0 2218 link = 0; decs = 0 mvhi 776(%r15),0 mvhi 800(%r15),0 .LVL419: 2219 defs = 0; resln = 0; done = 0 mvhi 788(%r15),0 .LVL420: mvhi 212(%r15),0 mvhi 212(%r15),0 2220 ord = level mvhi 220(%r15),0 .L765: lg %r1,192(%r15) l %r1,60(%r1) st %r1,216(%r15) mvhi 220(%r15),0 j .L765 .L455: .L456: .L457: .L458: .L459: .L460: .LVL430: .L461: j .L764 .LVL431: .L774: 2221 ord = 1 %IF this >= 0; !recordformat declarations larl %r1,THIS.6785 lt %r1,0(%r1) jl .L773 2222 c(0): mvhi 216(%r15),1 2223 top: %IF next # link %START 2224 get next; ->c(class) aghik %r1,%r15,768 stg %r1,200(%r15) clc 804(4,%r15),800(%r15) jne .L774 .L463: lg %r0,200(%r15) brasl %r14,GETNEXT.7878 .LVL432: 2225 %FINISH l %r11,796(%r15) .LVL433: .LDL25: 2226 2227 !all done, tidy up declarations and jumps 2228 2229 newline %IF diag&2 # 0 %AND count # 5 2230 lrl %r1,COUNT.7873 chi %r1,5 je .L467 .LBB536: .LBB537: brasl %r14,_imp_newline@PLT .LVL422: .L467: .LBE537: .LBE536: 2231 %IF lmode&(loop!then!else) # 0 %START; !pending labels and jumps 2232 op('B', label-1) %IF lmode&loop # 0; !repeat 2233 def lab(label) %IF lmode&then # 0; !entry from then lg %r10,192(%r15) l %r2,24(%r10) ahik %r3,%r2,-1 lg %r0,8(%r10) lgfr %r3,%r3 lghi %r2,66 brasl %r14,OP.6946 .LVL423: .L468: 2234 def lab(label-1) %IF lmode&else # 0; !entry from else aghik %r11,%r15,768 lgr %r0,%r11 lgf %r2,24(%r10) brasl %r14,DEFLAB.7875 .LVL424: .L469: 2235 %FINISH l %r1,24(%r10) ahik %r2,%r1,-1 lgr %r0,%r11 lgfr %r2,%r2 brasl %r14,DEFLAB.7875 .LVL425: .L470: .L471: 2236 2237 %RETURN %IF decs = 0 l %r1,212(%r15) cije %r1,0,.L448 .L473: 2238 atom1 = error %AND %RETURN %IF atom1 # 0; !%INTEGERROUTINE larl %r1,ATOM1.6744 lt %r1,0(%r1) jne .L775 .L474: 2239 order = ord l %r1,216(%r15) strl %r1,ORDER.6805 llill %r1,32768 strl %r1,ATOM1.6744 .LVL436: .L448: 2240 decl = decl&(\15)+decmap(decl&15); !construct declarator flags lrl %r1,DECL.6767 risbgn %r2,%r1,59,128+62,1 nill %r1,65520 ah %r1,818(%r2,%r15) strl %r1,DECL.6767 2241 atom1 = atoms(decl&15); !generate class lg %r2,192(%r15) lg %r3,8(%r2) risbg %r2,%r1,60,128+63,0 llc %r2,38836(%r2,%r3) strl %r2,ATOM1.6744 2242 %IF otype # 0 %START; !own, const etc. larl %r3,OTYPE.6773 lt %r3,0(%r3) je .L481 2243 atom1 = atom1+1 %IF atom1 # proc cije %r2,7,.L476 2244 %IF otype = 2 %START; !const ahi %r2,1 strl %r2,ATOM1.6744 .L476: cije %r3,2,.L776 .L477: 2245 n = decl&15 2246 %if n&1 # 0 %start 2247 decl = decl!prot oill %r1,256 .LVL438: strl %r1,DECL.6767 .LVL439: j .L481 .LVL440: .L478: 2248 decl = decl!const bit %IF decl&b'1111111' = iform tmll %r1,1 je .L478 2249 %finish oill %r1,8448 .LVL441: strl %r1,DECL.6767 .LVL442: j .L481 .L777: 2250 %else 2251 decl = decl!own bit oill %r1,512 strl %r1,DECL.6767 .L475: .L479: .L480: .L481: 2252 %FINISH 2253 %FINISH 2254 sstype = 1 %IF sstype = 0 %AND atom1 = proc larl %r1,SSTYPE.6800 lt %r1,0(%r1) jne .L482 2255 atom1 = atom1+1 %IF decl&spec # 0; !onto spec variant lrl %r1,ATOM1.6744 chi %r1,7 je .L777 .L482: 2256 ocount = 0 %AND cont = '+' %IF atom1 = 5; !own array lrl %r1,ATOM1.6744 ahi %r1,1 strl %r1,ATOM1.6744 .LDL23: cije %r1,5,.L778 .L483: larl %r1,SSTYPE.6800 mvhi 0(%r1),1 larl %r1,ATOM1.6744 mvhi 0(%r1),8 j .L483 .L778: 2257 %IF anyform(decl&15) = 0 %START; !check meaningful lrl %r1,DECL.6767 risbg %r2,%r1,60,128+63,0 llc %r2,5224(%r2,%r15) cijlh %r2,0,.L448 larl %r1,OCOUNT.6802 mvhi 0(%r1),0 2258 %IF decl>>4&7 = record %START tmll %r1,16 jne .L485 larl %r1,CONT.6765 mvhi 0(%r1),43 j .L483 .LVL443: .L488: .L489: 2259 this = fdef %IF tag(fdef)_flags&spec # 0 2260 atom1 = error+21 %IF fdef = this; !*context for format lrl %r1,FDEF.6784 strl %r1,THIS.6785 .LDL24: 2261 %FINISH llill %r1,32789 strl %r1,ATOM1.6744 .L484: .L485: 2262 atom1 = error+10 %IF fdef = 0; !*size larl %r1,FDEF.6784 lt %r1,0(%r1) jne .L448 2263 %FINISH llill %r1,32778 strl %r1,ATOM1.6744 j .L448 .LVL426: .L772: 2264 %RETURN 2265 2266 atop: access = 0; ->top 2267 lg %r1,192(%r15) mvhi 36(%r1),0 2268 ! declarators j .L764 .LVL469: .L542: 2269 2270 c(88): !rtype 2271 c(28): decl = x&(\7); !stype 2272 fdef = x&7; !precision lrl %r1,X.6743 risbg %r2,%r1,32,128+60,0 strl %r2,DECL.6767 risbg %r2,%r1,61,128+63,0 strl %r2,FDEF.6784 2273 fdef = reals ln %IF x&b'1110001' = real<<4+1; !convert to long nilf %r1,1 st %r1,212(%r15) jne .L764 2274 decs = 1; ->top lrl %r1,REALSLN.6774 strl %r1,FDEF.6784 mvhi 212(%r15),1 j .L764 .L490: .L491: 2275 c(34): !own 2276 c(35): otype = x; ord = 1; ->top; !external 2277 c(152):decl = decl+x<<1; ->top; !xname lrl %r1,X.6743 strl %r1,OTYPE.6773 .LVL444: 2278 c(31): !proc mvhi 216(%r15),1 lrl %r1,X.6743 sll %r1,1 larl %r2,DECL.6767 a %r1,0(%r2) strl %r1,DECL.6767 2279 c(32): spec mode = level+1; !fn/map j .L764 .LVL445: .L492: j .L764 .L493: .L494: 2280 decl = decl!prot %IF x = 9; !function lg %r1,192(%r15) l %r1,60(%r1) ahi %r1,1 strl %r1,SPECMODE.6801 lrl %r1,X.6743 chi %r1,9 je .L781 .L495: .L496: .LVL446: 2281 c(29): ord = 1; !array lrl %r1,DECL.6767 oill %r1,256 strl %r1,DECL.6767 j .L496 .L498: 2282 dim = 0 larl %r1,DIM.6768 mvhi 0(%r1),0 mvhi 216(%r15),1 .LVL447: .L497: 2283 c(30): decl = decl+x; !name 2284 decs = 1 lrl %r2,DECL.6767 larl %r1,X.6743 a %r2,0(%r1) strl %r2,DECL.6767 .LVL448: mvhi 212(%r15),1 2285 ->top j .L764 .LVL449: .L781: 2286 c(27): lit = 0; ! arrayd 2287 %IF pending # 0 %START larl %r1,LIT.6820 mvhi 0(%r1),0 lt %r1,792(%r15) jne .L782 .L499: .L501: 2288 pop lit lg %r0,200(%r15) brasl %r14,POPLIT.7975 .LVL452: .LBB538: 2289 %UNLESS 0 top mvhi 212(%r15),1 j .L764 .LVL451: .L782: 2296 c(37): x = x!subname; !record 2297 c(36): lit = 0; !string lrl %r1,X.6743 oill %r1,2048 strl %r1,X.6743 .L503: 2298 %IF pending # 0 %START larl %r1,LIT.6820 mvhi 0(%r1),0 lt %r1,792(%r15) jne .L783 .L504: .L506: 2299 pop lit lg %r0,200(%r15) brasl %r14,POPLIT.7975 .LVL456: .LBB539: 2300 %UNLESS 0 < lit <= 255 %START; !max length wrong 2301 atom1 = error+10; %RETURN llill %r1,32778 strl %r1,ATOM1.6744 2302 %FINISH j .L448 .LVL457: .L508: 2303 %FINISH lrl %r1,LIT.6820 ahi %r1,-1 clijle %r1,254,.L506 .L505: .LBE539: 2304 fdef = lit; !format or length lrl %r1,LIT.6820 strl %r1,FDEF.6784 .L507: 2305 c(33): decl = x; !switch 2306 decs = 1 lrl %r1,X.6743 strl %r1,DECL.6767 .LVL454: mvhi 212(%r15),1 2307 ->top j .L764 .LVL455: .L783: 2308 c(39): decl = decl!spec; !spec 2309 ocount = -1; !no initialisation lrl %r1,DECL.6767 oill %r1,128 strl %r1,DECL.6767 larl %r1,OCOUNT.6802 mvhi 0(%r1),-1 2310 spec mode = -1 larl %r1,SPECMODE.6801 mvhi 0(%r1),-1 2311 ->top j .L764 .L509: 2312 c(38): decl = 64+4; !recordformat (spec) 2313 order = 1 larl %r1,DECL.6767 mvhi 0(%r1),68 larl %r1,ORDER.6805 mvhi 0(%r1),1 2314 atom1 = x lrl %r1,X.6743 strl %r1,ATOM1.6744 2315 decl = decl!spec %if atom1 = 12; !formatspec cije %r1,12,.L784 .L510: 2316 fdef = tmax+1; !format tag lg %r1,192(%r15) l %r1,64(%r1) ahi %r1,1 strl %r1,FDEF.6784 larl %r1,DECL.6767 mvhi 0(%r1),196 j .L510 .L511: 2317 %return j .L448 .L784: 2318 c(175):id = id+1; tag(x)_index = id; %return; !FSID 2319 c(41): decs = 1; decl = x!spec!closed; ->top; !label lg %r1,192(%r15) l %r2,56(%r1) ahi %r2,1 st %r2,56(%r1) 2320 c(133):recid = 0; rbase = tmin-1; !fname lg %r3,8(%r1) lgfrl %r1,X.6743 sllg %r1,%r1,4 sth %r2,222(%r1,%r3) mvhi 212(%r15),1 2321 this = x j .L448 .L512: .LVL458: lrl %r1,X.6743 oill %r1,16512 strl %r1,DECL.6767 lg %r1,192(%r15) lg %r1,8(%r1) mvhi 204(%r1),0 lrl %r1,X.6743 strl %r1,THIS.6785 2322 fm base = fdef; format list = tmin j .L764 .LVL459: .L513: lrl %r1,TMIN.6792 ahi %r1,-1 strl %r1,RBASE.6788 lrl %r1,FDEF.6784 strl %r1,FMBASE.6814 2323 def(this); ->top lrl %r1,TMIN.6792 strl %r1,FORMATLIST.6816 lg %r0,200(%r15) lgfrl %r2,X.6743 brasl %r14,DEF.7928 .LVL460: j .L764 .L514: 2324 c(148):fdef = 0 %AND ->top %IF next = 0; !reclb 2325 get next; !skip name lt %r1,804(%r15) jne .L515 lg %r0,200(%r15) brasl %r14,GETNEXT.7878 .LVL461: 2326 fdef = x larl %r1,FDEF.6784 mvhi 0(%r1),0 lrl %r1,X.6743 strl %r1,FDEF.6784 2327 ->top j .L764 .L515: j .L764 .L516: 2328 c(127):bp=bp+1 %AND buff(bp)='}'; ->top; !%POUT 2329 c(126):bp=bp+1 %AND buff(bp)='{'; ->top; !%PIN lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2330 lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),125 lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2331 c(174):set bp; !rangerb j .L764 .L517: lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),123 2332 c(171): !fmlb j .L764 .L518: lg %r0,200(%r15) brasl %r14,SETBP.7910 .LVL462: .L521: 2333 c(172): !fmrb 2334 c(173):bp=bp+1 %AND buff(bp)='~'; bp=bp+1 %AND buff(bp)=class-171+'A'; ->top; !fmor 2335 c(168):rbase = -rbase; !orrb lrl %r1,BP.6830 ahi %r1,1 2336 sstype = 0; spec mode = 0 lg %r4,192(%r15) lg %r3,8(%r4) lgfr %r2,%r1 lay %r2,104710(%r2,%r3) mvi 0(%r2),126 lrl %r1,RBASE.6788 lcr %r1,%r1 strl %r1,RBASE.6788 larl %r1,SSTYPE.6800 mvhi 0(%r1),0 2337 ahik %r2,%r1,2 strl %r2,BP.6830 larl %r1,SPECMODE.6801 mvhi 0(%r1),0 .L523: 2338 c(147):search base = 0; !recrb lg %r2,8(%r4) lgfr %r1,%r1 l %r3,796(%r15) ahi %r3,-106 stcy %r3,104710(%r1,%r2) 2339 tag(this)_app = tmin j .L764 .L519: j .L521 .L520: j .L521 .L522: larl %r1,SEARCHBASE.6815 mvhi 0(%r1),0 lg %r3,192(%r15) lg %r2,8(%r3) lgfrl %r1,THIS.6785 aghi %r1,13 sllg %r1,%r1,4 lrl %r4,TMIN.6792 st %r4,4(%r1,%r2) 2340 tag(this)_format = rbase lg %r2,8(%r3) lrl %r3,RBASE.6788 st %r3,8(%r1,%r2) 2341 ->top j .L764 .L524: 2342 2343 c(45):bp=bp+1 %and buff(bp)='U' %IF x = 36; ->top; !sign 2344 c(46):bp=bp+1; buff(bp)='\'; ->top; !uop lrl %r1,X.6743 chi %r1,36 jne .L764 2345 c(47): !mod lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2346 c(48): !dot lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),85 j .L764 .L525: lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),92 2347 c(42): !op1 j .L764 .L526: .L530: 2348 c(43): !op2 2349 c(44):bp=bp+1; buff(bp)=operator(x); ->top; !op3 2350 lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2351 !conditions & jumps lg %r2,192(%r15) lg %r3,8(%r2) lgfr %r1,%r1 lrl %r2,X.6743 ahi %r2,-1 lgfr %r2,%r2 icy %r2,5210(%r2,%r15) stcy %r2,104710(%r1,%r3) 2352 j .L764 .L527: j .L530 .L528: j .L530 .L529: j .L530 .L531: .L532: 2353 %ROUTINE push(%INTEGER x) .LVL14: lgr %r4,%r0 ldgr %f0,%r11 2354 %IF cnest(cp)&2 # x %START l %r3,16(%r4) lgfr %r1,%r3 larl %r5,CNEST.7849 llgc %r5,0(%r1,%r5) lr %r1,%r2 xilf %r1,2 lpr %r1,%r1 ahi %r1,-1 srl %r1,31 nr %r1,%r5 jne .L25 2355 cnest(cp) = cnest(cp)!1; x = x+4 lgfr %r1,%r3 oill %r5,1 larl %r11,CNEST.7849 stc %r5,0(%r1,%r11) 2356 %FINISH ahi %r2,4 .LVL15: lgfr %r2,%r2 .LVL16: .L23: 2357 clab = clab+1 %IF cnest(cp)&1 # 0 2358 cnest(cp+1) = x; cp = cp+1 asi 12(%r4),1 .LDL1: ahi %r3,1 lgfr %r1,%r3 larl %r5,CNEST.7849 stc %r2,0(%r1,%r5) asi 12(%r4),1 ahi %r3,1 lgfr %r1,%r3 larl %r5,CNEST.7849 stc %r2,0(%r1,%r5) 2359 %END st %r3,16(%r4) st %r3,16(%r4) br %r14 .LFE220: .section .rodata.str1.2,"aMS",@progbits,1 .align 2 .LC76: .string "test-new/pass1-pe.imp" .align 2 .LC77: .string "->REASON(%d) out of bounds at %s line %d" .align 2 .LC78: .string "switch jump to undefined label REASON(%d): at %s line %d" .section .rodata .align 2 .LC15: .byte 21 .string "test-new/pass1-pe.imp" .zero 233 .text .align 8 ABANDON.6872: .LFB188: 2360 lgdr %r11,%f0 br %r14 .L25: 2361 %ROUTINE pop label(%INTEGER mode) .LVL385: lgr %r5,%r0 stmg %r14,%r15,112(%r15) lay %r15,-160(%r15) 2362 lmode = dict(dmin) lg %r3,0(%r5) lg %r4,8(%r3) l %r1,52(%r3) ahi %r1,-1 lgfr %r1,%r1 aghi %r1,13416 sllg %r1,%r1,1 lh %r4,4(%r1,%r4) st %r4,8(%r5) 2363 %IF lmode < 0 %OR lmode&1 # mode %START cijl %r4,0,.L427 2364 fault(mode+8) lr %r1,%r2 xilf %r1,1 lpr %r1,%r1 ahi %r1,-1 srl %r1,31 nr %r1,%r4 je .L427 .L428: ahi %r2,8 .LVL386: lgr %r0,%r3 lgfr %r2,%r2 brasl %r14,FAULT.6982 .LVL387: 2365 %FINISH %ELSE %START 2366 dmin = dmin+1; label = label-3 asi 52(%r3),1 2367 %FINISH lg %r1,0(%r5) asi 24(%r1),-3 br %r14 .L427: 2368 %END 2369 lg %r4,272(%r15) lmg %r14,%r15,272(%r15) br %r4 .L429: .LFE221: .align 8 SETBP.7910: .LFB213: 2370 c(56): !and 2371 c(57):push(x); ->top; !or 2372 c(58):cnest(cp) = cnest(cp)!!2; ->top; !not lg %r0,200(%r15) lgfrl %r2,X.6743 brasl %r14,PUSH.8031 .LVL463: j .L764 .L533: 2373 larl %r1,CNEST.7849 lgf %r2,784(%r15) llgc %r3,0(%r2,%r1) xilf %r3,2 stc %r3,0(%r2,%r1) 2374 c(138):x = 128+32+16+4; !csep: treat like %WHILE j .L764 .L534: 2375 c(59): !while larl %r1,X.6743 mvhi 0(%r1),180 .L536: 2376 c(60):%IF class = 138 %THEN op('f', label-1) %C 2377 %ELSE def lab(label-1); !until l %r1,796(%r15) chi %r1,138 je .L785 .L537: 2378 c(166): !runtil lg %r1,192(%r15) l %r2,24(%r1) ahik %r3,%r2,-1 lg %r0,8(%r1) lgfr %r3,%r3 lghi %r2,102 brasl %r14,OP.6946 .LVL465: j .L540 .L538: .L539: .L540: 2379 c(62):lmode = (lmode&(else!loop)) !(x>>3); !cword 2380 clab = label; cp = 1; cnest(1) = x&7 lrl %r1,X.6743 srlk %r2,%r1,3 l %r3,776(%r15) rosbg %r2,%r3,59,60,0 st %r2,776(%r15) lg %r2,192(%r15) l %r2,24(%r2) st %r2,780(%r15) 2381 ->top lg %r1,192(%r15) l %r1,24(%r1) ahik %r2,%r1,-1 lg %r0,200(%r15) lgfr %r2,%r2 brasl %r14,DEFLAB.7875 .LVL464: j .L540 .L535: j .L536 .L785: mvhi 784(%r15),1 j .L764 .L541: 2382 c(72):pop label(0); !repeat nilf %r1,7 larl %r2,CNEST.7849 stc %r1,1(%r2) 2383 def lab(label+1) %IF lmode&32 # 0; ->atop lg %r11,200(%r15) .LVL466: lgr %r0,%r11 lghi %r2,0 brasl %r14,POPLABEL.8036 .LVL467: 2384 c(69):pop label(1); ->top; !finish lg %r1,192(%r15) l %r1,24(%r1) ahik %r2,%r1,1 lgr %r0,%r11 lgfr %r2,%r2 brasl %r14,DEFLAB.7875 .LVL468: .L486: .L487: 2385 c(163): !xelse lg %r0,200(%r15) lghi %r2,1 brasl %r14,POPLABEL.8036 .LVL470: j .L764 .L543: .L544: 2386 c(70):pop label(1); !finish else ... 2387 fault(7) %IF lmode&3 = 3; !dangling else lg %r0,200(%r15) lghi %r2,1 brasl %r14,POPLABEL.8036 .LVL471: 2388 c(68):lmode = (lmode&else)!3; !...else... lg %r0,192(%r15) lghi %r2,7 brasl %r14,FAULT.6982 .LVL472: .L545: .L546: 2389 %IF access # 0 %START l %r1,776(%r15) nilf %r1,8 oill %r1,3 st %r1,776(%r15) lg %r1,192(%r15) lt %r2,36(%r1) je .L547 2390 op('F', label-1); lmode = else!3 l %r2,24(%r1) ahik %r3,%r2,-1 lg %r0,8(%r1) lgfr %r3,%r3 lghi %r2,70 brasl %r14,OP.6946 .LVL473: 2391 %FINISH mvhi 776(%r15),11 .L547: 2392 def lab(label) lg %r0,200(%r15) lg %r1,192(%r15) lgf %r2,24(%r1) brasl %r14,DEFLAB.7875 .LVL474: 2393 ->top %IF next # 0 lt %r1,804(%r15) jne .L764 j .L551 .L548: .L549: .L551: .L552: 2394 2395 c(120): !%MSTART 2396 c(67): !start 2397 c(71): !cycle 2398 stcy: def lab(label-1) %AND lmode = loop %IF lmode = 0;!cycle 2399 dmin = dmin-1; abandon(3) %IF dmin <= dmax lt %r1,776(%r15) je .L786 .LVL475: .L553: lg %r2,192(%r15) l %r1,52(%r2) ahi %r1,-1 st %r1,52(%r2) 2400 dict(dmin) = lmode crl %r1,DMAX.6791 jle .L787 .L554: lg %r3,192(%r15) lg %r2,8(%r3) l %r1,52(%r3) ahi %r1,-1 lgfr %r1,%r1 aghi %r1,13416 sllg %r1,%r1,1 lh %r4,778(%r15) sth %r4,4(%r1,%r2) lg %r1,192(%r15) l %r1,24(%r1) ahik %r2,%r1,-1 aghik %r0,%r15,768 lgfr %r2,%r2 brasl %r14,DEFLAB.7875 .LVL477: 2401 label = label+3 asi 24(%r3),3 mvhi 776(%r15),16 j .L553 .LVL478: .L787: lg %r0,8(%r2) lghi %r2,3 brasl %r14,ABANDON.6872 .LVL479: j .L554 .LVL480: .L555: 2402 %RETURN j .L448 .LVL476: .L550: j .L551 .L786: 2403 2404 c(64):fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0; !on event 2405 inhibit = 1 lg %r3,192(%r15) lg %r2,8(%r3) l %r1,52(%r3) ahi %r1,-1 lgfr %r1,%r1 aghi %r1,13416 sllg %r1,%r1,1 la %r1,4(%r1,%r2) tm 0(%r1),128 je .L556 lg %r9,192(%r15) mvhi 20(%r9),1 .LVL482: 2406 n = 0 lt %r1,20(%r3) je .L557 .L556: lhi %r11,0 .LVL483: lhi %r11,0 .LVL495: j .L558 .LVL496: .L562: 2407 n = x'FFFF' %IF pending = 0; !* = all events lt %r1,792(%r15) je .L748 2408 %WHILE pending > 0 %CYCLE lg %r0,192(%r15) lghi %r2,13 brasl %r14,FAULT.6982 .LVL481: .L557: llill %r11,65535 .LVL491: .L558: 2409 pop lit; fault(10) %IF lit&(\15) # 0;!too big cijle %r1,0,.L749 aghik %r6,%r15,768 lt %r1,792(%r15) jle .L558 .LVL486: .L561: lgr %r0,%r6 brasl %r14,POPLIT.7975 .LVL487: 2410 j = 1<stcy lg %r0,8(%r10) lgf %r3,24(%r10) lghi %r2,44 brasl %r14,OP.6946 .LVL493: mvhi 776(%r15),5 j .L553 .LVL494: .L749: 2416 2417 2418 c(104):op('J', tag(x)_index); !l 2419 inhibit = 1; ->atop lg %r11,192(%r15) .LVL497: lg %r2,8(%r11) lgfrl %r1,X.6743 sllg %r1,%r1,4 lgr %r0,%r2 lgh %r3,222(%r1,%r2) lghi %r2,74 brasl %r14,OP.6946 .LVL498: mvhi 20(%r11),1 2420 c(149):stats = stats-1; !lab j .L486 .LVL499: .L563: 2421 access = 1; inhibit = 1 lrl %r1,STATS.6759 ahi %r1,-1 strl %r1,STATS.6759 lg %r3,192(%r15) mvhi 36(%r3),1 2422 op('L', tag(x)_index); ->top mvhi 20(%r3),1 lg %r2,8(%r3) lgfrl %r1,X.6743 sllg %r1,%r1,4 lgr %r0,%r2 lgh %r3,222(%r1,%r2) lghi %r2,76 brasl %r14,OP.6946 .LVL500: j .L764 .L564: 2423 2424 c(63):j = dmin; l = label-3; !exit, continue 2425 %CYCLE lg %r1,192(%r15) l %r11,52(%r1) .LVL501: 2426 fault(7) %AND ->top %IF dict(j) < 0 l %r2,24(%r1) ahi %r2,-3 st %r2,16(%r1) ahik %r2,%r11,-1 lg %r3,8(%r1) lgfr %r1,%r2 aghi %r1,13416 sllg %r1,%r1,1 lh %r1,4(%r1,%r3) cijl %r1,0,.L565 lgfr %r1,%r11 aghi %r1,13416 sllg %r1,%r1,1 lh %r1,4(%r1,%r3) cijl %r1,0,.L565 .L568: lr %r11,%r2 .LVL504: .L567: 2427 %EXIT %IF dict(j)&1 = 0 tmll %r1,1 je .L788 lg %r2,192(%r15) .L566: tmll %r1,1 je .L567 lg %r0,192(%r15) lghi %r2,7 brasl %r14,FAULT.6982 .LVL506: j .L764 .L789: 2428 j = j+1; l = l-3 ahik %r4,%r11,1 .LVL502: lr %r11,%r4 j .L566 .LVL503: .L788: 2429 %REPEAT asi 16(%r2),-3 .LDL26: 2430 l = l+1 %IF x = 32; !continue lrl %r10,X.6743 cije %r10,32,.L789 .L569: 2431 op('F', l) lgr %r0,%r3 lg %r9,192(%r15) lgf %r3,16(%r9) lghi %r2,70 brasl %r14,OP.6946 .LVL505: lgfr %r11,%r11 sllg %r1,%r11,1 ag %r1,8(%r9) lg %r1,192(%r15) asi 16(%r1),1 j .L569 .LVL507: .L570: 2432 dict(j) = dict(j)!x; !show given lhy %r2,26836(%r1) or %r2,%r10 sthy %r2,26836(%r1) 2433 ->atop j .L486 .L565: 2434 2435 c(50):bp=bp+1 %AND buff(bp)='C'; ->cop; !acomp 2436 lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2437 c(49): bp = bp+1 lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),67 2438 %IF next # 0 %START; !comparator j .L574 .L572: lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 lt %r2,804(%r15) jne .L790 .L573: 2439 buff(bp)='"'; push(0); !double sided lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),34 2440 %FINISH %ELSE %START lg %r0,200(%r15) lghi %r2,0 brasl %r14,PUSH.8031 .LVL508: j .L574 .L578: .L580: 2441 buff(bp)='?' lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),63 j .L574 .L790: 2442 %FINISH 2443 2444 cop: x = x!!1 %IF cnest(cp)&2 # 0; !invert the condition 2445 j = cp; l = clab l %r2,784(%r15) .LVL664: 2446 %WHILE cnest(j)&4 = 0 %CYCLE lrl %r5,X.6743 xilf %r5,1 strl %r5,X.6743 .LDL34: l %r3,780(%r15) lg %r1,192(%r15) st %r3,16(%r1) 2447 j = j-1; l = l-cnest(j)&1 lgfr %r1,%r2 larl %r4,CNEST.7849 la %r1,0(%r1,%r4) tm 0(%r1),1 jne .L575 .L576: ahi %r2,-1 .LVL665: cije %r1,0,.L576 lg %r1,192(%r15) st %r3,16(%r1) .L575: 2448 %REPEAT lgfr %r1,%r2 llgc %r1,0(%r1,%r4) nilf %r1,1 sr %r3,%r1 .LDL35: 2449 op(cc(x), l) lgfr %r5,%r5 lg %r1,192(%r15) lg %r0,8(%r1) lgf %r3,16(%r1) llgc %r2,5202(%r5,%r15) .LVL666: brasl %r14,OP.6946 .LVL667: 2450 def lab(clab+1) %IF cnest(cp)&1 # 0 2451 cp = cp-1 l %r1,780(%r15) ahik %r2,%r1,1 lg %r0,200(%r15) lgfr %r2,%r2 brasl %r14,DEFLAB.7875 .LVL668: .L577: l %r1,784(%r15) ahi %r1,-1 st %r1,784(%r15) 2452 clab = clab-cnest(cp)&1 lgfr %r1,%r1 larl %r2,CNEST.7849 llgc %r1,0(%r1,%r2) risbg %r2,%r1,63,128+63,0 l %r1,780(%r15) sr %r1,%r2 st %r1,780(%r15) 2453 ->top j .L764 .L730: 2454 2455 c(78): !fresult 2456 c(79): !mresult 2457 c(80): open = 0; !return, true, false 2458 c(82): access = 0; !stop lg %r1,192(%r15) mvhi 32(%r1),0 .L581: 2459 c(89): !addop lg %r1,192(%r15) mvhi 36(%r1),0 .L583: 2460 c(81): bp=bp+1 %AND buff(bp)=x; ->top; !monitor 2461 lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2462 c(65): pop lit; op('e', lit); ->atop; !signal lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lrl %r3,X.6743 stcy %r3,104710(%r1,%r2) 2463 j .L764 .L579: j .L580 .L582: j .L583 .L584: lg %r0,200(%r15) brasl %r14,POPLIT.7975 .LVL509: 2464 c(51): bp=bp+1 %AND buff(bp)='S'; ->top; !eq lg %r1,192(%r15) lg %r0,8(%r1) lgfrl %r3,LIT.6820 lghi %r2,101 brasl %r14,OP.6946 .LVL510: j .L486 .L585: 2465 c(53): bp=bp+1 %AND buff(bp)='j'; ->top; !jam transfer lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2466 c(52): bp=bp+1 %AND buff(bp)='Z'; ->top; !eqeq lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),83 lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2467 j .L764 .L586: lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),106 lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2468 c(74):%IF level = 0 %START; !begin j .L764 .L587: lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),90 2469 %IF progmode <= 0 %THEN progmode = 1 %ELSE fault(7) j .L764 .L588: lg %r1,192(%r15) lt %r1,60(%r1) jne .L591 larl %r1,PROGMODE.6799 lt %r1,0(%r1) jh .L590 2470 {Permit BEGIN after external defs} larl %r1,PROGMODE.6799 mvhi 0(%r1),1 .L589: .L591: 2471 %FINISH 2472 spec mode = level+1 lg %r2,192(%r15) l %r1,60(%r2) ahi %r1,1 strl %r1,SPECMODE.6801 2473 block x = 0 larl %r1,BLOCKX.6822 mvhi 0(%r1),0 lg %r0,192(%r15) lghi %r2,7 brasl %r14,FAULT.6982 .LVL511: j .L591 .L592: 2474 bp=bp+1 %AND buff(bp)='H'; %RETURN lrl %r1,BP.6830 ahik %r3,%r1,1 strl %r3,BP.6830 2475 c(77):perm = 0; lines = 0; stats = 0; !endofperm lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),72 2476 close input j .L448 .L590: larl %r1,PERM.6798 mvhi 0(%r1),0 brasl %r14,CLOSEINPUT@PLT .LVL512: .LBB540: .LBB541: lgrl %r1,_imp_InStream@GOTENT mvhi 0(%r1),1 lgrl %r1,_imp_InFile@GOTENT lgrl %r2,_imp_infile@GOTENT lg %r2,296(%r2) stg %r2,0(%r1) larl %r2,__PRETTY_FUNCTION__.6289 brasl %r14,check_instream@PLT .LVL513: .LBE541: .LBE540: 2477 select input(source) larl %r1,LINES.6753 mvhi 0(%r1),0 2478 list = list-1 larl %r1,STATS.6759 mvhi 0(%r1),0 lrl %r1,LIST.6823 ahi %r1,-1 strl %r1,LIST.6823 2479 tbase = tmax; tstart = tmax lg %r2,192(%r15) l %r1,64(%r2) st %r1,68(%r2) 2480 %RETURN st %r1,72(%r2) j .L448 .L593: 2481 c(76):%IF include # 0 %AND x = 0 %START; !end of ... 2482 lines = include; sstype = 0; !include larl %r1,INCLUDE.6797 lt %r1,0(%r1) je .L594 strl %r1,LINES.6753 2483 close input larl %r2,X.6743 lt %r2,0(%r2) je .L791 .L594: larl %r1,SSTYPE.6800 mvhi 0(%r1),0 brasl %r14,CLOSEINPUT@PLT .LVL517: 2484 list = include list lrl %r1,INCLUDELIST.6795 strl %r1,LIST.6823 2485 include level = 0 larl %r1,INCLUDELEVEL.6796 mvhi 0(%r1),0 2486 include = 0; select input(source); %RETURN larl %r1,INCLUDE.6797 mvhi 0(%r1),0 .LVL518: .LBB545: .LBB546: lgrl %r1,_imp_InStream@GOTENT mvhi 0(%r1),1 lgrl %r1,_imp_InFile@GOTENT lgrl %r2,_imp_infile@GOTENT lg %r2,296(%r2) stg %r2,0(%r1) larl %r2,__PRETTY_FUNCTION__.6289 brasl %r14,check_instream@PLT .LVL519: j .L448 .LVL520: .L596: .LBE546: .LBE545: .LBB547: .LBB544: 2487 %FINISH 2488 ss = -1; !prog/file larl %r1,SS.6793 mvhi 0(%r1),-1 .L595: 2489 c(75):compile end(x); %RETURN; !%END 2490 lrl %r11,X.6743 .LVL514: .LBB542: .LBB543: 2491 c(85):%IF x=0 %THEN control=lit %ELSE %START; !control 2492 diag = lit&x'3FFF' %IF lit>>14&3 = 1 2493 %FINISH 2494 op('z'-x, lit) lhi %r2,122 larl %r1,X.6743 s %r2,0(%r1) lg %r1,192(%r15) lg %r0,8(%r1) lgfrl %r3,LIT.6820 lgfr %r2,%r2 brasl %r14,OP.6946 .LVL526: j .L764 .L610: 2495 ->top 2496 c(83):list = list+x-2; ->top; !%LIST/%ENDOFLIST 2497 c(84):reals ln = x; ->top; !%REALS long/normal lrl %r1,LIST.6823 larl %r2,X.6743 a %r1,0(%r2) ahi %r1,-2 strl %r1,LIST.6823 2498 c(86):%IF include # 0 %START; !include "file" j .L764 .L611: lrl %r1,X.6743 strl %r1,REALSLN.6774 2499 fault(7); %RETURN j .L764 .L612: larl %r1,INCLUDE.6797 lt %r1,0(%r1) je .L613 lg %r0,192(%r15) lghi %r2,7 brasl %r14,FAULT.6982 .LVL527: j .L448 .L613: 2500 %FINISH 2501 get next; !sconst lg %r0,200(%r15) brasl %r14,GETNEXT.7878 .LVL528: 2502 include file = string(x-x'4000'+stbase) 2503 %begin 2504 %on 9 %start; Abandon(9); %finish lghi %r4,63 la %r3,1362(%r15) lg %r1,192(%r15) lg %r2,8(%r1) algfi %r2,104454 brasl %r14,_imp_strncpy@PLT .LVL529: lghi %r3,1 lgrl %r1,_imp_event@GOTENT aghik %r2,%r1,536 brasl %r14,__sigsetjmp@PLT .LVL530: cijlh %r2,0,.L616 .LVL531: lghi %r3,512 lgrl %r2,_imp_event@GOTENT brasl %r14,_imp_on_event_enter@PLT .LVL532: cgijlh %r2,0,.L617 .LVL533: .L616: 2505 open input(3, include file) lg %r1,192(%r15) lg %r0,8(%r1) lghi %r2,9 brasl %r14,ABANDON.6872 .LVL534: .L617: mvc 512(256,%r15),1618(%r15) aghik %r3,%r15,512 lghi %r2,3 brasl %r14,OPENINPUT@PLT .LVL535: .L618: 2506 %end 2507 include = lines; lines = 0 lrl %r1,LINES.6753 strl %r1,INCLUDE.6797 2508 include list = list; include level = level larl %r1,LINES.6753 mvhi 0(%r1),0 lrl %r1,LIST.6823 strl %r1,INCLUDELIST.6795 2509 select input(3) lg %r1,192(%r15) l %r1,60(%r1) strl %r1,INCLUDELEVEL.6796 .LVL536: .LBB548: .LBB549: lgrl %r1,_imp_InStream@GOTENT mvhi 0(%r1),3 lgrl %r1,_imp_InFile@GOTENT lgrl %r2,_imp_infile@GOTENT lg %r2,872(%r2) stg %r2,0(%r1) larl %r2,__PRETTY_FUNCTION__.6289 brasl %r14,check_instream@PLT .LVL537: j .L764 .LVL538: .L619: .LBE549: .LBE548: 2510 ->top 2511 2512 c(154):dimension = dimension+1; !dbsep 2513 fault(11) %IF dimension = dim limit+1 lrl %r1,DIMENSION.6812 ahi %r1,1 strl %r1,DIMENSION.6812 cijlh %r1,7,.L764 2514 ->top lg %r0,192(%r15) lghi %r2,11 brasl %r14,FAULT.6982 .LVL539: j .L764 .L620: 2515 c(145):set bp; ->top; !crb 2516 c(146):set bp; !rcrb lg %r0,200(%r15) brasl %r14,SETBP.7910 .LVL540: j .L764 .L621: 2517 c(142): !bplrb lg %r0,200(%r15) brasl %r14,SETBP.7910 .LVL541: .L622: 2518 dimension = 1 %IF dimension = 0 larl %r1,DIMENSION.6812 lt %r1,0(%r1) jne .L623 2519 op('d', dimension); op(',', defs) larl %r1,DIMENSION.6812 mvhi 0(%r1),1 .L623: lg %r11,192(%r15) .LVL542: lg %r0,8(%r11) lgfrl %r3,DIMENSION.6812 lghi %r2,100 brasl %r14,OP.6946 .LVL543: 2520 %IF class # 146 %START lg %r0,8(%r11) lgf %r3,788(%r15) lghi %r2,44 brasl %r14,OP.6946 .LVL544: l %r1,796(%r15) chi %r1,146 jne .L794 .L624: .L626: 2521 set subs(defs) lg %r0,200(%r15) lgf %r2,788(%r15) brasl %r14,SETSUBS.7903 .LVL545: 2522 fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0 %OR level=0 lg %r2,8(%r11) l %r1,52(%r11) ahi %r1,-1 lgfr %r1,%r1 aghi %r1,13416 sllg %r1,%r1,1 la %r1,4(%r1,%r2) tm 0(%r1),128 je .L625 2523 %FINISH lt %r1,20(%r11) jne .L625 2524 dimension = 0; defs = 0 larl %r1,DIMENSION.6812 mvhi 0(%r1),0 lt %r1,60(%r11) jne .L626 .L625: 2525 ->top mvhi 788(%r15),0 j .L764 .L794: 2526 c(128):id = dupid; ->top; !EDUP lg %r0,192(%r15) lghi %r2,13 brasl %r14,FAULT.6982 .LVL546: j .L626 .LVL547: .L627: 2527 c(130):block x = x lg %r1,192(%r15) l %r2,252(%r15) st %r2,56(%r1) 2528 op('F', 0) %IF decl&spec = 0 %AND level # 0; !jump round proc j .L764 .L628: lrl %r1,X.6743 strl %r1,BLOCKX.6822 lrl %r1,DECL.6767 nilf %r1,1 cijlh %r1,0,.L631 2529 c(125):dupid = id; !%DUP lg %r1,192(%r15) lt %r1,60(%r1) jne .L795 2530 %return %if Level < 0 {spec about} lg %r1,192(%r15) l %r1,56(%r1) st %r1,252(%r15) .LVL548: j .L633 .LVL549: .L795: lg %r1,192(%r15) lg %r0,8(%r1) lghi %r3,0 lghi %r2,70 brasl %r14,OP.6946 .LVL550: .L629: .L631: lg %r1,192(%r15) l %r2,56(%r1) st %r2,252(%r15) .LVL551: lt %r1,60(%r1) jl .L448 .L632: .LVL552: .L633: 2531 c(90): def(x); ->top; !ident 2532 c(131): !cident lg %r0,200(%r15) lgfrl %r2,X.6743 brasl %r14,DEF.7928 .LVL553: j .L764 .L634: 2533 %IF tag(x)_flags&(b'1111111'+const bit) = iform+const bit %START lrl %r11,X.6743 .LVL554: lg %r1,192(%r15) lg %r2,8(%r1) lgfr %r1,%r11 sllg %r1,%r1,4 la %r1,221(%r1,%r2) tm 0(%r1),1 jne .L635 2534 tag(x)_format = lit lgfr %r11,%r11 aghi %r11,13 sllg %r11,%r11,4 lrl %r1,LIT.6820 st %r1,8(%r11,%r2) 2535 %FINISH %ELSE %START j .L764 .L635: 2536 set const(lit) %IF pending # 0 lt %r1,792(%r15) je .L636 2537 def(x) lgr %r0,%r2 lgfrl %r2,LIT.6820 brasl %r14,SETCONST.6949 .LVL555: .L636: lg %r0,200(%r15) lgfr %r2,%r11 brasl %r14,DEF.7928 .LVL556: 2538 op('A', 1) lg %r1,192(%r15) lg %r0,8(%r1) lghi %r3,1 lghi %r2,65 brasl %r14,OP.6946 .LVL557: j .L764 .LVL558: .L637: 2539 %FINISH 2540 cident = x 2541 ->top 2542 c(124):dubious = 1 %IF tag(cident)_flags&prot # 0; !%DUBIOUS 2543 ->top j .L764 .L638: .L641: .LBB550: .LBB551: 2544 c(97): !f larl %r1,DUBIOUS.6807 mvhi 0(%r1),1 .LDL30: 2545 c(98): !m 2546 c(99): !p 2547 c(96): call; ->top; !r 2548 2549 c(165): !nlab 2550 c(100): !rp 2551 c(101): !fp 2552 c(102): !mp 2553 c(103): !pp 2554 c(91): !v 2555 c(92): !n 2556 c(106): !a 2557 c(107): !an 2558 c(108): !na 2559 c(109): !nan 2560 k = tag(x)_index lg %r1,192(%r15) lg %r0,8(%r1) lgfrl %r1,X.6743 sllg %r1,%r1,4 lgr %r2,%r0 lh %r3,222(%r1,%r2) .LVL565: 2561 %IF k < 0 %THEN op('n', -k) %ELSE op('@', k) cijl %r3,0,.L796 .L653: 2562 ->top lcr %r3,%r3 .LVL568: lgfr %r3,%r3 lghi %r2,110 brasl %r14,OP.6946 .LVL569: j .L764 .L654: 2563 c(121):set const(0); ->top; !special for zero 2564 c(167):bp=bp+1; buff(bp)='G'; ->pstr; !aconst (alias) lg %r1,192(%r15) lg %r0,8(%r1) lghi %r2,0 brasl %r14,SETCONST.6949 .LVL570: j .L764 .L655: 2565 c(const): !const lgfr %r3,%r3 lghi %r2,64 brasl %r14,OP.6946 .LVL566: j .L764 .L648: j .L652 .L649: j .L652 .L650: j .L652 .L651: j .L652 .LVL567: .L796: lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2566 %IF x < 0 %START; !constinteger lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),71 .L656: larl %r1,X.6743 lt %r1,0(%r1) jl .L797 .L658: 2567 set const(tag(-x)_format); ->top lg %r3,192(%r15) lg %r2,8(%r3) lcr %r1,%r1 lgfr %r1,%r1 aghi %r1,13 sllg %r1,%r1,4 lgr %r0,%r2 lgf %r2,8(%r1,%r2) brasl %r14,SETCONST.6949 .LVL576: j .L764 .L660: 2568 %FINISH 2569 %IF x&x'4000' # 0 %START; !strings 2570 bp=bp+1 %AND buff(bp)='''' lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2571 pstr: x = x-x'4000'+stbase lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),39 j .L656 .L797: 2572 k = byteinteger(x) lrl %r1,X.6743 ahik %r3,%r1,-16384 larl %r1,STBASE.6789 a %r3,0(%r1) strl %r3,X.6743 lgfr %r1,%r3 llgc %r1,0(%r1) .LVL571: 2573 bp=bp+1 %AND buff(bp)=k lrl %r2,BP.6830 ahik %r0,%r2,1 strl %r0,BP.6830 2574 k = k+x lg %r11,192(%r15) .LVL572: lg %r4,8(%r11) lgfr %r2,%r2 stcy %r1,104710(%r2,%r4) ark %r2,%r3,%r1 .LVL573: 2575 %CYCLE 2576 ->top %IF x = k crje %r3,%r2,.L764 lr %r1,%r3 sr %r0,%r3 sr %r2,%r3 .LVL574: .L659: ark %r3,%r1,%r0 brct %r2,.L659 strl %r1,X.6743 ar %r1,%r0 strl %r1,BP.6830 j .L764 .LVL575: .L657: 2577 x = x+1; bp=bp+1 %AND buff(bp)=byteinteger(x) ahi %r1,1 2578 %REPEAT 2579 %FINISH lgfr %r5,%r1 lg %r4,8(%r11) lgfr %r3,%r3 lay %r3,104710(%r3,%r4) mvc 0(1,%r3),0(%r5) .LDL32: 2580 %IF x&x'2000' # 0 %START; !real 2581 x = x-x'2000'+stbase 2582 k = byteinteger(x) 2583 op('D', k); bp=bp+1 %AND buff(bp)=',' 2584 k = k+x 2585 %CYCLE 2586 ->top %IF x = k 2587 x = x+1; j = byteinteger(x) 2588 %IF j = '@' %START 2589 op('@', litpool(byteinteger(x+1))); ->top 2590 %FINISH 2591 bp=bp+1 %AND buff(bp)=j 2592 %REPEAT 2593 %FINISH 2594 set const(lit pool(x)) 2595 ->top 2596 2597 c(137):bp=bp+1 %AND buff(bp)='i'; ->top; !asep 2598 c(141):bp=bp+1 %AND buff(bp)='a'; ->top; !arb lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2599 lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),105 lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2600 !own arrays j .L764 .L661: lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),97 2601 j .L764 .L662: 2602 c(132):ocount = ub-lb+1 2603 def(x); !oident lrl %r1,UB.7856 larl %r2,LB.7855 s %r1,0(%r2) ahi %r1,1 strl %r1,OCOUNT.6802 lg %r11,200(%r15) .LVL577: lgr %r0,%r11 lgfrl %r2,X.6743 brasl %r14,DEF.7928 .LVL578: 2604 dimension = 1; set subs(1) larl %r1,DIMENSION.6812 mvhi 0(%r1),1 2605 %IF next = 0 %START; !no initialisation lgr %r0,%r11 lghi %r2,1 brasl %r14,SETSUBS.7903 .LVL579: lt %r1,804(%r15) jne .L663 2606 op('A', ocount) %IF ocount > 0 larl %r1,OCOUNT.6802 lt %r3,0(%r1) jh .L798 .L664: 2607 ocount = -1 larl %r1,OCOUNT.6802 mvhi 0(%r1),-1 lg %r1,192(%r15) lg %r0,8(%r1) lgfr %r3,%r3 lghi %r2,65 brasl %r14,OP.6946 .LVL580: j .L664 .L663: 2608 %FINISH %ELSE %START; !initialisation given j .L764 .L798: 2609 get next lg %r0,200(%r15) brasl %r14,GETNEXT.7878 .LVL581: j .L764 .LVL582: .L665: 2610 %FINISH 2611 ->top 2612 c(162):lit = ocount; ->ins; !indef 2613 c(143):pop lit; !orb lrl %r1,OCOUNT.6802 strl %r1,LIT.6820 .L666: 2614 ins: fault(10) %AND lit = 0 %IF lit < 0 lg %r0,200(%r15) brasl %r14,POPLIT.7975 .LVL589: j .L666 .L799: 2615 get next larl %r1,LIT.6820 lt %r1,0(%r1) jl .L799 .L668: lg %r0,200(%r15) brasl %r14,GETNEXT.7878 .LVL583: .L669: 2616 ->inst lg %r0,192(%r15) lghi %r2,10 brasl %r14,FAULT.6982 .LVL590: 2617 c(139): !osep (x=19) larl %r1,LIT.6820 mvhi 0(%r1),0 j .L668 .L670: .L671: 2618 c(153):lit = 1 2619 inst: pop def %IF pending # 0; !ownt (x=0) larl %r1,LIT.6820 mvhi 0(%r1),1 j .L669 .LVL591: .L800: 2620 op('A', lit) lt %r1,792(%r15) je .L672 .LBB552: .LBB553: lrl %r11,LIT.6820 .LVL585: lg %r1,192(%r15) lg %r0,8(%r1) lgfr %r3,%r11 lghi %r2,65 brasl %r14,OP.6946 .LVL586: 2621 ocount = ocount-lit lrl %r1,OCOUNT.6802 sr %r1,%r11 strl %r1,OCOUNT.6802 2622 %IF ocount >= 0 %START cijl %r1,0,.L675 2623 ->top %IF x # 0; !more coming larl %r2,X.6743 lt %r2,0(%r2) jne .L764 .L674: 2624 ocount = -1 %AND %RETURN %IF ocount = 0; !all done cije %r1,0,.L800 .L673: .L675: 2625 %FINISH larl %r1,OCOUNT.6802 mvhi 0(%r1),-1 2626 fault(11); %RETURN lg %r0,192(%r15) lghi %r2,11 brasl %r14,FAULT.6982 .LVL587: j .L448 .LVL588: .L667: j .L448 .LVL592: .L676: 2627 2628 c(swit):op('W', tag(x)_index); inhibit = 1; ->atop 2629 c(134):def(x); !swid lg %r11,192(%r15) .LVL593: lg %r2,8(%r11) lgfrl %r1,X.6743 sllg %r1,%r1,4 lgr %r0,%r2 lgh %r3,222(%r1,%r2) lghi %r2,87 brasl %r14,OP.6946 .LVL594: 2630 n = ub-lb+1 mvhi 20(%r11),1 lg %r0,200(%r15) lgfrl %r2,X.6743 brasl %r14,DEF.7928 .LVL596: lrl %r2,UB.7856 larl %r1,LB.7855 .LVL597: s %r2,0(%r1) 2631 n = (n+15)>>4; !slots needed (includes zero) j .L486 .LVL595: .L677: ahi %r2,16 srlk %r11,%r2,4 .LVL598: 2632 j = dmax; dmax = dmax+n+2 lrl %r10,DMAX.6791 .LVL599: 2633 abandon(1) %IF dmax >= dmin ark %r1,%r11,%r10 ahi %r1,2 strl %r1,DMAX.6791 lg %r2,192(%r15) c %r1,52(%r2) jhe .L801 .L678: 2634 tag(x)_format = j lg %r4,192(%r15) lg %r2,8(%r4) lgfrl %r1,X.6743 aghi %r1,13 sllg %r1,%r1,4 st %r10,8(%r1,%r2) lg %r0,8(%r2) lghi %r2,1 brasl %r14,ABANDON.6872 .LVL605: j .L678 .LVL606: .L680: 2635 dict(j) = lb; dict(j+1) = ub lg %r2,8(%r4) ahik %r1,%r10,-1 lgfr %r1,%r1 aghi %r1,13416 sllg %r1,%r1,1 lhrl %r3,LB.7855+2 sth %r3,4(%r1,%r2) 2636 %CYCLE lg %r2,8(%r4) lgfr %r1,%r10 aghi %r1,13416 sllg %r1,%r1,1 lhrl %r3,UB.7856+2 sth %r3,4(%r1,%r2) .LVL600: 2637 n = n-1 ahik %r1,%r11,-1 .LVL601: 2638 ->top %IF n < 0 cijl %r1,0,.L764 lr %r2,%r11 .LVL602: .L679: brct %r2,.L679 j .L764 .LVL604: .L801: 2639 j = j+1; dict(j+1) = 0 ahi %r10,1 .LVL603: 2640 %REPEAT lg %r3,8(%r4) lgfr %r1,%r10 aghi %r1,13416 sllg %r1,%r1,1 la %r1,4(%r1,%r3) mvhhi 0(%r1),0 .LDL33: 2641 c(151):stats = stats-1; !slab 2642 fault(7) %AND %RETURN %IF x < tbase lrl %r1,STATS.6759 ahi %r1,-1 strl %r1,STATS.6759 lrl %r1,X.6743 lg %r2,192(%r15) c %r1,68(%r2) jl .L802 .L681: 2643 %IF pending # 0 %START; !explicit label lt %r2,792(%r15) jne .L803 .L682: lgfr %r2,%r1 sllg %r2,%r2,4 lg %r3,192(%r15) ag %r2,8(%r3) lgr %r0,%r2 lghi %r2,7 brasl %r14,FAULT.6982 .LVL618: j .L448 .L803: 2644 def s lab(pstack(1)) aghik %r0,%r15,768 lgfrl %r2,PSTACK.7871 brasl %r14,DEFSLAB.7952 .LVL619: .L683: .L691: 2645 %FINISH %ELSE %START 2646 fault(4) %AND %RETURN %IF tag(x)_app # 0 lt %r3,212(%r2) jne .L804 .L684: 2647 tag(x)_app = 1 mvhi 212(%r2),1 lg %r0,192(%r15) lghi %r2,4 brasl %r14,FAULT.6982 .LVL621: j .L448 .LVL622: .L805: .LBB557: 2648 n = tag(x)_format lg %r2,192(%r15) lg %r2,8(%r2) .LVL607: lgfr %r1,%r1 .LVL608: aghi %r1,13 .LVL609: sllg %r1,%r1,4 .LVL610: lgf %r1,8(%r1,%r2) sllg %r1,%r1,1 agr %r1,%r2 .LBB554: 2649 %FOR j = dict(n), 1, dict(n+1) %CYCLE 2650 def s lab(j) lhy %r11,26834(%r1) .LVL611: lhy %r10,26836(%r1) .LVL612: .LBB555: aghik %r6,%r15,768 sr %r10,%r11 .LVL616: lg %r9,192(%r15) j .L689 .LVL617: .L802: .LBE554: lgr %r0,%r6 lgfr %r2,%r11 brasl %r14,DEFSLAB.7952 .LVL631: 2651 flush buffer %IF bp >= 128 srk %r1,%r10,%r11 .LVL613: .LBE555: cijl %r1,0,.L805 .LVL614: .L685: lgrl %r1,_imp_current_file@GOTENT .LVL623: ltg %r3,0(%r1) je .L686 la %r2,3666(%r15) .LVL624: brasl %r14,_imp_c2istr@PLT .LVL625: .L687: lgrl %r1,_imp_current_line@GOTENT lt %r9,0(%r1) ltr %r9,%r9 lhi %r1,2651 locrne %r1,%r9 lr %r9,%r1 larl %r3,.LC82 la %r2,3922(%r15) brasl %r14,_imp_c2istr@PLT .LVL626: mvc 512(256,%r15),3666(%r15) mvc 256(256,%r15),3922(%r15) mvghi 160(%r15),0 lghi %r6,1 lghi %r5,5 la %r4,256(%r15) lgfr %r3,%r9 la %r2,512(%r15) brasl %r14,_signal_event@PLT .LVL627: j .L685 .LVL628: .L686: .LBB556: larl %r1,.LC15 mvc 3154(256,%r15),0(%r1) mvc 1874(256,%r15),3154(%r15) .LBE556: mvc 3666(256,%r15),1874(%r15) j .L687 .LVL629: .L690: larl %r1,BP.6830 chsi 0(%r1),127 jle .L690 2652 %REPEAT ahi %r11,-1 .LVL615: lg %r0,8(%r9) brasl %r14,FLUSHBUFFER.6840 .LVL632: j .L690 .LVL633: .L692: .LBE557: 2653 %FINISH 2654 inhibit = 1 crje %r10,%r11,.L691 lg %r1,192(%r15) mvhi 20(%r1),1 brct %r10,.L689 j .L691 .L689: 2655 %RETURN j .L448 .LVL620: .L804: ahi %r11,1 .LVL630: 2656 2657 c(140):bp=bp+1 %AND buff(bp)='p'; ->top; !psep 2658 c(144):buff(bp+1)='p'; buff(bp+2)='E'; bp=bp+2; ->top; !prb lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2659 lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),112 lrl %r1,BP.6830 lg %r4,192(%r15) lg %r3,8(%r4) lgfr %r2,%r1 lay %r2,104710(%r2,%r3) mvi 0(%r2),112 2660 !constant expressions j .L764 .L693: lg %r3,8(%r4) ahik %r2,%r1,1 lgfr %r2,%r2 lay %r2,104710(%r2,%r3) mvi 0(%r2),69 2661 ahi %r1,2 strl %r1,BP.6830 2662 c(155): !pconst j .L764 .L694: 2663 %IF x < 0 %THEN lit = tag(-x)_format %c larl %r1,X.6743 lt %r1,0(%r1) jl .L806 .L695: 2664 %ELSE lit = lit pool(x) lg %r2,192(%r15) lg %r2,8(%r2) lcr %r1,%r1 lgfr %r1,%r1 aghi %r1,13 sllg %r1,%r1,4 l %r1,8(%r1,%r2) strl %r1,LIT.6820 2665 pending = pending+1; pstack(pending) = lit; ->top l %r1,792(%r15) ahik %r2,%r1,1 st %r2,792(%r15) j .L696 .L697: 2666 c(156):lit = pstack(pending); lit = -lit %IF lit < 0 lgfr %r1,%r1 sllg %r1,%r1,2 larl %r2,PSTACK.7871 lrl %r3,LIT.6820 st %r3,0(%r1,%r2) 2667 pstack(pending) = lit; ->top; !cmod lg %r2,192(%r15) lg %r2,8(%r2) lgfr %r1,%r1 sllg %r1,%r1,2 l %r1,0(%r1,%r2) strl %r1,LIT.6820 .L696: j .L764 .L806: l %r1,792(%r15) ahi %r1,-1 lgfr %r2,%r1 sllg %r2,%r2,2 larl %r3,PSTACK.7871 l %r2,0(%r2,%r3) strl %r2,LIT.6820 lgfr %r1,%r1 sllg %r1,%r1,2 larl %r2,PSTACK.7871 lrl %r3,LIT.6820 st %r3,0(%r1,%r2) 2668 c(157):lit = -pstack(pending); pstack(pending) = lit; ->top; !csign cijl %r2,0,.L807 .L698: j .L764 .L807: 2669 c(158):lit = \pstack(pending); pstack(pending) = lit; ->top; !cuop lcr %r2,%r2 strl %r2,LIT.6820 j .L698 .L699: l %r1,792(%r15) ahi %r1,-1 larl %r3,PSTACK.7871 lgfr %r1,%r1 sllg %r1,%r1,2 l %r2,0(%r1,%r3) lcr %r2,%r2 strl %r2,LIT.6820 2670 c(159): !cop1 st %r2,0(%r1,%r3) l %r1,792(%r15) ahi %r1,-1 larl %r3,PSTACK.7871 lgfr %r1,%r1 sllg %r1,%r1,2 l %r2,0(%r1,%r3) xilf %r2,4294967295 strl %r2,LIT.6820 2671 c(160): !cop2 j .L764 .L700: st %r2,0(%r1,%r3) 2672 c(161):pending = pending-1; !cop3 j .L764 .L701: .L703: 2673 lit2 = pstack(pending+1); lit = pstack(pending) l %r1,792(%r15) ahik %r2,%r1,-1 st %r2,792(%r15) larl %r3,PSTACK.7871 lgfr %r2,%r2 sllg %r2,%r2,2 l %r2,0(%r2,%r3) st %r2,232(%r15) .LVL634: 2674 ->litop(x>>2) ahi %r1,-2 lgfr %r1,%r1 sllg %r1,%r1,2 l %r1,0(%r1,%r3) strl %r1,LIT.6820 .LVL635: lrl %r1,X.6743 srl %r1,2 st %r1,236(%r15) .LVL636: larl %r1,.LC76 .LVL637: stg %r1,240(%r15) mvhi 248(%r15),2674 .LVL638: .L704: 2675 litop(10):lit = lit*lit2; ->setl 2676 litop(12): lrl %r1,LIT.6820 ms %r1,232(%r15) strl %r1,LIT.6820 2677 litop(3):n = 1; !lit = lit\\lit2 j .L722 .L707: .L708: .LVL641: 2678 fault(10) %IF lit2 < 0 l %r1,232(%r15) cijl %r1,0,.L808 .L709: .LVL642: 2679 %WHILE lit2 > 0 %CYCLE lg %r0,192(%r15) lghi %r2,10 brasl %r14,FAULT.6982 .LVL649: j .L709 .LVL650: .L751: 2680 lit2 = lit2-1 l %r4,232(%r15) lr %r1,%r4 cijle %r4,0,.L751 ahi %r4,-1 .LVL644: brct %r1,.L711 st %r4,232(%r15) .LVL646: .L710: lhi %r2,1 j .L710 .LVL651: .L712: 2681 n = n*lit lrl %r3,LIT.6820 lhi %r2,1 .LVL643: .L711: msr %r2,%r3 .LVL645: 2682 %REPEAT 2683 lit = n; ->setl strl %r2,LIT.6820 .L706: .LVL647: .L722: 2684 litop(1):lit = lit<setl 2685 litop(2):lit = lit>>lit2; ->setl lrl %r1,LIT.6820 l %r2,232(%r15) sll %r1,0(%r2) strl %r1,LIT.6820 2686 litop(5):lit = lit&lit2; ->setl j .L722 .L713: lrl %r1,LIT.6820 l %r2,232(%r15) srl %r1,0(%r2) strl %r1,LIT.6820 2687 litop(11): j .L722 .L714: lrl %r1,LIT.6820 n %r1,232(%r15) strl %r1,LIT.6820 2688 litop(4):%IF lit2 = 0 %THEN fault(10) %ELSE lit = lit//lit2 j .L722 .L715: .L716: 2689 ->setl l %r1,232(%r15) cije %r1,0,.L809 .L717: 2690 litop(8):lit = lit+lit2; ->setl lg %r0,192(%r15) lghi %r2,10 brasl %r14,FAULT.6982 .LVL652: j .L722 .L718: 2691 litop(9):lit = lit-lit2; ->setl lrl %r1,LIT.6820 a %r1,232(%r15) strl %r1,LIT.6820 2692 litop(6):lit = lit!lit2; ->setl j .L722 .L719: lrl %r1,LIT.6820 s %r1,232(%r15) strl %r1,LIT.6820 2693 litop(7):lit = lit!!lit2 lgfrl %r2,LIT.6820 lgr %r5,%r2 dsgf %r4,232(%r15) strl %r5,LIT.6820 j .L722 .L809: j .L722 .L720: lrl %r1,LIT.6820 o %r1,232(%r15) strl %r1,LIT.6820 2694 j .L722 .L721: lrl %r1,LIT.6820 x %r1,232(%r15) strl %r1,LIT.6820 j .L722 .L723: 2695 setl: pstack(pending) = lit; ->top 2696 l %r1,792(%r15) ahi %r1,-1 lgfr %r1,%r1 sllg %r1,%r1,2 larl %r2,PSTACK.7871 lrl %r3,LIT.6820 st %r3,0(%r1,%r2) 2697 c(170):Fault(4) %if IMPCOM_Option # "" j .L764 .LVL648: .L808: 2698 IMPCOM_Option = String(x-x'4000'+Stbase); !Option string 2699 ->Top 2700 aghik %r3,%r15,2130 lgrl %r1,IMPCOM@GOTENT aghik %r2,%r1,280 brasl %r14,_imp_strcmp@PLT .LVL653: cije %r2,0,.L724 lghi %r4,255 la %r3,2386(%r15) lgrl %r1,IMPCOM@GOTENT aghik %r2,%r1,280 brasl %r14,_imp_strncpy@PLT .LVL655: j .L764 .L725: .LVL656: 2701 !string resolution 2702 2703 c(135):resln = 2; ->top; !dotl lg %r0,192(%r15) lghi %r2,4 brasl %r14,FAULT.6982 .LVL654: .L724: 2704 c(136):resln = resln+1; ->top; !dotr mvhi 220(%r15),2 2705 c(55): op('r', resln); resln = 0; ->top; !resop j .L764 .LVL657: .L726: asi 220(%r15),1 .LVL658: 2706 c(164):op('r', resln+4); resln = 0; !cresop j .L764 .L727: lg %r1,192(%r15) lg %r0,8(%r1) lgf %r3,220(%r15) lghi %r2,114 brasl %r14,OP.6946 .LVL659: 2707 c(122):x = 6; ->cop; !%PRED mvhi 220(%r15),0 .LVL660: j .L764 .LVL661: .L728: l %r3,220(%r15) ahi %r3,4 lg %r1,192(%r15) lg %r0,8(%r1) lgfr %r3,%r3 lghi %r2,114 brasl %r14,OP.6946 .LVL662: 2708 c(87): set const(pstack(1)); !mass mvhi 220(%r15),0 .LVL663: .L729: larl %r1,X.6743 mvhi 0(%r1),6 .L571: .L574: 2709 bp=bp+1 %AND buff(bp)='P'; ->top lg %r11,192(%r15) .LVL669: lg %r0,8(%r11) lgfrl %r2,PSTACK.7871 brasl %r14,SETCONST.6949 .LVL670: lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2710 %END lg %r2,8(%r11) lgfr %r1,%r1 lay %r1,104710(%r1,%r2) mvi 0(%r1),80 .L462: 2711 j .L764 .LVL671: .L465: 2712 %END; !of compile block clijh %r11,180,.L465 .L466: lgrl %r1,_imp_current_file@GOTENT ltg %r3,0(%r1) je .L731 lay %r2,4178(%r15) brasl %r14,_imp_c2istr@PLT .LVL672: .L732: lgrl %r1,_imp_current_line@GOTENT lt %r3,0(%r1) ltr %r3,%r3 lhi %r1,2712 locrne %r1,%r3 lr %r3,%r1 lay %r1,4178(%r15) mvc 256(256,%r15),0(%r1) lgfr %r6,%r11 mvghi 184(%r15),2225 larl %r1,.LC76 stg %r1,176(%r15) stg %r6,168(%r15) larl %r1,.LC83 stg %r1,160(%r15) lghi %r5,3 lghi %r4,6 lgfr %r3,%r3 la %r2,256(%r15) brasl %r14,_signal_eventf@PLT .LVL673: j .L466 .L731: .LBB558: larl %r1,.LC15 mvc 3154(256,%r15),0(%r1) mvc 2642(256,%r15),3154(%r15) .LBE558: lay %r1,4178(%r15) mvc 0(256,%r1),2642(%r15) j .L732 .LVL674: .L735: 2713 lgfr %r1,%r11 sllg %r1,%r1,3 larl %r2,C.7698 lg %r1,0(%r1,%r2) lgfr %r11,%r11 aghik %r10,%r15,256 .LVL434: .L734: br %r1 .LVL435: .L775: ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 clc 2072(8,%r15),40(%r1) jne .L967 lg %r4,2192(%r15) lmg %r6,%r15,2128(%r15) br %r4 .L966: brasl %r14,__stack_chk_fail@PLT .LVL866: .LFE191: .section .rodata .align 2 .LC2: .byte 90 .byte 90 .byte 90 .byte 90 .byte 90 .byte 48 .byte 48 .byte 19 .byte 19 .byte 19 .byte 19 .byte 25 .byte 25 .byte 25 .byte 25 .byte 25 .byte 25 .byte 25 .byte 23 .byte 104 .byte 104 .byte 105 .byte 30 .byte 20 .byte 21 .byte 93 .byte 47 .byte 45 .byte 46 .byte 42 .byte 43 .byte 44 .byte 40 .byte 68 .byte 55 .byte 104 .byte 60 .byte 93 .byte 25 .byte 40 .byte 93 .byte 23 .byte 25 .byte 57 .byte 25 .byte 90 .byte -80 .byte -79 .byte -78 .byte -77 .align 2 .LC3: .word 24 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 23 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 20 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word -32551 .word 0 .word 0 .word 0 .word 0 .word 13 .word 0 .word 14 .word 4 .word -32557 .word 16 .word -32550 .word 0 .word 0 .word 5 .word 6 .word 3 .word 12 .word 15 .word 8 .word 7 .word 9 .word 10 .word 11 .word -32558 .word -32554 .word -32559 .word -32552 .word -32553 .word 18 .word 22 .word 17 .word 21 .word 19 .word 0 .word 0 .word 0 .word -32562 .word -32560 .word 0 .word 0 .word 0 .word -32561 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 1 .word 2 .word 0 .word -32556 .word 0 .word -32555 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .align 2 .LC4: .word 0 .word 511 .word 131 .word 531 .word 131 .word 551 .word 559 .word 131 .word 567 .word 575 .word 583 .word 603 .word 623 .word 631 .word 663 .word 671 .word 129 .word 129 .word 129 .word 129 .word 129 .word 129 .word 129 .word 129 .word 129 .word 129 .word 691 .word 698 .word 707 .word 751 .word 795 .word 131 .word 131 .word 824 .word 900 .word 960 .word 1076 .word 1120 .word 1280 .word 128 .word 128 .word 1392 .word 128 .word 128 .word 1460 .word 1556 .word 1592 .word 1660 .word 1748 .word 128 .word 1828 .word 2044 .word 2240 .word 2272 .word 128 .word 2312 .word 128 .word 128 .word 128 .word 2331 .word 2339 .word 2371 .word 2379 .word 2399 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 131 .word 2407 .word 131 .word 2379 .word -32351 .word 16428 .word 25 .word 16428 .word 29 .word -32349 .word 16433 .word 1 .word 16434 .word 1 .word -16127 .word 0 .word 16427 .word 21 .word 16407 .word 0 .word 16409 .word 0 .word -32323 .word -10840 .word 40 .word 16471 .word 0 .word -32341 .word -10580 .word 32 .word 16473 .word 117 .word 16384 .word 19 .word -31955 .word -32322 .word -10580 .word 36 .word -9290 .word 0 .word 16473 .word 113 .word 16432 .word 13 .word -32337 .word 16427 .word 46 .word 16427 .word 17 .word 16405 .word 0 .word 16404 .word 0 .word -31556 .word -31939 .word -32322 .word -9551 .word 2 .word 16433 .word 1 .word 16433 .word 5 .word 16426 .word 5 .word -31606 .word -32323 .word -9807 .word 0 .word -32374 .word -9678 .word 0 .word 16436 .word 0 .word 16435 .word 0 .word -31939 .word -32322 .word 16433 .word 4 .word 16426 .word 9 .word 16433 .word 3 .word -30772 .word -31666 .word 10578 .word 11457 .word -32344 .word 16413 .word 2 .word 16411 .word 2 .word 68 .word -32374 .word 16440 .word 0 .word 16440 .word 0 .word 8393 .word 83 .word 16408 .word 0 .word -31291 .word 10841 .word 69 .word -32311 .word 16412 .word 18 .word 10830 .word 9157 .word 10565 .word 16412 .word 18 .word 9415 .word 78 .word 16458 .word 0 .word -32049 .word 8665 .word 8908 .word 16455 .word 0 .word -30131 .word 78 .word -31277 .word 84 .word -32055 .word 10194 .word 76 .word 16469 .word 0 .word 10958 .word 69 .word 16447 .word 32 .word 84 .word -32319 .word 16418 .word 2 .word 10830 .word 16418 .word 2 .word 8909 .word 10830 .word 16406 .word 0 .word -31927 .word 10073 .word 9921 .word 8649 .word 16419 .word 5 .word 9153 .word 10190 .word 8915 .word 16469 .word 1 .word -27956 .word -31282 .word 88 .word -31927 .word 8916 .word 10066 .word 9793 .word 16419 .word 3 .word 84 .word 16447 .word 4 .word 68 .word -32305 .word 16459 .word 2 .word 70 .word -30650 .word -31284 .word 80 .word -31931 .word 10194 .word 10567 .word 9921 .word 16460 .word 1 .word 9938 .word 16461 .word 0 .word 10697 .word 84 .word 16467 .word 3 .word 9801 .word 69 .word 16460 .word 0 .word 8915 .word 16452 .word 0 .word -29631 .word -30903 .word -31282 .word -31793 .word 10069 .word 10819 .word 10185 .word 78 .word 16416 .word 9 .word 82 .word 16445 .word 0 .word 16416 .word 9 .word 9422 .word 9299 .word -32315 .word 16453 .word 0 .word 10700 .word 69 .word 16454 .word 0 .word 10700 .word 69 .word 16464 .word 1210 .word -30778 .word 78 .word -31549 .word 8916 .word 8903 .word 82 .word -32344 .word 16412 .word 17 .word 16472 .word 17 .word 10956 .word 8900 .word 16470 .word 0 .word 16446 .word 44 .word -30143 .word -30647 .word 10063 .word 71 .word -31671 .word -32302 .word 16412 .word 20 .word 8389 .word 76 .word 16412 .word 36 .word 10830 .word 9157 .word 10565 .word 16412 .word 20 .word 10835 .word 16467 .word 1 .word 8898 .word 76 .word 16425 .word 6 .word -31935 .word 10063 .word 10825 .word 10575 .word 16465 .word 109 .word 80 .word 16416 .word 10 .word -32191 .word 10831 .word 16442 .word 0 .word 8909 .word -32314 .word 16414 .word 1 .word -31794 .word 10069 .word 10819 .word 10185 .word 78 .word 16416 .word 10 .word 16416 .word 10 .word -30770 .word -31408 .word -32174 .word 10071 .word 16418 .word 1 .word -32374 .word 16441 .word 2 .word 16441 .word 2 .word 9428 .word 10063 .word 16402 .word 0 .word -32315 .word 16448 .word 0 .word 8918 .word 10830 .word 16448 .word 0 .word -30523 .word 82 .word -31419 .word -31927 .word 9167 .word 8402 .word 77 .word 16457 .word 0 .word 77 .word 16419 .word 6 .word 9412 .word 8387 .word 8916 .word 16415 .word 123 .word 9938 .word 16419 .word 7 .word -31931 .word 10959 .word 9428 .word 8910 .word 16415 .word 104 .word -28351 .word -30397 .word -31024 .word -32045 .word 10964 .word 10066 .word 16464 .word 1319 .word 9813 .word 7892 .word -32323 .word 16462 .word 1384 .word 16463 .word 1241 .word 8389 .word 84 .word 16456 .word 0 .word 10575 .word 68 .word -32314 .word 16421 .word 64 .word 10575 .word 8397 .word 84 .word -32301 .word 16422 .word 9 .word 8912 .word 67 .word 16422 .word 12 .word 76 .word -32301 .word 16412 .word 33 .word -31924 .word 10190 .word 9938 .word 9793 .word 16468 .word 1 .word 10063 .word 71 .word 16468 .word 4 .word -27704 .word -28983 .word -29488 .word -31276 .word -31913 .word 10713 .word 8916 .word 77 .word 16419 .word 4 .word 10825 .word 9283 .word 16417 .word 12 .word -31423 .word -31921 .word 9426 .word 9166 .word 40 .word 16420 .word 48 .word 80 .word 16466 .word 115 .word 10834 .word 16451 .word 0 .word 8645 .word 16423 .word 0 .word 10055 .word 9793 .word -32315 .word 16449 .word 0 .word 8918 .word 10830 .word 16449 .word 0 .word 10575 .word 84 .word -32311 .word 16412 .word 19 .word 10830 .word 9157 .word 10565 .word 16412 .word 19 .word -32056 .word 10962 .word 69 .word 16464 .word 1354 .word 10053 .word 16450 .word 0 .word 78 .word -32052 .word 9428 .word 76 .word 16444 .word 182 .word 10693 .word 83 .word 16446 .word 46 .word 9416 .word 8908 .word 16443 .word 180 .word 16407 .word 0 .word -31939 .word -32292 .word -10454 .word 51 .word 16426 .word 13 .word 16433 .word 1 .word 16409 .word 0 .word -32290 .word -10454 .word 51 .word 16426 .word 13 .word 16410 .word 0 .word 16431 .word 14 .word -32323 .word 16430 .word 51 .word 16433 .word 1 .align 2 .LC5: .byte 7 .string "LISTING" .zero 247 .align 2 .LC6: .byte 9 .string "prims.inc" .zero 245 .align 2 .LC7: .byte 44 .string " Edinburgh IMP77 Compiler - Version " .zero 210 .text .align 8 .globl main main: .LFB185: 2714 %ON 9 %START lghi %r3,1 lgrl %r1,_imp_event@GOTENT aghik %r2,%r1,536 brasl %r14,__sigsetjmp@PLT .LVL869: cijlh %r2,0,.L975 .LVL870: lghi %r3,512 lgrl %r2,_imp_event@GOTENT brasl %r14,_imp_on_event_enter@PLT .LVL871: cgije %r2,0,.L975 .LVL872: .L976: 2715 abandon(5) aghik %r1,%r15,4434 stg %r1,224(%r15) .LVL421: .L764: lgrl %r1,_imp_current_file@GOTENT ltg %r3,0(%r1) je .L736 lg %r2,224(%r15) brasl %r14,_imp_c2istr@PLT .LVL675: .L737: lgrl %r1,_imp_current_line@GOTENT lt %r3,0(%r1) ltr %r3,%r3 lhi %r1,2715 locrne %r1,%r3 lr %r3,%r1 lay %r1,4434(%r15) mvc 256(256,%r15),0(%r1) mvghi 184(%r15),2225 larl %r1,.LC76 stg %r1,176(%r15) stg %r11,168(%r15) larl %r1,.LC84 stg %r1,160(%r15) lgr %r6,%r11 lghi %r5,2 lghi %r4,8 lgfr %r3,%r3 lgr %r2,%r10 brasl %r14,_signal_eventf@PLT .LVL676: j .L704 .L736: .LBB559: larl %r1,.LC15 mvc 3154(256,%r15),0(%r1) mvc 2898(256,%r15),3154(%r15) .LBE559: lay %r1,4434(%r15) mvc 0(256,%r1),2898(%r15) j .L737 .L740: .LBB560: aghik %r0,%r15,2208 lghi %r2,5 brasl %r14,ABANDON.6872 .LVL887: j .L976 .section .rodata .align 8 .L982: .L1107: .quad 0 .quad 0 .L1106: .quad 4995410432312410112 .L1105: .quad 4995410359517069657 .L1104: .quad 4995410423941382912 .L1103: .quad 4995410372182867968 .L1102: .quad 5282240039223640832 .L1101: .quad 5927668732373778944 .L1100: .quad 5927104652603555840 .L1099: .quad 5279420865909555200 .L1098: .quad 5928218449616568320 .L1097: .quad 5282240039525372416 .L1096: .quad 4849331521011580928 .L1095: .quad 5570761721477332992 .L1094: .quad 5064671912576155648 .L1093: .quad 4850181443504177152 .L1092: .quad 5928236041802612736 .L1091: .quad 6004514729346990080 .L1090: .quad 5638878721681739776 .L1089: .quad 5283643033437339648 .L1088: .quad 5279723239621263360 .L1087: .quad 5279723239604486144 .L1086: .quad 5999726326154526720 .L1085: .quad 4706915001180356608 .L1084: .quad 5999726326411689984 .L1083: .quad 5927668732373762048 .L1082: .quad 4848482719442665472 .L1081: .quad 6005349185920958464 .L1080: .quad 6005343692439683072 .L1079: .quad 5643082154830200832 .L1078: .quad 4702960079140290560 .L1077: .quad 4774188636903067648 .L1076: .quad 2685076996321004613 .L1075: .quad 2688460171940855808 .L1074: .quad 2684792231181352960 .L1073: .quad 2688720799078875136 .L1072: .quad 2688455761222172672 .L1071: .quad 2689569630965026885 .L1070: .quad 2685064936002771200 .L1069: .quad 2687878560336904192 .L1068: .quad 2686209441791213568 .L1067: .quad 2687610227910246400 .L1066: .quad 2686187515945156608 .L1065: .quad 2688741720115707904 .L1064: .quad 2689569630897459028 .L1063: .quad 2688739478205366272 .L1062: .quad 2684515158698033152 .L1061: .quad 2691539947122327552 .L1060: .quad 2689873078736912384 .L1059: .quad 2685347433159852032 .L1058: .quad 2685365068318179328 .L1057: .quad 5927104652608946688 .L1056: .quad 5716005064457209600 .L1055: .quad 5065776960618102784 .L1054: .quad 4702689633728987136 .L1053: .quad 5932734208044433408 .L1052: .quad 4851015972746690560 .L1051: .quad 6360573969254318080 .L1050: .quad 5282234477270007808 .L1049: .quad 4851301794208284672 .L1048: .quad 5783553544297906176 .L1047: .quad 4918585300202029056 .L1046: .quad 6363095123647004672 .L1045: .quad 5928218479306997760 .L1044: .quad 5928218505076801536 .L1043: .quad 4778403120818421760 .L1042: .quad 5066058430964301824 .L1041: .quad 5713172666753744896 .L1040: .quad 4848481538298609664 .L1039: .quad 5785230260791672832 .L1038: .quad 2685627886001455104 .L1037: .quad 2688736205440286720 .L1036: .quad 2685365021005796691 .L1035: .quad 2688739434987257856 .L1034: .quad 2685073663175294976 .L1033: .quad 2687896173948326912 .L1032: .quad 4850181443499851776 .L1031: .quad 5279420865904115712 .L1030: .quad 4702959018316922880 .L1029: .quad 5932464810443669504 .L1028: .quad 5282233408079283456 .L1027: .quad 4850181447766461440 .L1026: .quad 5928216280573955584 .L1025: .quad 5570757340934656512 .L1024: .quad 5571591913226392576 .L1023: .quad 5067188754960897024 .L1022: .quad 4994004148351552768 .L1021: .quad 4994004148569458432 .L1020: .quad 4775301360063086592 .L1019: .quad 5787775638865792256 .L1018: .quad 5928232742882115584 .L1017: .quad 4852984068322623488 .L1016: .quad 5063537276571615232 .L1015: .quad 5064665332791640064 .L1014: .quad 6004496025044123648 .L1013: .quad 6001406379876417536 .L1012: .quad 4852434338261762048 .L1011: .quad 6146943215191719936 .L1010: .quad 6289357471546867712 .L1009: .quad 5928236084612825088 .L1008: .quad 4702689629378183168 .L1007: .quad 5494745885763960832 .L1006: .quad 5567380718994063360 .L1005: .quad 5066358597577080832 .L1004: .quad 5928218492464791552 .L1003: .quad 6004514677991079936 .L1002: .quad 4996836443277902156 .L1001: .quad 6005349254376718336 .L1000: .quad 5066071573748776960 .L999: .quad 5787775621446762496 .L998: .quad 4706915001175113728 .L997: .quad 6004522404481597440 .L996: .quad 4706915001179570176 .L995: .quad 4705216255609536512 .L994: .quad 4850180317971895296 .L993: .quad 4850179227196063744 .L992: .quad 4850180317899653120 .L991: .quad 5715160600973017088 .L990: .quad 5066358597878826307 .L989: .quad 6005343692389351424 .L988: .quad 5066358597626446592 .L987: .quad 5787775621703681347 .L986: .quad 4996836426114942275 .L985: .quad 5717124294195364608 .L984: .quad 4996836516309255491 .L983: .quad 5717124384389677824 .align 2 .text .LFE185: .section .data.rel.ro.local,"aw",@progbits .align 8 FM.6987: .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .quad .L403 .align 8 LITOP.7832: .quad .L712 .quad .L713 .quad .L708 .quad .L716 .quad .L714 .quad .L720 .quad .L721 .quad .L718 .quad .L719 .quad .L705 .quad .L715 .quad .L707 .align 8 C.7698: .quad .L461 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L498 .quad .L489 .quad .L496 .quad .L497 .quad .L493 .quad .L494 .quad .L507 .quad .L490 .quad .L491 .quad .L503 .quad .L502 .quad .L509 .quad .L508 .quad .L735 .quad .L512 .quad .L528 .quad .L529 .quad .L530 .quad .L524 .quad .L525 .quad .L526 .quad .L527 .quad .L572 .quad .L570 .quad .L585 .quad .L587 .quad .L586 .quad .L735 .quad .L727 .quad .L531 .quad .L532 .quad .L533 .quad .L535 .quad .L536 .quad .L735 .quad .L540 .quad .L564 .quad .L555 .quad .L584 .quad .L735 .quad .L550 .quad .L546 .quad .L542 .quad .L544 .quad .L551 .quad .L541 .quad .L735 .quad .L588 .quad .L595 .quad .L593 .quad .L592 .quad .L578 .quad .L579 .quad .L580 .quad .L583 .quad .L581 .quad .L610 .quad .L611 .quad .L609 .quad .L612 .quad .L730 .quad .L488 .quad .L582 .quad .L633 .quad .L647 .quad .L648 .quad .L657 .quad .L735 .quad .L735 .quad .L641 .quad .L638 .quad .L639 .quad .L640 .quad .L643 .quad .L644 .quad .L645 .quad .L646 .quad .L562 .quad .L676 .quad .L649 .quad .L650 .quad .L651 .quad .L652 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L549 .quad .L654 .quad .L729 .quad .L735 .quad .L637 .quad .L631 .quad .L517 .quad .L516 .quad .L627 .quad .L735 .quad .L628 .quad .L634 .quad .L662 .quad .L513 .quad .L677 .quad .L725 .quad .L726 .quad .L660 .quad .L534 .quad .L670 .quad .L692 .quad .L661 .quad .L622 .quad .L667 .quad .L693 .quad .L620 .quad .L621 .quad .L523 .quad .L514 .quad .L563 .quad .L735 .quad .L680 .quad .L492 .quad .L671 .quad .L619 .quad .L694 .quad .L697 .quad .L699 .quad .L700 .quad .L701 .quad .L702 .quad .L703 .quad .L665 .quad .L543 .quad .L728 .quad .L642 .quad .L539 .quad .L655 .quad .L522 .quad .L735 .quad .L723 .quad .L519 .quad .L520 .quad .L521 .quad .L518 .quad .L511 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .quad .L735 .comm PSTACK.7871,160,4 .comm LB.7855,4,4 .comm UB.7856,4,4 .comm CNEST.7849,16,2 .comm NAME.7872,256,2 .comm COUNT.7873,4,4 .comm LAST.7266,4,4 .comm LT.7248,4,4 .comm LSA.7247,4,4 .comm LA2.7246,4,4 .comm LA1.7245,4,4 .comm KEY.7219,4,4 .align 8 PACTION.7231: .quad .L887 .quad .L887 .quad .L887 .quad .L887 .quad .L887 .quad .L887 .quad .L887 .quad .L887 .quad .L887 .quad .L887 .quad .L887 .quad .L887 .quad .L887 .quad .L887 .quad .L887 .quad .L887 .align 8 ACT.7226: .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .quad .L878 .section .rodata .align 2 __PRETTY_FUNCTION__.6293: .string "_imp_SELECTOUTPUT" .align 2 __PRETTY_FUNCTION__.6289: .string "_imp_SELECTINPUT" .section .data.rel.ro.local .align 8 REASON.6877: .quad .L35 .quad .L35 .quad .L35 .quad .L35 .quad .L35 .quad .L35 .quad .L35 .quad .L35 .quad .L35 .quad .L35 .data .align 4 SPARENAMES.6714: .long 2047 .comm CLASS.6742,4,4 .comm ATOM1.6744,4,4 .comm ATOM2.6745,4,4 .comm SUBATOM.6746,4,4 .comm TYPE.6747,4,4 .comm APP.6748,4,4 .comm FORMAT.6749,4,4 .comm FAULTRATE.6752,4,4 .comm LINES.6753,4,4 .comm TEXTLINE.6754,4,4 .comm MARGIN.6755,4,4 .comm ERRORMARGIN.6756,4,4 .comm ERRORSYM.6757,4,4 .comm COLUMN.6758,4,4 .comm MONPOS.6760,4,4 .align 4 SYM.6761: .long 10 .comm SYMTYPE.6762,4,4 .comm QUOTE.6763,4,4 .comm ENDMARK.6764,4,4 .align 4 CONT.6765: .long 32 .align 4 CSYM.6766: .long 32 .comm DECL.6767,4,4 .comm DIM.6768,4,4 .comm SPECGIVEN.6769,4,4 .comm ESCAPECLASS.6770,4,4 .comm ATOMFLAGS.6772,4,4 .comm OTYPE.6773,4,4 .align 4 REALSLN.6774: .long 1 .comm LAST1.6775,4,4 .comm GENTYPE.6776,4,4 .comm PTYPE.6777,4,4 .comm PAPP.6778,4,4 .comm PFORMAT.6779,4,4 .comm FORCE.6780,4,4 .comm G.6781,4,4 .comm GG.6782,4,4 .comm MAPGG.6783,4,4 .comm FDEF.6784,4,4 .align 4 THIS.6785: .long -1 .comm NMIN.6786,4,4 .comm NMAX.6787,4,4 .comm RBASE.6788,4,4 .comm STBASE.6789,4,4 .align 4 GMIN.6790: .long 1720 .align 4 DMAX.6791: .long 1 .align 4 TMIN.6792: .long 800 .comm SS.6793,4,4 .comm INCLUDELIST.6795,4,4 .comm INCLUDELEVEL.6796,4,4 .comm INCLUDE.6797,4,4 .align 4 PERM.6798: .long 1 .comm PROGMODE.6799,4,4 .comm SSTYPE.6800,4,4 .comm SPECMODE.6801,4,4 .align 4 OCOUNT.6802: .long -1 .comm LIMIT.6803,4,4 .comm COPY.6804,4,4 .comm ORDER.6805,4,4 .comm DUBIOUS.6807,4,4 .align 4 DP.6808: .long 1 .comm POS1.6809,4,4 .comm POS2.6810,4,4 .comm POS.6811,4,4 .comm DIMENSION.6812,4,4 .comm LOCAL.6813,4,4 .comm FMBASE.6814,4,4 .comm SEARCHBASE.6815,4,4 .comm FORMATLIST.6816,4,4 .align 2 CHAR.6818: .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .comm LIT.6820,4,4 .comm LP.6821,4,4 .comm BLOCKX.6822,4,4 .align 4 GMAX.6832: .long 719 .align 2 PHRASE.6833: .word 0 .word 564 .word 565 .word 567 .word 569 .word 571 .word 573 .word 562 .word 614 .word 203 .word 200 .word 602 .word 478 .word 480 .word 624 .word 298 .word 206 .word 308 .word 318 .word 433 .word 426 .word 437 .word 444 .word 458 .word 453 .word 461 .word 467 .word 482 .word 402 .word 627 .word 629 .word 603 .word 521 .word 511 .word 486 .word 502 .word 575 .word 527 .word 528 .word 543 .word 550 .word 578 .word 397 .word 287 .word 197 .word 636 .word 516 .word 621 .word 167 .word 0 .word 0 .word 0 .word 640 .word 693 .word 701 .word 709 .align 2 GRAM.6836: .word 0 .word -28523 .word -28521 .word -28602 .word -32706 .word -28509 .word -28603 .word -24502 .word -24503 .word -20405 .word -20404 .word -28595 .word -32697 .word -32709 .word -16323 .word -28600 .word -32704 .word -28587 .word -28589 .word -32681 .word -16344 .word -28586 .word -28588 .word -12270 .word -32586 .word 216 .word -12287 .word -16380 .word -8185 .word -8184 .word -12285 .word -12286 .word -12283 .word -12282 .word -12279 .word -12276 .word -16373 .word 20490 .word -32706 .word -32701 .word 216 .word -16364 .word -28610 .word -28613 .word -28612 .word 16445 .word 217 .word -16364 .word 62 .word -32701 .word 16450 .word -16364 .word 5346 .word -16364 .word 166 .word -16344 .word 4332 .word 130 .word -16360 .word -16361 .word 126 .word 217 .word -32701 .word 216 .word -16364 .word 16450 .word -32700 .word 16404 .word -32701 .word -32706 .word 216 .word 16405 .word 16407 .word -16222 .word 8414 .word 130 .word 217 .word -32697 .word 16450 .word 1250 .word 4307 .word 4318 .word 192 .word 93 .word 170 .word 90 .word 207 .word -16365 .word 16404 .word 90 .word -16360 .word -16365 .word 16404 .word 241 .word -16365 .word 16404 .word 132 .word 132 .word -16360 .word 4329 .word -16365 .word 16404 .word 133 .word 175 .word 90 .word -16365 .word 16404 .word 209 .word -16365 .word 16404 .word 4313 .word 217 .word 16451 .word 4263 .word 16384 .word 16384 .word 120 .word 216 .word -32700 .word 16404 .word -32706 .word 16404 .word 243 .word 16409 .word 454 .word -32685 .word 16404 .word 454 .word 248 .word -16365 .word 16404 .word 4263 .word 194 .word -16360 .word 4329 .word -32717 .word 16404 .word 4263 .word 16407 .word 454 .word 237 .word 127 .word 215 .word 454 .word 4263 .word 16384 .word -16364 .word 1502 .word -32629 .word -16361 .word 153 .word -32606 .word 222 .word 143 .word -32629 .word 153 .word 454 .word 126 .word 16409 .word 454 .word 16384 .word 234 .word -16365 .word -32595 .word 147 .word -32678 .word 234 .word 193 .word -32677 .word -32676 .word -32661 .word 109 .word -32717 .word 53 .word 52 .word 52 .word 52 .word 194 .word 194 .word 194 .word -28581 .word 4188 .word 194 .word -28566 .word 4203 .word 194 .word -28564 .word 4205 .word 4580 .word 16429 .word 183 .word 183 .word 186 .word 186 .word -28583 .word 0 .word 9437 .word 90 .word -16365 .word 0 .word 134 .word -16365 .word 0 .word 210 .word 4329 .word 199 .word -32677 .word -32672 .word -32676 .word -32688 .word -32690 .word -32705 .word -32661 .word -32659 .word -32689 .word -32686 .word -32687 .word -16330 .word 65 .word -32716 .word 186 .word -28583 .word -32717 .word -32715 .word -32713 .word 52 .word -32664 .word 4201 .word 186 .word -32717 .word -32715 .word 55 .word -16328 .word 0 .word 197 .word 197 .word 52 .word 52 .word 197 .word -28581 .word -28580 .word 186 .word -28581 .word 4188 .word 4318 .word 194 .word -28581 .word 4188 .word 9437 .word 194 .word 194 .word 454 .word 16407 .word 216 .word 194 .word -28566 .word -28565 .word 186 .word -28566 .word 4203 .word 194 .word -28564 .word -28563 .word 186 .word -28564 .word 4205 .word 183 .word 183 .word 186 .word 183 .word -16365 .word 0 .word 183 .word 4580 .word 16429 .word 5095 .word 9444 .word 5348 .word 186 .word -28583 .word -16328 .word 0 .word 16409 .word -16365 .word 0 .word 9437 .word 5348 .word 217 .word -32701 .word 16450 .word -32701 .word 216 .word -32700 .word 0 .word -32701 .word -32706 .word 216 .word 243 .word 217 .word -16318 .word 0 .word -32552 .word 0 .word -32700 .word 0 .word -32706 .word 0 .word 215 .word -32550 .word 228 .word -28616 .word -28615 .word 0 .word 4096 .word 218 .word 218 .word -28616 .word 0 .word -32677 .word -32676 .word -16361 .word -32710 .word -32669 .word -32662 .word -32661 .word -32660 .word -32659 .word 740 .word -32039 .word 740 .word -32719 .word 4096 .word 194 .word -32719 .word -32718 .word -32604 .word -32726 .word -32725 .word -32724 .word -32720 .word 4096 .word 710 .word 6116 .word -32719 .word 0 .word 710 .word 6116 .word -28581 .word 4188 .word 218 .word 122 .word 50 .word 16409 .word -32726 .word -32725 .word -32724 .word -32719 .word 4096 .word 710 .word 454 .word 195 .word 195 .word 195 .word 454 .word -28581 .word 4188 .word 194 .word -28566 .word -28565 .word -28564 .word 4205 .word 195 .word 195 .word 195 .word 710 .word 4836 .word 5095 .word 4829 .word -32726 .word -32725 .word -32724 .word -32719 .word 4096 .word 4827 .word 4828 .word 454 .word -32720 .word -32719 .word 4096 .word 4829 .word 4827 .word 4828 .word 194 .word -32719 .word 0 .word 710 .word 4836 .word -16291 .word -32677 .word 92 .word 184 .word 121 .word -28581 .word -28580 .word -32722 .word -32723 .word 4317 .word -32726 .word -32725 .word -32724 .word 0 .word 183 .word -32726 .word -32725 .word -32724 .word -32720 .word 0 .word 4316 .word 195 .word 195 .word 195 .word 454 .word -28581 .word 4188 .word 4315 .word 183 .word 4317 .word -32726 .word -32725 .word 0 .word 195 .word 195 .word 4315 .word 4317 .word -32726 .word 0 .word 195 .word -32677 .word -32676 .word -16361 .word 16431 .word 228 .word 228 .word 47 .word -32610 .word -32611 .word 5345 .word -32609 .word -32608 .word -32607 .word 0 .word 4320 .word 4319 .word 5345 .word -32609 .word -32608 .word 0 .word 4319 .word 5345 .word -32609 .word 0 .word -32613 .word -16361 .word 16431 .word 222 .word 222 .word 156 .word -32677 .word 92 .word 183 .word 186 .word 1222 .word 16435 .word 228 .word 16403 .word 4324 .word 138 .word 8420 .word -32723 .word 4189 .word 93 .word 454 .word 148 .word -32674 .word 16546 .word 16409 .word -32597 .word 182 .word -16383 .word 16388 .word 234 .word -16365 .word -32595 .word 172 .word -32678 .word 234 .word 90 .word 244 .word 246 .word -16365 .word 0 .word 235 .word -32678 .word 234 .word -16365 .word 246 .word -16365 .word 0 .word -32678 .word 234 .word 90 .word 16407 .word 222 .word 16405 .word 222 .word 145 .word 16407 .word 222 .word 16405 .word 222 .word 146 .word 16407 .word 1252 .word 154 .word 5348 .word -16365 .word 142 .word 126 .word 182 .word -16383 .word 16391 .word 90 .word -16365 .word 127 .word -32678 .word 238 .word 90 .word 125 .word 239 .word -16365 .word 8319 .word 8430 .word 128 .word 126 .word -16361 .word 127 .word 190 .word 240 .word 189 .word 16409 .word 182 .word -16383 .word 16391 .word 90 .word -16365 .word 0 .word -32678 .word 240 .word 90 .word 16623 .word -16365 .word 0 .word 244 .word 232 .word 1252 .word 1252 .word 137 .word 1252 .word 137 .word 1252 .word 137 .word 1252 .word 137 .word 1252 .word 137 .word 222 .word -16365 .word 0 .word 131 .word 194 .word -16360 .word -16333 .word -16332 .word 124 .word 181 .word -16292 .word -16277 .word 16493 .word -31802 .word 5342 .word -28581 .word 4188 .word 4263 .word 181 .word 186 .word 454 .word 16475 .word 183 .word -28583 .word 199 .word 5598 .word 9438 .word 222 .word -32677 .word -32676 .word 16407 .word 186 .word 228 .word 135 .word 16409 .word -32632 .word 0 .word -32677 .word 92 .word -32677 .word -32676 .word -32662 .word -32661 .word -32660 .word -32659 .word 165 .word -32677 .word 92 .word 188 .word -32662 .word 107 .word 188 .word -32660 .word 109 .word -32732 .word 37 .word -16344 .word 4318 .word 148 .word -32674 .word 16424 .word 222 .word 16405 .word 222 .word 174 .word -28644 .word -32734 .word -32680 .word -28641 .word -32733 .word -32730 .word -32735 .word -32727 .word -32738 .word 4326 .word -32738 .word -32739 .word -32741 .word -32736 .word 199 .word -28644 .word -32680 .word -28641 .word 4326 .word -32739 .word -32741 .word 199 .word -32738 .word -32739 .word -32741 .word -32736 .word -32729 .word 199 .word -32616 .word 199 .word -32739 .word -32741 .word -32729 .word 199 .word -32616 .word -32729 .word 199 .word -28644 .word -32680 .word 4326 .word -32738 .word -32739 .word -32741 .word 199 .word 245 .word 4318 .word 245 .word 16409 .word 152 .word 4318 .word 16409 .word 152 .word 245 .word -32672 .word -32671 .word -32670 .word 99 .word 16407 .word 200 .word 144 .word 185 .word -32677 .word 92 .word 16407 .word -32582 .word 200 .word 200 .word 187 .word 141 .word -32677 .word 92 .word 16410 .word 191 .word -32677 .word -32676 .word -32662 .word -32661 .word -32660 .word 109 .word 198 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .align 2 GLINK.6837: .word -1 .word 71 .word 72 .word 38 .word 46 .word 47 .word 67 .word 67 .word 75 .word 67 .word 0 .word 67 .word 51 .word 76 .word 79 .word 53 .word 55 .word 80 .word 67 .word 81 .word 82 .word 83 .word 67 .word 84 .word 26 .word 41 .word 85 .word 86 .word 57 .word 57 .word 89 .word 93 .word 96 .word 97 .word 102 .word 103 .word 104 .word 107 .word 46 .word 67 .word 67 .word 0 .word 110 .word 110 .word 111 .word 52 .word 49 .word 0 .word 61 .word 67 .word 62 .word 0 .word 67 .word 0 .word 111 .word 112 .word 112 .word 58 .word 113 .word 114 .word 115 .word 64 .word 67 .word 66 .word 116 .word 117 .word 68 .word 0 .word 67 .word 122 .word 67 .word 0 .word 73 .word 123 .word 123 .word 67 .word 77 .word 67 .word 40 .word 77 .word 67 .word 67 .word 0 .word 124 .word 127 .word 128 .word 87 .word 86 .word 0 .word 90 .word 131 .word 89 .word 0 .word 94 .word 93 .word 0 .word 132 .word 98 .word 137 .word 100 .word 97 .word 0 .word 138 .word 67 .word 105 .word 104 .word 0 .word 108 .word 107 .word 0 .word 67 .word 67 .word 67 .word 139 .word 140 .word 141 .word 0 .word 118 .word 120 .word 116 .word 142 .word 116 .word 67 .word 71 .word 125 .word 67 .word 0 .word 67 .word 129 .word 85 .word 0 .word 143 .word 133 .word 144 .word 135 .word 145 .word 0 .word 156 .word 157 .word 59 .word 158 .word 67 .word 119 .word 91 .word 159 .word 146 .word 145 .word 148 .word 146 .word 151 .word 0 .word 153 .word 153 .word 154 .word 146 .word 0 .word 99 .word 160 .word 67 .word 134 .word 161 .word 162 .word 165 .word 161 .word 141 .word 162 .word 162 .word 168 .word 172 .word 174 .word 175 .word 176 .word 177 .word 178 .word 179 .word 182 .word 185 .word 188 .word 189 .word 180 .word 190 .word 190 .word 183 .word 191 .word 191 .word 186 .word 191 .word 191 .word 0 .word 188 .word 192 .word 193 .word 194 .word 0 .word 196 .word 0 .word 0 .word 198 .word 197 .word 0 .word 201 .word 200 .word 0 .word 204 .word 205 .word 0 .word 228 .word 232 .word 219 .word 234 .word 235 .word 0 .word 236 .word 237 .word 238 .word 0 .word 232 .word 226 .word 244 .word 245 .word 221 .word 248 .word 249 .word 250 .word 251 .word 245 .word 0 .word 252 .word 229 .word 249 .word 250 .word 251 .word 253 .word 0 .word 0 .word 188 .word 254 .word 260 .word 239 .word 269 .word 269 .word 242 .word 191 .word 191 .word 270 .word 246 .word 272 .word 272 .word 229 .word 273 .word 274 .word 275 .word 276 .word 0 .word 255 .word 266 .word 266 .word 258 .word 267 .word 267 .word 261 .word 266 .word 266 .word 264 .word 267 .word 267 .word 232 .word 268 .word 232 .word 0 .word 277 .word 0 .word 278 .word 232 .word 273 .word 232 .word 282 .word 283 .word 279 .word 285 .word 253 .word 0 .word 0 .word 286 .word 0 .word 232 .word 0 .word 288 .word 0 .word 290 .word 0 .word 292 .word 294 .word 0 .word 0 .word 297 .word 0 .word 0 .word 299 .word 301 .word 0 .word 303 .word 0 .word 305 .word 0 .word 307 .word 0 .word 0 .word 310 .word 313 .word 314 .word 315 .word 0 .word 0 .word 316 .word 311 .word 314 .word 0 .word 332 .word 332 .word 328 .word 349 .word 350 .word 351 .word 351 .word 351 .word 351 .word 330 .word 282 .word 352 .word 358 .word 0 .word 333 .word 341 .word 347 .word 359 .word 360 .word 361 .word 362 .word 363 .word 0 .word 342 .word 343 .word 345 .word 0 .word 346 .word 0 .word 269 .word 269 .word 0 .word 0 .word 366 .word 353 .word 371 .word 372 .word 373 .word 374 .word 0 .word 375 .word 376 .word 377 .word 383 .word 384 .word 364 .word 385 .word 385 .word 367 .word 269 .word 269 .word 269 .word 269 .word 389 .word 390 .word 391 .word 392 .word 393 .word 0 .word 378 .word 360 .word 361 .word 362 .word 341 .word 0 .word 379 .word 380 .word 386 .word 363 .word 341 .word 0 .word 353 .word 354 .word 355 .word 375 .word 395 .word 0 .word 396 .word 0 .word 400 .word 269 .word 269 .word 401 .word 0 .word 411 .word 411 .word 406 .word 417 .word 407 .word 418 .word 419 .word 420 .word 0 .word 412 .word 418 .word 419 .word 420 .word 421 .word 0 .word 409 .word 406 .word 424 .word 417 .word 422 .word 425 .word 425 .word 408 .word 415 .word 427 .word 430 .word 431 .word 0 .word 426 .word 432 .word 428 .word 434 .word 436 .word 0 .word 433 .word 269 .word 269 .word 441 .word 442 .word 282 .word 443 .word 0 .word 446 .word 451 .word 447 .word 446 .word 452 .word 451 .word 0 .word 449 .word 448 .word 454 .word 453 .word 457 .word 0 .word 455 .word 459 .word 458 .word 0 .word 269 .word 464 .word 465 .word 282 .word 466 .word 0 .word 469 .word 469 .word 470 .word 471 .word 472 .word 473 .word 474 .word 475 .word 476 .word 477 .word 0 .word 479 .word 269 .word 481 .word 0 .word 483 .word 485 .word 485 .word 205 .word 490 .word 488 .word 496 .word 497 .word 491 .word 494 .word 490 .word 0 .word 491 .word 491 .word 0 .word 498 .word 499 .word 501 .word 0 .word 0 .word 504 .word 506 .word 510 .word 499 .word 508 .word 0 .word 506 .word 506 .word 504 .word 512 .word 513 .word 514 .word 515 .word 0 .word 517 .word 518 .word 519 .word 520 .word 0 .word 522 .word 523 .word 524 .word 525 .word 522 .word 0 .word 528 .word 529 .word 531 .word 536 .word 532 .word 534 .word 0 .word 532 .word 0 .word 537 .word 538 .word 539 .word 541 .word 542 .word 542 .word 0 .word 544 .word 546 .word 0 .word 547 .word 548 .word 549 .word 533 .word 551 .word 553 .word 558 .word 554 .word 556 .word 0 .word 554 .word 0 .word 559 .word 560 .word 557 .word 0 .word 563 .word 205 .word 0 .word 566 .word 564 .word 568 .word 565 .word 570 .word 567 .word 572 .word 569 .word 574 .word 571 .word 576 .word 575 .word 0 .word 579 .word 580 .word 592 .word 593 .word 584 .word 205 .word 585 .word 588 .word 588 .word 588 .word 590 .word 205 .word 594 .word 594 .word 595 .word 596 .word 597 .word 581 .word 600 .word 598 .word 601 .word 0 .word 205 .word 205 .word 205 .word 606 .word 606 .word 607 .word 608 .word 609 .word 605 .word 610 .word 612 .word 0 .word 193 .word 193 .word 193 .word 193 .word 193 .word 193 .word 193 .word 193 .word 0 .word 623 .word 623 .word 192 .word 626 .word 626 .word 0 .word 626 .word 626 .word 631 .word 633 .word 282 .word 282 .word 634 .word 282 .word 282 .word 637 .word 638 .word 639 .word 0 .word 650 .word 677 .word 684 .word 666 .word 655 .word 205 .word 205 .word 205 .word 205 .word 650 .word 659 .word 668 .word 685 .word 666 .word 0 .word 662 .word 686 .word 666 .word 662 .word 668 .word 685 .word 0 .word 670 .word 674 .word 689 .word 666 .word 205 .word 0 .word 205 .word 0 .word 674 .word 689 .word 205 .word 0 .word 666 .word 205 .word 0 .word 680 .word 692 .word 680 .word 659 .word 668 .word 685 .word 0 .word 650 .word 687 .word 662 .word 688 .word 205 .word 690 .word 691 .word 666 .word 680 .word 697 .word 697 .word 697 .word 697 .word 698 .word 699 .word 700 .word 0 .word 703 .word 703 .word 704 .word 706 .word 707 .word 708 .word 708 .word 700 .word 711 .word 711 .word 712 .word 713 .word 719 .word 719 .word 719 .word 719 .word 719 .word 719 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .word 0 .comm STATS.6759,4,4 .comm BP.6830,4,4 .comm X.6743,4,4 .align 4 LIST.6823: .long 1 .comm IMPCOM,536,4 .text .Letext0: 2716 %FINISH 2717 2718 impcom_flags = 0 l %r1,236(%r15) ahi %r1,-1 clijle %r1,11,.L739 lgrl %r1,_imp_current_file@GOTENT ltg %r3,0(%r1) je .L740 lay %r2,4690(%r15) brasl %r14,_imp_c2istr@PLT .LVL639: .L741: lgrl %r1,_imp_current_line@GOTENT lt %r3,0(%r1) ltr %r3,%r3 lhi %r1,2718 locrne %r1,%r3 lr %r3,%r1 lay %r1,4690(%r15) mvc 256(256,%r15),0(%r1) lgf %r6,236(%r15) lgf %r1,248(%r15) stg %r1,184(%r15) lg %r1,240(%r15) stg %r1,176(%r15) stg %r6,168(%r15) larl %r1,.LC85 stg %r1,160(%r15) lghi %r5,3 lghi %r4,6 lgfr %r3,%r3 lgr %r2,%r10 brasl %r14,_signal_eventf@PLT .LVL640: .L739: larl %r1,.LC15 mvc 3154(256,%r15),0(%r1) mvc 3410(256,%r15),3154(%r15) .LBE560: lay %r1,4690(%r15) mvc 0(256,%r1),3410(%r15) j .L741 .LVL677: .L780: brasl %r14,__stack_chk_fail@PLT .LVL678: .LFE209: .align 8 DELETENAMES.6961: .LFB197: lgrl %r2,IMPCOM@GOTENT mvhi 4(%r2),0 .LVL873: 2719 impcom_option = "" l %r1,236(%r15) ahi %r1,-1 lgfr %r1,%r1 sllg %r1,%r1,3 larl %r2,LITOP.7832 lg %r1,0(%r1,%r2) j .L734 .L702: j .L703 .L705: 2720 ear %r1,%a0 sllg %r1,%r1,32 ear %r1,%a1 lay %r2,5240(%r15) clc 0(8,%r2),40(%r1) jne .L780 lg %r4,5360(%r15) lmg %r6,%r15,5296(%r15) br %r4 .LVL437: .L776: 2721 list = 15 %IF Impcom_Flags&x'1000' # 0 lghi %r4,255 la %r3,416(%r15) aghi %r2,280 brasl %r14,_imp_strncpy@PLT .LVL874: 2722 larl %r1,LIST.6823 mvhi 0(%r1),15 .LDL50: .LBB744: 2723 open output(2, "LISTING"); larl %r1,.LC5 mvc 1184(256,%r15),0(%r1) mvc 672(256,%r15),1184(%r15) .LBE744: mvc 160(256,%r15),672(%r15) aghik %r11,%r15,160 lgr %r3,%r11 lghi %r2,2 brasl %r14,OPENOUTPUT@PLT .LVL875: .LBB745: 2724 open input(2, "prims.inc"); larl %r1,.LC6 mvc 1184(256,%r15),0(%r1) mvc 928(256,%r15),1184(%r15) .LBE745: mvc 160(256,%r15),928(%r15) lgr %r3,%r11 lghi %r2,2 brasl %r14,OPENINPUT@PLT .LVL876: .LBB746: .LBB747: lgrl %r1,_imp_InStream@GOTENT mvhi 0(%r1),2 lgrl %r1,_imp_InFile@GOTENT lgrl %r2,_imp_infile@GOTENT lg %r2,584(%r2) stg %r2,0(%r1) larl %r2,__PRETTY_FUNCTION__.6289 brasl %r14,check_instream@PLT .LVL877: .LBE747: .LBE746: .LBB748: .LBB749: lgrl %r1,_imp_OutStream@GOTENT mvhi 0(%r1),2 lgrl %r1,_imp_OutFile@GOTENT lgrl %r2,_imp_outfile@GOTENT lg %r2,584(%r2) stg %r2,0(%r1) larl %r2,__PRETTY_FUNCTION__.6293 brasl %r14,check_outstream@PLT .LVL878: .LBE749: .LBE748: 2725 select input(2); selectoutput(listing) 2726 tag(max tag) = 0; !%BEGIN defn lmg %r2,%r3,.L1107-.L982(%r13) stmg %r2,%r3,15220(%r15) 2727 tag(0) = 0; tag(0)_flags = 7; !%BEGIN tag! stmg %r2,%r3,2420(%r15) 2728 Hash(x) = 0 %FOR x = 0, 1, max names mvhhi 2428(%r15),7 lhi %r2,0 lhi %r1,2048 .L977: 2729 printstring(" Edinburgh IMP77 Compiler - Version ") larl %r1,.LC7 mvc 1184(256,%r15),0(%r1) mvc 1440(256,%r15),1184(%r15) mvc 1696(256,%r15),1440(%r15) .LBE750: .LBB751: .LBB752: mvc 160(256,%r15),1696(%r15) aghik %r11,%r15,160 lgr %r2,%r11 brasl %r14,_imp_printstring@PLT .LVL879: mvi 1952(%r15),0 .LBE752: .LBE751: .LBB753: .LBB754: mvc 160(256,%r15),1952(%r15) lgr %r2,%r11 brasl %r14,_imp_printstring@PLT .LVL880: .LBE754: .LBE753: .LBB755: .LBB756: lghi %r2,2 brasl %r14,_imp_newlines@PLT .LVL881: .LBE756: .LBE755: 2730 printstring(version); newlines(2) 2731 op('l', 0) brct %r1,.L977 .LDL52: larl %r1,X.6743 mvhi 0(%r1),2047 .LBB750: aghik %r11,%r15,2208 lgr %r0,%r11 lghi %r3,0 lghi %r2,108 brasl %r14,OP.6946 .LVL882: 2732 compile block(0, 0, max dict, 0, 0) lgr %r0,%r11 lghi %r6,0 lghi %r5,0 lghi %r4,6000 lghi %r3,0 lghi %r2,0 brasl %r14,COMPILEBLOCK.6956 .LVL883: lrl %r1,BP.6830 ahik %r2,%r1,1 strl %r2,BP.6830 2733 bp=bp+1 %AND buff(bp)=nl {for bouncing off} lgfr %r3,%r2 aghi %r3,10792 sllg %r3,%r3,1 la %r3,2212(%r3,%r15) mvhhi 0(%r3),0 .LDL51: ahi %r2,1 2734 flush buffer lgfr %r1,%r1 lay %r1,106918(%r1,%r15) mvi 0(%r1),10 lgr %r0,%r11 brasl %r14,FLUSHBUFFER.6840 .LVL884: 2735 Impcom_Statements = stats lgrl %r1,IMPCOM@GOTENT lrl %r2,STATS.6759 st %r2,0(%r1) .LDL53: .LVL885: .LBB757: .LBB758: lghi %r2,0 brasl %r14,exit@PLT .LVL886: .L975: .LBE758: .LBE757: 2736 Impcom_Statements = -faulty %IF faulty # 0 2737 %ENDOFPROGRAM 2310 Statements compiled