Edinburgh IMP77 Compiler - Version 8.4 1 %external %routine %spec close output NO_APP .Ltext0: .align 2 OP.6243: .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 .loc 1 23 0 .cfi_startproc .LVL1051: link.l %fp,#-107020 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 movem.l #14384,-(%sp) .cfi_offset 2, -107048 .cfi_offset 3, -107044 .cfi_offset 4, -107040 .cfi_offset 10, -107036 .cfi_offset 11, -107032 .loc 1 23 0 lea (8,%fp),%a0 .LVL1052: move.l %a0,-4(%fp) 24 %CONSTSTRING(4) version = "8.4" .loc 1 24 0 move.l 12(%fp),-(%sp) move.l 8(%fp),-(%sp) jsr _imp_initialise .LVL1053: addq.l #8,%sp 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 *** .loc 1 230 0 move.l #65536,-(%sp) clr.l -(%sp) pea -66308(%fp) jsr memset .LVL1054: move.b #1,-66308(%fp) move.l #1509949440,-66307(%fp) clr.l -66303(%fp) move.b #4,-66052(%fp) move.l #1447314755,-66051(%fp) clr.l -66047(%fp) move.b #7,-65796(%fp) move.l #1331121750,-65795(%fp) move.l #1145389824,-65791(%fp) move.b #8,-65540(%fp) move.l #1163416662,-65539(%fp) move.l #1397769539,-65535(%fp) move.b #4,-65284(%fp) move.l #1094993219,-65283(%fp) clr.l -65279(%fp) move.b #7,-65028(%fp) move.l #1331121729,-65027(%fp) move.l #1145389824,-65023(%fp) move.b #8,-64772(%fp) move.l #1163416641,-64771(%fp) move.l #1397769539,-64767(%fp) move.b #4,-64516(%fp) move.l #1347571523,-64515(%fp) clr.l -64511(%fp) move.b #8,-64260(%fp) move.l #1347571523,-64259(%fp) move.l #1397769539,-64255(%fp) move.b #7,-64004(%fp) move.l #1179603533,-64003(%fp) move.l #1145389824,-63999(%fp) move.b #5,-63748(%fp) move.l #1398228037,-63747(%fp) move.l #1124073472,-63743(%fp) move.b #4,-63492(%fp) move.l #1279542595,-63491(%fp) clr.l -63487(%fp) move.b #8,-63236(%fp) move.l #1179603533,-63235(%fp) move.l #1397769539,-63231(%fp) move.b #6,-61700(%fp) move.l #1330664521,-61699(%fp) move.l #1330511872,-61695(%fp) move.b #5,-61444(%fp) move.l #1129270605,-61443(%fp) move.l #1090519040,-61439(%fp) move.b #1,-61188(%fp) move.l #1409286144,-61187(%fp) clr.l -61183(%fp) move.b #5,-60932(%fp) move.l #1129270351,-60931(%fp) move.l #1308622848,-60927(%fp) move.b #7,-60676(%fp) move.l #1129270605,-60675(%fp) move.l #1162761216,-60671(%fp) move.b #2,-60420(%fp) move.l #1279393792,-60419(%fp) clr.l -60415(%fp) move.b #5,-60164(%fp) move.l #1095518529,-60163(%fp) move.l #1392508928,-60159(%fp) move.b #2,-59908(%fp) move.l #1380057088,-59907(%fp) clr.l -59903(%fp) move.b #3,-59652(%fp) move.l #1398096384,-59651(%fp) clr.l -59647(%fp) move.b #6,-59396(%fp) move.l #1095914049,-59395(%fp) move.l #1497628672,-59391(%fp) move.b #5,-59140(%fp) move.l #1398036816,-59139(%fp) move.l #1157627904,-59135(%fp) move.b #5,-58884(%fp) move.l #1095914049,-58883(%fp) move.l #1493172224,-58879(%fp) move.b #4,-58628(%fp) move.l #1312902469,-58627(%fp) clr.l -58623(%fp) move.b #5,-58372(%fp) move.l #1347571523,-58371(%fp) move.l #1140850688,-58367(%fp) move.b #5,-58116(%fp) move.l #1179536705,-58115(%fp) move.l #1342177280,-58111(%fp) move.b #6,-57860(%fp) move.l #1398229332,-57859(%fp) move.l #1128792064,-57855(%fp) move.b #3,-57604(%fp) move.l #1331121664,-57603(%fp) clr.l -57599(%fp) move.b #8,-57348(%fp) move.l #1163416645,-57347(%fp) move.l #1380860236,-57343(%fp) move.b #6,-57092(%fp) move.l #1398035017,-57091(%fp) move.l #1313275904,-57087(%fp) move.b #6,-56836(%fp) move.l #1380270927,-56835(%fp) move.l #1380188160,-56831(%fp) move.b #6,-56580(%fp) move.l #1179603533,-56579(%fp) move.l #1096024064,-56575(%fp) move.b #4,-56324(%fp) move.l #1397769539,-56323(%fp) clr.l -56319(%fp) move.b #5,-56068(%fp) move.l #1296256836,-56067(%fp) move.l #1157627904,-56063(%fp) move.b #5,-55812(%fp) move.l #1279345221,-55811(%fp) move.l #1275068416,-55807(%fp) move.b #3,-55556(%fp) move.l #1330655488,-55555(%fp) clr.l -55551(%fp) move.b #3,-55300(%fp) move.l #1330655744,-55299(%fp) clr.l -55295(%fp) move.b #3,-55044(%fp) move.l #1330656000,-55043(%fp) clr.l -55039(%fp) move.b #4,-54788(%fp) move.l #1397311310,-54787(%fp) clr.l -54783(%fp) move.b #3,-54532(%fp) move.l #1431261184,-54531(%fp) clr.l -54527(%fp) move.b #3,-54276(%fp) move.l #1297040384,-54275(%fp) clr.l -54271(%fp) move.b #3,-54020(%fp) move.l #1146049536,-54019(%fp) clr.l -54015(%fp) move.b #4,-53764(%fp) move.l #1129270608,-53763(%fp) clr.l -53759(%fp) move.b #5,-53508(%fp) move.l #1094930253,-53507(%fp) move.l #1342177280,-53503(%fp) move.b #2,-53252(%fp) move.l #1162936320,-53251(%fp) clr.l -53247(%fp) move.b #4,-52996(%fp) move.l #1162954065,-52995(%fp) clr.l -52991(%fp) move.b #3,-52740(%fp) move.l #1245793536,-52739(%fp) clr.l -52735(%fp) move.b #4,-52484(%fp) move.l #1247104336,-52483(%fp) clr.l -52479(%fp) move.b #5,-52228(%fp) move.l #1380275023,-52227(%fp) move.l #1342177280,-52223(%fp) move.b #3,-51972(%fp) move.l #1095648256,-51971(%fp) clr.l -51967(%fp) move.b #2,-51716(%fp) move.l #1330774016,-51715(%fp) clr.l -51711(%fp) move.b #3,-51460(%fp) move.l #1313821696,-51459(%fp) clr.l -51455(%fp) move.b #5,-51204(%fp) move.l #1464355148,-51203(%fp) move.l #1157627904,-51199(%fp) move.b #5,-50948(%fp) move.l #1431196745,-50947(%fp) move.l #1275068416,-50943(%fp) move.b #3,-50692(%fp) move.l #1179603456,-50691(%fp) clr.l -50687(%fp) move.b #5,-50436(%fp) move.l #1129795410,-50435(%fp) move.l #1140850688,-50431(%fp) move.b #4,-50180(%fp) move.l #1163413844,-50179(%fp) clr.l -50175(%fp) move.b #2,-49924(%fp) move.l #1330511872,-49923(%fp) clr.l -49919(%fp) move.b #6,-49668(%fp) move.l #1397311310,-49667(%fp) move.l #1095499776,-49663(%fp) move.b #4,-49412(%fp) move.l #1414022478,-49411(%fp) clr.l -49407(%fp) move.b #5,-49156(%fp) move.l #1398030674,-49155(%fp) move.l #1409286144,-49151(%fp) move.b #4,-48900(%fp) move.l #1162629957,-48899(%fp) clr.l -48895(%fp) move.b #6,-48644(%fp) move.l #1179209289,-48643(%fp) move.l #1397227520,-48639(%fp) move.b #5,-48388(%fp) move.l #1178946643,-48387(%fp) move.l #1157627904,-48383(%fp) move.b #5,-48132(%fp) move.l #1129923404,-48131(%fp) move.l #1157627904,-48127(%fp) move.b #6,-47876(%fp) move.l #1380274245,-47875(%fp) move.l #1096024064,-47871(%fp) move.b #7,-47620(%fp) move.l #1347571527,-47619(%fp) move.l #1380011264,-47615(%fp) move.b #5,-47364(%fp) move.l #1111836489,-47363(%fp) move.l #1308622848,-47359(%fp) move.b #3,-47108(%fp) move.l #1162757120,-47107(%fp) clr.l -47103(%fp) move.b #7,-46852(%fp) move.l #1162757200,-46851(%fp) move.l #1380927232,-46847(%fp) move.b #7,-46596(%fp) move.l #1162757200,-46595(%fp) move.l #1163021568,-46591(%fp) move.b #7,-46340(%fp) move.l #1179796819,-46339(%fp) move.l #1431065600,-46335(%fp) move.b #7,-46084(%fp) move.l #1297237331,-46083(%fp) move.l #1431065600,-46079(%fp) move.b #4,-45828(%fp) move.l #1111573323,-45827(%fp) clr.l -45823(%fp) move.b #7,-45572(%fp) move.l #1297043017,-45571(%fp) move.l #1414484480,-45567(%fp) move.b #4,-45316(%fp) move.l #1398034256,-45315(%fp) clr.l -45311(%fp) move.b #4,-45060(%fp) move.l #1279873876,-45059(%fp) clr.l -45055(%fp) move.b #7,-44804(%fp) move.l #1380270412,-44803(%fp) move.l #1397509632,-44799(%fp) move.b #7,-44548(%fp) move.l #1129270868,-44547(%fp) move.l #1380928512,-44543(%fp) move.b #7,-44292(%fp) move.l #1229865804,-44291(%fp) move.l #1430537472,-44287(%fp) move.b #4,-44036(%fp) move.l #1296126803,-44035(%fp) clr.l -44031(%fp) move.b #5,-43780(%fp) move.l #1381259600,-43779(%fp) move.l #1157627904,-43775(%fp) move.b #5,-43524(%fp) move.l #1094992975,-43523(%fp) move.l #1342177280,-43519(%fp) move.b #5,-43268(%fp) move.l #1229210958,-43267(%fp) move.l #1409286144,-43263(%fp) move.b #1,-43012(%fp) move.l #1442840576,-43011(%fp) clr.l -43007(%fp) move.b #1,-42756(%fp) move.l #1308622848,-42755(%fp) clr.l -42751(%fp) move.b #5,-42500(%fp) move.l #1129270867,-42499(%fp) move.l #1409286144,-42495(%fp) move.b #2,-42244(%fp) move.l #1179451392,-42243(%fp) clr.l -42239(%fp) move.b #1,-41732(%fp) move.l #1375731712,-41731(%fp) clr.l -41727(%fp) move.b #1,-41476(%fp) move.l #1174405120,-41475(%fp) clr.l -41471(%fp) move.b #1,-41220(%fp) move.l #1291845632,-41219(%fp) clr.l -41215(%fp) move.b #1,-40964(%fp) move.l #1342177280,-40963(%fp) clr.l -40959(%fp) move.b #2,-40708(%fp) move.l #1380974592,-40707(%fp) clr.l -40703(%fp) move.b #2,-40452(%fp) move.l #1179648000,-40451(%fp) clr.l -40447(%fp) move.b #2,-40196(%fp) move.l #1297088512,-40195(%fp) clr.l -40191(%fp) move.b #2,-39940(%fp) move.l #1347420160,-39939(%fp) clr.l -39935(%fp) move.b #1,-39684(%fp) move.l #1275068416,-39683(%fp) clr.l -39679(%fp) move.b #1,-39428(%fp) move.l #1392508928,-39427(%fp) clr.l -39423(%fp) move.b #1,-39172(%fp) move.l #1090519040,-39171(%fp) clr.l -39167(%fp) move.b #2,-38916(%fp) move.l #1095630848,-38915(%fp) clr.l -38911(%fp) move.b #2,-38660(%fp) move.l #1312882688,-38659(%fp) clr.l -38655(%fp) move.b #3,-38404(%fp) move.l #1312902656,-38403(%fp) clr.l -38399(%fp) move.b #7,-35588(%fp) move.l #625824596,-35587(%fp) move.l #1095914496,-35583(%fp) move.b #6,-35332(%fp) move.l #625167429,-35331(%fp) move.l #1095892992,-35327(%fp) move.b #5,-35076(%fp) move.l #626020933,-35075(%fp) move.l #1140850688,-35071(%fp) move.b #8,-34564(%fp) move.l #625235266,-34563(%fp) move.l #1229935955,-34559(%fp) move.b #4,-34308(%fp) move.l #625235280,-34307(%fp) clr.l -34303(%fp) move.b #4,-34052(%fp) move.l #626018638,-34051(%fp) clr.l -34047(%fp) move.b #5,-33796(%fp) move.l #626020181,-33795(%fp) move.l #1409286144,-33791(%fp) move.b #5,-33540(%fp) move.l #625296469,-33539(%fp) move.l #1342177280,-33535(%fp) move.b #6,-33028(%fp) move.l #1346978885,-33027(%fp) move.l #1314127872,-33023(%fp) move.b #6,-32772(%fp) move.l #1128875077,-32771(%fp) move.l #1314127872,-32767(%fp) move.b #6,-32516(%fp) move.l #1330201669,-32515(%fp) move.l #1314127872,-32511(%fp) move.b #5,-32260(%fp) move.l #1179533645,-32259(%fp) move.l #1157627904,-32255(%fp) move.b #4,-32004(%fp) move.l #1398229316,-32003(%fp) clr.l -31999(%fp) move.b #4,-31748(%fp) move.l #1146049612,-31747(%fp) clr.l -31743(%fp) move.b #4,-31492(%fp) move.l #1146049618,-31491(%fp) clr.l -31487(%fp) move.b #4,-31236(%fp) move.l #1095976272,-31235(%fp) clr.l -31231(%fp) move.b #4,-30980(%fp) move.l #1129530704,-30979(%fp) clr.l -30975(%fp) move.b #4,-30724(%fp) move.l #1330857296,-30723(%fp) clr.l -30719(%fp) move.b #4,-30468(%fp) move.l #1347634512,-30467(%fp) clr.l -30463(%fp) move.b #3,-30212(%fp) move.l #1095909888,-30211(%fp) clr.l -30207(%fp) move.b #5,-29956(%fp) move.l #1112558674,-29955(%fp) move.l #1107296256,-29951(%fp) move.b #3,-29700(%fp) move.l #1330790912,-29699(%fp) clr.l -29695(%fp) move.b #3,-29444(%fp) move.l #1347568128,-29443(%fp) clr.l -29439(%fp) move.b #3,-29188(%fp) move.l #1129464320,-29187(%fp) clr.l -29183(%fp) move.b #4,-28932(%fp) move.l #1380143682,-28931(%fp) clr.l -28927(%fp) move.b #5,-28676(%fp) move.l #1380270930,-28675(%fp) move.l #1107296256,-28671(%fp) move.b #5,-28420(%fp) move.l #1380270924,-28419(%fp) move.l #1107296256,-28415(%fp) move.b #3,-28164(%fp) move.l #1279345152,-28163(%fp) clr.l -28159(%fp) move.b #4,-27908(%fp) move.l #1296843074,-27907(%fp) clr.l -27903(%fp) move.b #4,-27652(%fp) move.l #1397506370,-27651(%fp) clr.l -27647(%fp) move.b #5,-27396(%fp) move.l #1481523533,-27395(%fp) move.l #1157627904,-27391(%fp) move.b #4,-27140(%fp) move.l #1331121748,-27139(%fp) clr.l -27135(%fp) move.b #5,-26884(%fp) move.l #1145197381,-26883(%fp) move.l #1342177280,-26879(%fp) move.b #6,-26628(%fp) move.l #1346588494,-26627(%fp) move.l #1398013952,-26623(%fp) move.b #4,-26372(%fp) move.l #1129140036,-26371(%fp) clr.l -26367(%fp) move.b #5,-26116(%fp) move.l #1129531719,-26115(%fp) move.l #1308622848,-26111(%fp) move.b #4,-25860(%fp) move.l #1129664336,-25859(%fp) clr.l -25855(%fp) move.b #4,-25604(%fp) move.l #1129271345,-25603(%fp) clr.l -25599(%fp) move.b #4,-25348(%fp) move.l #1129271346,-25347(%fp) clr.l -25343(%fp) move.b #4,-25092(%fp) move.l #1129271347,-25091(%fp) clr.l -25087(%fp) move.b #5,-24836(%fp) move.l #1229866053,-24835(%fp) move.l #1174405120,-24831(%fp) move.b #5,-24580(%fp) move.l #1480936531,-24579(%fp) move.l #1157627904,-24575(%fp) move.b #6,-24324(%fp) move.l #1129465171,-24323(%fp) move.l #1330642944,-24319(%fp) move.b #4,-24068(%fp) move.l #1313620290,-24067(%fp) clr.l -24063(%fp) move.b #6,-23812(%fp) move.l #1381322324,-23811(%fp) move.l #1229717504,-23807(%fp) move.b #6,-23556(%fp) move.l #1094930254,-23555(%fp) move.l #1398013952,-23551(%fp) move.b #4,-23300(%fp) move.l #1330795074,-23299(%fp) clr.l -23295(%fp) move.b #5,-23044(%fp) move.l #1179468110,-23043(%fp) move.l #1493172224,-23039(%fp) move.b #7,-22788(%fp) move.l #1330861138,-22787(%fp) move.l #1229866752,-22783(%fp) move.b #4,-22532(%fp) move.l #1179470914,-22531(%fp) clr.l -22527(%fp) move.b #4,-22276(%fp) move.l #1179472450,-22275(%fp) clr.l -22271(%fp) move.b #4,-22020(%fp) move.l #1179471698,-22019(%fp) clr.l -22015(%fp) move.b #7,-21764(%fp) move.l #1380011591,-21763(%fp) move.l #1163018752,-21759(%fp) move.b #4,-21508(%fp) move.l #1179863364,-21507(%fp) clr.l -21503(%fp) move.b #6,-19972(%fp) move.l #625235277,-19971(%fp) move.l #1297678336,-19967(%fp) move.b #5,-19716(%fp) move.l #625231171,-19715(%fp) move.l #1275068416,-19711(%fp) move.b #5,-19460(%fp) move.l #626284880,-19459(%fp) move.l #1157627904,-19455(%fp) move.b #5,-19204(%fp) move.l #626672978,-19203(%fp) move.l #1325400064,-19199(%fp) move.b #6,-18948(%fp) move.l #625037392,-18947(%fp) move.l #1280901120,-18943(%fp) move.b #5,-18692(%fp) move.l #626020943,-18691(%fp) move.l #1409286144,-18687(%fp) move.b #8,-18436(%fp) move.l #626214228,-18435(%fp) move.l #1347571540,-18431(%fp) move.b #6,-18180(%fp) move.l #626021465,-18179(%fp) move.l #1346699264,-18175(%fp) move.b #5,-17924(%fp) move.l #625426768,-17923(%fp) move.l #1342177280,-17919(%fp) move.b #6,-17668(%fp) move.l #625758019,-17667(%fp) move.l #1095499776,-17663(%fp) move.b #6,-17412(%fp) move.l #625431873,-17411(%fp) move.l #1380188160,-17407(%fp) move.b #6,-17156(%fp) move.l #625820495,-17155(%fp) move.l #1145372672,-17151(%fp) move.b #7,-16900(%fp) move.l #625165397,-16899(%fp) move.l #1296914688,-16895(%fp) move.b #8,-16644(%fp) move.l #626214228,-16643(%fp) move.l #1415139397,-16639(%fp) move.b #5,-16388(%fp) move.l #625954885,-16387(%fp) move.l #1375731712,-16383(%fp) move.b #6,-16132(%fp) move.l #626016594,-16131(%fp) move.l #1095565312,-16127(%fp) move.b #6,-15876(%fp) move.l #625101903,-15875(%fp) move.l #1128988672,-15871(%fp) move.b #6,-15620(%fp) move.l #625955912,-15619(%fp) move.l #1163001856,-15615(%fp) move.b #8,-15364(%fp) move.l #625168205,-15363(%fp) move.l #1346980933,-15359(%fp) move.b #3,-15108(%fp) move.l #1095782400,-15107(%fp) clr.l -15103(%fp) move.b #7,-14852(%fp) move.l #1111577413,-14851(%fp) move.l #1095782400,-14847(%fp) move.b #4,-14596(%fp) move.l #1095782450,-14595(%fp) clr.l -14591(%fp) move.b #4,-14340(%fp) move.l #1095782451,-14339(%fp) clr.l -14335(%fp) move.b #4,-14084(%fp) move.l #1095782452,-14083(%fp) clr.l -14079(%fp) move.b #4,-13828(%fp) move.l #1095782453,-13827(%fp) clr.l -13823(%fp) move.b #4,-13572(%fp) move.l #1095782454,-13571(%fp) clr.l -13567(%fp) move.b #5,-13316(%fp) move.l #1094993222,-13315(%fp) move.l #1308622848,-13311(%fp) move.b #5,-13060(%fp) move.l #1313882450,-13059(%fp) move.l #1291845632,-13055(%fp) move.b #5,-12804(%fp) move.l #1398228037,-12803(%fp) move.l #1174405120,-12799(%fp) move.b #5,-12548(%fp) move.l #1398229316,-12547(%fp) move.l #1392508928,-12543(%fp) move.b #5,-12292(%fp) move.l #1128875352,-12291(%fp) move.l #1342177280,-12287(%fp) move.b #6,-12036(%fp) move.l #1380142926,-12035(%fp) move.l #1398013952,-12031(%fp) move.b #6,-11780(%fp) move.l #1396920142,-11779(%fp) move.l #1398013952,-11775(%fp) move.b #6,-11524(%fp) move.l #1095914049,-11523(%fp) move.l #1498415104,-11519(%fp) move.b #4,-11268(%fp) move.l #1481198928,-11267(%fp) clr.l -11263(%fp) move.b #3,-11012(%fp) move.l #1229803520,-11011(%fp) clr.l -11007(%fp) move.b #4,-10756(%fp) move.l #1129270852,-10755(%fp) clr.l -10751(%fp) move.b #5,-10500(%fp) move.l #1396920142,-10499(%fp) move.l #1140850688,-10495(%fp) move.b #4,-10244(%fp) move.l #1163415601,-10243(%fp) clr.l -10239(%fp) move.b #4,-9988(%fp) move.l #1163415602,-9987(%fp) clr.l -9983(%fp) move.b #4,-9732(%fp) move.l #1397053520,-9731(%fp) clr.l -9727(%fp) move.b #4,-9476(%fp) move.l #1229281360,-9475(%fp) clr.l -9471(%fp) move.b #5,-9220(%fp) move.l #1229281360,-9219(%fp) move.l #822083584,-9215(%fp) move.b #5,-8964(%fp) move.l #1229281360,-8963(%fp) move.l #838860800,-8959(%fp) move.b #5,-8708(%fp) move.l #1230194008,-8707(%fp) move.l #1342177280,-8703(%fp) move.b #3,-8452(%fp) move.l #1397051648,-8451(%fp) clr.l -8447(%fp) move.b #4,-8196(%fp) move.l #1178879302,-8195(%fp) clr.l -8191(%fp) move.b #3,-7940(%fp) move.l #1163415552,-7939(%fp) clr.l -7935(%fp) move.b #7,-7684(%fp) move.l #1312903762,-7683(%fp) move.l #1096372224,-7679(%fp) move.b #6,-7428(%fp) move.l #1398035029,-7427(%fp) move.l #1129578496,-7423(%fp) move.b #6,-7172(%fp) move.l #1380275013,-7171(%fp) move.l #1481637888,-7167(%fp) move.b #3,-6916(%fp) move.l #1112558592,-6915(%fp) clr.l -6911(%fp) move.b #6,-6660(%fp) move.l #1129270867,-6659(%fp) move.l #1413611520,-6655(%fp) move.b #5,-6404(%fp) move.l #1179210821,-6403(%fp) move.l #1291845632,-6399(%fp) move.b #5,-6148(%fp) move.l #1297044037,-6147(%fp) move.l #1090519040,-6143(%fp) move.b #5,-5892(%fp) move.l #1129072979,-5891(%fp) move.l #1409286144,-5887(%fp) move.b #3,-5636(%fp) move.l #1179668480,-5635(%fp) clr.l -5631(%fp) move.b #4,-5380(%fp) move.l #1179668528,-5379(%fp) clr.l -5375(%fp) move.b #4,-5124(%fp) move.l #1179668529,-5123(%fp) clr.l -5119(%fp) move.b #4,-4868(%fp) move.l #1179668530,-4867(%fp) clr.l -4863(%fp) move.b #7,-4612(%fp) move.l #1229867348,-4611(%fp) move.l #1447121408,-4607(%fp) move.b #6,-4356(%fp) move.l #1380270917,-4355(%fp) move.l #1481637888,-4351(%fp) move.b #4,-4100(%fp) move.l #1162431824,-4099(%fp) clr.l -4095(%fp) move.b #6,-3844(%fp) move.l #1229210958,-3843(%fp) move.l #1414725632,-3839(%fp) move.b #5,-3588(%fp) move.l #1380011591,-3587(%fp) move.l #1157627904,-3583(%fp) move.b #7,-3332(%fp) move.l #1380142926,-3331(%fp) move.l #1398030848,-3327(%fp) move.b #4,-3076(%fp) move.l #1447121488,-3075(%fp) clr.l -3071(%fp) move.b #7,-2820(%fp) move.l #1229867348,-2819(%fp) move.l #1145389824,-2815(%fp) move.b #6,-1796(%fp) move.l #1163084612,-1795(%fp) move.l #1162018816,-1791(%fp) move.b #7,-1540(%fp) move.l #1163084624,-1539(%fp) move.l #1380926208,-1535(%fp) move.b #8,-1284(%fp) move.l #1163084609,-1283(%fp) move.l #1381122393,-1279(%fp) move.b #6,-1028(%fp) move.l #1163084626,-1027(%fp) move.l #1162018816,-1023(%fp) .loc 1 287 0 move.b #90,-66374(%fp) move.b #90,-66373(%fp) move.b #90,-66372(%fp) move.b #90,-66371(%fp) move.b #90,-66370(%fp) move.b #48,-66369(%fp) move.b #48,-66368(%fp) move.b #19,-66367(%fp) move.b #19,-66366(%fp) move.b #19,-66365(%fp) move.b #19,-66364(%fp) move.b #25,-66363(%fp) move.b #25,-66362(%fp) move.b #25,-66361(%fp) move.b #25,-66360(%fp) move.b #25,-66359(%fp) move.b #25,-66358(%fp) move.b #25,-66357(%fp) move.b #23,-66356(%fp) move.b #104,-66355(%fp) move.b #104,-66354(%fp) move.b #105,-66353(%fp) move.b #30,-66352(%fp) move.b #20,-66351(%fp) move.b #21,-66350(%fp) move.b #93,-66349(%fp) move.b #47,-66348(%fp) move.b #45,-66347(%fp) move.b #46,-66346(%fp) move.b #42,-66345(%fp) move.b #43,-66344(%fp) move.b #44,-66343(%fp) move.b #40,-66342(%fp) move.b #68,-66341(%fp) move.b #55,-66340(%fp) move.b #104,-66339(%fp) move.b #60,-66338(%fp) move.b #93,-66337(%fp) move.b #25,-66336(%fp) move.b #40,-66335(%fp) move.b #93,-66334(%fp) move.b #23,-66333(%fp) move.b #25,-66332(%fp) move.b #57,-66331(%fp) move.b #25,-66330(%fp) move.b #90,-66329(%fp) move.b #-80,-66328(%fp) move.b #-79,-66327(%fp) move.b #-78,-66326(%fp) move.b #-77,-66325(%fp) .loc 1 297 0 pea 240.w pea .LC0 pea -96906(%fp) lea memcpy,%a2 jsr (%a2) .LVL1055: .loc 1 501 0 pea 1152.w pea .LC1 pea -92358(%fp) jsr (%a2) .LVL1056: lea (36,%sp),%sp 576 577 %ROUTINE flush buffer link.w %fp,#-768 movem.l #15416,-(%sp) move.l %a0,%a3 .LVL89: .LBB327: .LBB328: moveq #1,%d0 move.l %d0,_imp_OutStream move.l _imp_outfile+280,_imp_OutFile pea __PRETTY_FUNCTION__.5590 jsr check_outstream .LVL90: .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)) move.l BP.6127,%d2 .LVL91: .LBB330: 583 %REPEAT move.l %d2,%d0 subq.l #1,%d0 .LVL92: .LBE330: addq.l #4,%sp jmi .L58 .LVL93: .L50: pea .LC74 lea (-512,%fp),%a1 jsr _imp_c2istr .LVL102: move.l _imp_current_line,%a2 addq.l #4,%sp tst.l %a2 jne .L51 move.w #583,%a2 .L51: move.l _imp_current_file,%d0 jeq .L52 move.l %d0,-(%sp) lea (-256,%fp),%a1 jsr _imp_c2istr .LVL103: addq.l #4,%sp .L53: clr.l -(%sp) pea 1.w pea 5.w lea (-256,%sp),%sp move.l %sp,%d0 move.l #256,%d3 move.l %d3,-(%sp) pea -512(%fp) move.l %d0,-(%sp) lea memcpy,%a4 jsr (%a4) .LVL104: lea (12,%sp),%sp move.l %a2,-(%sp) lea (-256,%sp),%sp move.l %sp,%d0 move.l %d3,-(%sp) pea -256(%fp) move.l %d0,-(%sp) jsr (%a4) .LVL105: lea (12,%sp),%sp jsr _signal_event .LVL106: lea (528,%sp),%sp jra .L50 .L52: .LBB333: move.l %fp,%d3 add.l #-256,%d3 move.l #256,%d4 move.l %d4,-(%sp) pea .LC9 move.l %d3,-(%sp) lea memcpy,%a4 jsr (%a4) .LVL107: move.l %fp,%d5 add.l #-768,%d5 move.l %d4,-(%sp) move.l %d3,-(%sp) move.l %d5,-(%sp) jsr (%a4) .LVL108: .LBE333: move.l %d4,-(%sp) move.l %d5,-(%sp) move.l %d3,-(%sp) jsr (%a4) .LVL109: lea (36,%sp),%sp jra .L53 .LBE336: .LFE186: .align 2 DEF.7225: .LFB215: 584 select output(listing) 585 %FINISH 586 bp = 0 tst.l %d2 jeq .L54 move.l #104710,%a2 add.l %a3,%a2 lea 104710(%a3,%d2.l),%a4 .LBB331: .LBB332: lea _imp_printsymbol,%a3 .LVL94: .L55: move.b (%a2)+,%d0 .LVL95: extb.l %d0 move.l %d0,-(%sp) .LVL96: jsr (%a3) .LVL97: .LBE332: .LBE331: addq.l #4,%sp cmp.l %a2,%a4 jne .L55 .L54: .LVL98: .LBE329: .LBB334: .LBB335: moveq #2,%d0 move.l %d0,_imp_OutStream move.l _imp_outfile+556,_imp_OutFile pea __PRETTY_FUNCTION__.5590 jsr check_outstream .LVL99: .LDL4: .LBE335: .LBE334: clr.l BP.6127 587 %END addq.l #4,%sp 588 %ROUTINE print ident(%INTEGER p, mode) .LVL58: link.w %fp,#-1280 movem.l #16188,-(%sp) move.l %a0,%a3 movem.l -796(%fp),#7228 .LVL100: unlk %fp rts .LVL101: .L58: .LBB336: 589 %INTEGER j, ad 590 p = tag(p)_text move.l 8(%fp),%d0 add.l #1627,%d0 lsl.l #4,%d0 move.w (%a0,%d0.l),%d0 .LVL59: 591 %IF p = 0 %START jne .L35 592 bp = bp+1 %AND buff(bp) = '?' %if Mode # 0 tst.l 12(%fp) jeq .L34 593 %RETURN move.l BP.6127,%d0 .LVL60: move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 594 %FINISH move.b #63,104710(%a0,%d0.l) .LVL61: jra .L34 .LVL62: .L35: 595 ad = addr(dict(p+1)) move.w %d0,%a2 move.l %a2,%d0 .LVL63: add.l #7010,%d0 add.l %d0,%d0 lea (%a0,%d0.l),%a2 move.l %a2,%d4 .LBB321: 596 %IF mode = 0 %THEN printstring(string(ad)) %ELSE %START tst.l 12(%fp) jeq .L47 .L37: 597 %FOR j = ad+1, 1, ad+byteinteger(ad) %CYCLE 598 bp = bp+1 move.l %a2,%d2 addq.l #1,%d2 .LVL64: clr.l %d3 move.b (%a2),%d3 add.l %a2,%d3 .LVL65: .LBB322: 599 buff(bp) = byteinteger(j) move.l %d3,%d0 sub.l %d2,%d0 .LVL66: .LBE322: jmi .L48 .LVL67: .L38: move.b (%a0)+,(%a1)+ .LVL69: pea .LC73 .LVL78: lea (-768,%fp),%a1 jsr _imp_c2istr .LVL79: move.l _imp_current_line,%d5 addq.l #4,%sp jne .L39 move.l #599,%d5 .L39: move.l _imp_current_file,%d0 jeq .L40 move.l %d0,-(%sp) lea (-512,%fp),%a1 jsr _imp_c2istr .LVL80: addq.l #4,%sp .L41: clr.l -(%sp) pea 1.w pea 5.w lea (-256,%sp),%sp move.l %sp,%d0 move.l #256,%d6 move.l %d6,-(%sp) pea -768(%fp) move.l %d0,-(%sp) lea memcpy,%a4 jsr (%a4) .LVL81: lea (12,%sp),%sp move.l %d5,-(%sp) lea (-256,%sp),%sp move.l %sp,%d0 move.l %d6,-(%sp) pea -512(%fp) move.l %d0,-(%sp) jsr (%a4) .LVL82: lea (12,%sp),%sp jsr _signal_event .LVL83: lea (528,%sp),%sp jra .L38 .L40: .LBB323: lea (-256,%fp),%a5 move.l #256,%d6 move.l %d6,-(%sp) pea .LC9 move.l %a5,-(%sp) lea memcpy,%a4 jsr (%a4) .LVL84: move.l %fp,%d7 .LVL85: add.l #-1024,%d7 .LVL86: move.l %d6,-(%sp) move.l %a5,-(%sp) move.l %d7,-(%sp) jsr (%a4) .LVL87: .LBE323: move.l %d6,-(%sp) move.l %d7,-(%sp) pea -512(%fp) jsr (%a4) .LVL88: lea (36,%sp),%sp jra .L41 .LBE326: .LFE187: .section .rodata.str1.1 .LC74: .string "Illegal cycle J = 1, 1, BP" .align 2 FLUSHBUFFER.6137: .LFB186: 600 %REPEAT 601 %FINISH 602 %END cmp.l %d4,%d3 jeq .L34 move.l %d2,%a0 move.l BP.6127,%d1 lea 104710(%a3,%d1.l),%a1 move.l %d3,%d0 addq.l #1,%d0 .L42: .LVL68: cmp.l %a0,%d0 jne .L42 sub.l %a2,%d1 add.l %d3,%d1 move.l %d1,BP.6127 .L36: .L43: .L44: .LVL70: .L34: .LBE321: 603 %ROUTINE abandon(%INTEGER n) .LVL14: link.w %fp,#-1024 movem.l #15904,-(%sp) move.l 8(%fp),%d2 .LVL15: .LDL2: movem.l -1320(%fp),#15612 unlk %fp rts .LVL71: .L47: move.l %fp,%d2 .LVL72: add.l #-256,%d2 .LVL73: move.l #256,%d3 move.l %d3,-(%sp) pea -1280(%fp) move.l %d2,-(%sp) lea memcpy,%a2 jsr (%a2) .LVL74: .LBB324: .LBB325: lea (-256,%sp),%sp move.l %sp,%d0 move.l %d3,-(%sp) move.l %d2,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL75: lea (12,%sp),%sp jsr _imp_printstring .LVL76: lea (268,%sp),%sp jra .L34 .LVL77: .L48: .LBE325: .LBE324: .LBB326: 604 %SWITCH reason(0:9) 605 %INTEGER stream 606 stream = listing 607 %CYCLE 608 newline %IF sym # nl moveq #10,%d0 cmp.l SYM.6058,%d0 jne .L29 .L18: .LVL16: .LBB308: .LBB309: pea 42.w jsr _imp_printsymbol .LVL17: .LBE309: .LBE308: 609 printsymbol('*'); write(lines,4); space 610 ->reason(n) pea 4.w move.l LINES.6050,-(%sp) jsr _imp_writeint .LVL18: .LBB310: .LBB311: jsr _imp_space .LVL19: .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: link.w %fp,#0 move.l %d2,-(%sp) move.l 12(%fp),%d1 641 buff(bp+1) <- code move.l BP.6127,%d0 move.b 11(%fp),104710(%a0,%d0.l) lea (12,%sp),%sp moveq #9,%d0 cmp.l %d2,%d0 jcc .L19 move.l _imp_current_line,%d3 jne .L20 move.l #641,%d3 .L20: move.l _imp_current_file,%d0 jeq .L21 move.l %d0,-(%sp) lea (-512,%fp),%a1 jsr _imp_c2istr .LVL20: addq.l #4,%sp .L22: pea 610.w pea .LC70 move.l %d2,-(%sp) pea .LC71 move.l %d2,-(%sp) pea 3.w pea 6.w move.l %d3,-(%sp) lea (-256,%sp),%sp move.l %sp,%d0 pea 256.w pea -512(%fp) move.l %d0,-(%sp) jsr memcpy .LVL21: lea (12,%sp),%sp jsr _signal_eventf .LVL22: lea (288,%sp),%sp .L19: .L23: move.l %fp,%d6 .LVL38: add.l #-256,%d6 .LVL39: move.l #256,%d4 move.l %d4,-(%sp) pea .LC9 move.l %d6,-(%sp) lea memcpy,%a2 jsr (%a2) .LVL40: move.l %fp,%d5 .LVL41: add.l #-1024,%d5 .LVL42: move.l %d4,-(%sp) move.l %d6,-(%sp) move.l %d5,-(%sp) jsr (%a2) .LVL43: .LBE315: move.l %d4,-(%sp) move.l %d5,-(%sp) pea -512(%fp) jsr (%a2) .LVL44: lea (36,%sp),%sp jra .L22 .LVL45: .L30: 642 buff(bp+2) <- param>>8 move.l %d1,%d2 lsr.l #8,%d2 move.b %d2,104711(%a0,%d0.l) 643 buff(bp+3) <- param move.b %d1,104712(%a0,%d0.l) 644 bp = bp+3 addq.l #3,%d0 move.l %d0,BP.6127 move.l _imp_current_line,%d3 jne .L24 move.l #644,%d3 .L24: move.l _imp_current_file,%d0 jne .L30 .LBB312: move.l %fp,%d4 .LVL23: add.l #-256,%d4 .LVL24: move.l #256,%d5 move.l %d5,-(%sp) pea .LC9 move.l %d4,-(%sp) lea memcpy,%a2 jsr (%a2) .LVL25: move.l %fp,%d6 .LVL26: add.l #-768,%d6 .LVL27: move.l %d5,-(%sp) move.l %d4,-(%sp) move.l %d6,-(%sp) jsr (%a2) .LVL28: .LBE312: move.l %d5,-(%sp) move.l %d6,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL29: lea (36,%sp),%sp .LVL30: .L26: pea 610.w pea .LC70 move.l %d2,-(%sp) pea .LC72 move.l %d2,-(%sp) pea 2.w pea 8.w move.l %d3,-(%sp) lea (-256,%sp),%sp move.l %sp,%d0 pea 256.w pea -256(%fp) move.l %d0,-(%sp) jsr memcpy .LVL31: lea (12,%sp),%sp jsr _signal_eventf .LVL32: move.l %d0,-(%sp) lea (-256,%fp),%a1 jsr _imp_c2istr .LVL46: addq.l #4,%sp jra .L26 .LFE188: .align 2 SHOW.6535: .LFB200: 645 %END lea (288,%sp),%sp movem.l -1048(%fp),#1148 .LVL33: unlk %fp .LVL34: rts .LVL35: .L29: .LBB313: .LBB314: jsr _imp_newline .LVL36: jra .L18 .LVL37: .L21: .LBE314: .LBE313: .LBB315: 646 %ROUTINE set const(%INTEGER m) move.l (%sp)+,%d2 unlk %fp rts .LFE189: .align 2 SETCONST.6246: .LFB190: .LVL1: link.w %fp,#0 move.l %d2,-(%sp) move.l 8(%fp),%d1 647 buff(bp+1) <- 'N' move.l BP.6127,%d0 move.b #78,104710(%a0,%d0.l) 648 buff(bp+5) <- m; m = m>>8 move.b %d1,104714(%a0,%d0.l) .LVL2: 649 buff(bp+4) <- m; m = m>>8 move.l %d1,%d2 lsr.l #8,%d2 .LVL3: move.b %d2,104713(%a0,%d0.l) .LVL4: 650 buff(bp+3) <- m; m = m>>8 move.l %d1,%d2 clr.w %d2 swap %d2 .LVL5: move.b %d2,104712(%a0,%d0.l) .LVL6: 651 buff(bp+2) <- m moveq #24,%d2 lsr.l %d2,%d1 .LVL7: move.b %d1,104711(%a0,%d0.l) 652 bp = bp+5 addq.l #5,%d0 move.l %d0,BP.6127 653 %END 654 move.l (%sp)+,%d2 unlk %fp rts .LFE190: .align 2 SETCELL.6459: .LFB195: 655 656 657 %ROUTINE compile block(%INTEGER level, block tag, dmin, tmax, id) .loc 1 657 0 .cfi_startproc link.w %fp,#-1632 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 movem.l #16188,-(%sp) .cfi_offset 2, -1680 .cfi_offset 3, -1676 .cfi_offset 4, -1672 .cfi_offset 5, -1668 .cfi_offset 6, -1664 .cfi_offset 7, -1660 .cfi_offset 10, -1656 .cfi_offset 11, -1652 .cfi_offset 12, -1648 .cfi_offset 13, -1644 move.l 12(%fp),%d4 move.l 16(%fp),%d1 move.l 20(%fp),%d0 move.l %a0,%a2 .loc 1 657 0 lea (8,%fp),%a0 move.l %a0,-1564(%fp) move.l 8(%fp),-1584(%fp) move.l %d4,-1620(%fp) move.l %d0,-1580(%fp) move.l 24(%fp),-1588(%fp) move.l %a2,-1568(%fp) 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 .loc 1 665 0 move.l #16384,-1612(%fp) .LVL982: 666 %INTEGER tbase; tbase = tmax; !tag base 667 %INTEGER tstart; tstart = tmax .loc 1 667 0 move.l %d0,-1576(%fp) 668 %INTEGER label; label = 4; !first internal label .loc 1 668 0 move.l %d0,-1572(%fp) 669 %INTEGER access; access = 1; !non-zero if accessible .loc 1 669 0 moveq #4,%d0 move.l %d0,-1624(%fp) 670 %INTEGER inhibit; inhibit = 0; !non-zero inhibits declaratons .loc 1 670 0 moveq #1,%d2 move.l %d2,-1608(%fp) 671 .loc 1 671 0 clr.l -1628(%fp) 672 %SHORTINTEGERNAME bflags; bflags == tag(block tag)_flags 673 %INTEGER block type; block type = bflags>>4&7 .loc 1 673 0 move.l %d4,%d0 lsl.l #4,%d0 lea 26028(%a2,%d0.l),%a0 move.l %a0,-1616(%fp) 674 %INTEGER block form; block form = bflags&15 .loc 1 674 0 lea (%a2,%d0.l),%a0 move.w 26028(%a0),%d0 bfextu %d0{#25:#3},%d2 move.l %d2,-1600(%fp) 675 %INTEGER block fm; block fm = tag(block tag)_format .loc 1 675 0 moveq #15,%d2 and.l %d0,%d2 move.l %d2,-1596(%fp) 676 %INTEGER block otype; block otype = otype .loc 1 676 0 move.l 26024(%a0),-1604(%fp) 677 %INTEGERNAME block app; block app == tag(block tag)_app .loc 1 677 0 move.l OTYPE.6070,%d2 .LVL983: 678 679 %INTEGER l, new app 680 681 %ROUTINE fault(%INTEGER n) .loc 1 681 0 .cfi_startproc .LVL373: link.w %fp,#-2052 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 movem.l #16188,-(%sp) .cfi_offset 2, -2100 .cfi_offset 3, -2096 .cfi_offset 4, -2092 .cfi_offset 5, -2088 .cfi_offset 6, -2084 .cfi_offset 7, -2080 .cfi_offset 10, -2076 .cfi_offset 11, -2072 .cfi_offset 12, -2068 .cfi_offset 13, -2064 move.l 8(%fp),%d4 move.l %a0,-2052(%fp) 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 .loc 1 691 0 addq.l #8,%sp tst.l POS.6108 jne .L363 .LVL394: .L335: .LDL21: .LBE455: .LBE469: .LBB470: .LBB471: .loc 2 661 0 jsr _imp_newline .LVL395: .LBE471: .LBE470: 692 space 693 p = 1 .loc 1 693 0 moveq #1,%d3 694 %CYCLE 695 printsymbol(marker) %IF p = pos1 .loc 1 695 0 cmp.l POS1.6106,%d3 jeq .L366 .L338: 696 %EXIT %IF p = pos .loc 1 696 0 move.l POS.6108,%d1 cmp.l %d3,%d1 jeq .L345 .L340: 697 s = char(p); p = p+1 .loc 1 697 0 lea CHAR.6115,%a4 jra .L346 .LVL375: .L359: .LBE448: .LBE447: .LBB457: .LBB458: .loc 2 661 0 jsr _imp_newline .LVL376: jra .L326 .LVL377: .L360: .LBE458: .LBE457: .loc 1 697 0 clr.l %d0 move.b (%a4,%d3.l),%d0 .LVL436: 698 %EXIT %IF s = nl %OR (s='%' %AND p = pos) .loc 1 698 0 addq.l #1,%d3 .LVL437: .loc 1 698 0 moveq #10,%d7 cmp.l %d0,%d7 jeq .L345 699 %IF s < ' ' %START; !beware of tabs .loc 1 699 0 moveq #37,%d7 cmp.l %d0,%d7 jeq .L367 .L341: .loc 1 699 0 moveq #31,%d1 cmp.l %d0,%d1 jlt .L344 700 %IF s = ff %THEN s = nl %ELSE s = ' ' .loc 1 700 0 cmp.l %d1,%d3 jeq .L345 .L342: .L343: .LVL432: .L344: .LBB453: .LBB454: .loc 2 586 0 extb.l %d0 .LVL433: move.l %d0,-(%sp) jsr (%a2) .LVL434: addq.l #4,%sp .LVL435: .L337: .LBE454: .LBE453: .loc 1 700 0 moveq #12,%d7 cmp.l %d0,%d7 jeq .L356 701 %FINISH .loc 1 701 0 moveq #10,%d6 .LVL427: .loc 1 701 0 move.l %d6,%d0 .LVL440: jra .L344 .L339: .L345: 702 printsymbol(s) 703 %REPEAT 704 pos = 0 %IF list <= 0 .loc 1 704 0 moveq #32,%d5 .LVL428: jra .L337 .LVL429: .L366: .LBB451: .LBB452: .loc 2 586 0 pea 94.w jsr (%a2) .LVL430: addq.l #4,%sp jra .L338 .LVL431: .L367: .LBE452: .LBE451: .loc 1 704 0 move.l %d5,%d0 .LVL438: jra .L344 .LVL439: .L356: .loc 1 704 0 tst.l LIST.6120 jgt .L335 705 %END .loc 1 705 0 clr.l POS.6108 jra .L335 .LVL441: .L364: .L347: .LBE456: .LBE482: 706 707 pos1 = pos2 %IF pos2 > pos1 .loc 1 707 0 move.l POS2.6107,%d0 cmp.l POS1.6106,%d0 jle .L325 708 newline %IF sym # nl .loc 1 708 0 move.l %d0,POS1.6106 .L325: .loc 1 708 0 discriminator 1 moveq #10,%d0 cmp.l SYM.6058,%d0 jne .L359 .L326: .LVL374: 709 st = report .loc 1 709 0 clr.l %d2 .L327: .LBB444: .LBB445: .loc 2 586 0 lea _imp_printsymbol,%a2 lea (-1792,%fp),%a5 .LBE445: .LBE444: .LBB447: .LBB448: 710 st = listing %IF n = -3; !dont report unused on the console .loc 1 710 0 discriminator 1 moveq #-3,%d1 cmp.l %d4,%d1 jeq .L360 711 %cycle .loc 1 711 0 moveq #2,%d2 jra .L327 .LVL378: .L365: .LBB459: .LBB460: .loc 2 586 0 pea 63.w jsr (%a2) .LVL379: .LBE460: .LBE459: 712 SELECT OUTPUT(st) 713 %if n < 0 %then printsymbol('?') %and pos1 = 0 %else printsymbol('*') .loc 1 713 0 addq.l #4,%sp tst.l %d4 jlt .L365 .L328: .LVL398: .LBB474: .LBB446: .loc 2 586 0 pea 42.w jsr (%a2) .LVL399: addq.l #4,%sp .LVL400: .L329: .LBE446: .LBE474: 714 %if st # report %start .loc 1 714 0 tst.l %d2 jeq .L330 715 %if list <= 0 %and pos1 # 0 %start .loc 1 715 0 clr.l POS1.6106 .loc 1 715 0 tst.l LIST.6120 jgt .L333 716 spaces(pos1+margin); PRINTSTRING(" ! ") .loc 1 716 0 addq.l #4,%sp jra .L329 .L330: .loc 1 716 0 move.l POS1.6106,%d0 jeq .L333 .LVL401: .LBB475: .LBB476: .loc 2 659 0 discriminator 1 add.l MARGIN.6052,%d0 .LVL402: move.l %d0,-(%sp) jsr _imp_spaces .LVL403: .LBE476: .LBE475: .LBB477: 717 %finish .loc 1 717 0 discriminator 1 move.l %fp,%d5 .LVL404: add.l #-1024,%d5 .LVL405: move.l #256,%d3 move.l %d3,-(%sp) pea .LC24 move.l %d5,-(%sp) lea memcpy,%a3 jsr (%a3) .LVL406: move.l %fp,%d6 .LVL407: add.l #-2048,%d6 .LVL408: move.l %d3,-(%sp) move.l %d5,-(%sp) move.l %d6,-(%sp) jsr (%a3) .LVL409: add.l #256,%d5 move.l %d3,-(%sp) move.l %d6,-(%sp) move.l %d5,-(%sp) jsr (%a3) .LVL410: .LBE477: .LBB478: .LBB479: .loc 2 589 0 discriminator 1 lea (-216,%sp),%sp move.l %sp,%d0 move.l %d3,-(%sp) move.l %d5,-(%sp) move.l %d0,-(%sp) jsr (%a3) .LVL411: lea (12,%sp),%sp jsr _imp_printstring .LVL412: add.l %d3,%sp jra .L333 .LVL413: .L361: move.l #256,%d3 move.l %d3,-(%sp) move.l %a5,-(%sp) pea -512(%fp) lea memcpy,%a3 jsr (%a3) .LVL414: .LBE479: .LBE478: .LBB480: .LBB481: .loc 2 589 0 is_stmt 0 lea (-256,%sp),%sp move.l %sp,%d0 move.l %d3,-(%sp) pea -512(%fp) move.l %d0,-(%sp) jsr (%a3) .LVL415: lea (12,%sp),%sp jsr _imp_printstring .LVL416: lea (268,%sp),%sp jra .L332 .LVL417: .L362: .LDL22: .L351: .LBE481: .LBE480: 718 %finish %else %start 719 PRINTSTRING(include file) %if include # 0 .loc 1 719 0 tst.l INCLUDE.6094 jne .L361 .L332: 720 write(lines, 4); printsymbol(csym); space .loc 1 720 0 discriminator 3 pea 4.w move.l LINES.6050,-(%sp) jsr _imp_writeint .LVL380: .LBB461: .LBB462: .loc 2 586 0 discriminator 3 move.b CSYM.6063+3,%d7 extb.l %d7 move.l %d7,-(%sp) jsr (%a2) .LVL381: .LBE462: .LBE461: .LBB463: .LBB464: .loc 2 658 0 discriminator 3 jsr _imp_space .LVL382: lea (12,%sp),%sp .L331: .L333: .LVL383: .LBE464: .LBE463: .LBB465: 721 %finish 722 ->fm(n) %if -5 <= n <= 22 723 PRINTSTRING("fault"); write(n, 2); ->ps .loc 1 723 0 move.l %fp,%d5 .LVL384: add.l #-1024,%d5 .LVL385: move.l #256,%d3 move.l %d3,-(%sp) pea .LC25 move.l %d5,-(%sp) lea memcpy,%a3 jsr (%a3) .LVL386: move.l %fp,%d6 .LVL387: add.l #-1536,%d6 .LVL388: move.l %d3,-(%sp) move.l %d5,-(%sp) move.l %d6,-(%sp) jsr (%a3) .LVL389: add.l #768,%d5 move.l %d3,-(%sp) move.l %d6,-(%sp) move.l %d5,-(%sp) jsr (%a3) .LVL390: .LBE466: .LBB467: .LBB468: .loc 2 589 0 lea (-220,%sp),%sp move.l %sp,%d0 move.l %d3,-(%sp) move.l %d5,-(%sp) move.l %d0,-(%sp) jsr (%a3) .LVL391: lea (12,%sp),%sp jsr _imp_printstring .LVL392: .LBE468: .LBE467: 724 .loc 1 724 0 add.l %d3,%sp pea 2.w move.l %d4,-(%sp) jsr _imp_writeint .LVL393: .LDL20: .LBB469: .LBB455: 725 fm(-5):PRINTSTRING("Dubious statement"); dubious = 0; ->psd 726 fm(-4):PRINTSTRING("Non-local") 727 pos1 = for warn; for warn = 0; ->ps .loc 1 727 0 move.l %d4,%d0 addq.l #5,%d0 moveq #27,%d1 cmp.l %d0,%d1 jcc .L362 .L334: .LBE465: .LBB466: 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 .loc 1 760 0 moveq #2,%d0 cmp.l %d2,%d0 jeq .L364 761 st = listing .loc 1 761 0 moveq #2,%d2 .LVL396: .L346: .LBB472: .LBB473: .loc 2 629 0 move.l %d2,_imp_OutStream move.l %d2,%d0 lsl.l #4,%d0 add.l %d2,%d0 lsl.l #2,%d0 add.l %d2,%d0 lsl.l #2,%d0 move.l _imp_outfile+4(%d0.l),_imp_OutFile pea __PRETTY_FUNCTION__.5590 jsr check_outstream .LVL397: .LBE473: .LBE472: 762 %repeat 763 %if n >= 0 %start .loc 1 763 0 tst.l %d4 jge .L368 .L348: .L349: 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 havent 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 .loc 1 780 0 move.l -2052(%fp),%a0 move.l 60(%a0),56(%a0) 781 %IF list <= 0 %AND sym # nl %START .loc 1 781 0 tst.l LIST.6120 jgt .L324 782 error margin = column .loc 1 782 0 move.l SYM.6058,%d0 moveq #10,%d1 cmp.l %d0,%d1 jeq .L324 .loc 1 782 0 discriminator 1 move.l COLUMN.6055,ERRORMARGIN.6053 783 error sym = sym; sym = nl .loc 1 783 0 discriminator 1 move.l %d0,ERRORSYM.6054 784 %FINISH .loc 1 784 0 discriminator 1 move.l %d1,SYM.6058 jra .L324 .L368: .LVL442: .LBB483: .LBB484: .loc 2 862 0 clr.l -(%sp) jsr exit .LVL443: .L358: .LBE484: .LBE483: 785 %END 786 787 dmin = dmin-1; dict(dmin) = -1; !end marker for starts & cycles .loc 1 787 0 move.l %d1,%d0 subq.l #1,%d0 move.l %d0,-1592(%fp) 788 abandon(2) %IF dmax = dmin .loc 1 788 0 move.w #-1,14016(%a2,%d1.l*2) .loc 1 788 0 cmp.l DMAX.6088,%d0 jeq .L869 .LVL984: .L834: 789 .loc 1 789 0 pea 2.w move.l %a2,%a0 jsr ABANDON.6169 .LVL987: addq.l #4,%sp jra .L834 .L870: 790 %IF list > 0 %AND level > 0 %START .loc 1 790 0 tst.l LIST.6120 jle .L835 791 write(lines, 5); spaces(level*3-1) .loc 1 791 0 is_stmt 1 move.l _imp_current_line,%d2 .LVL418: jeq .L358 .L352: .loc 1 791 0 is_stmt 0 discriminator 4 move.l _imp_current_file,%d0 jeq .L353 .loc 1 791 0 discriminator 5 move.l %d0,-(%sp) lea (-1024,%fp),%a1 jsr _imp_c2istr .LVL419: addq.l #4,%sp .L354: .loc 1 791 0 discriminator 8 pea 729.w pea .LC70 move.l %d4,-(%sp) pea .LC75 move.l %d4,-(%sp) pea 2.w pea 8.w move.l %d2,-(%sp) lea (-256,%sp),%sp move.l %sp,%d0 pea 256.w pea -1024(%fp) move.l %d0,-(%sp) jsr memcpy .LVL420: lea (12,%sp),%sp jsr _signal_eventf .LVL421: lea (288,%sp),%sp .L350: .LVL422: .L324: .loc 1 791 0 move.l #791,%d2 jra .L352 .L353: .LBB485: .loc 1 791 0 is_stmt 0 discriminator 6 move.l %fp,%d3 .LVL444: add.l #-1024,%d3 .LVL445: move.l #256,%d5 move.l %d5,-(%sp) pea .LC9 move.l %d3,-(%sp) lea memcpy,%a2 jsr (%a2) .LVL446: move.l %fp,%d6 .LVL447: add.l #-1280,%d6 .LVL448: move.l %d5,-(%sp) move.l %d3,-(%sp) move.l %d6,-(%sp) jsr (%a2) .LVL449: .LBE485: move.l %d5,-(%sp) move.l %d6,-(%sp) move.l %d3,-(%sp) jsr (%a2) .LVL450: lea (36,%sp),%sp jra .L354 .cfi_endproc .LFE192: .align 2 POPLABEL.7333: .LFB221: .loc 1 791 0 tst.l -1584(%fp) jgt .L870 .L835: .loc 1 791 0 discriminator 3 pea 5.w move.l LINES.6050,-(%sp) jsr _imp_writeint .LVL988: 792 %IF block tag = 0 %START .loc 1 792 0 is_stmt 1 movem.l -2092(%fp),#15612 .LVL423: unlk %fp .LVL424: rts .LVL425: .L363: .L336: .LBB482: .LBB456: .LBB449: .LBB450: .loc 2 658 0 jsr _imp_space .LVL426: .LBE450: .LBE449: .loc 1 792 0 discriminator 3 move.l -1584(%fp),%d0 move.l %d0,%d1 add.l %d1,%d1 .LBB715: .LBB716: .loc 2 659 0 discriminator 3 move.l %d0,%a0 pea -1(%a0,%d1.l) jsr _imp_spaces .LVL989: .LBE716: .LBE715: .loc 1 792 0 discriminator 3 lea (12,%sp),%sp tst.l -1620(%fp) jne .L836 .LBB717: 793 printstring("Begin") .loc 1 793 0 move.l %fp,%d5 add.l #-280,%d5 move.l #256,%d3 move.l %d3,-(%sp) pea .LC5 move.l %d5,-(%sp) lea memcpy,%a3 jsr (%a3) .LVL990: move.l %fp,%d6 add.l #-1560,%d6 move.l %d3,-(%sp) move.l %d5,-(%sp) move.l %d6,-(%sp) jsr (%a3) .LVL991: add.l #-512,%d5 move.l %d3,-(%sp) move.l %d6,-(%sp) move.l %d5,-(%sp) jsr (%a3) .LVL992: .LBE717: .LBB718: .LBB719: .loc 2 589 0 lea (-220,%sp),%sp move.l %sp,%d0 move.l %d3,-(%sp) move.l %d5,-(%sp) move.l %d0,-(%sp) jsr (%a3) .LVL993: lea (12,%sp),%sp jsr _imp_printstring .LVL994: add.l %d3,%sp .L837: .LBE719: .LBE718: .LBB720: .LBB721: .loc 2 661 0 jsr _imp_newline .LVL995: jra .L835 .L836: .LBE721: .LBE720: .LBB722: 794 %FINISH %ELSE %START 795 printstring("Procedure "); print ident(block tag, 0) .loc 1 795 0 move.l %fp,%d5 add.l #-280,%d5 move.l #256,%d3 move.l %d3,-(%sp) pea .LC6 move.l %d5,-(%sp) lea memcpy,%a3 jsr (%a3) .LVL996: move.l %fp,%d6 add.l #-1304,%d6 move.l %d3,-(%sp) move.l %d5,-(%sp) move.l %d6,-(%sp) jsr (%a3) .LVL997: add.l #-256,%d5 move.l %d3,-(%sp) move.l %d6,-(%sp) move.l %d5,-(%sp) jsr (%a3) .LVL998: .LBE722: .LBB723: .LBB724: .loc 2 589 0 lea (-220,%sp),%sp move.l %sp,%d0 move.l %d3,-(%sp) move.l %d5,-(%sp) move.l %d0,-(%sp) jsr (%a3) .LVL999: lea (12,%sp),%sp jsr _imp_printstring .LVL1000: .LBE724: .LBE723: 796 %FINISH .loc 1 796 0 add.l %d3,%sp clr.l -(%sp) move.l -1620(%fp),-(%sp) move.l %a2,%a0 jsr PRINTIDENT.6150 .LVL1001: addq.l #8,%sp jra .L837 .L871: 797 newline 798 %FINISH 799 800 !deal with procedure definition (parameters) 801 802 %IF block tag # 0 %START; !proc .loc 1 802 0 tst.l -1620(%fp) jne .L871 .L838: 803 analyse; compile %IF ss # 0 .loc 1 803 0 lea (-1632,%fp),%a0 jsr ANALYSE.6260 .LVL1002: 804 .loc 1 804 0 tst.l SS.6090 jne .L872 .L839: 805 %IF block otype # 0 %START; !external-ish .loc 1 805 0 discriminator 1 tst.l %d2 jeq .L843 .loc 1 805 0 lea (-1632,%fp),%a0 jsr COMPILE.6262 .LVL1007: jra .L839 .L873: 806 %IF bflags&spec = 0 %START; !definition .loc 1 806 0 move.l -1616(%fp),%a0 btst #0,1(%a0) jne .L843 807 %IF progmode <= 0 %AND level = 1 %THEN progmode = -1 %C .loc 1 807 0 tst.l PROGMODE.6096 jgt .L841 808 %ELSE fault(7) .loc 1 808 0 moveq #1,%d0 cmp.l -1584(%fp),%d0 jeq .L873 .L841: 809 %FINISH .loc 1 809 0 moveq #-1,%d1 move.l %d1,PROGMODE.6096 810 %FINISH .loc 1 810 0 jra .L843 .LVL1008: .L847: .LBB735: .LBB733: .LBB731: .LBB729: 811 812 new app = gapp; !generate app grammar .loc 1 812 0 pea 7.w lea (-1632,%fp),%a0 jsr FAULT.6279 .LVL1003: addq.l #4,%sp .L840: .L842: .L843: .LBB725: .LBB726: 813 %IF spec given # 0 %START; !definition after spec .loc 1 813 0 tst.l SPECGIVEN.6066 jeq .L853 814 fault(6) %IF new app # block app; !different from spec .loc 1 814 0 move.l %d4,%d0 lsl.l #4,%d0 cmp.l 26020(%a2,%d0.l),%d2 jeq .L853 815 %FINISH .loc 1 815 0 pea 6.w lea (-1632,%fp),%a0 jsr FAULT.6279 .LVL1025: addq.l #4,%sp .L852: .L853: 816 block app = new app; !use the latest .loc 1 816 0 lsl.l #4,%d4 .LVL1026: move.l %d2,26020(%a2,%d4.l) 817 818 %IF level < 0 %START; !not procedure definition .loc 1 818 0 tst.l -1584(%fp) jge .L854 819 delete names(0) .loc 1 819 0 clr.l -(%sp) lea (-1632,%fp),%a0 jsr DELETENAMES.6258 .LVL1027: 820 %RETURN .loc 1 820 0 addq.l #4,%sp jra .L833 .LVL1028: .L875: .LBB736: .LBB734: 821 %FINISH 822 %FINISH %ELSE %START 823 open = 0; !can return from a block? .loc 1 823 0 clr.l -1612(%fp) .LVL985: .L854: 824 %FINISH 825 826 %CYCLE 827 analyse .loc 1 827 0 lea ANALYSE.6260,%a3 .loc 1 827 0 lea (-1632,%fp),%a0 jsr (%a3) .LVL1033: 828 %CONTINUE %IF ss = 0 .loc 1 828 0 tst.l SS.6090 jeq .L856 .L857: 829 compile .loc 1 829 0 lea (-1632,%fp),%a0 jsr (%a4) .LVL1034: .loc 1 829 0 lea COMPILE.6262,%a4 jra .L856 .L861: 830 fault(-5) %IF dubious # 0 .loc 1 830 0 tst.l DUBIOUS.6104 jne .L877 .L858: 831 flush buffer %IF bp >= 128 .loc 1 831 0 move.l #FAULT.6279,%d2 .loc 1 831 0 pea -5.w lea (-1632,%fp),%a0 move.l %d2,%a1 jsr (%a1) .LVL1032: addq.l #4,%sp jra .L858 .L859: .loc 1 831 0 discriminator 1 moveq #127,%d0 cmp.l BP.6127,%d0 jge .L859 832 %IF sstype > 0 %START; !block in or out .loc 1 832 0 lea FLUSHBUFFER.6137,%a5 jra .L863 .LVL986: .L869: .loc 1 832 0 discriminator 1 move.l SSTYPE.6097,%d0 jgt .L876 .L856: .loc 1 832 0 move.l %a2,%a0 jsr (%a5) .LVL1035: jra .L859 .L876: 833 %EXIT %IF sstype = 2; !out .loc 1 833 0 moveq #2,%d1 cmp.l %d0,%d1 jeq .L861 .L862: 834 compile block(spec mode, block x, dmin, tmax, id) .loc 1 834 0 move.l -1588(%fp),-(%sp) move.l -1580(%fp),-(%sp) move.l -1592(%fp),-(%sp) move.l BLOCKX.6119,-(%sp) move.l SPECMODE.6098,-(%sp) move.l %a2,%a0 jsr COMPILEBLOCK.6253 .LVL1036: 835 %EXIT %IF ss < 0; !endofprogram .loc 1 835 0 lea (20,%sp),%sp tst.l SS.6090 jlt .L861 .L863: 836 %FINISH 837 %REPEAT 838 %IF list > 0 %AND level > 0 %START .loc 1 838 0 tst.l LIST.6120 jle .L864 839 write(lines, 5); spaces(level*3-1) .loc 1 839 0 tst.l -1584(%fp) jgt .L878 .LVL1037: .L864: .loc 1 839 0 discriminator 3 pea 5.w move.l LINES.6050,-(%sp) jsr _imp_writeint .LVL1040: 840 printstring("End") .loc 1 840 0 discriminator 3 move.l -1584(%fp),%d0 move.l %d0,%d1 add.l %d1,%d1 .LBB737: .LBB738: .loc 2 659 0 discriminator 3 move.l %d0,%a0 pea -1(%a0,%d1.l) jsr _imp_spaces .LVL1041: .LBE738: .LBE737: .LBB739: .loc 1 840 0 discriminator 3 move.l %fp,%d2 .LVL1042: add.l #-280,%d2 .LVL1043: move.l #256,%d3 move.l %d3,-(%sp) pea .LC7 move.l %d2,-(%sp) lea memcpy,%a2 .LVL1044: jsr (%a2) .LVL1045: move.l %fp,%d4 add.l #-1048,%d4 move.l %d3,-(%sp) move.l %d2,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL1046: lea (36,%sp),%sp move.l %d3,-(%sp) move.l %d4,-(%sp) move.l %d2,-(%sp) jsr (%a2) .LVL1047: .LBE739: .LBB740: .LBB741: .loc 2 589 0 discriminator 3 lea (-256,%sp),%sp move.l %sp,%d0 move.l %d3,-(%sp) move.l %d2,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL1048: lea (12,%sp),%sp jsr _imp_printstring .LVL1049: .LBE741: .LBE740: .LBB742: .LBB743: .loc 2 661 0 discriminator 3 lea (268,%sp),%sp jsr _imp_newline .LVL1050: jra .L864 .LBE743: .LBE742: .cfi_endproc .LFE191: .section .rodata .align 2 .LC0: .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 .LC1: .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 .LC2: .byte 7 .string "LISTING" .zero 247 .LC3: .byte 14 .string "prims-null.inc" .zero 240 .LC4: .byte 44 .string " Edinburgh IMP77 Compiler - Version " .zero 210 .text .align 2 .globl main main: .LFB185: 841 newline 842 %FINISH 843 delete names(0) .loc 1 843 0 clr.l -(%sp) lea (-1632,%fp),%a0 jsr DELETENAMES.6258 .LVL1038: 844 %RETURN .loc 1 844 0 addq.l #4,%sp .L833: 845 846 %INTEGERFN gapp; !generate app grammar (backwards) .loc 1 846 0 discriminator 1 lea (8,%fp),%a0 move.l %a0,-4(%fp) 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 .loc 1 853 0 discriminator 1 move.l LOCAL.6110,%d5 move.l -1580(%fp),%d2 .LVL1004: cmp.l %d5,%d2 jeq .L865 .L845: 854 .loc 1 854 0 clr.l %d2 jra .L844 .LVL1031: .L877: .LBE734: .LBE736: 855 p = gmax1; link = 0; t = tmax .loc 1 855 0 move.l #719,-8(%fp) 856 .loc 1 856 0 clr.l -12(%fp) .LVL1005: .LBB727: .LBB728: 857 %CYCLE 858 v == tag(t); t = t-1 .loc 1 858 0 move.l -1568(%fp),%a3 .LVL1015: 859 class(v); !deduce class from tag .loc 1 859 0 move.l %d3,%d2 addq.l #8,%sp .LVL1014: .L846: .loc 1 859 0 move.l %d2,%d3 subq.l #1,%d3 .LVL1016: .LBB732: .LBB730: 860 %IF c < 0 %START; !insert %PARAM .loc 1 860 0 move.l -24(%fp),%d0 jlt .L874 .LVL1011: .L848: 861 c = -c .loc 1 861 0 neg.l %d0 move.l %d0,-24(%fp) 862 set cell(196, tp) .loc 1 862 0 lea SETCELL.6459,%a4 jra .L846 .LVL1006: .L872: .LBE726: .LBE725: .loc 1 862 0 move.l -20(%fp),-(%sp) .LVL1022: pea 196.w lea (-24,%fp),%a0 jsr (%a4) .LVL1023: 863 tp = -1 .loc 1 863 0 moveq #-1,%d2 move.l %d2,-20(%fp) addq.l #8,%sp jra .L848 .L849: 864 %FINISH 865 set cell(c, tp) .loc 1 865 0 move.l -20(%fp),-(%sp) move.l -24(%fp),-(%sp) lea (-24,%fp),%a0 jsr (%a4) .LVL1012: 866 %EXIT %IF t = local; !end of parameters .loc 1 866 0 addq.l #8,%sp cmp.l %d5,%d3 jeq .L849 .L850: 867 set cell(comma, -1); !add the separating comma .loc 1 867 0 pea -1.w pea 140.w lea (-24,%fp),%a0 jsr (%a4) .LVL1013: 868 %REPEAT 869 abandon(3) %IF gmax > gmin .loc 1 869 0 move.l GMAX.6129,%a0 cmp.l GMIN.6087,%a0 jgt .L875 .L851: 870 .loc 1 870 0 pea 3.w move.l -1568(%fp),%a0 jsr ABANDON.6169 .LVL1029: addq.l #4,%sp jra .L851 .LVL1030: .L865: 871 %RESULT = link .loc 1 871 0 move.l -12(%fp),%d2 .LVL1024: .L844: .LBE733: .LBE735: 872 873 %ROUTINE set cell(%INTEGER g, tt) .LVL8: link.w %fp,#0 movem.l #14384,-(%sp) move.l 8(%fp),%d3 move.l 12(%fp),%d4 874 875 !add the cell to the grammar, combining common tails 876 877 %WHILE p # gmax %CYCLE 878 p = p+1 move.l GMAX.6129,%d2 move.l 16(%a0),%d0 cmp.l %d2,%d0 jeq .L4 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,16(%a0) 879 %IF glink(p) = link %AND gram(p) = g %START lea GLINK.6134,%a2 move.w (%a2,%d1.l*2),%a1 cmp.l 12(%a0),%a1 jne .L9 move.w (%a3,%d1.l*2),%a1 cmp.l %a1,%d3 jne .L9 tst.l %d4 jlt .L6 880 %IF tt < 0 %OR (gram(p+1) = tt %AND glink(p+1)=ap) %START lea GRAM.6133,%a3 .L9: 881 link = p; !already there addq.l #2,%d0 move.w (%a3,%d0.l*2),%a1 cmp.l %a1,%d4 jne .L9 move.l %d1,12(%a0) jra .L3 .L4: 882 %RETURN move.w (%a2,%d0.l*2),%a1 cmp.l 8(%a0),%a1 jne .L9 .L6: 883 %FINISH 884 %FINISH 885 %REPEAT 886 887 !add a new cell 888 889 gmax = gmax+1 move.l %d2,%d0 addq.l #1,%d0 move.l %d0,GMAX.6129 890 gram(gmax) = g move.w %d3,GRAM.6133(%d0.l*2) 891 glink(gmax) = link move.w 14(%a0),GLINK.6134(%d0.l*2) 892 link = gmax move.l %d0,12(%a0) 893 894 %IF tt >= 0 %START; ! set type cell tst.l %d4 jlt .L8 895 gmax = gmax+1 addq.l #2,%d2 move.l %d2,GMAX.6129 896 gram(gmax) = tt move.w %d4,GRAM.6133(%d2.l*2) 897 glink(gmax) = ap move.w 10(%a0),GLINK.6134(%d2.l*2) .L8: 898 %FINISH 899 900 p = gmax move.l GMAX.6129,16(%a0) .L3: 901 %END 902 movem.l (%sp)+,#3100 unlk %fp rts .LFE195: .align 2 DEFLAB.7172: .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 .loc 1 909 0 move.l %fp,%d7 add.l #-280,%d7 lea memcpy,%a5 .LBE728: .LBE727: .loc 1 909 0 pea 64.w pea .LC23 move.l %d7,-(%sp) jsr (%a5) .LVL1017: 910 err,1764, 247, err(4), -rtp, -fnp, -mapp, -predp, err, 214, 911 err, 229, err 912 %INTEGER tags, type, form 913 ap = 0 .loc 1 913 0 clr.l -16(%fp) 914 tags = v_flags .loc 1 914 0 move.l %d2,%d0 lsl.l #4,%d0 lea (%a3,%d0.l),%a0 move.w 26028(%a0),%d0 .LVL1018: 915 type = tags>>4&7; form = tags&15 .loc 1 915 0 bfextu %d0{#25:#3},%d6 .LVL1019: 916 tp = v_format<<3!type .loc 1 916 0 moveq #15,%d1 and.l %d1,%d0 .LVL1020: .loc 1 916 0 move.l 26024(%a0),%d1 lsl.l #3,%d1 or.l %d6,%d1 move.l %d1,-20(%fp) 917 c = class map(form) .loc 1 917 0 move.l -280(%fp,%d0.l*4),-24(%fp) 918 c = 208 %AND tp = 0 %IF type = 0 %AND form = 2; !%NAME .loc 1 918 0 lea (12,%sp),%sp tst.l %d6 jne .L847 919 ap = v_app %IF tags¶meters # 0 .loc 1 919 0 moveq #2,%d1 cmp.l %d0,%d1 jne .L847 920 %END .loc 1 920 0 lsl.l #4,%d2 .LVL1009: move.l 26020(%a3,%d2.l),-16(%fp) .LDL49: .LVL1010: .LBE729: .LBE731: .loc 1 920 0 move.l #208,-24(%fp) 921 %END .loc 1 921 0 clr.l -20(%fp) jra .L847 .LVL1021: .L874: .LBE730: .LBE732: 922 923 %ROUTINE delete names(%INTEGER quiet) .loc 1 923 0 .cfi_startproc .LVL766: link.w %fp,#0 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 movem.l #8248,-(%sp) .cfi_offset 2, -24 .cfi_offset 10, -20 .cfi_offset 11, -16 .cfi_offset 12, -12 move.l %a0,%a2 924 %INTEGER flags 925 %RECORD(tagfm)%NAME tx 926 %WHILE tmax > tbase %CYCLE 927 x = tmax; tmax = tmax-1 .loc 1 927 0 move.l 52(%a0),%d2 cmp.l 56(%a0),%d2 jle .L737 .loc 1 927 0 move.l 52(%a2),%d2 cmp.l 56(%a2),%d2 jle .L737 .L741: .loc 1 927 0 discriminator 1 move.l %d2,X.6040 928 tx == tag(x) .loc 1 928 0 discriminator 1 move.l %d2,%d0 subq.l #1,%d0 move.l %d0,52(%a2) .loc 1 928 0 discriminator 1 move.l 64(%a2),%a3 .LVL770: 929 flags = tx_flags .loc 1 929 0 discriminator 1 move.l %d2,%d0 lsl.l #4,%d0 .LVL771: 930 fault(20) %IF flags&spec # 0 %and flags&own bit = 0 931 {spec with no definition & not external} .loc 1 931 0 discriminator 1 btst #0,26029(%a3,%d0.l) jne .L740 932 %IF flags&used bit = 0 %AND level >= 0 %AND list <= 0 %START .loc 1 932 0 lea FAULT.6279,%a4 jra .L741 .L739: .LVL767: .L740: .loc 1 932 0 pea 20.w .LVL772: move.l %a2,%a0 jsr (%a4) .LVL773: 933 fault(-3) %IF quiet = 0; !unused .loc 1 933 0 addq.l #4,%sp tst.l 48(%a2) jlt .L740 .loc 1 933 0 tst.l 8(%fp) jne .L740 934 %FINISH .loc 1 934 0 tst.l LIST.6120 jgt .L740 .loc 1 934 0 pea -3.w move.l %a2,%a0 jsr (%a4) .LVL774: addq.l #4,%sp jra .L740 .L738: .LVL775: .L737: 935 dict(tx_text) = tx_link .loc 1 935 0 move.l %d2,%d0 lsl.l #4,%d0 move.l 64(%a2),%a0 add.l #1627,%d2 .LVL768: lsl.l #4,%d2 .LVL769: move.w (%a3,%d2.l),%a1 move.w 26034(%a3,%d0.l),14018(%a0,%a1.l*2) .LDL36: 936 %REPEAT 937 %END 938 .loc 1 938 0 movem.l -16(%fp),#7172 unlk %fp rts .cfi_endproc .LFE197: .section .rodata.str1.1 .LC80: .string "->ACT(%d) out of bounds at %s line %d" .LC81: .string "switch jump to undefined label ACT(%d): at %s line %d" .LC82: .string "->PACTION(%d) out of bounds at %s line %d" .LC83: .string "switch jump to undefined label PACTION(%d): at %s line %d" .section .rodata .LC10: .byte 7 .string "Atom1 =" .zero 247 .LC11: .byte 9 .string " Atom2 =" .zero 245 .LC12: .byte 11 .string " subatom =" .zero 243 .LC13: .byte 6 .string "Type =" .zero 248 .LC14: .byte 10 .string " Ptype =" .zero 244 .LC15: .byte 5 .string "App =" .zero 249 .LC16: .byte 9 .string " Papp =" .zero 245 .LC17: .byte 8 .string "Format =" .zero 246 .LC18: .byte 12 .string " Pformat =" .zero 242 .LC22: .byte 2 .string " [" .zero 252 .text .align 2 ANALYSE.6260: .LFB198: 939 %ROUTINE analyse .loc 1 939 0 .cfi_startproc link.w %fp,#-5664 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 movem.l #16188,-(%sp) .cfi_offset 2, -5712 .cfi_offset 3, -5708 .cfi_offset 4, -5704 .cfi_offset 5, -5700 .cfi_offset 6, -5696 .cfi_offset 7, -5692 .cfi_offset 10, -5688 .cfi_offset 11, -5684 .cfi_offset 12, -5680 .cfi_offset 13, -5676 move.l %a0,%a4 .loc 1 939 0 lea (8,%fp),%a0 move.l %a0,-12(%fp) move.l %a4,-16(%fp) 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 .loc 1 952 0 lea (8,%fp),%a0 move.l %a0,-4(%fp) lea (-20,%fp),%a1 move.l %a1,-8(%fp) 953 !diagnostic trace routine (diagnose&1 # 0) 954 %INTEGER a 955 %ROUTINE show(%INTEGER a) .LVL47: link.w %fp,#-512 movem.l #12320,-(%sp) .LVL48: .LBB316: 956 %IF 0 < a < 130 %START 957 space 958 printstring(text(a)) 959 %FINISH %ELSE write(a, 3) move.l 8(%fp),%d0 subq.l #1,%d0 cmp.l #128,%d0 jhi .L32 .LBE316: .LBB317: .LBB318: jsr _imp_space .LVL49: move.l %fp,%d2 .LVL50: add.l #-256,%d2 .LVL51: move.l #256,%d3 move.l %d3,-(%sp) pea -512(%fp) move.l %d2,-(%sp) lea memcpy,%a2 jsr (%a2) .LVL52: .LBE318: .LBE317: .LBB319: .LBB320: lea (-256,%sp),%sp move.l %sp,%d0 move.l %d3,-(%sp) move.l %d2,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL53: lea (12,%sp),%sp jsr _imp_printstring .LVL54: lea (268,%sp),%sp jra .L31 .LVL55: .L32: .LBE320: .LBE319: 960 %END 961 %OWNINTEGER la1=0, la2=0, lsa=0, lt=0 pea 3.w move.l 8(%fp),-(%sp) jsr _imp_writeint .LVL56: addq.l #8,%sp .L33: .L31: movem.l -524(%fp),#1036 unlk %fp .LVL57: rts .LFE200: .section .rodata.str1.1 .LC73: .string "Illegal cycle J = AD + 1, 1, AD + *_imp_BYTEINTEGER(AD)" .align 2 PRINTIDENT.6150: .LFB187: 962 newline %IF mon pos # pos %AND sym # nl .loc 1 962 0 move.l MONPOS.6057,%d0 cmp.l POS.6108,%d0 jeq .L769 963 mon pos = pos .loc 1 963 0 moveq #10,%d1 cmp.l SYM.6058,%d1 jne .L828 .L769: .loc 1 963 0 move.l POS.6108,MONPOS.6057 964 write(g, 3) .loc 1 964 0 pea 3.w move.l G.6078,-(%sp) jsr _imp_writeint .LVL876: .LBB634: .LBB635: .loc 2 658 0 jsr _imp_space .LVL877: move.l #256,%d2 move.l %d2,-(%sp) move.l %d7,-(%sp) move.l %d3,-(%sp) lea memcpy,%a3 jsr (%a3) .LVL878: .LBE635: .LBE634: .LBB636: .LBB637: .loc 2 589 0 lea (-256,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jsr (%a3) .LVL879: lea (12,%sp),%sp jsr _imp_printstring .LVL880: .LBE637: .LBE636: .LBB638: .LBB639: .loc 2 586 0 lea (276,%sp),%sp pea 34.w jsr _imp_printsymbol .LVL881: .LDL41: .LBE639: .LBE638: 965 space 966 printstring(text(class)) 967 printsymbol('"') %IF gg&trans bit # 0 968 a = gg>>8&15 .loc 1 968 0 bfextu GG.6079+2{#4:#4},%d2 .LVL882: 969 %IF a # 0 %START .loc 1 969 0 addq.l #4,%sp jne .L829 .L770: 970 printsymbol('{') 971 write(a, 0) .loc 1 971 0 clr.l -(%sp) move.l %d2,-(%sp) jsr _imp_writeint .LVL871: .LBB632: .LBB633: .loc 2 586 0 pea 125.w jsr (%a3) .LVL872: lea (16,%sp),%sp jra .L770 .LVL873: .L830: .LBE633: .LBE632: 972 printsymbol('}') 973 %FINISH 974 %IF atom1 # la1 %OR atom2 # la2 %OR lsa # subatom %C .loc 1 974 0 move.l ATOM1.6041,%a0 cmp.l LA1.6542,%a0 jne .L771 975 %OR lt # type %START .loc 1 975 0 move.l ATOM2.6042,%a1 cmp.l LA2.6543,%a1 jeq .L830 .L771: .LBB640: 976 printstring(" [") .loc 1 976 0 move.l %fp,%d6 add.l #-534,%d6 move.l %fp,%d5 add.l #-278,%d5 move.l %fp,%d4 add.l #-1302,%d4 .LVL788: .L757: .LBE625: .LBE624: .LBE623: .loc 1 976 0 move.l LSA.6544,%d0 cmp.l SUBATOM.6043,%d0 jne .L771 .loc 1 976 0 move.l #256,%d2 .LVL883: move.l %d2,-(%sp) pea .LC22 move.l %d6,-(%sp) lea memcpy,%a3 jsr (%a3) .LVL884: move.l %d2,-(%sp) move.l %d6,-(%sp) move.l %d5,-(%sp) jsr (%a3) .LVL885: move.l %d2,-(%sp) move.l %d5,-(%sp) move.l %d4,-(%sp) jsr (%a3) .LVL886: .LBE640: .LBB641: .LBB642: .loc 2 589 0 lea (-220,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d4,-(%sp) move.l %d0,-(%sp) jsr (%a3) .LVL887: lea (12,%sp),%sp jsr _imp_printstring .LVL888: .LBE642: .LBE641: 977 la1 = atom1 .loc 1 977 0 move.l LT.6545,%d1 cmp.l TYPE.6044,%d1 jne .L771 jra .L772 .LVL874: .L776: .LBE648: .LBE688: .loc 1 977 0 move.l ATOM1.6041,%d0 move.l %d0,LA1.6542 978 show(la1) .loc 1 978 0 add.l %d2,%sp move.l %d0,-(%sp) lea SHOW.6535,%a3 lea (-8,%fp),%a0 jsr (%a3) .LVL889: 979 la2 = atom2 .loc 1 979 0 move.l ATOM2.6042,%d0 move.l %d0,LA2.6543 980 show(la2) .loc 1 980 0 move.l %d0,-(%sp) lea (-8,%fp),%a0 jsr (%a3) .LVL890: 981 lsa = subatom .loc 1 981 0 move.l SUBATOM.6043,%d0 move.l %d0,LSA.6544 982 write(lsa, 3) .loc 1 982 0 pea 3.w move.l %d0,-(%sp) lea _imp_writeint,%a3 jsr (%a3) .LVL891: 983 lt = type .loc 1 983 0 move.l TYPE.6044,%d0 move.l %d0,LT.6545 984 write(lt, 5) .loc 1 984 0 pea 5.w move.l %d0,-(%sp) jsr (%a3) .LVL892: .LBB643: .LBB644: .loc 2 586 0 pea 93.w jsr _imp_printsymbol .LVL893: lea (28,%sp),%sp .LVL894: .L772: .LBE644: .LBE643: .LBB645: .LBB646: .loc 2 661 0 jsr (%a5) .LVL895: .LDL42: .LBE646: .LBE645: .LBE649: .LBE689: 985 printsymbol(']') 986 %FINISH 987 newline 988 %END 989 990 %ROUTINE get sym .loc 1 990 0 .cfi_startproc link.w %fp,#0 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 .LVL220: .LBB359: .LBB360: .loc 2 581 0 pea SYM.6058 jsr _imp_readsymbol .LVL221: .LBE360: .LBE359: 991 readsymbol(sym) 992 pos = pos+1 %IF pos # 133 .loc 1 992 0 move.l POS.6108,%d0 addq.l #4,%sp cmp.l #133,%d0 jeq .L144 993 char(pos) = sym .loc 1 993 0 addq.l #1,%d0 move.l %d0,POS.6108 .L144: .loc 1 993 0 discriminator 1 move.l SYM.6058,%d0 move.l POS.6108,%d1 move.b %d0,CHAR.6115(%d1.l) 994 printsymbol(sym) %IF list <= 0 .loc 1 994 0 discriminator 1 tst.l LIST.6120 jle .L146 .L145: 995 column = column+1 .loc 1 995 0 discriminator 1 addq.l #1,COLUMN.6055 996 %END 997 %ROUTINE read sym .loc 1 997 0 discriminator 1 unlk %fp rts .L146: .LVL222: .LBB361: .LBB362: .loc 2 586 0 extb.l %d0 .LVL223: move.l %d0,-(%sp) jsr _imp_printsymbol .LVL224: addq.l #4,%sp jra .L145 .LBE362: .LBE361: .cfi_endproc .LFE201: .section .rodata .LC20: .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 .LC21: .byte 2 .string " &" .zero 252 .text .align 2 READSYM.6561: .LFB202: .loc 1 997 0 .cfi_startproc link.w %fp,#-896 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 movem.l #14384,-(%sp) .cfi_offset 2, -924 .cfi_offset 3, -920 .cfi_offset 4, -916 .cfi_offset 10, -912 .cfi_offset 11, -908 move.l %a0,%a2 998 %owninteger Last = 0 999 %CONSTBYTEINTEGERARRAY mapped(0:127) = %C .loc 1 999 0 pea 128.w pea .LC20 pea -128(%fp) jsr memcpy .LVL225: 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 .loc 1 1015 0 lea (12,%sp),%sp moveq #10,%d0 cmp.l SYM.6058,%d0 jne .L159 .L149: 1016 s1: lines = lines+1 1017 printsymbol(end mark) %if end mark # 0 .loc 1 1017 0 addq.l #1,LINES.6050 .loc 1 1017 0 move.l ENDMARK.6061,%d0 jne .L178 .L150: .L151: 1018 s11: pos = 0; pos1 = 0; pos2 = 0; margin = 0; column = 0 1019 Last = 0 .loc 1 1019 0 clr.l POS.6108 .loc 1 1019 0 clr.l LAST.6563 1020 end mark = 0 .loc 1 1020 0 clr.l POS1.6106 .loc 1 1020 0 clr.l ENDMARK.6061 1021 %IF list <= 0 %START .loc 1 1021 0 clr.l POS2.6107 .loc 1 1021 0 tst.l LIST.6120 jle .L179 .L152: .L156: .L157: .L158: 1022 %IF include # 0 %START .loc 1 1022 0 clr.l MARGIN.6052 .loc 1 1022 0 tst.l INCLUDE.6094 jeq .L153 .LBB367: 1023 printstring(" &"); write(lines, -4) .loc 1 1023 0 clr.l COLUMN.6055 .loc 1 1023 0 move.l %fp,%d3 add.l #-896,%d3 move.l #256,%d2 move.l %d2,-(%sp) pea .LC21 move.l %d3,-(%sp) lea memcpy,%a3 jsr (%a3) .LVL232: move.l %fp,%d4 add.l #-640,%d4 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d4,-(%sp) jsr (%a3) .LVL233: add.l #512,%d3 move.l %d2,-(%sp) move.l %d4,-(%sp) move.l %d3,-(%sp) jsr (%a3) .LVL234: .LBE367: .LBB368: .LBB369: .loc 2 589 0 lea (-220,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jsr (%a3) .LVL235: lea (12,%sp),%sp jsr _imp_printstring .LVL236: .LBE369: .LBE368: 1024 %FINISH %ELSE write(lines, 5) .loc 1 1024 0 add.l %d2,%sp pea -4.w move.l LINES.6050,-(%sp) jsr _imp_writeint .LVL237: addq.l #8,%sp .L154: 1025 csym = cont; printsymbol(csym) .loc 1 1025 0 move.l CONT.6062,%d0 move.l %d0,CSYM.6063 .LVL238: .LBB370: .LBB371: .loc 2 586 0 extb.l %d0 .LVL239: move.l %d0,-(%sp) jsr _imp_printsymbol .LVL240: .LBE371: .LBE370: .LBB372: .LBB373: .loc 2 658 0 jsr _imp_space .LVL241: .LBE373: .LBE372: 1026 space .loc 1 1026 0 discriminator 2 pea 5.w move.l LINES.6050,-(%sp) jsr _imp_writeint .LVL247: addq.l #8,%sp jra .L154 .L180: .LVL248: .LBB378: .LBB379: .loc 2 586 0 extb.l %d0 .LVL249: move.l %d0,-(%sp) jsr _imp_printsymbol .LVL250: addq.l #4,%sp jra .L161 .L181: .LBE379: .LBE378: 1027 %IF error margin # 0 %START .loc 1 1027 0 move.l ERRORMARGIN.6053,%d0 addq.l #4,%sp jeq .L158 1028 lines = lines-1 .loc 1 1028 0 subq.l #1,LINES.6050 .LVL242: .LBB374: .LBB375: .loc 2 659 0 move.l %d0,-(%sp) jsr _imp_spaces .LVL243: .LBE375: .LBE374: 1029 spaces(error margin) 1030 error margin = 0 .loc 1 1030 0 clr.l ERRORMARGIN.6053 1031 %IF error sym # 0 %START .loc 1 1031 0 move.l ERRORSYM.6054,%d0 addq.l #4,%sp jeq .L158 .LVL244: .LBB376: .LBB377: .loc 2 586 0 extb.l %d0 .LVL245: move.l %d0,-(%sp) jsr _imp_printsymbol .LVL246: .LBE377: .LBE376: 1032 printsymbol(error sym) 1033 pos = 1 .loc 1 1033 0 moveq #1,%d1 move.l %d1,POS.6108 1034 !IMP80 BUG??? 1035 !! char(1) = error sym 1036 byteinteger(addr(char(0))+1) = error sym .loc 1 1036 0 move.l ERRORSYM.6054,%d0 move.b %d0,CHAR.6115+1 1037 sym = error sym; error sym = 0 .loc 1 1037 0 move.l %d0,SYM.6058 1038 ->s5 .loc 1 1038 0 clr.l ERRORSYM.6054 .loc 1 1038 0 addq.l #4,%sp jra .L155 .L153: 1039 %FINISH 1040 %FINISH 1041 %FINISH 1042 s2: symtype = 1 1043 %FINISH .loc 1 1043 0 moveq #1,%d2 move.l %d2,SYMTYPE.6059 .L148: .L159: .LVL226: .LBB363: .LBB364: .loc 2 581 0 pea SYM.6058 jsr _imp_readsymbol .LVL227: .LBE364: .LBE363: 1044 s3:readsymbol(sym) 1045 pos = pos+1 %IF pos # 133 .loc 1 1045 0 move.l POS.6108,%d0 addq.l #4,%sp cmp.l #133,%d0 jeq .L160 1046 char(pos) = sym .loc 1 1046 0 addq.l #1,%d0 move.l %d0,POS.6108 .L160: .loc 1 1046 0 discriminator 1 move.l SYM.6058,%d0 move.l POS.6108,%d1 move.b %d0,CHAR.6115(%d1.l) 1047 printsymbol(sym) %IF list <= 0 .loc 1 1047 0 discriminator 1 tst.l LIST.6120 jle .L180 .L161: 1048 column = column+1 .loc 1 1048 0 discriminator 1 addq.l #1,COLUMN.6055 .L155: 1049 s5:%IF sym # nl %START 1050 Last = Sym .loc 1 1050 0 move.l SYM.6058,%d0 moveq #10,%d1 cmp.l %d0,%d1 jeq .L173 .loc 1 1050 0 discriminator 1 move.l %d0,LAST.6563 1051 %RETURN %IF quote # 0; !dont alter strings .loc 1 1051 0 discriminator 1 tst.l QUOTE.6060 jne .L147 .L164: 1052 sym = mapped(sym&127) .loc 1 1052 0 moveq #127,%d2 and.l %d2,%d0 move.b -128(%fp,%d0.l),%d0 and.l #255,%d0 move.l %d0,SYM.6058 1053 %IF sym <= 3 %START; !special symbol .loc 1 1053 0 moveq #3,%d1 cmp.l %d0,%d1 jlt .L165 1054 ->s2 %IF sym = 0; !space (or dubious control) .loc 1 1054 0 tst.l %d0 jeq .L158 .L166: 1055 symtype = 2 %AND ->s3 %IF sym = 1; !% .loc 1 1055 0 moveq #1,%d2 cmp.l %d0,%d2 jeq .L181 .L167: 1056 cont = '+' %AND ->s11 %IF sym = 3; !ff .loc 1 1056 0 moveq #3,%d1 cmp.l %d0,%d1 jeq .L182 .L168: .L169: .L170: .loc 1 1056 0 moveq #2,%d0 move.l %d0,SYMTYPE.6059 1057 !must be { .loc 1 1057 0 jra .L159 .L182: .loc 1 1057 0 moveq #43,%d2 move.l %d2,CONT.6062 1058 %CYCLE .loc 1 1058 0 jra .L151 .L165: 1059 get sym .loc 1 1059 0 lea GETSYM.6556,%a3 .loc 1 1059 0 jsr (%a3) .LVL228: 1060 ->s3 %IF sym = '}' .loc 1 1060 0 move.l SYM.6058,%d0 moveq #125,%d1 cmp.l %d0,%d1 jeq .L159 .L171: 1061 ->s4 %IF sym = nl .loc 1 1061 0 moveq #10,%d2 cmp.l %d0,%d2 jne .L168 .L162: .L173: 1062 %REPEAT 1063 %FINISH 1064 key = kdict(sym) .loc 1 1064 0 move.l 4(%a2),%a0 move.l 64(%a0),%a0 move.w 12804(%a0,%d0.l*2),%d1 move.w %d1,%a0 move.l %a0,KEY.6516 1065 %IF key&3 = 0 %AND symtype = 2 %START; !keyword .loc 1 1065 0 btst #0,%d1 jne .L172 1066 %IF sym = 'C' %AND nextsymbol = nl %START; !%C... .loc 1 1066 0 moveq #2,%d2 cmp.l SYMTYPE.6059,%d2 jeq .L183 .L172: .loc 1 1066 0 discriminator 1 moveq #67,%d1 cmp.l %d0,%d1 jne .L147 .LBB380: .LBB381: .loc 2 583 0 jsr _imp_nextsymbol .LVL251: .LBE381: .LBE380: 1067 getsym; cont = '+'; ->s1 .loc 1 1067 0 moveq #10,%d2 cmp.l %d0,%d2 jne .L147 .loc 1 1067 0 discriminator 1 jsr GETSYM.6556 .LVL252: 1068 %FINISH .loc 1 1068 0 discriminator 1 moveq #43,%d0 move.l %d0,CONT.6062 1069 %ELSE .loc 1 1069 0 discriminator 1 jra .L149 .cfi_endproc .LFE202: .align 2 GET.6728: .LFB206: 1070 symtype = key&3-2 .loc 1 1070 0 moveq #3,%d2 and.l %d2,%d1 subq.l #2,%d1 move.l %d1,SYMTYPE.6059 jra .L147 .L183: 1071 %FINISH 1072 %RETURN 1073 %FINISH 1074 s4:symtype = quote 1075 ->S1 %if last = 0 %and Quote = 0 .loc 1 1075 0 move.l QUOTE.6060,%d0 move.l %d0,SYMTYPE.6059 .loc 1 1075 0 tst.l LAST.6563 jne .L174 1076 Cont = '+' .loc 1 1076 0 tst.l %d0 jeq .L149 .L174: .loc 1 1076 0 discriminator 1 moveq #43,%d0 move.l %d0,CONT.6062 .L163: .L175: .L147: 1077 %END 1078 .loc 1 1078 0 movem.l -916(%fp),#3100 unlk %fp rts .L178: .LVL229: .LBB365: .LBB366: .loc 2 586 0 extb.l %d0 .LVL230: move.l %d0,-(%sp) jsr _imp_printsymbol .LVL231: addq.l #4,%sp jra .L151 .L179: .LBE366: .LBE365: 1079 %INTEGERFN format selected 1080 format list = tag(format)_app; !number of names .loc 1 1080 0 discriminator 1 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l 64(%a0),%a0 move.l %d0,%d1 lsl.l #4,%d1 move.l 26020(%a0,%d1.l),%d1 move.l %d1,FORMATLIST.6113 1081 %IF format list < 0 %START; !forward ref .loc 1 1081 0 discriminator 1 jlt .L134 .L97: 1082 atom1 = error+22 .loc 1 1082 0 move.l #32790,ATOM1.6041 jra .L79 .L101: .LBE356: .LBE355: 1083 %RESULT = 0 1084 %FINISH 1085 %IF sym = '_' %START .loc 1 1085 0 moveq #95,%d1 cmp.l SYM.6058,%d1 jne .L100 1086 escape class = esc rec .loc 1 1086 0 move.l #255,ESCAPECLASS.6067 1087 search base = tag(format)_format .loc 1 1087 0 lsl.l #4,%d0 move.l 26024(%a0,%d0.l),SEARCHBASE.6112 jra .L100 .L134: 1088 %FINISH 1089 %RESULT = 1 1090 %END 1091 1092 %ROUTINE code atom(%INTEGER target) .loc 1 1092 0 .cfi_startproc .LVL263: link.w %fp,#-20 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 movem.l #12348,-(%sp) .cfi_offset 2, -52 .cfi_offset 3, -48 .cfi_offset 10, -44 .cfi_offset 11, -40 .cfi_offset 12, -36 .cfi_offset 13, -32 move.l %a0,%a2 .loc 1 1092 0 lea (8,%fp),%a0 .LVL264: move.l %a0,-4(%fp) move.l %a2,-8(%fp) 1093 %INTEGER dbase, da 1094 %INTEGER base, n, mul, pend quote 1095 %INTEGER j,k,l, pt 1096 1097 %ROUTINE lookup(%INTEGER d) .loc 1 1097 0 .cfi_startproc .LVL143: link.w %fp,#-512 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 movem.l #15932,-(%sp) .cfi_offset 2, -556 .cfi_offset 3, -552 .cfi_offset 4, -548 .cfi_offset 5, -544 .cfi_offset 6, -540 .cfi_offset 10, -536 .cfi_offset 11, -532 .cfi_offset 12, -528 .cfi_offset 13, -524 move.l 8(%fp),%d6 move.l %a0,%a3 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)) .loc 1 1106 0 move.l 12(%a0),%a0 move.l 4(%a0),%a0 move.l 64(%a0),%a0 move.l DMAX.6088,%d5 add.l #7010,%d5 add.l %d5,%d5 add.l %a0,%d5 .LVL144: 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 .loc 1 1115 0 move.l 12864(%a0),%d4 muls.l #6700421,%d4 .LVL145: 1116 ! we could fix this properly by a shift+add loop 1117 !******************************************************* 1118 1119 k2 = k2>>(32-2*name bits)!1 .loc 1 1119 0 moveq #10,%d0 lsr.l %d0,%d4 .LVL146: moveq #1,%d1 or.l %d1,%d4 .LVL147: 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 .loc 1 1123 0 move.l %d4,%d2 moveq #11,%d3 lsr.l %d3,%d2 .LVL148: 1124 %CYCLE 1125 newname = hash(k1) .loc 1 1125 0 move.w 8768(%a0,%d2.l*2),%d3 move.w %d3,%a2 .LVL149: .loc 1 1125 0 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l 64(%a0),%a0 move.w 8768(%a0,%d2.l*2),%d3 move.w %d3,%a2 .LVL153: 1126 %EXIT %IF newname = 0; !not in .loc 1 1126 0 tst.l %a2 jeq .L80 .loc 1 1126 0 tst.l %a2 jne .L81 .L80: 1127 ->in %IF string(addr(dict(newname+1))) = string(new) 1128 k1 = (k1+k2)&max names .loc 1 1128 0 add.l %d4,%d2 .LVL151: and.l #2047,%d2 .LDL8: .LVL152: 1129 %REPEAT .loc 1 1129 0 lea _imp_strcmp,%a4 .L81: move.l %d5,-(%sp) move.l %a2,%d0 add.l #7010,%d0 add.l %d0,%d0 pea (%a0,%d0.l) jsr (%a4) .LVL150: addq.l #8,%sp tst.l %d0 jeq .L82 .L83: 1130 1131 ! not found 1132 1133 spare names = spare names-1 .loc 1 1133 0 move.l SPARENAMES.6011,%d0 subq.l #1,%d0 move.l %d0,SPARENAMES.6011 1134 abandon(2) %IF spare names <= 0 .loc 1 1134 0 jle .L131 .L84: 1135 hash(k1) = dmax; !put it in .loc 1 1135 0 discriminator 1 move.l DMAX.6088,%a2 .LVL154: move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l 64(%a0),%a0 move.w %a2,8768(%a0,%d2.l*2) .loc 1 1135 0 pea 2.w jsr ABANDON.6169 .LVL161: addq.l #4,%sp jra .L84 .L82: 1136 dict(dmax) = -1 .loc 1 1136 0 discriminator 1 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l 64(%a0),%a0 move.w #-1,14018(%a0,%a2.l*2) .LVL155: 1137 newname = dmax; dmax = dp; ->not in 1138 .loc 1 1138 0 discriminator 1 move.l DP.6105,DMAX.6088 .L85: .LVL156: .L117: 1139 in: search base = rbase %IF this >= 0 %AND d # 0; !record elem defn 1140 %IF search base # 0 %START; !record subname .loc 1 1140 0 tst.l THIS.6082 jlt .L86 .loc 1 1140 0 discriminator 1 move.l SEARCHBASE.6112,%d0 jeq .L87 .LVL162: 1141 new = -1 .loc 1 1141 0 tst.l %d6 jeq .L86 1142 x = search base .loc 1 1142 0 move.l RBASE.6085,SEARCHBASE.6112 .L86: .loc 1 1142 0 move.l %d0,X.6040 1143 %CYCLE 1144 ->not in %IF x < format list .loc 1 1144 0 move.l FORMATLIST.6113,%d1 cmp.l %d0,%d1 jgt .L117 .loc 1 1144 0 cmp.l %d0,%d1 jgt .L132 .L90: lea (-16,%a1),%a1 1145 %EXIT %IF tag(x)_text = new name .loc 1 1145 0 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l 64(%a0),%a1 move.l %d0,%d2 .LVL163: add.l #1627,%d2 lsl.l #4,%d2 cmp.w (%a1,%d2.l),%d3 jeq .L94 move.l %d0,%d2 add.l #1626,%d2 lsl.l #4,%d2 add.l %d2,%a1 .L91: .loc 1 1145 0 cmp.w 16(%a1),%d3 jne .L91 move.l %d0,X.6040 jra .L94 .LVL164: .L87: 1146 x = x-1 .loc 1 1146 0 subq.l #1,%d0 .LDL9: 1147 %REPEAT 1148 %FINISH %ELSE %START; !hash in for normal names 1149 x = dict(newname) .loc 1 1149 0 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l 64(%a0),%a0 move.w 14018(%a0,%a2.l*2),%a0 move.l %a0,X.6040 1150 ->not in %IF x <= limit; !wrong level .loc 1 1150 0 cmp.l LIMIT.6100,%a0 jle .L117 .L89: .L93: .LVL165: .L94: 1151 %FINISH 1152 1153 subatom = x; !name found, extract info .loc 1 1153 0 move.l X.6040,%d2 move.l %d2,SUBATOM.6043 1154 t == tag(x) .loc 1 1154 0 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l 64(%a0),%a5 .LVL166: 1155 atom flags = t_flags .loc 1 1155 0 move.l %d2,%d0 lsl.l #4,%d0 lea (%a5,%d0.l),%a0 move.w 26028(%a0),%d0 move.w %d0,%a1 move.l %a1,ATOMFLAGS.6069 1156 format = t_format; app = t_app .loc 1 1156 0 move.l 26024(%a0),FORMAT.6046 1157 protection = atom flags&prot .loc 1 1157 0 move.l 26020(%a0),APP.6045 1158 type = atom flags>>4&7; atom1 = amap(atom flags&15) .loc 1 1158 0 bfextu %d0{#25:#3},%d1 move.l %d1,TYPE.6044 1159 .loc 1 1159 0 moveq #15,%d3 and.l %d3,%d0 move.b 38902(%a5,%d0.l),%d0 and.l #255,%d0 move.l %d0,ATOM1.6041 .LBB349: 1160 %IF diag&8 # 0 %START 1161 printstring("lookup:") .loc 1 1161 0 move.l %fp,%d3 .LVL167: add.l #-256,%d3 .LVL168: move.l #256,%d4 .LVL169: move.l %d4,-(%sp) pea .LC19 move.l %d3,-(%sp) lea memcpy,%a4 jsr (%a4) .LVL170: move.l %fp,%d5 .LVL171: add.l #-512,%d5 .LVL172: move.l %d4,-(%sp) move.l %d3,-(%sp) move.l %d5,-(%sp) jsr (%a4) .LVL173: move.l %d4,-(%sp) move.l %d5,-(%sp) move.l %d3,-(%sp) jsr (%a4) .LVL174: .LBE349: .LBB350: .LBB351: .loc 2 589 0 lea (-220,%sp),%sp move.l %sp,%d0 move.l %d4,-(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jsr (%a4) .LVL175: lea (12,%sp),%sp jsr _imp_printstring .LVL176: .LBE351: .LBE350: 1162 write(atom1, 3) .loc 1 1162 0 add.l %d4,%sp pea 3.w move.l ATOM1.6041,-(%sp) lea _imp_writeint,%a4 jsr (%a4) .LVL177: 1163 write(type, 1) .loc 1 1163 0 pea 1.w move.l TYPE.6044,-(%sp) jsr (%a4) .LVL178: 1164 write(app, 3) .loc 1 1164 0 pea 3.w move.l APP.6045,-(%sp) jsr (%a4) .LVL179: 1165 write(format, 5) .loc 1 1165 0 pea 5.w move.l FORMAT.6046,-(%sp) jsr (%a4) .LVL180: 1166 write(atom flags, 3) .loc 1 1166 0 lea (32,%sp),%sp pea 3.w move.l ATOMFLAGS.6069,-(%sp) jsr (%a4) .LVL181: .LBB352: .LBB353: .loc 2 661 0 jsr _imp_newline .LVL182: .LDL10: .LBE353: .LBE352: 1167 newline 1168 %FINISH 1169 1170 %IF d = 0 %START; !old name wanted .loc 1 1170 0 addq.l #8,%sp tst.l %d6 jne .L95 1171 t_flags <- t_flags!used bit .loc 1 1171 0 lsl.l #4,%d2 .LVL183: or.w #-32768,26028(%a5,%d2.l) 1172 search base = 0 .loc 1 1172 0 clr.l SEARCHBASE.6112 1173 1174 %IF atom flags&subname # 0 %AND format # 0 %START; !a record 1175 %RETURN %IF format selected = 0 .loc 1 1175 0 move.l FORMAT.6046,%d0 jne .L133 .L96: .L100: 1176 %FINISH 1177 1178 %IF atom flags¶meters # 0 %START; !proc or array 1179 1180 %IF app = 0 %START; !no parameters needed .loc 1 1180 0 move.l APP.6045,%d0 jne .L101 1181 atom2 = atom1 .loc 1 1181 0 move.l ATOM1.6041,%a0 move.l %a0,ATOM2.6042 1182 atom1 = atom1-4 .loc 1 1182 0 move.l %a0,%d0 subq.l #4,%d0 move.l %d0,ATOM1.6041 .LVL184: .LBB354: 1183 %IF 97 <= atom1 <= 98 %START 1184 map gg = atom1; atom1 = var .loc 1 1184 0 move.l %d0,MAPGG.6080 1185 %FINISH .loc 1 1185 0 moveq #91,%d3 move.l %d3,ATOM1.6041 jra .L106 .LVL185: .L133: .LBB355: .LBB356: 1186 %FINISH %ELSE %START .loc 1 1186 0 lea (-101,%a0),%a0 moveq #1,%d2 cmp.l %a0,%d2 jcs .L106 .LBE354: 1187 %IF sym = '(' %START .loc 1 1187 0 moveq #40,%d1 cmp.l SYM.6058,%d1 jeq .L135 .L102: .L105: .L106: 1188 search base = 0; !ignore format for now .loc 1 1188 0 clr.l SEARCHBASE.6112 1189 %IF atom1 >= 106 %START; !arrays .loc 1 1189 0 move.l ATOM1.6041,%d1 moveq #105,%d2 cmp.l %d1,%d2 jge .L103 1190 app = phrase(app+200) .loc 1 1190 0 move.w PHRASE.6130(%d0.l*2),%a0 move.l %a0,APP.6045 1191 escape class = esc array .loc 1 1191 0 move.l #254,ESCAPECLASS.6067 1192 atom1 = (atom1-106)>>1+91; !a,an->v na,nan->n .loc 1 1192 0 moveq #-106,%d0 add.l %d1,%d0 lsr.l #1,%d0 moveq #91,%d1 add.l %d0,%d1 move.l %d1,ATOM1.6041 .L104: 1193 %FINISH %ELSE %START; !procedures 1194 escape class = esc proc .loc 1 1194 0 move.l #253,ESCAPECLASS.6067 1195 atom1 = atom1-4 .loc 1 1195 0 subq.l #4,%d1 move.l %d1,ATOM1.6041 jra .L104 .LVL186: .L95: 1196 %FINISH 1197 phrase(200) = app .loc 1 1197 0 move.w APP.6045+2,PHRASE.6130 jra .L106 .L103: 1198 %FINISH 1199 %FINISH 1200 pos2 = pos; %return .loc 1 1200 0 move.l POS.6108,POS2.6107 1201 %FINISH .loc 1 1201 0 jra .L79 .L135: 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; !dont fault proc parm-parm .loc 1 1213 0 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l 56(%a0),%d3 cmp.l 60(%a0),%d3 jeq .L136 .L107: 1214 %IF d = lab+spec+used bit %START .loc 1 1214 0 cmp.l #32899,%d6 jeq .L140 .L109: 1215 t_flags = t_flags!used bit .loc 1 1215 0 lsl.l #4,%d2 .LVL206: or.w #-32768,26028(%a5,%d2.l) 1216 %RETURN .loc 1 1216 0 jra .L79 .LVL207: .L141: 1217 %FINISH 1218 %IF atom flags&spec # 0 %START; !a spec has been given 1219 %IF d = lab %START; !define label .loc 1 1219 0 moveq #3,%d0 cmp.l %d6,%d0 jeq .L141 .L110: .LBB358: 1220 t_flags <- t_Flags-Spec .loc 1 1220 0 lsl.l #4,%d2 .LVL208: add.w #-128,26028(%a5,%d2.l) 1221 %RETURN .loc 1 1221 0 jra .L79 .L111: .LVL209: .L114: 1222 %FINISH 1223 %IF 7 <= decl&15 <= 10 %AND decl&spec = 0 %START 1224 1225 !procedure definition after spec 1226 .loc 1 1226 0 move.l DECL.6064,%d0 .LVL199: moveq #15,%d1 and.l %d0,%d1 .LVL200: subq.l #7,%d1 .LVL201: moveq #3,%d3 cmp.l %d1,%d3 jcs .L114 .LBE358: 1227 %IF (decl!!atom flags)&b'1111111' = 0 %START; !correct type? .loc 1 1227 0 move.l ATOMFLAGS.6069,%d1 .LVL202: eor.l %d1,%d0 .LVL203: btst #0,%d0 jne .L113 1228 t_flags = t_flags-spec .loc 1 1228 0 lsl.l #4,%d2 .LVL204: add.w #-128,26028(%a5,%d2.l) 1229 spec given = 1 .loc 1 1229 0 moveq #1,%d2 move.l %d2,SPECGIVEN.6066 1230 %RETURN .loc 1 1230 0 btst #0,%d0 jne .L115 .loc 1 1230 0 jra .L79 .LVL205: .L140: 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 .loc 1 1237 0 btst #0,%d0 jne .L115 .LVL210: .L113: 1238 t_flags = record<<4+recfm .loc 1 1238 0 lsl.l #4,%d2 .LVL211: add.l %d2,%a5 move.w #68,26028(%a5) 1239 t_format = fdef .loc 1 1239 0 move.l FDEF.6081,26024(%a5) 1240 %RETURN .loc 1 1240 0 jra .L79 .L112: .LVL212: .L115: 1241 %FINISH 1242 %FINISH 1243 %RETURN %IF last1 = jump %AND atom1 = swit .loc 1 1243 0 moveq #54,%d3 cmp.l LAST1.6072,%d3 jeq .L142 .L116: 1244 copy = x %IF copy = 0 .loc 1 1244 0 discriminator 1 tst.l COPY.6101 jne .L107 .loc 1 1244 0 moveq #105,%d0 cmp.l ATOM1.6041,%d0 jne .L116 jra .L79 .LVL213: .L132: move.l %d0,X.6040 jra .L117 .LVL214: .L137: 1245 .loc 1 1245 0 move.l X.6040,COPY.6101 jra .L107 .L142: 1246 notin:app = 0; vid = 0 1247 atom1 = error+2 .loc 1 1247 0 clr.l APP.6045 .LVL157: .loc 1 1247 0 move.l #32770,ATOM1.6041 .loc 1 1247 0 clr.l APP.6045 .LVL187: .L118: 1248 .loc 1 1248 0 clr.l %d2 1249 %return %if d = 0; !old name wanted .loc 1 1249 0 tst.l %d6 jne .L118 .LVL158: .L79: 1250 type = d>>4&7; form = d&15; atom1 = amap(form) .loc 1 1250 0 bfextu %d6{#25:#3},%d1 move.l %d1,TYPE.6044 1251 .loc 1 1251 0 moveq #15,%d0 and.l %d6,%d0 .LVL188: 1252 %IF this < 0 %START; !normal scope .loc 1 1252 0 move.l 12(%a3),%a0 move.l 4(%a0),%a1 move.l 64(%a1),%a0 clr.l %d1 move.b 38902(%a0,%d0.l),%d1 move.l %d1,ATOM1.6041 .loc 1 1252 0 tst.l THIS.6082 jlt .L137 .L119: .LVL189: 1253 new = newname 1254 tmax = tmax+1; x = tmax .loc 1 1254 0 addq.l #1,52(%a1) 1255 %FINISH %ELSE %START; !recordformat scope .loc 1 1255 0 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l 52(%a0),X.6040 .loc 1 1255 0 move.l %a2,%a1 .loc 1 1255 0 jra .L120 .LVL215: .L138: 1256 new = -1 .loc 1 1256 0 move.w #-1,%a1 .LVL191: .L120: .LBB357: 1257 recid = recid-1; vid = recid .loc 1 1257 0 subq.l #1,8764(%a0) 1258 tmin = tmin-1; x = tmin .loc 1 1258 0 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l 64(%a0),%a0 move.l 8764(%a0),%d2 .LVL190: .loc 1 1258 0 move.l TMIN.6089,%d1 subq.l #1,%d1 move.l %d1,TMIN.6089 1259 format list = tmin .loc 1 1259 0 move.l %d1,X.6040 .loc 1 1259 0 move.l %d1,FORMATLIST.6113 1260 %FINISH 1261 1262 %IF 11 <= form <= 14 %START; !arrays 1263 dim = 1 %IF dim = 0; !set dim for owns .loc 1 1263 0 tst.l DIM.6065 jne .L122 1264 app = dim .loc 1 1264 0 moveq #1,%d1 move.l %d1,DIM.6065 .L122: .loc 1 1264 0 discriminator 1 move.l DIM.6065,APP.6045 .L121: .LDL11: 1265 %FINISH .loc 1 1265 0 move.w #-11,%a0 add.l %d0,%a0 moveq #3,%d3 cmp.l %a0,%d3 jcs .L121 .LBE357: 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 .loc 1 1270 0 discriminator 1 tst.l PERM.6095 jne .L123 1271 !they are defined, so inhibit a useless unused warning. .loc 1 1271 0 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l INCLUDELEVEL.6093,%d3 cmp.l 48(%a0),%d3 jne .L124 .L123: 1272 1273 t == tag(x) .loc 1 1273 0 or.w #32768,%d6 .LVL192: .L124: .loc 1 1273 0 discriminator 1 move.l X.6040,%d1 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l 64(%a0),%a4 .LVL193: 1274 %IF form = lab %START .loc 1 1274 0 discriminator 1 moveq #3,%d3 cmp.l %d0,%d3 jeq .L138 .L125: 1275 id = id+1; vid = id .loc 1 1275 0 addq.l #1,44(%a0) 1276 %FINISH .loc 1 1276 0 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l 44(%a0),%d2 .LVL216: jra .L125 .LVL217: .L139: 1277 t_index = vid .loc 1 1277 0 move.l %d1,%d0 .LVL194: lsl.l #4,%d0 lea (%a4,%d0.l),%a0 move.w %d2,26030(%a0) 1278 t_text = new name .loc 1 1278 0 move.l %d1,%d0 add.l #1627,%d0 lsl.l #4,%d0 move.w %a2,(%a4,%d0.l) 1279 t_flags <- d .loc 1 1279 0 move.w %d6,26028(%a0) 1280 t_app = app .loc 1 1280 0 move.l APP.6045,26020(%a0) 1281 t_format = fdef; format = fdef .loc 1 1281 0 move.l FDEF.6081,%d0 move.l %d0,26024(%a0) 1282 subatom = x .loc 1 1282 0 move.l %d0,FORMAT.6046 .loc 1 1282 0 move.l %d1,SUBATOM.6043 1283 1284 %IF new >= 0 %START; !insert into hash table .loc 1 1284 0 tst.l %a1 jlt .L127 1285 t_link = dict(new); dict(new) = x .loc 1 1285 0 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l 64(%a0),%a0 lea (7009,%a1),%a1 .LVL195: move.l %d1,%d0 lsl.l #4,%d0 move.w (%a0,%a1.l*2),26034(%a4,%d0.l) 1286 %IF gmin = max grammar %START; !proc param params .loc 1 1286 0 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l 64(%a0),%a0 move.w %d1,(%a0,%a1.l*2) .loc 1 1286 0 cmp.l #1720,GMIN.6087 jeq .L139 .L126: .LVL196: .L127: 1287 tmin = tmin-1; subatom = tmin .loc 1 1287 0 move.l TMIN.6089,%d0 subq.l #1,%d0 move.l %d0,TMIN.6089 1288 tag(tmin) = t .loc 1 1288 0 move.l %d0,SUBATOM.6043 .loc 1 1288 0 move.l 12(%a3),%a0 move.l 4(%a0),%a0 lsl.l #4,%d0 move.l 64(%a0),%a0 add.l %d0,%a0 lsl.l #4,%d1 .LVL218: lea 26020(%a4,%d1.l),%a1 .LVL219: lea (26020,%a0),%a0 move.l (%a1)+,(%a0)+ move.l (%a1)+,(%a0)+ move.l (%a1)+,(%a0)+ move.l (%a1),(%a0) jra .L127 .cfi_endproc .LFE205: .align 2 GETSYM.6556: .LFB201: 1289 %FINISH 1290 %FINISH 1291 abandon(3) %IF tmax >= tmin .loc 1 1291 0 move.l 12(%a3),%a0 move.l 4(%a0),%a0 move.l TMIN.6089,%a1 cmp.l 52(%a0),%a1 jgt .L79 1292 %END .loc 1 1292 0 pea 3.w move.l 64(%a0),%a0 jsr ABANDON.6169 .LVL197: addq.l #4,%sp .L98: jra .L79 .LVL198: .L136: .L108: 1293 .loc 1 1293 0 movem.l -548(%fp),#15484 .LVL159: unlk %fp rts .LVL160: .L131: 1294 1295 1296 top: pos1 = pos 1297 subatom = 0; pend quote = 0; atom flags = 0 .loc 1 1297 0 move.l POS.6108,POS1.6106 .loc 1 1297 0 clr.l SUBATOM.6043 .LVL265: .loc 1 1297 0 discriminator 1 move.l POS.6108,POS1.6106 .loc 1 1297 0 discriminator 1 clr.l SUBATOM.6043 1298 .loc 1 1298 0 clr.l %d2 .LVL275: .L241: .loc 1 1298 0 clr.l %d2 .LVL283: .L222: 1299 !app and format must be left for assigning to papp & pformat .loc 1 1299 0 clr.l ATOMFLAGS.6069 .loc 1 1299 0 discriminator 1 clr.l ATOMFLAGS.6069 1300 1301 ->name %IF symtype = -2; !letter .loc 1 1301 0 move.l SYMTYPE.6059,%d0 moveq #-2,%d1 cmp.l %d0,%d1 jeq .L208 .loc 1 1301 0 discriminator 1 move.l SYMTYPE.6059,%d0 moveq #-2,%d2 cmp.l %d0,%d2 jeq .L208 .L215: 1302 ->number %IF symtype < 0; !digit .loc 1 1302 0 tst.l %d0 jlt .L209 .loc 1 1302 0 tst.l %d0 jlt .L209 .L216: 1303 %IF symtype = 0 %START .loc 1 1303 0 jeq .L210 .loc 1 1303 0 jeq .L210 .L217: 1304 atom1 = termin; atom2 = 0 .loc 1 1304 0 moveq #20,%d0 move.l %d0,ATOM1.6041 1305 %RETURN .loc 1 1305 0 clr.l ATOM2.6042 .loc 1 1305 0 jra .L207 .L212: 1306 %FINISH 1307 %IF symtype # 2 %START; !catch keywords here .loc 1 1307 0 moveq #2,%d2 cmp.l %d0,%d2 jeq .L224 .loc 1 1307 0 moveq #2,%d1 cmp.l %d0,%d1 jeq .L224 1308 ->text %IF quote # 0; !completion of text .loc 1 1308 0 move.l QUOTE.6060,%d0 jeq .L212 .loc 1 1308 0 move.l QUOTE.6060,%d0 jeq .L212 .L219: 1309 ->strings %IF sym = squote; !start of string .loc 1 1309 0 move.l SYM.6058,%d0 moveq #34,%d2 cmp.l %d0,%d2 jeq .L220 .L221: 1310 ->symbols %IF sym = cquote; !start of symbol .loc 1 1310 0 moveq #39,%d1 cmp.l %d0,%d1 jeq .L274 .L223: 1311 ->number %IF sym = '.' %AND '0' <= nextsymbol <= '9' .loc 1 1311 0 moveq #46,%d2 cmp.l %d0,%d2 jeq .L280 .L211: .L224: 1312 %FINISH 1313 1314 !locate atom in fixed dict 1315 k = key>>2; read sym .loc 1 1315 0 discriminator 1 move.l KEY.6516,%d0 move.l %d0,%d2 lsr.l #2,%d2 .LVL267: .loc 1 1315 0 moveq #-48,%d1 add.l %d1,%d0 moveq #9,%d2 cmp.l %d0,%d2 jcs .L224 .L209: .LBE385: 1316 %CYCLE .loc 1 1316 0 discriminator 1 move.l %a2,%a0 jsr READSYM.6561 .LVL268: .LDL12: 1317 j = kdict(k) .loc 1 1317 0 discriminator 1 move.l 4(%a2),%a0 add.l %d2,%d2 .LVL269: move.l 64(%a0),%a0 add.l %d2,%a0 move.w 12804(%a0),%d1 .LVL270: .LDL13: 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 .loc 1 1334 0 discriminator 1 moveq #127,%d0 and.l %d1,%d0 move.l %d0,ATOM1.6041 1335 %IF atom1 = 0 %START; !comma .loc 1 1335 0 discriminator 1 jne .L225 1336 atom1 = 19; subatom = 19; atom2 = 0 .loc 1 1336 0 moveq #19,%d0 move.l %d0,ATOM1.6041 1337 %IF sym = nl %START .loc 1 1337 0 move.l %d0,SUBATOM.6043 .loc 1 1337 0 moveq #10,%d1 .LVL271: cmp.l SYM.6058,%d1 jne .L207 1338 %RETURN %IF ocount >= 0 .loc 1 1338 0 clr.l ATOM2.6042 .loc 1 1338 0 tst.l OCOUNT.6099 jge .L207 .L226: 1339 1340 !special action needs to be taken with as 1341 !const array lists can be enormous 1342 1343 read sym .loc 1 1343 0 move.l %a2,%a0 .LVL272: jsr READSYM.6561 .LVL273: jra .L207 .L280: .LBB385: .LBB386: .LBB387: .loc 2 583 0 jsr _imp_nextsymbol .LVL274: .LBE387: .LBE386: 1344 %FINISH 1345 %RETURN 1346 %FINISH 1347 atom2 = j>>7&127 .loc 1 1347 0 bfextu %d1{#18:#7},%d1 .LVL280: move.l %d1,ATOM2.6042 1348 subatom = kdict(k+1)&x'3fff' .loc 1 1348 0 move.w 12806(%a0),%d0 and.w #16383,%d0 move.w %d0,%a0 .LVL281: move.l %a0,SUBATOM.6043 1349 !!!!!cont = ' ' 1350 %RETURN .loc 1 1350 0 jra .L207 .LVL282: .L274: 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 .loc 1 1357 0 move.l #32769,ATOM1.6041 .loc 1 1357 0 move.l POS.6108,%d0 move.l %d0,%d1 sub.l POS1.6106,%d1 moveq #2,%d2 cmp.l %d1,%d2 jge .L207 1358 %RETURN .loc 1 1358 0 clr.l ATOM2.6042 .loc 1 1358 0 move.l %d0,POS1.6106 jra .L207 .LVL334: .L292: 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 .loc 1 1365 0 moveq #91,%d0 move.l %d0,ATOM1.6041 .loc 1 1365 0 move.l %d1,MAPGG.6080 1366 subatom = lp; abandon(3) %IF lp >= lit max .loc 1 1366 0 moveq #93,%d1 move.l %d1,ATOM2.6042 .loc 1 1366 0 move.l LP.6118,%d0 move.l %d0,SUBATOM.6043 1367 quote = \pend quote .loc 1 1367 0 moveq #1,%d0 move.l %d0,TYPE.6044 .loc 1 1367 0 moveq #49,%d1 cmp.l %d0,%d1 jlt .L282 .L229: .loc 1 1367 0 discriminator 1 not.l %d2 .LVL284: move.l %d2,QUOTE.6060 1368 %RETURN .loc 1 1368 0 discriminator 1 jra .L207 .LVL285: .L275: .loc 1 1368 0 move.l 4(%a2),%a0 pea 3.w move.l 64(%a0),%a0 jsr ABANDON.6169 .LVL287: addq.l #4,%sp jra .L229 .LVL288: .L283: .L232: 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 .loc 1 1374 0 clr.l -16(%fp) 1375 read sym .loc 1 1375 0 lea READSYM.6561,%a3 .LBB382: .LBB383: .loc 2 583 0 lea _imp_nextsymbol,%a4 jra .L214 .LVL266: .L210: .LBE383: .LBE382: .loc 1 1375 0 moveq #39,%d2 move.l %d2,CONT.6062 .LDL15: .loc 1 1375 0 move.l %a2,%a0 jsr (%a3) .LVL292: 1376 %IF sym = cquote %START .loc 1 1376 0 cmp.l SYM.6058,%d2 jne .L230 .LBB388: .LBB384: .loc 2 583 0 jsr (%a4) .LVL293: .LBE384: .LBE388: 1377 %EXIT %IF nextsymbol # cquote .loc 1 1377 0 cmp.l %d0,%d2 jeq .L283 .L231: 1378 read sym .loc 1 1378 0 move.l %a2,%a0 jsr READSYM.6561 .LVL289: .L230: 1379 %FINISH 1380 %IF n&(\((-1)>>byte size)) # 0 %START; ! overflow 1381 pos1 = pos; atom1 = error+10; %RETURN .loc 1 1381 0 move.l POS.6108,POS1.6106 1382 %FINISH .loc 1 1382 0 move.l #32778,ATOM1.6041 .LVL290: .L207: 1383 ->err %IF quote = 0 1384 n = n<top .loc 1 1390 0 discriminator 1 addq.l #1,%d0 move.l %d0,LP.6118 .LDL14: 1391 1392 !sniff the grammar before getting the string 1393 1394 strings:atom1 = var; atom2 = const; type = stringv 1395 subatom = (strp-stbase)!x'4000' .loc 1 1395 0 moveq #91,%d0 move.l %d0,ATOM1.6041 .loc 1 1395 0 move.l (%a2),%d0 sub.l STBASE.6086,%d0 or.w #16384,%d0 move.l %d0,SUBATOM.6043 1396 map gg = const; protection = prot .loc 1 1396 0 moveq #93,%d1 move.l %d1,ATOM2.6042 .loc 1 1396 0 move.l %d1,MAPGG.6080 1397 quote = subatom .loc 1 1397 0 moveq #3,%d2 move.l %d2,TYPE.6044 .loc 1 1397 0 move.l %d0,QUOTE.6060 1398 text line = lines; !in case of errors .loc 1 1398 0 move.l LINES.6050,TEXTLINE.6051 1399 %RETURN .loc 1 1399 0 jra .L207 .L213: 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 .loc 1 1405 0 jge .L213 .loc 1 1405 0 jge .L213 .L214: .loc 1 1405 0 discriminator 1 move.l (%a2),%a3 .LVL295: 1406 j = addr(glink(gmin-1)); !absolute limit .loc 1 1406 0 discriminator 1 move.l %a3,-16(%fp) .LVL296: .loc 1 1406 0 discriminator 1 move.l GMIN.6087,%d2 subq.l #1,%d2 add.l %d2,%d2 add.l #GLINK.6134,%d2 .LVL298: cmp.l %d2,%d0 jge .L234 move.l %d0,%d2 .LVL299: .L234: .LDL16: .LDL17: .LDL18: 1407 k = l+256; !string length limit .loc 1 1407 0 discriminator 1 move.l %a3,%d0 add.l #256,%d0 .LVL297: 1408 k = j %IF j < k; !choose lower 1409 1410 %CYCLE 1411 cont = squote; quote = 1 .loc 1 1411 0 moveq #34,%d0 move.l %d0,CONT.6062 1412 %CYCLE .loc 1 1412 0 moveq #1,%d1 move.l %d1,QUOTE.6060 .L235: 1413 read sym .loc 1 1413 0 discriminator 1 lea READSYM.6561,%a4 .LBB389: .LBB390: .loc 2 583 0 discriminator 1 lea _imp_nextsymbol,%a5 .LBE390: .LBE389: .loc 1 1413 0 move.l %a2,%a0 jsr (%a4) .LVL306: 1414 %IF sym = squote %START; !terminator? .loc 1 1414 0 moveq #34,%d0 cmp.l SYM.6058,%d0 jeq .L284 .L236: 1415 %EXIT %IF nextsymbol # squote; !yes -> .loc 1 1415 0 moveq #34,%d1 cmp.l %d0,%d1 jne .L237 .L238: 1416 read sym; ! skip quote .loc 1 1416 0 move.l %a2,%a0 jsr (%a4) .LVL302: jra .L236 .L237: 1417 %FINISH 1418 l = l+1; byteinteger(l) = sym .loc 1 1418 0 addq.l #1,%a3 .LVL307: 1419 lines = text line %AND abandon(7) %IF l >= k; !too many chars .loc 1 1419 0 move.b SYM.6058+3,(%a3) .loc 1 1419 0 cmp.l %a3,%d2 jgt .L235 1420 %REPEAT .loc 1 1420 0 move.l TEXTLINE.6051,LINES.6050 1421 byteinteger(n) = l-n; !plug in length .loc 1 1421 0 discriminator 1 move.l #ABANDON.6169,%d3 jra .L240 .LVL300: .L284: .LBB392: .LBB391: .loc 2 583 0 jsr (%a5) .LVL301: .LBE391: .LBE392: .loc 1 1421 0 move.l -16(%fp),%d0 move.w %a3,%d1 sub.b %d0,%d1 move.l %d0,%a0 move.b %d1,(%a0) .loc 1 1421 0 move.l 4(%a2),%a0 pea 7.w move.l 64(%a0),%a0 move.l %d3,%a1 jsr (%a1) .LVL308: addq.l #4,%sp jra .L235 .LVL309: .L281: 1422 1423 strp = l+1; !ready for next string .loc 1 1423 0 lea (1,%a3),%a1 move.l %a1,(%a2) 1424 quote = 0; cont = ' '; read sym .loc 1 1424 0 clr.l QUOTE.6060 1425 code atom(target) .loc 1 1425 0 moveq #32,%d0 move.l %d0,CONT.6062 .loc 1 1425 0 move.l 8(%fp),-(%sp) move.l %a2,%a0 jsr CODEATOM.6601 .LVL304: 1426 %RETURN %UNLESS atom1 = 48 %AND sym = squote; !fold "???"."+++" .loc 1 1426 0 move.l %a2,%a0 jsr (%a4) .LVL303: .loc 1 1426 0 addq.l #4,%sp moveq #48,%d1 cmp.l ATOM1.6041,%d1 jne .L207 1427 %REPEAT .loc 1 1427 0 moveq #34,%d0 cmp.l SYM.6058,%d0 jne .L207 .LVL305: .L240: 1428 1429 %ROUTINE get(%INTEGER limit) .loc 1 1429 0 .cfi_startproc .LVL253: link.w %fp,#0 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 movem.l #14384,-(%sp) .cfi_offset 2, -28 .cfi_offset 3, -24 .cfi_offset 4, -20 .cfi_offset 10, -16 .cfi_offset 11, -12 move.l 8(%fp),%d3 move.l %a0,%a2 .LVL254: 1430 %INTEGER s, shift 1431 shift = 0 .loc 1 1431 0 clr.l %d2 .L185: .L188: .L189: .L190: .LVL255: 1432 %IF base # 10 %START .loc 1 1432 0 move.l 8(%a0),%d0 moveq #10,%d1 cmp.l %d0,%d1 jeq .L202 1433 %IF base = 16 %START .loc 1 1433 0 moveq #16,%d4 cmp.l %d0,%d4 jeq .L203 .L186: 1434 shift = 4 .loc 1 1434 0 moveq #4,%d2 jra .L190 .L204: 1435 %FINISH %ELSE %START 1436 %IF base = 8 %START .loc 1 1436 0 moveq #8,%d1 cmp.l %d0,%d1 jeq .L204 .L187: 1437 shift = 3 .loc 1 1437 0 moveq #3,%d2 jra .L190 .LVL257: .L205: 1438 %FINISH %ELSE %START 1439 %IF base = 2 %START .loc 1 1439 0 moveq #2,%d4 cmp.l %d0,%d4 seq %d2 extb.l %d2 neg.l %d2 1440 shift = 1 1441 %FINISH .loc 1 1441 0 jra .L190 .L202: 1442 %FINISH 1443 %FINISH 1444 %FINISH 1445 n = 0 .loc 1 1445 0 clr.l 4(%a2) 1446 %CYCLE 1447 %IF symtype = -1 %START; !digit .loc 1 1447 0 move.l SYMTYPE.6059,%d0 moveq #-1,%d1 cmp.l %d0,%d1 jeq .L205 .L192: 1448 s = sym-'0' .loc 1 1448 0 moveq #-48,%d0 add.l SYM.6058,%d0 .LVL258: 1449 %FINISH %ELSE %START .loc 1 1449 0 jra .L195 .L206: 1450 %IF symtype < 0 %START; !letter .loc 1 1450 0 tst.l %d0 jge .L184 1451 s = sym-'A'+10 .loc 1 1451 0 moveq #-55,%d0 add.l SYM.6058,%d0 .LVL260: .L193: .L195: 1452 %FINISH %ELSE %START 1453 %RETURN 1454 %FINISH 1455 %FINISH 1456 %RETURN %IF s >= limit .loc 1 1456 0 cmp.l %d0,%d3 jle .L184 .L196: 1457 pt = pt+1; byteinteger(pt) = sym .loc 1 1457 0 move.l (%a2),%a0 addq.l #1,%a0 move.l %a0,(%a2) 1458 %IF base = 10 %START; !check overflow .loc 1 1458 0 move.b SYM.6058+3,(%a0) .loc 1 1458 0 moveq #10,%d4 cmp.l 8(%a2),%d4 jeq .L206 .L197: .L199: 1459 %IF n >= max int %AND (s > max dig %OR n > max int) %START .loc 1 1459 0 move.l 4(%a2),%d1 cmp.l #214748363,%d1 jle .L199 1460 .loc 1 1460 0 moveq #7,%d4 cmp.l %d0,%d4 jlt .L198 1461 !too big for an integer, .loc 1 1461 0 cmp.l #214748364,%d1 jle .L199 .L198: 1462 !so call it a real 1463 1464 base = 0; type = real; n = 0 .loc 1 1464 0 clr.l 8(%a2) 1465 %FINISH .loc 1 1465 0 moveq #2,%d1 move.l %d1,TYPE.6044 1466 %FINISH .loc 1 1466 0 clr.l 4(%a2) jra .L199 .L200: 1467 %IF shift = 0 %START .loc 1 1467 0 tst.l %d2 jne .L200 1468 n = n*base+s .loc 1 1468 0 move.l 4(%a2),%d1 muls.l 8(%a2),%d1 add.l %d0,%d1 move.l %d1,4(%a2) 1469 %FINISH %ELSE %START .loc 1 1469 0 jra .L201 .L194: .LVL261: .L184: 1470 n = n<= lit max .loc 1 1479 0 moveq #93,%d1 move.l %d1,ATOM2.6042 .loc 1 1479 0 moveq #49,%d1 cmp.l %d0,%d1 jlt .L281 .L242: 1480 pt = strp; mul = 0 .loc 1 1480 0 moveq #1,%d0 move.l %d0,TYPE.6044 .loc 1 1480 0 discriminator 1 move.l (%a2),-20(%fp) .LVL276: .loc 1 1480 0 move.l 4(%a2),%a0 pea 3.w move.l 64(%a0),%a0 jsr ABANDON.6169 .LVL310: addq.l #4,%sp jra .L242 .L244: .LVL311: .L247: 1481 %CYCLE .loc 1 1481 0 move.l LP.6118,%d0 move.l %d0,SUBATOM.6043 1482 get(base) .loc 1 1482 0 discriminator 1 lea GET.6728,%a3 .loc 1 1482 0 move.l -12(%fp),-(%sp) lea (-20,%fp),%a0 jsr (%a3) .LVL277: 1483 %EXIT %UNLESS sym = '_' %AND base # 0 %AND pend quote = 0; !change of base .loc 1 1483 0 move.l SYM.6058,%d0 addq.l #4,%sp moveq #95,%d1 cmp.l %d0,%d1 jne .L247 1484 pt = pt+1; byteinteger(pt) = '_' .loc 1 1484 0 tst.l -12(%fp) jeq .L245 .loc 1 1484 0 move.l -20(%fp),%a0 addq.l #1,%a0 move.l %a0,-20(%fp) 1485 read sym .loc 1 1485 0 discriminator 1 lea READSYM.6561,%a4 .L243: .loc 1 1485 0 tst.l %d2 jne .L227 .L246: .loc 1 1485 0 move.b #95,(%a0) .loc 1 1485 0 move.l %a2,%a0 jsr (%a4) .LVL278: 1486 base = n .loc 1 1486 0 move.l -16(%fp),-12(%fp) 1487 %REPEAT .loc 1 1487 0 jra .L243 .LVL279: .L225: 1488 1489 %IF pend quote # 0 %START .loc 1 1489 0 tst.l %d2 jne .L285 .LVL312: .L248: .loc 1 1489 0 tst.l %d2 jne .L227 .LVL341: .L251: 1490 ->err %IF sym # cquote .loc 1 1490 0 moveq #39,%d2 .LVL318: cmp.l %d0,%d2 jne .L227 .L249: 1491 readsym .loc 1 1491 0 move.l %a2,%a0 jsr READSYM.6561 .LVL319: jra .L248 .L286: 1492 %FINISH 1493 %IF sym = '.' %START; !a real constant .loc 1 1493 0 moveq #46,%d0 cmp.l SYM.6058,%d0 jeq .L286 .L250: 1494 pt = pt+1; byteinteger(pt) = '.' .loc 1 1494 0 move.l -20(%fp),%a0 addq.l #1,%a0 move.l %a0,-20(%fp) 1495 read sym .loc 1 1495 0 move.b #46,(%a0) .loc 1 1495 0 move.l %a2,%a0 jsr READSYM.6561 .LVL320: 1496 type = real; n = base; base = 0; get(n) .loc 1 1496 0 moveq #2,%d1 move.l %d1,TYPE.6044 1497 %FINISH .loc 1 1497 0 move.l -12(%fp),%d0 move.l %d0,-16(%fp) 1498 .loc 1 1498 0 clr.l -12(%fp) 1499 %IF sym = '@' %START; !an exponent .loc 1 1499 0 discriminator 1 moveq #64,%d2 cmp.l SYM.6058,%d2 jne .L251 .loc 1 1499 0 move.l %d0,-(%sp) lea (-20,%fp),%a0 jsr GET.6728 .LVL321: addq.l #4,%sp jra .L250 .LVL322: .L287: 1500 pt = pt+1; byteinteger(pt) = '@'; k = pt .loc 1 1500 0 move.l -20(%fp),%a0 addq.l #1,%a0 move.l %a0,-20(%fp) 1501 readsym .loc 1 1501 0 move.b #64,(%a0) .loc 1 1501 0 move.l %a2,%a0 jsr READSYM.6561 .LVL314: 1502 type = integer; base = 10 .loc 1 1502 0 move.l -20(%fp),%d2 .LVL313: .loc 1 1502 0 moveq #1,%d0 move.l %d0,TYPE.6044 1503 %IF sym = '-' %START .loc 1 1503 0 moveq #10,%d1 move.l %d1,-12(%fp) .loc 1 1503 0 moveq #45,%d0 cmp.l SYM.6058,%d0 jeq .L287 .L252: 1504 read sym; get(10); n = -n .loc 1 1504 0 move.l %a2,%a0 jsr READSYM.6561 .LVL323: 1505 %FINISH %ELSE %START .loc 1 1505 0 pea 10.w lea (-20,%fp),%a0 jsr GET.6728 .LVL324: .loc 1 1505 0 addq.l #4,%sp jra .L253 .LVL325: .L208: .LBB393: 1506 get(10) .loc 1 1506 0 pea 10.w lea (-20,%fp),%a0 jsr GET.6728 .LVL315: addq.l #4,%sp .L253: .loc 1 1506 0 neg.l -16(%fp) 1507 %FINISH 1508 pt = k+1; byteinteger(pt) = lp; litpool(lp) = n; lp = lp+1 .loc 1 1508 0 move.l %d2,%a0 addq.l #1,%a0 move.l %a0,-20(%fp) 1509 atom1 = error+10 %IF base = 0 .loc 1 1509 0 move.l LP.6118,%d0 move.b %d0,(%a0) .loc 1 1509 0 tst.l -12(%fp) jne .L254 1510 type = real; !exponents force the type .loc 1 1510 0 move.l 4(%a2),%a0 move.l 64(%a0),%a0 move.l -16(%fp),8560(%a0,%d0.l*4) .loc 1 1510 0 move.l #32778,ATOM1.6041 .L254: .loc 1 1510 0 discriminator 1 moveq #2,%d1 move.l %d1,TYPE.6044 .LVL316: .L255: 1511 %FINISH .loc 1 1511 0 addq.l #1,%d0 move.l %d0,LP.6118 1512 1513 %IF type = real %START .loc 1 1513 0 moveq #2,%d2 cmp.l TYPE.6044,%d2 jeq .L255 .L256: 1514 byteinteger(strp) = pt-strp .loc 1 1514 0 move.l (%a2),%d0 move.b -17(%fp),%d1 sub.b %d0,%d1 move.l %d0,%a0 move.b %d1,(%a0) 1515 subatom = (strp-stbase)!x'2000'; strp = pt+1 .loc 1 1515 0 move.l (%a2),%d0 sub.l STBASE.6086,%d0 or.w #8192,%d0 move.l %d0,SUBATOM.6043 1516 %FINISH %ELSE %START .loc 1 1516 0 move.l -20(%fp),%d0 addq.l #1,%d0 move.l %d0,(%a2) .loc 1 1516 0 jra .L207 .LVL317: .L285: 1517 litpool(lp) = n .loc 1 1517 0 move.l LP.6118,%d0 move.l 4(%a2),%a0 move.l 64(%a0),%a0 move.l -16(%fp),8560(%a0,%d0.l*4) 1518 lp = lp+1 .loc 1 1518 0 addq.l #1,%d0 move.l %d0,LP.6118 jra .L207 .cfi_endproc .LFE204: .align 2 GETNEXT.7175: .LFB211: 1519 %FINISH 1520 %RETURN 1521 1522 name: atom1 = 0 %AND %RETURN %IF 27 <= target <= 41 1523 hash value = 0 .loc 1 1523 0 move.l 4(%a2),%a0 move.l 64(%a0),%a0 clr.l 12864(%a0) 1524 1525 !***************************** 1526 !*machine dependent for speed* .loc 1 1526 0 move.w #-27,%a0 add.l 8(%fp),%a0 moveq #14,%d1 cmp.l %a0,%d1 jcs .L257 .LBE393: 1527 !***************************** 1528 1529 dp = dmax+1 .loc 1 1529 0 move.l DMAX.6088,%d0 move.l %d0,%d2 addq.l #1,%d2 move.l %d2,DP.6105 1530 da = addr(dict(dp)); dbase = da .loc 1 1530 0 clr.l ATOM1.6041 .loc 1 1530 0 move.l 4(%a2),%a0 add.l #7010,%d0 add.l %d0,%d0 move.l 64(%a0),%a4 add.l %d0,%a4 .LVL326: move.l %a4,%a3 1531 %CYCLE .loc 1 1531 0 jra .L207 .L257: 1532 hash value = hash value+(hash value+sym); !is this good enough? .loc 1 1532 0 move.l SYM.6058,%d0 move.l 4(%a2),%a0 move.l 64(%a0),%a0 move.l 12864(%a0),%d1 move.l %d0,%a1 add.l %d1,%a1 add.l %a1,%d1 move.l %d1,12864(%a0) 1533 da = da+1; byteinteger(da) = sym .loc 1 1533 0 addq.l #1,%a3 .LVL328: 1534 read sym .loc 1 1534 0 lea READSYM.6561,%a5 .L258: .LVL327: .L279: .L259: .loc 1 1534 0 move.b %d0,(%a3) .loc 1 1534 0 move.l %a2,%a0 jsr (%a5) .LVL329: 1535 %EXIT %IF symtype >= 0 .loc 1 1535 0 tst.l SYMTYPE.6059 jlt .L279 .L260: 1536 %REPEAT 1537 %IF sym = cquote %START .loc 1 1537 0 moveq #39,%d0 cmp.l SYM.6058,%d0 jeq .L288 .L261: 1538 pend quote = 100 .loc 1 1538 0 moveq #100,%d2 jra .L222 .LVL286: .L282: .loc 1 1538 0 moveq #100,%d2 .loc 1 1538 0 moveq #100,%d2 .loc 1 1538 0 moveq #100,%d2 1539 ->symbols %IF hash value = 'M' .loc 1 1539 0 move.l 4(%a2),%a0 move.l 64(%a0),%a0 moveq #77,%d1 cmp.l 12864(%a0),%d1 jeq .L275 .L262: 1540 read sym .loc 1 1540 0 move.l %a2,%a0 jsr READSYM.6561 .LVL332: 1541 %IF hash value = 'X' %THEN base = 16 %AND ->bxk .loc 1 1541 0 move.l 4(%a2),%a0 move.l 64(%a0),%a0 move.l 12864(%a0),%d0 moveq #88,%d2 cmp.l %d0,%d2 jeq .L292 .L263: 1542 %IF hash value = 'K' %C .loc 1 1542 0 moveq #-5,%d1 and.l %d0,%d1 moveq #75,%d2 cmp.l %d1,%d2 jeq .L293 .L264: .loc 1 1542 0 moveq #16,%d0 move.l %d0,-12(%fp) 1543 %OR hash value = 'O' %THEN base = 8 %AND ->bxk .loc 1 1543 0 jra .L241 .L293: .L265: 1544 %IF hash value = 'B' %THEN base = 2 %AND ->bxk .loc 1 1544 0 moveq #66,%d1 cmp.l %d0,%d1 jeq .L294 .LVL333: .L227: .L228: 1545 ->err .loc 1 1545 0 moveq #8,%d0 move.l %d0,-12(%fp) .loc 1 1545 0 moveq #2,%d2 move.l %d2,-12(%fp) 1546 %FINISH .loc 1 1546 0 jra .L241 .L294: .loc 1 1546 0 jra .L241 .LVL335: .L289: 1547 n = da-dbase .loc 1 1547 0 move.l %a3,%d0 sub.l %a4,%d0 move.l %d0,-16(%fp) 1548 byteinteger(dbase) = n .loc 1 1548 0 move.b %d0,(%a4) 1549 dp = dp+(n+2)>>1 .loc 1 1549 0 addq.l #2,%d0 lsr.l #1,%d0 add.l DP.6105,%d0 move.l %d0,DP.6105 1550 abandon(8) %IF dp >= dmin .loc 1 1550 0 move.l 4(%a2),%a0 cmp.l 40(%a0),%d0 jge .L289 .L266: 1551 .loc 1 1551 0 pea 8.w move.l 64(%a0),%a0 jsr ABANDON.6169 .LVL336: addq.l #4,%sp jra .L266 .L290: 1552 atom2 = 90; !ident .loc 1 1552 0 moveq #90,%d0 move.l %d0,ATOM2.6042 1553 %IF last1 = 0 %AND sym = ':' %START; !label .loc 1 1553 0 move.l LAST1.6072,%d0 jne .L267 1554 limit = local; lookup(lab); %RETURN .loc 1 1554 0 moveq #58,%d1 cmp.l SYM.6058,%d1 jeq .L290 .L268: .loc 1 1554 0 discriminator 1 move.l LOCAL.6110,LIMIT.6100 1555 %FINISH .loc 1 1555 0 discriminator 1 pea 3.w lea (-20,%fp),%a0 jsr LOOKUP.6614 .LVL337: 1556 %IF last1 = jump %START; !->label .loc 1 1556 0 discriminator 1 addq.l #4,%sp jra .L207 .L267: .loc 1 1556 0 moveq #54,%d2 cmp.l %d0,%d2 jne .L268 1557 limit = local; lookup(lab+spec+used bit); %RETURN .loc 1 1557 0 move.l LOCAL.6110,LIMIT.6100 1558 %FINISH .loc 1 1558 0 move.l #32899,-(%sp) lea (-20,%fp),%a0 jsr LOOKUP.6614 .LVL338: 1559 %IF decl # 0 %AND target = 90 %START; !identifier .loc 1 1559 0 move.l DECL.6064,%d0 jeq .L269 .loc 1 1559 0 addq.l #4,%sp jra .L207 .L291: 1560 search base = fm base .loc 1 1560 0 moveq #90,%d1 cmp.l 8(%fp),%d1 jeq .L291 .L269: .loc 1 1560 0 discriminator 1 move.l FMBASE.6111,SEARCHBASE.6112 1561 limit = local; lookup(decl) .loc 1 1561 0 discriminator 1 move.l LOCAL.6110,LIMIT.6100 1562 search base = 0 .loc 1 1562 0 discriminator 1 move.l %d0,-(%sp) lea (-20,%fp),%a0 jsr LOOKUP.6614 .LVL339: .loc 1 1562 0 discriminator 1 clr.l SEARCHBASE.6112 1563 %FINISH %ELSE %START .loc 1 1563 0 discriminator 1 addq.l #4,%sp jra .L207 .LVL340: .L245: 1564 limit = 0; lookup(0) .loc 1 1564 0 clr.l LIMIT.6100 1565 %FINISH .loc 1 1565 0 clr.l -(%sp) lea (-20,%fp),%a0 jsr LOOKUP.6614 .LVL330: addq.l #4,%sp .L218: .L270: .L271: .L272: .L273: jra .L207 .L288: .LVL331: 1566 %END 1567 .loc 1 1567 0 movem.l -44(%fp),#15372 unlk %fp rts .LVL291: .L233: 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 .loc 1 1615 0 move.l GG.6079,%d1 jne .L744 1616 last1 = 0; mapgg = 0 .loc 1 1616 0 moveq #32,%d0 move.l %d0,CONT.6062 .L744: .loc 1 1616 0 discriminator 1 clr.l LAST1.6072 1617 s = 0; ss = 0; sstype = -1; fdef = 0 .loc 1 1617 0 discriminator 1 clr.l MAPGG.6080 .LVL776: .loc 1 1617 0 sub.l %a2,%a2 .LBB623: .LBB624: .LBB625: 1618 fm base = 0 .loc 1 1618 0 discriminator 1 clr.l SS.6090 .loc 1 1618 0 discriminator 1 clr.l FMBASE.6111 1619 app = 0 .loc 1 1619 0 discriminator 1 moveq #-1,%d0 move.l %d0,SSTYPE.6097 .loc 1 1619 0 discriminator 1 clr.l APP.6045 1620 .loc 1 1620 0 discriminator 1 clr.l FDEF.6081 1621 !deal with alignment following an error in one statement 1622 !of several on a line 1623 1624 margin = column; !start of statement .loc 1 1624 0 discriminator 1 move.l COLUMN.6055,MARGIN.6052 1625 1626 pos = 0 .loc 1 1626 0 discriminator 1 clr.l POS.6108 1627 stbase = addr(glink(gmax+1)); strp = stbase; lp = 0 .loc 1 1627 0 discriminator 1 move.l GMAX.6129,%d0 addq.l #1,%d0 add.l %d0,%d0 add.l #GLINK.6134,%d0 move.l %d0,STBASE.6086 1628 tbase = tstart; !?????????????? .loc 1 1628 0 discriminator 1 move.l %d0,-20(%fp) .loc 1 1628 0 discriminator 1 move.l 60(%a4),%d0 move.l %d0,56(%a4) 1629 local = tbase .loc 1 1629 0 discriminator 1 clr.l LP.6118 .loc 1 1629 0 discriminator 1 move.l %d0,LOCAL.6110 1630 1631 %IF gg = 0 %or ocount >= 0 %START; !data or not continuation(z) .loc 1 1631 0 discriminator 1 tst.l %d1 jeq .L745 1632 again:%WHILE sym type = 0 %CYCLE; !skip redundant terminators .loc 1 1632 0 tst.l OCOUNT.6099 jlt .L755 .L745: 1633 c = cont .loc 1 1633 0 move.l CONT.6062,%d2 .LVL780: 1634 cont = ' '; cont = '+' %IF ocount >= 0 .loc 1 1634 0 tst.l SYMTYPE.6059 jne .L748 .loc 1 1634 0 moveq #32,%d1 move.l %d1,CONT.6062 1635 read sym .loc 1 1635 0 discriminator 1 lea (-20,%fp),%a0 jsr (%a2) .LVL778: .loc 1 1635 0 tst.l OCOUNT.6099 jlt .L749 1636 cont = c .loc 1 1636 0 discriminator 1 move.l %d2,CONT.6062 .LVL779: .L747: .loc 1 1636 0 discriminator 1 moveq #43,%d0 move.l %d0,CONT.6062 jra .L749 .LVL781: .L748: 1637 %REPEAT 1638 ->skip %IF sym = '!'; !comment .loc 1 1638 0 moveq #33,%d1 cmp.l SYM.6058,%d1 jeq .L751 .L752: 1639 this = -1 .loc 1 1639 0 moveq #-1,%d0 move.l %d0,THIS.6082 1640 code atom(0) .loc 1 1640 0 lea CODEATOM.6601,%a3 jra .L747 .LVL777: .L749: .loc 1 1640 0 clr.l -(%sp) lea (-20,%fp),%a0 jsr (%a3) .LVL782: 1641 %IF atom1 = comment %START .loc 1 1641 0 addq.l #4,%sp moveq #22,%d1 cmp.l ATOM1.6041,%d1 jne .L755 .L751: 1642 skip: quote = 1 1643 c = cont .loc 1 1643 0 moveq #1,%d0 move.l %d0,QUOTE.6060 .loc 1 1643 0 move.l CONT.6062,%d2 .LVL783: 1644 read sym %AND cont = c %WHILE sym # nl; !skip to end of line 1645 quote = 0; symtype = 0 .loc 1 1645 0 moveq #10,%d1 cmp.l SYM.6058,%d1 jeq .L753 .L754: .loc 1 1645 0 moveq #10,%d0 cmp.l SYM.6058,%d0 jne .L754 .L753: .loc 1 1645 0 discriminator 1 clr.l QUOTE.6060 1646 ->again .loc 1 1646 0 lea READSYM.6561,%a2 .loc 1 1646 0 lea (-20,%fp),%a0 jsr (%a2) .LVL784: .loc 1 1646 0 discriminator 1 clr.l SYMTYPE.6059 .loc 1 1646 0 discriminator 1 jra .L747 .L746: .LVL785: .L755: 1647 %FINISH .loc 1 1647 0 move.l %d2,CONT.6062 .LDL37: 1648 %FINISH 1649 decl = 0; mark = 0 .loc 1 1649 0 clr.l DECL.6064 .LVL786: 1650 gentype = 0; force = 0 .loc 1 1650 0 clr.l GENTYPE.6073 1651 dim = 0; prot err = 0 .loc 1 1651 0 clr.l FORCE.6077 .loc 1 1651 0 clr.l DIM.6065 .LVL787: 1652 node = 0; nmax = 0; nmin = rec size+1 .loc 1 1652 0 clr.w -22(%fp) 1653 order = 1; gmin = max grammar+1 .loc 1 1653 0 clr.l NMAX.6084 .loc 1 1653 0 moveq #1,%d1 move.l %d1,ORDER.6102 1654 sstype = 0 %AND ->more %IF gg # 0; !continuation .loc 1 1654 0 move.l #521,NMIN.6083 .loc 1 1654 0 move.l #1721,GMIN.6087 .loc 1 1654 0 tst.l GG.6079 jeq .L756 1655 ptype = 0; spec given = 0 .loc 1 1655 0 clr.l SSTYPE.6097 .loc 1 1655 0 clr.l PTYPE.6074 1656 .loc 1 1656 0 clr.l SPECGIVEN.6066 1657 stats = stats+1; op('O', lines) %IF perm = 0 .loc 1 1657 0 addq.l #1,STATS.6056 1658 .loc 1 1658 0 tst.l PERM.6095 jeq .L824 .L758: .LVL790: .L797: 1659 ->fail1 %IF atom1&error # 0; !first atom faulty .loc 1 1659 0 move.l LINES.6050,-(%sp) pea 79.w move.l 64(%a4),%a0 jsr OP.6243 .LVL851: addq.l #8,%sp jra .L797 .LVL852: .L759: .L760: 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 .loc 1 1755 0 move.l %d0,LAST1.6072 1756 a2: %IF gg&trans bit = 0 %START; !insert into analysis record .loc 1 1756 0 clr.l ATOM1.6041 1757 z == node .loc 1 1757 0 move.l SUBATOM.6043,%a2 .LVL853: .L761: .loc 1 1757 0 discriminator 1 move.l GG.6079,%d0 btst #0,%d0 jeq .L825 .L762: .LVL854: .loc 1 1757 0 lea (-22,%fp),%a0 .LVL866: jra .L765 .LVL867: .L828: .LBB688: .LBB648: .LBB629: .LBB628: .loc 2 661 0 jsr (%a5) .LVL868: jra .L769 .LVL869: .L829: .LBE628: .LBE629: .LBB630: .LBB631: .loc 2 586 0 pea 123.w lea _imp_printsymbol,%a3 jsr (%a3) .LVL870: .LBE631: .LBE630: .loc 1 1757 0 lea (-22,%fp),%a0 .LVL981: jra .L815 .cfi_endproc .LFE198: .section .rodata .LC5: .byte 5 .string "Begin" .zero 249 .LC6: .byte 10 .string "Procedure " .zero 244 .align 2 .LC23: .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 .LC7: .byte 3 .string "End" .zero 251 .text .align 2 COMPILEBLOCK.6253: .LFB191: 1758 %CYCLE; !insert cell in order 1759 k = z .loc 1 1759 0 move.w -22(%fp),%a0 .LVL856: .loc 1 1759 0 discriminator 1 move.l %d1,%d2 lsl.l #4,%d2 move.w 4(%a1,%d2.l),%a0 .LVL859: add.l #-4096,%d0 1760 %EXIT %IF gg&order bits = 0 %OR k = 0 1761 gg = gg-order bit; z == ar(k)_link .loc 1 1761 0 tst.l %a0 jeq .L763 .loc 1 1761 0 discriminator 1 move.l %d0,%d3 .loc 1 1761 0 discriminator 1 tst.l %a0 jne .L764 1762 %REPEAT .loc 1 1762 0 move.l 64(%a4),%a1 add.l #-4096,%d0 .LVL857: .L764: .loc 1 1762 0 discriminator 1 move.l %a0,%d1 subq.l #1,%d1 .LDL38: .LVL858: .loc 1 1762 0 lea 4(%a1,%d2.l),%a0 .LVL860: .LDL39: .LDL40: move.l %d3,GG.6079 1763 gg = map gg %IF map gg # 0 %AND gg&255 = var .loc 1 1763 0 move.l MAPGG.6080,%d0 jeq .L765 .loc 1 1763 0 is_stmt 1 move.l MAPGG.6080,%d0 jeq .L820 1764 nmin = nmin-1; ->fail0 %IF nmin = nmax .loc 1 1764 0 btst #0,%d3 jne .L765 .LVL861: .L815: .loc 1 1764 0 discriminator 1 move.l NMIN.6083,%d0 move.l %d0,%d1 subq.l #1,%d1 move.l %d1,NMIN.6083 1765 z = nmin .loc 1 1765 0 discriminator 1 move.l %d0,GG.6079 .L765: .loc 1 1765 0 discriminator 1 cmp.l NMAX.6084,%d1 jeq .L766 .L767: .loc 1 1765 0 discriminator 2 move.w %d1,(%a0) 1766 arp == ar(nmin) .loc 1 1766 0 discriminator 2 subq.l #2,%d0 move.l 64(%a4),%a1 .LVL862: 1767 arp_sub = s; arp_class = (gg&255)!mark .loc 1 1767 0 discriminator 2 lsl.l #4,%d0 .LVL863: lea (%a1,%d0.l),%a0 .LVL864: move.w %a2,2(%a0) 1768 arp_link = k .loc 1 1768 0 discriminator 2 clr.w %d1 move.b GG.6079+3,%d1 or.w -5658(%fp),%d1 move.w %d1,(%a1,%d0.l) .loc 1 1768 0 discriminator 2 clr.w 4(%a0) jra .L762 .LVL865: .L820: 1769 %FINISH 1770 mark = 0; map gg = 0 1771 .loc 1 1771 0 clr.l MAPGG.6080 jra .L757 .LVL855: .L825: 1772 more: g = glink(g); !chain down the grammar 1773 .loc 1 1773 0 move.l G.6078,%d0 move.w GLINK.6134(%d0.l*2),%a0 move.l %a0,G.6078 clr.l -5660(%fp) .LBB650: .LBB647: .LBB626: .LBB627: .loc 2 661 0 lea _imp_newline,%a5 move.l %fp,%d3 add.l #-1046,%d3 move.l %fp,%d7 add.l #-790,%d7 jra .L768 .LVL789: .L756: .LBE627: .LBE626: .LBE647: .LBE650: 1774 paction(0): 1775 a3: gg = gram(g); class = gg&255 1776 trace analysis %IF diag&1 # 0 .loc 1 1776 0 move.l G.6078,%d0 move.w GRAM.6133(%d0.l*2),%d0 move.w %d0,%a1 move.l %a1,GG.6079 1777 ->a5 %IF class = 0; !end of phrase .loc 1 1777 0 moveq #0,%d1 not.b %d1 and.l %d0,%d1 move.l %d1,CLASS.6039 .LBB689: .LBB649: .loc 1 1777 0 move.l CLASS.6039,%d2 jeq .L773 .L774: 1778 1779 %IF class < actions %START; !not a phrase or an action .loc 1 1779 0 cmp.l #179,%d2 jgt .L775 1780 class = atomic(class) %IF class >= figurative .loc 1 1780 0 cmp.l #129,%d2 jle .L776 1781 ->a2 %IF class >= manifest .loc 1 1781 0 discriminator 1 move.l CLASS.6039,%d0 moveq #119,%d1 cmp.l %d0,%d1 jlt .L761 .L777: .loc 1 1781 0 move.l 64(%a4),%a0 clr.l %d0 move.b 38722(%a0,%d2.l),%d0 move.l %d0,CLASS.6039 jra .L776 .L826: 1782 code atom(class) %IF atom1 = 0 .loc 1 1782 0 tst.l ATOM1.6041 jeq .L826 .L778: 1783 %IF escape class # 0 %START; !escape to new grammar .loc 1 1783 0 discriminator 1 move.l ESCAPECLASS.6067,%d0 jne .L827 .L779: .loc 1 1783 0 move.l %d0,-(%sp) lea (-20,%fp),%a0 jsr CODEATOM.6601 .LVL896: addq.l #4,%sp jra .L778 .L827: 1784 class = escape class; escape class = 0 .loc 1 1784 0 move.l %d0,CLASS.6039 1785 g = g+escape .loc 1 1785 0 clr.l ESCAPECLASS.6067 .loc 1 1785 0 add.l #4096,G.6078 .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) .loc 1 1791 0 clr.l GG.6079 .LVL897: 1792 arp_papp = papp; arp_x = x; ->a4 .loc 1 1792 0 move.l NMAX.6084,%d0 lsl.l #4,%d0 move.l 64(%a4),%a0 add.l %d0,%a0 .LVL898: move.w PAPP.6075+2,8(%a0) 1793 %FINISH .loc 1 1793 0 move.w X.6040+2,12(%a0) .LVL899: .L780: 1794 1795 ->a1 %IF class = atom1 %OR class = atom2 .loc 1 1795 0 move.l CLASS.6039,%d1 move.l ATOM1.6041,%d0 cmp.l %d1,%d0 jeq .L759 1796 .loc 1 1796 0 move.l ATOM2.6042,%d0 cmp.l %d1,%d0 jeq .L759 .L781: .L782: 1797 a7: ->fail1 %IF gg >= 0; !no alternative 1798 g = g+1 .loc 1 1798 0 tst.l GG.6079 jge .L797 .L783: .loc 1 1798 0 discriminator 1 addq.l #1,G.6078 .LVL875: .L768: 1799 ->a3 1800 %FINISH 1801 1802 %IF class >= phrasal %START; !a phrase .loc 1 1802 0 cmp.l #199,%d2 jgt .L780 .L785: .LVL911: .LDL44: 1803 a4: nmax = nmax+1; ->fail0 %IF nmax = nmin 1804 arp == ar(nmax) .loc 1 1804 0 move.l NMAX.6084,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,NMAX.6084 .loc 1 1804 0 move.l 64(%a4),%a1 .LVL900: 1805 arp_ptype = ptype .loc 1 1805 0 cmp.l NMIN.6083,%d1 jeq .L766 .L786: .loc 1 1805 0 lsl.l #4,%d0 .LVL901: lea (%a1,%d0.l),%a0 .LVL902: move.w PTYPE.6074+2,6(%a0) 1806 arp_pos = pos1 .loc 1 1806 0 move.w POS1.6106+2,14(%a0) 1807 arp_pformat = pformat .loc 1 1807 0 move.w PFORMAT.6076+2,10(%a0) 1808 arp_link = gentype .loc 1 1808 0 move.w GENTYPE.6073+2,4(%a0) 1809 arp_class = node .loc 1 1809 0 move.w -22(%fp),(%a1,%d0.l) 1810 arp_sub = g .loc 1 1810 0 move.w G.6078+2,2(%a0) 1811 node = 0 .loc 1 1811 0 clr.w -22(%fp) 1812 g = phrase(class) .loc 1 1812 0 move.l CLASS.6039,%d0 add.l #-200,%d0 move.w PHRASE.6130(%d0.l*2),%a0 .LVL903: move.l %a0,G.6078 1813 ptype = force %AND force = 0 %IF force # 0 .loc 1 1813 0 move.l FORCE.6077,%d0 jeq .L787 1814 gentype = 0 .loc 1 1814 0 move.l %d0,PTYPE.6074 .loc 1 1814 0 discriminator 1 clr.l GENTYPE.6073 .LVL904: 1815 ->paction(gg>>8&15) .loc 1 1815 0 clr.l FORCE.6077 .L787: .loc 1 1815 0 discriminator 1 bfextu GG.6079+2{#4:#4},%d0 move.l %d0,-5664(%fp) .LVL905: .L788: 1816 %FINISH 1817 1818 ->act(class); !only actions left 1819 1820 a5: !reverse links 1821 1822 s = 0 .loc 1 1822 0 move.l %d2,%a2 jra .L791 .LVL929: .L793: 1823 %WHILE node # 0 %CYCLE 1824 z == ar(node)_link .loc 1 1824 0 move.w -22(%fp),%d0 jeq .L816 .LVL914: .L792: .loc 1 1824 0 discriminator 1 move.w %d0,%a2 move.l %a2,%d0 subq.l #1,%d0 .LVL915: .loc 1 1824 0 discriminator 1 move.l %a2,%d2 .loc 1 1824 0 discriminator 1 tst.w %d0 jne .L792 clr.w -22(%fp) .LVL920: .L791: 1825 k = z; z = s; s = node; node = k .loc 1 1825 0 discriminator 1 lsl.l #4,%d0 .LVL916: move.l 64(%a4),%a0 add.l %d0,%a0 addq.l #4,%a0 .LVL917: move.w (%a0),%d0 .LVL918: 1826 %REPEAT .loc 1 1826 0 discriminator 1 move.w %d2,(%a0) .LDL45: .LDL46: .LVL919: 1827 ss = s .loc 1 1827 0 move.l %a2,SS.6090 .LDL47: 1828 1829 a6: %IF nmax # 0 %START 1830 k = gentype; !type of phrase .loc 1 1830 0 move.l NMAX.6084,%d0 jeq .L793 .LVL921: 1831 arp == ar(nmax); nmax = nmax-1 .loc 1 1831 0 discriminator 1 subq.l #1,%d0 move.l 64(%a4),%a0 .LVL922: 1832 node = arp_class .loc 1 1832 0 discriminator 1 move.l %d0,NMAX.6084 .loc 1 1832 0 discriminator 1 lsl.l #4,%d0 .LVL923: move.w (%a0,%d0.l),-22(%fp) 1833 gentype = arp_link .loc 1 1833 0 discriminator 1 add.l %d0,%a0 .LVL924: move.w 4(%a0),%a1 move.l %a1,GENTYPE.6073 .LVL925: 1834 ptype = arp_ptype .loc 1 1834 0 discriminator 1 move.w 6(%a0),%a1 move.l %a1,PTYPE.6074 1835 pformat = arp_pformat .loc 1 1835 0 discriminator 1 move.w 10(%a0),%a1 move.l %a1,PFORMAT.6076 1836 g = arp_sub .loc 1 1836 0 discriminator 1 move.w 2(%a0),%d0 ext.l %d0 1837 %IF g&escape # 0 %START 1838 g = g-escape .loc 1 1838 0 discriminator 1 add.l #-4096,%d0 move.l %d0,G.6078 1839 papp = arp_papp .loc 1 1839 0 discriminator 1 move.w 8(%a0),%a0 .LVL926: move.l %a0,PAPP.6075 .LVL927: 1840 mark = 255 .loc 1 1840 0 discriminator 1 move.l #255,-5660(%fp) 1841 subatom = s .loc 1 1841 0 discriminator 1 move.l %a2,SUBATOM.6043 1842 ->a3 .loc 1 1842 0 discriminator 1 jra .L768 .LVL928: .L816: 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 .loc 1 1858 0 tst.l COPY.6101 jne .L831 .L794: 1859 fault(13) %IF order = 0 .loc 1 1859 0 discriminator 1 tst.l ORDER.6102 jeq .L832 .L795: .LDL48: .loc 1 1859 0 pea 4.w move.l %a4,%a0 jsr FAULT.6279 .LVL933: addq.l #4,%sp jra .L794 .L832: 1860 fault(-4) %IF for warn # 0 .loc 1 1860 0 pea 13.w move.l %a4,%a0 jsr FAULT.6279 .LVL934: addq.l #4,%sp jra .L795 .LVL935: .L789: 1861 pos1 = 0 .loc 1 1861 0 discriminator 1 clr.l POS1.6106 1862 fault rate = fault rate-1 .loc 1 1862 0 discriminator 1 subq.l #1,FAULTRATE.6049 .L743: 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: .loc 1 1953 0 clr.l POS2.6107 .LVL791: .L766: .LBB651: 1954 %IF diag&32 # 0 %START 1955 printstring("Atom1 ="); write(atom1, 3) .loc 1 1955 0 move.l %fp,%d3 add.l #-534,%d3 move.l #256,%d2 move.l %d2,-(%sp) pea .LC10 move.l %d3,-(%sp) lea memcpy,%a2 jsr (%a2) .LVL792: move.l %fp,%d4 add.l #-5654,%d4 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL793: move.l %d2,-(%sp) move.l %d4,-(%sp) move.l %d3,-(%sp) jsr (%a2) .LVL794: .LBE651: .LBB652: .LBB653: .loc 2 589 0 lea (-220,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL795: lea (12,%sp),%sp lea _imp_printstring,%a4 jsr (%a4) .LVL796: .LBE653: .LBE652: 1956 printstring(" Atom2 ="); write(atom2, 3) .loc 1 1956 0 add.l %d2,%sp pea 3.w move.l ATOM1.6041,-(%sp) lea _imp_writeint,%a3 jsr (%a3) .LVL797: .LBB654: .loc 1 1956 0 add.l #-1024,%d3 move.l %d2,-(%sp) pea .LC11 move.l %d3,-(%sp) jsr (%a2) .LVL798: add.l #256,%d4 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL799: lea (32,%sp),%sp move.l %d2,-(%sp) move.l %d4,-(%sp) move.l %d3,-(%sp) jsr (%a2) .LVL800: .LBE654: .LBB655: .LBB656: .loc 2 589 0 lea (-256,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL801: lea (12,%sp),%sp jsr (%a4) .LVL802: .LBE656: .LBE655: 1957 printstring(" subatom ="); write(subatom, 3); newline .loc 1 1957 0 lea (268,%sp),%sp pea 3.w move.l ATOM2.6042,-(%sp) jsr (%a3) .LVL803: .LBB657: .loc 1 1957 0 add.l #-256,%d3 move.l %d2,-(%sp) pea .LC12 move.l %d3,-(%sp) jsr (%a2) .LVL804: add.l #256,%d4 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL805: lea (32,%sp),%sp move.l %d2,-(%sp) move.l %d4,-(%sp) move.l %d3,-(%sp) jsr (%a2) .LVL806: .LBE657: .LBB658: .LBB659: .loc 2 589 0 lea (-256,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL807: lea (12,%sp),%sp jsr (%a4) .LVL808: .LBE659: .LBE658: 1958 printstring("Type ="); write(type, 1) .loc 1 1958 0 lea (268,%sp),%sp pea 3.w move.l SUBATOM.6043,-(%sp) jsr (%a3) .LVL809: .LBB660: .LBB661: .loc 2 661 0 lea _imp_newline,%a5 jsr (%a5) .LVL810: .LBE661: .LBE660: .LBB662: .loc 1 1958 0 add.l #-256,%d3 move.l %d2,-(%sp) pea .LC13 move.l %d3,-(%sp) jsr (%a2) .LVL811: add.l #256,%d4 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL812: lea (32,%sp),%sp move.l %d2,-(%sp) move.l %d4,-(%sp) move.l %d3,-(%sp) jsr (%a2) .LVL813: .LBE662: .LBB663: .LBB664: .loc 2 589 0 lea (-256,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL814: lea (12,%sp),%sp jsr (%a4) .LVL815: .LBE664: .LBE663: 1959 printstring(" Ptype ="); write(ptype, 1); newline .loc 1 1959 0 lea (268,%sp),%sp pea 1.w move.l TYPE.6044,-(%sp) jsr (%a3) .LVL816: .LBB665: .loc 1 1959 0 add.l #-256,%d3 move.l %d2,-(%sp) pea .LC14 move.l %d3,-(%sp) jsr (%a2) .LVL817: add.l #256,%d4 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL818: lea (32,%sp),%sp move.l %d2,-(%sp) move.l %d4,-(%sp) move.l %d3,-(%sp) jsr (%a2) .LVL819: .LBE665: .LBB666: .LBB667: .loc 2 589 0 lea (-256,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL820: lea (12,%sp),%sp jsr (%a4) .LVL821: .LBE667: .LBE666: 1960 printstring("App ="); write(app, 1) .loc 1 1960 0 lea (268,%sp),%sp pea 1.w move.l PTYPE.6074,-(%sp) jsr (%a3) .LVL822: .LBB668: .LBB669: .loc 2 661 0 jsr (%a5) .LVL823: .LBE669: .LBE668: .LBB670: .loc 1 1960 0 add.l #-256,%d3 move.l %d2,-(%sp) pea .LC15 move.l %d3,-(%sp) jsr (%a2) .LVL824: add.l #256,%d4 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL825: lea (32,%sp),%sp move.l %d2,-(%sp) move.l %d4,-(%sp) move.l %d3,-(%sp) jsr (%a2) .LVL826: .LBE670: .LBB671: .LBB672: .loc 2 589 0 lea (-256,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL827: lea (12,%sp),%sp jsr (%a4) .LVL828: .LBE672: .LBE671: 1961 printstring(" Papp ="); write(papp, 1); newline .loc 1 1961 0 lea (268,%sp),%sp pea 1.w move.l APP.6045,-(%sp) jsr (%a3) .LVL829: .LBB673: .loc 1 1961 0 add.l #-256,%d3 move.l %d2,-(%sp) pea .LC16 move.l %d3,-(%sp) jsr (%a2) .LVL830: add.l #256,%d4 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL831: lea (32,%sp),%sp move.l %d2,-(%sp) move.l %d4,-(%sp) move.l %d3,-(%sp) jsr (%a2) .LVL832: .LBE673: .LBB674: .LBB675: .loc 2 589 0 lea (-256,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL833: lea (12,%sp),%sp jsr (%a4) .LVL834: .LBE675: .LBE674: 1962 printstring("Format ="); write(format, 1) .loc 1 1962 0 lea (268,%sp),%sp pea 1.w move.l PAPP.6075,-(%sp) jsr (%a3) .LVL835: .LBB676: .LBB677: .loc 2 661 0 jsr (%a5) .LVL836: .LBE677: .LBE676: .LBB678: .loc 1 1962 0 add.l #-256,%d3 move.l %d2,-(%sp) pea .LC17 move.l %d3,-(%sp) jsr (%a2) .LVL837: add.l #256,%d4 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL838: lea (32,%sp),%sp move.l %d2,-(%sp) move.l %d4,-(%sp) move.l %d3,-(%sp) jsr (%a2) .LVL839: .LBE678: .LBB679: .LBB680: .loc 2 589 0 lea (-256,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL840: lea (12,%sp),%sp jsr (%a4) .LVL841: .LBE680: .LBE679: 1963 printstring(" Pformat ="); write(pformat, 1); newline .loc 1 1963 0 lea (268,%sp),%sp pea 1.w move.l FORMAT.6046,-(%sp) jsr (%a3) .LVL842: .LBB681: .loc 1 1963 0 add.l #-256,%d3 move.l %d2,-(%sp) pea .LC18 move.l %d3,-(%sp) jsr (%a2) .LVL843: add.l #256,%d4 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL844: lea (32,%sp),%sp move.l %d2,-(%sp) move.l %d4,-(%sp) move.l %d3,-(%sp) jsr (%a2) .LVL845: .LBE681: .LBB682: .LBB683: .loc 2 589 0 lea (-256,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL846: lea (12,%sp),%sp jsr (%a4) .LVL847: .LBE683: .LBE682: 1964 !IMP80 BUG??? %SIGNAL 13,15 .loc 1 1964 0 lea (268,%sp),%sp pea 1.w move.l PFORMAT.6076,-(%sp) jsr (%a3) .LVL848: .LBB684: .LBB685: .loc 2 661 0 jsr (%a5) .LVL849: .LBE685: .LBE684: .LBB686: .LBB687: .loc 2 862 0 clr.l -(%sp) jsr exit .LVL850: .L824: .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 .loc 1 1977 0 .cfi_startproc link.w %fp,#-4504 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 movem.l #15416,-(%sp) .cfi_offset 2, -4540 .cfi_offset 3, -4536 .cfi_offset 4, -4532 .cfi_offset 5, -4528 .cfi_offset 10, -4524 .cfi_offset 11, -4520 .cfi_offset 12, -4516 move.l %a0,-4468(%fp) .loc 1 1977 0 lea (8,%fp),%a0 move.l %a0,-4426(%fp) move.l -4468(%fp),-4430(%fp) 1978 .loc 1 1978 0 move.l %d2,%d0 add.l #-180,%d0 moveq #20,%d1 cmp.l %d0,%d1 jcs .L789 .LVL912: .L790: .loc 1 1978 0 discriminator 1 move.l _imp_current_line,%d3 jne .L798 .loc 1 1978 0 is_stmt 0 move.l #1978,%d3 .L798: .loc 1 1978 0 discriminator 5 move.l _imp_current_file,%d0 jeq .L799 .loc 1 1978 0 discriminator 6 move.l %d0,-(%sp) lea (-2070,%fp),%a1 jsr _imp_c2istr .LVL936: addq.l #4,%sp .LVL937: .L800: .loc 1 1978 0 discriminator 9 pea 1818.w pea .LC70 move.l %d2,-(%sp) pea .LC80 move.l %d2,-(%sp) pea 3.w pea 6.w move.l %d3,-(%sp) lea (-256,%sp),%sp move.l %sp,%d0 pea 256.w pea -2070(%fp) move.l %d0,-(%sp) jsr memcpy .LVL938: lea (12,%sp),%sp jsr _signal_eventf .LVL939: lea (288,%sp),%sp jra .L790 .LVL940: .L799: .LBB690: .loc 1 1978 0 discriminator 7 move.l %fp,%d6 .LVL941: add.l #-534,%d6 .LVL942: move.l #256,%d4 move.l %d4,-(%sp) pea .LC9 move.l %d6,-(%sp) lea memcpy,%a2 .LVL943: jsr (%a2) .LVL944: move.l %fp,%d5 .LVL945: add.l #-3094,%d5 .LVL946: move.l %d4,-(%sp) move.l %d6,-(%sp) move.l %d5,-(%sp) jsr (%a2) .LVL947: .LBE690: move.l %d4,-(%sp) move.l %d5,-(%sp) pea -2070(%fp) jsr (%a2) .LVL948: lea (36,%sp),%sp jra .L800 .LVL949: .L802: 1979 %CONSTINTEGER then = 4, else = 8, loop = 16 .loc 1 1979 0 move.l %d2,%d0 add.l #-180,%d0 move.l ACT.6523(%d0.l*4),%a0 jra .L801 .LVL913: .L773: 1980 1981 %SWITCH c(0:actions), litop(1:12) .loc 1 1981 0 is_stmt 1 move.l _imp_current_line,%d3 jne .L804 move.l #1981,%d3 .L804: .loc 1 1981 0 is_stmt 0 discriminator 4 move.l _imp_current_file,%d0 jeq .L805 .loc 1 1981 0 discriminator 5 move.l %d0,-(%sp) lea (-1814,%fp),%a1 jsr _imp_c2istr .LVL950: addq.l #4,%sp .L806: .loc 1 1981 0 discriminator 8 pea 1818.w pea .LC70 move.l %d2,-(%sp) pea .LC81 move.l %d2,-(%sp) pea 2.w pea 8.w move.l %d3,-(%sp) lea (-256,%sp),%sp move.l %sp,%d0 pea 256.w pea -1814(%fp) move.l %d0,-(%sp) jsr memcpy .LVL951: lea (12,%sp),%sp jsr _signal_eventf .LVL952: lea (288,%sp),%sp jra .L788 .L805: .LBB691: .loc 1 1981 0 discriminator 6 move.l %fp,%d6 .LVL953: add.l #-534,%d6 .LVL954: move.l #256,%d4 move.l %d4,-(%sp) pea .LC9 move.l %d6,-(%sp) lea memcpy,%a2 jsr (%a2) .LVL955: move.l %fp,%d5 .LVL956: add.l #-2838,%d5 .LVL957: move.l %d4,-(%sp) move.l %d6,-(%sp) move.l %d5,-(%sp) jsr (%a2) .LVL958: .LBE691: move.l %d4,-(%sp) move.l %d5,-(%sp) pea -1814(%fp) jsr (%a2) .LVL959: lea (36,%sp),%sp jra .L806 .LVL960: .L809: .LBB692: 1982 1983 %CONSTBYTEINTEGERARRAY operator(1:14) = %C .loc 1 1983 0 move.b #91,-14(%fp) move.b #93,-13(%fp) move.b #88,-12(%fp) move.b #47,-11(%fp) move.b #38,-10(%fp) move.b #33,-9(%fp) move.b #37,-8(%fp) move.b #43,-7(%fp) move.b #45,-6(%fp) move.b #42,-5(%fp) move.b #81,-4(%fp) move.b #120,-3(%fp) move.b #46,-2(%fp) move.b #118,-1(%fp) 1984 '[', ']', 'X', '/', '&', '!', '%', '+', .loc 1 1984 0 moveq #15,%d0 cmp.l -5664(%fp),%d0 jcc .L807 .loc 1 1984 0 is_stmt 0 discriminator 1 move.l _imp_current_line,%d3 jne .L808 .loc 1 1984 0 move.l #1984,%d3 .L808: .loc 1 1984 0 discriminator 5 move.l _imp_current_file,%d0 jeq .L809 .loc 1 1984 0 discriminator 6 move.l %d0,-(%sp) lea (-1558,%fp),%a1 jsr _imp_c2istr .LVL906: addq.l #4,%sp .L810: .loc 1 1984 0 discriminator 9 pea 1815.w pea .LC70 move.l -5664(%fp),-(%sp) pea .LC82 move.l -5664(%fp),-(%sp) pea 3.w pea 6.w move.l %d3,-(%sp) lea (-256,%sp),%sp move.l %sp,%d0 pea 256.w pea -1558(%fp) move.l %d0,-(%sp) jsr memcpy .LVL907: lea (12,%sp),%sp jsr _signal_eventf .LVL908: lea (288,%sp),%sp .L807: .loc 1 1984 0 is_stmt 1 discriminator 7 move.l %fp,%d6 .LVL961: add.l #-534,%d6 .LVL962: move.l #256,%d4 move.l %d4,-(%sp) pea .LC9 move.l %d6,-(%sp) lea memcpy,%a2 jsr (%a2) .LVL963: move.l %fp,%d5 .LVL964: add.l #-2582,%d5 .LVL965: move.l %d4,-(%sp) move.l %d6,-(%sp) move.l %d5,-(%sp) jsr (%a2) .LVL966: .LBE692: move.l %d4,-(%sp) move.l %d5,-(%sp) pea -1558(%fp) jsr (%a2) .LVL967: lea (36,%sp),%sp jra .L810 .LVL968: .L811: 1985 '-', '*', 'Q', 'x', '.', 'v' .loc 1 1985 0 is_stmt 1 move.l -5664(%fp),%d1 move.l PACTION.6528(%d1.l*4),%a0 .LVL909: .L801: jmp (%a0) .LVL910: .L775: 1986 1987 %CONSTBYTEINTEGERARRAY cc(0 : 7) = '#','=',')','<','(','>', 'k','t' .loc 1 1987 0 move.b #35,-22(%fp) move.b #61,-21(%fp) move.b #41,-20(%fp) move.b #60,-19(%fp) move.b #40,-18(%fp) move.b #62,-17(%fp) move.b #107,-16(%fp) move.b #116,-15(%fp) .loc 1 1987 0 move.l _imp_current_line,%d2 .LVL969: jne .L812 move.l #1987,%d2 .L812: .loc 1 1987 0 is_stmt 0 discriminator 4 move.l _imp_current_file,%d0 jeq .L813 .loc 1 1987 0 discriminator 5 move.l %d0,-(%sp) lea (-534,%fp),%a1 jsr _imp_c2istr .LVL970: addq.l #4,%sp .L814: .loc 1 1987 0 discriminator 8 pea 1815.w pea .LC70 move.l -5664(%fp),-(%sp) pea .LC83 move.l -5664(%fp),-(%sp) pea 2.w pea 8.w move.l %d2,-(%sp) lea (-256,%sp),%sp move.l %sp,%d0 pea 256.w pea -534(%fp) move.l %d0,-(%sp) jsr memcpy .LVL971: lea (12,%sp),%sp jsr _signal_eventf .LVL972: lea (288,%sp),%sp jra .L743 .L813: .LBB693: .loc 1 1987 0 discriminator 6 move.l %fp,%d3 .LVL973: add.l #-534,%d3 .LVL974: move.l #256,%d4 move.l %d4,-(%sp) pea .LC9 move.l %d3,-(%sp) lea memcpy,%a2 jsr (%a2) .LVL975: move.l %fp,%d5 .LVL976: add.l #-2326,%d5 .LVL977: move.l %d4,-(%sp) move.l %d3,-(%sp) move.l %d5,-(%sp) jsr (%a2) .LVL978: .LBE693: move.l %d4,-(%sp) move.l %d5,-(%sp) move.l %d3,-(%sp) jsr (%a2) .LVL979: lea (36,%sp),%sp jra .L814 .LVL980: .L763: 1988 .loc 1 1988 0 movem.l -5704(%fp),#15612 .LVL930: unlk %fp .LVL931: rts .LVL932: .L831: 1989 %CONSTBYTEINTEGERARRAY anyform(0:15) = 1,0,1,1(4),1,0,1,1,0,1,1,1,1 .loc 1 1989 0 move.b #1,-38(%fp) clr.b -37(%fp) move.b #1,-36(%fp) move.b #1,-35(%fp) move.b #1,-34(%fp) move.b #1,-33(%fp) move.b #1,-32(%fp) move.b #1,-31(%fp) clr.b -30(%fp) move.b #1,-29(%fp) move.b #1,-28(%fp) clr.b -27(%fp) move.b #1,-26(%fp) move.b #1,-25(%fp) move.b #1,-24(%fp) move.b #1,-23(%fp) 1990 1991 %CONSTSHORTINTEGERARRAY decmap(0:15) = %C .loc 1 1991 0 move.w #1,-70(%fp) move.w #2,-68(%fp) move.w #4107,-66(%fp) move.w #4109,-64(%fp) move.w #5132,-62(%fp) move.w #5134,-60(%fp) move.w #3,-58(%fp) move.w #4,-56(%fp) move.w #4103,-54(%fp) move.w #4104,-52(%fp) move.w #4105,-50(%fp) move.w #4106,-48(%fp) move.w #6,-46(%fp) clr.w -44(%fp) clr.w -42(%fp) clr.w -40(%fp) 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) .LVL9: link.w %fp,#0 move.l %a2,-(%sp) move.l %a0,%a2 2011 op(':', l) move.l 32(%a0),%a0 move.l 8(%fp),-(%sp) pea 58.w move.l 64(%a0),%a0 jsr OP.6243 .LVL10: 2012 access = 1 move.l 32(%a2),%a0 moveq #1,%d0 move.l %d0,24(%a0) 2013 %END addq.l #8,%sp 2014 move.l -4(%fp),%a2 unlk %fp rts .LFE210: .align 2 POPLIT.7272: .LFB219: 2015 %ROUTINE get next .loc 1 2015 0 .cfi_startproc link.w %fp,#-1280 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 movem.l #12336,-(%sp) .cfi_offset 2, -1304 .cfi_offset 3, -1300 .cfi_offset 10, -1296 .cfi_offset 11, -1292 move.l X.6040,%a1 .loc 1 2015 0 clr.b %d2 clr.l %d3 moveq #1,%d1 .L296: 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 .loc 1 2018 0 tst.l 28(%a0) jne .L297 .loc 1 2018 0 discriminator 1 move.l 24(%a0),%d0 jeq .L312 .L298: 2019 p == ar(link) .loc 1 2019 0 subq.l #1,%d0 move.l 32(%a0),%a1 .LVL342: .loc 1 2019 0 clr.l 20(%a0) 2020 next = p_link .loc 1 2020 0 lsl.l #4,%d0 .LVL343: move.l 64(%a1),%a1 .LVL344: add.l %d0,%a1 .LVL345: move.w 4(%a1),%a2 move.l %a2,28(%a0) .loc 1 2020 0 jra .L295 .L314: move.l %a1,X.6040 jra .L299 .LVL349: .L313: move.l %a2,X.6040 jra .L302 .L306: 2021 link = p_sub .loc 1 2021 0 move.w 2(%a1),%a1 .LVL346: move.l %a1,24(%a0) .L297: 2022 %FINISH 2023 %CYCLE 2024 p == ar(next) .loc 1 2024 0 move.l 28(%a0),%d0 subq.l #1,%d0 move.l 32(%a0),%a1 move.l 64(%a1),%a1 .LVL347: .loc 1 2024 0 move.l %a2,%d0 .LVL350: subq.l #1,%d0 move.l 32(%a0),%a1 move.l 64(%a1),%a1 .LVL351: 2025 x = p_sub .loc 1 2025 0 move.l %d0,%d2 lsl.l #4,%d2 move.w 2(%a1,%d2.l),%a2 .loc 1 2025 0 move.l %d0,%d2 lsl.l #4,%d2 move.w 2(%a1,%d2.l),%a2 2026 class = p_class .loc 1 2026 0 move.w (%a1,%d2.l),%a3 move.l %a3,20(%a0) .loc 1 2026 0 move.w (%a1,%d2.l),%a3 move.l %a3,20(%a0) 2027 %EXIT %IF class < actions; !an atom .loc 1 2027 0 cmp.w #179,%a3 jle .L313 .loc 1 2027 0 cmp.w #179,%a3 jle .L315 .L305: 2028 %IF x = 0 %START; !null phrase .loc 1 2028 0 tst.l %a2 jne .L303 .LVL348: .L304: .loc 1 2028 0 tst.l %a2 jeq .L304 .LVL352: .L303: 2029 next = p_link; ->gn .loc 1 2029 0 lsl.l #4,%d0 move.w 4(%a1,%d0.l),%a1 move.l %a1,28(%a0) move.l %d3,%a1 move.b %d1,%d2 2030 %FINISH .loc 1 2030 0 jra .L296 .L312: tst.b %d2 jne .L314 .L299: 2031 %IF p_link # 0 %START; !follow a phrase .loc 1 2031 0 move.l %d0,%d2 lsl.l #4,%d2 tst.w 4(%a1,%d2.l) jeq .L306 2032 p_sub = link; link = next .loc 1 2032 0 move.w 26(%a0),2(%a1,%d2.l) 2033 %FINISH .loc 1 2033 0 move.l 28(%a0),24(%a0) jra .L306 .L315: move.l %a2,X.6040 .LVL353: .L302: 2034 next = x .loc 1 2034 0 move.l %a2,28(%a0) 2035 %REPEAT 2036 next = p_link .loc 1 2036 0 lsl.l #4,%d0 move.w 4(%a1,%d0.l),%a1 move.l %a1,28(%a0) 2037 %IF diag&2 # 0 %START 2038 spaces(8-length(name)) %UNLESS name = "" 2039 name = text(class) 2040 write(x, 2) .loc 1 2040 0 pea -1280(%fp) pea NAME.7169 jsr _imp_strcmp .LVL354: addq.l #8,%sp tst.l %d0 jne .L316 .L307: .loc 1 2040 0 discriminator 1 pea 2.w move.l X.6040,-(%sp) jsr _imp_writeint .LVL356: .LBB394: .LBB395: .loc 2 658 0 discriminator 1 lea _imp_space,%a2 jsr (%a2) .LVL357: move.l %fp,%d2 add.l #-256,%d2 move.l #256,%d3 move.l %d3,-(%sp) pea -768(%fp) move.l %d2,-(%sp) lea memcpy,%a3 jsr (%a3) .LVL358: .LBE395: .LBE394: .LBB396: .LBB397: .loc 2 589 0 discriminator 1 lea (-224,%sp),%sp move.l %sp,%d0 move.l %d3,-(%sp) move.l %d2,-(%sp) move.l %d0,-(%sp) jsr (%a3) .LVL359: lea (12,%sp),%sp jsr _imp_printstring .LVL360: .LBE397: .LBE396: .LBB398: .LBB399: .loc 2 658 0 discriminator 1 add.l %d3,%sp jsr (%a2) .LVL361: .LBE399: .LBE398: 2041 space .loc 1 2041 0 discriminator 1 pea 8.w pea -1024(%fp) pea NAME.7169 jsr _imp_strncpy .LVL355: 2042 printstring(name) 2043 space .loc 1 2043 0 clr.l %d0 move.b NAME.7169,%d0 .LBB400: .LBB401: .loc 2 659 0 moveq #8,%d1 sub.l %d0,%d1 move.l %d1,-(%sp) jsr _imp_spaces .LVL363: addq.l #4,%sp jra .L307 .L308: .LBE401: .LBE400: 2044 count = count-1 .loc 1 2044 0 discriminator 1 move.l COUNT.7170,%d0 subq.l #1,%d0 .loc 1 2044 0 move.l %d0,COUNT.7170 .L300: .L309: .L295: 2045 %IF count <= 0 %START .loc 1 2045 0 discriminator 1 tst.l %d0 jle .L308 2046 count = 5 .loc 1 2046 0 moveq #5,%d0 move.l %d0,COUNT.7170 .LVL364: 2047 name = "" 2048 newline 2049 %FINISH .loc 1 2049 0 pea 8.w pea -512(%fp) pea NAME.7169 jsr _imp_strncpy .LVL365: .LBB402: .LBB403: .loc 2 661 0 jsr _imp_newline .LVL366: lea (12,%sp),%sp jra .L295 .LBE403: .LBE402: .cfi_endproc .LFE211: .align 2 SETSUBS.7200: .LFB212: 2050 %FINISH 2051 %END 2052 .loc 1 2052 0 movem.l -1296(%fp),#3084 unlk %fp rts .L316: .LVL362: 2053 %ROUTINE set subs(%INTEGER n) .loc 1 2053 0 .cfi_startproc .LVL367: link.w %fp,#0 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 move.l %d3,-(%sp) move.l %d2,-(%sp) .cfi_offset 3, -12 .cfi_offset 2, -16 move.l 8(%fp),%d1 2054 2055 !update the app field in n array descriptors 2056 2057 %INTEGER p 2058 p = tmax .loc 1 2058 0 move.l 32(%a0),%a1 move.l 52(%a1),%d0 .LVL368: 2059 %WHILE n > 0 %CYCLE 2060 !IMP80 BUG??? %SIGNAL 15,15 %IF p < tbase .loc 1 2060 0 tst.l %d1 jle .L317 .loc 1 2060 0 discriminator 1 cmp.l %d2,%d0 jeq .L317 2061 %STOP %IF p < tbase .loc 1 2061 0 cmp.l 56(%a1),%d0 jlt .L320 .loc 1 2061 0 move.l 32(%a0),%a1 cmp.l 56(%a1),%d0 jge .L321 .LVL371: .L320: .LBB404: .LBB405: .loc 2 862 0 clr.l -(%sp) jsr exit .LVL372: .L318: .L317: .LBE405: .LBE404: 2062 tag(p)_app = dimension .loc 1 2062 0 move.l DIMENSION.6109,%d3 move.l %d0,%d2 sub.l %d1,%d2 .LVL369: .L321: .loc 1 2062 0 is_stmt 0 discriminator 1 move.l %d0,%d1 lsl.l #4,%d1 move.l 64(%a1),%a1 add.l %d1,%a1 move.l %d3,26020(%a1) 2063 p = p-1; n = n-1 .loc 1 2063 0 is_stmt 1 discriminator 1 subq.l #1,%d0 .LVL370: .LDL19: 2064 %REPEAT 2065 %END 2066 .loc 1 2066 0 move.l -8(%fp),%d2 move.l -4(%fp),%d3 unlk %fp rts .cfi_endproc .LFE212: .section .rodata.str1.1 .LC75: .string "switch jump to undefined label FM(%d): at %s line %d" .section .rodata .LC25: .byte 5 .string "fault" .zero 249 .LC24: .byte 8 .string " ! " .zero 246 .text .align 2 FAULT.6279: .LFB192: 2067 %ROUTINE set bp .loc 1 2067 0 .cfi_startproc link.w %fp,#0 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 move.l %a3,-(%sp) move.l %a2,-(%sp) .cfi_offset 11, -12 .cfi_offset 10, -16 move.l %a0,%a2 2068 2069 !define a constant bound pair from the last stacked constants 2070 2071 pending = pending-2 .loc 1 2071 0 move.l 16(%a0),%d0 move.l %d0,%d1 subq.l #2,%d1 move.l %d1,16(%a0) 2072 lb = pstack(pending+1); ub = pstack(pending+2) .loc 1 2072 0 lea PSTACK.7168,%a0 move.l (%a0,%d1.l*4),%d1 move.l %d1,LB.7152 2073 %IF ub-lb+1 < 0 %START .loc 1 2073 0 move.l -4(%a0,%d0.l*4),%d0 move.l %d0,UB.7153 .loc 1 2073 0 sub.l %d1,%d0 addq.l #1,%d0 jmi .L376 .L374: 2074 pos1 = 0; next = link; fault(11) .loc 1 2074 0 clr.l POS1.6106 2075 ub = lb .loc 1 2075 0 move.l 24(%a2),28(%a2) .loc 1 2075 0 move.l LB.7152,UB.7153 addq.l #4,%sp jra .L374 .cfi_endproc .LFE213: .align 2 DEFSLAB.7249: .LFB216: 2076 %FINISH .loc 1 2076 0 pea 11.w move.l 32(%a2),%a0 jsr FAULT.6279 .LVL455: 2077 set const(lb); set const(ub) .loc 1 2077 0 move.l 32(%a2),%a0 move.l LB.7152,-(%sp) lea SETCONST.6246,%a3 move.l 64(%a0),%a0 jsr (%a3) .LVL453: 2078 bp=bp+1 %AND buff(bp)='b' %UNLESS class = 146 .loc 1 2078 0 move.l 32(%a2),%a0 move.l UB.7153,-(%sp) move.l 64(%a0),%a0 jsr (%a3) .LVL454: .loc 1 2078 0 addq.l #8,%sp cmp.l #146,20(%a2) jeq .L373 2079 %END .loc 1 2079 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2080 .loc 1 2080 0 move.l 32(%a2),%a0 move.l 64(%a0),%a0 move.b #98,104710(%a0,%d0.l) .L375: .L373: .loc 1 2080 0 move.l -8(%fp),%a2 move.l -4(%fp),%a3 unlk %fp rts .L376: 2081 %ROUTINE compile end(%INTEGER type) 2082 2083 ! type = 0:eof, 1:eop, 2:end 2084 2085 %IF access # 0 %START .loc 1 2085 0 move.l -4430(%fp),%a0 tst.l 24(%a0) jne .L531 .L534: 2086 open = 0 .loc 1 2086 0 clr.l 20(%a0) 2087 fault(19) %IF block form > proc; !can reach end .loc 1 2087 0 move.l -4430(%fp),%a0 moveq #7,%d3 cmp.l 36(%a0),%d3 jge .L534 2088 %FINISH .loc 1 2088 0 pea 19.w jsr FAULT.6279 .LVL597: addq.l #4,%sp jra .L534 .L719: 2089 2090 %WHILE dict(dmin) >= 0 %CYCLE; !finishes & repeats 2091 fault(17+dict(dmin)&1) .loc 1 2091 0 move.l -4430(%fp),%a0 move.l 64(%a0),%a1 move.l 40(%a0),%d0 add.l #7009,%d0 move.w (%a1,%d0.l*2),%d0 jlt .L532 .loc 1 2091 0 lea FAULT.6279,%a2 .L533: and.w #1,%d0 move.w %d0,%a1 pea 17(%a1) jsr (%a2) .LVL591: addq.l #4,%sp .loc 1 2091 0 move.l 64(%a0),%a1 move.w 14020(%a1,%d0.l*2),%d0 jge .L533 .L532: 2092 dmin = dmin+1 .loc 1 2092 0 move.l -4430(%fp),%a0 move.l 40(%a0),%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,40(%a0) 2093 %REPEAT 2094 {delete names(0)} 2095 bp=bp+1 %AND buff(bp)=';' .loc 1 2095 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2096 bp=bp+1 %AND buff(bp)=';' %IF type = 1; !endofprogram .loc 1 2096 0 move.b #59,104710(%a1,%d0.l) .loc 1 2096 0 moveq #1,%d3 cmp.l %d2,%d3 jeq .L719 .L535: 2097 .loc 1 2097 0 addq.l #2,%d0 move.l %d0,BP.6127 2098 bflags = bflags!open; !show if it returns .loc 1 2098 0 move.l 16(%a0),%a1 move.w 22(%a0),%d1 or.w %d1,(%a1) .loc 1 2098 0 move.l 64(%a0),%a1 move.b #59,104710(%a1,%d1.l) .loc 1 2098 0 move.l 16(%a0),%a1 move.w 22(%a0),%d0 or.w %d0,(%a1) 2099 2100 def lab(0) %IF block tag # 0 %AND level # 1; !for jump around .loc 1 2100 0 move.l -4430(%fp),%a0 tst.l 12(%a0) jeq .L538 .loc 1 2100 0 move.l -4430(%fp),%a0 tst.l 12(%a0) jeq .L536 2101 %IF type # 2 %START; !eop, eof .loc 1 2101 0 moveq #1,%d3 cmp.l 48(%a0),%d3 jne .L680 .L407: .L678: .loc 1 2101 0 moveq #2,%d0 cmp.l %d2,%d0 jeq .L543 jra .L536 .LVL592: .L718: .LBE542: .LBE541: .loc 1 2101 0 moveq #1,%d0 cmp.l 48(%a0),%d0 jeq .L536 .L680: .loc 1 2101 0 moveq #2,%d0 cmp.l %d2,%d0 jeq .L540 .L536: 2102 fault(16) %IF level # type; !end missing .loc 1 2102 0 clr.l -(%sp) lea (-4462,%fp),%a0 jsr DEFLAB.7172 .LVL598: addq.l #4,%sp .L538: .loc 1 2102 0 move.l -4430(%fp),%a0 cmp.l 48(%a0),%d2 jne .L720 .L541: .L542: .L543: 2103 %FINISH %ELSE %START .loc 1 2103 0 pea 16.w jsr FAULT.6279 .LVL599: addq.l #4,%sp jra .L543 .L540: 2104 %IF level = 0 %START .loc 1 2104 0 move.l -4430(%fp),%a0 tst.l 48(%a0) jne .L543 2105 fault(15); !spurious end .loc 1 2105 0 pea 15.w jsr FAULT.6279 .LVL600: addq.l #4,%sp jra .L543 .LVL601: .L544: .LDL27: .LDL28: .LDL29: .LBE543: .LBE546: 2106 %FINISH 2107 %FINISH 2108 2109 end mark = 11; !******Mouses specific****** .loc 1 2109 0 moveq #11,%d1 move.l %d1,ENDMARK.6061 jra .L383 .L720: 2110 %END 2111 2112 %ROUTINE def(%INTEGER p) .LVL110: link.w %fp,#0 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 movem.l #15932,-(%sp) .cfi_offset 2, -44 .cfi_offset 3, -40 .cfi_offset 4, -36 .cfi_offset 5, -32 .cfi_offset 6, -28 .cfi_offset 10, -24 .cfi_offset 11, -20 .cfi_offset 12, -16 .cfi_offset 13, -12 move.l 8(%fp),%d2 move.l %a0,%a2 2113 2114 !dump a descriptor 2115 2116 %INTEGER t, f, type 2117 %RECORD(tagfm)%NAME v 2118 flush buffer %if bp # 0 .loc 1 2118 0 tst.l BP.6127 jne .L75 .L60: 2119 defs = defs+1 .loc 1 2119 0 discriminator 1 addq.l #1,12(%a2) .loc 1 2119 0 move.l 32(%a0),%a0 move.l 64(%a0),%a0 jsr FLUSHBUFFER.6137 .LVL126: jra .L60 .LVL127: .L74: 2120 v == tag(p) .loc 1 2120 0 discriminator 1 move.l 32(%a2),%a0 move.l 64(%a0),%a3 .LVL111: 2121 t = 0 .loc 1 2121 0 sub.l %a1,%a1 jra .L61 .LVL128: .L76: 2122 %UNLESS v_index < 0 %START; !no index for subnames .loc 1 2122 0 discriminator 1 move.l %d2,%d0 lsl.l #4,%d0 move.w 26030(%a3,%d0.l),%d0 jlt .L74 2123 id = id+1 %AND v_index = id %IF v_index = 0 .loc 1 2123 0 jne .L62 2124 last def = v_index .loc 1 2124 0 addq.l #1,44(%a0) .loc 1 2124 0 discriminator 1 move.l %d2,%d0 lsl.l #4,%d0 move.w 26030(%a3,%d0.l),%a1 .LVL112: .L61: 2125 t = last def .loc 1 2125 0 move.l %d2,%d0 lsl.l #4,%d0 move.l 32(%a2),%a0 move.w 46(%a0),26030(%a3,%d0.l) .L62: 2126 %FINISH 2127 op('$', t) .loc 1 2127 0 move.l 32(%a2),%a0 move.l %a1,-(%sp) pea 36.w move.l #OP.6243,%d5 move.l 64(%a0),%a0 move.l %d5,%a1 .LVL113: jsr (%a1) .LVL114: 2128 print ident(p, 1); !output the name .loc 1 2128 0 move.l 32(%a2),%a0 pea 1.w move.l %d2,-(%sp) move.l 64(%a0),%a0 jsr PRINTIDENT.6150 .LVL115: 2129 t = v_flags .loc 1 2129 0 move.l %d2,%d0 lsl.l #4,%d0 lea (%a3,%d0.l),%a5 move.w 26028(%a5),%d4 .LVL116: .LDL5: move.w %d4,%d3 and.w #15,%d3 2130 type = t 2131 type = type&(\(7<<4)) %IF type&(7<<4) >= 6<<4;!routine & pred 2132 op(',', type&b'1111111'); !type & form .loc 1 2132 0 move.w %d3,%a4 move.l 32(%a2),%a0 move.l %a4,-(%sp) pea 44.w move.l 64(%a0),%a0 move.l %d5,%a1 jsr (%a1) .LVL117: 2133 f = v_format .loc 1 2133 0 move.l 26024(%a5),%a0 .LVL118: move.w %d4,%d5 and.w #1,%d5 2134 f = tag(f)_index %IF t&x'70' = record<<4 .loc 1 2134 0 lea (24,%sp),%sp jne .L63 2135 f = v_index %IF f < 0 .loc 1 2135 0 move.l 32(%a2),%a1 move.l %a0,%d0 lsl.l #4,%d0 move.l %d0,%a0 .LVL119: add.l 64(%a1),%a0 move.w 26030(%a0),%a0 .LVL120: .L63: .loc 1 2135 0 discriminator 1 tst.l %a0 jlt .L76 .L64: 2136 op(',', f); !format .loc 1 2136 0 discriminator 1 move.l 32(%a2),%a1 move.l %a0,-(%sp) pea 44.w move.l 64(%a1),%a0 .LVL121: jsr OP.6243 .LVL122: .loc 1 2136 0 move.l %d2,%d0 lsl.l #4,%d0 move.w 26030(%a3,%d0.l),%a0 .LVL129: jra .L64 .LVL130: .L77: 2137 f = otype+t>>4&b'1111000' .loc 1 2137 0 discriminator 1 move.l OTYPE.6070,%a5 move.l %d4,%d0 lsr.l #4,%d0 moveq #120,%d1 and.l %d1,%d0 add.l %a5,%d0 .LVL123: 2138 f = f!8 %IF class = 125; !add spec from %DUP .loc 1 2138 0 discriminator 1 addq.l #8,%sp moveq #125,%d6 cmp.l 20(%a2),%d6 jeq .L77 .L65: 2139 dim = v_app; !dimension .loc 1 2139 0 discriminator 1 move.l %d2,%d1 lsl.l #4,%d1 move.l 26020(%a3,%d1.l),%d1 .LVL124: .LBB337: .loc 1 2139 0 move.l %d1,DIM.6065 jra .L67 .LVL125: .L75: .loc 1 2139 0 moveq #8,%d1 or.l %d1,%d0 .LVL131: jra .L65 .LVL132: .L66: 2140 dim = 0 %unless 0 < dim <= dim limit 2141 op(',', f+dim<<8); !otype & spec & prot .loc 1 2141 0 move.l 32(%a2),%a0 move.l DIM.6065,%d1 .LVL133: lsl.l #8,%d1 move.l %d1,%a1 pea (%a1,%d0.l) .LVL134: pea 44.w move.l 64(%a0),%a0 jsr OP.6243 .LVL135: 2142 defs = 0 %IF t¶meters = 0 .loc 1 2142 0 addq.l #8,%sp tst.w %d5 jne .L68 2143 f = t&15 .loc 1 2143 0 discriminator 1 move.l %d1,%a0 subq.l #1,%a0 moveq #5,%d6 cmp.l %a0,%d6 jcs .L66 .LBE337: .loc 1 2143 0 clr.l 12(%a2) .L68: .LVL136: .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 .loc 1 2146 0 moveq #-1,%d0 move.l %d0,OCOUNT.6099 .LDL7: .loc 1 2146 0 moveq #-1,%d6 move.l %d6,OCOUNT.6099 2147 %FINISH 2148 dimension = 0 .loc 1 2148 0 clr.l DIM.6065 .L67: .loc 1 2148 0 discriminator 1 subq.w #3,%d3 cmp.w #7,%d3 jls .L69 .L70: .LBE338: .loc 1 2148 0 clr.l DIMENSION.6109 .loc 1 2148 0 clr.l DIMENSION.6109 2149 %if otype = 2 %and (f=2 %or f=12 %or f=14) %start .loc 1 2149 0 moveq #2,%d1 cmp.l %a5,%d1 jeq .L78 .LVL137: .L59: .loc 1 2149 0 moveq #2,%d0 cmp.l %a5,%d0 jne .L59 jra .L73 .cfi_endproc .LFE215: .section .rodata .LC19: .byte 7 .string "lookup:" .zero 247 .text .align 2 LOOKUP.6614: .LFB205: 2150 v_flags = v_flags-1; !convert to simple .loc 1 2150 0 cmp.l %a4,%d1 jeq .L72 .L73: .loc 1 2150 0 discriminator 1 lsl.l #4,%d2 .LVL141: subq.w #1,26028(%a3,%d2.l) .L71: 2151 %finish .loc 1 2151 0 and.w #13,%d4 .LVL140: cmp.w #12,%d4 jne .L59 .L72: 2152 %END .loc 1 2152 0 discriminator 1 jra .L59 .LVL142: .L69: 2153 .loc 1 2153 0 move.l %d2,%d0 lsl.l #4,%d0 and.w #-129,26028(%a3,%d0.l) .LDL6: .loc 1 2153 0 movem.l -36(%fp),#15484 .LVL138: unlk %fp rts .LVL139: .L78: 2154 %ROUTINE def s lab(%INTEGER n) .loc 1 2154 0 .cfi_startproc .LVL456: link.w %fp,#0 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 movem.l #15416,-(%sp) .cfi_offset 2, -36 .cfi_offset 3, -32 .cfi_offset 4, -28 .cfi_offset 5, -24 .cfi_offset 10, -20 .cfi_offset 11, -16 .cfi_offset 12, -12 move.l 8(%fp),%d1 move.l %a0,%a3 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 .loc 1 2159 0 move.l X.6040,%d2 move.l 32(%a0),%a0 move.l 64(%a0),%a2 .LVL457: move.l %d2,%d0 lsl.l #4,%d0 move.l 26024(%a2,%d0.l),%d4 move.l %d4,%d0 add.l %d0,%d0 lea (%a2,%d0.l),%a1 2160 l = dict(p); !lower bound .loc 1 2160 0 move.w 14018(%a1),%a4 .LVL458: .LBB486: 2161 %IF l <= n <= dict(p+1) %START 2162 b = n-l .loc 1 2162 0 move.l %d1,%d0 sub.l %a4,%d0 .LVL459: 2163 w = b>>4+p .loc 1 2163 0 lsr.l #4,%d0 .LVL461: add.l %d4,%d0 .LVL462: add.l %d0,%d0 .LVL463: add.l %d0,%a2 .LVL464: 2164 bit = 1<<(b&15) .loc 1 2164 0 cmp.l %a4,%d1 jlt .L378 .loc 1 2164 0 moveq #15,%d5 and.l %d0,%d5 moveq #1,%d3 lsl.l %d5,%d3 .LVL460: 2165 %IF dict(w+2)&bit # 0 %START; !already set .loc 1 2165 0 move.w 14022(%a2),%d4 .LVL465: tst.l %d3 seq %d0 extb.l %d0 neg.l %d0 move.w %d4,%a1 move.l %a1,%d5 and.l %d5,%d0 jne .L379 2166 fault(4) %IF pending # 0 .loc 1 2166 0 move.w 14020(%a1),%a1 cmp.l %a1,%d1 jgt .L378 .LBE486: .loc 1 2166 0 tst.l 16(%a3) jeq .L377 2167 %RETURN .loc 1 2167 0 pea 4.w .LVL466: jsr FAULT.6279 .LVL467: addq.l #4,%sp jra .L377 .LVL468: .L379: 2168 %FINISH 2169 dict(w+2) <- dict(w+2)!bit %IF pending # 0 .loc 1 2169 0 tst.l 16(%a3) jeq .L381 2170 set const(n) .loc 1 2170 0 or.w %d3,%d4 move.w %d4,14022(%a2) .LVL469: .L381: .loc 1 2170 0 discriminator 1 move.l 32(%a3),%a0 move.l %d1,-(%sp) move.l 64(%a0),%a0 jsr SETCONST.6246 .LVL470: 2171 op('_', tag(x)_index) .loc 1 2171 0 discriminator 1 move.l 32(%a3),%a0 move.l 64(%a0),%a0 lsl.l #4,%d2 move.w 26030(%a0,%d2.l),%a1 move.l %a1,-(%sp) pea 95.w jsr OP.6243 .LVL471: 2172 %FINISH %ELSE %START .loc 1 2172 0 discriminator 1 lea (12,%sp),%sp jra .L382 .LVL472: .L378: 2173 fault(12) .loc 1 2173 0 pea 12.w jsr FAULT.6279 .LVL473: addq.l #4,%sp .LVL474: .L382: 2174 %FINISH 2175 access = 1 .loc 1 2175 0 move.l 32(%a3),%a0 moveq #1,%d0 move.l %d0,24(%a0) .L380: .L377: 2176 %END 2177 .loc 1 2177 0 movem.l -28(%fp),#7228 .LVL475: unlk %fp rts .cfi_endproc .LFE216: .section .rodata.str1.1 .LC76: .string "Illegal cycle J = DICT[N - 1], 1, DICT[N + 1 - 1]" .LC77: .string "->C(%d) out of bounds at %s line %d" .LC78: .string "switch jump to undefined label C(%d): at %s line %d" .LC79: .string "->LITOP(%d) out of bounds at %s line %d" .section .rodata .LC8: .byte 4 .string "ss =" .zero 250 .text .align 2 COMPILE.6262: .LFB209: 2178 %ROUTINE call 2179 %RECORD(tagfm)%NAME T 2180 t == tag(x) .loc 1 2180 0 move.l -4430(%fp),%a0 move.l 64(%a0),%a0 .LVL636: 2181 op('@', t_index) .loc 1 2181 0 move.l X.6040,%d0 lsl.l #4,%d0 lea (%a0,%d0.l),%a2 move.w 26030(%a2),%a1 move.l %a1,-(%sp) pea 64.w jsr OP.6243 .LVL637: addq.l #8,%sp 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 .loc 1 2183 0 move.l -4430(%fp),%a0 clr.l 24(%a0) .LDL31: .loc 1 2183 0 tst.l 26020(%a2) jne .L697 2184 %END .loc 1 2184 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2185 .loc 1 2185 0 move.l -4430(%fp),%a0 move.l 64(%a0),%a0 move.b #69,104710(%a0,%d0.l) jra .L697 .L574: jra .L576 .L575: jra .L576 .L577: jra .L587 .L578: jra .L587 .L579: jra .L587 .L580: jra .L587 .L581: jra .L587 .L582: .L587: .LBE550: .LBE549: 2186 %ROUTINE pop def 2187 set const(pstack(pending)); pending = pending-1 .loc 1 2187 0 lea PSTACK.7168,%a0 move.l -4(%a0,%d0.l*4),-(%sp) move.l -4430(%fp),%a0 move.l 64(%a0),%a0 jsr SETCONST.6246 .LVL653: addq.l #4,%sp 2188 %END .loc 1 2188 0 subq.l #1,-4446(%fp) .L607: .LBE552: .LBE551: 2189 2190 %ROUTINE pop lit link.w %fp,#0 2191 %IF pending = 0 %THEN lit = 0 %ELSE %START move.l 16(%a0),%d0 jeq .L14 .L12: 2192 lit = pstack(pending); pending = pending-1 subq.l #1,%d0 move.l PSTACK.7168(%d0.l*4),LIT.6117 clr.l LIT.6117 2193 %FINISH move.l %d0,16(%a0) .L13: .L11: jra .L11 .LFE219: .align 2 PUSH.7328: .LFB220: 2194 %END 2195 unlk %fp rts .L14: 2196 2197 %IF sstype < 0 %START; !executable statement .loc 1 2197 0 tst.l SSTYPE.6097 jlt .L701 .L384: .L386: .L387: 2198 %IF level = 0 %START; !outermost level .loc 1 2198 0 move.l -4468(%fp),%a1 tst.l 48(%a1) jeq .L708 .L385: 2199 fault(13); !*order .loc 1 2199 0 pea 13.w move.l %a1,%a0 jsr FAULT.6279 .LVL495: addq.l #4,%sp jra .L387 .LVL496: .L702: 2200 %FINISH %ELSE %START 2201 %IF access = 0 %START .loc 1 2201 0 move.l -4468(%fp),%a2 tst.l 24(%a2) jne .L387 2202 access = 1; fault(-1); !only a warning .loc 1 2202 0 moveq #1,%d0 move.l %d0,24(%a2) 2203 %FINISH .loc 1 2203 0 pea -1.w move.l %a2,%a0 jsr FAULT.6279 .LVL494: addq.l #4,%sp jra .L387 .L708: 2204 %FINISH 2205 %FINISH 2206 2207 %IF diag&2 # 0 %START 2208 newline %IF sym # nl .loc 1 2208 0 moveq #10,%d1 cmp.l SYM.6058,%d1 jeq .L388 .LBB528: .LBB529: .loc 2 661 0 jsr _imp_newline .LVL476: .L388: .LBE529: .LBE528: .LBB530: 2209 printstring("ss =") .loc 1 2209 0 discriminator 1 move.l %fp,%d2 add.l #-326,%d2 move.l #256,%d3 move.l %d3,-(%sp) pea .LC8 move.l %d2,-(%sp) lea memcpy,%a2 jsr (%a2) .LVL477: move.l %fp,%d4 add.l #-4422,%d4 move.l %d3,-(%sp) move.l %d2,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL478: move.l %d3,-(%sp) move.l %d4,-(%sp) move.l %d2,-(%sp) jsr (%a2) .LVL479: .LBE530: .LBB531: .LBB532: .loc 2 589 0 discriminator 1 lea (-220,%sp),%sp move.l %sp,%d0 move.l %d3,-(%sp) move.l %d2,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL480: lea (12,%sp),%sp jsr _imp_printstring .LVL481: add.l %d3,%sp .LBE532: .LBE531: 2210 write(ss, 1) .loc 1 2210 0 discriminator 1 pea 1.w move.l SS.6090,-(%sp) jsr _imp_writeint .LVL482: addq.l #8,%sp .LBB533: .LBB534: .loc 2 661 0 discriminator 1 jsr _imp_newline .LVL483: .LBE534: .LBE533: 2211 newline 2212 count = 5 .loc 1 2212 0 discriminator 1 moveq #5,%d2 move.l %d2,COUNT.7170 .LVL484: 2213 name = "" 2214 %FINISH 2215 .loc 1 2215 0 discriminator 1 pea 8.w pea -4166(%fp) pea NAME.7169 jsr _imp_strncpy .LVL485: lea (12,%sp),%sp .L389: 2216 next = ss .loc 1 2216 0 discriminator 1 move.l SS.6090,-4434(%fp) 2217 pending = 0; lmode = 0 .loc 1 2217 0 discriminator 1 clr.l -4446(%fp) 2218 link = 0; decs = 0 .loc 1 2218 0 discriminator 1 clr.l -4462(%fp) .loc 1 2218 0 discriminator 1 clr.l -4438(%fp) .LVL486: 2219 defs = 0; resln = 0; done = 0 .loc 1 2219 0 discriminator 1 clr.l -4450(%fp) .LVL487: .loc 1 2219 0 clr.l -4472(%fp) .loc 1 2219 0 clr.l -4472(%fp) 2220 ord = level .loc 1 2220 0 clr.l -4480(%fp) .L698: .loc 1 2220 0 move.l -4468(%fp),%a0 move.l 48(%a0),-4476(%fp) .loc 1 2220 0 clr.l -4480(%fp) jra .L698 .L390: .L391: .L392: .L393: .L394: .L395: .LVL497: .L396: jra .L697 .LVL498: .L703: 2221 ord = 1 %IF this >= 0; !recordformat declarations .loc 1 2221 0 discriminator 1 tst.l THIS.6082 jlt .L702 2222 c(0): .loc 1 2222 0 moveq #1,%d0 move.l %d0,-4476(%fp) 2223 top: %IF next # link %START 2224 get next; ->c(class) .loc 1 2224 0 move.l -4434(%fp),%a1 cmp.l -4438(%fp),%a1 jne .L703 .L398: .loc 1 2224 0 discriminator 1 lea (-4462,%fp),%a0 jsr GETNEXT.7175 .LVL499: 2225 %FINISH .loc 1 2225 0 discriminator 1 move.l -4442(%fp),%d2 .LVL500: .LDL25: 2226 2227 !all done, tidy up declarations and jumps 2228 2229 newline %IF diag&2 # 0 %AND count # 5 2230 .loc 1 2230 0 moveq #5,%d0 cmp.l COUNT.7170,%d0 jeq .L402 .LBB535: .LBB536: .loc 2 661 0 jsr _imp_newline .LVL489: .L402: .LBE536: .LBE535: 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 .loc 1 2233 0 move.l -4468(%fp),%a0 move.l 8(%a0),%d1 subq.l #1,%d1 move.l %d1,-(%sp) pea 66.w move.l 64(%a0),%a0 jsr OP.6243 .LVL490: addq.l #8,%sp .L403: 2234 def lab(label-1) %IF lmode&else # 0; !entry from else .loc 1 2234 0 move.l -4468(%fp),%a2 move.l 8(%a2),-(%sp) lea DEFLAB.7172,%a2 lea (-4462,%fp),%a0 jsr (%a2) .LVL491: .L404: 2235 %FINISH .loc 1 2235 0 move.l -4468(%fp),%a0 move.l 8(%a0),%d0 subq.l #1,%d0 move.l %d0,(%sp) lea (-4462,%fp),%a0 jsr (%a2) .LVL492: addq.l #4,%sp .L405: .L406: 2236 2237 %RETURN %IF decs = 0 .loc 1 2237 0 tst.l -4472(%fp) jeq .L383 .L408: 2238 atom1 = error %AND %RETURN %IF atom1 # 0; !%INTEGERROUTINE .loc 1 2238 0 tst.l ATOM1.6041 jne .L704 .L409: 2239 order = ord .loc 1 2239 0 move.l -4476(%fp),ORDER.6102 .loc 1 2239 0 move.l #32768,ATOM1.6041 .L383: 2240 decl = decl&(\15)+decmap(decl&15); !construct declarator flags .loc 1 2240 0 move.l DECL.6064,%d0 moveq #15,%d1 and.l %d0,%d1 move.w -70(%fp,%d1.l*2),%a0 moveq #-16,%d1 and.l %d1,%d0 add.l %a0,%d0 move.l %d0,DECL.6064 2241 atom1 = atoms(decl&15); !generate class .loc 1 2241 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 moveq #15,%d1 and.l %d0,%d1 move.b 38836(%a0,%d1.l),%d1 and.l #255,%d1 move.l %d1,ATOM1.6041 2242 %IF otype # 0 %START; !own, const etc. .loc 1 2242 0 move.l OTYPE.6070,%a0 tst.l %a0 jeq .L416 2243 atom1 = atom1+1 %IF atom1 # proc .loc 1 2243 0 moveq #7,%d2 cmp.l %d1,%d2 jeq .L411 2244 %IF otype = 2 %START; !const .loc 1 2244 0 addq.l #1,%d1 move.l %d1,ATOM1.6041 .L411: .loc 1 2244 0 discriminator 1 moveq #2,%d3 cmp.l %a0,%d3 jeq .L705 .L412: 2245 n = decl&15 2246 %if n&1 # 0 %start 2247 decl = decl!prot .loc 1 2247 0 or.w #256,%d0 .LVL504: move.l %d0,DECL.6064 .LVL505: jra .L416 .LVL506: .L413: 2248 decl = decl!const bit %IF decl&b'1111111' = iform .loc 1 2248 0 btst #0,%d0 jeq .L413 2249 %finish .loc 1 2249 0 or.w #8448,%d0 .LVL507: move.l %d0,DECL.6064 .LVL508: jra .L416 .L706: 2250 %else 2251 decl = decl!own bit .loc 1 2251 0 or.w #512,%d0 move.l %d0,DECL.6064 .L410: .L414: .L415: .L416: 2252 %FINISH 2253 %FINISH 2254 sstype = 1 %IF sstype = 0 %AND atom1 = proc .loc 1 2254 0 tst.l SSTYPE.6097 jne .L417 2255 atom1 = atom1+1 %IF decl&spec # 0; !onto spec variant .loc 1 2255 0 moveq #7,%d0 cmp.l ATOM1.6041,%d0 jeq .L706 .L417: 2256 ocount = 0 %AND cont = '+' %IF atom1 = 5; !own array .loc 1 2256 0 move.l ATOM1.6041,%d0 addq.l #1,%d0 move.l %d0,ATOM1.6041 .LDL23: .loc 1 2256 0 moveq #5,%d3 cmp.l %d0,%d3 jeq .L707 .L418: .loc 1 2256 0 moveq #1,%d1 move.l %d1,SSTYPE.6097 .loc 1 2256 0 moveq #8,%d2 move.l %d2,ATOM1.6041 jra .L418 .L707: 2257 %IF anyform(decl&15) = 0 %START; !check meaningful .loc 1 2257 0 move.l DECL.6064,%d0 moveq #15,%d1 and.l %d0,%d1 tst.b -38(%fp,%d1.l) jne .L383 .loc 1 2257 0 clr.l OCOUNT.6099 2258 %IF decl>>4&7 = record %START .loc 1 2258 0 btst #4,%d0 jne .L420 .loc 1 2258 0 moveq #43,%d0 move.l %d0,CONT.6062 jra .L418 .LVL509: .L423: .L424: 2259 this = fdef %IF tag(fdef)_flags&spec # 0 2260 atom1 = error+21 %IF fdef = this; !*context for format .loc 1 2260 0 move.l FDEF.6081,THIS.6082 .LDL24: 2261 %FINISH .loc 1 2261 0 move.l #32789,ATOM1.6041 .L419: .L420: 2262 atom1 = error+10 %IF fdef = 0; !*size .loc 1 2262 0 tst.l FDEF.6081 jne .L383 2263 %FINISH .loc 1 2263 0 move.l #32778,ATOM1.6041 jra .L383 .LVL493: .L701: 2264 %RETURN 2265 2266 atop: access = 0; ->top 2267 .loc 1 2267 0 move.l -4468(%fp),%a0 clr.l 24(%a0) 2268 ! declarators .loc 1 2268 0 jra .L697 .LVL547: .L477: 2269 2270 c(88): !rtype 2271 c(28): decl = x&(\7); !stype 2272 fdef = x&7; !precision .loc 1 2272 0 move.l X.6040,%d0 moveq #-8,%d1 and.l %d0,%d1 move.l %d1,DECL.6064 .loc 1 2272 0 moveq #7,%d2 .LVL510: and.l %d0,%d2 move.l %d2,FDEF.6081 2273 fdef = reals ln %IF x&b'1110001' = real<<4+1; !convert to long .loc 1 2273 0 moveq #1,%d3 and.l %d0,%d3 move.l %d3,-4472(%fp) .LVL511: jne .L697 2274 decs = 1; ->top .loc 1 2274 0 move.l REALSLN.6071,FDEF.6081 .loc 1 2274 0 moveq #1,%d0 move.l %d0,-4472(%fp) jra .L697 .LVL512: .L425: .L426: 2275 c(34): !own 2276 c(35): otype = x; ord = 1; ->top; !external 2277 c(152):decl = decl+x<<1; ->top; !xname .loc 1 2277 0 move.l X.6040,OTYPE.6070 .LVL513: 2278 c(31): !proc .loc 1 2278 0 moveq #1,%d1 move.l %d1,-4476(%fp) .loc 1 2278 0 move.l X.6040,%d0 add.l %d0,%d0 add.l %d0,DECL.6064 2279 c(32): spec mode = level+1; !fn/map .loc 1 2279 0 jra .L697 .LVL514: .L427: .loc 1 2279 0 jra .L697 .L428: .L429: 2280 decl = decl!prot %IF x = 9; !function .loc 1 2280 0 move.l -4468(%fp),%a0 move.l 48(%a0),%d2 .LVL515: addq.l #1,%d2 move.l %d2,SPECMODE.6098 .loc 1 2280 0 moveq #9,%d0 cmp.l X.6040,%d0 jeq .L709 .L430: .L431: .LVL516: 2281 c(29): ord = 1; !array .loc 1 2281 0 or.w #256,DECL.6064+2 jra .L431 .LVL520: .L433: 2282 dim = 0 .loc 1 2282 0 discriminator 1 clr.l DIM.6065 .loc 1 2282 0 discriminator 1 moveq #1,%d1 move.l %d1,-4476(%fp) .LVL517: .L432: 2283 c(30): decl = decl+x; !name 2284 decs = 1 .loc 1 2284 0 move.l X.6040,%d2 add.l %d2,DECL.6064 .LVL518: .loc 1 2284 0 moveq #1,%d3 move.l %d3,-4472(%fp) 2285 ->top .loc 1 2285 0 jra .L697 .LVL519: .L709: 2286 c(27): lit = 0; ! arrayd 2287 %IF pending # 0 %START .loc 1 2287 0 clr.l LIT.6117 .loc 1 2287 0 tst.l -4446(%fp) jne .L710 .L434: .L436: 2288 pop lit .loc 1 2288 0 lea (-4462,%fp),%a0 jsr POPLIT.7272 .LVL524: .LBB537: 2289 %UNLESS 0 top .loc 1 2295 0 moveq #1,%d3 move.l %d3,-4472(%fp) .loc 1 2295 0 jra .L697 .LVL523: .L710: 2296 c(37): x = x!subname; !record 2297 c(36): lit = 0; !string .loc 1 2297 0 or.w #2048,X.6040+2 .L438: 2298 %IF pending # 0 %START .loc 1 2298 0 clr.l LIT.6117 .loc 1 2298 0 tst.l -4446(%fp) jne .L711 .L439: .L441: 2299 pop lit .loc 1 2299 0 lea (-4462,%fp),%a0 jsr POPLIT.7272 .LVL528: .LBB538: 2300 %UNLESS 0 < lit <= 255 %START; !max length wrong 2301 atom1 = error+10; %RETURN .loc 1 2301 0 move.l #32778,ATOM1.6041 2302 %FINISH .loc 1 2302 0 jra .L383 .LVL529: .L443: 2303 %FINISH .loc 1 2303 0 move.l LIT.6117,%d0 subq.l #1,%d0 cmp.l #254,%d0 jls .L441 .L440: .LBE538: 2304 fdef = lit; !format or length .loc 1 2304 0 move.l LIT.6117,FDEF.6081 .L442: 2305 c(33): decl = x; !switch 2306 decs = 1 .loc 1 2306 0 move.l X.6040,DECL.6064 .LVL526: .loc 1 2306 0 moveq #1,%d0 move.l %d0,-4472(%fp) 2307 ->top .loc 1 2307 0 jra .L697 .LVL527: .L711: 2308 c(39): decl = decl!spec; !spec 2309 ocount = -1; !no initialisation .loc 1 2309 0 or.w #128,DECL.6064+2 .loc 1 2309 0 moveq #-1,%d1 move.l %d1,OCOUNT.6099 2310 spec mode = -1 .loc 1 2310 0 move.l %d1,SPECMODE.6098 2311 ->top .loc 1 2311 0 jra .L697 .L444: 2312 c(38): decl = 64+4; !recordformat (spec) 2313 order = 1 .loc 1 2313 0 moveq #68,%d2 .LVL530: move.l %d2,DECL.6064 .loc 1 2313 0 moveq #1,%d3 move.l %d3,ORDER.6102 2314 atom1 = x .loc 1 2314 0 move.l X.6040,%d0 move.l %d0,ATOM1.6041 2315 decl = decl!spec %if atom1 = 12; !formatspec .loc 1 2315 0 moveq #12,%d1 cmp.l %d0,%d1 jeq .L712 .L445: 2316 fdef = tmax+1; !format tag .loc 1 2316 0 discriminator 1 move.l -4468(%fp),%a0 move.l 52(%a0),%d2 addq.l #1,%d2 move.l %d2,FDEF.6081 .loc 1 2316 0 move.l #196,DECL.6064 jra .L445 .LVL531: .L446: 2317 %return .loc 1 2317 0 discriminator 1 jra .L383 .L712: 2318 c(175):id = id+1; tag(x)_index = id; %return; !FSID 2319 c(41): decs = 1; decl = x!spec!closed; ->top; !label .loc 1 2319 0 move.l -4468(%fp),%a1 move.l 44(%a1),%d1 addq.l #1,%d1 move.l %d1,44(%a1) 2320 c(133):recid = 0; rbase = tmin-1; !fname .loc 1 2320 0 move.l X.6040,%d0 lsl.l #4,%d0 move.l 64(%a1),%a0 add.l %d0,%a0 move.w %d1,26030(%a0) .loc 1 2320 0 moveq #1,%d1 move.l %d1,-4472(%fp) 2321 this = x .loc 1 2321 0 jra .L383 .L447: .LVL532: .loc 1 2321 0 move.l X.6040,%d0 or.w #16512,%d0 move.l %d0,DECL.6064 .loc 1 2321 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 clr.l 8764(%a0) .loc 1 2321 0 move.l X.6040,%d0 move.l %d0,THIS.6082 2322 fm base = fdef; format list = tmin .loc 1 2322 0 jra .L697 .LVL533: .L448: .loc 1 2322 0 move.l TMIN.6089,%d1 move.l %d1,%d0 subq.l #1,%d0 move.l %d0,RBASE.6085 .loc 1 2322 0 move.l FDEF.6081,FMBASE.6111 2323 def(this); ->top .loc 1 2323 0 move.l %d1,FORMATLIST.6113 .loc 1 2323 0 move.l %d0,-(%sp) lea (-4462,%fp),%a0 jsr DEF.7225 .LVL534: addq.l #4,%sp jra .L697 .L449: 2324 c(148):fdef = 0 %AND ->top %IF next = 0; !reclb 2325 get next; !skip name .loc 1 2325 0 tst.l -4434(%fp) jne .L450 .loc 1 2325 0 discriminator 1 lea (-4462,%fp),%a0 jsr GETNEXT.7175 .LVL535: 2326 fdef = x .loc 1 2326 0 clr.l FDEF.6081 .loc 1 2326 0 discriminator 1 move.l X.6040,FDEF.6081 2327 ->top .loc 1 2327 0 jra .L697 .L450: .loc 1 2327 0 discriminator 1 jra .L697 .L451: 2328 c(127):bp=bp+1 %AND buff(bp)='}'; ->top; !%POUT 2329 c(126):bp=bp+1 %AND buff(bp)='{'; ->top; !%PIN .loc 1 2329 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2330 .loc 1 2330 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #125,104710(%a0,%d0.l) .loc 1 2330 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2331 c(174):set bp; !rangerb .loc 1 2331 0 jra .L697 .L452: .loc 1 2331 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #123,104710(%a0,%d0.l) 2332 c(171): !fmlb .loc 1 2332 0 jra .L697 .L453: .loc 1 2332 0 lea (-4462,%fp),%a0 jsr SETBP.7207 .LVL536: .L456: 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 .loc 1 2335 0 move.l BP.6127,%d0 2336 sstype = 0; spec mode = 0 .loc 1 2336 0 move.l -4468(%fp),%a2 move.l 64(%a2),%a0 move.b #126,104710(%a0,%d0.l) .loc 1 2336 0 neg.l RBASE.6085 .loc 1 2336 0 clr.l SSTYPE.6097 2337 .loc 1 2337 0 move.l %d0,%d1 addq.l #2,%d1 move.l %d1,BP.6127 .loc 1 2337 0 clr.l SPECMODE.6098 .L458: 2338 c(147):search base = 0; !recrb .loc 1 2338 0 move.l 64(%a2),%a0 move.b -4439(%fp),%d2 .LVL537: add.b #-106,%d2 move.b %d2,104711(%a0,%d0.l) 2339 tag(this)_app = tmin .loc 1 2339 0 jra .L697 .LVL538: .L454: jra .L456 .L455: jra .L456 .L457: .loc 1 2339 0 clr.l SEARCHBASE.6112 .loc 1 2339 0 move.l THIS.6082,%d0 lsl.l #4,%d0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 add.l %d0,%a0 move.l TMIN.6089,26020(%a0) 2340 tag(this)_format = rbase .loc 1 2340 0 move.l 64(%a1),%a0 add.l %d0,%a0 move.l RBASE.6085,26024(%a0) 2341 ->top .loc 1 2341 0 jra .L697 .L459: 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 .loc 1 2344 0 moveq #36,%d0 cmp.l X.6040,%d0 jne .L697 2345 c(47): !mod .loc 1 2345 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 .loc 1 2345 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2346 c(48): !dot .loc 1 2346 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #85,104710(%a0,%d0.l) jra .L697 .L460: .loc 1 2346 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #92,104710(%a0,%d0.l) 2347 c(42): !op1 .loc 1 2347 0 jra .L697 .L461: .L465: 2348 c(43): !op2 2349 c(44):bp=bp+1; buff(bp)=operator(x); ->top; !op3 2350 .loc 1 2350 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2351 !conditions & jumps .loc 1 2351 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.l X.6040,%d1 move.b -15(%fp,%d1.l),104710(%a0,%d0.l) 2352 .loc 1 2352 0 jra .L697 .L462: jra .L465 .L463: jra .L465 .L464: jra .L465 .L466: .L467: 2353 %ROUTINE push(%INTEGER x) .LVL11: link.w %fp,#0 movem.l #14336,-(%sp) move.l 8(%fp),%d2 2354 %IF cnest(cp)&2 # x %START move.l 8(%a0),%d1 move.b CNEST.7146(%d1.l),%d3 moveq #2,%d0 cmp.l %d2,%d0 seq %d0 extb.l %d0 neg.l %d0 clr.l %d4 move.b %d3,%d4 and.l %d4,%d0 jne .L16 2355 cnest(cp) = cnest(cp)!1; x = x+4 or.b #1,%d3 move.b %d3,CNEST.7146(%d1.l) 2356 %FINISH addq.l #4,%d2 .LVL12: .L16: 2357 clab = clab+1 %IF cnest(cp)&1 # 0 2358 cnest(cp+1) = x; cp = cp+1 addq.l #1,4(%a0) .LDL1: move.b %d2,CNEST.7146+1(%d1.l) addq.l #1,%d1 2359 %END move.l %d1,8(%a0) 2360 movem.l (%sp)+,#28 .LVL13: unlk %fp rts .LFE220: .section .rodata.str1.1,"aMS",@progbits,1 .LC70: .string "test-new/pass1v84-noprims.imp" .LC71: .string "->REASON(%d) out of bounds at %s line %d" .LC72: .string "switch jump to undefined label REASON(%d): at %s line %d" .section .rodata .LC9: .byte 29 .string "test-new/pass1v84-noprims.imp" .zero 225 .align 2 ABANDON.6169: .LFB188: 2361 %ROUTINE pop label(%INTEGER mode) .loc 1 2361 0 is_stmt 1 .cfi_startproc .LVL451: link.w %fp,#0 .cfi_offset 14, -8 .cfi_def_cfa 14, 8 move.l %a3,-(%sp) move.l %a2,-(%sp) .cfi_offset 11, -12 .cfi_offset 10, -16 move.l 8(%fp),%a1 2362 lmode = dict(dmin) .loc 1 2362 0 move.l 32(%a0),%a2 move.l 64(%a2),%a3 move.l 40(%a2),%d0 add.l #7009,%d0 move.w (%a3,%d0.l*2),%a3 move.l %a3,(%a0) 2363 %IF lmode < 0 %OR lmode&1 # mode %START .loc 1 2363 0 jlt .L370 2364 fault(mode+8) .loc 1 2364 0 moveq #1,%d0 cmp.l %a1,%d0 seq %d0 extb.l %d0 neg.l %d0 move.l %a3,%d1 and.l %d1,%d0 jeq .L370 .L371: .loc 1 2364 0 discriminator 1 pea 8(%a1) move.l %a2,%a0 jsr FAULT.6279 .LVL452: 2365 %FINISH %ELSE %START .loc 1 2365 0 discriminator 1 addq.l #4,%sp .L372: .L369: 2366 dmin = dmin+1; label = label-3 .loc 1 2366 0 addq.l #1,40(%a2) 2367 %FINISH .loc 1 2367 0 move.l 32(%a0),%a0 subq.l #3,8(%a0) 2368 %END .loc 1 2368 0 jra .L369 .L370: 2369 .loc 1 2369 0 move.l -8(%fp),%a2 move.l -4(%fp),%a3 unlk %fp rts .cfi_endproc .LFE221: .align 2 SETBP.7207: .LFB213: 2370 c(56): !and 2371 c(57):push(x); ->top; !or 2372 c(58):cnest(cp) = cnest(cp)!!2; ->top; !not .loc 1 2372 0 move.l X.6040,-(%sp) lea (-4462,%fp),%a0 jsr PUSH.7328 .LVL539: addq.l #4,%sp jra .L697 .L468: 2373 .loc 1 2373 0 move.l -4454(%fp),%d0 eor.b #2,CNEST.7146(%d0.l) 2374 c(138):x = 128+32+16+4; !csep: treat like %WHILE .loc 1 2374 0 jra .L697 .L469: 2375 c(59): !while .loc 1 2375 0 move.l #180,X.6040 .L471: 2376 c(60):%IF class = 138 %THEN op('f', label-1) %C 2377 %ELSE def lab(label-1); !until .loc 1 2377 0 cmp.l #138,-4442(%fp) jeq .L713 .L472: 2378 c(166): !runtil .loc 1 2378 0 move.l -4468(%fp),%a0 move.l 8(%a0),%d0 subq.l #1,%d0 move.l %d0,-(%sp) pea 102.w move.l 64(%a0),%a0 jsr OP.6243 .LVL541: addq.l #8,%sp jra .L475 .L473: .L474: .L475: 2379 c(62):lmode = (lmode&(else!loop)) !(x>>3); !cword 2380 clab = label; cp = 1; cnest(1) = x&7 .loc 1 2380 0 move.l X.6040,%d0 moveq #24,%d2 .LVL542: and.l -4462(%fp),%d2 move.l %d0,%d1 lsr.l #3,%d1 or.l %d1,%d2 move.l %d2,-4462(%fp) .loc 1 2380 0 move.l -4468(%fp),%a1 move.l 8(%a1),-4458(%fp) 2381 ->top .loc 1 2381 0 move.l -4468(%fp),%a0 move.l 8(%a0),%d0 subq.l #1,%d0 move.l %d0,-(%sp) lea (-4462,%fp),%a0 jsr DEFLAB.7172 .LVL540: addq.l #4,%sp jra .L475 .L470: jra .L471 .L713: .loc 1 2381 0 moveq #1,%d1 move.l %d1,-4454(%fp) .loc 1 2381 0 jra .L697 .LVL543: .L476: 2382 c(72):pop label(0); !repeat .loc 1 2382 0 and.b #7,%d0 move.b %d0,CNEST.7146+1 2383 def lab(label+1) %IF lmode&32 # 0; ->atop .loc 1 2383 0 clr.l -(%sp) lea (-4462,%fp),%a0 jsr POPLABEL.7333 .LVL544: 2384 c(69):pop label(1); ->top; !finish .loc 1 2384 0 move.l -4468(%fp),%a0 move.l 8(%a0),%d2 .LVL545: addq.l #1,%d2 move.l %d2,(%sp) lea (-4462,%fp),%a0 jsr DEFLAB.7172 .LVL546: addq.l #4,%sp .L421: .L422: 2385 c(163): !xelse .loc 1 2385 0 pea 1.w lea (-4462,%fp),%a0 jsr POPLABEL.7333 .LVL548: addq.l #4,%sp jra .L697 .L478: .L479: 2386 c(70):pop label(1); !finish else ... 2387 fault(7) %IF lmode&3 = 3; !dangling else .loc 1 2387 0 pea 1.w lea (-4462,%fp),%a0 jsr POPLABEL.7333 .LVL549: 2388 c(68):lmode = (lmode&else)!3; !...else... .loc 1 2388 0 move.l #7,(%sp) move.l -4468(%fp),%a0 jsr FAULT.6279 .LVL550: addq.l #4,%sp .L480: .L481: 2389 %IF access # 0 %START .loc 1 2389 0 discriminator 1 moveq #8,%d0 and.l -4462(%fp),%d0 moveq #3,%d1 or.l %d0,%d1 move.l %d1,-4462(%fp) .loc 1 2389 0 discriminator 1 move.l -4468(%fp),%a0 tst.l 24(%a0) jeq .L482 2390 op('F', label-1); lmode = else!3 .loc 1 2390 0 move.l 8(%a0),%d0 subq.l #1,%d0 move.l %d0,-(%sp) pea 70.w move.l 64(%a0),%a0 jsr OP.6243 .LVL551: addq.l #8,%sp 2391 %FINISH .loc 1 2391 0 moveq #11,%d0 move.l %d0,-4462(%fp) .L482: 2392 def lab(label) .loc 1 2392 0 move.l -4468(%fp),%a0 move.l 8(%a0),-(%sp) lea (-4462,%fp),%a0 jsr DEFLAB.7172 .LVL552: addq.l #4,%sp 2393 ->top %IF next # 0 .loc 1 2393 0 tst.l -4434(%fp) jne .L697 jra .L486 .L483: .L484: .L486: .L487: 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 .loc 1 2399 0 tst.l -4462(%fp) jeq .L714 .LVL553: .L488: .loc 1 2399 0 discriminator 1 move.l -4468(%fp),%a0 move.l 40(%a0),%d0 subq.l #1,%d0 move.l %d0,40(%a0) 2400 dict(dmin) = lmode .loc 1 2400 0 discriminator 1 cmp.l DMAX.6088,%d0 jle .L715 .L489: .loc 1 2400 0 discriminator 1 move.l -4468(%fp),%a2 move.l 64(%a2),%a0 move.l 40(%a2),%d0 add.l #7009,%d0 move.w -4460(%fp),(%a0,%d0.l*2) .loc 1 2400 0 move.l -4468(%fp),%a0 move.l 8(%a0),%d0 subq.l #1,%d0 move.l %d0,-(%sp) lea (-4462,%fp),%a0 jsr DEFLAB.7172 .LVL555: addq.l #4,%sp 2401 label = label+3 .loc 1 2401 0 discriminator 1 addq.l #3,8(%a2) .loc 1 2401 0 moveq #16,%d0 move.l %d0,-4462(%fp) jra .L488 .LVL556: .L715: .loc 1 2401 0 discriminator 1 pea 3.w move.l 64(%a0),%a0 jsr ABANDON.6169 .LVL557: addq.l #4,%sp jra .L489 .LVL558: .L490: 2402 %RETURN .loc 1 2402 0 discriminator 1 jra .L383 .LVL554: .L485: jra .L486 .L714: 2403 2404 c(64):fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0; !on event 2405 inhibit = 1 .loc 1 2405 0 move.l -4468(%fp),%a3 move.l 64(%a3),%a0 move.l 40(%a3),%d0 add.l #7009,%d0 tst.w (%a0,%d0.l*2) jge .L491 .loc 1 2405 0 moveq #1,%d0 move.l -4468(%fp),%a0 move.l %d0,4(%a0) .LVL560: 2406 n = 0 .loc 1 2406 0 tst.l 4(%a3) jeq .L492 .L491: .loc 1 2406 0 clr.l %d2 .loc 1 2406 0 clr.l %d2 .LVL569: .L493: 2407 n = x'FFFF' %IF pending = 0; !* = all events .loc 1 2407 0 move.l -4446(%fp),%d0 .loc 1 2407 0 tst.l %d0 jeq .L493 2408 %WHILE pending > 0 %CYCLE .loc 1 2408 0 pea 13.w move.l -4468(%fp),%a0 jsr FAULT.6279 .LVL559: addq.l #4,%sp .L492: .loc 1 2408 0 moveq #0,%d2 not.w %d2 .LVL561: 2409 pop lit; fault(10) %IF lit&(\15) # 0;!too big .loc 1 2409 0 jle .L683 .loc 1 2409 0 lea POPLIT.7272,%a3 .loc 1 2409 0 discriminator 1 tst.l -4446(%fp) jle .L493 .LVL564: .L496: .loc 1 2409 0 discriminator 1 lea (-4462,%fp),%a0 jsr (%a3) .LVL565: 2410 j = 1<stcy .loc 1 2415 0 move.l -4468(%fp),%a3 move.l 8(%a3),-(%sp) pea 44.w move.l 64(%a3),%a0 jsr (%a2) .LVL571: addq.l #8,%sp .loc 1 2415 0 moveq #5,%d0 move.l %d0,-4462(%fp) jra .L488 .LVL572: .L497: 2416 2417 2418 c(104):op('J', tag(x)_index); !l 2419 inhibit = 1; ->atop .loc 1 2419 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.l X.6040,%d0 lsl.l #4,%d0 move.w 26030(%a0,%d0.l),%a2 move.l %a2,-(%sp) pea 74.w jsr OP.6243 .LVL573: addq.l #8,%sp .loc 1 2419 0 moveq #1,%d0 move.l -4468(%fp),%a0 move.l %d0,4(%a0) 2420 c(149):stats = stats-1; !lab .loc 1 2420 0 jra .L421 .L498: 2421 access = 1; inhibit = 1 .loc 1 2421 0 subq.l #1,STATS.6056 .loc 1 2421 0 moveq #1,%d0 move.l -4468(%fp),%a0 move.l %d0,24(%a0) 2422 op('L', tag(x)_index); ->top .loc 1 2422 0 move.l %d0,4(%a0) .loc 1 2422 0 move.l 64(%a0),%a0 move.l X.6040,%d0 lsl.l #4,%d0 move.w 26030(%a0,%d0.l),%a2 move.l %a2,-(%sp) pea 76.w jsr OP.6243 .LVL574: addq.l #8,%sp jra .L697 .L499: 2423 2424 c(63):j = dmin; l = label-3; !exit, continue 2425 %CYCLE .loc 1 2425 0 move.l -4468(%fp),%a3 move.l 40(%a3),%d2 .LVL575: 2426 fault(7) %AND ->top %IF dict(j) < 0 .loc 1 2426 0 move.l 8(%a3),%d0 subq.l #3,%d0 move.l %d0,(%a3) .loc 1 2426 0 move.l %d2,%d1 subq.l #1,%d1 move.l 64(%a3),%a0 move.w 14018(%a0,%d2.l*2),%d0 jlt .L500 .loc 1 2426 0 move.w (%a1)+,%d0 jlt .L500 .L503: .loc 1 2426 0 move.l %d1,%d2 .LVL580: .L501: 2427 %EXIT %IF dict(j)&1 = 0 .loc 1 2427 0 btst #0,%d0 jeq .L684 move.l %d2,%d0 add.l #7010,%d0 add.l %d0,%d0 lea (%a0,%d0.l),%a1 .L502: .loc 1 2427 0 btst #0,%d0 jeq .L501 .loc 1 2427 0 pea 7.w move.l -4468(%fp),%a0 jsr FAULT.6279 .LVL578: addq.l #4,%sp jra .L697 .LVL579: .L684: 2428 j = j+1; l = l-3 .loc 1 2428 0 move.l %d2,%d1 addq.l #1,%d1 .LVL576: .loc 1 2428 0 move.l %d1,%d2 jra .L502 .LVL577: .L500: 2429 %REPEAT .loc 1 2429 0 move.l -4468(%fp),%a2 subq.l #3,(%a2) .LDL26: 2430 l = l+1 %IF x = 32; !continue .loc 1 2430 0 move.l X.6040,%d3 moveq #32,%d0 cmp.l %d3,%d0 jeq .L716 .L504: 2431 op('F', l) .loc 1 2431 0 discriminator 1 move.l -4468(%fp),%a2 move.l (%a2),-(%sp) pea 70.w jsr OP.6243 .LVL581: addq.l #8,%sp add.l %d2,%d2 move.l 64(%a2),%a0 add.l %d2,%a0 .loc 1 2431 0 move.l -4468(%fp),%a1 addq.l #1,(%a1) jra .L504 .LVL582: .L505: 2432 dict(j) = dict(j)!x; !show given .loc 1 2432 0 discriminator 1 or.w %d3,14020(%a0) 2433 ->atop .loc 1 2433 0 discriminator 1 jra .L421 .L716: 2434 2435 c(50):bp=bp+1 %AND buff(bp)='C'; ->cop; !acomp 2436 .loc 1 2436 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2437 c(49): bp = bp+1 .loc 1 2437 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #67,104710(%a0,%d0.l) 2438 %IF next # 0 %START; !comparator .loc 1 2438 0 jra .L509 .L507: .loc 1 2438 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 .loc 1 2438 0 tst.l -4434(%fp) jne .L717 .L508: 2439 buff(bp)='"'; push(0); !double sided .loc 1 2439 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #34,104710(%a0,%d0.l) 2440 %FINISH %ELSE %START .loc 1 2440 0 clr.l -(%sp) lea (-4462,%fp),%a0 jsr PUSH.7328 .LVL583: addq.l #4,%sp jra .L509 .L513: .L515: 2441 buff(bp)='?' .loc 1 2441 0 move.l -4468(%fp),%a2 move.l 64(%a2),%a0 move.b #63,104710(%a0,%d0.l) jra .L509 .L717: 2442 %FINISH 2443 2444 cop: x = x!!1 %IF cnest(cp)&2 # 0; !invert the condition 2445 j = cp; l = clab .loc 1 2445 0 discriminator 1 move.l -4454(%fp),%a0 .LVL740: 2446 %WHILE cnest(j)&4 = 0 %CYCLE .loc 1 2446 0 discriminator 1 move.l X.6040,%d3 eor.w #1,%d3 move.l %d3,X.6040 .LDL34: .loc 1 2446 0 discriminator 1 move.l -4458(%fp),%d1 move.l -4468(%fp),%a3 move.l %d1,(%a3) 2447 j = j-1; l = l-cnest(j)&1 .loc 1 2447 0 discriminator 1 btst #0,CNEST.7146(%a0) jne .L510 add.l #CNEST.7146,%a0 .LVL741: .L511: move.b -(%a0),%d0 .LVL742: and.b #1,%d0 .loc 1 2447 0 discriminator 1 tst.b %d0 jeq .L511 move.l -4468(%fp),%a0 .LVL743: move.l %d1,(%a0) .L510: 2448 %REPEAT .loc 1 2448 0 discriminator 1 clr.l %d2 move.b %d0,%d2 sub.l %d2,%d1 .LDL35: 2449 op(cc(x), l) .loc 1 2449 0 move.l -4468(%fp),%a1 move.l (%a1),-(%sp) clr.l %d0 move.b -22(%fp,%d3.l),%d0 move.l %d0,-(%sp) move.l 64(%a1),%a0 jsr OP.6243 .LVL744: addq.l #8,%sp 2450 def lab(clab+1) %IF cnest(cp)&1 # 0 2451 cp = cp-1 .loc 1 2451 0 move.l -4458(%fp),%d0 addq.l #1,%d0 move.l %d0,-(%sp) lea (-4462,%fp),%a0 jsr DEFLAB.7172 .LVL745: addq.l #4,%sp .L512: .loc 1 2451 0 move.l -4454(%fp),%d0 subq.l #1,%d0 move.l %d0,-4454(%fp) 2452 clab = clab-cnest(cp)&1 .loc 1 2452 0 move.b CNEST.7146(%d0.l),%d0 and.b #1,%d0 and.l #255,%d0 sub.l %d0,-4458(%fp) 2453 ->top .loc 1 2453 0 jra .L697 .LVL746: .L665: 2454 2455 c(78): !fresult 2456 c(79): !mresult 2457 c(80): open = 0; !return, true, false 2458 c(82): access = 0; !stop .loc 1 2458 0 move.l -4468(%fp),%a0 clr.l 20(%a0) .L516: 2459 c(89): !addop .loc 1 2459 0 move.l -4468(%fp),%a1 clr.l 24(%a1) .L518: 2460 c(81): bp=bp+1 %AND buff(bp)=x; ->top; !monitor 2461 .loc 1 2461 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2462 c(65): pop lit; op('e', lit); ->atop; !signal .loc 1 2462 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b X.6040+3,104710(%a0,%d0.l) 2463 .loc 1 2463 0 jra .L697 .L514: jra .L515 .L517: jra .L518 .L519: .loc 1 2463 0 lea (-4462,%fp),%a0 jsr POPLIT.7272 .LVL584: 2464 c(51): bp=bp+1 %AND buff(bp)='S'; ->top; !eq .loc 1 2464 0 move.l LIT.6117,-(%sp) pea 101.w move.l -4468(%fp),%a2 move.l 64(%a2),%a0 jsr OP.6243 .LVL585: addq.l #8,%sp jra .L421 .L520: 2465 c(53): bp=bp+1 %AND buff(bp)='j'; ->top; !jam transfer .loc 1 2465 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2466 c(52): bp=bp+1 %AND buff(bp)='Z'; ->top; !eqeq .loc 1 2466 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #83,104710(%a0,%d0.l) .loc 1 2466 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2467 .loc 1 2467 0 jra .L697 .L521: .loc 1 2467 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #106,104710(%a0,%d0.l) .loc 1 2467 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2468 c(74):%IF level = 0 %START; !begin .loc 1 2468 0 jra .L697 .L522: .loc 1 2468 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #90,104710(%a0,%d0.l) 2469 %IF progmode <= 0 %THEN progmode = 1 %ELSE fault(7) .loc 1 2469 0 jra .L697 .L523: .loc 1 2469 0 move.l -4468(%fp),%a2 tst.l 48(%a2) jne .L526 .loc 1 2469 0 discriminator 1 tst.l PROGMODE.6096 jgt .L525 2470 {Permit BEGIN after external defs} .loc 1 2470 0 moveq #1,%d0 move.l %d0,PROGMODE.6096 .L524: .L526: 2471 %FINISH 2472 spec mode = level+1 .loc 1 2472 0 move.l -4468(%fp),%a0 move.l 48(%a0),%d1 addq.l #1,%d1 move.l %d1,SPECMODE.6098 2473 block x = 0 .loc 1 2473 0 clr.l BLOCKX.6119 .loc 1 2473 0 pea 7.w move.l -4468(%fp),%a0 jsr FAULT.6279 .LVL586: addq.l #4,%sp jra .L526 .L527: 2474 bp=bp+1 %AND buff(bp)='H'; %RETURN .loc 1 2474 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2475 c(77):perm = 0; lines = 0; stats = 0; !endofperm .loc 1 2475 0 move.l 64(%a0),%a0 move.b #72,104710(%a0,%d0.l) 2476 close input .loc 1 2476 0 jra .L383 .L525: .loc 1 2476 0 clr.l PERM.6095 .loc 1 2476 0 jsr CLOSEINPUT .LVL587: .LBB539: .LBB540: .loc 2 628 0 moveq #1,%d0 move.l %d0,_imp_InStream move.l _imp_infile+280,_imp_InFile pea __PRETTY_FUNCTION__.5586 jsr check_instream .LVL588: addq.l #4,%sp .LVL589: .LBE540: .LBE539: 2477 select input(source) .loc 1 2477 0 clr.l LINES.6050 2478 list = list-1 .loc 1 2478 0 clr.l STATS.6056 .loc 1 2478 0 subq.l #1,LIST.6120 2479 tbase = tmax; tstart = tmax .loc 1 2479 0 move.l -4468(%fp),%a0 move.l 52(%a0),%d0 move.l %d0,56(%a0) 2480 %RETURN .loc 1 2480 0 move.l %d0,60(%a0) .loc 1 2480 0 jra .L383 .L528: 2481 c(76):%IF include # 0 %AND x = 0 %START; !end of ... 2482 lines = include; sstype = 0; !include .loc 1 2482 0 move.l INCLUDE.6094,%d0 jeq .L529 .loc 1 2482 0 discriminator 1 move.l %d0,LINES.6050 2483 close input .loc 1 2483 0 tst.l X.6040 jeq .L718 .L529: .loc 1 2483 0 discriminator 1 clr.l SSTYPE.6097 .loc 1 2483 0 discriminator 1 jsr CLOSEINPUT .LVL593: 2484 list = include list .loc 1 2484 0 discriminator 1 move.l INCLUDELIST.6092,LIST.6120 2485 include level = 0 .loc 1 2485 0 discriminator 1 clr.l INCLUDELEVEL.6093 2486 include = 0; select input(source); %RETURN .loc 1 2486 0 discriminator 1 clr.l INCLUDE.6094 .LVL594: .LBB544: .LBB545: .loc 2 628 0 discriminator 1 moveq #1,%d0 move.l %d0,_imp_InStream move.l _imp_infile+280,_imp_InFile pea __PRETTY_FUNCTION__.5586 jsr check_instream .LVL595: addq.l #4,%sp jra .L383 .LVL596: .L531: .LBE545: .LBE544: .LBB546: .LBB543: 2487 %FINISH 2488 ss = -1; !prog/file .loc 1 2488 0 moveq #-1,%d1 move.l %d1,SS.6090 .L530: 2489 c(75):compile end(x); %RETURN; !%END 2490 .loc 1 2490 0 move.l X.6040,%d2 .LVL590: .LBB541: .LBB542: 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) .loc 1 2494 0 move.l LIT.6117,-(%sp) moveq #122,%d2 .LVL602: sub.l X.6040,%d2 move.l %d2,-(%sp) move.l -4468(%fp),%a1 move.l 64(%a1),%a0 jsr OP.6243 .LVL603: addq.l #8,%sp jra .L697 .LVL604: .L545: 2495 ->top 2496 c(83):list = list+x-2; ->top; !%LIST/%ENDOFLIST 2497 c(84):reals ln = x; ->top; !%REALS long/normal .loc 1 2497 0 move.l LIST.6120,%d0 add.l X.6040,%d0 subq.l #2,%d0 move.l %d0,LIST.6120 2498 c(86):%IF include # 0 %START; !include "file" .loc 1 2498 0 jra .L697 .L546: .loc 1 2498 0 move.l X.6040,REALSLN.6071 2499 fault(7); %RETURN .loc 1 2499 0 jra .L697 .L547: .loc 1 2499 0 tst.l INCLUDE.6094 jeq .L548 .loc 1 2499 0 discriminator 1 pea 7.w move.l -4468(%fp),%a0 jsr FAULT.6279 .LVL605: addq.l #4,%sp jra .L383 .L548: 2500 %FINISH 2501 get next; !sconst .loc 1 2501 0 lea (-4462,%fp),%a0 jsr GETNEXT.7175 .LVL606: 2502 include file = string(x-x'4000'+stbase) 2503 %begin 2504 %on 9 %start; Abandon(9); %finish .loc 1 2504 0 pea 63.w pea -3910(%fp) move.l -4468(%fp),%a0 move.l 64(%a0),%d0 add.l #104454,%d0 move.l %d0,-(%sp) jsr _imp_strncpy .LVL607: lea (12,%sp),%sp .loc 1 2504 0 pea 1.w pea _imp_event+532 jsr __sigsetjmp .LVL608: addq.l #8,%sp tst.l %d0 jne .L551 .LVL609: pea 512.w pea _imp_event jsr _imp_on_event_enter .LVL610: addq.l #8,%sp tst.l %a0 jne .L552 .LVL611: .L551: 2505 open input(3, include file) .loc 1 2505 0 pea 9.w move.l -4468(%fp),%a1 move.l 64(%a1),%a0 jsr ABANDON.6169 .LVL612: addq.l #4,%sp .L552: .loc 1 2505 0 discriminator 1 lea (-256,%sp),%sp move.l %sp,%d0 pea 256.w pea -3654(%fp) move.l %d0,-(%sp) jsr memcpy .LVL613: lea (12,%sp),%sp pea 3.w jsr OPENINPUT .LVL614: lea (260,%sp),%sp .L553: 2506 %end 2507 include = lines; lines = 0 .loc 1 2507 0 discriminator 1 move.l LINES.6050,INCLUDE.6094 2508 include list = list; include level = level .loc 1 2508 0 discriminator 1 clr.l LINES.6050 .loc 1 2508 0 discriminator 1 move.l LIST.6120,INCLUDELIST.6092 2509 select input(3) .loc 1 2509 0 discriminator 1 move.l -4468(%fp),%a2 move.l 48(%a2),INCLUDELEVEL.6093 .LVL615: .LBB547: .LBB548: .loc 2 628 0 discriminator 1 moveq #3,%d0 move.l %d0,_imp_InStream move.l _imp_infile+832,_imp_InFile pea __PRETTY_FUNCTION__.5586 jsr check_instream .LVL616: addq.l #4,%sp jra .L697 .LVL617: .L554: .LBE548: .LBE547: 2510 ->top 2511 2512 c(154):dimension = dimension+1; !dbsep 2513 fault(11) %IF dimension = dim limit+1 .loc 1 2513 0 move.l DIMENSION.6109,%d0 addq.l #1,%d0 move.l %d0,DIMENSION.6109 .loc 1 2513 0 moveq #7,%d1 cmp.l %d0,%d1 jne .L697 2514 ->top .loc 1 2514 0 pea 11.w move.l -4468(%fp),%a0 jsr FAULT.6279 .LVL618: addq.l #4,%sp jra .L697 .L555: 2515 c(145):set bp; ->top; !crb 2516 c(146):set bp; !rcrb .loc 1 2516 0 lea (-4462,%fp),%a0 jsr SETBP.7207 .LVL619: jra .L697 .L556: 2517 c(142): !bplrb .loc 1 2517 0 lea (-4462,%fp),%a0 jsr SETBP.7207 .LVL620: .L557: 2518 dimension = 1 %IF dimension = 0 .loc 1 2518 0 tst.l DIMENSION.6109 jne .L558 2519 op('d', dimension); op(',', defs) .loc 1 2519 0 moveq #1,%d2 .LVL621: move.l %d2,DIMENSION.6109 .L558: .loc 1 2519 0 discriminator 1 move.l DIMENSION.6109,-(%sp) pea 100.w lea OP.6243,%a2 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 jsr (%a2) .LVL622: addq.l #8,%sp 2520 %IF class # 146 %START .loc 1 2520 0 discriminator 1 move.l -4450(%fp),-(%sp) pea 44.w move.l -4468(%fp),%a3 move.l 64(%a3),%a0 jsr (%a2) .LVL623: addq.l #8,%sp .loc 1 2520 0 discriminator 1 cmp.l #146,-4442(%fp) jne .L721 .L559: .L561: 2521 set subs(defs) .loc 1 2521 0 move.l -4450(%fp),-(%sp) lea (-4462,%fp),%a0 jsr SETSUBS.7200 .LVL624: addq.l #4,%sp 2522 fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0 %OR level=0 .loc 1 2522 0 move.l 64(%a3),%a0 move.l 40(%a3),%d0 add.l #7009,%d0 tst.w (%a0,%d0.l*2) jge .L560 2523 %FINISH .loc 1 2523 0 tst.l 4(%a3) jne .L560 2524 dimension = 0; defs = 0 .loc 1 2524 0 discriminator 1 clr.l DIMENSION.6109 .loc 1 2524 0 tst.l 48(%a3) jne .L561 .L560: 2525 ->top .loc 1 2525 0 discriminator 1 clr.l -4450(%fp) .loc 1 2525 0 discriminator 1 jra .L697 .L721: 2526 c(128):id = dupid; ->top; !EDUP .loc 1 2526 0 pea 13.w move.l -4468(%fp),%a0 jsr FAULT.6279 .LVL625: addq.l #4,%sp jra .L561 .LVL626: .L562: 2527 c(130):block x = x .loc 1 2527 0 move.l -4468(%fp),%a0 move.l -4504(%fp),44(%a0) 2528 op('F', 0) %IF decl&spec = 0 %AND level # 0; !jump round proc .loc 1 2528 0 jra .L697 .L563: .loc 1 2528 0 move.l X.6040,BLOCKX.6119 .loc 1 2528 0 btst #0,DECL.6064+3 jne .L566 2529 c(125):dupid = id; !%DUP .loc 1 2529 0 move.l -4468(%fp),%a1 tst.l 48(%a1) jne .L722 2530 %return %if Level < 0 {spec about} .loc 1 2530 0 move.l -4468(%fp),%a0 move.l 44(%a0),-4504(%fp) .LVL627: jra .L568 .L722: .loc 1 2530 0 clr.l -(%sp) pea 70.w move.l 64(%a1),%a0 jsr OP.6243 .LVL628: addq.l #8,%sp .L564: .L566: .loc 1 2530 0 move.l -4468(%fp),%a2 move.l 44(%a2),-4504(%fp) .LVL629: .loc 1 2530 0 tst.l 48(%a2) jlt .L383 .L567: .L568: 2531 c(90): def(x); ->top; !ident 2532 c(131): !cident .loc 1 2532 0 discriminator 1 move.l X.6040,-(%sp) lea (-4462,%fp),%a0 jsr DEF.7225 .LVL630: addq.l #4,%sp jra .L697 .L569: 2533 %IF tag(x)_flags&(b'1111111'+const bit) = iform+const bit %START .loc 1 2533 0 move.l X.6040,%d2 .LVL631: move.l -4468(%fp),%a3 move.l 64(%a3),%a0 move.l %d2,%d0 lsl.l #4,%d0 btst #0,26029(%a0,%d0.l) jne .L570 2534 tag(x)_format = lit .loc 1 2534 0 move.l LIT.6117,26024(%a0,%d0.l) 2535 %FINISH %ELSE %START .loc 1 2535 0 jra .L697 .L570: 2536 set const(lit) %IF pending # 0 .loc 1 2536 0 tst.l -4446(%fp) jeq .L571 2537 def(x) .loc 1 2537 0 move.l LIT.6117,-(%sp) jsr SETCONST.6246 .LVL632: addq.l #4,%sp .L571: .loc 1 2537 0 discriminator 1 move.l %d2,-(%sp) lea (-4462,%fp),%a0 jsr DEF.7225 .LVL633: 2538 op('A', 1) .loc 1 2538 0 discriminator 1 move.l #1,(%sp) pea 65.w move.l -4468(%fp),%a1 move.l 64(%a1),%a0 jsr OP.6243 .LVL634: addq.l #8,%sp jra .L697 .LVL635: .L572: 2539 %FINISH 2540 cident = x 2541 ->top 2542 c(124):dubious = 1 %IF tag(cident)_flags&prot # 0; !%DUBIOUS 2543 ->top .loc 1 2543 0 jra .L697 .L573: .L576: .LBB549: .LBB550: 2544 c(97): !f .loc 1 2544 0 moveq #1,%d0 move.l %d0,DUBIOUS.6104 .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 .loc 1 2560 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.l X.6040,%d0 lsl.l #4,%d0 move.w 26030(%a0,%d0.l),%a1 .LVL638: 2561 %IF k < 0 %THEN op('n', -k) %ELSE op('@', k) .loc 1 2561 0 tst.l %a1 jlt .L723 .L588: 2562 ->top .loc 1 2562 0 move.l %a1,%d0 neg.l %d0 move.l %d0,-(%sp) pea 110.w jsr OP.6243 .LVL641: addq.l #8,%sp jra .L697 .L589: 2563 c(121):set const(0); ->top; !special for zero 2564 c(167):bp=bp+1; buff(bp)='G'; ->pstr; !aconst (alias) .loc 1 2564 0 clr.l -(%sp) move.l -4468(%fp),%a1 move.l 64(%a1),%a0 jsr SETCONST.6246 .LVL642: addq.l #4,%sp jra .L697 .L590: 2565 c(const): !const .loc 1 2565 0 move.l %a1,-(%sp) pea 64.w jsr OP.6243 .LVL639: addq.l #8,%sp jra .L697 .L583: jra .L587 .L584: jra .L587 .L585: jra .L587 .L586: jra .L587 .LVL640: .L723: .loc 1 2565 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2566 %IF x < 0 %START; !constinteger .loc 1 2566 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #71,104710(%a0,%d0.l) .L591: .loc 1 2566 0 move.l X.6040,%d0 jlt .L724 .L593: 2567 set const(tag(-x)_format); ->top .loc 1 2567 0 move.l -4468(%fp),%a2 move.l 64(%a2),%a0 lsl.l #4,%d0 move.l %a0,%a1 sub.l %d0,%a1 move.l 26024(%a1),-(%sp) jsr SETCONST.6246 .LVL647: addq.l #4,%sp jra .L697 .L595: 2568 %FINISH 2569 %IF x&x'4000' # 0 %START; !strings 2570 bp=bp+1 %AND buff(bp)='''' .loc 1 2570 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2571 pstr: x = x-x'4000'+stbase .loc 1 2571 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #39,104710(%a0,%d0.l) jra .L591 .L724: 2572 k = byteinteger(x) .loc 1 2572 0 move.l X.6040,%a1 lea (-16384,%a1),%a1 add.l STBASE.6086,%a1 move.l %a1,X.6040 .loc 1 2572 0 move.b (%a1),%d3 clr.l %d2 .LVL643: move.b %d3,%d2 .LVL644: 2573 bp=bp+1 %AND buff(bp)=k .loc 1 2573 0 move.l BP.6127,%d1 move.l %d1,%d0 addq.l #1,%d0 move.l %d0,BP.6127 2574 k = k+x .loc 1 2574 0 move.l -4468(%fp),%a2 move.l 64(%a2),%a0 move.b %d3,104710(%a0,%d1.l) .loc 1 2574 0 add.l %a1,%d2 .LVL645: 2575 %CYCLE 2576 ->top %IF x = k .loc 1 2576 0 cmp.l %a1,%d2 jeq .L697 move.l %d0,%d1 sub.l %a1,%d1 add.l %d2,%d1 .loc 1 2576 0 cmp.l %a0,%d1 jne .L594 move.l %d2,X.6040 move.l %a0,BP.6127 jra .L697 .LVL646: .L592: 2577 x = x+1; bp=bp+1 %AND buff(bp)=byteinteger(x) 2578 %REPEAT .loc 1 2578 0 move.l %d0,%a0 addq.l #1,%a0 .loc 1 2578 0 move.l %a0,%d0 2579 %FINISH .loc 1 2579 0 sub.l %d0,%a1 .L594: .loc 1 2579 0 move.l -4468(%fp),%a3 move.l 64(%a3),%a2 move.b (%a1,%a0.l),104710(%a2,%d0.l) .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 .loc 1 2598 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2599 .loc 1 2599 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #105,104710(%a0,%d0.l) .loc 1 2599 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2600 !own arrays .loc 1 2600 0 jra .L697 .L596: .loc 1 2600 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #97,104710(%a0,%d0.l) 2601 .loc 1 2601 0 jra .L697 .L597: 2602 c(132):ocount = ub-lb+1 2603 def(x); !oident .loc 1 2603 0 move.l UB.7153,%d0 sub.l LB.7152,%d0 addq.l #1,%d0 move.l %d0,OCOUNT.6099 .loc 1 2603 0 move.l X.6040,-(%sp) lea (-4462,%fp),%a0 jsr DEF.7225 .LVL648: 2604 dimension = 1; set subs(1) .loc 1 2604 0 moveq #1,%d0 move.l %d0,DIMENSION.6109 2605 %IF next = 0 %START; !no initialisation .loc 1 2605 0 move.l #1,(%sp) lea (-4462,%fp),%a0 jsr SETSUBS.7200 .LVL649: addq.l #4,%sp .loc 1 2605 0 tst.l -4434(%fp) jne .L598 2606 op('A', ocount) %IF ocount > 0 .loc 1 2606 0 move.l OCOUNT.6099,%d0 jgt .L725 .L599: 2607 ocount = -1 .loc 1 2607 0 discriminator 1 moveq #-1,%d0 move.l %d0,OCOUNT.6099 .loc 1 2607 0 move.l %d0,-(%sp) pea 65.w move.l -4468(%fp),%a1 move.l 64(%a1),%a0 jsr OP.6243 .LVL650: addq.l #8,%sp jra .L599 .L598: 2608 %FINISH %ELSE %START; !initialisation given .loc 1 2608 0 discriminator 1 jra .L697 .L725: 2609 get next .loc 1 2609 0 lea (-4462,%fp),%a0 jsr GETNEXT.7175 .LVL651: jra .L697 .L600: 2610 %FINISH 2611 ->top 2612 c(162):lit = ocount; ->ins; !indef 2613 c(143):pop lit; !orb .loc 1 2613 0 move.l OCOUNT.6099,LIT.6117 .L601: 2614 ins: fault(10) %AND lit = 0 %IF lit < 0 .loc 1 2614 0 lea (-4462,%fp),%a0 jsr POPLIT.7272 .LVL658: jra .L601 .L726: 2615 get next .loc 1 2615 0 tst.l LIT.6117 jlt .L726 .L603: .loc 1 2615 0 discriminator 1 lea (-4462,%fp),%a0 jsr GETNEXT.7175 .LVL652: .L604: 2616 ->inst .loc 1 2616 0 pea 10.w move.l -4468(%fp),%a0 jsr FAULT.6279 .LVL659: addq.l #4,%sp 2617 c(139): !osep (x=19) .loc 1 2617 0 clr.l LIT.6117 jra .L603 .L605: .L606: 2618 c(153):lit = 1 2619 inst: pop def %IF pending # 0; !ownt (x=0) .loc 1 2619 0 moveq #1,%d1 move.l %d1,LIT.6117 jra .L604 .LVL660: .L727: 2620 op('A', lit) .loc 1 2620 0 move.l -4446(%fp),%d0 jeq .L607 .LBB551: .LBB552: .loc 1 2620 0 discriminator 1 move.l LIT.6117,%d2 .LVL654: move.l %d2,-(%sp) pea 65.w move.l -4468(%fp),%a1 move.l 64(%a1),%a0 jsr OP.6243 .LVL655: addq.l #8,%sp 2621 ocount = ocount-lit .loc 1 2621 0 discriminator 1 move.l OCOUNT.6099,%d0 sub.l %d2,%d0 move.l %d0,OCOUNT.6099 2622 %IF ocount >= 0 %START .loc 1 2622 0 discriminator 1 jlt .L610 2623 ->top %IF x # 0; !more coming .loc 1 2623 0 tst.l X.6040 jne .L697 .L609: 2624 ocount = -1 %AND %RETURN %IF ocount = 0; !all done .loc 1 2624 0 tst.l %d0 jeq .L727 .L608: .L610: 2625 %FINISH .loc 1 2625 0 moveq #-1,%d0 move.l %d0,OCOUNT.6099 2626 fault(11); %RETURN .loc 1 2626 0 pea 11.w move.l -4468(%fp),%a0 jsr FAULT.6279 .LVL656: addq.l #4,%sp jra .L383 .LVL657: .L602: .loc 1 2626 0 jra .L383 .LVL661: .L611: 2627 2628 c(swit):op('W', tag(x)_index); inhibit = 1; ->atop 2629 c(134):def(x); !swid .loc 1 2629 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.l X.6040,%d0 lsl.l #4,%d0 move.w 26030(%a0,%d0.l),%a2 move.l %a2,-(%sp) pea 87.w jsr OP.6243 .LVL662: addq.l #8,%sp 2630 n = ub-lb+1 .loc 1 2630 0 moveq #1,%d0 move.l -4468(%fp),%a0 move.l %d0,4(%a0) .loc 1 2630 0 move.l X.6040,-(%sp) lea (-4462,%fp),%a0 jsr DEF.7225 .LVL663: addq.l #4,%sp .LVL664: .loc 1 2630 0 move.l UB.7153,%a0 sub.l LB.7152,%a0 2631 n = (n+15)>>4; !slots needed (includes zero) .loc 1 2631 0 jra .L421 .L612: .loc 1 2631 0 moveq #16,%d0 add.l %a0,%d0 move.l %d0,%d2 .LVL665: lsr.l #4,%d2 .LVL666: 2632 j = dmax; dmax = dmax+n+2 .loc 1 2632 0 move.l DMAX.6088,%a2 .LVL667: 2633 abandon(1) %IF dmax >= dmin .loc 1 2633 0 lea 2(%a2,%d2.l),%a0 move.l %a0,DMAX.6088 .loc 1 2633 0 move.l -4468(%fp),%a1 cmp.l 40(%a1),%a0 jge .L728 .L613: 2634 tag(x)_format = j .loc 1 2634 0 discriminator 1 move.l X.6040,%d0 lsl.l #4,%d0 move.l -4468(%fp),%a3 move.l 64(%a3),%a0 add.l %d0,%a0 move.l %a2,26024(%a0) .loc 1 2634 0 pea 1.w move.l 64(%a1),%a0 jsr ABANDON.6169 .LVL674: addq.l #4,%sp jra .L613 .LVL675: .L615: 2635 dict(j) = lb; dict(j+1) = ub .loc 1 2635 0 discriminator 1 move.l 64(%a3),%a0 move.w LB.7152+2,14018(%a0,%a2.l*2) 2636 %CYCLE .loc 1 2636 0 discriminator 1 move.l 64(%a3),%a0 move.w UB.7153+2,14020(%a0,%a2.l*2) .LVL668: 2637 n = n-1 .loc 1 2637 0 discriminator 1 move.l %d2,%d0 subq.l #1,%d0 .LVL669: 2638 ->top %IF n < 0 .loc 1 2638 0 discriminator 1 jmi .L697 move.l %a2,%d0 .LVL670: add.l %d2,%d0 .LVL671: .L614: .loc 1 2638 0 cmp.l %a2,%d0 jne .L614 jra .L697 .LVL673: .L728: 2639 j = j+1; dict(j+1) = 0 .loc 1 2639 0 addq.l #1,%a2 .LVL672: 2640 %REPEAT .loc 1 2640 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 clr.w 14020(%a0,%a2.l*2) .LDL33: 2641 c(151):stats = stats-1; !slab 2642 fault(7) %AND %RETURN %IF x < tbase .loc 1 2642 0 subq.l #1,STATS.6056 .loc 1 2642 0 move.l X.6040,%d0 move.l -4468(%fp),%a2 cmp.l 56(%a2),%d0 jlt .L729 .L616: 2643 %IF pending # 0 %START; !explicit label .loc 1 2643 0 tst.l -4446(%fp) jne .L730 .L617: .loc 1 2643 0 pea 7.w move.l %a2,%a0 jsr FAULT.6279 .LVL685: addq.l #4,%sp jra .L383 .L730: 2644 def s lab(pstack(1)) .loc 1 2644 0 move.l PSTACK.7168,-(%sp) lea (-4462,%fp),%a0 jsr DEFSLAB.7249 .LVL686: addq.l #4,%sp .L618: .LVL687: .L626: 2645 %FINISH %ELSE %START 2646 fault(4) %AND %RETURN %IF tag(x)_app # 0 .loc 1 2646 0 move.l -4468(%fp),%a3 move.l 64(%a3),%a0 move.l %d0,%d1 lsl.l #4,%d1 tst.l 26020(%a0,%d1.l) jne .L731 .L619: 2647 tag(x)_app = 1 .loc 1 2647 0 lsl.l #4,%d0 moveq #1,%d1 move.l %d1,26020(%a0,%d0.l) .loc 1 2647 0 pea 4.w move.l %a3,%a0 jsr FAULT.6279 .LVL689: addq.l #4,%sp jra .L383 .LVL690: .L732: .LBB556: 2648 n = tag(x)_format .loc 1 2648 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 .LVL676: move.l 26024(%a0,%d0.l),%d0 add.l %d0,%d0 add.l %d0,%a0 .LVL677: .LBB553: 2649 %FOR j = dict(n), 1, dict(n+1) %CYCLE 2650 def s lab(j) .loc 1 2650 0 move.w 14018(%a0),%d2 .LVL678: ext.l %d2 .LVL679: move.w 14020(%a0),%a2 .LVL680: .LBB554: .loc 1 2650 0 lea DEFSLAB.7249,%a3 .loc 1 2650 0 move.l %d2,-(%sp) lea (-4462,%fp),%a0 jsr (%a3) .LVL704: addq.l #4,%sp 2651 flush buffer %IF bp >= 128 .loc 1 2651 0 move.l %a2,%d0 sub.l %d2,%d0 .LVL681: .LBE554: jmi .L732 .LVL682: .L620: .loc 1 2651 0 discriminator 1 pea .LC76 .LVL691: lea (-1606,%fp),%a1 jsr _imp_c2istr .LVL692: addq.l #4,%sp move.l _imp_current_line,%d3 jne .L621 .loc 1 2651 0 is_stmt 0 move.l #2651,%d3 .L621: .loc 1 2651 0 discriminator 6 move.l _imp_current_file,%d0 jeq .L622 .loc 1 2651 0 discriminator 7 move.l %d0,-(%sp) lea (-1350,%fp),%a1 jsr _imp_c2istr .LVL693: addq.l #4,%sp .L623: .loc 1 2651 0 discriminator 9 clr.l -(%sp) pea 1.w pea 5.w lea (-256,%sp),%sp move.l %sp,%d0 move.l #256,%d4 move.l %d4,-(%sp) pea -1606(%fp) move.l %d0,-(%sp) lea memcpy,%a3 jsr (%a3) .LVL694: lea (12,%sp),%sp move.l %d3,-(%sp) lea (-256,%sp),%sp move.l %sp,%d0 move.l %d4,-(%sp) pea -1350(%fp) move.l %d0,-(%sp) jsr (%a3) .LVL695: lea (12,%sp),%sp jsr _signal_event .LVL696: lea (528,%sp),%sp jra .L620 .L622: .LBB555: .loc 1 2651 0 discriminator 8 lea (-2118,%fp),%a4 move.l #256,%d4 move.l %d4,-(%sp) pea .LC9 move.l %a4,-(%sp) lea memcpy,%a3 jsr (%a3) .LVL697: move.l %fp,%d5 .LVL698: add.l #-3398,%d5 .LVL699: move.l %d4,-(%sp) move.l %a4,-(%sp) move.l %d5,-(%sp) jsr (%a3) .LVL700: .LBE555: move.l %d4,-(%sp) move.l %d5,-(%sp) pea -1350(%fp) jsr (%a3) .LVL701: lea (36,%sp),%sp jra .L623 .LVL702: .L625: .loc 1 2651 0 moveq #127,%d0 cmp.l BP.6127,%d0 jge .L625 2652 %REPEAT .loc 1 2652 0 subq.l #1,%d2 .LVL683: .loc 1 2652 0 lea FLUSHBUFFER.6137,%a4 jra .L624 .LVL684: .L729: .LBE553: .loc 1 2652 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 jsr (%a4) .LVL705: jra .L625 .LVL706: .L627: .LBE556: 2653 %FINISH 2654 inhibit = 1 .loc 1 2654 0 cmp.l %a2,%d2 jeq .L626 .loc 1 2654 0 discriminator 1 moveq #1,%d0 move.l -4468(%fp),%a0 move.l %d0,4(%a0) .loc 1 2654 0 is_stmt 1 cmp.l %a2,%d2 jeq .L626 .L624: 2655 %RETURN .loc 1 2655 0 discriminator 1 jra .L383 .LVL688: .L731: .loc 1 2655 0 addq.l #1,%d2 .LVL703: 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 .loc 1 2658 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2659 .loc 1 2659 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #112,104710(%a0,%d0.l) .loc 1 2659 0 move.l BP.6127,%d0 move.l -4468(%fp),%a2 move.l 64(%a2),%a0 move.b #112,104710(%a0,%d0.l) 2660 !constant expressions .loc 1 2660 0 jra .L697 .L628: .loc 1 2660 0 move.l 64(%a2),%a0 move.b #69,104711(%a0,%d0.l) 2661 .loc 1 2661 0 addq.l #2,%d0 move.l %d0,BP.6127 2662 c(155): !pconst .loc 1 2662 0 jra .L697 .L629: 2663 %IF x < 0 %THEN lit = tag(-x)_format %c .loc 1 2663 0 move.l X.6040,%d0 jlt .L733 .L630: 2664 %ELSE lit = lit pool(x) .loc 1 2664 0 lsl.l #4,%d0 move.l -4468(%fp),%a3 move.l 64(%a3),%a0 sub.l %d0,%a0 move.l 26024(%a0),LIT.6117 2665 pending = pending+1; pstack(pending) = lit; ->top .loc 1 2665 0 move.l -4446(%fp),%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,-4446(%fp) .loc 1 2665 0 jra .L631 .L632: 2666 c(156):lit = pstack(pending); lit = -lit %IF lit < 0 .loc 1 2666 0 move.l LIT.6117,PSTACK.7168(%d0.l*4) 2667 pstack(pending) = lit; ->top; !cmod .loc 1 2667 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.l 8560(%a0,%d0.l*4),LIT.6117 .L631: .loc 1 2667 0 jra .L697 .L733: .loc 1 2667 0 move.l -4446(%fp),%d1 subq.l #1,%d1 move.l PSTACK.7168(%d1.l*4),%d0 move.l %d0,LIT.6117 .loc 1 2667 0 move.l LIT.6117,PSTACK.7168(%d1.l*4) 2668 c(157):lit = -pstack(pending); pstack(pending) = lit; ->top; !csign .loc 1 2668 0 jlt .L734 .L633: .loc 1 2668 0 jra .L697 .L734: 2669 c(158):lit = \pstack(pending); pstack(pending) = lit; ->top; !cuop .loc 1 2669 0 neg.l %d0 move.l %d0,LIT.6117 jra .L633 .L634: .loc 1 2669 0 move.l -4446(%fp),%d0 subq.l #1,%d0 lea PSTACK.7168,%a0 move.l (%a0,%d0.l*4),%d1 neg.l %d1 move.l %d1,LIT.6117 2670 c(159): !cop1 .loc 1 2670 0 move.l %d1,(%a0,%d0.l*4) .loc 1 2670 0 move.l -4446(%fp),%d0 subq.l #1,%d0 lea PSTACK.7168,%a0 move.l (%a0,%d0.l*4),%d1 not.l %d1 move.l %d1,LIT.6117 2671 c(160): !cop2 .loc 1 2671 0 jra .L697 .L635: .loc 1 2671 0 move.l %d1,(%a0,%d0.l*4) 2672 c(161):pending = pending-1; !cop3 .loc 1 2672 0 jra .L697 .L636: .L638: 2673 lit2 = pstack(pending+1); lit = pstack(pending) .loc 1 2673 0 move.l -4446(%fp),%d0 move.l %d0,%d1 subq.l #1,%d1 move.l %d1,-4446(%fp) .loc 1 2673 0 lea PSTACK.7168,%a0 move.l (%a0,%d1.l*4),-4488(%fp) .LVL707: 2674 ->litop(x>>2) .loc 1 2674 0 move.l -8(%a0,%d0.l*4),LIT.6117 .LVL708: .loc 1 2674 0 move.l X.6040,%d0 lsr.l #2,%d0 move.l %d0,-4492(%fp) .LVL709: move.l #.LC70,-4500(%fp) move.l #2674,-4496(%fp) .LVL710: .L639: 2675 litop(10):lit = lit*lit2; ->setl 2676 litop(12): .loc 1 2676 0 move.l -4488(%fp),%d2 .LVL714: muls.l LIT.6117,%d2 move.l %d2,LIT.6117 2677 litop(3):n = 1; !lit = lit\\lit2 .loc 1 2677 0 jra .L657 .LVL715: .L642: .L643: 2678 fault(10) %IF lit2 < 0 .loc 1 2678 0 tst.l -4488(%fp) jlt .L735 .L644: 2679 %WHILE lit2 > 0 %CYCLE .loc 1 2679 0 pea 10.w move.l -4468(%fp),%a0 jsr FAULT.6279 .LVL722: addq.l #4,%sp jra .L644 .L686: 2680 lit2 = lit2-1 .loc 1 2680 0 tst.l -4488(%fp) jle .L686 .loc 1 2680 0 discriminator 1 subq.l #1,-4488(%fp) .LVL717: .loc 1 2680 0 discriminator 1 tst.l -4488(%fp) jne .L646 .LVL719: .L645: .loc 1 2680 0 moveq #1,%d0 jra .L645 .LVL723: .L647: 2681 n = n*lit .loc 1 2681 0 move.l LIT.6117,%d1 moveq #1,%d0 .LVL716: .L646: .loc 1 2681 0 discriminator 1 muls.l %d1,%d0 .LVL718: 2682 %REPEAT 2683 lit = n; ->setl .loc 1 2683 0 move.l %d0,LIT.6117 .L641: .LVL720: .L657: 2684 litop(1):lit = lit<setl 2685 litop(2):lit = lit>>lit2; ->setl .loc 1 2685 0 move.l LIT.6117,%d0 move.l -4488(%fp),%d3 lsl.l %d3,%d0 move.l %d0,LIT.6117 2686 litop(5):lit = lit&lit2; ->setl .loc 1 2686 0 jra .L657 .L648: .loc 1 2686 0 move.l LIT.6117,%d0 move.l -4488(%fp),%d1 lsr.l %d1,%d0 move.l %d0,LIT.6117 2687 litop(11): .loc 1 2687 0 jra .L657 .L649: .loc 1 2687 0 move.l -4488(%fp),%d2 .LVL724: and.l %d2,LIT.6117 2688 litop(4):%IF lit2 = 0 %THEN fault(10) %ELSE lit = lit//lit2 .loc 1 2688 0 jra .L657 .LVL725: .L650: .L651: 2689 ->setl .loc 1 2689 0 tst.l -4488(%fp) jeq .L736 .L652: 2690 litop(8):lit = lit+lit2; ->setl .loc 1 2690 0 pea 10.w move.l -4468(%fp),%a0 jsr FAULT.6279 .LVL726: addq.l #4,%sp jra .L657 .L653: 2691 litop(9):lit = lit-lit2; ->setl .loc 1 2691 0 move.l -4488(%fp),%d0 add.l %d0,LIT.6117 2692 litop(6):lit = lit!lit2; ->setl .loc 1 2692 0 jra .L657 .L654: .loc 1 2692 0 move.l -4488(%fp),%d1 sub.l %d1,LIT.6117 2693 litop(7):lit = lit!!lit2 .loc 1 2693 0 move.l LIT.6117,%d3 divs.l -4488(%fp),%d3 move.l %d3,LIT.6117 jra .L657 .L736: .loc 1 2693 0 jra .L657 .L655: .loc 1 2693 0 move.l -4488(%fp),%d2 .LVL727: or.l %d2,LIT.6117 2694 .loc 1 2694 0 jra .L657 .LVL728: .L656: .loc 1 2694 0 move.l -4488(%fp),%d3 eor.l %d3,LIT.6117 jra .L657 .L658: 2695 setl: pstack(pending) = lit; ->top 2696 .loc 1 2696 0 move.l -4446(%fp),%d0 subq.l #1,%d0 move.l LIT.6117,PSTACK.7168(%d0.l*4) 2697 c(170):Fault(4) %if IMPCOM_Option # "" .loc 1 2697 0 jra .L697 .LVL721: .L735: 2698 IMPCOM_Option = String(x-x'4000'+Stbase); !Option string 2699 ->Top 2700 .loc 1 2700 0 pea -3142(%fp) pea IMPCOM+280 jsr _imp_strcmp .LVL729: addq.l #8,%sp tst.l %d0 jeq .L659 .loc 1 2700 0 discriminator 2 pea 255.w pea -2886(%fp) pea IMPCOM+280 jsr _imp_strncpy .LVL731: lea (12,%sp),%sp jra .L697 .L660: .LVL732: 2701 !string resolution 2702 2703 c(135):resln = 2; ->top; !dotl .loc 1 2703 0 pea 4.w move.l -4468(%fp),%a0 jsr FAULT.6279 .LVL730: addq.l #4,%sp .L659: 2704 c(136):resln = resln+1; ->top; !dotr .loc 1 2704 0 move.w #2,%a0 move.l %a0,-4480(%fp) 2705 c(55): op('r', resln); resln = 0; ->top; !resop .loc 1 2705 0 jra .L697 .LVL733: .L661: .loc 1 2705 0 addq.l #1,-4480(%fp) .LVL734: 2706 c(164):op('r', resln+4); resln = 0; !cresop .loc 1 2706 0 jra .L697 .L662: .loc 1 2706 0 move.l -4480(%fp),-(%sp) pea 114.w move.l -4468(%fp),%a1 move.l 64(%a1),%a0 jsr OP.6243 .LVL735: addq.l #8,%sp 2707 c(122):x = 6; ->cop; !%PRED .loc 1 2707 0 clr.l -4480(%fp) .LVL736: jra .L697 .LVL737: .L663: .loc 1 2707 0 move.l -4480(%fp),%a2 pea 4(%a2) pea 114.w move.l -4468(%fp),%a3 move.l 64(%a3),%a0 jsr OP.6243 .LVL738: addq.l #8,%sp 2708 c(87): set const(pstack(1)); !mass .loc 1 2708 0 clr.l -4480(%fp) .LVL739: .L664: .loc 1 2708 0 discriminator 1 moveq #6,%d0 move.l %d0,X.6040 .L506: .L509: 2709 bp=bp+1 %AND buff(bp)='P'; ->top .loc 1 2709 0 move.l PSTACK.7168,-(%sp) move.l -4468(%fp),%a1 move.l 64(%a1),%a0 jsr SETCONST.6246 .LVL747: addq.l #4,%sp .loc 1 2709 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2710 %END .loc 1 2710 0 move.l -4468(%fp),%a1 move.l 64(%a1),%a0 move.b #80,104710(%a0,%d0.l) .L397: 2711 .loc 1 2711 0 jra .L697 .L400: 2712 %END; !of compile block .loc 1 2712 0 discriminator 1 cmp.l #180,%d2 jhi .L400 .L401: .loc 1 2712 0 discriminator 1 move.l _imp_current_line,%d3 jne .L666 .loc 1 2712 0 is_stmt 0 move.l #2712,%d3 .L666: .loc 1 2712 0 discriminator 5 move.l _imp_current_file,%d0 jeq .L667 .loc 1 2712 0 discriminator 6 move.l %d0,-(%sp) lea (-1094,%fp),%a1 jsr _imp_c2istr .LVL748: addq.l #4,%sp .L668: .loc 1 2712 0 discriminator 8 pea 2225.w pea .LC70 move.l %d2,-(%sp) pea .LC77 move.l %d2,-(%sp) pea 3.w pea 6.w move.l %d3,-(%sp) lea (-256,%sp),%sp move.l %sp,%d0 pea 256.w pea -1094(%fp) move.l %d0,-(%sp) jsr memcpy .LVL749: lea (12,%sp),%sp jsr _signal_eventf .LVL750: lea (288,%sp),%sp jra .L401 .L667: .LBB557: .loc 1 2712 0 discriminator 7 move.l #256,%d4 move.l %d4,-(%sp) pea .LC9 pea -2118(%fp) lea memcpy,%a2 jsr (%a2) .LVL751: move.l %fp,%d5 .LVL752: add.l #-2630,%d5 .LVL753: move.l %d4,-(%sp) pea -2118(%fp) move.l %d5,-(%sp) jsr (%a2) .LVL754: .LBE557: move.l %d4,-(%sp) move.l %d5,-(%sp) pea -1094(%fp) jsr (%a2) .LVL755: lea (36,%sp),%sp jra .L668 .LVL756: .L670: 2713 .loc 1 2713 0 move.l C.6995(%d2.l*4),%a0 .loc 1 2713 0 movem.l -1672(%fp),#15612 unlk %fp rts .LVL1039: .L878: 2714 %ON 9 %START .loc 1 2714 0 pea 1.w pea _imp_event+532 jsr __sigsetjmp .LVL1057: addq.l #8,%sp tst.l %d0 jne .L881 .LVL1058: .loc 1 2714 0 is_stmt 0 discriminator 5 pea 512.w pea _imp_event jsr _imp_on_event_enter .LVL1059: addq.l #8,%sp tst.l %a0 jeq .L881 .LVL1060: .L882: 2715 abandon(5) .loc 1 2715 0 lea memcpy,%a2 .L669: jmp (%a0) .LVL501: .L704: .loc 1 2715 0 is_stmt 1 move.l _imp_current_line,%d3 jne .L671 move.l #2715,%d3 .L671: .loc 1 2715 0 is_stmt 0 discriminator 4 move.l _imp_current_file,%d0 jeq .L672 .loc 1 2715 0 discriminator 5 move.l %d0,-(%sp) lea (-838,%fp),%a1 jsr _imp_c2istr .LVL757: addq.l #4,%sp .L673: .loc 1 2715 0 discriminator 7 pea 2225.w pea .LC70 move.l %d2,-(%sp) pea .LC78 move.l %d2,-(%sp) pea 2.w pea 8.w move.l %d3,-(%sp) lea (-256,%sp),%sp move.l %sp,%d0 pea 256.w pea -838(%fp) move.l %d0,-(%sp) jsr (%a2) .LVL758: lea (12,%sp),%sp jsr _signal_eventf .LVL759: lea (288,%sp),%sp jra .L639 .L672: .LBB558: .loc 1 2715 0 discriminator 6 move.l #256,%d4 move.l %d4,-(%sp) pea .LC9 pea -2118(%fp) jsr (%a2) .LVL760: move.l %d4,-(%sp) pea -2118(%fp) pea -2374(%fp) jsr (%a2) .LVL761: .LBE558: move.l %d4,-(%sp) pea -2374(%fp) pea -838(%fp) jsr (%a2) .LVL762: lea (36,%sp),%sp jra .L673 .L676: .LBB559: .loc 1 2715 0 pea 5.w move.l #-105226,%a0 add.l %fp,%a0 jsr ABANDON.6169 .LVL1100: addq.l #4,%sp jra .L882 .cfi_endproc .LFE185: .section .rodata .align 2 FM.6284: .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .long .L351 .align 2 LITOP.7129: .long .L647 .long .L648 .long .L643 .long .L651 .long .L649 .long .L655 .long .L656 .long .L653 .long .L654 .long .L640 .long .L650 .long .L642 .align 2 C.6995: .long .L396 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L433 .long .L424 .long .L431 .long .L432 .long .L428 .long .L429 .long .L442 .long .L425 .long .L426 .long .L438 .long .L437 .long .L444 .long .L443 .long .L670 .long .L447 .long .L463 .long .L464 .long .L465 .long .L459 .long .L460 .long .L461 .long .L462 .long .L507 .long .L505 .long .L520 .long .L522 .long .L521 .long .L670 .long .L662 .long .L466 .long .L467 .long .L468 .long .L470 .long .L471 .long .L670 .long .L475 .long .L499 .long .L490 .long .L519 .long .L670 .long .L485 .long .L481 .long .L477 .long .L479 .long .L486 .long .L476 .long .L670 .long .L523 .long .L530 .long .L528 .long .L527 .long .L513 .long .L514 .long .L515 .long .L518 .long .L516 .long .L545 .long .L546 .long .L544 .long .L547 .long .L665 .long .L423 .long .L517 .long .L568 .long .L582 .long .L583 .long .L592 .long .L670 .long .L670 .long .L576 .long .L573 .long .L574 .long .L575 .long .L578 .long .L579 .long .L580 .long .L581 .long .L497 .long .L611 .long .L584 .long .L585 .long .L586 .long .L587 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .long .L484 .long .L589 .long .L664 .long .L670 .long .L572 .long .L566 .long .L452 .long .L451 .long .L562 .long .L670 .long .L563 .long .L569 .long .L597 .long .L448 .long .L612 .long .L660 .long .L661 .long .L595 .long .L469 .long .L605 .long .L627 .long .L596 .long .L557 .long .L602 .long .L628 .long .L555 .long .L556 .long .L458 .long .L449 .long .L498 .long .L670 .long .L615 .long .L427 .long .L606 .long .L554 .long .L629 .long .L632 .long .L634 .long .L635 .long .L636 .long .L637 .long .L638 .long .L600 .long .L478 .long .L663 .long .L577 .long .L474 .long .L590 .long .L457 .long .L670 .long .L658 .long .L454 .long .L455 .long .L456 .long .L453 .long .L446 .long .L670 .long .L670 .long .L670 .long .L670 .long .L670 .local PSTACK.7168 .comm PSTACK.7168,160,2 .local LB.7152 .comm LB.7152,4,2 .local UB.7153 .comm UB.7153,4,2 .local CNEST.7146 .comm CNEST.7146,16,1 .local NAME.7169 .comm NAME.7169,256,1 .local COUNT.7170 .comm COUNT.7170,4,2 .local LAST.6563 .comm LAST.6563,4,2 .local LT.6545 .comm LT.6545,4,2 .local LSA.6544 .comm LSA.6544,4,2 .local LA2.6543 .comm LA2.6543,4,2 .local LA1.6542 .comm LA1.6542,4,2 .local KEY.6516 .comm KEY.6516,4,2 .align 2 PACTION.6528: .long .L811 .long .L811 .long .L811 .long .L811 .long .L811 .long .L811 .long .L811 .long .L811 .long .L811 .long .L811 .long .L811 .long .L811 .long .L811 .long .L811 .long .L811 .long .L811 .align 2 ACT.6523: .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 .long .L802 __PRETTY_FUNCTION__.5590: .string "_imp_SELECTOUTPUT" __PRETTY_FUNCTION__.5586: .string "_imp_SELECTINPUT" .align 2 REASON.6174: .long .L23 .long .L23 .long .L23 .long .L23 .long .L23 .long .L23 .long .L23 .long .L23 .long .L23 .long .L23 .data .align 2 SPARENAMES.6011: .long 2047 .local CLASS.6039 .comm CLASS.6039,4,2 .local ATOM1.6041 .comm ATOM1.6041,4,2 .local ATOM2.6042 .comm ATOM2.6042,4,2 .local SUBATOM.6043 .comm SUBATOM.6043,4,2 .local TYPE.6044 .comm TYPE.6044,4,2 .local APP.6045 .comm APP.6045,4,2 .local FORMAT.6046 .comm FORMAT.6046,4,2 .local FAULTRATE.6049 .comm FAULTRATE.6049,4,2 .local LINES.6050 .comm LINES.6050,4,2 .local TEXTLINE.6051 .comm TEXTLINE.6051,4,2 .local MARGIN.6052 .comm MARGIN.6052,4,2 .local ERRORMARGIN.6053 .comm ERRORMARGIN.6053,4,2 .local ERRORSYM.6054 .comm ERRORSYM.6054,4,2 .local COLUMN.6055 .comm COLUMN.6055,4,2 .local MONPOS.6057 .comm MONPOS.6057,4,2 .align 2 SYM.6058: .long 10 .local SYMTYPE.6059 .comm SYMTYPE.6059,4,2 .local QUOTE.6060 .comm QUOTE.6060,4,2 .local ENDMARK.6061 .comm ENDMARK.6061,4,2 .align 2 CONT.6062: .long 32 .align 2 CSYM.6063: .long 32 .local DECL.6064 .comm DECL.6064,4,2 .local DIM.6065 .comm DIM.6065,4,2 .local SPECGIVEN.6066 .comm SPECGIVEN.6066,4,2 .local ESCAPECLASS.6067 .comm ESCAPECLASS.6067,4,2 .local ATOMFLAGS.6069 .comm ATOMFLAGS.6069,4,2 .local OTYPE.6070 .comm OTYPE.6070,4,2 .align 2 REALSLN.6071: .long 1 .local LAST1.6072 .comm LAST1.6072,4,2 .local GENTYPE.6073 .comm GENTYPE.6073,4,2 .local PTYPE.6074 .comm PTYPE.6074,4,2 .local PAPP.6075 .comm PAPP.6075,4,2 .local PFORMAT.6076 .comm PFORMAT.6076,4,2 .local FORCE.6077 .comm FORCE.6077,4,2 .local G.6078 .comm G.6078,4,2 .local GG.6079 .comm GG.6079,4,2 .local MAPGG.6080 .comm MAPGG.6080,4,2 .local FDEF.6081 .comm FDEF.6081,4,2 .align 2 THIS.6082: .long -1 .local NMIN.6083 .comm NMIN.6083,4,2 .local NMAX.6084 .comm NMAX.6084,4,2 .local RBASE.6085 .comm RBASE.6085,4,2 .local STBASE.6086 .comm STBASE.6086,4,2 .align 2 GMIN.6087: .long 1720 .align 2 DMAX.6088: .long 1 .align 2 TMIN.6089: .long 800 .local SS.6090 .comm SS.6090,4,2 .local INCLUDELIST.6092 .comm INCLUDELIST.6092,4,2 .local INCLUDELEVEL.6093 .comm INCLUDELEVEL.6093,4,2 .local INCLUDE.6094 .comm INCLUDE.6094,4,2 .align 2 PERM.6095: .long 1 .local PROGMODE.6096 .comm PROGMODE.6096,4,2 .local SSTYPE.6097 .comm SSTYPE.6097,4,2 .local SPECMODE.6098 .comm SPECMODE.6098,4,2 .align 2 OCOUNT.6099: .long -1 .local LIMIT.6100 .comm LIMIT.6100,4,2 .local COPY.6101 .comm COPY.6101,4,2 .local ORDER.6102 .comm ORDER.6102,4,2 .local DUBIOUS.6104 .comm DUBIOUS.6104,4,2 .align 2 DP.6105: .long 1 .local POS1.6106 .comm POS1.6106,4,2 .local POS2.6107 .comm POS2.6107,4,2 .local POS.6108 .comm POS.6108,4,2 .local DIMENSION.6109 .comm DIMENSION.6109,4,2 .local LOCAL.6110 .comm LOCAL.6110,4,2 .local FMBASE.6111 .comm FMBASE.6111,4,2 .local SEARCHBASE.6112 .comm SEARCHBASE.6112,4,2 .local FORMATLIST.6113 .comm FORMATLIST.6113,4,2 CHAR.6115: .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 .local LIT.6117 .comm LIT.6117,4,2 .local LP.6118 .comm LP.6118,4,2 .local BLOCKX.6119 .comm BLOCKX.6119,4,2 .align 2 GMAX.6129: .long 719 .align 2 PHRASE.6130: .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.6133: .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.6134: .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 .local STATS.6056 .comm STATS.6056,4,2 .local BP.6127 .comm BP.6127,4,2 .local X.6040 .comm X.6040,4,2 .align 2 LIST.6120: .long 1 .comm IMPCOM,536,2 .text .Letext0: .file 3 "/home/gtoal/src/i2c/perms/imptypes.h" .file 4 "/usr/m68k-linux-gnu/include/bits/types.h" .file 5 "/usr/m68k-linux-gnu/include/bits/types/sig_atomic_t.h" .file 6 "/usr/m68k-linux-gnu/include/bits/types/__sigset_t.h" .file 7 "/usr/lib/gcc-cross/m68k-linux-gnu/7/include/stddef.h" .file 8 "/usr/m68k-linux-gnu/include/bits/setjmp.h" .file 9 "/usr/m68k-linux-gnu/include/setjmp.h" .file 10 "/home/gtoal/src/i2c/perms/psignal.h" .file 11 "/home/gtoal/src/i2c/perms/externalfile.h" .file 12 "/home/gtoal/src/i2c/perms/internal/internal.h" .file 13 "" 2716 %FINISH 2717 2718 impcom_flags = 0 .loc 1 2718 0 lea (-582,%fp),%a0 move.l %a0,-4484(%fp) .LVL488: .L697: .loc 1 2718 0 move.l -4492(%fp),%d0 subq.l #1,%d0 moveq #11,%d1 cmp.l %d0,%d1 jcc .L674 .loc 1 2718 0 is_stmt 0 discriminator 1 move.l _imp_current_line,%d3 jne .L675 .loc 1 2718 0 move.l #2718,%d3 .L675: .loc 1 2718 0 discriminator 5 move.l _imp_current_file,%d0 jeq .L676 .loc 1 2718 0 discriminator 6 move.l %d0,-(%sp) move.l -4484(%fp),%a1 jsr _imp_c2istr .LVL711: addq.l #4,%sp .L677: .loc 1 2718 0 discriminator 8 move.l -4496(%fp),-(%sp) move.l -4500(%fp),-(%sp) move.l -4492(%fp),-(%sp) pea .LC79 move.l -4492(%fp),-(%sp) pea 3.w pea 6.w move.l %d3,-(%sp) lea (-256,%sp),%sp move.l %sp,%d0 pea 256.w pea -582(%fp) move.l %d0,-(%sp) jsr (%a2) .LVL712: lea (12,%sp),%sp jsr _signal_eventf .LVL713: lea (288,%sp),%sp .L674: .loc 1 2718 0 is_stmt 1 discriminator 7 move.l #256,%d4 move.l %d4,-(%sp) pea .LC9 pea -2118(%fp) jsr (%a2) .LVL763: move.l %d4,-(%sp) pea -2118(%fp) pea -1862(%fp) jsr (%a2) .LVL764: .LBE559: move.l %d4,-(%sp) pea -1862(%fp) pea -582(%fp) jsr (%a2) .LVL765: lea (36,%sp),%sp jra .L677 .cfi_endproc .LFE209: .align 2 DELETENAMES.6258: .LFB197: .loc 1 2718 0 is_stmt 1 clr.l IMPCOM+4 .LVL1061: 2719 impcom_option = "" .loc 1 2719 0 is_stmt 1 lea LITOP.7129,%a0 move.l -4492(%fp),%d3 move.l -4(%a0,%d3.l*4),%a0 jra .L669 .L637: jra .L638 .L640: 2720 .loc 1 2720 0 movem.l -4532(%fp),#7228 unlk %fp .LVL502: rts .LVL503: .L705: 2721 list = 15 %IF Impcom_Flags&x'1000' # 0 .loc 1 2721 0 pea 255.w pea -107018(%fp) pea IMPCOM+280 jsr _imp_strncpy .LVL1062: lea (12,%sp),%sp 2722 .loc 1 2722 0 moveq #15,%d0 move.l %d0,LIST.6120 .LDL50: .LBB744: 2723 open output(2, "LISTING"); .loc 1 2723 0 move.l %fp,%d3 .LVL1063: add.l #-106250,%d3 .LVL1064: move.l #256,%d2 move.l %d2,-(%sp) pea .LC2 move.l %d3,-(%sp) lea memcpy,%a2 jsr (%a2) .LVL1065: move.l %fp,%d4 .LVL1066: add.l #-106762,%d4 .LVL1067: move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL1068: .LBE744: lea (-256,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d4,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL1069: lea (12,%sp),%sp pea 2.w jsr OPENOUTPUT .LVL1070: lea (284,%sp),%sp .LBB745: 2724 open input(2, "prims-null.inc"); .loc 1 2724 0 move.l %d2,-(%sp) pea .LC3 move.l %d3,-(%sp) jsr (%a2) .LVL1071: add.l #256,%d4 .LVL1072: move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL1073: .LBE745: lea (-256,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d4,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL1074: lea (12,%sp),%sp pea 2.w jsr OPENINPUT .LVL1075: lea (284,%sp),%sp .LVL1076: .LBB746: .LBB747: .loc 2 628 0 moveq #2,%d1 move.l %d1,_imp_InStream move.l _imp_infile+556,_imp_InFile pea __PRETTY_FUNCTION__.5586 jsr check_instream .LVL1077: .LBE747: .LBE746: .LBB748: .LBB749: .loc 2 629 0 moveq #2,%d0 move.l %d0,_imp_OutStream move.l _imp_outfile+556,_imp_OutFile move.l #__PRETTY_FUNCTION__.5590,(%sp) jsr check_outstream .LVL1078: .LBE749: .LBE748: 2725 select input(2); selectoutput(listing) 2726 tag(max tag) = 0; !%BEGIN defn .loc 1 2726 0 move.l #16,(%sp) clr.l -(%sp) pea -66406(%fp) lea memset,%a2 jsr (%a2) .LVL1079: 2727 tag(0) = 0; tag(0)_flags = 7; !%BEGIN tag! .loc 1 2727 0 pea 16.w clr.l -(%sp) pea -79206(%fp) jsr (%a2) .LVL1080: 2728 Hash(x) = 0 %FOR x = 0, 1, max names .loc 1 2728 0 move.w #7,-79198(%fp) lea (24,%sp),%sp 2729 printstring(" Edinburgh IMP77 Compiler - Version ") .loc 1 2729 0 move.l %fp,%d3 .LVL1081: add.l #-106250,%d3 .LVL1082: move.l #256,%d2 move.l %d2,-(%sp) pea .LC4 move.l %d3,-(%sp) lea memcpy,%a2 jsr (%a2) .LVL1083: move.l %fp,%d4 .LVL1084: add.l #-105994,%d4 .LVL1085: move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d4,-(%sp) jsr (%a2) .LVL1086: add.l #512,%d3 move.l %d2,-(%sp) move.l %d4,-(%sp) move.l %d3,-(%sp) jsr (%a2) .LVL1087: .LBE750: .LBB751: .LBB752: .loc 2 589 0 lea (-220,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jsr (%a2) .LVL1088: lea (12,%sp),%sp lea _imp_printstring,%a3 jsr (%a3) .LVL1089: add.l %d2,%sp .LVL1090: clr.b -105482(%fp) .LBE752: .LBE751: .LBB753: .LBB754: lea (-256,%sp),%sp move.l %sp,%d0 move.l %d2,-(%sp) pea -105482(%fp) move.l %d0,-(%sp) jsr (%a2) .LVL1091: lea (12,%sp),%sp jsr (%a3) .LVL1092: add.l %d2,%sp .LVL1093: .LBE754: .LBE753: .LBB755: .LBB756: .loc 2 662 0 pea 2.w jsr _imp_newlines .LVL1094: .LBE756: .LBE755: 2730 printstring(version); newlines(2) 2731 op('l', 0) .loc 1 2731 0 moveq #-1,%d0 .L883: .loc 1 2731 0 cmp.l #2047,%d0 jne .L883 .LDL52: move.l #2047,X.6040 .LBB750: .loc 1 2731 0 clr.l (%sp) pea 108.w move.l #-105226,%a0 add.l %fp,%a0 jsr OP.6243 .LVL1095: addq.l #8,%sp 2732 compile block(0, 0, max dict, 0, 0) .loc 1 2732 0 addq.l #1,%d0 .loc 1 2732 0 clr.l -(%sp) clr.l -(%sp) pea 6000.w clr.l -(%sp) clr.l -(%sp) move.l #-105226,%a0 add.l %fp,%a0 jsr COMPILEBLOCK.6253 .LVL1096: lea (20,%sp),%sp .loc 1 2733 0 move.l BP.6127,%d0 move.l %d0,%d1 addq.l #1,%d1 move.l %d1,BP.6127 2733 bp=bp+1 %AND buff(bp)=nl {for bouncing off} .loc 1 2733 0 clr.w -96458(%fp,%d0.l*2) .LDL51: 2734 flush buffer .loc 1 2734 0 move.b #10,-516(%fp,%d0.l) .loc 1 2734 0 move.l #-105226,%a0 add.l %fp,%a0 jsr FLUSHBUFFER.6137 .LVL1097: 2735 Impcom_Statements = stats .loc 1 2735 0 move.l STATS.6056,IMPCOM .LDL53: .LVL1098: .LBB757: .LBB758: .loc 2 862 0 clr.l -(%sp) jsr exit .LVL1099: .L881: .LBE758: .LBE757: 2736 Impcom_Statements = -faulty %IF faulty # 0 2737 %ENDOFPROGRAM 2310 Statements compiled