1 ! IMP77 compiler first pass 2 3 !########################################################### 4 ! This program is a Copyright work. # 5 ! # 6 ! Over the last 40+ years a long and distinguished list of # 7 ! institutions, individuals and other entities have made # 8 ! contributions to portions of this program and may have a # 9 ! reasonable claim over rights to certain parts of the # 10 ! program. # 11 ! # 12 ! This version is therefore provided for education and # 13 ! demonstration purposes only # 14 !########################################################### 15 16 %begin LINE 16 "regression-compile-tmp/pass1.imp" BEGIN _lev0id0 {lev=0 --> 1} 17 %conststring(4) version = "8.4" 18 19 !configuration parameters 20 { minus one represents all bits set for an %integer } 21 { %integer could be 16,32,64 bits wide depending on the } 22 { processor being targeted } 23 { i.e 8086 (16 bits), 80386 (32 bits), i86_64 (64 bits) } LINE 17 "regression-compile-tmp/pass1.imp" PUSHS "8.4" DEF VERSION p1=V_0082 a/tf=31 b/format=4 c/ostate=12 type=3 (string) form=1 (simple) special=3 (long-real) linkage=2 (constant) spec=0 indirect=1 unass=0 INIT 1 24 %constinteger minus one = -1; 25 ! Wee change needed to cross-compile the compiler when going from 16 bit to 32 bit world 26 ! %constinteger minus one = 16_7fff; 27 28 { now to set up various constants } LINE 24 "regression-compile-tmp/pass1.imp" 29 %constinteger max int = ((minus one)>>1)//10 LINE 29 "regression-compile-tmp/pass1.imp" 30 %constinteger max dig = (minus one)>>1-maxint*10 LINE 30 "regression-compile-tmp/pass1.imp" 31 %constinteger byte size = 8; !bits per byte LINE 31 "regression-compile-tmp/pass1.imp" 32 %constinteger max tag = 800; !max no. of tags LINE 32 "regression-compile-tmp/pass1.imp" 33 %constinteger max dict = 6000; !max extent of dictionary LINE 33 "regression-compile-tmp/pass1.imp" 34 %constinteger name bits = 11; !size of name table as a power of two LINE 34 "regression-compile-tmp/pass1.imp" 35 %constinteger max names = 1<) linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 37 %constinteger lit max = 50; !max no. of constants/stat. LINE 37 "regression-compile-tmp/pass1.imp" 38 %constinteger rec size = 520; !size of analysis record LINE 38 "regression-compile-tmp/pass1.imp" 39 %constinteger dim limit = 6; !maximum array dimension 40 41 !symbols LINE 39 "regression-compile-tmp/pass1.imp" 42 %constinteger ff = 12; !form feed LINE 42 "regression-compile-tmp/pass1.imp" 43 %constinteger marker = '^'; !marker for faults LINE 43 "regression-compile-tmp/pass1.imp" 44 %constinteger squote = '"'; !string quote LINE 44 "regression-compile-tmp/pass1.imp" 45 %constinteger cquote = ''''; !character quote 46 47 !streams LINE 45 "regression-compile-tmp/pass1.imp" 48 %constinteger report = 0, source = 1 LINE 48 "regression-compile-tmp/pass1.imp" 49 %constinteger object = 1, listing = 2 50 51 !types LINE 49 "regression-compile-tmp/pass1.imp" 52 %constinteger integer = 1 LINE 52 "regression-compile-tmp/pass1.imp" 53 %constinteger real = 2 LINE 53 "regression-compile-tmp/pass1.imp" 54 %constinteger stringv = 3 LINE 54 "regression-compile-tmp/pass1.imp" 55 %constinteger record = 4 56 57 !forms LINE 55 "regression-compile-tmp/pass1.imp" 58 %constinteger iform = integer<<4+1 LINE 58 "regression-compile-tmp/pass1.imp" 59 %constinteger var = 91 LINE 59 "regression-compile-tmp/pass1.imp" 60 %constinteger const = 93 LINE 60 "regression-compile-tmp/pass1.imp" 61 %constinteger swit = 105 LINE 61 "regression-compile-tmp/pass1.imp" 62 %constinteger comment = 22 LINE 62 "regression-compile-tmp/pass1.imp" 63 %constinteger termin = 20 LINE 63 "regression-compile-tmp/pass1.imp" 64 %constinteger lab = 3 LINE 64 "regression-compile-tmp/pass1.imp" 65 %constinteger jump = 54 LINE 65 "regression-compile-tmp/pass1.imp" 66 %constinteger recfm = 4 LINE 66 "regression-compile-tmp/pass1.imp" 67 %constinteger proc = 7; !class for proc 68 69 !phrase entries LINE 67 "regression-compile-tmp/pass1.imp" 70 %constinteger escdec = 252 LINE 70 "regression-compile-tmp/pass1.imp" 71 %constinteger escproc = 253 LINE 71 "regression-compile-tmp/pass1.imp" 72 %constinteger escarray = 254 LINE 72 "regression-compile-tmp/pass1.imp" 73 %constinteger escrec = 255 74 75 !%recordformat arfm(%shortinteger class,sub,link,ptype,papp,pformat,x,pos);!imp77: LINE 73 "regression-compile-tmp/pass1.imp" 76 %recordformat arfm(%integer class,sub,link,ptype,papp,pformat,x,pos) 77 LINE 76 "regression-compile-tmp/pass1.imp" DEF ARFM p1=V_0084 a/tf=44 b/format=84 c/ostate=0 type=4 (record) form=4 (record-format) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( RECORDFORMAT DEF CLASS p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF SUB p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF LINK p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF PTYPE p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF PAPP p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF PFORMAT p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF X p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF POS p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) 78 %recordformat tagfm(%integer app, format, %integer flags, index, text, link) 79 80 !flags 81 ! *===.===.===.===.===.====.====.====.===.======.======* 82 ! ! u ! c ! c ! p ! s ! a ! o ! pr ! s ! type ! form ! 83 ! ! 1 ! 1 ! 1 ! 1 ! 1 ! 1 ! 1 ! 1 ! 1 ! 3 ! 4 ! 84 ! *===^===^===^===^===^====^====^====^===^======^======* 85 ! u c c p s a o p s t f 86 ! s l o a u n w r p y o 87 ! e o n r b a n o e p r 88 ! d s s a n m t c e m 89 ! e t m a e 90 ! d s m 91 ! e 92 ! 93 ! 94 LINE 78 "regression-compile-tmp/pass1.imp" DEF TAGFM p1=V_0085 a/tf=44 b/format=85 c/ostate=0 type=4 (record) form=4 (record-format) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( RECORDFORMAT DEF APP p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF FORMAT p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF FLAGS p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF INDEX p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF TEXT p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF LINK p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) 95 %constinteger used bit = 2_1000000000000000 LINE 95 "regression-compile-tmp/pass1.imp" 96 %constinteger closed = 2_0100000000000000 LINE 96 "regression-compile-tmp/pass1.imp" 97 %constinteger const bit = 2_0010000000000000 LINE 97 "regression-compile-tmp/pass1.imp" 98 %constinteger parameters = 2_0001000000000000 LINE 98 "regression-compile-tmp/pass1.imp" 99 %constinteger subname = 2_0000100000000000 LINE 99 "regression-compile-tmp/pass1.imp" 100 %constinteger aname = 2_0000010000000000 LINE 100 "regression-compile-tmp/pass1.imp" 101 %constinteger own bit = 2_0000001000000000 LINE 101 "regression-compile-tmp/pass1.imp" 102 %constinteger prot = 2_0000000100000000 LINE 102 "regression-compile-tmp/pass1.imp" 103 %constinteger spec = 2_0000000010000000 104 LINE 103 "regression-compile-tmp/pass1.imp" 105 %constinteger trans bit = 16_4000 LINE 105 "regression-compile-tmp/pass1.imp" 106 %constinteger error = 16_8000 107 LINE 106 "regression-compile-tmp/pass1.imp" 108 %record(arfm)%array ar(1:rec size) 109 LINE 108 "regression-compile-tmp/pass1.imp" DEF AR p1=V_0086 a/tf=4b b/format=84 c/ostate=100 type=4 (record) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x00000001 PUSHI #0x00000208 DIM 0001 0001 110 %owninteger class = 0; !class of atom wanted LINE 110 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF CLASS p1=V_0087 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 111 %owninteger x = 0; !usually last tag LINE 111 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF X p1=V_0088 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 112 %owninteger atom1 = 0; !atom class (major) LINE 112 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF ATOM1 p1=V_0089 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 113 %owninteger atom2 = 0; !atom class (minor) LINE 113 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF ATOM2 p1=V_008a a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 114 %owninteger subatom = 0; !extra info about atom LINE 114 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF SUBATOM p1=V_008b a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 115 %owninteger type = 0 LINE 115 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF TYPE p1=V_008c a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 116 %owninteger app = 0 LINE 116 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF APP p1=V_008d a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 117 %owninteger format = 0; !atom info LINE 117 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF FORMAT p1=V_008e a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 118 %integer hash value LINE 118 "regression-compile-tmp/pass1.imp" DEF HASHVALUE p1=V_008f a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 119 %owninteger faulty = 0; !fault indicator LINE 119 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF FAULTY p1=V_0090 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 120 %owninteger fault rate = 0; !fault rate count LINE 120 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF FAULTRATE p1=V_0091 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 121 %owninteger lines = 0; !current line number LINE 121 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF LINES p1=V_0092 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 122 %owninteger text line = 0; !starting line for string const LINE 122 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF TEXTLINE p1=V_0093 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 123 %owninteger margin = 0; !statement start margin LINE 123 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF MARGIN p1=V_0094 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 124 %owninteger error margin = 0 LINE 124 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF ERRORMARGIN p1=V_0095 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 125 %owninteger error sym = 0 LINE 125 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF ERRORSYM p1=V_0096 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 126 %owninteger column = 0 LINE 126 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF COLUMN p1=V_0097 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 127 %owninteger stats = 0; !statements compiled LINE 127 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF STATS p1=V_0098 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 128 %owninteger mon pos = 0; !flag for diagnose LINE 128 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF MONPOS p1=V_0099 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 129 %owninteger sym = nl; !current input symbol LINE 129 "regression-compile-tmp/pass1.imp" PUSHI #0x0000000a DEF SYM p1=V_009a a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 130 %owninteger symtype = 0; !type of current symbol LINE 130 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF SYMTYPE p1=V_009b a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 131 %owninteger quote = 0; !>0 strings, <0 chars LINE 131 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF QUOTE p1=V_009c a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 132 %owninteger end mark = 0; !%end flag LINE 132 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF ENDMARK p1=V_009d a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 133 %owninteger cont = ' ' LINE 133 "regression-compile-tmp/pass1.imp" PUSHI #0x00000020 DEF CONT p1=V_009e a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 134 %owninteger csym = ' '; !listing continuation marker LINE 134 "regression-compile-tmp/pass1.imp" PUSHI #0x00000020 DEF CSYM p1=V_009f a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 135 %owninteger decl = 0; !current declarator flags LINE 135 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF DECL p1=V_00a0 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 136 %owninteger dim = 0; !arrayname dimension LINE 136 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF DIM p1=V_00a1 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 137 %owninteger spec given = 0 138 LINE 137 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF SPECGIVEN p1=V_00a2 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 139 %owninteger escape class = 0; !when and where to escape LINE 139 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF ESCAPECLASS p1=V_00a3 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 140 %owninteger protection = 0 LINE 140 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF PROTECTION p1=V_00a4 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 141 %owninteger atom flags = 0 LINE 141 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF ATOMFLAGS p1=V_00a5 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 142 %owninteger otype = 0; !current 'own' type LINE 142 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF OTYPE p1=V_00a6 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 143 %owninteger reals ln = 1; ! =4 for %REALSLONG LINE 143 "regression-compile-tmp/pass1.imp" PUSHI #0x00000001 DEF REALSLN p1=V_00a7 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 144 %owninteger last1 = 0; !previous atom class LINE 144 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF LAST1 p1=V_00a8 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 145 %owninteger gen type = 0 LINE 145 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF GENTYPE p1=V_00a9 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 146 %owninteger ptype = 0; !current phrase type LINE 146 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF PTYPE p1=V_00aa a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 147 %owninteger papp = 0; !current phrase parameters LINE 147 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF PAPP p1=V_00ab a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 148 %owninteger pformat = 0; !current phrase format LINE 148 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF PFORMAT p1=V_00ac a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 149 %owninteger force = 0; !force next ptype LINE 149 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF FORCE p1=V_00ad a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 150 %owninteger g = 0 LINE 150 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF G p1=V_00ae a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 151 %owninteger gg = 0 LINE 151 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF GG p1=V_00af a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 152 %owninteger map gg = 0; !grammar entries LINE 152 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF MAPGG p1=V_00b0 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 153 %owninteger fdef = 0; !current format definition LINE 153 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF FDEF p1=V_00b1 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 154 %owninteger this = -1; !current recordformat tag LINE 154 "regression-compile-tmp/pass1.imp" PUSHI #0xffffffff DEF THIS p1=V_00b2 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 155 %owninteger nmin = 0; !analysis record atom pointer LINE 155 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF NMIN p1=V_00b3 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 156 %owninteger nmax = 0; !analysis record phrase pointer LINE 156 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF NMAX p1=V_00b4 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 157 %owninteger rbase = 0; !record format definition base LINE 157 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF RBASE p1=V_00b5 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 158 %owninteger dmax = 1 LINE 158 "regression-compile-tmp/pass1.imp" PUSHI #0x00000001 DEF DMAX p1=V_00b6 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 159 %owninteger tmin = max tag; !upper bound on tags LINE 159 "regression-compile-tmp/pass1.imp" PUSHI #0x00000320 DEF TMIN p1=V_00b7 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 160 %owninteger ss = 0; !source statement entry LINE 160 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF SS p1=V_00b8 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 161 %string(63) include file LINE 161 "regression-compile-tmp/pass1.imp" DEF INCLUDEFILE p1=V_00b9 a/tf=31 b/format=3f c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 162 %owninteger include list = 0 LINE 162 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF INCLUDELIST p1=V_00ba a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 163 %owninteger include level= 0 LINE 163 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF INCLUDELEVEL p1=V_00bb a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 164 %owninteger include = 0; !=0 unused, #0 being used LINE 164 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF INCLUDE p1=V_00bc a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 165 %owninteger perm = 1; !1 = compiling perm, 0 = program LINE 165 "regression-compile-tmp/pass1.imp" PUSHI #0x00000001 DEF PERM p1=V_00bd a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 166 %owninteger progmode = 0; !-1 = file, 1 = begin/eop LINE 166 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF PROGMODE p1=V_00be a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 167 %owninteger sstype = 0; !-1:exec stat 168 ! 0: declaration 169 ! 1: block in 170 ! 2: block out LINE 167 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF SSTYPE p1=V_00bf a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 171 %owninteger spec mode = 0; !>=0: definition 172 ! -1: proc spec 173 ! -2: recordformat LINE 171 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF SPECMODE p1=V_00c0 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 174 %owninteger ocount = -1; !own constants wanted LINE 174 "regression-compile-tmp/pass1.imp" PUSHI #0xffffffff DEF OCOUNT p1=V_00c1 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 175 %owninteger limit = 0; !lookup limit LINE 175 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF LIMIT p1=V_00c2 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 176 %owninteger copy = 0; !duplicate name flag LINE 176 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF COPY p1=V_00c3 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 177 %owninteger order = 0; !out of sequence flag LINE 177 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF ORDER p1=V_00c4 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 178 %owninteger for warn = 0; !non-local flag LINE 178 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF FORWARN p1=V_00c5 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 179 %owninteger dubious = 0; !flag for dubious statements LINE 179 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF DUBIOUS p1=V_00c6 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 180 %owninteger dp = 1 LINE 180 "regression-compile-tmp/pass1.imp" PUSHI #0x00000001 DEF DP p1=V_00c7 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 181 %owninteger pos1 = 0 LINE 181 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF POS1 p1=V_00c8 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 182 %owninteger pos2 = 0; !error position LINE 182 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF POS2 p1=V_00c9 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 183 %owninteger pos = 0; !input line index LINE 183 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF POS p1=V_00ca a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 184 %owninteger dimension = 0; !current array dimension LINE 184 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF DIMENSION p1=V_00cb a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 185 %owninteger local = 0; !search limit for locals LINE 185 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF LOCAL p1=V_00cc a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 186 %owninteger fm base = 0; !entry for format decls LINE 186 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF FMBASE p1=V_00cd a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 187 %owninteger search base = 0; !entry for record_names LINE 187 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF SEARCHBASE p1=V_00ce a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 188 %owninteger format list = 0; !size of current format list LINE 188 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF FORMATLIST p1=V_00cf a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 189 %integer recid LINE 189 "regression-compile-tmp/pass1.imp" DEF RECID p1=V_00d0 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 190 %ownbyteintegerarray char(0:133) = ; !input line 191 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 192 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 193 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 194 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 195 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 196 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 197 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 198 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 199 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 200 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 201 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 202 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 203 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 204 10, 10, 10, 10 LINE 190 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x00000085 BOUNDS DEF CHAR p1=V_00d1 a/tf=1b b/format=2 c/ostate=121 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=1 (own) spec=0 indirect=0 unass=1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000a INIT 1 205 %integerarray lit pool(0:lit max) LINE 205 "regression-compile-tmp/pass1.imp" DEF LITPOOL p1=V_00d2 a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x00000000 PUSHI #0x00000032 DIM 0001 0001 206 %owninteger lit = 0; !current literal (integer) LINE 206 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF LIT p1=V_00d3 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 207 %owninteger lp = 0; !literals pointer LINE 207 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF LP p1=V_00d4 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 208 %owninteger block x = 0; !block tag LINE 208 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF BLOCKX p1=V_00d5 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 209 %owninteger list = 1; !<= to enable LINE 209 "regression-compile-tmp/pass1.imp" PUSHI #0x00000001 DEF LIST p1=V_00d6 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 210 %owninteger control = 0 LINE 210 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF CONTROL p1=V_00d7 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 211 %owninteger diag = 0; !diagnose flags LINE 211 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF DIAG p1=V_00d8 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 212 %integerarray hash(0:max names) LINE 212 "regression-compile-tmp/pass1.imp" DEF HASH p1=V_00d9 a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x00000000 PUSHI #0x000007ff DIM 0001 0001 213 %record(tagfm)%array tag(0:max tag) LINE 213 "regression-compile-tmp/pass1.imp" DEF TAG p1=V_00da a/tf=4b b/format=85 c/ostate=100 type=4 (record) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x00000000 PUSHI #0x00000320 DIM 0001 0001 214 %integerarray dict(1:max dict) LINE 214 "regression-compile-tmp/pass1.imp" DEF DICT p1=V_00db a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x00000001 PUSHI #0x00001770 DIM 0001 0001 215 %byteintegerarray buff(1:512) LINE 215 "regression-compile-tmp/pass1.imp" DEF BUFF p1=V_00dc a/tf=1b b/format=2 c/ostate=100 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x00000001 PUSHI #0x00000200 DIM 0001 0001 216 %owninteger bp = 0 217 218 { grammar related constants } LINE 216 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF BP p1=V_00dd a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 219 %constinteger max grammar = 1720 LINE 219 "regression-compile-tmp/pass1.imp" 220 %owninteger gmin = max grammar ;! upper bound on grammar LINE 220 "regression-compile-tmp/pass1.imp" PUSHI #0x000006b8 DEF GMIN p1=V_00de a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 221 %constinteger manifest = 120, figurative = 130 LINE 221 "regression-compile-tmp/pass1.imp" 222 %constinteger actions = 180, phrasal = 200 223 LINE 222 "regression-compile-tmp/pass1.imp" 224 %constbyteintegerarray amap(0:15) = %c 225 89, 91, 92, 104, 94, 93, 105, 100, 101, 102, 103, 106, 107, 108, 109, 89 226 ! ? v n l fm const swit rp fp mp pp a an na nan ? 227 LINE 224 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x0000000f BOUNDS DEF AMAP p1=V_00df a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000059 INIT 1 PUSHI #0x0000005b INIT 1 PUSHI #0x0000005c INIT 1 PUSHI #0x00000068 INIT 1 PUSHI #0x0000005e INIT 1 PUSHI #0x0000005d INIT 1 PUSHI #0x00000069 INIT 1 PUSHI #0x00000064 INIT 1 PUSHI #0x00000065 INIT 1 PUSHI #0x00000066 INIT 1 PUSHI #0x00000067 INIT 1 PUSHI #0x0000006a INIT 1 PUSHI #0x0000006b INIT 1 PUSHI #0x0000006c INIT 1 PUSHI #0x0000006d INIT 1 PUSHI #0x00000059 INIT 1 228 %constbyteintegerarray atoms(0:15) = 89, 1, 1, 10, 9, 1, 10, 7, 229 7, 7, 7, 4, 1, 4, 1, 89 230 231 !*** start of generated tables *** 232 ! %include "i77.tables.imp" LINE 228 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x0000000f BOUNDS DEF ATOMS p1=V_00e0 a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000059 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000059 INIT 1 233 %endoflist LINE 233 "regression-compile-tmp/pass1.imp" 234 %conststring(8)%array text(0:255) = %c 235 "Z","VDEC","OWNVDEC","EXTVSPEC","ADEC","OWNADEC","EXTASPEC","PROC", 236 "PROCSPEC","FORMDEC","SWDEC","LDEC","FORMSPEC","","","", 237 "","","OPTION","COMMA","T","COLON","COMMENT","LB", 238 "ALIAS","RB","SUB","ARRAYD","STYPE","ARRAY","NAME","PROCD", 239 "FNMAP","SWITCH","OWN","EXTERNAL","STRING","RECORD","FORMAT","SPEC", 240 "MCODE","LABEL","OP1","OP2","OP3","SIGN","UOP","MOD", 241 "DOT","COMP","ACOMP","EQ","EQEQ","JAM","JUMP","RESOP", 242 "AND","OR","NOT","WHILE","UNTIL","FOR","CWORD","EXIT", 243 "ON","SIGNAL","THEN","START","ELSE","FINISH","FELSE","CYCLE", 244 "REPEAT","PROGRAM","BEGIN","END","ENDPROG","ENDPERM","FRESULT","MRESULT", 245 "BACK","MONITOR","STOP","LIST","REALSLN","CONTROL","INCLUDE","MASS", 246 "RTYPE","ADDOP","IDENT","V","N","CONST","FM","", 247 "R","F","M","P","RP","FP","MP","PP", 248 "L","S","A","AN","NA","NAN","","", 249 "","","","","","","","", 250 "%MSTART","%CLEAR","%PRED","","%DUBIOUS","%DUP","%PIN","%POUT", 251 "%EDUP","","PIDENT","CIDENT","OIDENT","FNAME","SWID","DOTL", 252 "DOTR","ASEP","CSEP","OSEP","PSEP","ARB","BPLRB","ORB", 253 "PRB","CRB","RCRB","RECRB","RECLB","LAB","MLAB","SLAB", 254 "XNAME","OWNT","DBSEP","PCONST","CMOD","CSIGN","CUOP","COP1", 255 "COP2","COP3","INDEF","XELSE","CRESOP","NLAB","RUNTIL","ACONST", 256 "ORRB","FMANY","OSTRING","FMLB","FMRB","FMOR","RANGERB","FSID", 257 "","","","","","%DUMMY","%DECL","%TYPE", 258 "%ZERO","%APPLY","%PROT","%SETPROT","%PTYPE","%GAPP","%LOCAL","%GUARD", 259 "%MCODE","%CDUMMY","%SETTYPE","%OPER","%PARAM","%BLOCK","%OTHER","%COMPILE", 260 "APP","BASEAPP","APP2","APP3","APP4","APP5","APP6","ADEFN", 261 "NPARM","SWDEF","SWIDS","CIEXP","RCONST","SCONST","ARRAYP","XIMP", 262 "IMP","COND","SCOND","EXP1","EXP2","SEXP","IEXP","IEXP1", 263 "IEXP2","ISEXP","SEQ","FDEF","EXP","NARRAYP","STRUCT","RESEXP", 264 "BPL","CONSTB","FITEM","MOREA","CLIST","FPP","FPP0","FPP1", 265 "FPP2","INITVAR","RECEXP","EIMP","IDENTS","RANGE","RCONSTB","VARP", 266 "INITDEC","","","","ESCDEC","ESCPROC","ESCARRAY","ESCREC" 267 LINE 234 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x000000ff BOUNDS DEF TEXT p1=V_00e1 a/tf=3b b/format=8 c/ostate=112 type=3 (string) form=11 (array) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHS "Z" INIT 1 PUSHS "VDEC" INIT 1 PUSHS "OWNVDEC" INIT 1 PUSHS "EXTVSPEC" INIT 1 PUSHS "ADEC" INIT 1 PUSHS "OWNADEC" INIT 1 PUSHS "EXTASPEC" INIT 1 PUSHS "PROC" INIT 1 PUSHS "PROCSPEC" INIT 1 PUSHS "FORMDEC" INIT 1 PUSHS "SWDEC" INIT 1 PUSHS "LDEC" INIT 1 PUSHS "FORMSPEC" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "OPTION" INIT 1 PUSHS "COMMA" INIT 1 PUSHS "T" INIT 1 PUSHS "COLON" INIT 1 PUSHS "COMMENT" INIT 1 PUSHS "LB" INIT 1 PUSHS "ALIAS" INIT 1 PUSHS "RB" INIT 1 PUSHS "SUB" INIT 1 PUSHS "ARRAYD" INIT 1 PUSHS "STYPE" INIT 1 PUSHS "ARRAY" INIT 1 PUSHS "NAME" INIT 1 PUSHS "PROCD" INIT 1 PUSHS "FNMAP" INIT 1 PUSHS "SWITCH" INIT 1 PUSHS "OWN" INIT 1 PUSHS "EXTERNAL" INIT 1 PUSHS "STRING" INIT 1 PUSHS "RECORD" INIT 1 PUSHS "FORMAT" INIT 1 PUSHS "SPEC" INIT 1 PUSHS "MCODE" INIT 1 PUSHS "LABEL" INIT 1 PUSHS "OP1" INIT 1 PUSHS "OP2" INIT 1 PUSHS "OP3" INIT 1 PUSHS "SIGN" INIT 1 PUSHS "UOP" INIT 1 PUSHS "MOD" INIT 1 PUSHS "DOT" INIT 1 PUSHS "COMP" INIT 1 PUSHS "ACOMP" INIT 1 PUSHS "EQ" INIT 1 PUSHS "EQEQ" INIT 1 PUSHS "JAM" INIT 1 PUSHS "JUMP" INIT 1 PUSHS "RESOP" INIT 1 PUSHS "AND" INIT 1 PUSHS "OR" INIT 1 PUSHS "NOT" INIT 1 PUSHS "WHILE" INIT 1 PUSHS "UNTIL" INIT 1 PUSHS "FOR" INIT 1 PUSHS "CWORD" INIT 1 PUSHS "EXIT" INIT 1 PUSHS "ON" INIT 1 PUSHS "SIGNAL" INIT 1 PUSHS "THEN" INIT 1 PUSHS "START" INIT 1 PUSHS "ELSE" INIT 1 PUSHS "FINISH" INIT 1 PUSHS "FELSE" INIT 1 PUSHS "CYCLE" INIT 1 PUSHS "REPEAT" INIT 1 PUSHS "PROGRAM" INIT 1 PUSHS "BEGIN" INIT 1 PUSHS "END" INIT 1 PUSHS "ENDPROG" INIT 1 PUSHS "ENDPERM" INIT 1 PUSHS "FRESULT" INIT 1 PUSHS "MRESULT" INIT 1 PUSHS "BACK" INIT 1 PUSHS "MONITOR" INIT 1 PUSHS "STOP" INIT 1 PUSHS "LIST" INIT 1 PUSHS "REALSLN" INIT 1 PUSHS "CONTROL" INIT 1 PUSHS "INCLUDE" INIT 1 PUSHS "MASS" INIT 1 PUSHS "RTYPE" INIT 1 PUSHS "ADDOP" INIT 1 PUSHS "IDENT" INIT 1 PUSHS "V" INIT 1 PUSHS "N" INIT 1 PUSHS "CONST" INIT 1 PUSHS "FM" INIT 1 PUSHS "" INIT 1 PUSHS "R" INIT 1 PUSHS "F" INIT 1 PUSHS "M" INIT 1 PUSHS "P" INIT 1 PUSHS "RP" INIT 1 PUSHS "FP" INIT 1 PUSHS "MP" INIT 1 PUSHS "PP" INIT 1 PUSHS "L" INIT 1 PUSHS "S" INIT 1 PUSHS "A" INIT 1 PUSHS "AN" INIT 1 PUSHS "NA" INIT 1 PUSHS "NAN" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "%MSTART" INIT 1 PUSHS "%CLEAR" INIT 1 PUSHS "%PRED" INIT 1 PUSHS "" INIT 1 PUSHS "%DUBIOUS" INIT 1 PUSHS "%DUP" INIT 1 PUSHS "%PIN" INIT 1 PUSHS "%POUT" INIT 1 PUSHS "%EDUP" INIT 1 PUSHS "" INIT 1 PUSHS "PIDENT" INIT 1 PUSHS "CIDENT" INIT 1 PUSHS "OIDENT" INIT 1 PUSHS "FNAME" INIT 1 PUSHS "SWID" INIT 1 PUSHS "DOTL" INIT 1 PUSHS "DOTR" INIT 1 PUSHS "ASEP" INIT 1 PUSHS "CSEP" INIT 1 PUSHS "OSEP" INIT 1 PUSHS "PSEP" INIT 1 PUSHS "ARB" INIT 1 PUSHS "BPLRB" INIT 1 PUSHS "ORB" INIT 1 PUSHS "PRB" INIT 1 PUSHS "CRB" INIT 1 PUSHS "RCRB" INIT 1 PUSHS "RECRB" INIT 1 PUSHS "RECLB" INIT 1 PUSHS "LAB" INIT 1 PUSHS "MLAB" INIT 1 PUSHS "SLAB" INIT 1 PUSHS "XNAME" INIT 1 PUSHS "OWNT" INIT 1 PUSHS "DBSEP" INIT 1 PUSHS "PCONST" INIT 1 PUSHS "CMOD" INIT 1 PUSHS "CSIGN" INIT 1 PUSHS "CUOP" INIT 1 PUSHS "COP1" INIT 1 PUSHS "COP2" INIT 1 PUSHS "COP3" INIT 1 PUSHS "INDEF" INIT 1 PUSHS "XELSE" INIT 1 PUSHS "CRESOP" INIT 1 PUSHS "NLAB" INIT 1 PUSHS "RUNTIL" INIT 1 PUSHS "ACONST" INIT 1 PUSHS "ORRB" INIT 1 PUSHS "FMANY" INIT 1 PUSHS "OSTRING" INIT 1 PUSHS "FMLB" INIT 1 PUSHS "FMRB" INIT 1 PUSHS "FMOR" INIT 1 PUSHS "RANGERB" INIT 1 PUSHS "FSID" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "%DUMMY" INIT 1 PUSHS "%DECL" INIT 1 PUSHS "%TYPE" INIT 1 PUSHS "%ZERO" INIT 1 PUSHS "%APPLY" INIT 1 PUSHS "%PROT" INIT 1 PUSHS "%SETPROT" INIT 1 PUSHS "%PTYPE" INIT 1 PUSHS "%GAPP" INIT 1 PUSHS "%LOCAL" INIT 1 PUSHS "%GUARD" INIT 1 PUSHS "%MCODE" INIT 1 PUSHS "%CDUMMY" INIT 1 PUSHS "%SETTYPE" INIT 1 PUSHS "%OPER" INIT 1 PUSHS "%PARAM" INIT 1 PUSHS "%BLOCK" INIT 1 PUSHS "%OTHER" INIT 1 PUSHS "%COMPILE" INIT 1 PUSHS "APP" INIT 1 PUSHS "BASEAPP" INIT 1 PUSHS "APP2" INIT 1 PUSHS "APP3" INIT 1 PUSHS "APP4" INIT 1 PUSHS "APP5" INIT 1 PUSHS "APP6" INIT 1 PUSHS "ADEFN" INIT 1 PUSHS "NPARM" INIT 1 PUSHS "SWDEF" INIT 1 PUSHS "SWIDS" INIT 1 PUSHS "CIEXP" INIT 1 PUSHS "RCONST" INIT 1 PUSHS "SCONST" INIT 1 PUSHS "ARRAYP" INIT 1 PUSHS "XIMP" INIT 1 PUSHS "IMP" INIT 1 PUSHS "COND" INIT 1 PUSHS "SCOND" INIT 1 PUSHS "EXP1" INIT 1 PUSHS "EXP2" INIT 1 PUSHS "SEXP" INIT 1 PUSHS "IEXP" INIT 1 PUSHS "IEXP1" INIT 1 PUSHS "IEXP2" INIT 1 PUSHS "ISEXP" INIT 1 PUSHS "SEQ" INIT 1 PUSHS "FDEF" INIT 1 PUSHS "EXP" INIT 1 PUSHS "NARRAYP" INIT 1 PUSHS "STRUCT" INIT 1 PUSHS "RESEXP" INIT 1 PUSHS "BPL" INIT 1 PUSHS "CONSTB" INIT 1 PUSHS "FITEM" INIT 1 PUSHS "MOREA" INIT 1 PUSHS "CLIST" INIT 1 PUSHS "FPP" INIT 1 PUSHS "FPP0" INIT 1 PUSHS "FPP1" INIT 1 PUSHS "FPP2" INIT 1 PUSHS "INITVAR" INIT 1 PUSHS "RECEXP" INIT 1 PUSHS "EIMP" INIT 1 PUSHS "IDENTS" INIT 1 PUSHS "RANGE" INIT 1 PUSHS "RCONSTB" INIT 1 PUSHS "VARP" INIT 1 PUSHS "INITDEC" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "" INIT 1 PUSHS "ESCDEC" INIT 1 PUSHS "ESCPROC" INIT 1 PUSHS "ESCARRAY" INIT 1 PUSHS "ESCREC" INIT 1 268 %constinteger gmax1=719 LINE 268 "regression-compile-tmp/pass1.imp" 269 %owninteger gmax=719 LINE 269 "regression-compile-tmp/pass1.imp" PUSHI #0x000002cf DEF GMAX p1=V_00e2 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 270 %constinteger imp phrase =25 271 272 ! FLAG<1> 0<1> SS<2> 0<3> T<1> LINK<8> LINE 270 "regression-compile-tmp/pass1.imp" 273 %constshortintegerarray initial(0:119) = %c 274 24, 0, 0, 0, 0, 0, 0, 0, 275 0, 0, 0, 0, 0, 0, 0, 0, 276 0, 0, 23, 0, 0, 0, 0, 0, 277 0, 0, 0, 0, 0, 0, 0, 0, 278 0, 0, 0, 0, 0, 0, 0, 0, 279 20, 0, 0, 0, 0, 0, 0, 0, 280 0, 0, 0, 0, 0, 0, -32551, 0, 281 0, 0, 0, 13, 0, 14, 4, -32557, 282 16, -32550, 0, 0, 5, 6, 3, 12, 283 15, 8, 7, 9, 10, 11, -32558, -32554, 284 -32559, -32552, -32553, 18, 22, 17, 21, 19, 285 0, 0, 0, -32562, -32560, 0, 0, 0, 286 -32561, 0, 0, 0, 0, 0, 0, 0, 287 1, 2, 0, -32556, 0, -32555, 0, 0, 288 0, 0, 0, 0, 0, 0, 0, 0 289 LINE 273 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x00000077 BOUNDS DEF INITIAL p1=V_00e3 a/tf=1b b/format=3 c/ostate=112 type=1 (integer) form=11 (array) special=2 (short-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000018 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000017 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000014 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff80d9 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000000d INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000000e INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0xffff80d3 INIT 1 PUSHI #0x00000010 INIT 1 PUSHI #0xffff80da INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x0000000c INIT 1 PUSHI #0x0000000f INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000b INIT 1 PUSHI #0xffff80d2 INIT 1 PUSHI #0xffff80d6 INIT 1 PUSHI #0xffff80d1 INIT 1 PUSHI #0xffff80d8 INIT 1 PUSHI #0xffff80d7 INIT 1 PUSHI #0x00000012 INIT 1 PUSHI #0x00000016 INIT 1 PUSHI #0x00000011 INIT 1 PUSHI #0x00000015 INIT 1 PUSHI #0x00000013 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff80ce INIT 1 PUSHI #0xffff80d0 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff80cf INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff80d4 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff80d5 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 290 %constbyteintegerarray atomic(130:179) = %c 291 90, 90, 90, 90, 90, 48, 48, 19, 292 19, 19, 19, 25, 25, 25, 25, 25, 293 25, 25, 23, 104, 104, 105, 30, 20, 294 21, 93, 47, 45, 46, 42, 43, 44, 295 40, 68, 55, 104, 60, 93, 25, 40, 296 93, 23, 25, 57, 25, 90, 176, 177, 297 178, 179 298 LINE 290 "regression-compile-tmp/pass1.imp" PUSHI #0x00000082 PUSHI #0x000000b3 BOUNDS DEF ATOMIC p1=V_00e4 a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x0000005a INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x00000030 INIT 1 PUSHI #0x00000030 INIT 1 PUSHI #0x00000013 INIT 1 PUSHI #0x00000013 INIT 1 PUSHI #0x00000013 INIT 1 PUSHI #0x00000013 INIT 1 PUSHI #0x00000019 INIT 1 PUSHI #0x00000019 INIT 1 PUSHI #0x00000019 INIT 1 PUSHI #0x00000019 INIT 1 PUSHI #0x00000019 INIT 1 PUSHI #0x00000019 INIT 1 PUSHI #0x00000019 INIT 1 PUSHI #0x00000017 INIT 1 PUSHI #0x00000068 INIT 1 PUSHI #0x00000068 INIT 1 PUSHI #0x00000069 INIT 1 PUSHI #0x0000001e INIT 1 PUSHI #0x00000014 INIT 1 PUSHI #0x00000015 INIT 1 PUSHI #0x0000005d INIT 1 PUSHI #0x0000002f INIT 1 PUSHI #0x0000002d INIT 1 PUSHI #0x0000002e INIT 1 PUSHI #0x0000002a INIT 1 PUSHI #0x0000002b INIT 1 PUSHI #0x0000002c INIT 1 PUSHI #0x00000028 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000037 INIT 1 PUSHI #0x00000068 INIT 1 PUSHI #0x0000003c INIT 1 PUSHI #0x0000005d INIT 1 PUSHI #0x00000019 INIT 1 PUSHI #0x00000028 INIT 1 PUSHI #0x0000005d INIT 1 PUSHI #0x00000017 INIT 1 PUSHI #0x00000019 INIT 1 PUSHI #0x00000039 INIT 1 PUSHI #0x00000019 INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x000000b0 INIT 1 PUSHI #0x000000b1 INIT 1 PUSHI #0x000000b2 INIT 1 PUSHI #0x000000b3 INIT 1 299 %ownshortintegerarray phrase(200:255) = %C 300 0, 564, 565, 567, 569, 571, 573, 562, 301 614, 203, 200, 602, 478, 480, 624, 298, 302 206, 308, 318, 433, 426, 437, 444, 458, 303 453, 461, 467, 482, 402, 627, 629, 603, 304 521, 511, 486, 502, 575, 527, 528, 543, 305 550, 578, 397, 287, 197, 636, 516, 621, 306 167, 0, 0, 0, 640, 693, 701, 709 307 308 ! MORE<1> 0<1> ORDER<2> TYPE<4> CLASS<8> LINE 299 "regression-compile-tmp/pass1.imp" PUSHI #0x000000c8 PUSHI #0x000000ff BOUNDS DEF PHRASE p1=V_00e5 a/tf=1b b/format=3 c/ostate=121 type=1 (integer) form=11 (array) special=2 (short-integer) linkage=1 (own) spec=0 indirect=0 unass=1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000234 INIT 1 PUSHI #0x00000235 INIT 1 PUSHI #0x00000237 INIT 1 PUSHI #0x00000239 INIT 1 PUSHI #0x0000023b INIT 1 PUSHI #0x0000023d INIT 1 PUSHI #0x00000232 INIT 1 PUSHI #0x00000266 INIT 1 PUSHI #0x000000cb INIT 1 PUSHI #0x000000c8 INIT 1 PUSHI #0x0000025a INIT 1 PUSHI #0x000001de INIT 1 PUSHI #0x000001e0 INIT 1 PUSHI #0x00000270 INIT 1 PUSHI #0x0000012a INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x00000134 INIT 1 PUSHI #0x0000013e INIT 1 PUSHI #0x000001b1 INIT 1 PUSHI #0x000001aa INIT 1 PUSHI #0x000001b5 INIT 1 PUSHI #0x000001bc INIT 1 PUSHI #0x000001ca INIT 1 PUSHI #0x000001c5 INIT 1 PUSHI #0x000001cd INIT 1 PUSHI #0x000001d3 INIT 1 PUSHI #0x000001e2 INIT 1 PUSHI #0x00000192 INIT 1 PUSHI #0x00000273 INIT 1 PUSHI #0x00000275 INIT 1 PUSHI #0x0000025b INIT 1 PUSHI #0x00000209 INIT 1 PUSHI #0x000001ff INIT 1 PUSHI #0x000001e6 INIT 1 PUSHI #0x000001f6 INIT 1 PUSHI #0x0000023f INIT 1 PUSHI #0x0000020f INIT 1 PUSHI #0x00000210 INIT 1 PUSHI #0x0000021f INIT 1 PUSHI #0x00000226 INIT 1 PUSHI #0x00000242 INIT 1 PUSHI #0x0000018d INIT 1 PUSHI #0x0000011f INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x0000027c INIT 1 PUSHI #0x00000204 INIT 1 PUSHI #0x0000026d INIT 1 PUSHI #0x000000a7 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000280 INIT 1 PUSHI #0x000002b5 INIT 1 PUSHI #0x000002bd INIT 1 PUSHI #0x000002c5 INIT 1 309 %ownshortintegerarray gram(0:max grammar) = %c 310 0, -28523, -28521, -28602, -32706, -28509, -28603, -24502, 311 -24503, -20405, -20404, -28595, -32697, -32709, -16323, -28600, 312 -32704, -28587, -28589, -32681, -16344, -28586, -28588, -12270, 313 -32586, 216, -12287, -16380, -8185, -8184, -12285, -12286, 314 -12283, -12282, -12279, -12276, -16373, 20490, -32706, -32701, 315 216, -16364, -28610, -28613, -28612, 16445, 217, -16364, 316 62, -32701, 16450, -16364, 5346, -16364, 166, -16344, 317 4332, 130, -16360, -16361, 126, 217, -32701, 216, 318 -16364, 16450, -32700, 16404, -32701, -32706, 216, 16405, 319 16407, -16222, 8414, 130, 217, -32697, 16450, 1250, 320 4307, 4318, 192, 93, 170, 90, 207, -16365, 321 16404, 90, -16360, -16365, 16404, 241, -16365, 16404, 322 132, 132, -16360, 4329, -16365, 16404, 133, 175, 323 90, -16365, 16404, 209, -16365, 16404, 4313, 217, 324 16451, 4263, 16384, 16384, 120, 216, -32700, 16404, 325 -32706, 16404, 243, 16409, 454, -32685, 16404, 454, 326 248, -16365, 16404, 4263, 194, -16360, 4329, -32717, 327 16404, 4263, 16407, 454, 237, 127, 215, 454, 328 4263, 16384, -16364, 1502, -32629, -16361, 153, -32606, 329 222, 143, -32629, 153, 454, 126, 16409, 454, 330 16384, 234, -16365, -32595, 147, -32678, 234, 193, 331 -32677, -32676, -32661, 109, -32717, 53, 52, 52, 332 52, 194, 194, 194, -28581, 4188, 194, -28566, 333 4203, 194, -28564, 4205, 4580, 16429, 183, 183, 334 186, 186, -28583, 0, 9437, 90, -16365, 0, 335 134, -16365, 0, 210, 4329, 199, -32677, -32672, 336 -32676, -32688, -32690, -32705, -32661, -32659, -32689, -32686, 337 -32687, -16330, 65, -32716, 186, -28583, -32717, -32715, 338 -32713, 52, -32664, 4201, 186, -32717, -32715, 55, 339 -16328, 0, 197, 197, 52, 52, 197, -28581, 340 -28580, 186, -28581, 4188, 4318, 194, -28581, 4188, 341 9437, 194, 194, 454, 16407, 216, 194, -28566, 342 -28565, 186, -28566, 4203, 194, -28564, -28563, 186, 343 -28564, 4205, 183, 183, 186, 183, -16365, 0, 344 183, 4580, 16429, 5095, 9444, 5348, 186, -28583, 345 -16328, 0, 16409, -16365, 0, 9437, 5348, 217, 346 -32701, 16450, -32701, 216, -32700, 0, -32701, -32706, 347 216, 243, 217, -16318, 0, -32552, 0, -32700, 348 0, -32706, 0, 215, -32550, 228, -28616, -28615, 349 0, 4096, 218, 218, -28616, 0, -32677, -32676, 350 -16361, -32710, -32669, -32662, -32661, -32660, -32659, 740, 351 -32039, 740, -32719, 4096, 194, -32719, -32718, -32604, 352 -32726, -32725, -32724, -32720, 4096, 710, 6116, -32719, 353 0, 710, 6116, -28581, 4188, 218, 122, 50, 354 16409, -32726, -32725, -32724, -32719, 4096, 710, 454, 355 195, 195, 195, 454, -28581, 4188, 194, -28566, 356 -28565, -28564, 4205, 195, 195, 195, 710, 4836, 357 5095, 4829, -32726, -32725, -32724, -32719, 4096, 4827, 358 4828, 454, -32720, -32719, 4096, 4829, 4827, 4828, 359 194, -32719, 0, 710, 4836, -16291, -32677, 92, 360 184, 121, -28581, -28580, -32722, -32723, 4317, -32726, 361 -32725, -32724, 0, 183, -32726, -32725, -32724, -32720, 362 0, 4316, 195, 195, 195, 454, -28581, 4188, 363 4315, 183, 4317, -32726, -32725, 0, 195, 195, 364 4315, 4317, -32726, 0, 195, -32677, -32676, -16361, 365 16431, 228, 228, 47, -32610, -32611, 5345, -32609, 366 -32608, -32607, 0, 4320, 4319, 5345, -32609, -32608, 367 0, 4319, 5345, -32609, 0, -32613, -16361, 16431, 368 222, 222, 156, -32677, 92, 183, 186, 1222, 369 16435, 228, 16403, 4324, 138, 8420, -32723, 4189, 370 93, 454, 148, -32674, 16546, 16409, -32597, 182, 371 -16383, 16388, 234, -16365, -32595, 172, -32678, 234, 372 90, 244, 246, -16365, 0, 235, -32678, 234, 373 -16365, 246, -16365, 0, -32678, 234, 90, 16407, 374 222, 16405, 222, 145, 16407, 222, 16405, 222, 375 146, 16407, 1252, 154, 5348, -16365, 142, 126, 376 182, -16383, 16391, 90, -16365, 127, -32678, 238, 377 90, 125, 239, -16365, 8319, 8430, 128, 126, 378 -16361, 127, 190, 240, 189, 16409, 182, -16383, 379 16391, 90, -16365, 0, -32678, 240, 90, 16623, 380 -16365, 0, 244, 232, 1252, 1252, 137, 1252, 381 137, 1252, 137, 1252, 137, 1252, 137, 222, 382 -16365, 0, 131, 194, -16360, -16333, -16332, 124, 383 181, -16292, -16277, 16493, -31802, 5342, -28581, 4188, 384 4263, 181, 186, 454, 16475, 183, -28583, 199, 385 5598, 9438, 222, -32677, -32676, 16407, 186, 228, 386 135, 16409, -32632, 0, -32677, 92, -32677, -32676, 387 -32662, -32661, -32660, -32659, 165, -32677, 92, 188, 388 -32662, 107, 188, -32660, 109, -32732, 37, -16344, 389 4318, 148, -32674, 16424, 222, 16405, 222, 174, 390 -28644, -32734, -32680, -28641, -32733, -32730, -32735, -32727, 391 -32738, 4326, -32738, -32739, -32741, -32736, 199, -28644, 392 -32680, -28641, 4326, -32739, -32741, 199, -32738, -32739, 393 -32741, -32736, -32729, 199, -32616, 199, -32739, -32741, 394 -32729, 199, -32616, -32729, 199, -28644, -32680, 4326, 395 -32738, -32739, -32741, 199, 245, 4318, 245, 16409, 396 152, 4318, 16409, 152, 245, -32672, -32671, -32670, 397 99, 16407, 200, 144, 185, -32677, 92, 16407, 398 -32582, 200, 200, 187, 141, -32677, 92, 16410, 399 191, -32677, -32676, -32662, -32661, -32660, 109, 198, 400 0(max grammar-gmax1) 401 LINE 309 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x000006b8 BOUNDS DEF GRAM p1=V_00e6 a/tf=1b b/format=3 c/ostate=121 type=1 (integer) form=11 (array) special=2 (short-integer) linkage=1 (own) spec=0 indirect=0 unass=1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff9095 INIT 1 PUSHI #0xffff9097 INIT 1 PUSHI #0xffff9046 INIT 1 PUSHI #0xffff803e INIT 1 PUSHI #0xffff90a3 INIT 1 PUSHI #0xffff9045 INIT 1 PUSHI #0xffffa04a INIT 1 PUSHI #0xffffa049 INIT 1 PUSHI #0xffffb04b INIT 1 PUSHI #0xffffb04c INIT 1 PUSHI #0xffff904d INIT 1 PUSHI #0xffff8047 INIT 1 PUSHI #0xffff803b INIT 1 PUSHI #0xffffc03d INIT 1 PUSHI #0xffff9048 INIT 1 PUSHI #0xffff8040 INIT 1 PUSHI #0xffff9055 INIT 1 PUSHI #0xffff9053 INIT 1 PUSHI #0xffff8057 INIT 1 PUSHI #0xffffc028 INIT 1 PUSHI #0xffff9056 INIT 1 PUSHI #0xffff9054 INIT 1 PUSHI #0xffffd012 INIT 1 PUSHI #0xffff80b6 INIT 1 PUSHI #0x000000d8 INIT 1 PUSHI #0xffffd001 INIT 1 PUSHI #0xffffc004 INIT 1 PUSHI #0xffffe007 INIT 1 PUSHI #0xffffe008 INIT 1 PUSHI #0xffffd003 INIT 1 PUSHI #0xffffd002 INIT 1 PUSHI #0xffffd005 INIT 1 PUSHI #0xffffd006 INIT 1 PUSHI #0xffffd009 INIT 1 PUSHI #0xffffd00c INIT 1 PUSHI #0xffffc00b INIT 1 PUSHI #0x0000500a INIT 1 PUSHI #0xffff803e INIT 1 PUSHI #0xffff8043 INIT 1 PUSHI #0x000000d8 INIT 1 PUSHI #0xffffc014 INIT 1 PUSHI #0xffff903e INIT 1 PUSHI #0xffff903b INIT 1 PUSHI #0xffff903c INIT 1 PUSHI #0x0000403d INIT 1 PUSHI #0x000000d9 INIT 1 PUSHI #0xffffc014 INIT 1 PUSHI #0x0000003e INIT 1 PUSHI #0xffff8043 INIT 1 PUSHI #0x00004042 INIT 1 PUSHI #0xffffc014 INIT 1 PUSHI #0x000014e2 INIT 1 PUSHI #0xffffc014 INIT 1 PUSHI #0x000000a6 INIT 1 PUSHI #0xffffc028 INIT 1 PUSHI #0x000010ec INIT 1 PUSHI #0x00000082 INIT 1 PUSHI #0xffffc018 INIT 1 PUSHI #0xffffc017 INIT 1 PUSHI #0x0000007e INIT 1 PUSHI #0x000000d9 INIT 1 PUSHI #0xffff8043 INIT 1 PUSHI #0x000000d8 INIT 1 PUSHI #0xffffc014 INIT 1 PUSHI #0x00004042 INIT 1 PUSHI #0xffff8044 INIT 1 PUSHI #0x00004014 INIT 1 PUSHI #0xffff8043 INIT 1 PUSHI #0xffff803e INIT 1 PUSHI #0x000000d8 INIT 1 PUSHI #0x00004015 INIT 1 PUSHI #0x00004017 INIT 1 PUSHI #0xffffc0a2 INIT 1 PUSHI #0x000020de INIT 1 PUSHI #0x00000082 INIT 1 PUSHI #0x000000d9 INIT 1 PUSHI #0xffff8047 INIT 1 PUSHI #0x00004042 INIT 1 PUSHI #0x000004e2 INIT 1 PUSHI #0x000010d3 INIT 1 PUSHI #0x000010de INIT 1 PUSHI #0x000000c0 INIT 1 PUSHI #0x0000005d INIT 1 PUSHI #0x000000aa INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00004014 INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0xffffc018 INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00004014 INIT 1 PUSHI #0x000000f1 INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00004014 INIT 1 PUSHI #0x00000084 INIT 1 PUSHI #0x00000084 INIT 1 PUSHI #0xffffc018 INIT 1 PUSHI #0x000010e9 INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00004014 INIT 1 PUSHI #0x00000085 INIT 1 PUSHI #0x000000af INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00004014 INIT 1 PUSHI #0x000000d1 INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00004014 INIT 1 PUSHI #0x000010d9 INIT 1 PUSHI #0x000000d9 INIT 1 PUSHI #0x00004043 INIT 1 PUSHI #0x000010a7 INIT 1 PUSHI #0x00004000 INIT 1 PUSHI #0x00004000 INIT 1 PUSHI #0x00000078 INIT 1 PUSHI #0x000000d8 INIT 1 PUSHI #0xffff8044 INIT 1 PUSHI #0x00004014 INIT 1 PUSHI #0xffff803e INIT 1 PUSHI #0x00004014 INIT 1 PUSHI #0x000000f3 INIT 1 PUSHI #0x00004019 INIT 1 PUSHI #0x000001c6 INIT 1 PUSHI #0xffff8053 INIT 1 PUSHI #0x00004014 INIT 1 PUSHI #0x000001c6 INIT 1 PUSHI #0x000000f8 INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00004014 INIT 1 PUSHI #0x000010a7 INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0xffffc018 INIT 1 PUSHI #0x000010e9 INIT 1 PUSHI #0xffff8033 INIT 1 PUSHI #0x00004014 INIT 1 PUSHI #0x000010a7 INIT 1 PUSHI #0x00004017 INIT 1 PUSHI #0x000001c6 INIT 1 PUSHI #0x000000ed INIT 1 PUSHI #0x0000007f INIT 1 PUSHI #0x000000d7 INIT 1 PUSHI #0x000001c6 INIT 1 PUSHI #0x000010a7 INIT 1 PUSHI #0x00004000 INIT 1 PUSHI #0xffffc014 INIT 1 PUSHI #0x000005de INIT 1 PUSHI #0xffff808b INIT 1 PUSHI #0xffffc017 INIT 1 PUSHI #0x00000099 INIT 1 PUSHI #0xffff80a2 INIT 1 PUSHI #0x000000de INIT 1 PUSHI #0x0000008f INIT 1 PUSHI #0xffff808b INIT 1 PUSHI #0x00000099 INIT 1 PUSHI #0x000001c6 INIT 1 PUSHI #0x0000007e INIT 1 PUSHI #0x00004019 INIT 1 PUSHI #0x000001c6 INIT 1 PUSHI #0x00004000 INIT 1 PUSHI #0x000000ea INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0xffff80ad INIT 1 PUSHI #0x00000093 INIT 1 PUSHI #0xffff805a INIT 1 PUSHI #0x000000ea INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0xffff805b INIT 1 PUSHI #0xffff805c INIT 1 PUSHI #0xffff806b INIT 1 PUSHI #0x0000006d INIT 1 PUSHI #0xffff8033 INIT 1 PUSHI #0x00000035 INIT 1 PUSHI #0x00000034 INIT 1 PUSHI #0x00000034 INIT 1 PUSHI #0x00000034 INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0xffff905b INIT 1 PUSHI #0x0000105c INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0xffff906a INIT 1 PUSHI #0x0000106b INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0xffff906c INIT 1 PUSHI #0x0000106d INIT 1 PUSHI #0x000011e4 INIT 1 PUSHI #0x0000402d INIT 1 PUSHI #0x000000b7 INIT 1 PUSHI #0x000000b7 INIT 1 PUSHI #0x000000ba INIT 1 PUSHI #0x000000ba INIT 1 PUSHI #0xffff9059 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000024dd INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000086 INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000010e9 INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0xffff805b INIT 1 PUSHI #0xffff8060 INIT 1 PUSHI #0xffff805c INIT 1 PUSHI #0xffff8050 INIT 1 PUSHI #0xffff804e INIT 1 PUSHI #0xffff803f INIT 1 PUSHI #0xffff806b INIT 1 PUSHI #0xffff806d INIT 1 PUSHI #0xffff804f INIT 1 PUSHI #0xffff8052 INIT 1 PUSHI #0xffff8051 INIT 1 PUSHI #0xffffc036 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0xffff8034 INIT 1 PUSHI #0x000000ba INIT 1 PUSHI #0xffff9059 INIT 1 PUSHI #0xffff8033 INIT 1 PUSHI #0xffff8035 INIT 1 PUSHI #0xffff8037 INIT 1 PUSHI #0x00000034 INIT 1 PUSHI #0xffff8068 INIT 1 PUSHI #0x00001069 INIT 1 PUSHI #0x000000ba INIT 1 PUSHI #0xffff8033 INIT 1 PUSHI #0xffff8035 INIT 1 PUSHI #0x00000037 INIT 1 PUSHI #0xffffc038 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x00000034 INIT 1 PUSHI #0x00000034 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0xffff905b INIT 1 PUSHI #0xffff905c INIT 1 PUSHI #0x000000ba INIT 1 PUSHI #0xffff905b INIT 1 PUSHI #0x0000105c INIT 1 PUSHI #0x000010de INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0xffff905b INIT 1 PUSHI #0x0000105c INIT 1 PUSHI #0x000024dd INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0x000001c6 INIT 1 PUSHI #0x00004017 INIT 1 PUSHI #0x000000d8 INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0xffff906a INIT 1 PUSHI #0xffff906b INIT 1 PUSHI #0x000000ba INIT 1 PUSHI #0xffff906a INIT 1 PUSHI #0x0000106b INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0xffff906c INIT 1 PUSHI #0xffff906d INIT 1 PUSHI #0x000000ba INIT 1 PUSHI #0xffff906c INIT 1 PUSHI #0x0000106d INIT 1 PUSHI #0x000000b7 INIT 1 PUSHI #0x000000b7 INIT 1 PUSHI #0x000000ba INIT 1 PUSHI #0x000000b7 INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000b7 INIT 1 PUSHI #0x000011e4 INIT 1 PUSHI #0x0000402d INIT 1 PUSHI #0x000013e7 INIT 1 PUSHI #0x000024e4 INIT 1 PUSHI #0x000014e4 INIT 1 PUSHI #0x000000ba INIT 1 PUSHI #0xffff9059 INIT 1 PUSHI #0xffffc038 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00004019 INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000024dd INIT 1 PUSHI #0x000014e4 INIT 1 PUSHI #0x000000d9 INIT 1 PUSHI #0xffff8043 INIT 1 PUSHI #0x00004042 INIT 1 PUSHI #0xffff8043 INIT 1 PUSHI #0x000000d8 INIT 1 PUSHI #0xffff8044 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff8043 INIT 1 PUSHI #0xffff803e INIT 1 PUSHI #0x000000d8 INIT 1 PUSHI #0x000000f3 INIT 1 PUSHI #0x000000d9 INIT 1 PUSHI #0xffffc042 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff80d8 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff8044 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff803e INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000d7 INIT 1 PUSHI #0xffff80da INIT 1 PUSHI #0x000000e4 INIT 1 PUSHI #0xffff9038 INIT 1 PUSHI #0xffff9039 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00001000 INIT 1 PUSHI #0x000000da INIT 1 PUSHI #0x000000da INIT 1 PUSHI #0xffff9038 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff805b INIT 1 PUSHI #0xffff805c INIT 1 PUSHI #0xffffc017 INIT 1 PUSHI #0xffff803a INIT 1 PUSHI #0xffff8063 INIT 1 PUSHI #0xffff806a INIT 1 PUSHI #0xffff806b INIT 1 PUSHI #0xffff806c INIT 1 PUSHI #0xffff806d INIT 1 PUSHI #0x000002e4 INIT 1 PUSHI #0xffff82d9 INIT 1 PUSHI #0x000002e4 INIT 1 PUSHI #0xffff8031 INIT 1 PUSHI #0x00001000 INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0xffff8031 INIT 1 PUSHI #0xffff8032 INIT 1 PUSHI #0xffff80a4 INIT 1 PUSHI #0xffff802a INIT 1 PUSHI #0xffff802b INIT 1 PUSHI #0xffff802c INIT 1 PUSHI #0xffff8030 INIT 1 PUSHI #0x00001000 INIT 1 PUSHI #0x000002c6 INIT 1 PUSHI #0x000017e4 INIT 1 PUSHI #0xffff8031 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000002c6 INIT 1 PUSHI #0x000017e4 INIT 1 PUSHI #0xffff905b INIT 1 PUSHI #0x0000105c INIT 1 PUSHI #0x000000da INIT 1 PUSHI #0x0000007a INIT 1 PUSHI #0x00000032 INIT 1 PUSHI #0x00004019 INIT 1 PUSHI #0xffff802a INIT 1 PUSHI #0xffff802b INIT 1 PUSHI #0xffff802c INIT 1 PUSHI #0xffff8031 INIT 1 PUSHI #0x00001000 INIT 1 PUSHI #0x000002c6 INIT 1 PUSHI #0x000001c6 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000001c6 INIT 1 PUSHI #0xffff905b INIT 1 PUSHI #0x0000105c INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0xffff906a INIT 1 PUSHI #0xffff906b INIT 1 PUSHI #0xffff906c INIT 1 PUSHI #0x0000106d INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000002c6 INIT 1 PUSHI #0x000012e4 INIT 1 PUSHI #0x000013e7 INIT 1 PUSHI #0x000012dd INIT 1 PUSHI #0xffff802a INIT 1 PUSHI #0xffff802b INIT 1 PUSHI #0xffff802c INIT 1 PUSHI #0xffff8031 INIT 1 PUSHI #0x00001000 INIT 1 PUSHI #0x000012db INIT 1 PUSHI #0x000012dc INIT 1 PUSHI #0x000001c6 INIT 1 PUSHI #0xffff8030 INIT 1 PUSHI #0xffff8031 INIT 1 PUSHI #0x00001000 INIT 1 PUSHI #0x000012dd INIT 1 PUSHI #0x000012db INIT 1 PUSHI #0x000012dc INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0xffff8031 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000002c6 INIT 1 PUSHI #0x000012e4 INIT 1 PUSHI #0xffffc05d INIT 1 PUSHI #0xffff805b INIT 1 PUSHI #0x0000005c INIT 1 PUSHI #0x000000b8 INIT 1 PUSHI #0x00000079 INIT 1 PUSHI #0xffff905b INIT 1 PUSHI #0xffff905c INIT 1 PUSHI #0xffff802e INIT 1 PUSHI #0xffff802d INIT 1 PUSHI #0x000010dd INIT 1 PUSHI #0xffff802a INIT 1 PUSHI #0xffff802b INIT 1 PUSHI #0xffff802c INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000b7 INIT 1 PUSHI #0xffff802a INIT 1 PUSHI #0xffff802b INIT 1 PUSHI #0xffff802c INIT 1 PUSHI #0xffff8030 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000010dc INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000001c6 INIT 1 PUSHI #0xffff905b INIT 1 PUSHI #0x0000105c INIT 1 PUSHI #0x000010db INIT 1 PUSHI #0x000000b7 INIT 1 PUSHI #0x000010dd INIT 1 PUSHI #0xffff802a INIT 1 PUSHI #0xffff802b INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000010db INIT 1 PUSHI #0x000010dd INIT 1 PUSHI #0xffff802a INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0xffff805b INIT 1 PUSHI #0xffff805c INIT 1 PUSHI #0xffffc017 INIT 1 PUSHI #0x0000402f INIT 1 PUSHI #0x000000e4 INIT 1 PUSHI #0x000000e4 INIT 1 PUSHI #0x0000002f INIT 1 PUSHI #0xffff809e INIT 1 PUSHI #0xffff809d INIT 1 PUSHI #0x000014e1 INIT 1 PUSHI #0xffff809f INIT 1 PUSHI #0xffff80a0 INIT 1 PUSHI #0xffff80a1 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000010e0 INIT 1 PUSHI #0x000010df INIT 1 PUSHI #0x000014e1 INIT 1 PUSHI #0xffff809f INIT 1 PUSHI #0xffff80a0 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000010df INIT 1 PUSHI #0x000014e1 INIT 1 PUSHI #0xffff809f INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff809b INIT 1 PUSHI #0xffffc017 INIT 1 PUSHI #0x0000402f INIT 1 PUSHI #0x000000de INIT 1 PUSHI #0x000000de INIT 1 PUSHI #0x0000009c INIT 1 PUSHI #0xffff805b INIT 1 PUSHI #0x0000005c INIT 1 PUSHI #0x000000b7 INIT 1 PUSHI #0x000000ba INIT 1 PUSHI #0x000004c6 INIT 1 PUSHI #0x00004033 INIT 1 PUSHI #0x000000e4 INIT 1 PUSHI #0x00004013 INIT 1 PUSHI #0x000010e4 INIT 1 PUSHI #0x0000008a INIT 1 PUSHI #0x000020e4 INIT 1 PUSHI #0xffff802d INIT 1 PUSHI #0x0000105d INIT 1 PUSHI #0x0000005d INIT 1 PUSHI #0x000001c6 INIT 1 PUSHI #0x00000094 INIT 1 PUSHI #0xffff805e INIT 1 PUSHI #0x000040a2 INIT 1 PUSHI #0x00004019 INIT 1 PUSHI #0xffff80ab INIT 1 PUSHI #0x000000b6 INIT 1 PUSHI #0xffffc001 INIT 1 PUSHI #0x00004004 INIT 1 PUSHI #0x000000ea INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0xffff80ad INIT 1 PUSHI #0x000000ac INIT 1 PUSHI #0xffff805a INIT 1 PUSHI #0x000000ea INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x000000f4 INIT 1 PUSHI #0x000000f6 INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000eb INIT 1 PUSHI #0xffff805a INIT 1 PUSHI #0x000000ea INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x000000f6 INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff805a INIT 1 PUSHI #0x000000ea INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x00004017 INIT 1 PUSHI #0x000000de INIT 1 PUSHI #0x00004015 INIT 1 PUSHI #0x000000de INIT 1 PUSHI #0x00000091 INIT 1 PUSHI #0x00004017 INIT 1 PUSHI #0x000000de INIT 1 PUSHI #0x00004015 INIT 1 PUSHI #0x000000de INIT 1 PUSHI #0x00000092 INIT 1 PUSHI #0x00004017 INIT 1 PUSHI #0x000004e4 INIT 1 PUSHI #0x0000009a INIT 1 PUSHI #0x000014e4 INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x0000008e INIT 1 PUSHI #0x0000007e INIT 1 PUSHI #0x000000b6 INIT 1 PUSHI #0xffffc001 INIT 1 PUSHI #0x00004007 INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x0000007f INIT 1 PUSHI #0xffff805a INIT 1 PUSHI #0x000000ee INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x0000007d INIT 1 PUSHI #0x000000ef INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x0000207f INIT 1 PUSHI #0x000020ee INIT 1 PUSHI #0x00000080 INIT 1 PUSHI #0x0000007e INIT 1 PUSHI #0xffffc017 INIT 1 PUSHI #0x0000007f INIT 1 PUSHI #0x000000be INIT 1 PUSHI #0x000000f0 INIT 1 PUSHI #0x000000bd INIT 1 PUSHI #0x00004019 INIT 1 PUSHI #0x000000b6 INIT 1 PUSHI #0xffffc001 INIT 1 PUSHI #0x00004007 INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff805a INIT 1 PUSHI #0x000000f0 INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x000040ef INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000f4 INIT 1 PUSHI #0x000000e8 INIT 1 PUSHI #0x000004e4 INIT 1 PUSHI #0x000004e4 INIT 1 PUSHI #0x00000089 INIT 1 PUSHI #0x000004e4 INIT 1 PUSHI #0x00000089 INIT 1 PUSHI #0x000004e4 INIT 1 PUSHI #0x00000089 INIT 1 PUSHI #0x000004e4 INIT 1 PUSHI #0x00000089 INIT 1 PUSHI #0x000004e4 INIT 1 PUSHI #0x00000089 INIT 1 PUSHI #0x000000de INIT 1 PUSHI #0xffffc013 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0xffffc018 INIT 1 PUSHI #0xffffc033 INIT 1 PUSHI #0xffffc034 INIT 1 PUSHI #0x0000007c INIT 1 PUSHI #0x000000b5 INIT 1 PUSHI #0xffffc05c INIT 1 PUSHI #0xffffc06b INIT 1 PUSHI #0x0000406d INIT 1 PUSHI #0xffff83c6 INIT 1 PUSHI #0x000014de INIT 1 PUSHI #0xffff905b INIT 1 PUSHI #0x0000105c INIT 1 PUSHI #0x000010a7 INIT 1 PUSHI #0x000000b5 INIT 1 PUSHI #0x000000ba INIT 1 PUSHI #0x000001c6 INIT 1 PUSHI #0x0000405b INIT 1 PUSHI #0x000000b7 INIT 1 PUSHI #0xffff9059 INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0x000015de INIT 1 PUSHI #0x000024de INIT 1 PUSHI #0x000000de INIT 1 PUSHI #0xffff805b INIT 1 PUSHI #0xffff805c INIT 1 PUSHI #0x00004017 INIT 1 PUSHI #0x000000ba INIT 1 PUSHI #0x000000e4 INIT 1 PUSHI #0x00000087 INIT 1 PUSHI #0x00004019 INIT 1 PUSHI #0xffff8088 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff805b INIT 1 PUSHI #0x0000005c INIT 1 PUSHI #0xffff805b INIT 1 PUSHI #0xffff805c INIT 1 PUSHI #0xffff806a INIT 1 PUSHI #0xffff806b INIT 1 PUSHI #0xffff806c INIT 1 PUSHI #0xffff806d INIT 1 PUSHI #0x000000a5 INIT 1 PUSHI #0xffff805b INIT 1 PUSHI #0x0000005c INIT 1 PUSHI #0x000000bc INIT 1 PUSHI #0xffff806a INIT 1 PUSHI #0x0000006b INIT 1 PUSHI #0x000000bc INIT 1 PUSHI #0xffff806c INIT 1 PUSHI #0x0000006d INIT 1 PUSHI #0xffff8024 INIT 1 PUSHI #0x00000025 INIT 1 PUSHI #0xffffc028 INIT 1 PUSHI #0x000010de INIT 1 PUSHI #0x00000094 INIT 1 PUSHI #0xffff805e INIT 1 PUSHI #0x00004028 INIT 1 PUSHI #0x000000de INIT 1 PUSHI #0x00004015 INIT 1 PUSHI #0x000000de INIT 1 PUSHI #0x000000ae INIT 1 PUSHI #0xffff901c INIT 1 PUSHI #0xffff8022 INIT 1 PUSHI #0xffff8058 INIT 1 PUSHI #0xffff901f INIT 1 PUSHI #0xffff8023 INIT 1 PUSHI #0xffff8026 INIT 1 PUSHI #0xffff8021 INIT 1 PUSHI #0xffff8029 INIT 1 PUSHI #0xffff801e INIT 1 PUSHI #0x000010e6 INIT 1 PUSHI #0xffff801e INIT 1 PUSHI #0xffff801d INIT 1 PUSHI #0xffff801b INIT 1 PUSHI #0xffff8020 INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0xffff901c INIT 1 PUSHI #0xffff8058 INIT 1 PUSHI #0xffff901f INIT 1 PUSHI #0x000010e6 INIT 1 PUSHI #0xffff801d INIT 1 PUSHI #0xffff801b INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0xffff801e INIT 1 PUSHI #0xffff801d INIT 1 PUSHI #0xffff801b INIT 1 PUSHI #0xffff8020 INIT 1 PUSHI #0xffff8027 INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0xffff8098 INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0xffff801d INIT 1 PUSHI #0xffff801b INIT 1 PUSHI #0xffff8027 INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0xffff8098 INIT 1 PUSHI #0xffff8027 INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0xffff901c INIT 1 PUSHI #0xffff8058 INIT 1 PUSHI #0x000010e6 INIT 1 PUSHI #0xffff801e INIT 1 PUSHI #0xffff801d INIT 1 PUSHI #0xffff801b INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0x000000f5 INIT 1 PUSHI #0x000010de INIT 1 PUSHI #0x000000f5 INIT 1 PUSHI #0x00004019 INIT 1 PUSHI #0x00000098 INIT 1 PUSHI #0x000010de INIT 1 PUSHI #0x00004019 INIT 1 PUSHI #0x00000098 INIT 1 PUSHI #0x000000f5 INIT 1 PUSHI #0xffff8060 INIT 1 PUSHI #0xffff8061 INIT 1 PUSHI #0xffff8062 INIT 1 PUSHI #0x00000063 INIT 1 PUSHI #0x00004017 INIT 1 PUSHI #0x000000c8 INIT 1 PUSHI #0x00000090 INIT 1 PUSHI #0x000000b9 INIT 1 PUSHI #0xffff805b INIT 1 PUSHI #0x0000005c INIT 1 PUSHI #0x00004017 INIT 1 PUSHI #0xffff80ba INIT 1 PUSHI #0x000000c8 INIT 1 PUSHI #0x000000c8 INIT 1 PUSHI #0x000000bb INIT 1 PUSHI #0x0000008d INIT 1 PUSHI #0xffff805b INIT 1 PUSHI #0x0000005c INIT 1 PUSHI #0x0000401a INIT 1 PUSHI #0x000000bf INIT 1 PUSHI #0xffff805b INIT 1 PUSHI #0xffff805c INIT 1 PUSHI #0xffff806a INIT 1 PUSHI #0xffff806b INIT 1 PUSHI #0xffff806c INIT 1 PUSHI #0x0000006d INIT 1 PUSHI #0x000000c6 INIT 1 PUSHI #0x00000000 INIT 1001 402 %ownshortintegerarray glink(0:max grammar) = %c 403 -1, 71, 72, 38, 46, 47, 67, 67, 404 75, 67, 0, 67, 51, 76, 79, 53, 405 55, 80, 67, 81, 82, 83, 67, 84, 406 26, 41, 85, 86, 57, 57, 89, 93, 407 96, 97, 102, 103, 104, 107, 46, 67, 408 67, 0, 110, 110, 111, 52, 49, 0, 409 61, 67, 62, 0, 67, 0, 111, 112, 410 112, 58, 113, 114, 115, 64, 67, 66, 411 116, 117, 68, 0, 67, 122, 67, 0, 412 73, 123, 123, 67, 77, 67, 40, 77, 413 67, 67, 0, 124, 127, 128, 87, 86, 414 0, 90, 131, 89, 0, 94, 93, 0, 415 132, 98, 137, 100, 97, 0, 138, 67, 416 105, 104, 0, 108, 107, 0, 67, 67, 417 67, 139, 140, 141, 0, 118, 120, 116, 418 142, 116, 67, 71, 125, 67, 0, 67, 419 129, 85, 0, 143, 133, 144, 135, 145, 420 0, 156, 157, 59, 158, 67, 119, 91, 421 159, 146, 145, 148, 146, 151, 0, 153, 422 153, 154, 146, 0, 99, 160, 67, 134, 423 161, 162, 165, 161, 141, 162, 162, 168, 424 172, 174, 175, 176, 177, 178, 179, 182, 425 185, 188, 189, 180, 190, 190, 183, 191, 426 191, 186, 191, 191, 0, 188, 192, 193, 427 194, 0, 196, 0, 0, 198, 197, 0, 428 201, 200, 0, 204, 205, 0, 228, 232, 429 219, 234, 235, 0, 236, 237, 238, 0, 430 232, 226, 244, 245, 221, 248, 249, 250, 431 251, 245, 0, 252, 229, 249, 250, 251, 432 253, 0, 0, 188, 254, 260, 239, 269, 433 269, 242, 191, 191, 270, 246, 272, 272, 434 229, 273, 274, 275, 276, 0, 255, 266, 435 266, 258, 267, 267, 261, 266, 266, 264, 436 267, 267, 232, 268, 232, 0, 277, 0, 437 278, 232, 273, 232, 282, 283, 279, 285, 438 253, 0, 0, 286, 0, 232, 0, 288, 439 0, 290, 0, 292, 294, 0, 0, 297, 440 0, 0, 299, 301, 0, 303, 0, 305, 441 0, 307, 0, 0, 310, 313, 314, 315, 442 0, 0, 316, 311, 314, 0, 332, 332, 443 328, 349, 350, 351, 351, 351, 351, 330, 444 282, 352, 358, 0, 333, 341, 347, 359, 445 360, 361, 362, 363, 0, 342, 343, 345, 446 0, 346, 0, 269, 269, 0, 0, 366, 447 353, 371, 372, 373, 374, 0, 375, 376, 448 377, 383, 384, 364, 385, 385, 367, 269, 449 269, 269, 269, 389, 390, 391, 392, 393, 450 0, 378, 360, 361, 362, 341, 0, 379, 451 380, 386, 363, 341, 0, 353, 354, 355, 452 375, 395, 0, 396, 0, 400, 269, 269, 453 401, 0, 411, 411, 406, 417, 407, 418, 454 419, 420, 0, 412, 418, 419, 420, 421, 455 0, 409, 406, 424, 417, 422, 425, 425, 456 408, 415, 427, 430, 431, 0, 426, 432, 457 428, 434, 436, 0, 433, 269, 269, 441, 458 442, 282, 443, 0, 446, 451, 447, 446, 459 452, 451, 0, 449, 448, 454, 453, 457, 460 0, 455, 459, 458, 0, 269, 464, 465, 461 282, 466, 0, 469, 469, 470, 471, 472, 462 473, 474, 475, 476, 477, 0, 479, 269, 463 481, 0, 483, 485, 485, 205, 490, 488, 464 496, 497, 491, 494, 490, 0, 491, 491, 465 0, 498, 499, 501, 0, 0, 504, 506, 466 510, 499, 508, 0, 506, 506, 504, 512, 467 513, 514, 515, 0, 517, 518, 519, 520, 468 0, 522, 523, 524, 525, 522, 0, 528, 469 529, 531, 536, 532, 534, 0, 532, 0, 470 537, 538, 539, 541, 542, 542, 0, 544, 471 546, 0, 547, 548, 549, 533, 551, 553, 472 558, 554, 556, 0, 554, 0, 559, 560, 473 557, 0, 563, 205, 0, 566, 564, 568, 474 565, 570, 567, 572, 569, 574, 571, 576, 475 575, 0, 579, 580, 592, 593, 584, 205, 476 585, 588, 588, 588, 590, 205, 594, 594, 477 595, 596, 597, 581, 600, 598, 601, 0, 478 205, 205, 205, 606, 606, 607, 608, 609, 479 605, 610, 612, 0, 193, 193, 193, 193, 480 193, 193, 193, 193, 0, 623, 623, 192, 481 626, 626, 0, 626, 626, 631, 633, 282, 482 282, 634, 282, 282, 637, 638, 639, 0, 483 650, 677, 684, 666, 655, 205, 205, 205, 484 205, 650, 659, 668, 685, 666, 0, 662, 485 686, 666, 662, 668, 685, 0, 670, 674, 486 689, 666, 205, 0, 205, 0, 674, 689, 487 205, 0, 666, 205, 0, 680, 692, 680, 488 659, 668, 685, 0, 650, 687, 662, 688, 489 205, 690, 691, 666, 680, 697, 697, 697, 490 697, 698, 699, 700, 0, 703, 703, 704, 491 706, 707, 708, 708, 700, 711, 711, 712, 492 713, 719, 719, 719, 719, 719, 719, 0, 493 0(max grammar-gmax1) 494 LINE 402 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x000006b8 BOUNDS DEF GLINK p1=V_00e7 a/tf=1b b/format=3 c/ostate=121 type=1 (integer) form=11 (array) special=2 (short-integer) linkage=1 (own) spec=0 indirect=0 unass=1 PUSHI #0xffffffff INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x00000026 INIT 1 PUSHI #0x0000002e INIT 1 PUSHI #0x0000002f INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x0000004b INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000033 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000035 INIT 1 PUSHI #0x00000037 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000051 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x0000001a INIT 1 PUSHI #0x00000029 INIT 1 PUSHI #0x00000055 INIT 1 PUSHI #0x00000056 INIT 1 PUSHI #0x00000039 INIT 1 PUSHI #0x00000039 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x0000005d INIT 1 PUSHI #0x00000060 INIT 1 PUSHI #0x00000061 INIT 1 PUSHI #0x00000066 INIT 1 PUSHI #0x00000067 INIT 1 PUSHI #0x00000068 INIT 1 PUSHI #0x0000006b INIT 1 PUSHI #0x0000002e INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000006e INIT 1 PUSHI #0x0000006e INIT 1 PUSHI #0x0000006f INIT 1 PUSHI #0x00000034 INIT 1 PUSHI #0x00000031 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000003d INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x0000003e INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000006f INIT 1 PUSHI #0x00000070 INIT 1 PUSHI #0x00000070 INIT 1 PUSHI #0x0000003a INIT 1 PUSHI #0x00000071 INIT 1 PUSHI #0x00000072 INIT 1 PUSHI #0x00000073 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000042 INIT 1 PUSHI #0x00000074 INIT 1 PUSHI #0x00000075 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x0000007a INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000007b INIT 1 PUSHI #0x0000007b INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000028 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000007c INIT 1 PUSHI #0x0000007f INIT 1 PUSHI #0x00000080 INIT 1 PUSHI #0x00000057 INIT 1 PUSHI #0x00000056 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000005e INIT 1 PUSHI #0x0000005d INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000084 INIT 1 PUSHI #0x00000062 INIT 1 PUSHI #0x00000089 INIT 1 PUSHI #0x00000064 INIT 1 PUSHI #0x00000061 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000008a INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000069 INIT 1 PUSHI #0x00000068 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000006c INIT 1 PUSHI #0x0000006b INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x0000008b INIT 1 PUSHI #0x0000008c INIT 1 PUSHI #0x0000008d INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000076 INIT 1 PUSHI #0x00000078 INIT 1 PUSHI #0x00000074 INIT 1 PUSHI #0x0000008e INIT 1 PUSHI #0x00000074 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x0000007d INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000081 INIT 1 PUSHI #0x00000055 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000008f INIT 1 PUSHI #0x00000085 INIT 1 PUSHI #0x00000090 INIT 1 PUSHI #0x00000087 INIT 1 PUSHI #0x00000091 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000009c INIT 1 PUSHI #0x0000009d INIT 1 PUSHI #0x0000003b INIT 1 PUSHI #0x0000009e INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000077 INIT 1 PUSHI #0x0000005b INIT 1 PUSHI #0x0000009f INIT 1 PUSHI #0x00000092 INIT 1 PUSHI #0x00000091 INIT 1 PUSHI #0x00000094 INIT 1 PUSHI #0x00000092 INIT 1 PUSHI #0x00000097 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000099 INIT 1 PUSHI #0x00000099 INIT 1 PUSHI #0x0000009a INIT 1 PUSHI #0x00000092 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000063 INIT 1 PUSHI #0x000000a0 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000086 INIT 1 PUSHI #0x000000a1 INIT 1 PUSHI #0x000000a2 INIT 1 PUSHI #0x000000a5 INIT 1 PUSHI #0x000000a1 INIT 1 PUSHI #0x0000008d INIT 1 PUSHI #0x000000a2 INIT 1 PUSHI #0x000000a2 INIT 1 PUSHI #0x000000a8 INIT 1 PUSHI #0x000000ac INIT 1 PUSHI #0x000000ae INIT 1 PUSHI #0x000000af INIT 1 PUSHI #0x000000b0 INIT 1 PUSHI #0x000000b1 INIT 1 PUSHI #0x000000b2 INIT 1 PUSHI #0x000000b3 INIT 1 PUSHI #0x000000b6 INIT 1 PUSHI #0x000000b9 INIT 1 PUSHI #0x000000bc INIT 1 PUSHI #0x000000bd INIT 1 PUSHI #0x000000b4 INIT 1 PUSHI #0x000000be INIT 1 PUSHI #0x000000be INIT 1 PUSHI #0x000000b7 INIT 1 PUSHI #0x000000bf INIT 1 PUSHI #0x000000bf INIT 1 PUSHI #0x000000ba INIT 1 PUSHI #0x000000bf INIT 1 PUSHI #0x000000bf INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000bc INIT 1 PUSHI #0x000000c0 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000c4 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000c6 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000c8 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000e4 INIT 1 PUSHI #0x000000e8 INIT 1 PUSHI #0x000000db INIT 1 PUSHI #0x000000ea INIT 1 PUSHI #0x000000eb INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000ec INIT 1 PUSHI #0x000000ed INIT 1 PUSHI #0x000000ee INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000e8 INIT 1 PUSHI #0x000000e2 INIT 1 PUSHI #0x000000f4 INIT 1 PUSHI #0x000000f5 INIT 1 PUSHI #0x000000dd INIT 1 PUSHI #0x000000f8 INIT 1 PUSHI #0x000000f9 INIT 1 PUSHI #0x000000fa INIT 1 PUSHI #0x000000fb INIT 1 PUSHI #0x000000f5 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000fc INIT 1 PUSHI #0x000000e5 INIT 1 PUSHI #0x000000f9 INIT 1 PUSHI #0x000000fa INIT 1 PUSHI #0x000000fb INIT 1 PUSHI #0x000000fd INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000bc INIT 1 PUSHI #0x000000fe INIT 1 PUSHI #0x00000104 INIT 1 PUSHI #0x000000ef INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x000000f2 INIT 1 PUSHI #0x000000bf INIT 1 PUSHI #0x000000bf INIT 1 PUSHI #0x0000010e INIT 1 PUSHI #0x000000f6 INIT 1 PUSHI #0x00000110 INIT 1 PUSHI #0x00000110 INIT 1 PUSHI #0x000000e5 INIT 1 PUSHI #0x00000111 INIT 1 PUSHI #0x00000112 INIT 1 PUSHI #0x00000113 INIT 1 PUSHI #0x00000114 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000ff INIT 1 PUSHI #0x0000010a INIT 1 PUSHI #0x0000010a INIT 1 PUSHI #0x00000102 INIT 1 PUSHI #0x0000010b INIT 1 PUSHI #0x0000010b INIT 1 PUSHI #0x00000105 INIT 1 PUSHI #0x0000010a INIT 1 PUSHI #0x0000010a INIT 1 PUSHI #0x00000108 INIT 1 PUSHI #0x0000010b INIT 1 PUSHI #0x0000010b INIT 1 PUSHI #0x000000e8 INIT 1 PUSHI #0x0000010c INIT 1 PUSHI #0x000000e8 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000115 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000116 INIT 1 PUSHI #0x000000e8 INIT 1 PUSHI #0x00000111 INIT 1 PUSHI #0x000000e8 INIT 1 PUSHI #0x0000011a INIT 1 PUSHI #0x0000011b INIT 1 PUSHI #0x00000117 INIT 1 PUSHI #0x0000011d INIT 1 PUSHI #0x000000fd INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000011e INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000e8 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000120 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000122 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000124 INIT 1 PUSHI #0x00000126 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000129 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000012b INIT 1 PUSHI #0x0000012d INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000012f INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000131 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000133 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000136 INIT 1 PUSHI #0x00000139 INIT 1 PUSHI #0x0000013a INIT 1 PUSHI #0x0000013b INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000013c INIT 1 PUSHI #0x00000137 INIT 1 PUSHI #0x0000013a INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000014c INIT 1 PUSHI #0x0000014c INIT 1 PUSHI #0x00000148 INIT 1 PUSHI #0x0000015d INIT 1 PUSHI #0x0000015e INIT 1 PUSHI #0x0000015f INIT 1 PUSHI #0x0000015f INIT 1 PUSHI #0x0000015f INIT 1 PUSHI #0x0000015f INIT 1 PUSHI #0x0000014a INIT 1 PUSHI #0x0000011a INIT 1 PUSHI #0x00000160 INIT 1 PUSHI #0x00000166 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000014d INIT 1 PUSHI #0x00000155 INIT 1 PUSHI #0x0000015b INIT 1 PUSHI #0x00000167 INIT 1 PUSHI #0x00000168 INIT 1 PUSHI #0x00000169 INIT 1 PUSHI #0x0000016a INIT 1 PUSHI #0x0000016b INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000156 INIT 1 PUSHI #0x00000157 INIT 1 PUSHI #0x00000159 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000015a INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000016e INIT 1 PUSHI #0x00000161 INIT 1 PUSHI #0x00000173 INIT 1 PUSHI #0x00000174 INIT 1 PUSHI #0x00000175 INIT 1 PUSHI #0x00000176 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000177 INIT 1 PUSHI #0x00000178 INIT 1 PUSHI #0x00000179 INIT 1 PUSHI #0x0000017f INIT 1 PUSHI #0x00000180 INIT 1 PUSHI #0x0000016c INIT 1 PUSHI #0x00000181 INIT 1 PUSHI #0x00000181 INIT 1 PUSHI #0x0000016f INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x00000185 INIT 1 PUSHI #0x00000186 INIT 1 PUSHI #0x00000187 INIT 1 PUSHI #0x00000188 INIT 1 PUSHI #0x00000189 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000017a INIT 1 PUSHI #0x00000168 INIT 1 PUSHI #0x00000169 INIT 1 PUSHI #0x0000016a INIT 1 PUSHI #0x00000155 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000017b INIT 1 PUSHI #0x0000017c INIT 1 PUSHI #0x00000182 INIT 1 PUSHI #0x0000016b INIT 1 PUSHI #0x00000155 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000161 INIT 1 PUSHI #0x00000162 INIT 1 PUSHI #0x00000163 INIT 1 PUSHI #0x00000177 INIT 1 PUSHI #0x0000018b INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000018c INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000190 INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x00000191 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000019b INIT 1 PUSHI #0x0000019b INIT 1 PUSHI #0x00000196 INIT 1 PUSHI #0x000001a1 INIT 1 PUSHI #0x00000197 INIT 1 PUSHI #0x000001a2 INIT 1 PUSHI #0x000001a3 INIT 1 PUSHI #0x000001a4 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000019c INIT 1 PUSHI #0x000001a2 INIT 1 PUSHI #0x000001a3 INIT 1 PUSHI #0x000001a4 INIT 1 PUSHI #0x000001a5 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000199 INIT 1 PUSHI #0x00000196 INIT 1 PUSHI #0x000001a8 INIT 1 PUSHI #0x000001a1 INIT 1 PUSHI #0x000001a6 INIT 1 PUSHI #0x000001a9 INIT 1 PUSHI #0x000001a9 INIT 1 PUSHI #0x00000198 INIT 1 PUSHI #0x0000019f INIT 1 PUSHI #0x000001ab INIT 1 PUSHI #0x000001ae INIT 1 PUSHI #0x000001af INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000001aa INIT 1 PUSHI #0x000001b0 INIT 1 PUSHI #0x000001ac INIT 1 PUSHI #0x000001b2 INIT 1 PUSHI #0x000001b4 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000001b1 INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x000001b9 INIT 1 PUSHI #0x000001ba INIT 1 PUSHI #0x0000011a INIT 1 PUSHI #0x000001bb INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000001be INIT 1 PUSHI #0x000001c3 INIT 1 PUSHI #0x000001bf INIT 1 PUSHI #0x000001be INIT 1 PUSHI #0x000001c4 INIT 1 PUSHI #0x000001c3 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000001c1 INIT 1 PUSHI #0x000001c0 INIT 1 PUSHI #0x000001c6 INIT 1 PUSHI #0x000001c5 INIT 1 PUSHI #0x000001c9 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000001c7 INIT 1 PUSHI #0x000001cb INIT 1 PUSHI #0x000001ca INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x000001d0 INIT 1 PUSHI #0x000001d1 INIT 1 PUSHI #0x0000011a INIT 1 PUSHI #0x000001d2 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000001d5 INIT 1 PUSHI #0x000001d5 INIT 1 PUSHI #0x000001d6 INIT 1 PUSHI #0x000001d7 INIT 1 PUSHI #0x000001d8 INIT 1 PUSHI #0x000001d9 INIT 1 PUSHI #0x000001da INIT 1 PUSHI #0x000001db INIT 1 PUSHI #0x000001dc INIT 1 PUSHI #0x000001dd INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000001df INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x000001e1 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000001e3 INIT 1 PUSHI #0x000001e5 INIT 1 PUSHI #0x000001e5 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000001ea INIT 1 PUSHI #0x000001e8 INIT 1 PUSHI #0x000001f0 INIT 1 PUSHI #0x000001f1 INIT 1 PUSHI #0x000001eb INIT 1 PUSHI #0x000001ee INIT 1 PUSHI #0x000001ea INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000001eb INIT 1 PUSHI #0x000001eb INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000001f2 INIT 1 PUSHI #0x000001f3 INIT 1 PUSHI #0x000001f5 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000001f8 INIT 1 PUSHI #0x000001fa INIT 1 PUSHI #0x000001fe INIT 1 PUSHI #0x000001f3 INIT 1 PUSHI #0x000001fc INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000001fa INIT 1 PUSHI #0x000001fa INIT 1 PUSHI #0x000001f8 INIT 1 PUSHI #0x00000200 INIT 1 PUSHI #0x00000201 INIT 1 PUSHI #0x00000202 INIT 1 PUSHI #0x00000203 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000205 INIT 1 PUSHI #0x00000206 INIT 1 PUSHI #0x00000207 INIT 1 PUSHI #0x00000208 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000020a INIT 1 PUSHI #0x0000020b INIT 1 PUSHI #0x0000020c INIT 1 PUSHI #0x0000020d INIT 1 PUSHI #0x0000020a INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000210 INIT 1 PUSHI #0x00000211 INIT 1 PUSHI #0x00000213 INIT 1 PUSHI #0x00000218 INIT 1 PUSHI #0x00000214 INIT 1 PUSHI #0x00000216 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000214 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000219 INIT 1 PUSHI #0x0000021a INIT 1 PUSHI #0x0000021b INIT 1 PUSHI #0x0000021d INIT 1 PUSHI #0x0000021e INIT 1 PUSHI #0x0000021e INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000220 INIT 1 PUSHI #0x00000222 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000223 INIT 1 PUSHI #0x00000224 INIT 1 PUSHI #0x00000225 INIT 1 PUSHI #0x00000215 INIT 1 PUSHI #0x00000227 INIT 1 PUSHI #0x00000229 INIT 1 PUSHI #0x0000022e INIT 1 PUSHI #0x0000022a INIT 1 PUSHI #0x0000022c INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000022a INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000022f INIT 1 PUSHI #0x00000230 INIT 1 PUSHI #0x0000022d INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000233 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000236 INIT 1 PUSHI #0x00000234 INIT 1 PUSHI #0x00000238 INIT 1 PUSHI #0x00000235 INIT 1 PUSHI #0x0000023a INIT 1 PUSHI #0x00000237 INIT 1 PUSHI #0x0000023c INIT 1 PUSHI #0x00000239 INIT 1 PUSHI #0x0000023e INIT 1 PUSHI #0x0000023b INIT 1 PUSHI #0x00000240 INIT 1 PUSHI #0x0000023f INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000243 INIT 1 PUSHI #0x00000244 INIT 1 PUSHI #0x00000250 INIT 1 PUSHI #0x00000251 INIT 1 PUSHI #0x00000248 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x00000249 INIT 1 PUSHI #0x0000024c INIT 1 PUSHI #0x0000024c INIT 1 PUSHI #0x0000024c INIT 1 PUSHI #0x0000024e INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x00000252 INIT 1 PUSHI #0x00000252 INIT 1 PUSHI #0x00000253 INIT 1 PUSHI #0x00000254 INIT 1 PUSHI #0x00000255 INIT 1 PUSHI #0x00000245 INIT 1 PUSHI #0x00000258 INIT 1 PUSHI #0x00000256 INIT 1 PUSHI #0x00000259 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x0000025e INIT 1 PUSHI #0x0000025e INIT 1 PUSHI #0x0000025f INIT 1 PUSHI #0x00000260 INIT 1 PUSHI #0x00000261 INIT 1 PUSHI #0x0000025d INIT 1 PUSHI #0x00000262 INIT 1 PUSHI #0x00000264 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000026f INIT 1 PUSHI #0x0000026f INIT 1 PUSHI #0x000000c0 INIT 1 PUSHI #0x00000272 INIT 1 PUSHI #0x00000272 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000272 INIT 1 PUSHI #0x00000272 INIT 1 PUSHI #0x00000277 INIT 1 PUSHI #0x00000279 INIT 1 PUSHI #0x0000011a INIT 1 PUSHI #0x0000011a INIT 1 PUSHI #0x0000027a INIT 1 PUSHI #0x0000011a INIT 1 PUSHI #0x0000011a INIT 1 PUSHI #0x0000027d INIT 1 PUSHI #0x0000027e INIT 1 PUSHI #0x0000027f INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000028a INIT 1 PUSHI #0x000002a5 INIT 1 PUSHI #0x000002ac INIT 1 PUSHI #0x0000029a INIT 1 PUSHI #0x0000028f INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x0000028a INIT 1 PUSHI #0x00000293 INIT 1 PUSHI #0x0000029c INIT 1 PUSHI #0x000002ad INIT 1 PUSHI #0x0000029a INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000296 INIT 1 PUSHI #0x000002ae INIT 1 PUSHI #0x0000029a INIT 1 PUSHI #0x00000296 INIT 1 PUSHI #0x0000029c INIT 1 PUSHI #0x000002ad INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000029e INIT 1 PUSHI #0x000002a2 INIT 1 PUSHI #0x000002b1 INIT 1 PUSHI #0x0000029a INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000002a2 INIT 1 PUSHI #0x000002b1 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000029a INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000002a8 INIT 1 PUSHI #0x000002b4 INIT 1 PUSHI #0x000002a8 INIT 1 PUSHI #0x00000293 INIT 1 PUSHI #0x0000029c INIT 1 PUSHI #0x000002ad INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000028a INIT 1 PUSHI #0x000002af INIT 1 PUSHI #0x00000296 INIT 1 PUSHI #0x000002b0 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000002b2 INIT 1 PUSHI #0x000002b3 INIT 1 PUSHI #0x0000029a INIT 1 PUSHI #0x000002a8 INIT 1 PUSHI #0x000002b9 INIT 1 PUSHI #0x000002b9 INIT 1 PUSHI #0x000002b9 INIT 1 PUSHI #0x000002b9 INIT 1 PUSHI #0x000002ba INIT 1 PUSHI #0x000002bb INIT 1 PUSHI #0x000002bc INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000002bf INIT 1 PUSHI #0x000002bf INIT 1 PUSHI #0x000002c0 INIT 1 PUSHI #0x000002c2 INIT 1 PUSHI #0x000002c3 INIT 1 PUSHI #0x000002c4 INIT 1 PUSHI #0x000002c4 INIT 1 PUSHI #0x000002bc INIT 1 PUSHI #0x000002c7 INIT 1 PUSHI #0x000002c7 INIT 1 PUSHI #0x000002c8 INIT 1 PUSHI #0x000002c9 INIT 1 PUSHI #0x000002cf INIT 1 PUSHI #0x000002cf INIT 1 PUSHI #0x000002cf INIT 1 PUSHI #0x000002cf INIT 1 PUSHI #0x000002cf INIT 1 PUSHI #0x000002cf INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1001 495 %constshortinteger max kdict = 618 LINE 495 "regression-compile-tmp/pass1.imp" 496 %constshortintegerarray kdict(32:max kdict) = %c 497 0, 511, 131, 531, 131, 551, 559, 131, 498 567, 575, 583, 603, 623, 631, 663, 671, 499 129, 129, 129, 129, 129, 129, 129, 129, 500 129, 129, 691, 698, 707, 751, 795, 131, 501 131, 824, 900, 960, 1076, 1120, 1280, 128, 502 128, 1392, 128, 128, 1460, 1600, 1636, 1704, 503 1792, 128, 1872, 2088, 2284, 2316, 128, 2356, 504 128, 128, 128, 2375, 2383, 2415, 2423, 2443, 505 131, 131, 131, 131, 131, 131, 131, 131, 506 131, 131, 131, 131, 131, 131, 131, 131, 507 131, 131, 131, 131, 131, 131, 131, 131, 508 131, 131, 131, 131, 2451, 131, 2459, -32351, 509 16428, 25, 16428, 29, -32349, 16433, 1, 16434, 510 1, -16127, 0, 16427, 21, 16407, 0, 16409, 511 0, -32323, -10840, 40, 16471, 0, -32341, -10580, 512 32, 16473, 117, 16384, 19, -31955, -32322, -10580, 513 36, -9290, 0, 16473, 113, 16432, 13, -32337, 514 16427, 46, 16427, 17, 16405, 0, 16404, 0, 515 -31556, -31939, -32322, -9551, 2, 16433, 1, 16433, 516 5, 16426, 5, -31606, -32323, -9807, 0, -32374, 517 -9678, 0, 16436, 0, 16435, 0, -31939, -32322, 518 16433, 4, 16426, 9, 16433, 3, -30772, -31666, 519 10578, 11457, -32344, 16413, 2, 16411, 2, 68, 520 -32374, 16440, 0, 16440, 0, 8393, 83, 16408, 521 0, -31291, 10841, 69, -32311, 16412, 18, 10830, 522 9157, 10565, 16412, 18, 9415, 78, 16458, 0, 523 -32049, 8665, 8908, 16455, 0, -30131, 78, -31277, 524 84, -32055, 10194, 76, 16469, 0, 10958, 69, 525 16447, 32, 84, -32319, 16418, 2, 10830, 16418, 526 2, 8909, 10830, 16406, 0, -31927, 10073, 9921, 527 8649, 16419, 5, 9153, 10190, 8915, 16469, 1, 528 -27956, -31282, 88, -31927, 8916, 10066, 9793, 16419, 529 3, 84, 16447, 4, 68, -32305, 16459, 2, 530 70, -30650, -31284, 80, -31931, 10194, 10567, 9921, 531 16460, 1, 9938, 16461, 0, 10697, 84, 16467, 532 3, 9801, 69, 16460, 0, 8915, 16452, 0, 533 -29631, -30903, -31282, -31793, 10069, 10819, 10185, 78, 534 16416, 9, 82, 16445, 0, 16416, 9, 9422, 535 9299, -32315, 16453, 0, 10700, 69, 16454, 0, 536 10700, 69, 16464, 1210, -30778, 78, -31549, 8916, 537 8903, 82, -32344, 16412, 17, 16472, 17, 10956, 538 8900, 16470, 0, 16446, 44, -28735, -29239, 10063, 539 71, -30263, -31668, -32302, 16412, 20, 8389, 76, 540 16412, 36, 10063, 71, -32311, 16412, 21, 10830, 541 9157, 10565, 16412, 21, 10830, 9157, 10565, 16412, 542 20, 10835, 16467, 1, 8898, 76, 16425, 6, 543 -31935, 10063, 10825, 10575, 16465, 109, 80, 16416, 544 10, -32191, 10831, 16442, 0, 8909, -32314, 16414, 545 1, -31794, 10069, 10819, 10185, 78, 16416, 10, 546 16416, 10, -30770, -31408, -32174, 10071, 16418, 1, 547 -32374, 16441, 2, 16441, 2, 9428, 10063, 16402, 548 0, -32315, 16448, 0, 8918, 10830, 16448, 0, 549 -30523, 82, -31419, -31927, 9167, 8402, 77, 16457, 550 0, 77, 16419, 6, 9412, 8387, 8916, 16415, 551 123, 9938, 16419, 7, -31931, 10959, 9428, 8910, 552 16415, 104, -28351, -30397, -31024, -32045, 10964, 10066, 553 16464, 1319, 9813, 7892, -32323, 16462, 1384, 16463, 554 1241, 8389, 84, 16456, 0, 10575, 68, -32314, 555 16421, 64, 10575, 8397, 84, -32301, 16422, 9, 556 8912, 67, 16422, 12, 76, -32301, 16412, 33, 557 -31924, 10190, 9938, 9793, 16468, 1, 10063, 71, 558 16468, 4, -27704, -28983, -29488, -31276, -31913, 10713, 559 8916, 77, 16419, 4, 10825, 9283, 16417, 12, 560 -31423, -31921, 9426, 9166, 40, 16420, 48, 80, 561 16466, 115, 10834, 16451, 0, 8645, 16423, 0, 562 10055, 9793, -32315, 16449, 0, 8918, 10830, 16449, 563 0, 10575, 84, -32311, 16412, 19, 10830, 9157, 564 10565, 16412, 19, -32056, 10962, 69, 16464, 1354, 565 10053, 16450, 0, 78, -32052, 9428, 76, 16444, 566 182, 10693, 83, 16446, 46, 9416, 8908, 16443, 567 180, 16407, 0, -31939, -32292, -10454, 51, 16426, 568 13, 16433, 1, 16409, 0, -32290, -10454, 51, 569 16426, 13, 16410, 0, 16431, 14, -32323, 16430, 570 51, 16433, 1 LINE 496 "regression-compile-tmp/pass1.imp" PUSHI #0x00000020 PUSHI #0x0000026a BOUNDS DEF KDICT p1=V_00e8 a/tf=1b b/format=3 c/ostate=112 type=1 (integer) form=11 (array) special=2 (short-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000000 INIT 1 PUSHI #0x000001ff INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000213 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000227 INIT 1 PUSHI #0x0000022f INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000237 INIT 1 PUSHI #0x0000023f INIT 1 PUSHI #0x00000247 INIT 1 PUSHI #0x0000025b INIT 1 PUSHI #0x0000026f INIT 1 PUSHI #0x00000277 INIT 1 PUSHI #0x00000297 INIT 1 PUSHI #0x0000029f INIT 1 PUSHI #0x00000081 INIT 1 PUSHI #0x00000081 INIT 1 PUSHI #0x00000081 INIT 1 PUSHI #0x00000081 INIT 1 PUSHI #0x00000081 INIT 1 PUSHI #0x00000081 INIT 1 PUSHI #0x00000081 INIT 1 PUSHI #0x00000081 INIT 1 PUSHI #0x00000081 INIT 1 PUSHI #0x00000081 INIT 1 PUSHI #0x000002b3 INIT 1 PUSHI #0x000002ba INIT 1 PUSHI #0x000002c3 INIT 1 PUSHI #0x000002ef INIT 1 PUSHI #0x0000031b INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000338 INIT 1 PUSHI #0x00000384 INIT 1 PUSHI #0x000003c0 INIT 1 PUSHI #0x00000434 INIT 1 PUSHI #0x00000460 INIT 1 PUSHI #0x00000500 INIT 1 PUSHI #0x00000080 INIT 1 PUSHI #0x00000080 INIT 1 PUSHI #0x00000570 INIT 1 PUSHI #0x00000080 INIT 1 PUSHI #0x00000080 INIT 1 PUSHI #0x000005b4 INIT 1 PUSHI #0x00000640 INIT 1 PUSHI #0x00000664 INIT 1 PUSHI #0x000006a8 INIT 1 PUSHI #0x00000700 INIT 1 PUSHI #0x00000080 INIT 1 PUSHI #0x00000750 INIT 1 PUSHI #0x00000828 INIT 1 PUSHI #0x000008ec INIT 1 PUSHI #0x0000090c INIT 1 PUSHI #0x00000080 INIT 1 PUSHI #0x00000934 INIT 1 PUSHI #0x00000080 INIT 1 PUSHI #0x00000080 INIT 1 PUSHI #0x00000080 INIT 1 PUSHI #0x00000947 INIT 1 PUSHI #0x0000094f INIT 1 PUSHI #0x0000096f INIT 1 PUSHI #0x00000977 INIT 1 PUSHI #0x0000098b INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000993 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x0000099b INIT 1 PUSHI #0xffff81a1 INIT 1 PUSHI #0x0000402c INIT 1 PUSHI #0x00000019 INIT 1 PUSHI #0x0000402c INIT 1 PUSHI #0x0000001d INIT 1 PUSHI #0xffff81a3 INIT 1 PUSHI #0x00004031 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00004032 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0xffffc101 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000402b INIT 1 PUSHI #0x00000015 INIT 1 PUSHI #0x00004017 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00004019 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff81bd INIT 1 PUSHI #0xffffd5a8 INIT 1 PUSHI #0x00000028 INIT 1 PUSHI #0x00004057 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff81ab INIT 1 PUSHI #0xffffd6ac INIT 1 PUSHI #0x00000020 INIT 1 PUSHI #0x00004059 INIT 1 PUSHI #0x00000075 INIT 1 PUSHI #0x00004000 INIT 1 PUSHI #0x00000013 INIT 1 PUSHI #0xffff832d INIT 1 PUSHI #0xffff81be INIT 1 PUSHI #0xffffd6ac INIT 1 PUSHI #0x00000024 INIT 1 PUSHI #0xffffdbb6 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00004059 INIT 1 PUSHI #0x00000071 INIT 1 PUSHI #0x00004030 INIT 1 PUSHI #0x0000000d INIT 1 PUSHI #0xffff81af INIT 1 PUSHI #0x0000402b INIT 1 PUSHI #0x0000002e INIT 1 PUSHI #0x0000402b INIT 1 PUSHI #0x00000011 INIT 1 PUSHI #0x00004015 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00004014 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff84bc INIT 1 PUSHI #0xffff833d INIT 1 PUSHI #0xffff81be INIT 1 PUSHI #0xffffdab1 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x00004031 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00004031 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x0000402a INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0xffff848a INIT 1 PUSHI #0xffff81bd INIT 1 PUSHI #0xffffd9b1 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff818a INIT 1 PUSHI #0xffffda32 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00004034 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00004033 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff833d INIT 1 PUSHI #0xffff81be INIT 1 PUSHI #0x00004031 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x0000402a INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x00004031 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0xffff87cc INIT 1 PUSHI #0xffff844e INIT 1 PUSHI #0x00002952 INIT 1 PUSHI #0x00002cc1 INIT 1 PUSHI #0xffff81a8 INIT 1 PUSHI #0x0000401d INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x0000401b INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0xffff818a INIT 1 PUSHI #0x00004038 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00004038 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000020c9 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00004018 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff85c5 INIT 1 PUSHI #0x00002a59 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0xffff81c9 INIT 1 PUSHI #0x0000401c INIT 1 PUSHI #0x00000012 INIT 1 PUSHI #0x00002a4e INIT 1 PUSHI #0x000023c5 INIT 1 PUSHI #0x00002945 INIT 1 PUSHI #0x0000401c INIT 1 PUSHI #0x00000012 INIT 1 PUSHI #0x000024c7 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x0000404a INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff82cf INIT 1 PUSHI #0x000021d9 INIT 1 PUSHI #0x000022cc INIT 1 PUSHI #0x00004047 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff8a4d INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0xffff85d3 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0xffff82c9 INIT 1 PUSHI #0x000027d2 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00004055 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00002ace INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000403f INIT 1 PUSHI #0x00000020 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0xffff81c1 INIT 1 PUSHI #0x00004022 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x00002a4e INIT 1 PUSHI #0x00004022 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x000022cd INIT 1 PUSHI #0x00002a4e INIT 1 PUSHI #0x00004016 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff8349 INIT 1 PUSHI #0x00002759 INIT 1 PUSHI #0x000026c1 INIT 1 PUSHI #0x000021c9 INIT 1 PUSHI #0x00004023 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x000023c1 INIT 1 PUSHI #0x000027ce INIT 1 PUSHI #0x000022d3 INIT 1 PUSHI #0x00004055 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0xffff92cc INIT 1 PUSHI #0xffff85ce INIT 1 PUSHI #0x00000058 INIT 1 PUSHI #0xffff8349 INIT 1 PUSHI #0x000022d4 INIT 1 PUSHI #0x00002752 INIT 1 PUSHI #0x00002641 INIT 1 PUSHI #0x00004023 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x0000403f INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0xffff81cf INIT 1 PUSHI #0x0000404b INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x00000046 INIT 1 PUSHI #0xffff8846 INIT 1 PUSHI #0xffff85cc INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0xffff8345 INIT 1 PUSHI #0x000027d2 INIT 1 PUSHI #0x00002947 INIT 1 PUSHI #0x000026c1 INIT 1 PUSHI #0x0000404c INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x000026d2 INIT 1 PUSHI #0x0000404d INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000029c9 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00004053 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x00002649 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000404c INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000022d3 INIT 1 PUSHI #0x00004044 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff8c41 INIT 1 PUSHI #0xffff8749 INIT 1 PUSHI #0xffff85ce INIT 1 PUSHI #0xffff83cf INIT 1 PUSHI #0x00002755 INIT 1 PUSHI #0x00002a43 INIT 1 PUSHI #0x000027c9 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00004020 INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x0000403d INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00004020 INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x000024ce INIT 1 PUSHI #0x00002453 INIT 1 PUSHI #0xffff81c5 INIT 1 PUSHI #0x00004045 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000029cc INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00004046 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000029cc INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00004050 INIT 1 PUSHI #0x000004ba INIT 1 PUSHI #0xffff87c6 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0xffff84c3 INIT 1 PUSHI #0x000022d4 INIT 1 PUSHI #0x000022c7 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0xffff81a8 INIT 1 PUSHI #0x0000401c INIT 1 PUSHI #0x00000011 INIT 1 PUSHI #0x00004058 INIT 1 PUSHI #0x00000011 INIT 1 PUSHI #0x00002acc INIT 1 PUSHI #0x000022c4 INIT 1 PUSHI #0x00004056 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000403e INIT 1 PUSHI #0x0000002c INIT 1 PUSHI #0xffff8fc1 INIT 1 PUSHI #0xffff8dc9 INIT 1 PUSHI #0x0000274f INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0xffff89c9 INIT 1 PUSHI #0xffff844c INIT 1 PUSHI #0xffff81d2 INIT 1 PUSHI #0x0000401c INIT 1 PUSHI #0x00000014 INIT 1 PUSHI #0x000020c5 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000401c INIT 1 PUSHI #0x00000024 INIT 1 PUSHI #0x0000274f INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0xffff81c9 INIT 1 PUSHI #0x0000401c INIT 1 PUSHI #0x00000015 INIT 1 PUSHI #0x00002a4e INIT 1 PUSHI #0x000023c5 INIT 1 PUSHI #0x00002945 INIT 1 PUSHI #0x0000401c INIT 1 PUSHI #0x00000015 INIT 1 PUSHI #0x00002a4e INIT 1 PUSHI #0x000023c5 INIT 1 PUSHI #0x00002945 INIT 1 PUSHI #0x0000401c INIT 1 PUSHI #0x00000014 INIT 1 PUSHI #0x00002a53 INIT 1 PUSHI #0x00004053 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x000022c2 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00004029 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0xffff8341 INIT 1 PUSHI #0x0000274f INIT 1 PUSHI #0x00002a49 INIT 1 PUSHI #0x0000294f INIT 1 PUSHI #0x00004051 INIT 1 PUSHI #0x0000006d INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00004020 INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0xffff8241 INIT 1 PUSHI #0x00002a4f INIT 1 PUSHI #0x0000403a INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000022cd INIT 1 PUSHI #0xffff81c6 INIT 1 PUSHI #0x0000401e INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0xffff83ce INIT 1 PUSHI #0x00002755 INIT 1 PUSHI #0x00002a43 INIT 1 PUSHI #0x000027c9 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00004020 INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x00004020 INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0xffff87ce INIT 1 PUSHI #0xffff8550 INIT 1 PUSHI #0xffff8252 INIT 1 PUSHI #0x00002757 INIT 1 PUSHI #0x00004022 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0xffff818a INIT 1 PUSHI #0x00004039 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x00004039 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x000024d4 INIT 1 PUSHI #0x0000274f INIT 1 PUSHI #0x00004012 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff81c5 INIT 1 PUSHI #0x00004040 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000022d6 INIT 1 PUSHI #0x00002a4e INIT 1 PUSHI #0x00004040 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff88c5 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0xffff8545 INIT 1 PUSHI #0xffff8349 INIT 1 PUSHI #0x000023cf INIT 1 PUSHI #0x000020d2 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x00004049 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x00004023 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000024c4 INIT 1 PUSHI #0x000020c3 INIT 1 PUSHI #0x000022d4 INIT 1 PUSHI #0x0000401f INIT 1 PUSHI #0x0000007b INIT 1 PUSHI #0x000026d2 INIT 1 PUSHI #0x00004023 INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0xffff8345 INIT 1 PUSHI #0x00002acf INIT 1 PUSHI #0x000024d4 INIT 1 PUSHI #0x000022ce INIT 1 PUSHI #0x0000401f INIT 1 PUSHI #0x00000068 INIT 1 PUSHI #0xffff9141 INIT 1 PUSHI #0xffff8943 INIT 1 PUSHI #0xffff86d0 INIT 1 PUSHI #0xffff82d3 INIT 1 PUSHI #0x00002ad4 INIT 1 PUSHI #0x00002752 INIT 1 PUSHI #0x00004050 INIT 1 PUSHI #0x00000527 INIT 1 PUSHI #0x00002655 INIT 1 PUSHI #0x00001ed4 INIT 1 PUSHI #0xffff81bd INIT 1 PUSHI #0x0000404e INIT 1 PUSHI #0x00000568 INIT 1 PUSHI #0x0000404f INIT 1 PUSHI #0x000004d9 INIT 1 PUSHI #0x000020c5 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00004048 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000294f INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0xffff81c6 INIT 1 PUSHI #0x00004025 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x0000294f INIT 1 PUSHI #0x000020cd INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0xffff81d3 INIT 1 PUSHI #0x00004026 INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x000022d0 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00004026 INIT 1 PUSHI #0x0000000c INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0xffff81d3 INIT 1 PUSHI #0x0000401c INIT 1 PUSHI #0x00000021 INIT 1 PUSHI #0xffff834c INIT 1 PUSHI #0x000027ce INIT 1 PUSHI #0x000026d2 INIT 1 PUSHI #0x00002641 INIT 1 PUSHI #0x00004054 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x0000274f INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00004054 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0xffff93c8 INIT 1 PUSHI #0xffff8ec9 INIT 1 PUSHI #0xffff8cd0 INIT 1 PUSHI #0xffff85d4 INIT 1 PUSHI #0xffff8357 INIT 1 PUSHI #0x000029d9 INIT 1 PUSHI #0x000022d4 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x00004023 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00002a49 INIT 1 PUSHI #0x00002443 INIT 1 PUSHI #0x00004021 INIT 1 PUSHI #0x0000000c INIT 1 PUSHI #0xffff8541 INIT 1 PUSHI #0xffff834f INIT 1 PUSHI #0x000024d2 INIT 1 PUSHI #0x000023ce INIT 1 PUSHI #0x00000028 INIT 1 PUSHI #0x00004024 INIT 1 PUSHI #0x00000030 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00004052 INIT 1 PUSHI #0x00000073 INIT 1 PUSHI #0x00002a52 INIT 1 PUSHI #0x00004043 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000021c5 INIT 1 PUSHI #0x00004027 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00002747 INIT 1 PUSHI #0x00002641 INIT 1 PUSHI #0xffff81c5 INIT 1 PUSHI #0x00004041 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000022d6 INIT 1 PUSHI #0x00002a4e INIT 1 PUSHI #0x00004041 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000294f INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0xffff81c9 INIT 1 PUSHI #0x0000401c INIT 1 PUSHI #0x00000013 INIT 1 PUSHI #0x00002a4e INIT 1 PUSHI #0x000023c5 INIT 1 PUSHI #0x00002945 INIT 1 PUSHI #0x0000401c INIT 1 PUSHI #0x00000013 INIT 1 PUSHI #0xffff82c8 INIT 1 PUSHI #0x00002ad2 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00004050 INIT 1 PUSHI #0x0000054a INIT 1 PUSHI #0x00002745 INIT 1 PUSHI #0x00004042 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0xffff82cc INIT 1 PUSHI #0x000024d4 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000403c INIT 1 PUSHI #0x000000b6 INIT 1 PUSHI #0x000029c5 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x0000403e INIT 1 PUSHI #0x0000002e INIT 1 PUSHI #0x000024c8 INIT 1 PUSHI #0x000022cc INIT 1 PUSHI #0x0000403b INIT 1 PUSHI #0x000000b4 INIT 1 PUSHI #0x00004017 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff833d INIT 1 PUSHI #0xffff81dc INIT 1 PUSHI #0xffffd72a INIT 1 PUSHI #0x00000033 INIT 1 PUSHI #0x0000402a INIT 1 PUSHI #0x0000000d INIT 1 PUSHI #0x00004031 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00004019 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0xffff81de INIT 1 PUSHI #0xffffd72a INIT 1 PUSHI #0x00000033 INIT 1 PUSHI #0x0000402a INIT 1 PUSHI #0x0000000d INIT 1 PUSHI #0x0000401a INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000402f INIT 1 PUSHI #0x0000000e INIT 1 PUSHI #0xffff81bd INIT 1 PUSHI #0x0000402e INIT 1 PUSHI #0x00000033 INIT 1 PUSHI #0x00004031 INIT 1 PUSHI #0x00000001 INIT 1 571 %list 572 !%endoffile 573 !*** end of generated tables *** 574 LINE 571 "regression-compile-tmp/pass1.imp" 575 %routine flush buffer( %integer limit ) LINE 575 "regression-compile-tmp/pass1.imp" DEF FLUSHBUFFER (_lev0id0_FLUSHBUFFER) p1=V_00e9 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF LIMIT p1=V_00ea a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 576 %integer j LINE 576 "regression-compile-tmp/pass1.imp" DEF J p1=V_00eb a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 577 %if bp >= limit %start LINE 577 "regression-compile-tmp/pass1.imp" PUSH BP PUSH LIMIT JUMPIF < L_0004 578 %if faulty = 0 %start LINE 578 "regression-compile-tmp/pass1.imp" PUSH FAULTY PUSHI #0x00000000 JUMPIF # L_0007 579 selectoutput(object) LINE 579 "regression-compile-tmp/pass1.imp" PUSH SELECTOUTPUT PUSHI #0x00000001 ASSPAR CALL 580 %for j = 1, 1, bp %cycle LINE 580 "regression-compile-tmp/pass1.imp" PUSH J PUSHI #0x00000001 PUSH BP PUSHI #0x00000001 FOR L_0009 581 printsymbol(buff(j)) LINE 581 "regression-compile-tmp/pass1.imp" PUSH PRINTSYMBOL PUSH BUFF PUSH J ACCESS ASSPAR CALL 582 %repeat LINE 582 "regression-compile-tmp/pass1.imp" REPEAT L_0009 LOCATE L_000a 583 selectoutput(listing) LINE 583 "regression-compile-tmp/pass1.imp" PUSH SELECTOUTPUT PUSHI #0x00000002 ASSPAR CALL 584 %finish LINE 584 "regression-compile-tmp/pass1.imp" LOCATE L_0007 585 bp = 0 LINE 585 "regression-compile-tmp/pass1.imp" PUSH BP PUSHI #0x00000000 ASSVAL 586 %finish LINE 586 "regression-compile-tmp/pass1.imp" LOCATE L_0004 587 %end 588 LINE 587 "regression-compile-tmp/pass1.imp" END _lev0id0_FLUSHBUFFER {lev=2 --> 1} 589 %routine add char( %byteinteger ch ) LINE 589 "regression-compile-tmp/pass1.imp" DEF ADDCHAR (_lev0id0_ADDCHAR) p1=V_00ea a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF CH p1=V_00eb a/tf=11 b/format=2 c/ostate=0 type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 590 bp = bp + 1 LINE 590 "regression-compile-tmp/pass1.imp" PUSH BP PUSH BP PUSHI #0x00000001 ADD ASSVAL 591 buff(bp) = ch LINE 591 "regression-compile-tmp/pass1.imp" PUSH BUFF PUSH BP ACCESS PUSH CH ASSVAL 592 %end 593 LINE 592 "regression-compile-tmp/pass1.imp" END _lev0id0_ADDCHAR {lev=2 --> 1} 594 %routine op(%integer code, param) LINE 594 "regression-compile-tmp/pass1.imp" DEF OP (_lev0id0_OP) p1=V_00eb a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF CODE p1=V_00ec a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF PARAM p1=V_00ed a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 595 buff(bp+1) = code LINE 595 "regression-compile-tmp/pass1.imp" PUSH BUFF PUSH BP PUSHI #0x00000001 ADD ACCESS PUSH CODE ASSVAL 596 buff(bp+2) = param>>8 LINE 596 "regression-compile-tmp/pass1.imp" PUSH BUFF PUSH BP PUSHI #0x00000002 ADD ACCESS PUSH PARAM PUSHI #0x00000008 RSH ASSVAL 597 buff(bp+3) = param LINE 597 "regression-compile-tmp/pass1.imp" PUSH BUFF PUSH BP PUSHI #0x00000003 ADD ACCESS PUSH PARAM ASSVAL 598 bp = bp+3 LINE 598 "regression-compile-tmp/pass1.imp" PUSH BP PUSH BP PUSHI #0x00000003 ADD ASSVAL 599 %end 600 LINE 599 "regression-compile-tmp/pass1.imp" END _lev0id0_OP {lev=2 --> 1} 601 %routine set const(%integer m) LINE 601 "regression-compile-tmp/pass1.imp" DEF SETCONST (_lev0id0_SETCONST) p1=V_00ec a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF M p1=V_00ed a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 602 buff(bp+1) = 'N' LINE 602 "regression-compile-tmp/pass1.imp" PUSH BUFF PUSH BP PUSHI #0x00000001 ADD ACCESS PUSHI #0x0000004e ASSVAL 603 buff(bp+5) = m; m = m>>8 LINE 603 "regression-compile-tmp/pass1.imp" PUSH BUFF PUSH BP PUSHI #0x00000005 ADD ACCESS PUSH M ASSVAL LINE 603 "regression-compile-tmp/pass1.imp" PUSH M PUSH M PUSHI #0x00000008 RSH ASSVAL 604 buff(bp+4) = m; m = m>>8 LINE 604 "regression-compile-tmp/pass1.imp" PUSH BUFF PUSH BP PUSHI #0x00000004 ADD ACCESS PUSH M ASSVAL LINE 604 "regression-compile-tmp/pass1.imp" PUSH M PUSH M PUSHI #0x00000008 RSH ASSVAL 605 buff(bp+3) = m; m = m>>8 LINE 605 "regression-compile-tmp/pass1.imp" PUSH BUFF PUSH BP PUSHI #0x00000003 ADD ACCESS PUSH M ASSVAL LINE 605 "regression-compile-tmp/pass1.imp" PUSH M PUSH M PUSHI #0x00000008 RSH ASSVAL 606 buff(bp+2) = m LINE 606 "regression-compile-tmp/pass1.imp" PUSH BUFF PUSH BP PUSHI #0x00000002 ADD ACCESS PUSH M ASSVAL 607 bp = bp+5 LINE 607 "regression-compile-tmp/pass1.imp" PUSH BP PUSH BP PUSHI #0x00000005 ADD ASSVAL 608 %end 609 LINE 608 "regression-compile-tmp/pass1.imp" END _lev0id0_SETCONST {lev=2 --> 1} 610 %routine octal(%integer n) LINE 610 "regression-compile-tmp/pass1.imp" DEF OCTAL (_lev0id0_OCTAL) p1=V_00ed a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF N p1=V_00ee a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 611 %integer m LINE 611 "regression-compile-tmp/pass1.imp" DEF M p1=V_00ef a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 612 m = n>>3 LINE 612 "regression-compile-tmp/pass1.imp" PUSH M PUSH N PUSHI #0x00000003 RSH ASSVAL 613 octal(m) %if m # 0 LINE 613 "regression-compile-tmp/pass1.imp" PUSH M PUSHI #0x00000000 JUMPIF = L_0004 PUSH OCTAL PUSH M ASSPAR CALL LOCATE L_0004 614 add char( n&7+'0' ) LINE 614 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSH N PUSHI #0x00000007 AND PUSHI #0x00000030 ADD ASSPAR CALL 615 %end 616 LINE 615 "regression-compile-tmp/pass1.imp" END _lev0id0_OCTAL {lev=2 --> 1} 617 %routine hexadecimal(%integer n) LINE 617 "regression-compile-tmp/pass1.imp" DEF HEXADECIMAL (_lev0id0_HEXADECIMAL) p1=V_00ee a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF N p1=V_00ef a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 618 %integer m LINE 618 "regression-compile-tmp/pass1.imp" DEF M p1=V_00f0 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 619 m = n>>4 LINE 619 "regression-compile-tmp/pass1.imp" PUSH M PUSH N PUSHI #0x00000004 RSH ASSVAL 620 hexadecimal(m) %if m # 0 LINE 620 "regression-compile-tmp/pass1.imp" PUSH M PUSHI #0x00000000 JUMPIF = L_0004 PUSH HEXADECIMAL PUSH M ASSPAR CALL LOCATE L_0004 621 %if n&15 > 9 %then add char( n&15+'A' ) %else add char( n&15+'0' ) LINE 621 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x0000000f AND PUSHI #0x00000009 JUMPIF <= L_0004 PUSH ADDCHAR PUSH N PUSHI #0x0000000f AND PUSHI #0x00000041 ADD ASSPAR CALL GOTO L_0003 LOCATE L_0004 PUSH ADDCHAR PUSH N PUSHI #0x0000000f AND PUSHI #0x00000030 ADD ASSPAR CALL LOCATE L_0003 622 %end 623 LINE 622 "regression-compile-tmp/pass1.imp" END _lev0id0_HEXADECIMAL {lev=2 --> 1} 624 %routine print ident(%integer p, mode) 625 LINE 624 "regression-compile-tmp/pass1.imp" DEF PRINTIDENT (_lev0id0_PRINTIDENT) p1=V_00ef a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF P p1=V_00f0 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF MODE p1=V_00f1 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 626 %routine putit(%integer ch) LINE 626 "regression-compile-tmp/pass1.imp" DEF PUTIT (_lev0id0_PRINTIDENT_PUTIT) p1=V_00f2 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF CH p1=V_00f3 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=3} 627 %if mode = 0 %then %start LINE 627 "regression-compile-tmp/pass1.imp" PUSH MODE PUSHI #0x00000000 JUMPIF # L_0004 628 printsymbol(ch) LINE 628 "regression-compile-tmp/pass1.imp" PUSH PRINTSYMBOL PUSH CH ASSPAR CALL 629 %else LINE 629 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 630 add char( ch ) LINE 630 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSH CH ASSPAR CALL 631 %finish LINE 631 "regression-compile-tmp/pass1.imp" LOCATE L_0003 632 %end 633 LINE 632 "regression-compile-tmp/pass1.imp" END _lev0id0_PRINTIDENT_PUTIT {lev=3 --> 2} 634 %integer k, l LINE 634 "regression-compile-tmp/pass1.imp" DEF K p1=V_00f3 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF L p1=V_00f4 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 635 p = tag(p)_text LINE 635 "regression-compile-tmp/pass1.imp" PUSH P PUSH TAG PUSH P ACCESS SELECT 5 ASSVAL 636 %if p = 0 %start LINE 636 "regression-compile-tmp/pass1.imp" PUSH P PUSHI #0x00000000 JUMPIF # L_0004 637 putit('?') LINE 637 "regression-compile-tmp/pass1.imp" PUSH PUTIT PUSHI #0x0000003f ASSPAR CALL 638 %return LINE 638 "regression-compile-tmp/pass1.imp" RETURN 639 %finish LINE 639 "regression-compile-tmp/pass1.imp" LOCATE L_0004 640 p = p+1; ! advance to name string LINE 640 "regression-compile-tmp/pass1.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 641 k = dict(p) LINE 641 "regression-compile-tmp/pass1.imp" PUSH K PUSH DICT PUSH P ACCESS ASSVAL 642 l = k & 255; ! length LINE 642 "regression-compile-tmp/pass1.imp" PUSH L PUSH K PUSHI #0x000000ff AND ASSVAL 643 %while l > 0 %cycle LINE 643 "regression-compile-tmp/pass1.imp" LOCATE L_0003 PUSH L PUSHI #0x00000000 JUMPIF <= L_0004 644 putit(k>>8) LINE 644 "regression-compile-tmp/pass1.imp" PUSH PUTIT PUSH K PUSHI #0x00000008 RSH ASSPAR CALL 645 l = l-1 LINE 645 "regression-compile-tmp/pass1.imp" PUSH L PUSH L PUSHI #0x00000001 SUB ASSVAL 646 p = p+1 LINE 646 "regression-compile-tmp/pass1.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 647 k = dict(p) LINE 647 "regression-compile-tmp/pass1.imp" PUSH K PUSH DICT PUSH P ACCESS ASSVAL 648 %exit %if l = 0 LINE 648 "regression-compile-tmp/pass1.imp" PUSH L PUSHI #0x00000000 JUMPIF # L_0007 GOTO L_0004 LOCATE L_0007 649 putit(k&255) LINE 649 "regression-compile-tmp/pass1.imp" PUSH PUTIT PUSH K PUSHI #0x000000ff AND ASSPAR CALL 650 l = l-1 LINE 650 "regression-compile-tmp/pass1.imp" PUSH L PUSH L PUSHI #0x00000001 SUB ASSVAL 651 %repeat LINE 651 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 652 %end 653 LINE 652 "regression-compile-tmp/pass1.imp" END _lev0id0_PRINTIDENT {lev=2 --> 1} 654 %routine abandon(%integer n) LINE 654 "regression-compile-tmp/pass1.imp" DEF ABANDON (_lev0id0_ABANDON) p1=V_00f0 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF N p1=V_00f1 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 655 %switch reason(0:9) LINE 655 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x00000009 BOUNDS DEF REASON p1=V_00f2 a/tf=6 b/format=0 c/ostate=0 type=0 () form=6 (switch) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 656 %integer stream LINE 656 "regression-compile-tmp/pass1.imp" DEF STREAM p1=V_00f3 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 657 stream = listing LINE 657 "regression-compile-tmp/pass1.imp" PUSH STREAM PUSHI #0x00000002 ASSVAL 658 %cycle LINE 658 "regression-compile-tmp/pass1.imp" LOCATE L_0003 659 newline %if sym # nl LINE 659 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000000a JUMPIF = L_0007 PUSH NEWLINE CALL LOCATE L_0007 660 printsymbol('*'); write(lines,4); space LINE 660 "regression-compile-tmp/pass1.imp" PUSH PRINTSYMBOL PUSHI #0x0000002a ASSPAR CALL LINE 660 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH LINES ASSPAR PUSHI #0x00000004 ASSPAR CALL LINE 660 "regression-compile-tmp/pass1.imp" PUSH SPACE CALL 661 ->reason(n) LINE 661 "regression-compile-tmp/pass1.imp" PUSH N SJUMP 242 662 reason(0): printstring("compiler error!"); ->more LINE 662 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 SLABEL 242 LINE 662 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "compiler error!" ASSPAR CALL LINE 662 "regression-compile-tmp/pass1.imp" JUMP L_00f4 663 reason(1): printstring("switch vector too large"); ->more LINE 663 "regression-compile-tmp/pass1.imp" PUSHI #0x00000001 SLABEL 242 LINE 663 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "switch vector too large" ASSPAR CALL LINE 663 "regression-compile-tmp/pass1.imp" JUMP L_00f4 664 reason(2): printstring("too many names"); ->more LINE 664 "regression-compile-tmp/pass1.imp" PUSHI #0x00000002 SLABEL 242 LINE 664 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "too many names" ASSPAR CALL LINE 664 "regression-compile-tmp/pass1.imp" JUMP L_00f4 665 reason(3): printstring("program too complex"); ->more LINE 665 "regression-compile-tmp/pass1.imp" PUSHI #0x00000003 SLABEL 242 LINE 665 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "program too complex" ASSPAR CALL LINE 665 "regression-compile-tmp/pass1.imp" JUMP L_00f4 666 reason(4): printstring("feature not implemented"); ->more LINE 666 "regression-compile-tmp/pass1.imp" PUSHI #0x00000004 SLABEL 242 LINE 666 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "feature not implemented" ASSPAR CALL LINE 666 "regression-compile-tmp/pass1.imp" JUMP L_00f4 667 reason(5): printstring("input ended: ") LINE 667 "regression-compile-tmp/pass1.imp" PUSHI #0x00000005 SLABEL 242 LINE 667 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "input ended: " ASSPAR CALL 668 %if quote # 0 %start LINE 668 "regression-compile-tmp/pass1.imp" PUSH QUOTE PUSHI #0x00000000 JUMPIF = L_0007 669 %if quote < 0 %then printsymbol(cquote) %else printsymbol(squote) LINE 669 "regression-compile-tmp/pass1.imp" PUSH QUOTE PUSHI #0x00000000 JUMPIF >= L_000a PUSH PRINTSYMBOL PUSHI #0x00000027 ASSPAR CALL GOTO L_0009 LOCATE L_000a PUSH PRINTSYMBOL PUSHI #0x00000022 ASSPAR CALL LOCATE L_0009 670 %else LINE 670 "regression-compile-tmp/pass1.imp" GOTO L_0006 LOCATE L_0007 671 printstring("%endof") LINE 671 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "%endof" ASSPAR CALL 672 %if progmode >= 0 %then printstring("program") %else printstring("file") LINE 672 "regression-compile-tmp/pass1.imp" PUSH PROGMODE PUSHI #0x00000000 JUMPIF < L_000a PUSH PRINTSTRING PUSHS "program" ASSPAR CALL GOTO L_0009 LOCATE L_000a PUSH PRINTSTRING PUSHS "file" ASSPAR CALL LOCATE L_0009 673 %finish LINE 673 "regression-compile-tmp/pass1.imp" LOCATE L_0006 674 printstring(" missing?"); ->more LINE 674 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " missing?" ASSPAR CALL LINE 674 "regression-compile-tmp/pass1.imp" JUMP L_00f4 675 reason(6): printstring("too many faults!"); ->more LINE 675 "regression-compile-tmp/pass1.imp" PUSHI #0x00000006 SLABEL 242 LINE 675 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "too many faults!" ASSPAR CALL LINE 675 "regression-compile-tmp/pass1.imp" JUMP L_00f4 676 reason(7): printstring("string constant too long"); ->more LINE 676 "regression-compile-tmp/pass1.imp" PUSHI #0x00000007 SLABEL 242 LINE 676 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "string constant too long" ASSPAR CALL LINE 676 "regression-compile-tmp/pass1.imp" JUMP L_00f4 677 reason(8): printstring("dictionary full"); ->more LINE 677 "regression-compile-tmp/pass1.imp" PUSHI #0x00000008 SLABEL 242 LINE 677 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "dictionary full" ASSPAR CALL LINE 677 "regression-compile-tmp/pass1.imp" JUMP L_00f4 678 reason(9): printstring("Included file ".include file." does not exist") 679 LINE 678 "regression-compile-tmp/pass1.imp" PUSHI #0x00000009 SLABEL 242 LINE 678 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "Included file " PUSH INCLUDEFILE CONCAT PUSHS " does not exist" CONCAT ASSPAR CALL 680 more: newline LINE 680 "regression-compile-tmp/pass1.imp" LABEL L_00f4 LINE 680 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 681 printstring("*** compilation abandoned ***"); newline LINE 681 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "*** compilation abandoned ***" ASSPAR CALL LINE 681 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 682 %exit %if stream = report LINE 682 "regression-compile-tmp/pass1.imp" PUSH STREAM PUSHI #0x00000000 JUMPIF # L_0007 GOTO L_0004 LOCATE L_0007 683 close output LINE 683 "regression-compile-tmp/pass1.imp" PUSH CLOSEOUTPUT CALL 684 stream = report LINE 684 "regression-compile-tmp/pass1.imp" PUSH STREAM PUSHI #0x00000000 ASSVAL 685 select output(report) LINE 685 "regression-compile-tmp/pass1.imp" PUSH SELECTOUTPUT PUSHI #0x00000000 ASSPAR CALL 686 %repeat 687 !%signal 15,15 %if diag&4096 # 0 LINE 686 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 688 %stop LINE 688 "regression-compile-tmp/pass1.imp" STOP 689 %end 690 LINE 689 "regression-compile-tmp/pass1.imp" END _lev0id0_ABANDON {lev=2 --> 1} 691 %routine compile block(%integer level, block tag, dmin, tmax, id) 692 LINE 691 "regression-compile-tmp/pass1.imp" DEF COMPILEBLOCK (_lev0id0_COMPILEBLOCK) p1=V_00f1 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF LEVEL p1=V_00f2 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF BLOCKTAG p1=V_00f3 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF DMIN p1=V_00f4 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF TMAX p1=V_00f5 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF ID p1=V_00f6 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 693 %integerfnspec gapp LINE 693 "regression-compile-tmp/pass1.imp" DEF GAPP (_lev0id0_COMPILEBLOCK_GAPP) p1=V_00f7 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} FINISH ) {lev=2} 694 %routinespec delete names(%integer quiet) LINE 694 "regression-compile-tmp/pass1.imp" DEF DELETENAMES (_lev0id0_COMPILEBLOCK_DELETENAMES) p1=V_00f8 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF QUIET p1=V_00f9 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 695 %routinespec analyse LINE 695 "regression-compile-tmp/pass1.imp" DEF ANALYSE (_lev0id0_COMPILEBLOCK_ANALYSE) p1=V_00f9 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} FINISH ) {lev=2} 696 %routinespec compile 697 LINE 696 "regression-compile-tmp/pass1.imp" DEF COMPILE (_lev0id0_COMPILEBLOCK_COMPILE) p1=V_00fa a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} FINISH ) {lev=2} 698 %integer open; open = closed; !zero if can return from proc LINE 698 "regression-compile-tmp/pass1.imp" DEF OPEN p1=V_00fb a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 LINE 698 "regression-compile-tmp/pass1.imp" PUSH OPEN PUSHI #0x00004000 ASSVAL 699 %integer dbase; dbase = dmax; !dictionary base LINE 699 "regression-compile-tmp/pass1.imp" DEF DBASE p1=V_00fc a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 LINE 699 "regression-compile-tmp/pass1.imp" PUSH DBASE PUSH DMAX ASSVAL 700 %integer tbase; tbase = tmax; !tag base LINE 700 "regression-compile-tmp/pass1.imp" DEF TBASE p1=V_00fd a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 LINE 700 "regression-compile-tmp/pass1.imp" PUSH TBASE PUSH TMAX ASSVAL 701 %integer tstart; tstart = tmax LINE 701 "regression-compile-tmp/pass1.imp" DEF TSTART p1=V_00fe a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 LINE 701 "regression-compile-tmp/pass1.imp" PUSH TSTART PUSH TMAX ASSVAL 702 %integer label; label = 4; !first internal label LINE 702 "regression-compile-tmp/pass1.imp" DEF LABEL p1=V_00ff a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 LINE 702 "regression-compile-tmp/pass1.imp" PUSH LABEL PUSHI #0x00000004 ASSVAL 703 %integer access; access = 1; !non-zero if accessible LINE 703 "regression-compile-tmp/pass1.imp" DEF ACCESS p1=V_0100 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 LINE 703 "regression-compile-tmp/pass1.imp" PUSH ACCESS PUSHI #0x00000001 ASSVAL 704 %integer inhibit; inhibit = 0; !non-zero inhibits declaratons 705 LINE 704 "regression-compile-tmp/pass1.imp" DEF INHIBIT p1=V_0101 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 LINE 704 "regression-compile-tmp/pass1.imp" PUSH INHIBIT PUSHI #0x00000000 ASSVAL 706 %integername bflags; bflags == tag(block tag)_flags LINE 706 "regression-compile-tmp/pass1.imp" DEF BFLAGS p1=V_0102 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 LINE 706 "regression-compile-tmp/pass1.imp" PUSH BFLAGS PUSH TAG PUSH BLOCKTAG ACCESS SELECT 3 ASSREF 707 %integer block type; block type = bflags>>4&7 LINE 707 "regression-compile-tmp/pass1.imp" DEF BLOCKTYPE p1=V_0103 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 LINE 707 "regression-compile-tmp/pass1.imp" PUSH BLOCKTYPE PUSH BFLAGS PUSHI #0x00000004 RSH PUSHI #0x00000007 AND ASSVAL 708 %integer block form; block form = bflags&15 LINE 708 "regression-compile-tmp/pass1.imp" DEF BLOCKFORM p1=V_0104 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 LINE 708 "regression-compile-tmp/pass1.imp" PUSH BLOCKFORM PUSH BFLAGS PUSHI #0x0000000f AND ASSVAL 709 %integer block fm; block fm = tag(block tag)_format LINE 709 "regression-compile-tmp/pass1.imp" DEF BLOCKFM p1=V_0105 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 LINE 709 "regression-compile-tmp/pass1.imp" PUSH BLOCKFM PUSH TAG PUSH BLOCKTAG ACCESS SELECT 2 ASSVAL 710 %integer block otype; block otype = otype LINE 710 "regression-compile-tmp/pass1.imp" DEF BLOCKOTYPE p1=V_0106 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 LINE 710 "regression-compile-tmp/pass1.imp" PUSH BLOCKOTYPE PUSH OTYPE ASSVAL 711 %integername block app; block app == tag(block tag)_app 712 LINE 711 "regression-compile-tmp/pass1.imp" DEF BLOCKAPP p1=V_0107 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 LINE 711 "regression-compile-tmp/pass1.imp" PUSH BLOCKAPP PUSH TAG PUSH BLOCKTAG ACCESS SELECT 1 ASSREF 713 %integer l, new app 714 LINE 713 "regression-compile-tmp/pass1.imp" DEF L p1=V_0108 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF NEWAPP p1=V_0109 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 715 %routine fault(%integer n) 716 ! -5 : -1 - warnings 717 ! 1 : 22 - errors 718 LINE 715 "regression-compile-tmp/pass1.imp" DEF FAULT (_lev0id0_COMPILEBLOCK_FAULT) p1=V_010a a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF N p1=V_010b a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=3} 719 %switch fm(-5:22) LINE 719 "regression-compile-tmp/pass1.imp" PUSHI #0xfffffffb PUSHI #0x00000016 BOUNDS DEF FM p1=V_010c a/tf=6 b/format=0 c/ostate=0 type=0 () form=6 (switch) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 720 %integer st 721 LINE 720 "regression-compile-tmp/pass1.imp" DEF ST p1=V_010d a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 722 %routine print ss LINE 722 "regression-compile-tmp/pass1.imp" DEF PRINTSS (_lev0id0_COMPILEBLOCK_FAULT_PRINTSS) p1=V_010e a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 723 %integer s, p LINE 723 "regression-compile-tmp/pass1.imp" DEF S p1=V_010f a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF P p1=V_0110 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 724 %return %if pos = 0 LINE 724 "regression-compile-tmp/pass1.imp" PUSH POS PUSHI #0x00000000 JUMPIF # L_0004 RETURN LOCATE L_0004 725 space LINE 725 "regression-compile-tmp/pass1.imp" PUSH SPACE CALL 726 p = 1 LINE 726 "regression-compile-tmp/pass1.imp" PUSH P PUSHI #0x00000001 ASSVAL 727 %cycle LINE 727 "regression-compile-tmp/pass1.imp" LOCATE L_0003 728 printsymbol(marker) %if p = pos1 LINE 728 "regression-compile-tmp/pass1.imp" PUSH P PUSH POS1 JUMPIF # L_0007 PUSH PRINTSYMBOL PUSHI #0x0000005e ASSPAR CALL LOCATE L_0007 729 %exit %if p = pos LINE 729 "regression-compile-tmp/pass1.imp" PUSH P PUSH POS JUMPIF # L_0007 GOTO L_0004 LOCATE L_0007 730 s = char(p); p = p+1 LINE 730 "regression-compile-tmp/pass1.imp" PUSH S PUSH CHAR PUSH P ACCESS ASSVAL LINE 730 "regression-compile-tmp/pass1.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 731 %exit %if s = nl %or (s='%' %and p = pos) LINE 731 "regression-compile-tmp/pass1.imp" PUSH S PUSHI #0x0000000a JUMPIF = L_0008 PUSH S PUSHI #0x00000025 JUMPIF # L_0007 PUSH P PUSH POS JUMPIF # L_0007 LOCATE L_0008 GOTO L_0004 LOCATE L_0007 732 %if s < ' ' %start; !beware of tabs LINE 732 "regression-compile-tmp/pass1.imp" PUSH S PUSHI #0x00000020 JUMPIF >= L_0007 733 %if s = ff %then s = nl %else s = ' ' LINE 733 "regression-compile-tmp/pass1.imp" PUSH S PUSHI #0x0000000c JUMPIF # L_000a PUSH S PUSHI #0x0000000a ASSVAL GOTO L_0009 LOCATE L_000a PUSH S PUSHI #0x00000020 ASSVAL LOCATE L_0009 734 %finish LINE 734 "regression-compile-tmp/pass1.imp" LOCATE L_0007 735 printsymbol(s) LINE 735 "regression-compile-tmp/pass1.imp" PUSH PRINTSYMBOL PUSH S ASSPAR CALL 736 %repeat LINE 736 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 737 pos = 0 %if list <= 0 LINE 737 "regression-compile-tmp/pass1.imp" PUSH LIST PUSHI #0x00000000 JUMPIF > L_0004 PUSH POS PUSHI #0x00000000 ASSVAL LOCATE L_0004 738 %end 739 LINE 738 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_FAULT_PRINTSS {lev=4 --> 3} 740 pos1 = pos2 %if pos2 > pos1 LINE 740 "regression-compile-tmp/pass1.imp" PUSH POS2 PUSH POS1 JUMPIF <= L_0004 PUSH POS1 PUSH POS2 ASSVAL LOCATE L_0004 741 newline %if sym # nl LINE 741 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000000a JUMPIF = L_0004 PUSH NEWLINE CALL LOCATE L_0004 742 st = report LINE 742 "regression-compile-tmp/pass1.imp" PUSH ST PUSHI #0x00000000 ASSVAL 743 st = listing %if n = -3; !don't report unused on the console LINE 743 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x00000003 NEGATE JUMPIF # L_0004 PUSH ST PUSHI #0x00000002 ASSVAL LOCATE L_0004 744 %cycle LINE 744 "regression-compile-tmp/pass1.imp" LOCATE L_0003 745 select output(st) LINE 745 "regression-compile-tmp/pass1.imp" PUSH SELECTOUTPUT PUSH ST ASSPAR CALL 746 %if n < 0 %then printsymbol('?') %and pos1 = 0 %else printsymbol('*') LINE 746 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x00000000 JUMPIF >= L_0007 PUSH PRINTSYMBOL PUSHI #0x0000003f ASSPAR CALL PUSH POS1 PUSHI #0x00000000 ASSVAL GOTO L_0006 LOCATE L_0007 PUSH PRINTSYMBOL PUSHI #0x0000002a ASSPAR CALL LOCATE L_0006 747 %if st # report %start LINE 747 "regression-compile-tmp/pass1.imp" PUSH ST PUSHI #0x00000000 JUMPIF = L_0007 748 %if list <= 0 %and pos1 # 0 %start LINE 748 "regression-compile-tmp/pass1.imp" PUSH LIST PUSHI #0x00000000 JUMPIF > L_000a PUSH POS1 PUSHI #0x00000000 JUMPIF = L_000a 749 spaces(pos1+margin); printstring(" ! ") LINE 749 "regression-compile-tmp/pass1.imp" PUSH SPACES PUSH POS1 PUSH MARGIN ADD ASSPAR CALL LINE 749 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " ! " ASSPAR CALL 750 %finish LINE 750 "regression-compile-tmp/pass1.imp" LOCATE L_000a 751 %finish %else %start LINE 751 "regression-compile-tmp/pass1.imp" GOTO L_0006 LOCATE L_0007 752 printstring(include file) %if include # 0 LINE 752 "regression-compile-tmp/pass1.imp" PUSH INCLUDE PUSHI #0x00000000 JUMPIF = L_000a PUSH PRINTSTRING PUSH INCLUDEFILE ASSPAR CALL LOCATE L_000a 753 write(lines, 4); printsymbol(csym); space LINE 753 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH LINES ASSPAR PUSHI #0x00000004 ASSPAR CALL LINE 753 "regression-compile-tmp/pass1.imp" PUSH PRINTSYMBOL PUSH CSYM ASSPAR CALL LINE 753 "regression-compile-tmp/pass1.imp" PUSH SPACE CALL 754 %finish LINE 754 "regression-compile-tmp/pass1.imp" LOCATE L_0006 755 ->fm(n) %if -5 <= n %and n <= 22 LINE 755 "regression-compile-tmp/pass1.imp" PUSHI #0x00000005 NEGATE PUSH N JUMPIF > L_0007 PUSH N PUSHI #0x00000016 JUMPIF > L_0007 PUSH N SJUMP 268 LOCATE L_0007 756 printstring("fault"); write(n, 2); ->ps 757 LINE 756 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "fault" ASSPAR CALL LINE 756 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH N ASSPAR PUSHI #0x00000002 ASSPAR CALL LINE 756 "regression-compile-tmp/pass1.imp" JUMP L_010f 758 fm(-5): printstring("Dubious statement"); dubious = 0; ->psd LINE 758 "regression-compile-tmp/pass1.imp" PUSHI #0xfffffffb SLABEL 268 LINE 758 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "Dubious statement" ASSPAR CALL LINE 758 "regression-compile-tmp/pass1.imp" PUSH DUBIOUS PUSHI #0x00000000 ASSVAL LINE 758 "regression-compile-tmp/pass1.imp" JUMP L_0110 759 fm(-4): printstring("Non-local") LINE 759 "regression-compile-tmp/pass1.imp" PUSHI #0xfffffffc SLABEL 268 LINE 759 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "Non-local" ASSPAR CALL 760 pos1 = for warn; for warn = 0; ->ps LINE 760 "regression-compile-tmp/pass1.imp" PUSH POS1 PUSH FORWARN ASSVAL LINE 760 "regression-compile-tmp/pass1.imp" PUSH FORWARN PUSHI #0x00000000 ASSVAL LINE 760 "regression-compile-tmp/pass1.imp" JUMP L_010f 761 fm(-3): print ident(x, 0); printstring(" unused"); ->nps LINE 761 "regression-compile-tmp/pass1.imp" PUSHI #0xfffffffd SLABEL 268 LINE 761 "regression-compile-tmp/pass1.imp" PUSH PRINTIDENT PUSH X ASSPAR PUSHI #0x00000000 ASSPAR CALL LINE 761 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " unused" ASSPAR CALL LINE 761 "regression-compile-tmp/pass1.imp" JUMP L_0111 762 fm(-2): printstring("""}"""); ->miss LINE 762 "regression-compile-tmp/pass1.imp" PUSHI #0xfffffffe SLABEL 268 LINE 762 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "\"}\"" ASSPAR CALL LINE 762 "regression-compile-tmp/pass1.imp" JUMP L_0112 763 fm(-1): printstring("access"); ->psd LINE 763 "regression-compile-tmp/pass1.imp" PUSHI #0xffffffff SLABEL 268 LINE 763 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "access" ASSPAR CALL LINE 763 "regression-compile-tmp/pass1.imp" JUMP L_0110 764 fm(0): printstring("form"); ->ps LINE 764 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 SLABEL 268 LINE 764 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "form" ASSPAR CALL LINE 764 "regression-compile-tmp/pass1.imp" JUMP L_010f 765 fm(1): printstring("atom"); ->ps LINE 765 "regression-compile-tmp/pass1.imp" PUSHI #0x00000001 SLABEL 268 LINE 765 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "atom" ASSPAR CALL LINE 765 "regression-compile-tmp/pass1.imp" JUMP L_010f 766 fm(2): printstring("not declared"); ->ps LINE 766 "regression-compile-tmp/pass1.imp" PUSHI #0x00000002 SLABEL 268 LINE 766 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "not declared" ASSPAR CALL LINE 766 "regression-compile-tmp/pass1.imp" JUMP L_010f 767 fm(3): printstring("too complex"); ->ps LINE 767 "regression-compile-tmp/pass1.imp" PUSHI #0x00000003 SLABEL 268 LINE 767 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "too complex" ASSPAR CALL LINE 767 "regression-compile-tmp/pass1.imp" JUMP L_010f 768 fm(4): printstring("duplicate "); Print Ident(x, 0); ->ps LINE 768 "regression-compile-tmp/pass1.imp" PUSHI #0x00000004 SLABEL 268 LINE 768 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "duplicate " ASSPAR CALL LINE 768 "regression-compile-tmp/pass1.imp" PUSH PRINTIDENT PUSH X ASSPAR PUSHI #0x00000000 ASSPAR CALL LINE 768 "regression-compile-tmp/pass1.imp" JUMP L_010f 769 fm(5): printstring("type"); ->ps LINE 769 "regression-compile-tmp/pass1.imp" PUSHI #0x00000005 SLABEL 268 LINE 769 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "type" ASSPAR CALL LINE 769 "regression-compile-tmp/pass1.imp" JUMP L_010f 770 fm(6): printstring("match"); ->psd LINE 770 "regression-compile-tmp/pass1.imp" PUSHI #0x00000006 SLABEL 268 LINE 770 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "match" ASSPAR CALL LINE 770 "regression-compile-tmp/pass1.imp" JUMP L_0110 771 fm(7): printstring("context"); ->psd LINE 771 "regression-compile-tmp/pass1.imp" PUSHI #0x00000007 SLABEL 268 LINE 771 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "context" ASSPAR CALL LINE 771 "regression-compile-tmp/pass1.imp" JUMP L_0110 772 fm(8): printstring("%cycle"); ->miss LINE 772 "regression-compile-tmp/pass1.imp" PUSHI #0x00000008 SLABEL 268 LINE 772 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "%cycle" ASSPAR CALL LINE 772 "regression-compile-tmp/pass1.imp" JUMP L_0112 773 fm(9): printstring("%start"); ->miss LINE 773 "regression-compile-tmp/pass1.imp" PUSHI #0x00000009 SLABEL 268 LINE 773 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "%start" ASSPAR CALL LINE 773 "regression-compile-tmp/pass1.imp" JUMP L_0112 774 fm(10): printstring("size"); write(lit, 1) %if pos1 = 0; ->ps LINE 774 "regression-compile-tmp/pass1.imp" PUSHI #0x0000000a SLABEL 268 LINE 774 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "size" ASSPAR CALL LINE 774 "regression-compile-tmp/pass1.imp" PUSH POS1 PUSHI #0x00000000 JUMPIF # L_0007 PUSH WRITE PUSH LIT ASSPAR PUSHI #0x00000001 ASSPAR CALL LOCATE L_0007 LINE 774 "regression-compile-tmp/pass1.imp" JUMP L_010f 775 fm(11): printstring("bounds") LINE 775 "regression-compile-tmp/pass1.imp" PUSHI #0x0000000b SLABEL 268 LINE 775 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "bounds" ASSPAR CALL 776 write(ocount, 1) %unless ocount < 0; ->ps LINE 776 "regression-compile-tmp/pass1.imp" PUSH OCOUNT PUSHI #0x00000000 JUMPIF < L_0007 PUSH WRITE PUSH OCOUNT ASSPAR PUSHI #0x00000001 ASSPAR CALL LOCATE L_0007 LINE 776 "regression-compile-tmp/pass1.imp" JUMP L_010f 777 fm(12): printstring("index"); ->ps LINE 777 "regression-compile-tmp/pass1.imp" PUSHI #0x0000000c SLABEL 268 LINE 777 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "index" ASSPAR CALL LINE 777 "regression-compile-tmp/pass1.imp" JUMP L_010f 778 fm(13): printstring("order"); ->psd LINE 778 "regression-compile-tmp/pass1.imp" PUSHI #0x0000000d SLABEL 268 LINE 778 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "order" ASSPAR CALL LINE 778 "regression-compile-tmp/pass1.imp" JUMP L_0110 779 fm(14): printstring("not a location"); ->ps LINE 779 "regression-compile-tmp/pass1.imp" PUSHI #0x0000000e SLABEL 268 LINE 779 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "not a location" ASSPAR CALL LINE 779 "regression-compile-tmp/pass1.imp" JUMP L_010f 780 fm(15): printstring("%begin"); ->miss LINE 780 "regression-compile-tmp/pass1.imp" PUSHI #0x0000000f SLABEL 268 LINE 780 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "%begin" ASSPAR CALL LINE 780 "regression-compile-tmp/pass1.imp" JUMP L_0112 781 fm(16): printstring("%end"); ->miss LINE 781 "regression-compile-tmp/pass1.imp" PUSHI #0x00000010 SLABEL 268 LINE 781 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "%end" ASSPAR CALL LINE 781 "regression-compile-tmp/pass1.imp" JUMP L_0112 782 fm(17): printstring("%repeat"); ->miss LINE 782 "regression-compile-tmp/pass1.imp" PUSHI #0x00000011 SLABEL 268 LINE 782 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "%repeat" ASSPAR CALL LINE 782 "regression-compile-tmp/pass1.imp" JUMP L_0112 783 fm(18): printstring("%finish"); ->miss LINE 783 "regression-compile-tmp/pass1.imp" PUSHI #0x00000012 SLABEL 268 LINE 783 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "%finish" ASSPAR CALL LINE 783 "regression-compile-tmp/pass1.imp" JUMP L_0112 784 fm(19): printstring("result"); ->miss LINE 784 "regression-compile-tmp/pass1.imp" PUSHI #0x00000013 SLABEL 268 LINE 784 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "result" ASSPAR CALL LINE 784 "regression-compile-tmp/pass1.imp" JUMP L_0112 785 fm(20): printsymbol('"'); print ident(x, 0); printsymbol('"'); ->miss LINE 785 "regression-compile-tmp/pass1.imp" PUSHI #0x00000014 SLABEL 268 LINE 785 "regression-compile-tmp/pass1.imp" PUSH PRINTSYMBOL PUSHI #0x00000022 ASSPAR CALL LINE 785 "regression-compile-tmp/pass1.imp" PUSH PRINTIDENT PUSH X ASSPAR PUSHI #0x00000000 ASSPAR CALL LINE 785 "regression-compile-tmp/pass1.imp" PUSH PRINTSYMBOL PUSHI #0x00000022 ASSPAR CALL LINE 785 "regression-compile-tmp/pass1.imp" JUMP L_0112 786 fm(21): printstring("context "); print ident(this, 0); ->ps LINE 786 "regression-compile-tmp/pass1.imp" PUSHI #0x00000015 SLABEL 268 LINE 786 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "context " ASSPAR CALL LINE 786 "regression-compile-tmp/pass1.imp" PUSH PRINTIDENT PUSH THIS ASSPAR PUSHI #0x00000000 ASSPAR CALL LINE 786 "regression-compile-tmp/pass1.imp" JUMP L_010f 787 fm(22): printstring("format"); ->ps 788 LINE 787 "regression-compile-tmp/pass1.imp" PUSHI #0x00000016 SLABEL 268 LINE 787 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "format" ASSPAR CALL LINE 787 "regression-compile-tmp/pass1.imp" JUMP L_010f 789 miss: printstring(" missing"); ->nps LINE 789 "regression-compile-tmp/pass1.imp" LABEL L_0112 LINE 789 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " missing" ASSPAR CALL LINE 789 "regression-compile-tmp/pass1.imp" JUMP L_0111 790 psd: pos1 = 0 LINE 790 "regression-compile-tmp/pass1.imp" LABEL L_0110 LINE 790 "regression-compile-tmp/pass1.imp" PUSH POS1 PUSHI #0x00000000 ASSVAL 791 ps: print ss LINE 791 "regression-compile-tmp/pass1.imp" LABEL L_010f LINE 791 "regression-compile-tmp/pass1.imp" PUSH PRINTSS CALL 792 nps: newline LINE 792 "regression-compile-tmp/pass1.imp" LABEL L_0111 LINE 792 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 793 %exit %if st = listing LINE 793 "regression-compile-tmp/pass1.imp" PUSH ST PUSHI #0x00000002 JUMPIF # L_0007 GOTO L_0004 LOCATE L_0007 794 st = listing LINE 794 "regression-compile-tmp/pass1.imp" PUSH ST PUSHI #0x00000002 ASSVAL 795 %repeat LINE 795 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 796 %if n >= 0 %start 797 !%signal 15,15 %if diag&4096 # 0 LINE 796 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x00000000 JUMPIF < L_0004 798 %if n # 13 %start; !order is fairly safe LINE 798 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x0000000d JUMPIF = L_0007 799 ocount = -1 LINE 799 "regression-compile-tmp/pass1.imp" PUSH OCOUNT PUSHI #0x00000001 NEGATE ASSVAL 800 gg = 0 LINE 800 "regression-compile-tmp/pass1.imp" PUSH GG PUSHI #0x00000000 ASSVAL 801 copy = 0; quote = 0 LINE 801 "regression-compile-tmp/pass1.imp" PUSH COPY PUSHI #0x00000000 ASSVAL LINE 801 "regression-compile-tmp/pass1.imp" PUSH QUOTE PUSHI #0x00000000 ASSVAL 802 search base = 0; escape class = 0 LINE 802 "regression-compile-tmp/pass1.imp" PUSH SEARCHBASE PUSHI #0x00000000 ASSVAL LINE 802 "regression-compile-tmp/pass1.imp" PUSH ESCAPECLASS PUSHI #0x00000000 ASSVAL 803 gg = 0 LINE 803 "regression-compile-tmp/pass1.imp" PUSH GG PUSHI #0x00000000 ASSVAL 804 %finish LINE 804 "regression-compile-tmp/pass1.imp" LOCATE L_0007 805 faulty = faulty+1 806 807 !check that there haven't been too many faults 808 LINE 805 "regression-compile-tmp/pass1.imp" PUSH FAULTY PUSH FAULTY PUSHI #0x00000001 ADD ASSVAL 809 fault rate = fault rate+3; abandon(6) %if fault rate > 30 LINE 809 "regression-compile-tmp/pass1.imp" PUSH FAULTRATE PUSH FAULTRATE PUSHI #0x00000003 ADD ASSVAL LINE 809 "regression-compile-tmp/pass1.imp" PUSH FAULTRATE PUSHI #0x0000001e JUMPIF <= L_0007 PUSH ABANDON PUSHI #0x00000006 ASSPAR CALL LOCATE L_0007 810 fault rate = 3 %if fault rate <= 0 LINE 810 "regression-compile-tmp/pass1.imp" PUSH FAULTRATE PUSHI #0x00000000 JUMPIF > L_0007 PUSH FAULTRATE PUSHI #0x00000003 ASSVAL LOCATE L_0007 811 %finish LINE 811 "regression-compile-tmp/pass1.imp" LOCATE L_0004 812 tbase = tstart LINE 812 "regression-compile-tmp/pass1.imp" PUSH TBASE PUSH TSTART ASSVAL 813 %if list <= 0 %and sym # nl %start LINE 813 "regression-compile-tmp/pass1.imp" PUSH LIST PUSHI #0x00000000 JUMPIF > L_0004 PUSH SYM PUSHI #0x0000000a JUMPIF = L_0004 814 error margin = column LINE 814 "regression-compile-tmp/pass1.imp" PUSH ERRORMARGIN PUSH COLUMN ASSVAL 815 error sym = sym; sym = nl LINE 815 "regression-compile-tmp/pass1.imp" PUSH ERRORSYM PUSH SYM ASSVAL LINE 815 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000000a ASSVAL 816 %finish LINE 816 "regression-compile-tmp/pass1.imp" LOCATE L_0004 817 %end 818 LINE 817 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_FAULT {lev=3 --> 2} 819 dmin = dmin-1; dict(dmin) = -1; !end marker for starts & cycles LINE 819 "regression-compile-tmp/pass1.imp" PUSH DMIN PUSH DMIN PUSHI #0x00000001 SUB ASSVAL LINE 819 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH DMIN ACCESS PUSHI #0x00000001 NEGATE ASSVAL 820 abandon(2) %if dmax = dmin 821 LINE 820 "regression-compile-tmp/pass1.imp" PUSH DMAX PUSH DMIN JUMPIF # L_0004 PUSH ABANDON PUSHI #0x00000002 ASSPAR CALL LOCATE L_0004 822 %if list > 0 %and level > 0 %start LINE 822 "regression-compile-tmp/pass1.imp" PUSH LIST PUSHI #0x00000000 JUMPIF <= L_0004 PUSH LEVEL PUSHI #0x00000000 JUMPIF <= L_0004 823 write(lines, 5); spaces(level*3-1) LINE 823 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH LINES ASSPAR PUSHI #0x00000005 ASSPAR CALL LINE 823 "regression-compile-tmp/pass1.imp" PUSH SPACES PUSH LEVEL PUSHI #0x00000003 MUL PUSHI #0x00000001 SUB ASSPAR CALL 824 %if block tag = 0 %start LINE 824 "regression-compile-tmp/pass1.imp" PUSH BLOCKTAG PUSHI #0x00000000 JUMPIF # L_0007 825 printstring("Begin") LINE 825 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "Begin" ASSPAR CALL 826 %finish %else %start LINE 826 "regression-compile-tmp/pass1.imp" GOTO L_0006 LOCATE L_0007 827 printstring("Procedure "); print ident(block tag, 0) LINE 827 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "Procedure " ASSPAR CALL LINE 827 "regression-compile-tmp/pass1.imp" PUSH PRINTIDENT PUSH BLOCKTAG ASSPAR PUSHI #0x00000000 ASSPAR CALL 828 %finish LINE 828 "regression-compile-tmp/pass1.imp" LOCATE L_0006 829 newline LINE 829 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 830 %finish 831 832 !deal with procedure definition (parameters) LINE 830 "regression-compile-tmp/pass1.imp" LOCATE L_0004 833 %if block tag # 0 %start; !proc LINE 833 "regression-compile-tmp/pass1.imp" PUSH BLOCKTAG PUSHI #0x00000000 JUMPIF = L_0004 834 analyse; compile %if ss # 0 835 LINE 834 "regression-compile-tmp/pass1.imp" PUSH ANALYSE CALL LINE 834 "regression-compile-tmp/pass1.imp" PUSH SS PUSHI #0x00000000 JUMPIF = L_0007 PUSH COMPILE CALL LOCATE L_0007 836 %if block otype # 0 %start; !external-ish LINE 836 "regression-compile-tmp/pass1.imp" PUSH BLOCKOTYPE PUSHI #0x00000000 JUMPIF = L_0007 837 %if bflags&spec = 0 %start; !definition LINE 837 "regression-compile-tmp/pass1.imp" PUSH BFLAGS PUSHI #0x00000080 AND PUSHI #0x00000000 JUMPIF # L_000a 838 %if progmode <= 0 %and level = 1 %then progmode = -1 %else fault(7) LINE 838 "regression-compile-tmp/pass1.imp" PUSH PROGMODE PUSHI #0x00000000 JUMPIF > L_000d PUSH LEVEL PUSHI #0x00000001 JUMPIF # L_000d PUSH PROGMODE PUSHI #0x00000001 NEGATE ASSVAL GOTO L_000c LOCATE L_000d PUSH FAULT PUSHI #0x00000007 ASSPAR CALL LOCATE L_000c 839 %finish LINE 839 "regression-compile-tmp/pass1.imp" LOCATE L_000a 840 %finish 841 LINE 840 "regression-compile-tmp/pass1.imp" LOCATE L_0007 842 new app = gapp; !generate app grammar LINE 842 "regression-compile-tmp/pass1.imp" PUSH NEWAPP PUSH GAPP CALL ASSVAL 843 %if spec given # 0 %start; !definition after spec LINE 843 "regression-compile-tmp/pass1.imp" PUSH SPECGIVEN PUSHI #0x00000000 JUMPIF = L_0007 844 fault(6) %if new app # block app; !different from spec LINE 844 "regression-compile-tmp/pass1.imp" PUSH NEWAPP PUSH BLOCKAPP JUMPIF = L_000a PUSH FAULT PUSHI #0x00000006 ASSPAR CALL LOCATE L_000a 845 %finish LINE 845 "regression-compile-tmp/pass1.imp" LOCATE L_0007 846 block app = new app; !use the latest 847 LINE 846 "regression-compile-tmp/pass1.imp" PUSH BLOCKAPP PUSH NEWAPP ASSVAL 848 %if level < 0 %start; !not procedure definition LINE 848 "regression-compile-tmp/pass1.imp" PUSH LEVEL PUSHI #0x00000000 JUMPIF >= L_0007 849 delete names(0) LINE 849 "regression-compile-tmp/pass1.imp" PUSH DELETENAMES PUSHI #0x00000000 ASSPAR CALL 850 %return LINE 850 "regression-compile-tmp/pass1.imp" RETURN 851 %finish LINE 851 "regression-compile-tmp/pass1.imp" LOCATE L_0007 852 %finish %else %start LINE 852 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 853 open = 0; !can return from a block? LINE 853 "regression-compile-tmp/pass1.imp" PUSH OPEN PUSHI #0x00000000 ASSVAL 854 %finish 855 LINE 854 "regression-compile-tmp/pass1.imp" LOCATE L_0003 856 %cycle LINE 856 "regression-compile-tmp/pass1.imp" LOCATE L_0003 857 analyse LINE 857 "regression-compile-tmp/pass1.imp" PUSH ANALYSE CALL 858 %if ss # 0 %start LINE 858 "regression-compile-tmp/pass1.imp" PUSH SS PUSHI #0x00000000 JUMPIF = L_0007 859 compile LINE 859 "regression-compile-tmp/pass1.imp" PUSH COMPILE CALL 860 fault(-5) %if dubious # 0 LINE 860 "regression-compile-tmp/pass1.imp" PUSH DUBIOUS PUSHI #0x00000000 JUMPIF = L_000a PUSH FAULT PUSHI #0x00000005 NEGATE ASSPAR CALL LOCATE L_000a 861 flush buffer( 128 ) ;! flush if bp >= 128 LINE 861 "regression-compile-tmp/pass1.imp" PUSH FLUSHBUFFER PUSHI #0x00000080 ASSPAR CALL 862 %if sstype > 0 %start; !block in or out LINE 862 "regression-compile-tmp/pass1.imp" PUSH SSTYPE PUSHI #0x00000000 JUMPIF <= L_000a 863 %exit %if sstype = 2; !out LINE 863 "regression-compile-tmp/pass1.imp" PUSH SSTYPE PUSHI #0x00000002 JUMPIF # L_000d GOTO L_0004 LOCATE L_000d 864 compile block(spec mode, block x, dmin, tmax, id) LINE 864 "regression-compile-tmp/pass1.imp" PUSH COMPILEBLOCK PUSH SPECMODE ASSPAR PUSH BLOCKX ASSPAR PUSH DMIN ASSPAR PUSH TMAX ASSPAR PUSH ID ASSPAR CALL 865 %exit %if ss < 0; !endofprogram LINE 865 "regression-compile-tmp/pass1.imp" PUSH SS PUSHI #0x00000000 JUMPIF >= L_000d GOTO L_0004 LOCATE L_000d 866 %finish LINE 866 "regression-compile-tmp/pass1.imp" LOCATE L_000a 867 %finish LINE 867 "regression-compile-tmp/pass1.imp" LOCATE L_0007 868 %repeat LINE 868 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 869 %if list > 0 %and level > 0 %start LINE 869 "regression-compile-tmp/pass1.imp" PUSH LIST PUSHI #0x00000000 JUMPIF <= L_0004 PUSH LEVEL PUSHI #0x00000000 JUMPIF <= L_0004 870 write(lines, 5); spaces(level*3-1) LINE 870 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH LINES ASSPAR PUSHI #0x00000005 ASSPAR CALL LINE 870 "regression-compile-tmp/pass1.imp" PUSH SPACES PUSH LEVEL PUSHI #0x00000003 MUL PUSHI #0x00000001 SUB ASSPAR CALL 871 printstring("End") LINE 871 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "End" ASSPAR CALL 872 newline LINE 872 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 873 %finish LINE 873 "regression-compile-tmp/pass1.imp" LOCATE L_0004 874 delete names(0) LINE 874 "regression-compile-tmp/pass1.imp" PUSH DELETENAMES PUSHI #0x00000000 ASSPAR CALL 875 %return 876 877 ! generate app grammar (backwards) LINE 875 "regression-compile-tmp/pass1.imp" RETURN 878 %integerfn gapp LINE 878 "regression-compile-tmp/pass1.imp" DEF GAPP (_lev0id0_COMPILEBLOCK_GAPP) p1=V_00f7 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} FINISH ) {lev=3} 879 %constinteger comma = 140; !psep LINE 879 "regression-compile-tmp/pass1.imp" 880 %routinespec set cell(%integer g, tt) LINE 880 "regression-compile-tmp/pass1.imp" DEF SETCELL (_lev0id0_COMPILEBLOCK_GAPP_SETCELL) p1=V_010b a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF G p1=V_010c a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF TT p1=V_010d a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=3} 881 %routinespec class(%record(tagfm)%name v) LINE 881 "regression-compile-tmp/pass1.imp" DEF CLASS (_lev0id0_COMPILEBLOCK_GAPP_CLASS) p1=V_010c a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF V p1=V_010d a/tf=42 b/format=85 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=3} 882 %record(tagfm)%name v LINE 882 "regression-compile-tmp/pass1.imp" DEF V p1=V_010d a/tf=42 b/format=85 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 883 %integer p, link, tp, c, ap, t 884 LINE 883 "regression-compile-tmp/pass1.imp" DEF P p1=V_010e a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF LINK p1=V_010f a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF TP p1=V_0110 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF C p1=V_0111 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF AP p1=V_0112 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF T p1=V_0113 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 885 %result = 0 %if tmax = local; !no app needed 886 LINE 885 "regression-compile-tmp/pass1.imp" PUSH TMAX PUSH LOCAL JUMPIF # L_0004 PUSHI #0x00000000 RESULT LOCATE L_0004 887 p = gmax1; link = 0; t = tmax 888 LINE 887 "regression-compile-tmp/pass1.imp" PUSH P PUSHI #0x000002cf ASSVAL LINE 887 "regression-compile-tmp/pass1.imp" PUSH LINK PUSHI #0x00000000 ASSVAL LINE 887 "regression-compile-tmp/pass1.imp" PUSH T PUSH TMAX ASSVAL 889 %cycle LINE 889 "regression-compile-tmp/pass1.imp" LOCATE L_0003 890 v == tag(t); t = t-1 LINE 890 "regression-compile-tmp/pass1.imp" PUSH V PUSH TAG PUSH T ACCESS ASSREF LINE 890 "regression-compile-tmp/pass1.imp" PUSH T PUSH T PUSHI #0x00000001 SUB ASSVAL 891 class(v); ! deduce class from tag LINE 891 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSH V ASSPAR CALL 892 %if c < 0 %start; ! insert %PARAM LINE 892 "regression-compile-tmp/pass1.imp" PUSH C PUSHI #0x00000000 JUMPIF >= L_0007 893 c = -c LINE 893 "regression-compile-tmp/pass1.imp" PUSH C PUSH C NEGATE ASSVAL 894 set cell(196, tp) LINE 894 "regression-compile-tmp/pass1.imp" PUSH SETCELL PUSHI #0x000000c4 ASSPAR PUSH TP ASSPAR CALL 895 tp = -1 LINE 895 "regression-compile-tmp/pass1.imp" PUSH TP PUSHI #0x00000001 NEGATE ASSVAL 896 %finish LINE 896 "regression-compile-tmp/pass1.imp" LOCATE L_0007 897 set cell(c, tp) LINE 897 "regression-compile-tmp/pass1.imp" PUSH SETCELL PUSH C ASSPAR PUSH TP ASSPAR CALL 898 %exit %if t = local; ! end of parameters LINE 898 "regression-compile-tmp/pass1.imp" PUSH T PUSH LOCAL JUMPIF # L_0007 GOTO L_0004 LOCATE L_0007 899 set cell(comma, -1); ! add the separating comma LINE 899 "regression-compile-tmp/pass1.imp" PUSH SETCELL PUSHI #0x0000008c ASSPAR PUSHI #0x00000001 NEGATE ASSPAR CALL 900 %repeat LINE 900 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 901 abandon(3) %if gmax > gmin 902 LINE 901 "regression-compile-tmp/pass1.imp" PUSH GMAX PUSH GMIN JUMPIF <= L_0004 PUSH ABANDON PUSHI #0x00000003 ASSPAR CALL LOCATE L_0004 903 %result = link 904 LINE 903 "regression-compile-tmp/pass1.imp" PUSH LINK RESULT 905 %routine set cell(%integer g, tt) 906 ! add the cell to the grammar, combining common tails LINE 905 "regression-compile-tmp/pass1.imp" DEF SETCELL (_lev0id0_COMPILEBLOCK_GAPP_SETCELL) p1=V_010b a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF G p1=V_0114 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF TT p1=V_0115 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 907 %while p # gmax %cycle LINE 907 "regression-compile-tmp/pass1.imp" LOCATE L_0003 PUSH P PUSH GMAX JUMPIF = L_0004 908 p = p+1 LINE 908 "regression-compile-tmp/pass1.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 909 %if glink(p) = link %and gram(p) = g %start LINE 909 "regression-compile-tmp/pass1.imp" PUSH GLINK PUSH P ACCESS PUSH LINK JUMPIF # L_0007 PUSH GRAM PUSH P ACCESS PUSH G JUMPIF # L_0007 910 %if tt < 0 %or (gram(p+1) = tt %and glink(p+1)=ap) %start LINE 910 "regression-compile-tmp/pass1.imp" PUSH TT PUSHI #0x00000000 JUMPIF < L_000b PUSH GRAM PUSH P PUSHI #0x00000001 ADD ACCESS PUSH TT JUMPIF # L_000a PUSH GLINK PUSH P PUSHI #0x00000001 ADD ACCESS PUSH AP JUMPIF # L_000a LOCATE L_000b 911 link = p; ! already there LINE 911 "regression-compile-tmp/pass1.imp" PUSH LINK PUSH P ASSVAL 912 %return LINE 912 "regression-compile-tmp/pass1.imp" RETURN 913 %finish LINE 913 "regression-compile-tmp/pass1.imp" LOCATE L_000a 914 %finish LINE 914 "regression-compile-tmp/pass1.imp" LOCATE L_0007 915 %repeat 916 917 !add a new cell LINE 915 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 918 gmax = gmax+1 LINE 918 "regression-compile-tmp/pass1.imp" PUSH GMAX PUSH GMAX PUSHI #0x00000001 ADD ASSVAL 919 gram(gmax) = g LINE 919 "regression-compile-tmp/pass1.imp" PUSH GRAM PUSH GMAX ACCESS PUSH G ASSVAL 920 glink(gmax) = link LINE 920 "regression-compile-tmp/pass1.imp" PUSH GLINK PUSH GMAX ACCESS PUSH LINK ASSVAL 921 link = gmax 922 LINE 921 "regression-compile-tmp/pass1.imp" PUSH LINK PUSH GMAX ASSVAL 923 %if tt >= 0 %start; ! set type cell LINE 923 "regression-compile-tmp/pass1.imp" PUSH TT PUSHI #0x00000000 JUMPIF < L_0004 924 gmax = gmax+1 LINE 924 "regression-compile-tmp/pass1.imp" PUSH GMAX PUSH GMAX PUSHI #0x00000001 ADD ASSVAL 925 gram(gmax) = tt LINE 925 "regression-compile-tmp/pass1.imp" PUSH GRAM PUSH GMAX ACCESS PUSH TT ASSVAL 926 glink(gmax) = ap LINE 926 "regression-compile-tmp/pass1.imp" PUSH GLINK PUSH GMAX ACCESS PUSH AP ASSVAL 927 %finish LINE 927 "regression-compile-tmp/pass1.imp" LOCATE L_0004 928 p = gmax 929 LINE 928 "regression-compile-tmp/pass1.imp" PUSH P PUSH GMAX ASSVAL 930 %end 931 LINE 930 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_GAPP_SETCELL {lev=4 --> 3} 932 %routine class(%record(tagfm)%name v) LINE 932 "regression-compile-tmp/pass1.imp" DEF CLASS (_lev0id0_COMPILEBLOCK_GAPP_CLASS) p1=V_010c a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF V p1=V_0114 a/tf=42 b/format=85 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 933 %constinteger err = 89 LINE 933 "regression-compile-tmp/pass1.imp" 934 %constinteger rtp = 100 LINE 934 "regression-compile-tmp/pass1.imp" 935 %constinteger fnp = 101 LINE 935 "regression-compile-tmp/pass1.imp" 936 %constinteger mapp = 102 LINE 936 "regression-compile-tmp/pass1.imp" 937 %constinteger predp = 103 LINE 937 "regression-compile-tmp/pass1.imp" 938 %constintegerarray class map(0:15) = %c 939 err,1764, 247, err(4), -rtp, -fnp, -mapp, -predp, err, 214, 940 ! err,1764, 247, err(4), -rtp, -fnp, -mapp, -predp, err, 214, 941 err, 229, err 942 ! err, 229, err LINE 938 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x0000000f BOUNDS DEF CLASSMAP p1=V_0115 a/tf=1b b/format=1 c/ostate=112 type=1 (integer) form=11 (array) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000059 INIT 1 PUSHI #0x000006e4 INIT 1 PUSHI #0x000000f7 INIT 1 PUSHI #0x00000059 INIT 4 PUSHI #0xffffff9c INIT 1 PUSHI #0xffffff9b INIT 1 PUSHI #0xffffff9a INIT 1 PUSHI #0xffffff99 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x000000d6 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x000000e5 INIT 1 PUSHI #0x00000059 INIT 1 943 %integer tags, type, form 944 LINE 943 "regression-compile-tmp/pass1.imp" DEF TAGS p1=V_0116 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF TYPE p1=V_0117 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF FORM p1=V_0118 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 945 ap = 0 LINE 945 "regression-compile-tmp/pass1.imp" PUSH AP PUSHI #0x00000000 ASSVAL 946 tags = v_flags LINE 946 "regression-compile-tmp/pass1.imp" PUSH TAGS PUSH V SELECT 3 ASSVAL 947 type = tags>>4&7; form = tags&15 LINE 947 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSH TAGS PUSHI #0x00000004 RSH PUSHI #0x00000007 AND ASSVAL LINE 947 "regression-compile-tmp/pass1.imp" PUSH FORM PUSH TAGS PUSHI #0x0000000f AND ASSVAL 948 tp = v_format<<3!type LINE 948 "regression-compile-tmp/pass1.imp" PUSH TP PUSH V SELECT 2 PUSHI #0x00000003 LSH PUSH TYPE OR ASSVAL 949 c = class map(form) LINE 949 "regression-compile-tmp/pass1.imp" PUSH C PUSH CLASSMAP PUSH FORM ACCESS ASSVAL 950 c = 208 %and tp = 0 %if type = 0 %and form = 2; !%name LINE 950 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000000 JUMPIF # L_0004 PUSH FORM PUSHI #0x00000002 JUMPIF # L_0004 PUSH C PUSHI #0x000000d0 ASSVAL PUSH TP PUSHI #0x00000000 ASSVAL LOCATE L_0004 951 ap = v_app %if tags¶meters # 0 LINE 951 "regression-compile-tmp/pass1.imp" PUSH TAGS PUSHI #0x00001000 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH AP PUSH V SELECT 1 ASSVAL LOCATE L_0004 952 %end LINE 952 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_GAPP_CLASS {lev=4 --> 3} 953 %end 954 LINE 953 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_GAPP {lev=3 --> 2} 955 %routine delete names(%integer quiet) LINE 955 "regression-compile-tmp/pass1.imp" DEF DELETENAMES (_lev0id0_COMPILEBLOCK_DELETENAMES) p1=V_00f8 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF QUIET p1=V_010b a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=3} 956 %integer flags LINE 956 "regression-compile-tmp/pass1.imp" DEF FLAGS p1=V_010c a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 957 %record(tagfm)%name tx 958 LINE 957 "regression-compile-tmp/pass1.imp" DEF TX p1=V_010d a/tf=42 b/format=85 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 959 %while tmax > tbase %cycle LINE 959 "regression-compile-tmp/pass1.imp" LOCATE L_0003 PUSH TMAX PUSH TBASE JUMPIF <= L_0004 960 x = tmax; tmax = tmax-1 LINE 960 "regression-compile-tmp/pass1.imp" PUSH X PUSH TMAX ASSVAL LINE 960 "regression-compile-tmp/pass1.imp" PUSH TMAX PUSH TMAX PUSHI #0x00000001 SUB ASSVAL 961 tx == tag(x) LINE 961 "regression-compile-tmp/pass1.imp" PUSH TX PUSH TAG PUSH X ACCESS ASSREF 962 flags = tx_flags LINE 962 "regression-compile-tmp/pass1.imp" PUSH FLAGS PUSH TX SELECT 3 ASSVAL 963 fault(20) %if flags&spec # 0 %and flags&own bit = 0 964 !{spec with no definition & not external} LINE 963 "regression-compile-tmp/pass1.imp" PUSH FLAGS PUSHI #0x00000080 AND PUSHI #0x00000000 JUMPIF = L_0007 PUSH FLAGS PUSHI #0x00000200 AND PUSHI #0x00000000 JUMPIF # L_0007 PUSH FAULT PUSHI #0x00000014 ASSPAR CALL LOCATE L_0007 965 %if flags&used bit = 0 %and level >= 0 %and list <= 0 %start LINE 965 "regression-compile-tmp/pass1.imp" PUSH FLAGS PUSHI #0x00008000 AND PUSHI #0x00000000 JUMPIF # L_0007 PUSH LEVEL PUSHI #0x00000000 JUMPIF < L_0007 PUSH LIST PUSHI #0x00000000 JUMPIF > L_0007 966 fault(-3) %if quiet = 0; !unused LINE 966 "regression-compile-tmp/pass1.imp" PUSH QUIET PUSHI #0x00000000 JUMPIF # L_000a PUSH FAULT PUSHI #0x00000003 NEGATE ASSPAR CALL LOCATE L_000a 967 %finish LINE 967 "regression-compile-tmp/pass1.imp" LOCATE L_0007 968 dict(tx_text) = tx_link LINE 968 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH TX SELECT 5 ACCESS PUSH TX SELECT 6 ASSVAL 969 %repeat LINE 969 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 970 %end 971 LINE 970 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_DELETENAMES {lev=3 --> 2} 972 %routine analyse LINE 972 "regression-compile-tmp/pass1.imp" DEF ANALYSE (_lev0id0_COMPILEBLOCK_ANALYSE) p1=V_00f9 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} FINISH ) {lev=3} 973 %constinteger order bits = 16_3000, order bit = 16_1000 LINE 973 "regression-compile-tmp/pass1.imp" 974 %constinteger escape = 16_1000 LINE 974 "regression-compile-tmp/pass1.imp" 975 %integer strp, mark, flags, prot err, k, s, c LINE 975 "regression-compile-tmp/pass1.imp" DEF STRP p1=V_010b a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF MARK p1=V_010c a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF FLAGS p1=V_010d a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF PROTERR p1=V_010e a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF K p1=V_010f a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF S p1=V_0110 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF C p1=V_0111 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 976 %owninteger key = 0 LINE 976 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF KEY p1=V_0112 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 977 %integer node LINE 977 "regression-compile-tmp/pass1.imp" DEF NODE p1=V_0113 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 978 %integername z LINE 978 "regression-compile-tmp/pass1.imp" DEF Z p1=V_0114 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 979 %record(arfm)%name arp LINE 979 "regression-compile-tmp/pass1.imp" DEF ARP p1=V_0115 a/tf=42 b/format=84 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 980 %switch act(actions:phrasal), paction(0:15) 981 LINE 980 "regression-compile-tmp/pass1.imp" PUSHI #0x000000b4 PUSHI #0x000000c8 BOUNDS DEF ACT p1=V_0116 a/tf=6 b/format=0 c/ostate=0 type=0 () form=6 (switch) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x00000000 PUSHI #0x0000000f BOUNDS DEF PACTION p1=V_0117 a/tf=6 b/format=0 c/ostate=0 type=0 () form=6 (switch) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 982 %routine trace analysis 983 !diagnostic trace routine (diagnose&1 # 0) LINE 982 "regression-compile-tmp/pass1.imp" DEF TRACEANALYSIS (_lev0id0_COMPILEBLOCK_ANALYSE_TRACEANALYSIS) p1=V_0118 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 984 %integer a 985 LINE 984 "regression-compile-tmp/pass1.imp" DEF A p1=V_0119 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 986 %routine show(%integer a) LINE 986 "regression-compile-tmp/pass1.imp" DEF SHOW (_lev0id0_COMPILEBLOCK_ANALYSE_TRACEANALYSIS_SHOW) p1=V_011a a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} DEF A p1=V_011b a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=5} 987 %if 0 < a %and a < 130 %start LINE 987 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSH A JUMPIF >= L_0004 PUSH A PUSHI #0x00000082 JUMPIF >= L_0004 988 space LINE 988 "regression-compile-tmp/pass1.imp" PUSH SPACE CALL 989 printstring(text(a)) LINE 989 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSH TEXT PUSH A ACCESS ASSPAR CALL 990 %finish %else write(a, 3) LINE 990 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 PUSH WRITE PUSH A ASSPAR PUSHI #0x00000003 ASSPAR CALL LOCATE L_0003 991 %end 992 LINE 991 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_ANALYSE_TRACEANALYSIS_SHOW {lev=5 --> 4} 993 %owninteger la1=0, la2=0, lsa=0, lt=0 LINE 993 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF LA1 p1=V_011b a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 PUSHI #0x00000000 DEF LA2 p1=V_011c a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 PUSHI #0x00000000 DEF LSA p1=V_011d a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 PUSHI #0x00000000 DEF LT p1=V_011e a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 994 newline %if mon pos # pos %and sym # nl LINE 994 "regression-compile-tmp/pass1.imp" PUSH MONPOS PUSH POS JUMPIF = L_0004 PUSH SYM PUSHI #0x0000000a JUMPIF = L_0004 PUSH NEWLINE CALL LOCATE L_0004 995 mon pos = pos LINE 995 "regression-compile-tmp/pass1.imp" PUSH MONPOS PUSH POS ASSVAL 996 write(g, 3) LINE 996 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH G ASSPAR PUSHI #0x00000003 ASSPAR CALL 997 space LINE 997 "regression-compile-tmp/pass1.imp" PUSH SPACE CALL 998 printstring(text(class)) LINE 998 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSH TEXT PUSH CLASS ACCESS ASSPAR CALL 999 printsymbol('"') %if gg&trans bit # 0 LINE 999 "regression-compile-tmp/pass1.imp" PUSH GG PUSHI #0x00004000 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH PRINTSYMBOL PUSHI #0x00000022 ASSPAR CALL LOCATE L_0004 1000 a = gg>>8&15 LINE 1000 "regression-compile-tmp/pass1.imp" PUSH A PUSH GG PUSHI #0x00000008 RSH PUSHI #0x0000000f AND ASSVAL 1001 %if a # 0 %start LINE 1001 "regression-compile-tmp/pass1.imp" PUSH A PUSHI #0x00000000 JUMPIF = L_0004 1002 printsymbol('{') LINE 1002 "regression-compile-tmp/pass1.imp" PUSH PRINTSYMBOL PUSHI #0x0000007b ASSPAR CALL 1003 write(a, 0) LINE 1003 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH A ASSPAR PUSHI #0x00000000 ASSPAR CALL 1004 printsymbol('}') LINE 1004 "regression-compile-tmp/pass1.imp" PUSH PRINTSYMBOL PUSHI #0x0000007d ASSPAR CALL 1005 %finish LINE 1005 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1006 %if atom1 # la1 %or atom2 # la2 %or lsa # subatom %or lt # type %start LINE 1006 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSH LA1 JUMPIF # L_0005 PUSH ATOM2 PUSH LA2 JUMPIF # L_0005 PUSH LSA PUSH SUBATOM JUMPIF # L_0005 PUSH LT PUSH TYPE JUMPIF = L_0004 LOCATE L_0005 1007 printstring(" [") LINE 1007 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " [" ASSPAR CALL 1008 la1 = atom1 LINE 1008 "regression-compile-tmp/pass1.imp" PUSH LA1 PUSH ATOM1 ASSVAL 1009 show(la1) LINE 1009 "regression-compile-tmp/pass1.imp" PUSH SHOW PUSH LA1 ASSPAR CALL 1010 la2 = atom2 LINE 1010 "regression-compile-tmp/pass1.imp" PUSH LA2 PUSH ATOM2 ASSVAL 1011 show(la2) LINE 1011 "regression-compile-tmp/pass1.imp" PUSH SHOW PUSH LA2 ASSPAR CALL 1012 lsa = subatom LINE 1012 "regression-compile-tmp/pass1.imp" PUSH LSA PUSH SUBATOM ASSVAL 1013 write(lsa, 3) LINE 1013 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH LSA ASSPAR PUSHI #0x00000003 ASSPAR CALL 1014 lt = type LINE 1014 "regression-compile-tmp/pass1.imp" PUSH LT PUSH TYPE ASSVAL 1015 write(lt, 5) LINE 1015 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH LT ASSPAR PUSHI #0x00000005 ASSPAR CALL 1016 printsymbol(']') LINE 1016 "regression-compile-tmp/pass1.imp" PUSH PRINTSYMBOL PUSHI #0x0000005d ASSPAR CALL 1017 %finish LINE 1017 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1018 newline LINE 1018 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 1019 %end 1020 LINE 1019 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_ANALYSE_TRACEANALYSIS {lev=4 --> 3} 1021 %routine get sym LINE 1021 "regression-compile-tmp/pass1.imp" DEF GETSYM (_lev0id0_COMPILEBLOCK_ANALYSE_GETSYM) p1=V_0119 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 1022 readsymbol(sym) LINE 1022 "regression-compile-tmp/pass1.imp" PUSH READSYMBOL PUSH SYM ASSPAR CALL 1023 abandon(5) %if sym < 0 LINE 1023 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000000 JUMPIF >= L_0004 PUSH ABANDON PUSHI #0x00000005 ASSPAR CALL LOCATE L_0004 1024 pos = pos+1 %if pos # 133 LINE 1024 "regression-compile-tmp/pass1.imp" PUSH POS PUSHI #0x00000085 JUMPIF = L_0004 PUSH POS PUSH POS PUSHI #0x00000001 ADD ASSVAL LOCATE L_0004 1025 char(pos) = sym LINE 1025 "regression-compile-tmp/pass1.imp" PUSH CHAR PUSH POS ACCESS PUSH SYM ASSVAL 1026 printsymbol(sym) %if list <= 0 LINE 1026 "regression-compile-tmp/pass1.imp" PUSH LIST PUSHI #0x00000000 JUMPIF > L_0004 PUSH PRINTSYMBOL PUSH SYM ASSPAR CALL LOCATE L_0004 1027 column = column+1 LINE 1027 "regression-compile-tmp/pass1.imp" PUSH COLUMN PUSH COLUMN PUSHI #0x00000001 ADD ASSVAL 1028 %end 1029 LINE 1028 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_ANALYSE_GETSYM {lev=4 --> 3} 1030 %routine read sym LINE 1030 "regression-compile-tmp/pass1.imp" DEF READSYM (_lev0id0_COMPILEBLOCK_ANALYSE_READSYM) p1=V_011a a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 1031 %owninteger Last = 0 LINE 1031 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF LAST p1=V_011b a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 1032 %constbyteintegerarray mapped(0:127) = %c 1033 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 0, 3, 0, 0, 0, 1034 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1035 0,'!','"','#', '$', 1,'&', 39, '(',')','*','+', ',','-','.','/', 1036 '0','1','2','3', '4','5','6','7', '8','9',':',';', '<','=','>','?', 1037 '@','A','B','C', 'D','E','F','G', 'H','I','J','K', 'L','M','N','O', 1038 'P','Q','R','S', 'T','U','V','W', 'X','Y','Z','[', '\',']','^','_', 1039 '`','A','B','C', 'D','E','F','G', 'H','I','J','K', 'L','M','N','O', 1040 'P','Q','R','S', 'T','U','V','W', 'X','Y','Z', 2 , '|','}','~', 0 1041 1042 !! 0 = space 1043 !! 1 = % 1044 !! 2 = { 1045 !! 3 = ff 1046 !! other values represent themselves 1047 LINE 1032 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x0000007f BOUNDS DEF MAPPED p1=V_011c a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000021 INIT 1 PUSHI #0x00000022 INIT 1 PUSHI #0x00000023 INIT 1 PUSHI #0x00000024 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000026 INIT 1 PUSHI #0x00000027 INIT 1 PUSHI #0x00000028 INIT 1 PUSHI #0x00000029 INIT 1 PUSHI #0x0000002a INIT 1 PUSHI #0x0000002b INIT 1 PUSHI #0x0000002c INIT 1 PUSHI #0x0000002d INIT 1 PUSHI #0x0000002e INIT 1 PUSHI #0x0000002f INIT 1 PUSHI #0x00000030 INIT 1 PUSHI #0x00000031 INIT 1 PUSHI #0x00000032 INIT 1 PUSHI #0x00000033 INIT 1 PUSHI #0x00000034 INIT 1 PUSHI #0x00000035 INIT 1 PUSHI #0x00000036 INIT 1 PUSHI #0x00000037 INIT 1 PUSHI #0x00000038 INIT 1 PUSHI #0x00000039 INIT 1 PUSHI #0x0000003a INIT 1 PUSHI #0x0000003b INIT 1 PUSHI #0x0000003c INIT 1 PUSHI #0x0000003d INIT 1 PUSHI #0x0000003e INIT 1 PUSHI #0x0000003f INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000042 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000046 INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004a INIT 1 PUSHI #0x0000004b INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000051 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000055 INIT 1 PUSHI #0x00000056 INIT 1 PUSHI #0x00000057 INIT 1 PUSHI #0x00000058 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x0000005b INIT 1 PUSHI #0x0000005c INIT 1 PUSHI #0x0000005d INIT 1 PUSHI #0x0000005e INIT 1 PUSHI #0x0000005f INIT 1 PUSHI #0x00000060 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000042 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000046 INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004a INIT 1 PUSHI #0x0000004b INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000051 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000055 INIT 1 PUSHI #0x00000056 INIT 1 PUSHI #0x00000057 INIT 1 PUSHI #0x00000058 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x0000007c INIT 1 PUSHI #0x0000007d INIT 1 PUSHI #0x0000007e INIT 1 PUSHI #0x00000000 INIT 1 1048 %if sym = nl %start LINE 1048 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000000a JUMPIF # L_0004 1049 s1: lines = lines+1 LINE 1049 "regression-compile-tmp/pass1.imp" LABEL L_011d LINE 1049 "regression-compile-tmp/pass1.imp" PUSH LINES PUSH LINES PUSHI #0x00000001 ADD ASSVAL 1050 printsymbol(end mark) %if end mark # 0 LINE 1050 "regression-compile-tmp/pass1.imp" PUSH ENDMARK PUSHI #0x00000000 JUMPIF = L_0007 PUSH PRINTSYMBOL PUSH ENDMARK ASSPAR CALL LOCATE L_0007 1051 s11: pos = 0; pos1 = 0; pos2 = 0; margin = 0; column = 0 LINE 1051 "regression-compile-tmp/pass1.imp" LABEL L_011e LINE 1051 "regression-compile-tmp/pass1.imp" PUSH POS PUSHI #0x00000000 ASSVAL LINE 1051 "regression-compile-tmp/pass1.imp" PUSH POS1 PUSHI #0x00000000 ASSVAL LINE 1051 "regression-compile-tmp/pass1.imp" PUSH POS2 PUSHI #0x00000000 ASSVAL LINE 1051 "regression-compile-tmp/pass1.imp" PUSH MARGIN PUSHI #0x00000000 ASSVAL LINE 1051 "regression-compile-tmp/pass1.imp" PUSH COLUMN PUSHI #0x00000000 ASSVAL 1052 Last = 0 LINE 1052 "regression-compile-tmp/pass1.imp" PUSH LAST PUSHI #0x00000000 ASSVAL 1053 end mark = 0 LINE 1053 "regression-compile-tmp/pass1.imp" PUSH ENDMARK PUSHI #0x00000000 ASSVAL 1054 %if list <= 0 %start LINE 1054 "regression-compile-tmp/pass1.imp" PUSH LIST PUSHI #0x00000000 JUMPIF > L_0007 1055 %if include # 0 %start LINE 1055 "regression-compile-tmp/pass1.imp" PUSH INCLUDE PUSHI #0x00000000 JUMPIF = L_000a 1056 printstring(" &"); write(lines, -4) LINE 1056 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " &" ASSPAR CALL LINE 1056 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH LINES ASSPAR PUSHI #0x00000004 NEGATE ASSPAR CALL 1057 %finish %else write(lines, 5) LINE 1057 "regression-compile-tmp/pass1.imp" GOTO L_0009 LOCATE L_000a PUSH WRITE PUSH LINES ASSPAR PUSHI #0x00000005 ASSPAR CALL LOCATE L_0009 1058 csym = cont; printsymbol(csym) LINE 1058 "regression-compile-tmp/pass1.imp" PUSH CSYM PUSH CONT ASSVAL LINE 1058 "regression-compile-tmp/pass1.imp" PUSH PRINTSYMBOL PUSH CSYM ASSPAR CALL 1059 space LINE 1059 "regression-compile-tmp/pass1.imp" PUSH SPACE CALL 1060 %if error margin # 0 %start LINE 1060 "regression-compile-tmp/pass1.imp" PUSH ERRORMARGIN PUSHI #0x00000000 JUMPIF = L_000a 1061 lines = lines-1 LINE 1061 "regression-compile-tmp/pass1.imp" PUSH LINES PUSH LINES PUSHI #0x00000001 SUB ASSVAL 1062 spaces(error margin) LINE 1062 "regression-compile-tmp/pass1.imp" PUSH SPACES PUSH ERRORMARGIN ASSPAR CALL 1063 error margin = 0 LINE 1063 "regression-compile-tmp/pass1.imp" PUSH ERRORMARGIN PUSHI #0x00000000 ASSVAL 1064 %if error sym # 0 %start LINE 1064 "regression-compile-tmp/pass1.imp" PUSH ERRORSYM PUSHI #0x00000000 JUMPIF = L_000d 1065 printsymbol(error sym) LINE 1065 "regression-compile-tmp/pass1.imp" PUSH PRINTSYMBOL PUSH ERRORSYM ASSPAR CALL 1066 pos = 1; char(1) = error sym LINE 1066 "regression-compile-tmp/pass1.imp" PUSH POS PUSHI #0x00000001 ASSVAL LINE 1066 "regression-compile-tmp/pass1.imp" PUSH CHAR PUSHI #0x00000001 ACCESS PUSH ERRORSYM ASSVAL 1067 sym = error sym; error sym = 0 LINE 1067 "regression-compile-tmp/pass1.imp" PUSH SYM PUSH ERRORSYM ASSVAL LINE 1067 "regression-compile-tmp/pass1.imp" PUSH ERRORSYM PUSHI #0x00000000 ASSVAL 1068 ->s5 LINE 1068 "regression-compile-tmp/pass1.imp" JUMP L_011f 1069 %finish LINE 1069 "regression-compile-tmp/pass1.imp" LOCATE L_000d 1070 %finish LINE 1070 "regression-compile-tmp/pass1.imp" LOCATE L_000a 1071 %finish LINE 1071 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1072 s2: symtype = 1 LINE 1072 "regression-compile-tmp/pass1.imp" LABEL L_0120 LINE 1072 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000001 ASSVAL 1073 %finish LINE 1073 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1074 s3: readsymbol(sym) LINE 1074 "regression-compile-tmp/pass1.imp" LABEL L_0121 LINE 1074 "regression-compile-tmp/pass1.imp" PUSH READSYMBOL PUSH SYM ASSPAR CALL 1075 abandon(5) %if sym < 0 LINE 1075 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000000 JUMPIF >= L_0004 PUSH ABANDON PUSHI #0x00000005 ASSPAR CALL LOCATE L_0004 1076 pos = pos+1 %if pos # 133 LINE 1076 "regression-compile-tmp/pass1.imp" PUSH POS PUSHI #0x00000085 JUMPIF = L_0004 PUSH POS PUSH POS PUSHI #0x00000001 ADD ASSVAL LOCATE L_0004 1077 char(pos) = sym LINE 1077 "regression-compile-tmp/pass1.imp" PUSH CHAR PUSH POS ACCESS PUSH SYM ASSVAL 1078 printsymbol(sym) %if list <= 0 LINE 1078 "regression-compile-tmp/pass1.imp" PUSH LIST PUSHI #0x00000000 JUMPIF > L_0004 PUSH PRINTSYMBOL PUSH SYM ASSPAR CALL LOCATE L_0004 1079 column = column+1 LINE 1079 "regression-compile-tmp/pass1.imp" PUSH COLUMN PUSH COLUMN PUSHI #0x00000001 ADD ASSVAL 1080 s5: %if sym # nl %start LINE 1080 "regression-compile-tmp/pass1.imp" LABEL L_011f LINE 1080 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000000a JUMPIF = L_0004 1081 Last = Sym LINE 1081 "regression-compile-tmp/pass1.imp" PUSH LAST PUSH SYM ASSVAL 1082 %return %if quote # 0; !dont alter strings LINE 1082 "regression-compile-tmp/pass1.imp" PUSH QUOTE PUSHI #0x00000000 JUMPIF = L_0007 RETURN LOCATE L_0007 1083 sym = mapped(sym&127) LINE 1083 "regression-compile-tmp/pass1.imp" PUSH SYM PUSH MAPPED PUSH SYM PUSHI #0x0000007f AND ACCESS ASSVAL 1084 %if sym <= 3 %start; !special symbol LINE 1084 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000003 JUMPIF > L_0007 1085 ->s2 %if sym = 0; !space (or dubious control) LINE 1085 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000000 JUMPIF # L_000a JUMP L_0120 LOCATE L_000a 1086 symtype = 2 %and ->s3 %if sym = 1; !% LINE 1086 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000001 JUMPIF # L_000a PUSH SYMTYPE PUSHI #0x00000002 ASSVAL JUMP L_0121 LOCATE L_000a 1087 cont = '+' %and ->s11 %if sym = 3; !ff 1088 !must be { LINE 1087 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000003 JUMPIF # L_000a PUSH CONT PUSHI #0x0000002b ASSVAL JUMP L_011e LOCATE L_000a 1089 %cycle LINE 1089 "regression-compile-tmp/pass1.imp" LOCATE L_0009 1090 get sym LINE 1090 "regression-compile-tmp/pass1.imp" PUSH GETSYM CALL 1091 ->s3 %if sym = '}' LINE 1091 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000007d JUMPIF # L_000d JUMP L_0121 LOCATE L_000d 1092 ->s4 %if sym = nl LINE 1092 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000000a JUMPIF # L_000d JUMP L_0122 LOCATE L_000d 1093 %repeat LINE 1093 "regression-compile-tmp/pass1.imp" REPEAT L_0009 1094 %finish LINE 1094 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1095 key = kdict(sym) LINE 1095 "regression-compile-tmp/pass1.imp" PUSH KEY PUSH KDICT PUSH SYM ACCESS ASSVAL 1096 %if key&3 = 0 %and symtype = 2 %start; !keyword LINE 1096 "regression-compile-tmp/pass1.imp" PUSH KEY PUSHI #0x00000003 AND PUSHI #0x00000000 JUMPIF # L_0007 PUSH SYMTYPE PUSHI #0x00000002 JUMPIF # L_0007 1097 %if sym = 'C' %and nextsymbol = nl %start; !%c... LINE 1097 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000043 JUMPIF # L_000a PUSH NEXTSYMBOL CALL PUSHI #0x0000000a JUMPIF # L_000a 1098 getsym; cont = '+'; ->s1 LINE 1098 "regression-compile-tmp/pass1.imp" PUSH GETSYM CALL LINE 1098 "regression-compile-tmp/pass1.imp" PUSH CONT PUSHI #0x0000002b ASSVAL LINE 1098 "regression-compile-tmp/pass1.imp" JUMP L_011d 1099 %finish LINE 1099 "regression-compile-tmp/pass1.imp" LOCATE L_000a 1100 %else LINE 1100 "regression-compile-tmp/pass1.imp" GOTO L_0006 LOCATE L_0007 1101 symtype = key&3-2 LINE 1101 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSH KEY PUSHI #0x00000003 AND PUSHI #0x00000002 SUB ASSVAL 1102 %finish LINE 1102 "regression-compile-tmp/pass1.imp" LOCATE L_0006 1103 %return LINE 1103 "regression-compile-tmp/pass1.imp" RETURN 1104 %finish LINE 1104 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1105 s4: symtype = quote LINE 1105 "regression-compile-tmp/pass1.imp" LABEL L_0122 LINE 1105 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSH QUOTE ASSVAL 1106 ->S1 %if last = 0 %and Quote = 0 LINE 1106 "regression-compile-tmp/pass1.imp" PUSH LAST PUSHI #0x00000000 JUMPIF # L_0004 PUSH QUOTE PUSHI #0x00000000 JUMPIF # L_0004 JUMP L_011d LOCATE L_0004 1107 Cont = '+' LINE 1107 "regression-compile-tmp/pass1.imp" PUSH CONT PUSHI #0x0000002b ASSVAL 1108 %end 1109 LINE 1108 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_ANALYSE_READSYM {lev=4 --> 3} 1110 %integerfn format selected LINE 1110 "regression-compile-tmp/pass1.imp" DEF FORMATSELECTED (_lev0id0_COMPILEBLOCK_ANALYSE_FORMATSELECTED) p1=V_011b a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 1111 format list = tag(format)_app; !number of names LINE 1111 "regression-compile-tmp/pass1.imp" PUSH FORMATLIST PUSH TAG PUSH FORMAT ACCESS SELECT 1 ASSVAL 1112 %if format list < 0 %start; !forward ref LINE 1112 "regression-compile-tmp/pass1.imp" PUSH FORMATLIST PUSHI #0x00000000 JUMPIF >= L_0004 1113 atom1 = error+22 LINE 1113 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00008000 PUSHI #0x00000016 ADD ASSVAL 1114 %result = 0 LINE 1114 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 RESULT 1115 %finish LINE 1115 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1116 %if sym = '_' %start LINE 1116 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000005f JUMPIF # L_0004 1117 escape class = esc rec LINE 1117 "regression-compile-tmp/pass1.imp" PUSH ESCAPECLASS PUSHI #0x000000ff ASSVAL 1118 search base = tag(format)_format LINE 1118 "regression-compile-tmp/pass1.imp" PUSH SEARCHBASE PUSH TAG PUSH FORMAT ACCESS SELECT 2 ASSVAL 1119 %finish LINE 1119 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1120 %result = 1 LINE 1120 "regression-compile-tmp/pass1.imp" PUSHI #0x00000001 RESULT 1121 %end 1122 LINE 1121 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_ANALYSE_FORMATSELECTED {lev=4 --> 3} 1123 %routine code atom(%integer target) LINE 1123 "regression-compile-tmp/pass1.imp" DEF CODEATOM (_lev0id0_COMPILEBLOCK_ANALYSE_CODEATOM) p1=V_011c a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF TARGET p1=V_011d a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 1124 %integer dbase, da LINE 1124 "regression-compile-tmp/pass1.imp" DEF DBASE p1=V_011e a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF DA p1=V_011f a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1125 %integer base, n, mul, pend quote LINE 1125 "regression-compile-tmp/pass1.imp" DEF BASE p1=V_0120 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF N p1=V_0121 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF MUL p1=V_0122 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF PENDQUOTE p1=V_0123 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1126 %integer j,k,l, pt 1127 LINE 1126 "regression-compile-tmp/pass1.imp" DEF J p1=V_0124 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF K p1=V_0125 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF L p1=V_0126 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF PT p1=V_0127 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1128 %routine lookup(%integer d) LINE 1128 "regression-compile-tmp/pass1.imp" DEF LOOKUP (_lev0id0_COMPILEBLOCK_ANALYSE_CODEATOM_LOOKUP) p1=V_0128 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} DEF D p1=V_0129 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=5} 1129 %integer new name, vid, k1, k2, form LINE 1129 "regression-compile-tmp/pass1.imp" DEF NEWNAME p1=V_012a a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF VID p1=V_012b a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF K1 p1=V_012c a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF K2 p1=V_012d a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF FORM p1=V_012e a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1130 %record(tagfm)%name t LINE 1130 "regression-compile-tmp/pass1.imp" DEF T p1=V_012f a/tf=42 b/format=85 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1131 %integer new 1132 1133 ! twee little function because SKIMP86 can't do string compare properly 1134 ! returns 1 if the two names are the same, else zero LINE 1131 "regression-compile-tmp/pass1.imp" DEF NEW p1=V_0130 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1135 %integerfn dict match(%integer ptr1, ptr2) LINE 1135 "regression-compile-tmp/pass1.imp" DEF DICTMATCH (_lev0id0_COMPILEBLOCK_ANALYSE_CODEATOM_LOOKUP_DICTMATCH) p1=V_0131 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=6 --> 7, nested=0 --> 1} DEF PTR1 p1=V_0132 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF PTR2 p1=V_0133 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=6} 1136 %integer len; 1137 ! start with a cheap check of the length and first character LINE 1136 "regression-compile-tmp/pass1.imp" DEF LEN p1=V_0134 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1138 %if dict(ptr1) # dict(ptr2) %then %result = 0 LINE 1138 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH PTR1 ACCESS PUSH DICT PUSH PTR2 ACCESS JUMPIF = L_0004 PUSHI #0x00000000 RESULT LOCATE L_0004 1139 len = dict(ptr1) & 255 LINE 1139 "regression-compile-tmp/pass1.imp" PUSH LEN PUSH DICT PUSH PTR1 ACCESS PUSHI #0x000000ff AND ASSVAL 1140 ptr1 = ptr1 + 1 LINE 1140 "regression-compile-tmp/pass1.imp" PUSH PTR1 PUSH PTR1 PUSHI #0x00000001 ADD ASSVAL 1141 ptr2 = ptr2 + 1 LINE 1141 "regression-compile-tmp/pass1.imp" PUSH PTR2 PUSH PTR2 PUSHI #0x00000001 ADD ASSVAL 1142 len = len - 1 LINE 1142 "regression-compile-tmp/pass1.imp" PUSH LEN PUSH LEN PUSHI #0x00000001 SUB ASSVAL 1143 %while len >= 2 %cycle LINE 1143 "regression-compile-tmp/pass1.imp" LOCATE L_0003 PUSH LEN PUSHI #0x00000002 JUMPIF < L_0004 1144 %if dict(ptr1) # dict(ptr2) %then %result = 0 LINE 1144 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH PTR1 ACCESS PUSH DICT PUSH PTR2 ACCESS JUMPIF = L_0007 PUSHI #0x00000000 RESULT LOCATE L_0007 1145 ptr1 = ptr1 + 1 LINE 1145 "regression-compile-tmp/pass1.imp" PUSH PTR1 PUSH PTR1 PUSHI #0x00000001 ADD ASSVAL 1146 ptr2 = ptr2 + 1 LINE 1146 "regression-compile-tmp/pass1.imp" PUSH PTR2 PUSH PTR2 PUSHI #0x00000001 ADD ASSVAL 1147 len = len - 2 LINE 1147 "regression-compile-tmp/pass1.imp" PUSH LEN PUSH LEN PUSHI #0x00000002 SUB ASSVAL 1148 %repeat 1149 ! if the string was odd length, we might need one last byte checked LINE 1148 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 1150 %if len = 1 %start LINE 1150 "regression-compile-tmp/pass1.imp" PUSH LEN PUSHI #0x00000001 JUMPIF # L_0004 1151 %if dict(ptr1)&255 # dict(ptr2)&255 %then %result = 0 LINE 1151 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH PTR1 ACCESS PUSHI #0x000000ff AND PUSH DICT PUSH PTR2 ACCESS PUSHI #0x000000ff AND JUMPIF = L_0007 PUSHI #0x00000000 RESULT LOCATE L_0007 1152 %finish LINE 1152 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1153 %result = 1 LINE 1153 "regression-compile-tmp/pass1.imp" PUSHI #0x00000001 RESULT 1154 %end 1155 1156 !first locate the text of the name LINE 1154 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_ANALYSE_CODEATOM_LOOKUP_DICTMATCH {lev=6 --> 5} 1157 new = dmax+1; ! points to text of string in dictionary LINE 1157 "regression-compile-tmp/pass1.imp" PUSH NEW PUSH DMAX PUSHI #0x00000001 ADD ASSVAL 1158 k1 = hash value & max names; ! rather crude hash! 1159 LINE 1158 "regression-compile-tmp/pass1.imp" PUSH K1 PUSH HASHVALUE PUSHI #0x000007ff AND ASSVAL 1160 %cycle LINE 1160 "regression-compile-tmp/pass1.imp" LOCATE L_0003 1161 newname = hash(k1) LINE 1161 "regression-compile-tmp/pass1.imp" PUSH NEWNAME PUSH HASH PUSH K1 ACCESS ASSVAL 1162 %exit %if newname = 0; !not in LINE 1162 "regression-compile-tmp/pass1.imp" PUSH NEWNAME PUSHI #0x00000000 JUMPIF # L_0007 GOTO L_0004 LOCATE L_0007 1163 ->in %if dict match(newname+1, new) = 1 LINE 1163 "regression-compile-tmp/pass1.imp" PUSH DICTMATCH PUSH NEWNAME PUSHI #0x00000001 ADD ASSPAR PUSH NEW ASSPAR CALL PUSHI #0x00000001 JUMPIF # L_0007 JUMP L_0132 LOCATE L_0007 1164 k1 = (k1+1)&max names LINE 1164 "regression-compile-tmp/pass1.imp" PUSH K1 PUSH K1 PUSHI #0x00000001 ADD PUSHI #0x000007ff AND ASSVAL 1165 %repeat 1166 1167 ! not found LINE 1165 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 1168 spare names = spare names-1 LINE 1168 "regression-compile-tmp/pass1.imp" PUSH SPARENAMES PUSH SPARENAMES PUSHI #0x00000001 SUB ASSVAL 1169 abandon(2) %if spare names <= 0 LINE 1169 "regression-compile-tmp/pass1.imp" PUSH SPARENAMES PUSHI #0x00000000 JUMPIF > L_0004 PUSH ABANDON PUSHI #0x00000002 ASSPAR CALL LOCATE L_0004 1170 hash(k1) = dmax; !put it in LINE 1170 "regression-compile-tmp/pass1.imp" PUSH HASH PUSH K1 ACCESS PUSH DMAX ASSVAL 1171 dict(dmax) = -1 LINE 1171 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH DMAX ACCESS PUSHI #0x00000001 NEGATE ASSVAL 1172 newname = dmax; dmax = dp; ->not in 1173 LINE 1172 "regression-compile-tmp/pass1.imp" PUSH NEWNAME PUSH DMAX ASSVAL LINE 1172 "regression-compile-tmp/pass1.imp" PUSH DMAX PUSH DP ASSVAL LINE 1172 "regression-compile-tmp/pass1.imp" JUMP L_0133 1174 in: search base = rbase %if this >= 0 %and d # 0; !record elem defn LINE 1174 "regression-compile-tmp/pass1.imp" LABEL L_0132 LINE 1174 "regression-compile-tmp/pass1.imp" PUSH THIS PUSHI #0x00000000 JUMPIF < L_0004 PUSH D PUSHI #0x00000000 JUMPIF = L_0004 PUSH SEARCHBASE PUSH RBASE ASSVAL LOCATE L_0004 1175 %if search base # 0 %start; !record subname LINE 1175 "regression-compile-tmp/pass1.imp" PUSH SEARCHBASE PUSHI #0x00000000 JUMPIF = L_0004 1176 new = -1 LINE 1176 "regression-compile-tmp/pass1.imp" PUSH NEW PUSHI #0x00000001 NEGATE ASSVAL 1177 x = search base LINE 1177 "regression-compile-tmp/pass1.imp" PUSH X PUSH SEARCHBASE ASSVAL 1178 %cycle LINE 1178 "regression-compile-tmp/pass1.imp" LOCATE L_0006 1179 ->not in %if x < format list LINE 1179 "regression-compile-tmp/pass1.imp" PUSH X PUSH FORMATLIST JUMPIF >= L_000a JUMP L_0133 LOCATE L_000a 1180 %exit %if tag(x)_text = new name LINE 1180 "regression-compile-tmp/pass1.imp" PUSH TAG PUSH X ACCESS SELECT 5 PUSH NEWNAME JUMPIF # L_000a GOTO L_0007 LOCATE L_000a 1181 x = x-1 LINE 1181 "regression-compile-tmp/pass1.imp" PUSH X PUSH X PUSHI #0x00000001 SUB ASSVAL 1182 %repeat LINE 1182 "regression-compile-tmp/pass1.imp" REPEAT L_0006 LOCATE L_0007 1183 %finish %else %start; !hash in for normal names LINE 1183 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 1184 x = dict(newname) LINE 1184 "regression-compile-tmp/pass1.imp" PUSH X PUSH DICT PUSH NEWNAME ACCESS ASSVAL 1185 ->not in %if x <= limit; !wrong level LINE 1185 "regression-compile-tmp/pass1.imp" PUSH X PUSH LIMIT JUMPIF > L_0007 JUMP L_0133 LOCATE L_0007 1186 %finish 1187 LINE 1186 "regression-compile-tmp/pass1.imp" LOCATE L_0003 1188 subatom = x; !name found, extract info LINE 1188 "regression-compile-tmp/pass1.imp" PUSH SUBATOM PUSH X ASSVAL 1189 t == tag(x) LINE 1189 "regression-compile-tmp/pass1.imp" PUSH T PUSH TAG PUSH X ACCESS ASSREF 1190 atom flags = t_flags LINE 1190 "regression-compile-tmp/pass1.imp" PUSH ATOMFLAGS PUSH T SELECT 3 ASSVAL 1191 format = t_format; app = t_app LINE 1191 "regression-compile-tmp/pass1.imp" PUSH FORMAT PUSH T SELECT 2 ASSVAL LINE 1191 "regression-compile-tmp/pass1.imp" PUSH APP PUSH T SELECT 1 ASSVAL 1192 protection = atom flags&prot LINE 1192 "regression-compile-tmp/pass1.imp" PUSH PROTECTION PUSH ATOMFLAGS PUSHI #0x00000100 AND ASSVAL 1193 type = atom flags>>4&7; atom1 = amap(atom flags&15) 1194 LINE 1193 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSH ATOMFLAGS PUSHI #0x00000004 RSH PUSHI #0x00000007 AND ASSVAL LINE 1193 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSH AMAP PUSH ATOMFLAGS PUSHI #0x0000000f AND ACCESS ASSVAL 1195 %if diag&8 # 0 %start LINE 1195 "regression-compile-tmp/pass1.imp" PUSH DIAG PUSHI #0x00000008 AND PUSHI #0x00000000 JUMPIF = L_0004 1196 printstring("lookup:") LINE 1196 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "lookup:" ASSPAR CALL 1197 write(atom1, 3) LINE 1197 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH ATOM1 ASSPAR PUSHI #0x00000003 ASSPAR CALL 1198 write(type, 1) LINE 1198 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH TYPE ASSPAR PUSHI #0x00000001 ASSPAR CALL 1199 write(app, 3) LINE 1199 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH APP ASSPAR PUSHI #0x00000003 ASSPAR CALL 1200 write(format, 5) LINE 1200 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH FORMAT ASSPAR PUSHI #0x00000005 ASSPAR CALL 1201 write(atom flags, 3) LINE 1201 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH ATOMFLAGS ASSPAR PUSHI #0x00000003 ASSPAR CALL 1202 newline LINE 1202 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 1203 %finish 1204 LINE 1203 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1205 %if d = 0 %start; !old name wanted LINE 1205 "regression-compile-tmp/pass1.imp" PUSH D PUSHI #0x00000000 JUMPIF # L_0004 1206 t_flags = t_flags!used bit LINE 1206 "regression-compile-tmp/pass1.imp" PUSH T SELECT 3 PUSH T SELECT 3 PUSHI #0x00008000 OR ASSVAL 1207 search base = 0 1208 LINE 1207 "regression-compile-tmp/pass1.imp" PUSH SEARCHBASE PUSHI #0x00000000 ASSVAL 1209 %if atom flags&subname # 0 %and format # 0 %start; !a record LINE 1209 "regression-compile-tmp/pass1.imp" PUSH ATOMFLAGS PUSHI #0x00000800 AND PUSHI #0x00000000 JUMPIF = L_0007 PUSH FORMAT PUSHI #0x00000000 JUMPIF = L_0007 1210 %return %if format selected = 0 LINE 1210 "regression-compile-tmp/pass1.imp" PUSH FORMATSELECTED CALL PUSHI #0x00000000 JUMPIF # L_000a RETURN LOCATE L_000a 1211 %finish 1212 LINE 1211 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1213 %if atom flags¶meters # 0 %start; !proc or array LINE 1213 "regression-compile-tmp/pass1.imp" PUSH ATOMFLAGS PUSHI #0x00001000 AND PUSHI #0x00000000 JUMPIF = L_0007 1214 %if app = 0 %start; !no parameters needed LINE 1214 "regression-compile-tmp/pass1.imp" PUSH APP PUSHI #0x00000000 JUMPIF # L_000a 1215 atom2 = atom1 LINE 1215 "regression-compile-tmp/pass1.imp" PUSH ATOM2 PUSH ATOM1 ASSVAL 1216 atom1 = atom1-4 LINE 1216 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSH ATOM1 PUSHI #0x00000004 SUB ASSVAL 1217 %if 97 <= atom1 %and atom1 <= 98 %start LINE 1217 "regression-compile-tmp/pass1.imp" PUSHI #0x00000061 PUSH ATOM1 JUMPIF > L_000d PUSH ATOM1 PUSHI #0x00000062 JUMPIF > L_000d 1218 map gg = atom1; atom1 = var LINE 1218 "regression-compile-tmp/pass1.imp" PUSH MAPGG PUSH ATOM1 ASSVAL LINE 1218 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x0000005b ASSVAL 1219 %finish LINE 1219 "regression-compile-tmp/pass1.imp" LOCATE L_000d 1220 %finish %else %start LINE 1220 "regression-compile-tmp/pass1.imp" GOTO L_0009 LOCATE L_000a 1221 %if sym = '(' %start LINE 1221 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000028 JUMPIF # L_000d 1222 search base = 0; !ignore format for now LINE 1222 "regression-compile-tmp/pass1.imp" PUSH SEARCHBASE PUSHI #0x00000000 ASSVAL 1223 %if atom1 >= 106 %start; !arrays LINE 1223 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x0000006a JUMPIF < L_0010 1224 app = phrase(app+200) LINE 1224 "regression-compile-tmp/pass1.imp" PUSH APP PUSH PHRASE PUSH APP PUSHI #0x000000c8 ADD ACCESS ASSVAL 1225 escape class = esc array LINE 1225 "regression-compile-tmp/pass1.imp" PUSH ESCAPECLASS PUSHI #0x000000fe ASSVAL 1226 atom1 = (atom1-106)>>1+91; !a,an->v na,nan->n LINE 1226 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSH ATOM1 PUSHI #0x0000006a SUB PUSHI #0x00000001 RSH PUSHI #0x0000005b ADD ASSVAL 1227 %finish %else %start; !procedures LINE 1227 "regression-compile-tmp/pass1.imp" GOTO L_000f LOCATE L_0010 1228 escape class = esc proc LINE 1228 "regression-compile-tmp/pass1.imp" PUSH ESCAPECLASS PUSHI #0x000000fd ASSVAL 1229 atom1 = atom1-4 LINE 1229 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSH ATOM1 PUSHI #0x00000004 SUB ASSVAL 1230 %finish LINE 1230 "regression-compile-tmp/pass1.imp" LOCATE L_000f 1231 phrase(200) = app LINE 1231 "regression-compile-tmp/pass1.imp" PUSH PHRASE PUSHI #0x000000c8 ACCESS PUSH APP ASSVAL 1232 %finish LINE 1232 "regression-compile-tmp/pass1.imp" LOCATE L_000d 1233 %finish LINE 1233 "regression-compile-tmp/pass1.imp" LOCATE L_0009 1234 pos2 = pos; %return LINE 1234 "regression-compile-tmp/pass1.imp" PUSH POS2 PUSH POS ASSVAL LINE 1234 "regression-compile-tmp/pass1.imp" RETURN 1235 %finish 1236 1237 !deal with constintegers etc LINE 1235 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1238 %if atom flags&const bit # 0 %and atom1 = var %start LINE 1238 "regression-compile-tmp/pass1.imp" PUSH ATOMFLAGS PUSHI #0x00002000 AND PUSHI #0x00000000 JUMPIF = L_0007 PUSH ATOM1 PUSHI #0x0000005b JUMPIF # L_0007 1239 map gg = const; atom2 = const LINE 1239 "regression-compile-tmp/pass1.imp" PUSH MAPGG PUSHI #0x0000005d ASSVAL LINE 1239 "regression-compile-tmp/pass1.imp" PUSH ATOM2 PUSHI #0x0000005d ASSVAL 1240 subatom = -subatom %if type = integer LINE 1240 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000001 JUMPIF # L_000a PUSH SUBATOM PUSH SUBATOM NEGATE ASSVAL LOCATE L_000a 1241 %finish LINE 1241 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1242 %return LINE 1242 "regression-compile-tmp/pass1.imp" RETURN 1243 %finish 1244 !new name wanted LINE 1243 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1245 ->not in %if tbase # tstart; !don't fault proc parm-parm LINE 1245 "regression-compile-tmp/pass1.imp" PUSH TBASE PUSH TSTART JUMPIF = L_0004 JUMP L_0133 LOCATE L_0004 1246 %if d = lab+spec+used bit %start LINE 1246 "regression-compile-tmp/pass1.imp" PUSH D PUSHI #0x00000003 PUSHI #0x00000080 ADD PUSHI #0x00008000 ADD JUMPIF # L_0004 1247 t_flags = t_flags!used bit LINE 1247 "regression-compile-tmp/pass1.imp" PUSH T SELECT 3 PUSH T SELECT 3 PUSHI #0x00008000 OR ASSVAL 1248 %return LINE 1248 "regression-compile-tmp/pass1.imp" RETURN 1249 %finish LINE 1249 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1250 %if atom flags&spec # 0 %start; !a spec has been given LINE 1250 "regression-compile-tmp/pass1.imp" PUSH ATOMFLAGS PUSHI #0x00000080 AND PUSHI #0x00000000 JUMPIF = L_0004 1251 %if d = lab %start; !define label LINE 1251 "regression-compile-tmp/pass1.imp" PUSH D PUSHI #0x00000003 JUMPIF # L_0007 1252 t_flags = t_Flags-Spec LINE 1252 "regression-compile-tmp/pass1.imp" PUSH T SELECT 3 PUSH T SELECT 3 PUSHI #0x00000080 SUB ASSVAL 1253 %return LINE 1253 "regression-compile-tmp/pass1.imp" RETURN 1254 %finish LINE 1254 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1255 %if 7 <= decl&15 %and decl&15 <= 10 %and decl&spec = 0 %start 1256 !procedure definition after spec LINE 1255 "regression-compile-tmp/pass1.imp" PUSHI #0x00000007 PUSH DECL PUSHI #0x0000000f AND JUMPIF > L_0007 PUSH DECL PUSHI #0x0000000f AND PUSHI #0x0000000a JUMPIF > L_0007 PUSH DECL PUSHI #0x00000080 AND PUSHI #0x00000000 JUMPIF # L_0007 1257 %if (decl!!atom flags)&2_1111111 = 0 %start; !correct type? LINE 1257 "regression-compile-tmp/pass1.imp" PUSH DECL PUSH ATOMFLAGS XOR PUSHI #0x0000007f AND PUSHI #0x00000000 JUMPIF # L_000a 1258 t_flags = t_flags-spec LINE 1258 "regression-compile-tmp/pass1.imp" PUSH T SELECT 3 PUSH T SELECT 3 PUSHI #0x00000080 SUB ASSVAL 1259 spec given = 1 LINE 1259 "regression-compile-tmp/pass1.imp" PUSH SPECGIVEN PUSHI #0x00000001 ASSVAL 1260 %return LINE 1260 "regression-compile-tmp/pass1.imp" RETURN 1261 %finish 1262 !note that an external procedure must be speced as a 1263 !non-external procedure. LINE 1261 "regression-compile-tmp/pass1.imp" LOCATE L_000a 1264 %finish LINE 1264 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1265 %if decl&15 = recfm %start; !recordformat LINE 1265 "regression-compile-tmp/pass1.imp" PUSH DECL PUSHI #0x0000000f AND PUSHI #0x00000004 JUMPIF # L_0007 1266 t_flags = record<<4+recfm LINE 1266 "regression-compile-tmp/pass1.imp" PUSH T SELECT 3 PUSHI #0x00000004 PUSHI #0x00000004 LSH PUSHI #0x00000004 ADD ASSVAL 1267 t_format = fdef LINE 1267 "regression-compile-tmp/pass1.imp" PUSH T SELECT 2 PUSH FDEF ASSVAL 1268 %return LINE 1268 "regression-compile-tmp/pass1.imp" RETURN 1269 %finish LINE 1269 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1270 %finish LINE 1270 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1271 %return %if last1 = jump %and atom1 = swit LINE 1271 "regression-compile-tmp/pass1.imp" PUSH LAST1 PUSHI #0x00000036 JUMPIF # L_0004 PUSH ATOM1 PUSHI #0x00000069 JUMPIF # L_0004 RETURN LOCATE L_0004 1272 copy = x %if copy = 0 LINE 1272 "regression-compile-tmp/pass1.imp" PUSH COPY PUSHI #0x00000000 JUMPIF # L_0004 PUSH COPY PUSH X ASSVAL LOCATE L_0004 1273 notin: app = 0; vid = 0 LINE 1273 "regression-compile-tmp/pass1.imp" LABEL L_0133 LINE 1273 "regression-compile-tmp/pass1.imp" PUSH APP PUSHI #0x00000000 ASSVAL LINE 1273 "regression-compile-tmp/pass1.imp" PUSH VID PUSHI #0x00000000 ASSVAL 1274 atom1 = error+2 1275 LINE 1274 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00008000 PUSHI #0x00000002 ADD ASSVAL 1276 %return %if d = 0; !old name wanted LINE 1276 "regression-compile-tmp/pass1.imp" PUSH D PUSHI #0x00000000 JUMPIF # L_0004 RETURN LOCATE L_0004 1277 type = d>>4&7; form = d&15; atom1 = amap(form) 1278 LINE 1277 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSH D PUSHI #0x00000004 RSH PUSHI #0x00000007 AND ASSVAL LINE 1277 "regression-compile-tmp/pass1.imp" PUSH FORM PUSH D PUSHI #0x0000000f AND ASSVAL LINE 1277 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSH AMAP PUSH FORM ACCESS ASSVAL 1279 %if this < 0 %start; !normal scope LINE 1279 "regression-compile-tmp/pass1.imp" PUSH THIS PUSHI #0x00000000 JUMPIF >= L_0004 1280 new = newname LINE 1280 "regression-compile-tmp/pass1.imp" PUSH NEW PUSH NEWNAME ASSVAL 1281 tmax = tmax+1; x = tmax LINE 1281 "regression-compile-tmp/pass1.imp" PUSH TMAX PUSH TMAX PUSHI #0x00000001 ADD ASSVAL LINE 1281 "regression-compile-tmp/pass1.imp" PUSH X PUSH TMAX ASSVAL 1282 %finish %else %start; !recordformat scope LINE 1282 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 1283 new = -1 LINE 1283 "regression-compile-tmp/pass1.imp" PUSH NEW PUSHI #0x00000001 NEGATE ASSVAL 1284 recid = recid-1; vid = recid LINE 1284 "regression-compile-tmp/pass1.imp" PUSH RECID PUSH RECID PUSHI #0x00000001 SUB ASSVAL LINE 1284 "regression-compile-tmp/pass1.imp" PUSH VID PUSH RECID ASSVAL 1285 tmin = tmin-1; x = tmin LINE 1285 "regression-compile-tmp/pass1.imp" PUSH TMIN PUSH TMIN PUSHI #0x00000001 SUB ASSVAL LINE 1285 "regression-compile-tmp/pass1.imp" PUSH X PUSH TMIN ASSVAL 1286 format list = tmin LINE 1286 "regression-compile-tmp/pass1.imp" PUSH FORMATLIST PUSH TMIN ASSVAL 1287 %finish 1288 LINE 1287 "regression-compile-tmp/pass1.imp" LOCATE L_0003 1289 %if 11 <= form %and form <= 14 %start; !arrays LINE 1289 "regression-compile-tmp/pass1.imp" PUSHI #0x0000000b PUSH FORM JUMPIF > L_0004 PUSH FORM PUSHI #0x0000000e JUMPIF > L_0004 1290 dim = 1 %if dim = 0; !set dim for owns LINE 1290 "regression-compile-tmp/pass1.imp" PUSH DIM PUSHI #0x00000000 JUMPIF # L_0007 PUSH DIM PUSHI #0x00000001 ASSVAL LOCATE L_0007 1291 app = dim LINE 1291 "regression-compile-tmp/pass1.imp" PUSH APP PUSH DIM ASSVAL 1292 %finish 1293 LINE 1292 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1294 d = d!used bit %if (otype > 2 %and d&spec = 0) %or perm # 0 %or Level = Include Level 1295 1296 !external definitions need not be used in the file in which 1297 !they are defined, so inhibit a useless unused warning. 1298 LINE 1294 "regression-compile-tmp/pass1.imp" PUSH OTYPE PUSHI #0x00000002 JUMPIF <= L_0006 PUSH D PUSHI #0x00000080 AND PUSHI #0x00000000 JUMPIF = L_0005 LOCATE L_0006 PUSH PERM PUSHI #0x00000000 JUMPIF # L_0005 PUSH LEVEL PUSH INCLUDELEVEL JUMPIF # L_0004 LOCATE L_0005 PUSH D PUSH D PUSHI #0x00008000 OR ASSVAL LOCATE L_0004 1299 t == tag(x) LINE 1299 "regression-compile-tmp/pass1.imp" PUSH T PUSH TAG PUSH X ACCESS ASSREF 1300 %if form = lab %start LINE 1300 "regression-compile-tmp/pass1.imp" PUSH FORM PUSHI #0x00000003 JUMPIF # L_0004 1301 id = id+1; vid = id LINE 1301 "regression-compile-tmp/pass1.imp" PUSH ID PUSH ID PUSHI #0x00000001 ADD ASSVAL LINE 1301 "regression-compile-tmp/pass1.imp" PUSH VID PUSH ID ASSVAL 1302 %finish LINE 1302 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1303 t_index = vid LINE 1303 "regression-compile-tmp/pass1.imp" PUSH T SELECT 4 PUSH VID ASSVAL 1304 t_text = new name LINE 1304 "regression-compile-tmp/pass1.imp" PUSH T SELECT 5 PUSH NEWNAME ASSVAL 1305 t_flags = d LINE 1305 "regression-compile-tmp/pass1.imp" PUSH T SELECT 3 PUSH D ASSVAL 1306 t_app = app LINE 1306 "regression-compile-tmp/pass1.imp" PUSH T SELECT 1 PUSH APP ASSVAL 1307 t_format = fdef; format = fdef LINE 1307 "regression-compile-tmp/pass1.imp" PUSH T SELECT 2 PUSH FDEF ASSVAL LINE 1307 "regression-compile-tmp/pass1.imp" PUSH FORMAT PUSH FDEF ASSVAL 1308 subatom = x 1309 LINE 1308 "regression-compile-tmp/pass1.imp" PUSH SUBATOM PUSH X ASSVAL 1310 %if new >= 0 %start; !insert into hash table LINE 1310 "regression-compile-tmp/pass1.imp" PUSH NEW PUSHI #0x00000000 JUMPIF < L_0004 1311 t_link = dict(new); dict(new) = x LINE 1311 "regression-compile-tmp/pass1.imp" PUSH T SELECT 6 PUSH DICT PUSH NEW ACCESS ASSVAL LINE 1311 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH NEW ACCESS PUSH X ASSVAL 1312 %if gmin = max grammar %start; !proc param params LINE 1312 "regression-compile-tmp/pass1.imp" PUSH GMIN PUSHI #0x000006b8 JUMPIF # L_0007 1313 tmin = tmin-1; subatom = tmin LINE 1313 "regression-compile-tmp/pass1.imp" PUSH TMIN PUSH TMIN PUSHI #0x00000001 SUB ASSVAL LINE 1313 "regression-compile-tmp/pass1.imp" PUSH SUBATOM PUSH TMIN ASSVAL 1314 tag(tmin) = t LINE 1314 "regression-compile-tmp/pass1.imp" PUSH TAG PUSH TMIN ACCESS PUSH T ASSVAL 1315 %finish LINE 1315 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1316 %finish LINE 1316 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1317 abandon(3) %if tmax >= tmin LINE 1317 "regression-compile-tmp/pass1.imp" PUSH TMAX PUSH TMIN JUMPIF < L_0004 PUSH ABANDON PUSHI #0x00000003 ASSPAR CALL LOCATE L_0004 1318 %end 1319 LINE 1318 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_ANALYSE_CODEATOM_LOOKUP {lev=5 --> 4} 1320 top: pos1 = pos LINE 1320 "regression-compile-tmp/pass1.imp" LABEL L_0129 LINE 1320 "regression-compile-tmp/pass1.imp" PUSH POS1 PUSH POS ASSVAL 1321 subatom = 0; pend quote = 0; atom flags = 0 1322 1323 !app and format must be left for assigning to papp & pformat LINE 1321 "regression-compile-tmp/pass1.imp" PUSH SUBATOM PUSHI #0x00000000 ASSVAL LINE 1321 "regression-compile-tmp/pass1.imp" PUSH PENDQUOTE PUSHI #0x00000000 ASSVAL LINE 1321 "regression-compile-tmp/pass1.imp" PUSH ATOMFLAGS PUSHI #0x00000000 ASSVAL 1324 ->name %if symtype = -2; ! letter LINE 1324 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000002 NEGATE JUMPIF # L_0004 JUMP L_012a LOCATE L_0004 1325 ->number %if symtype < 0; ! digit LINE 1325 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000000 JUMPIF >= L_0004 JUMP L_012b LOCATE L_0004 1326 %if symtype = 0 %start LINE 1326 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000000 JUMPIF # L_0004 1327 atom1 = termin; atom2 = 0 LINE 1327 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00000014 ASSVAL LINE 1327 "regression-compile-tmp/pass1.imp" PUSH ATOM2 PUSHI #0x00000000 ASSVAL 1328 %return LINE 1328 "regression-compile-tmp/pass1.imp" RETURN 1329 %finish LINE 1329 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1330 %if symtype # 2 %start; ! catch keywords here LINE 1330 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000002 JUMPIF = L_0004 1331 ->text %if quote # 0; ! completion of text LINE 1331 "regression-compile-tmp/pass1.imp" PUSH QUOTE PUSHI #0x00000000 JUMPIF = L_0007 JUMP L_012c LOCATE L_0007 1332 ->strings %if sym = squote; ! start of string LINE 1332 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000022 JUMPIF # L_0007 JUMP L_012d LOCATE L_0007 1333 ->symbols %if sym = cquote; ! start of symbol LINE 1333 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000027 JUMPIF # L_0007 JUMP L_012e LOCATE L_0007 1334 ->number %if sym = '.' %and '0' <= nextsymbol %and nextsymbol <= '9' LINE 1334 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000002e JUMPIF # L_0007 PUSHI #0x00000030 PUSH NEXTSYMBOL CALL JUMPIF > L_0007 PUSH NEXTSYMBOL CALL PUSHI #0x00000039 JUMPIF > L_0007 JUMP L_012b LOCATE L_0007 1335 %finish 1336 1337 ! locate atom in fixed dict LINE 1335 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1338 k = key>>2; read sym LINE 1338 "regression-compile-tmp/pass1.imp" PUSH K PUSH KEY PUSHI #0x00000002 RSH ASSVAL LINE 1338 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1339 %cycle LINE 1339 "regression-compile-tmp/pass1.imp" LOCATE L_0003 1340 j = kdict(k) LINE 1340 "regression-compile-tmp/pass1.imp" PUSH J PUSH KDICT PUSH K ACCESS ASSVAL 1341 %exit %if j&16_4000 # 0 LINE 1341 "regression-compile-tmp/pass1.imp" PUSH J PUSHI #0x00004000 AND PUSHI #0x00000000 JUMPIF = L_0007 GOTO L_0004 LOCATE L_0007 1342 %if j&127 # sym %or symtype < 0 %start LINE 1342 "regression-compile-tmp/pass1.imp" PUSH J PUSHI #0x0000007f AND PUSH SYM JUMPIF # L_0008 PUSH SYMTYPE PUSHI #0x00000000 JUMPIF >= L_0007 LOCATE L_0008 1343 ->err %unless j < 0 LINE 1343 "regression-compile-tmp/pass1.imp" PUSH J PUSHI #0x00000000 JUMPIF < L_000a JUMP L_012f LOCATE L_000a 1344 k = k+1 LINE 1344 "regression-compile-tmp/pass1.imp" PUSH K PUSH K PUSHI #0x00000001 ADD ASSVAL 1345 %finish %else %start LINE 1345 "regression-compile-tmp/pass1.imp" GOTO L_0006 LOCATE L_0007 1346 l = j>>7&127; read sym LINE 1346 "regression-compile-tmp/pass1.imp" PUSH L PUSH J PUSHI #0x00000007 RSH PUSHI #0x0000007f AND ASSVAL LINE 1346 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1347 %if j > 0 %start LINE 1347 "regression-compile-tmp/pass1.imp" PUSH J PUSHI #0x00000000 JUMPIF <= L_000a 1348 %if l # 0 %start LINE 1348 "regression-compile-tmp/pass1.imp" PUSH L PUSHI #0x00000000 JUMPIF = L_000d 1349 ->err %if l # sym %or symtype < 0 LINE 1349 "regression-compile-tmp/pass1.imp" PUSH L PUSH SYM JUMPIF # L_0011 PUSH SYMTYPE PUSHI #0x00000000 JUMPIF >= L_0010 LOCATE L_0011 JUMP L_012f LOCATE L_0010 1350 read sym LINE 1350 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1351 %finish LINE 1351 "regression-compile-tmp/pass1.imp" LOCATE L_000d 1352 l = 1 LINE 1352 "regression-compile-tmp/pass1.imp" PUSH L PUSHI #0x00000001 ASSVAL 1353 %finish LINE 1353 "regression-compile-tmp/pass1.imp" LOCATE L_000a 1354 k = k+l LINE 1354 "regression-compile-tmp/pass1.imp" PUSH K PUSH K PUSH L ADD ASSVAL 1355 %finish LINE 1355 "regression-compile-tmp/pass1.imp" LOCATE L_0006 1356 %repeat LINE 1356 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 1357 atom1 = j&127 LINE 1357 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSH J PUSHI #0x0000007f AND ASSVAL 1358 %if atom1 = 0 %start; ! comma LINE 1358 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00000000 JUMPIF # L_0004 1359 atom1 = 19; subatom = 19; atom2 = 0 LINE 1359 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00000013 ASSVAL LINE 1359 "regression-compile-tmp/pass1.imp" PUSH SUBATOM PUSHI #0x00000013 ASSVAL LINE 1359 "regression-compile-tmp/pass1.imp" PUSH ATOM2 PUSHI #0x00000000 ASSVAL 1360 %if sym = nl %start LINE 1360 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000000a JUMPIF # L_0007 1361 %return %if ocount >= 0 1362 1363 ! special action needs to be taken with as 1364 ! const array lists can be enormous LINE 1361 "regression-compile-tmp/pass1.imp" PUSH OCOUNT PUSHI #0x00000000 JUMPIF < L_000a RETURN LOCATE L_000a 1365 read sym LINE 1365 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1366 %finish LINE 1366 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1367 %return LINE 1367 "regression-compile-tmp/pass1.imp" RETURN 1368 %finish LINE 1368 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1369 atom2 = j>>7&127 LINE 1369 "regression-compile-tmp/pass1.imp" PUSH ATOM2 PUSH J PUSHI #0x00000007 RSH PUSHI #0x0000007f AND ASSVAL 1370 subatom = kdict(k+1)&16_3fff 1371 !!!!!cont = ' ' LINE 1370 "regression-compile-tmp/pass1.imp" PUSH SUBATOM PUSH KDICT PUSH K PUSHI #0x00000001 ADD ACCESS PUSHI #0x00003fff AND ASSVAL 1372 %return 1373 1374 ! report an error. adjust the error marker (pos1) to point 1375 ! to the faulty character in an atom, but care needs to be taken 1376 ! to prevent misleading reports in cases like ...????? 1377 LINE 1372 "regression-compile-tmp/pass1.imp" RETURN 1378 err: atom1 = error+1; atom2 = 0 LINE 1378 "regression-compile-tmp/pass1.imp" LABEL L_012f LINE 1378 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00008000 PUSHI #0x00000001 ADD ASSVAL LINE 1378 "regression-compile-tmp/pass1.imp" PUSH ATOM2 PUSHI #0x00000000 ASSVAL 1379 pos1 = pos %if pos-pos1 > 2 LINE 1379 "regression-compile-tmp/pass1.imp" PUSH POS PUSH POS1 SUB PUSHI #0x00000002 JUMPIF <= L_0004 PUSH POS1 PUSH POS ASSVAL LOCATE L_0004 1380 %return 1381 1382 ! take care with strings and symbol constants. 1383 ! make sure the constant is valid here before sucking it in 1384 ! (and potentially loosing many lines) 1385 LINE 1380 "regression-compile-tmp/pass1.imp" RETURN 1386 symbols: atom1 = var; atom2 = const; type = integer LINE 1386 "regression-compile-tmp/pass1.imp" LABEL L_012e LINE 1386 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x0000005b ASSVAL LINE 1386 "regression-compile-tmp/pass1.imp" PUSH ATOM2 PUSHI #0x0000005d ASSVAL LINE 1386 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000001 ASSVAL 1387 map gg = const; protection = prot LINE 1387 "regression-compile-tmp/pass1.imp" PUSH MAPGG PUSHI #0x0000005d ASSVAL LINE 1387 "regression-compile-tmp/pass1.imp" PUSH PROTECTION PUSHI #0x00000100 ASSVAL 1388 subatom = lp; abandon(3) %if lp >= lit max LINE 1388 "regression-compile-tmp/pass1.imp" PUSH SUBATOM PUSH LP ASSVAL LINE 1388 "regression-compile-tmp/pass1.imp" PUSH LP PUSHI #0x00000032 JUMPIF < L_0004 PUSH ABANDON PUSHI #0x00000003 ASSPAR CALL LOCATE L_0004 1389 quote = \pend quote LINE 1389 "regression-compile-tmp/pass1.imp" PUSH QUOTE PUSH PENDQUOTE NOT ASSVAL 1390 %return 1391 1392 ! an integer constant is acceptable so get it in and 1393 ! get the next atom LINE 1390 "regression-compile-tmp/pass1.imp" RETURN 1394 chars: n = 0; cont = cquote LINE 1394 "regression-compile-tmp/pass1.imp" LABEL L_0130 LINE 1394 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x00000000 ASSVAL LINE 1394 "regression-compile-tmp/pass1.imp" PUSH CONT PUSHI #0x00000027 ASSVAL 1395 %cycle LINE 1395 "regression-compile-tmp/pass1.imp" LOCATE L_0003 1396 read sym LINE 1396 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1397 %if sym = cquote %start LINE 1397 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000027 JUMPIF # L_0007 1398 %exit %if nextsymbol # cquote LINE 1398 "regression-compile-tmp/pass1.imp" PUSH NEXTSYMBOL CALL PUSHI #0x00000027 JUMPIF = L_000a GOTO L_0004 LOCATE L_000a 1399 read sym LINE 1399 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1400 %finish LINE 1400 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1401 %if n&(\((-1)>>byte size)) # 0 %start; ! overflow LINE 1401 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x00000001 NEGATE PUSHI #0x00000008 RSH NOT AND PUSHI #0x00000000 JUMPIF = L_0007 1402 pos1 = pos; atom1 = error+10; %return LINE 1402 "regression-compile-tmp/pass1.imp" PUSH POS1 PUSH POS ASSVAL LINE 1402 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00008000 PUSHI #0x0000000a ADD ASSVAL LINE 1402 "regression-compile-tmp/pass1.imp" RETURN 1403 %finish LINE 1403 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1404 ->err %if quote = 0 LINE 1404 "regression-compile-tmp/pass1.imp" PUSH QUOTE PUSHI #0x00000000 JUMPIF # L_0007 JUMP L_012f LOCATE L_0007 1405 n = n<top 1412 1413 !sniff the grammar before getting the string LINE 1411 "regression-compile-tmp/pass1.imp" JUMP L_0129 1414 strings: atom1 = var; atom2 = const; type = stringv LINE 1414 "regression-compile-tmp/pass1.imp" LABEL L_012d LINE 1414 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x0000005b ASSVAL LINE 1414 "regression-compile-tmp/pass1.imp" PUSH ATOM2 PUSHI #0x0000005d ASSVAL LINE 1414 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000003 ASSVAL 1415 subatom = strp!16_4000 LINE 1415 "regression-compile-tmp/pass1.imp" PUSH SUBATOM PUSH STRP PUSHI #0x00004000 OR ASSVAL 1416 map gg = const; protection = prot LINE 1416 "regression-compile-tmp/pass1.imp" PUSH MAPGG PUSHI #0x0000005d ASSVAL LINE 1416 "regression-compile-tmp/pass1.imp" PUSH PROTECTION PUSHI #0x00000100 ASSVAL 1417 quote = subatom LINE 1417 "regression-compile-tmp/pass1.imp" PUSH QUOTE PUSH SUBATOM ASSVAL 1418 text line = lines; ! in case of errors LINE 1418 "regression-compile-tmp/pass1.imp" PUSH TEXTLINE PUSH LINES ASSVAL 1419 %return 1420 1421 ! a string constant is ok here, so pull it in and get 1422 ! the next atom 1423 ! ABD - temp variable to help pack bytes into words LINE 1419 "regression-compile-tmp/pass1.imp" RETURN 1424 %integer flipflop 1425 LINE 1424 "regression-compile-tmp/pass1.imp" DEF FLIPFLOP p1=V_0131 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1426 text: ->chars %if quote < 0; ! character consts LINE 1426 "regression-compile-tmp/pass1.imp" LABEL L_012c LINE 1426 "regression-compile-tmp/pass1.imp" PUSH QUOTE PUSHI #0x00000000 JUMPIF >= L_0004 JUMP L_0130 LOCATE L_0004 1427 l = strp; ! point to beginning LINE 1427 "regression-compile-tmp/pass1.imp" PUSH L PUSH STRP ASSVAL 1428 k = 0; ! length so far LINE 1428 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000000 ASSVAL 1429 flipflop = 0; ! space for the length is up the spout 1430 LINE 1429 "regression-compile-tmp/pass1.imp" PUSH FLIPFLOP PUSHI #0x00000000 ASSVAL 1431 %cycle LINE 1431 "regression-compile-tmp/pass1.imp" LOCATE L_0003 1432 cont = squote; quote = 1 LINE 1432 "regression-compile-tmp/pass1.imp" PUSH CONT PUSHI #0x00000022 ASSVAL LINE 1432 "regression-compile-tmp/pass1.imp" PUSH QUOTE PUSHI #0x00000001 ASSVAL 1433 %cycle LINE 1433 "regression-compile-tmp/pass1.imp" LOCATE L_0006 1434 read sym LINE 1434 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1435 %if sym = squote %start; ! terminator? LINE 1435 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000022 JUMPIF # L_000a 1436 %exit %if nextsymbol # squote; ! yes -> LINE 1436 "regression-compile-tmp/pass1.imp" PUSH NEXTSYMBOL CALL PUSHI #0x00000022 JUMPIF = L_000d GOTO L_0007 LOCATE L_000d 1437 read sym; ! skip quote LINE 1437 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1438 %finish LINE 1438 "regression-compile-tmp/pass1.imp" LOCATE L_000a 1439 %if flipflop >= 0 %start LINE 1439 "regression-compile-tmp/pass1.imp" PUSH FLIPFLOP PUSHI #0x00000000 JUMPIF < L_000a 1440 glink(strp) = sym<<8 + flipflop LINE 1440 "regression-compile-tmp/pass1.imp" PUSH GLINK PUSH STRP ACCESS PUSH SYM PUSHI #0x00000008 LSH PUSH FLIPFLOP ADD ASSVAL 1441 strp = strp+1 LINE 1441 "regression-compile-tmp/pass1.imp" PUSH STRP PUSH STRP PUSHI #0x00000001 ADD ASSVAL 1442 flipflop = -1 LINE 1442 "regression-compile-tmp/pass1.imp" PUSH FLIPFLOP PUSHI #0x00000001 NEGATE ASSVAL 1443 %else LINE 1443 "regression-compile-tmp/pass1.imp" GOTO L_0009 LOCATE L_000a 1444 flipflop = sym LINE 1444 "regression-compile-tmp/pass1.imp" PUSH FLIPFLOP PUSH SYM ASSVAL 1445 %finish LINE 1445 "regression-compile-tmp/pass1.imp" LOCATE L_0009 1446 k = k+1 LINE 1446 "regression-compile-tmp/pass1.imp" PUSH K PUSH K PUSHI #0x00000001 ADD ASSVAL 1447 lines = text line %and abandon(7) %if k > 255; ! too many chars LINE 1447 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x000000ff JUMPIF <= L_000a PUSH LINES PUSH TEXTLINE ASSVAL PUSH ABANDON PUSHI #0x00000007 ASSPAR CALL LOCATE L_000a 1448 %repeat LINE 1448 "regression-compile-tmp/pass1.imp" REPEAT L_0006 LOCATE L_0007 1449 %if flipflop >=0 %start; ! tail-end charlie LINE 1449 "regression-compile-tmp/pass1.imp" PUSH FLIPFLOP PUSHI #0x00000000 JUMPIF < L_0007 1450 glink(strp) = flipflop LINE 1450 "regression-compile-tmp/pass1.imp" PUSH GLINK PUSH STRP ACCESS PUSH FLIPFLOP ASSVAL 1451 strp = strp+1 LINE 1451 "regression-compile-tmp/pass1.imp" PUSH STRP PUSH STRP PUSHI #0x00000001 ADD ASSVAL 1452 %finish LINE 1452 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1453 glink(l) = glink(l)!k; ! plug in length 1454 LINE 1453 "regression-compile-tmp/pass1.imp" PUSH GLINK PUSH L ACCESS PUSH GLINK PUSH L ACCESS PUSH K OR ASSVAL 1455 quote = 0; cont = ' '; read sym LINE 1455 "regression-compile-tmp/pass1.imp" PUSH QUOTE PUSHI #0x00000000 ASSVAL LINE 1455 "regression-compile-tmp/pass1.imp" PUSH CONT PUSHI #0x00000020 ASSVAL LINE 1455 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1456 code atom(target) LINE 1456 "regression-compile-tmp/pass1.imp" PUSH CODEATOM PUSH TARGET ASSPAR CALL 1457 %return %unless atom1 = 48 %and sym = squote; ! fold "???"."+++" LINE 1457 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00000030 JUMPIF # L_0008 PUSH SYM PUSHI #0x00000022 JUMPIF = L_0007 LOCATE L_0008 RETURN LOCATE L_0007 1458 %repeat 1459 LINE 1458 "regression-compile-tmp/pass1.imp" REPEAT L_0003 1460 %routine get(%integer limit) LINE 1460 "regression-compile-tmp/pass1.imp" DEF GET (_lev0id0_COMPILEBLOCK_ANALYSE_CODEATOM_GET) p1=V_0132 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} DEF LIMIT p1=V_0133 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=5} 1461 %integer s, shift LINE 1461 "regression-compile-tmp/pass1.imp" DEF S p1=V_0134 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF SHIFT p1=V_0135 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1462 shift = 0 LINE 1462 "regression-compile-tmp/pass1.imp" PUSH SHIFT PUSHI #0x00000000 ASSVAL 1463 %if base # 10 %start LINE 1463 "regression-compile-tmp/pass1.imp" PUSH BASE PUSHI #0x0000000a JUMPIF = L_0004 1464 %if base = 16 %start LINE 1464 "regression-compile-tmp/pass1.imp" PUSH BASE PUSHI #0x00000010 JUMPIF # L_0007 1465 shift = 4 LINE 1465 "regression-compile-tmp/pass1.imp" PUSH SHIFT PUSHI #0x00000004 ASSVAL 1466 %finish %else %start LINE 1466 "regression-compile-tmp/pass1.imp" GOTO L_0006 LOCATE L_0007 1467 %if base = 8 %start LINE 1467 "regression-compile-tmp/pass1.imp" PUSH BASE PUSHI #0x00000008 JUMPIF # L_000a 1468 shift = 3 LINE 1468 "regression-compile-tmp/pass1.imp" PUSH SHIFT PUSHI #0x00000003 ASSVAL 1469 %finish %else %start LINE 1469 "regression-compile-tmp/pass1.imp" GOTO L_0009 LOCATE L_000a 1470 %if base = 2 %start LINE 1470 "regression-compile-tmp/pass1.imp" PUSH BASE PUSHI #0x00000002 JUMPIF # L_000d 1471 shift = 1 LINE 1471 "regression-compile-tmp/pass1.imp" PUSH SHIFT PUSHI #0x00000001 ASSVAL 1472 %finish LINE 1472 "regression-compile-tmp/pass1.imp" LOCATE L_000d 1473 %finish LINE 1473 "regression-compile-tmp/pass1.imp" LOCATE L_0009 1474 %finish LINE 1474 "regression-compile-tmp/pass1.imp" LOCATE L_0006 1475 %finish LINE 1475 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1476 n = 0 LINE 1476 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x00000000 ASSVAL 1477 %cycle LINE 1477 "regression-compile-tmp/pass1.imp" LOCATE L_0003 1478 %if symtype = -1 %start; ! digit LINE 1478 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000001 NEGATE JUMPIF # L_0007 1479 s = sym-'0' LINE 1479 "regression-compile-tmp/pass1.imp" PUSH S PUSH SYM PUSHI #0x00000030 SUB ASSVAL 1480 %finish %else %start LINE 1480 "regression-compile-tmp/pass1.imp" GOTO L_0006 LOCATE L_0007 1481 %if symtype < 0 %start; ! letter LINE 1481 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000000 JUMPIF >= L_000a 1482 s = sym-'A'+10 LINE 1482 "regression-compile-tmp/pass1.imp" PUSH S PUSH SYM PUSHI #0x00000041 SUB PUSHI #0x0000000a ADD ASSVAL 1483 %finish %else %start LINE 1483 "regression-compile-tmp/pass1.imp" GOTO L_0009 LOCATE L_000a 1484 %return LINE 1484 "regression-compile-tmp/pass1.imp" RETURN 1485 %finish LINE 1485 "regression-compile-tmp/pass1.imp" LOCATE L_0009 1486 %finish LINE 1486 "regression-compile-tmp/pass1.imp" LOCATE L_0006 1487 %return %if s >= limit LINE 1487 "regression-compile-tmp/pass1.imp" PUSH S PUSH LIMIT JUMPIF < L_0007 RETURN LOCATE L_0007 1488 pt = pt+1; glink(pt) = sym LINE 1488 "regression-compile-tmp/pass1.imp" PUSH PT PUSH PT PUSHI #0x00000001 ADD ASSVAL LINE 1488 "regression-compile-tmp/pass1.imp" PUSH GLINK PUSH PT ACCESS PUSH SYM ASSVAL 1489 %if base = 10 %start; ! check overflow LINE 1489 "regression-compile-tmp/pass1.imp" PUSH BASE PUSHI #0x0000000a JUMPIF # L_0007 1490 %if n >= max int %and (s > max dig %or n > max int) %start 1491 !too big for an integer, 1492 !so call it a real LINE 1490 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x0ccccccc JUMPIF < L_000a PUSH S PUSHI #0x00000007 JUMPIF > L_000b PUSH N PUSHI #0x0ccccccc JUMPIF <= L_000a LOCATE L_000b 1493 base = 0; type = real; n = 0 LINE 1493 "regression-compile-tmp/pass1.imp" PUSH BASE PUSHI #0x00000000 ASSVAL LINE 1493 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000002 ASSVAL LINE 1493 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x00000000 ASSVAL 1494 %finish LINE 1494 "regression-compile-tmp/pass1.imp" LOCATE L_000a 1495 %finish LINE 1495 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1496 %if shift = 0 %start LINE 1496 "regression-compile-tmp/pass1.imp" PUSH SHIFT PUSHI #0x00000000 JUMPIF # L_0007 1497 n = n*base+s LINE 1497 "regression-compile-tmp/pass1.imp" PUSH N PUSH N PUSH BASE MUL PUSH S ADD ASSVAL 1498 %finish %else %start LINE 1498 "regression-compile-tmp/pass1.imp" GOTO L_0006 LOCATE L_0007 1499 n = n< 4} 1505 number: base = 10 LINE 1505 "regression-compile-tmp/pass1.imp" LABEL L_012b LINE 1505 "regression-compile-tmp/pass1.imp" PUSH BASE PUSHI #0x0000000a ASSVAL 1506 bxk: atom1 = var; atom2 = const; type = integer; subatom = lp LINE 1506 "regression-compile-tmp/pass1.imp" LABEL L_0133 LINE 1506 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x0000005b ASSVAL LINE 1506 "regression-compile-tmp/pass1.imp" PUSH ATOM2 PUSHI #0x0000005d ASSVAL LINE 1506 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000001 ASSVAL LINE 1506 "regression-compile-tmp/pass1.imp" PUSH SUBATOM PUSH LP ASSVAL 1507 map gg = const; protection = prot LINE 1507 "regression-compile-tmp/pass1.imp" PUSH MAPGG PUSHI #0x0000005d ASSVAL LINE 1507 "regression-compile-tmp/pass1.imp" PUSH PROTECTION PUSHI #0x00000100 ASSVAL 1508 abandon(3) %if lp >= lit max LINE 1508 "regression-compile-tmp/pass1.imp" PUSH LP PUSHI #0x00000032 JUMPIF < L_0004 PUSH ABANDON PUSHI #0x00000003 ASSPAR CALL LOCATE L_0004 1509 pt = strp; mul = 0 LINE 1509 "regression-compile-tmp/pass1.imp" PUSH PT PUSH STRP ASSVAL LINE 1509 "regression-compile-tmp/pass1.imp" PUSH MUL PUSHI #0x00000000 ASSVAL 1510 %cycle LINE 1510 "regression-compile-tmp/pass1.imp" LOCATE L_0003 1511 get(base) LINE 1511 "regression-compile-tmp/pass1.imp" PUSH GET PUSH BASE ASSPAR CALL 1512 %exit %unless sym = '_' %and base # 0 %and pend quote = 0; ! change of base LINE 1512 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000005f JUMPIF # L_0008 PUSH BASE PUSHI #0x00000000 JUMPIF = L_0008 PUSH PENDQUOTE PUSHI #0x00000000 JUMPIF = L_0007 LOCATE L_0008 GOTO L_0004 LOCATE L_0007 1513 pt = pt+1; glink(pt) = '_' LINE 1513 "regression-compile-tmp/pass1.imp" PUSH PT PUSH PT PUSHI #0x00000001 ADD ASSVAL LINE 1513 "regression-compile-tmp/pass1.imp" PUSH GLINK PUSH PT ACCESS PUSHI #0x0000005f ASSVAL 1514 read sym LINE 1514 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1515 base = n LINE 1515 "regression-compile-tmp/pass1.imp" PUSH BASE PUSH N ASSVAL 1516 %repeat 1517 LINE 1516 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 1518 %if pend quote # 0 %start LINE 1518 "regression-compile-tmp/pass1.imp" PUSH PENDQUOTE PUSHI #0x00000000 JUMPIF = L_0004 1519 ->err %if sym # cquote LINE 1519 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000027 JUMPIF = L_0007 JUMP L_012f LOCATE L_0007 1520 readsym LINE 1520 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1521 %finish LINE 1521 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1522 %if sym = '.' %start; ! a real constant LINE 1522 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000002e JUMPIF # L_0004 1523 pt = pt+1; glink(pt) = '.' LINE 1523 "regression-compile-tmp/pass1.imp" PUSH PT PUSH PT PUSHI #0x00000001 ADD ASSVAL LINE 1523 "regression-compile-tmp/pass1.imp" PUSH GLINK PUSH PT ACCESS PUSHI #0x0000002e ASSVAL 1524 read sym LINE 1524 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1525 type = real; n = base; base = 0; get(n) LINE 1525 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000002 ASSVAL LINE 1525 "regression-compile-tmp/pass1.imp" PUSH N PUSH BASE ASSVAL LINE 1525 "regression-compile-tmp/pass1.imp" PUSH BASE PUSHI #0x00000000 ASSVAL LINE 1525 "regression-compile-tmp/pass1.imp" PUSH GET PUSH N ASSPAR CALL 1526 %finish 1527 LINE 1526 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1528 %if sym = '@' %start; ! an exponent LINE 1528 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000040 JUMPIF # L_0004 1529 pt = pt+1; glink(pt) = '@'; k = pt LINE 1529 "regression-compile-tmp/pass1.imp" PUSH PT PUSH PT PUSHI #0x00000001 ADD ASSVAL LINE 1529 "regression-compile-tmp/pass1.imp" PUSH GLINK PUSH PT ACCESS PUSHI #0x00000040 ASSVAL LINE 1529 "regression-compile-tmp/pass1.imp" PUSH K PUSH PT ASSVAL 1530 readsym LINE 1530 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1531 type = integer; base = 10 LINE 1531 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000001 ASSVAL LINE 1531 "regression-compile-tmp/pass1.imp" PUSH BASE PUSHI #0x0000000a ASSVAL 1532 %if sym = '-' %start LINE 1532 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000002d JUMPIF # L_0007 1533 read sym; get(10); n = -n LINE 1533 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL LINE 1533 "regression-compile-tmp/pass1.imp" PUSH GET PUSHI #0x0000000a ASSPAR CALL LINE 1533 "regression-compile-tmp/pass1.imp" PUSH N PUSH N NEGATE ASSVAL 1534 %finish %else %start LINE 1534 "regression-compile-tmp/pass1.imp" GOTO L_0006 LOCATE L_0007 1535 get(10) LINE 1535 "regression-compile-tmp/pass1.imp" PUSH GET PUSHI #0x0000000a ASSPAR CALL 1536 %finish LINE 1536 "regression-compile-tmp/pass1.imp" LOCATE L_0006 1537 pt = k+1; glink(pt) = lp; litpool(lp) = n; lp = lp+1 LINE 1537 "regression-compile-tmp/pass1.imp" PUSH PT PUSH K PUSHI #0x00000001 ADD ASSVAL LINE 1537 "regression-compile-tmp/pass1.imp" PUSH GLINK PUSH PT ACCESS PUSH LP ASSVAL LINE 1537 "regression-compile-tmp/pass1.imp" PUSH LITPOOL PUSH LP ACCESS PUSH N ASSVAL LINE 1537 "regression-compile-tmp/pass1.imp" PUSH LP PUSH LP PUSHI #0x00000001 ADD ASSVAL 1538 atom1 = error+10 %if base = 0 LINE 1538 "regression-compile-tmp/pass1.imp" PUSH BASE PUSHI #0x00000000 JUMPIF # L_0007 PUSH ATOM1 PUSHI #0x00008000 PUSHI #0x0000000a ADD ASSVAL LOCATE L_0007 1539 type = real; ! exponents force the type LINE 1539 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000002 ASSVAL 1540 %finish 1541 LINE 1540 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1542 %if type = real %start LINE 1542 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000002 JUMPIF # L_0004 1543 glink(strp) = pt-strp; ! store the length (difference) LINE 1543 "regression-compile-tmp/pass1.imp" PUSH GLINK PUSH STRP ACCESS PUSH PT PUSH STRP SUB ASSVAL 1544 subatom = (strp)!16_2000; strp = pt+1 LINE 1544 "regression-compile-tmp/pass1.imp" PUSH SUBATOM PUSH STRP PUSHI #0x00002000 OR ASSVAL LINE 1544 "regression-compile-tmp/pass1.imp" PUSH STRP PUSH PT PUSHI #0x00000001 ADD ASSVAL 1545 %finish %else %start LINE 1545 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 1546 litpool(lp) = n LINE 1546 "regression-compile-tmp/pass1.imp" PUSH LITPOOL PUSH LP ACCESS PUSH N ASSVAL 1547 lp = lp+1 LINE 1547 "regression-compile-tmp/pass1.imp" PUSH LP PUSH LP PUSHI #0x00000001 ADD ASSVAL 1548 %finish LINE 1548 "regression-compile-tmp/pass1.imp" LOCATE L_0003 1549 %return 1550 LINE 1549 "regression-compile-tmp/pass1.imp" RETURN 1551 name: atom1 = 0 %and %return %if 27 <= target %and target <= 41 LINE 1551 "regression-compile-tmp/pass1.imp" LABEL L_012a LINE 1551 "regression-compile-tmp/pass1.imp" PUSHI #0x0000001b PUSH TARGET JUMPIF > L_0004 PUSH TARGET PUSHI #0x00000029 JUMPIF > L_0004 PUSH ATOM1 PUSHI #0x00000000 ASSVAL RETURN LOCATE L_0004 1552 hash value = 0 1553 1554 ! ABD changed to remove dependency on direct addressing LINE 1552 "regression-compile-tmp/pass1.imp" PUSH HASHVALUE PUSHI #0x00000000 ASSVAL 1555 dp = dmax+1 LINE 1555 "regression-compile-tmp/pass1.imp" PUSH DP PUSH DMAX PUSHI #0x00000001 ADD ASSVAL 1556 dbase = dp LINE 1556 "regression-compile-tmp/pass1.imp" PUSH DBASE PUSH DP ASSVAL 1557 n = 0 LINE 1557 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x00000000 ASSVAL 1558 dict(dp) = 0 LINE 1558 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH DP ACCESS PUSHI #0x00000000 ASSVAL 1559 %cycle LINE 1559 "regression-compile-tmp/pass1.imp" LOCATE L_0003 1560 hash value = hash value+(hash value+sym); ! is this good enough? LINE 1560 "regression-compile-tmp/pass1.imp" PUSH HASHVALUE PUSH HASHVALUE PUSH HASHVALUE PUSH SYM ADD ADD ASSVAL 1561 dict(dp) = dict(dp) ! (sym << 8); LINE 1561 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH DP ACCESS PUSH DICT PUSH DP ACCESS PUSH SYM PUSHI #0x00000008 LSH OR ASSVAL 1562 n = n+1 LINE 1562 "regression-compile-tmp/pass1.imp" PUSH N PUSH N PUSHI #0x00000001 ADD ASSVAL 1563 dp = dp+1 LINE 1563 "regression-compile-tmp/pass1.imp" PUSH DP PUSH DP PUSHI #0x00000001 ADD ASSVAL 1564 read sym LINE 1564 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1565 %exit %if symtype >= 0 LINE 1565 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000000 JUMPIF < L_0007 GOTO L_0004 LOCATE L_0007 1566 dict(dp) = sym; LINE 1566 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH DP ACCESS PUSH SYM ASSVAL 1567 n = n+1 LINE 1567 "regression-compile-tmp/pass1.imp" PUSH N PUSH N PUSHI #0x00000001 ADD ASSVAL 1568 read sym LINE 1568 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1569 %exit %if symtype >= 0 LINE 1569 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000000 JUMPIF < L_0007 GOTO L_0004 LOCATE L_0007 1570 %repeat LINE 1570 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 1571 %if sym = cquote %start LINE 1571 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000027 JUMPIF # L_0004 1572 pend quote = 100 LINE 1572 "regression-compile-tmp/pass1.imp" PUSH PENDQUOTE PUSHI #0x00000064 ASSVAL 1573 ->symbols %if hash value = 'M' LINE 1573 "regression-compile-tmp/pass1.imp" PUSH HASHVALUE PUSHI #0x0000004d JUMPIF # L_0007 JUMP L_012e LOCATE L_0007 1574 read sym LINE 1574 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1575 %if hash value = 'X' %then base = 16 %and ->bxk LINE 1575 "regression-compile-tmp/pass1.imp" PUSH HASHVALUE PUSHI #0x00000058 JUMPIF # L_0007 PUSH BASE PUSHI #0x00000010 ASSVAL JUMP L_0133 LOCATE L_0007 1576 %if hash value = 'K' %or hash value = 'O' %then base = 8 %and ->bxk LINE 1576 "regression-compile-tmp/pass1.imp" PUSH HASHVALUE PUSHI #0x0000004b JUMPIF = L_0008 PUSH HASHVALUE PUSHI #0x0000004f JUMPIF # L_0007 LOCATE L_0008 PUSH BASE PUSHI #0x00000008 ASSVAL JUMP L_0133 LOCATE L_0007 1577 %if hash value = 'B' %then base = 2 %and ->bxk LINE 1577 "regression-compile-tmp/pass1.imp" PUSH HASHVALUE PUSHI #0x00000042 JUMPIF # L_0007 PUSH BASE PUSHI #0x00000002 ASSVAL JUMP L_0133 LOCATE L_0007 1578 ->err LINE 1578 "regression-compile-tmp/pass1.imp" JUMP L_012f 1579 %finish LINE 1579 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1580 dict(dbase) = dict(dbase)!n LINE 1580 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH DBASE ACCESS PUSH DICT PUSH DBASE ACCESS PUSH N OR ASSVAL 1581 %if n&1 = 0 %then dp = dp+1 LINE 1581 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x00000001 AND PUSHI #0x00000000 JUMPIF # L_0004 PUSH DP PUSH DP PUSHI #0x00000001 ADD ASSVAL LOCATE L_0004 1582 abandon(8) %if dp >= dmin 1583 LINE 1582 "regression-compile-tmp/pass1.imp" PUSH DP PUSH DMIN JUMPIF < L_0004 PUSH ABANDON PUSHI #0x00000008 ASSPAR CALL LOCATE L_0004 1584 atom2 = 90; ! ident LINE 1584 "regression-compile-tmp/pass1.imp" PUSH ATOM2 PUSHI #0x0000005a ASSVAL 1585 %if last1 = 0 %and sym = ':' %start; ! label LINE 1585 "regression-compile-tmp/pass1.imp" PUSH LAST1 PUSHI #0x00000000 JUMPIF # L_0004 PUSH SYM PUSHI #0x0000003a JUMPIF # L_0004 1586 limit = local; lookup(lab); %return LINE 1586 "regression-compile-tmp/pass1.imp" PUSH LIMIT PUSH LOCAL ASSVAL LINE 1586 "regression-compile-tmp/pass1.imp" PUSH LOOKUP PUSHI #0x00000003 ASSPAR CALL LINE 1586 "regression-compile-tmp/pass1.imp" RETURN 1587 %finish LINE 1587 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1588 %if last1 = jump %start; ! ->label LINE 1588 "regression-compile-tmp/pass1.imp" PUSH LAST1 PUSHI #0x00000036 JUMPIF # L_0004 1589 limit = local; lookup(lab+spec+used bit); %return LINE 1589 "regression-compile-tmp/pass1.imp" PUSH LIMIT PUSH LOCAL ASSVAL LINE 1589 "regression-compile-tmp/pass1.imp" PUSH LOOKUP PUSHI #0x00000003 PUSHI #0x00000080 ADD PUSHI #0x00008000 ADD ASSPAR CALL LINE 1589 "regression-compile-tmp/pass1.imp" RETURN 1590 %finish LINE 1590 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1591 %if decl # 0 %and target = 90 %start; ! identifier LINE 1591 "regression-compile-tmp/pass1.imp" PUSH DECL PUSHI #0x00000000 JUMPIF = L_0004 PUSH TARGET PUSHI #0x0000005a JUMPIF # L_0004 1592 search base = fm base LINE 1592 "regression-compile-tmp/pass1.imp" PUSH SEARCHBASE PUSH FMBASE ASSVAL 1593 limit = local; lookup(decl) LINE 1593 "regression-compile-tmp/pass1.imp" PUSH LIMIT PUSH LOCAL ASSVAL LINE 1593 "regression-compile-tmp/pass1.imp" PUSH LOOKUP PUSH DECL ASSPAR CALL 1594 search base = 0 LINE 1594 "regression-compile-tmp/pass1.imp" PUSH SEARCHBASE PUSHI #0x00000000 ASSVAL 1595 %finish %else %start LINE 1595 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 1596 limit = 0; lookup(0) LINE 1596 "regression-compile-tmp/pass1.imp" PUSH LIMIT PUSHI #0x00000000 ASSVAL LINE 1596 "regression-compile-tmp/pass1.imp" PUSH LOOKUP PUSHI #0x00000000 ASSPAR CALL 1597 %finish LINE 1597 "regression-compile-tmp/pass1.imp" LOCATE L_0003 1598 %end 1599 LINE 1598 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_ANALYSE_CODEATOM {lev=4 --> 3} 1600 %integerfn parsed machine code 1601 ! *opcode_?????????? LINE 1600 "regression-compile-tmp/pass1.imp" DEF PARSEDMACHINECODE (_lev0id0_COMPILEBLOCK_ANALYSE_PARSEDMACHINECODE) p1=V_011d a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 1602 atom1 = error %and %result=0 %unless symtype = -2; ! starts with letter LINE 1602 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000002 NEGATE JUMPIF = L_0004 PUSH ATOM1 PUSHI #0x00008000 ASSVAL PUSHI #0x00000000 RESULT LOCATE L_0004 1603 flush buffer( 128 ); ! flush if bp >= 128 LINE 1603 "regression-compile-tmp/pass1.imp" PUSH FLUSHBUFFER PUSHI #0x00000080 ASSPAR CALL 1604 add char( 'w' ) LINE 1604 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x00000077 ASSPAR CALL 1605 %cycle LINE 1605 "regression-compile-tmp/pass1.imp" LOCATE L_0003 1606 add char( sym ); read sym LINE 1606 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSH SYM ASSPAR CALL LINE 1606 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1607 %repeat %until Sym = '_' %or Symtype = 0; ! pull in letters and digits LINE 1607 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000005f JUMPIF = L_0004 PUSH SYMTYPE PUSHI #0x00000000 JUMPIF = L_0004 REPEAT L_0003 LOCATE L_0004 1608 add char( '_' ) LINE 1608 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x0000005f ASSPAR CALL 1609 %if symtype # 0 %start; ! not terminator LINE 1609 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000000 JUMPIF = L_0004 1610 read sym LINE 1610 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1611 %while symtype # 0 %cycle LINE 1611 "regression-compile-tmp/pass1.imp" LOCATE L_0006 PUSH SYMTYPE PUSHI #0x00000000 JUMPIF = L_0007 1612 %if symtype < 0 %start; ! complex LINE 1612 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000000 JUMPIF >= L_000a 1613 code atom(0); %result=0 %if atom1&error # 0 LINE 1613 "regression-compile-tmp/pass1.imp" PUSH CODEATOM PUSHI #0x00000000 ASSPAR CALL LINE 1613 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00008000 AND PUSHI #0x00000000 JUMPIF = L_000d PUSHI #0x00000000 RESULT LOCATE L_000d 1614 %if atom2 = const %and type = integer %start LINE 1614 "regression-compile-tmp/pass1.imp" PUSH ATOM2 PUSHI #0x0000005d JUMPIF # L_000d PUSH TYPE PUSHI #0x00000001 JUMPIF # L_000d 1615 %if subatom < 0 %then set const(tag(-subatom)_format) %else set const(litpool(subatom)) LINE 1615 "regression-compile-tmp/pass1.imp" PUSH SUBATOM PUSHI #0x00000000 JUMPIF >= L_0010 PUSH SETCONST PUSH TAG PUSH SUBATOM NEGATE ACCESS SELECT 2 ASSPAR CALL GOTO L_000f LOCATE L_0010 PUSH SETCONST PUSH LITPOOL PUSH SUBATOM ACCESS ASSPAR CALL LOCATE L_000f 1616 %finish %else %if 91 <= atom1 %and atom1 <= 109 %start LINE 1616 "regression-compile-tmp/pass1.imp" GOTO L_000c LOCATE L_000d PUSHI #0x0000005b PUSH ATOM1 JUMPIF > L_000d PUSH ATOM1 PUSHI #0x0000006d JUMPIF > L_000d 1617 %if atom1 = 104 %and Tag(Subatom)_Flags&Closed = 0 %start LINE 1617 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00000068 JUMPIF # L_0010 PUSH TAG PUSH SUBATOM ACCESS SELECT 3 PUSHI #0x00004000 AND PUSHI #0x00000000 JUMPIF # L_0010 1618 This = Subatom; Atom1 = Error+21 LINE 1618 "regression-compile-tmp/pass1.imp" PUSH THIS PUSH SUBATOM ASSVAL LINE 1618 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00008000 PUSHI #0x00000015 ADD ASSVAL 1619 %result = 0 LINE 1619 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 RESULT 1620 %finish LINE 1620 "regression-compile-tmp/pass1.imp" LOCATE L_0010 1621 op(' ', tag(subatom)_index) LINE 1621 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x00000020 ASSPAR PUSH TAG PUSH SUBATOM ACCESS SELECT 4 ASSPAR CALL 1622 %finish %else %start LINE 1622 "regression-compile-tmp/pass1.imp" GOTO L_000c LOCATE L_000d 1623 atom1 = error; %result=0 LINE 1623 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00008000 ASSVAL LINE 1623 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 RESULT 1624 %finish LINE 1624 "regression-compile-tmp/pass1.imp" LOCATE L_000c 1625 %finish %else %start LINE 1625 "regression-compile-tmp/pass1.imp" GOTO L_0009 LOCATE L_000a 1626 sym = sym!128 %if symtype = 2 {underline with %} LINE 1626 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000002 JUMPIF # L_000d PUSH SYM PUSH SYM PUSHI #0x00000080 OR ASSVAL LOCATE L_000d 1627 add char( sym ); read sym LINE 1627 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSH SYM ASSPAR CALL LINE 1627 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1628 %finish LINE 1628 "regression-compile-tmp/pass1.imp" LOCATE L_0009 1629 %repeat LINE 1629 "regression-compile-tmp/pass1.imp" REPEAT L_0006 LOCATE L_0007 1630 %finish LINE 1630 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1631 add char( ';' ) LINE 1631 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x0000003b ASSPAR CALL 1632 %result=1 LINE 1632 "regression-compile-tmp/pass1.imp" PUSHI #0x00000001 RESULT 1633 %end 1634 LINE 1633 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_ANALYSE_PARSEDMACHINECODE {lev=4 --> 3} 1635 cont = ' ' %if gg = 0 LINE 1635 "regression-compile-tmp/pass1.imp" PUSH GG PUSHI #0x00000000 JUMPIF # L_0004 PUSH CONT PUSHI #0x00000020 ASSVAL LOCATE L_0004 1636 last1 = 0; mapgg = 0 LINE 1636 "regression-compile-tmp/pass1.imp" PUSH LAST1 PUSHI #0x00000000 ASSVAL LINE 1636 "regression-compile-tmp/pass1.imp" PUSH MAPGG PUSHI #0x00000000 ASSVAL 1637 s = 0; ss = 0; sstype = -1; fdef = 0 LINE 1637 "regression-compile-tmp/pass1.imp" PUSH S PUSHI #0x00000000 ASSVAL LINE 1637 "regression-compile-tmp/pass1.imp" PUSH SS PUSHI #0x00000000 ASSVAL LINE 1637 "regression-compile-tmp/pass1.imp" PUSH SSTYPE PUSHI #0x00000001 NEGATE ASSVAL LINE 1637 "regression-compile-tmp/pass1.imp" PUSH FDEF PUSHI #0x00000000 ASSVAL 1638 fm base = 0 LINE 1638 "regression-compile-tmp/pass1.imp" PUSH FMBASE PUSHI #0x00000000 ASSVAL 1639 app = 0 1640 1641 ! deal with alignment following an error in one statement 1642 ! of several on a line LINE 1639 "regression-compile-tmp/pass1.imp" PUSH APP PUSHI #0x00000000 ASSVAL 1643 margin = column; ! start of statement LINE 1643 "regression-compile-tmp/pass1.imp" PUSH MARGIN PUSH COLUMN ASSVAL 1644 pos = 0 LINE 1644 "regression-compile-tmp/pass1.imp" PUSH POS PUSHI #0x00000000 ASSVAL 1645 strp = gmax+1; lp = 0 LINE 1645 "regression-compile-tmp/pass1.imp" PUSH STRP PUSH GMAX PUSHI #0x00000001 ADD ASSVAL LINE 1645 "regression-compile-tmp/pass1.imp" PUSH LP PUSHI #0x00000000 ASSVAL 1646 tbase = tstart; ! ?????????????? LINE 1646 "regression-compile-tmp/pass1.imp" PUSH TBASE PUSH TSTART ASSVAL 1647 local = tbase 1648 LINE 1647 "regression-compile-tmp/pass1.imp" PUSH LOCAL PUSH TBASE ASSVAL 1649 %if gg = 0 %or ocount >= 0 %start; ! data or not continuation(z) LINE 1649 "regression-compile-tmp/pass1.imp" PUSH GG PUSHI #0x00000000 JUMPIF = L_0005 PUSH OCOUNT PUSHI #0x00000000 JUMPIF < L_0004 LOCATE L_0005 1650 again: %while sym type = 0 %cycle; ! skip redundant terminators LINE 1650 "regression-compile-tmp/pass1.imp" LABEL L_011e LINE 1650 "regression-compile-tmp/pass1.imp" LOCATE L_0006 PUSH SYMTYPE PUSHI #0x00000000 JUMPIF # L_0007 1651 c = cont LINE 1651 "regression-compile-tmp/pass1.imp" PUSH C PUSH CONT ASSVAL 1652 cont = ' '; cont = '+' %if ocount >= 0 LINE 1652 "regression-compile-tmp/pass1.imp" PUSH CONT PUSHI #0x00000020 ASSVAL LINE 1652 "regression-compile-tmp/pass1.imp" PUSH OCOUNT PUSHI #0x00000000 JUMPIF < L_000a PUSH CONT PUSHI #0x0000002b ASSVAL LOCATE L_000a 1653 read sym LINE 1653 "regression-compile-tmp/pass1.imp" PUSH READSYM CALL 1654 cont = c LINE 1654 "regression-compile-tmp/pass1.imp" PUSH CONT PUSH C ASSVAL 1655 %repeat LINE 1655 "regression-compile-tmp/pass1.imp" REPEAT L_0006 LOCATE L_0007 1656 ->skip %if sym = '!'; ! comment LINE 1656 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x00000021 JUMPIF # L_0007 JUMP L_011f LOCATE L_0007 1657 this = -1 LINE 1657 "regression-compile-tmp/pass1.imp" PUSH THIS PUSHI #0x00000001 NEGATE ASSVAL 1658 code atom(0) LINE 1658 "regression-compile-tmp/pass1.imp" PUSH CODEATOM PUSHI #0x00000000 ASSPAR CALL 1659 %if atom1 = comment %start LINE 1659 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00000016 JUMPIF # L_0007 1660 skip: quote = 1 LINE 1660 "regression-compile-tmp/pass1.imp" LABEL L_011f LINE 1660 "regression-compile-tmp/pass1.imp" PUSH QUOTE PUSHI #0x00000001 ASSVAL 1661 c = cont LINE 1661 "regression-compile-tmp/pass1.imp" PUSH C PUSH CONT ASSVAL 1662 read sym %and cont = c %while sym # nl; ! skip to end of line LINE 1662 "regression-compile-tmp/pass1.imp" LOCATE L_0009 PUSH SYM PUSHI #0x0000000a JUMPIF = L_000a PUSH READSYM CALL PUSH CONT PUSH C ASSVAL REPEAT L_0009 LOCATE L_000a 1663 quote = 0; symtype = 0 LINE 1663 "regression-compile-tmp/pass1.imp" PUSH QUOTE PUSHI #0x00000000 ASSVAL LINE 1663 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000000 ASSVAL 1664 ->again LINE 1664 "regression-compile-tmp/pass1.imp" JUMP L_011e 1665 %finish LINE 1665 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1666 %finish LINE 1666 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1667 decl = 0; mark = 0 LINE 1667 "regression-compile-tmp/pass1.imp" PUSH DECL PUSHI #0x00000000 ASSVAL LINE 1667 "regression-compile-tmp/pass1.imp" PUSH MARK PUSHI #0x00000000 ASSVAL 1668 gentype = 0; force = 0 LINE 1668 "regression-compile-tmp/pass1.imp" PUSH GENTYPE PUSHI #0x00000000 ASSVAL LINE 1668 "regression-compile-tmp/pass1.imp" PUSH FORCE PUSHI #0x00000000 ASSVAL 1669 dim = 0; prot err = 0 LINE 1669 "regression-compile-tmp/pass1.imp" PUSH DIM PUSHI #0x00000000 ASSVAL LINE 1669 "regression-compile-tmp/pass1.imp" PUSH PROTERR PUSHI #0x00000000 ASSVAL 1670 node = 0; nmax = 0; nmin = rec size+1 LINE 1670 "regression-compile-tmp/pass1.imp" PUSH NODE PUSHI #0x00000000 ASSVAL LINE 1670 "regression-compile-tmp/pass1.imp" PUSH NMAX PUSHI #0x00000000 ASSVAL LINE 1670 "regression-compile-tmp/pass1.imp" PUSH NMIN PUSHI #0x00000208 PUSHI #0x00000001 ADD ASSVAL 1671 order = 1; gmin = max grammar+1 LINE 1671 "regression-compile-tmp/pass1.imp" PUSH ORDER PUSHI #0x00000001 ASSVAL LINE 1671 "regression-compile-tmp/pass1.imp" PUSH GMIN PUSHI #0x000006b8 PUSHI #0x00000001 ADD ASSVAL 1672 sstype = 0 %and ->more %if gg # 0; ! continuation LINE 1672 "regression-compile-tmp/pass1.imp" PUSH GG PUSHI #0x00000000 JUMPIF = L_0004 PUSH SSTYPE PUSHI #0x00000000 ASSVAL JUMP L_0120 LOCATE L_0004 1673 ptype = 0; spec given = 0 1674 LINE 1673 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSHI #0x00000000 ASSVAL LINE 1673 "regression-compile-tmp/pass1.imp" PUSH SPECGIVEN PUSHI #0x00000000 ASSVAL 1675 stats = stats+1; op('O', lines) %if perm = 0 1676 LINE 1675 "regression-compile-tmp/pass1.imp" PUSH STATS PUSH STATS PUSHI #0x00000001 ADD ASSVAL LINE 1675 "regression-compile-tmp/pass1.imp" PUSH PERM PUSHI #0x00000000 JUMPIF # L_0004 PUSH OP PUSHI #0x0000004f ASSPAR PUSH LINES ASSPAR CALL LOCATE L_0004 1677 ->fail1 %if atom1&error # 0; ! first atom faulty 1678 LINE 1677 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00008000 AND PUSHI #0x00000000 JUMPIF = L_0004 JUMP L_0121 LOCATE L_0004 1679 %if escape class # 0 %start; ! enter the hard way after LINE 1679 "regression-compile-tmp/pass1.imp" PUSH ESCAPECLASS PUSHI #0x00000000 JUMPIF = L_0004 1680 g = imp phrase; sstype = -1; ->a3 LINE 1680 "regression-compile-tmp/pass1.imp" PUSH G PUSHI #0x00000019 ASSVAL LINE 1680 "regression-compile-tmp/pass1.imp" PUSH SSTYPE PUSHI #0x00000001 NEGATE ASSVAL LINE 1680 "regression-compile-tmp/pass1.imp" JUMP L_0122 1681 %finish 1682 LINE 1681 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1683 g = initial(atom1); ! pick up entry point LINE 1683 "regression-compile-tmp/pass1.imp" PUSH G PUSH INITIAL PUSH ATOM1 ACCESS ASSVAL 1684 %if g = 0 %start; ! invalid first atom LINE 1684 "regression-compile-tmp/pass1.imp" PUSH G PUSHI #0x00000000 JUMPIF # L_0004 1685 g = initial(0); sstype = 0; ->a3; ! declarator? LINE 1685 "regression-compile-tmp/pass1.imp" PUSH G PUSH INITIAL PUSHI #0x00000000 ACCESS ASSVAL LINE 1685 "regression-compile-tmp/pass1.imp" PUSH SSTYPE PUSHI #0x00000000 ASSVAL LINE 1685 "regression-compile-tmp/pass1.imp" JUMP L_0122 1686 %finish LINE 1686 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1687 %if g < 0 %start; ! phrase imp LINE 1687 "regression-compile-tmp/pass1.imp" PUSH G PUSHI #0x00000000 JUMPIF >= L_0004 1688 g = g&255 LINE 1688 "regression-compile-tmp/pass1.imp" PUSH G PUSH G PUSHI #0x000000ff AND ASSVAL 1689 nmax = 1 LINE 1689 "regression-compile-tmp/pass1.imp" PUSH NMAX PUSHI #0x00000001 ASSVAL 1690 ar(1)_class = 0; ar(1)_link = 0; ar(1)_sub = imp phrase LINE 1690 "regression-compile-tmp/pass1.imp" PUSH AR PUSHI #0x00000001 ACCESS SELECT 1 PUSHI #0x00000000 ASSVAL LINE 1690 "regression-compile-tmp/pass1.imp" PUSH AR PUSHI #0x00000001 ACCESS SELECT 3 PUSHI #0x00000000 ASSVAL LINE 1690 "regression-compile-tmp/pass1.imp" PUSH AR PUSHI #0x00000001 ACCESS SELECT 2 PUSHI #0x00000019 ASSVAL 1691 %finish 1692 LINE 1691 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1693 gg = gram(g); class = gg&255; sstype = gg>>12&3-1 LINE 1693 "regression-compile-tmp/pass1.imp" PUSH GG PUSH GRAM PUSH G ACCESS ASSVAL LINE 1693 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSH GG PUSHI #0x000000ff AND ASSVAL LINE 1693 "regression-compile-tmp/pass1.imp" PUSH SSTYPE PUSH GG PUSHI #0x0000000c RSH PUSHI #0x00000003 AND PUSHI #0x00000001 SUB ASSVAL 1694 ->a1 1695 LINE 1694 "regression-compile-tmp/pass1.imp" JUMP L_0123 1696 act(194): ptype = type; papp = app; pformat = format; ->more LINE 1696 "regression-compile-tmp/pass1.imp" PUSHI #0x000000c2 SLABEL 278 LINE 1696 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSH TYPE ASSVAL LINE 1696 "regression-compile-tmp/pass1.imp" PUSH PAPP PUSH APP ASSVAL LINE 1696 "regression-compile-tmp/pass1.imp" PUSH PFORMAT PUSH FORMAT ASSVAL LINE 1696 "regression-compile-tmp/pass1.imp" JUMP L_0120 1697 act(196): k =g+1; ->a610 LINE 1697 "regression-compile-tmp/pass1.imp" PUSHI #0x000000c4 SLABEL 278 LINE 1697 "regression-compile-tmp/pass1.imp" PUSH K PUSH G PUSHI #0x00000001 ADD ASSVAL LINE 1697 "regression-compile-tmp/pass1.imp" JUMP L_0124 1698 act(188): k = ar(nmax)_sub+1 LINE 1698 "regression-compile-tmp/pass1.imp" PUSHI #0x000000bc SLABEL 278 LINE 1698 "regression-compile-tmp/pass1.imp" PUSH K PUSH AR PUSH NMAX ACCESS SELECT 2 PUSHI #0x00000001 ADD ASSVAL 1699 a610: papp = glink(k) LINE 1699 "regression-compile-tmp/pass1.imp" LABEL L_0124 LINE 1699 "regression-compile-tmp/pass1.imp" PUSH PAPP PUSH GLINK PUSH K ACCESS ASSVAL 1700 k = gram(k) LINE 1700 "regression-compile-tmp/pass1.imp" PUSH K PUSH GRAM PUSH K ACCESS ASSVAL 1701 ->more %if k = 0; ! %name LINE 1701 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000000 JUMPIF # L_0004 JUMP L_0120 LOCATE L_0004 1702 ptype = k&7; pformat = k>>3 LINE 1702 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSH K PUSHI #0x00000007 AND ASSVAL LINE 1702 "regression-compile-tmp/pass1.imp" PUSH PFORMAT PUSH K PUSHI #0x00000003 RSH ASSVAL 1703 act(183): k = type; gentype = k %if gentype = 0 %or k = real LINE 1703 "regression-compile-tmp/pass1.imp" PUSHI #0x000000b7 SLABEL 278 LINE 1703 "regression-compile-tmp/pass1.imp" PUSH K PUSH TYPE ASSVAL LINE 1703 "regression-compile-tmp/pass1.imp" PUSH GENTYPE PUSHI #0x00000000 JUMPIF = L_0005 PUSH K PUSHI #0x00000002 JUMPIF # L_0004 LOCATE L_0005 PUSH GENTYPE PUSH K ASSVAL LOCATE L_0004 1704 %if pformat < 0 %start; ! general type LINE 1704 "regression-compile-tmp/pass1.imp" PUSH PFORMAT PUSHI #0x00000000 JUMPIF >= L_0004 1705 app = papp; format = pformat LINE 1705 "regression-compile-tmp/pass1.imp" PUSH APP PUSH PAPP ASSVAL LINE 1705 "regression-compile-tmp/pass1.imp" PUSH FORMAT PUSH PFORMAT ASSVAL 1706 k = real %if ptype = real %and type = integer LINE 1706 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSHI #0x00000002 JUMPIF # L_0007 PUSH TYPE PUSHI #0x00000001 JUMPIF # L_0007 PUSH K PUSHI #0x00000002 ASSVAL LOCATE L_0007 1707 k = force %and force = 0 %if force # 0 LINE 1707 "regression-compile-tmp/pass1.imp" PUSH FORCE PUSHI #0x00000000 JUMPIF = L_0007 PUSH K PUSH FORCE ASSVAL PUSH FORCE PUSHI #0x00000000 ASSVAL LOCATE L_0007 1708 %finish LINE 1708 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1709 ->fail2 %unless papp = app %and (ptype = k %or ptype = 0) LINE 1709 "regression-compile-tmp/pass1.imp" PUSH PAPP PUSH APP JUMPIF # L_0005 PUSH PTYPE PUSH K JUMPIF = L_0004 PUSH PTYPE PUSHI #0x00000000 JUMPIF = L_0004 LOCATE L_0005 JUMP L_0125 LOCATE L_0004 1710 ->more %if pformat=format %or pformat = 0 %or format = 0 LINE 1710 "regression-compile-tmp/pass1.imp" PUSH PFORMAT PUSH FORMAT JUMPIF = L_0005 PUSH PFORMAT PUSHI #0x00000000 JUMPIF = L_0005 PUSH FORMAT PUSHI #0x00000000 JUMPIF # L_0004 LOCATE L_0005 JUMP L_0120 LOCATE L_0004 1711 ->fail2 LINE 1711 "regression-compile-tmp/pass1.imp" JUMP L_0125 1712 act(197): arp == ar(nmin) LINE 1712 "regression-compile-tmp/pass1.imp" PUSHI #0x000000c5 SLABEL 278 LINE 1712 "regression-compile-tmp/pass1.imp" PUSH ARP PUSH AR PUSH NMIN ACCESS ASSREF 1713 k = arp_sub LINE 1713 "regression-compile-tmp/pass1.imp" PUSH K PUSH ARP SELECT 2 ASSVAL 1714 ->fail3 %unless block form = k&15 LINE 1714 "regression-compile-tmp/pass1.imp" PUSH BLOCKFORM PUSH K PUSHI #0x0000000f AND JUMPIF = L_0004 JUMP L_0126 LOCATE L_0004 1715 arp_sub = k>>4 1716 LINE 1715 "regression-compile-tmp/pass1.imp" PUSH ARP SELECT 2 PUSH K PUSHI #0x00000004 RSH ASSVAL 1717 type = block type LINE 1717 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSH BLOCKTYPE ASSVAL 1718 ptype = block type; pformat = block fm; papp = app LINE 1718 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSH BLOCKTYPE ASSVAL LINE 1718 "regression-compile-tmp/pass1.imp" PUSH PFORMAT PUSH BLOCKFM ASSVAL LINE 1718 "regression-compile-tmp/pass1.imp" PUSH PAPP PUSH APP ASSVAL 1719 pformat = -1 %if ptype # record LINE 1719 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSHI #0x00000004 JUMPIF = L_0004 PUSH PFORMAT PUSHI #0x00000001 NEGATE ASSVAL LOCATE L_0004 1720 ->more LINE 1720 "regression-compile-tmp/pass1.imp" JUMP L_0120 1721 act(195): ->Fail2 %if Type # 0 %and Type # Integer %and Type # Real LINE 1721 "regression-compile-tmp/pass1.imp" PUSHI #0x000000c3 SLABEL 278 LINE 1721 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000000 JUMPIF = L_0004 PUSH TYPE PUSHI #0x00000001 JUMPIF = L_0004 PUSH TYPE PUSHI #0x00000002 JUMPIF = L_0004 JUMP L_0125 LOCATE L_0004 1722 arp == ar(nmin) LINE 1722 "regression-compile-tmp/pass1.imp" PUSH ARP PUSH AR PUSH NMIN ACCESS ASSREF 1723 k = arp_sub LINE 1723 "regression-compile-tmp/pass1.imp" PUSH K PUSH ARP SELECT 2 ASSVAL 1724 arp_sub = k>>2 LINE 1724 "regression-compile-tmp/pass1.imp" PUSH ARP SELECT 2 PUSH K PUSHI #0x00000002 RSH ASSVAL 1725 k = k&3 1726 ! 1 = check integer 1727 ! 2 = check real 1728 ! 3 = check real + int LINE 1725 "regression-compile-tmp/pass1.imp" PUSH K PUSH K PUSHI #0x00000003 AND ASSVAL 1729 ->more %if k = 0; ! 0 = no action LINE 1729 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000000 JUMPIF # L_0004 JUMP L_0120 LOCATE L_0004 1730 %if k = 1 %start LINE 1730 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000001 JUMPIF # L_0004 1731 force = integer LINE 1731 "regression-compile-tmp/pass1.imp" PUSH FORCE PUSHI #0x00000001 ASSVAL 1732 ->more %if type = integer %or type = 0 LINE 1732 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000001 JUMPIF = L_0008 PUSH TYPE PUSHI #0x00000000 JUMPIF # L_0007 LOCATE L_0008 JUMP L_0120 LOCATE L_0007 1733 ->fail2 LINE 1733 "regression-compile-tmp/pass1.imp" JUMP L_0125 1734 %finish LINE 1734 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1735 ->fail2 %unless ptype = real %or ptype = 0; ! {or added?} LINE 1735 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSHI #0x00000002 JUMPIF = L_0004 PUSH PTYPE PUSHI #0x00000000 JUMPIF = L_0004 JUMP L_0125 LOCATE L_0004 1736 force = integer %if k = 3 LINE 1736 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000003 JUMPIF # L_0004 PUSH FORCE PUSHI #0x00000001 ASSVAL LOCATE L_0004 1737 ->more LINE 1737 "regression-compile-tmp/pass1.imp" JUMP L_0120 1738 act(198): ! %OTHER LINE 1738 "regression-compile-tmp/pass1.imp" PUSHI #0x000000c6 SLABEL 278 1739 k = gg>>8&15 LINE 1739 "regression-compile-tmp/pass1.imp" PUSH K PUSH GG PUSHI #0x00000008 RSH PUSHI #0x0000000f AND ASSVAL 1740 %if k = 0 %start; ! restore atom LINE 1740 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000000 JUMPIF # L_0004 1741 atom1 = last1 LINE 1741 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSH LAST1 ASSVAL 1742 ->more LINE 1742 "regression-compile-tmp/pass1.imp" JUMP L_0120 1743 %finish LINE 1743 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1744 %if k = 1 %start; ! test string LINE 1744 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000001 JUMPIF # L_0004 1745 ->fail2 %unless type = stringv LINE 1745 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000003 JUMPIF = L_0007 JUMP L_0125 LOCATE L_0007 1746 ->more LINE 1746 "regression-compile-tmp/pass1.imp" JUMP L_0120 1747 %finish LINE 1747 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1748 %if k = 2 %start; ! {fault record comparisons} LINE 1748 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000002 JUMPIF # L_0004 1749 ->fail2 %if type = record LINE 1749 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000004 JUMPIF # L_0007 JUMP L_0125 LOCATE L_0007 1750 ->more LINE 1750 "regression-compile-tmp/pass1.imp" JUMP L_0120 1751 %finish LINE 1751 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1752 %if k = 3 %start; ! check OWN variable coming LINE 1752 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000003 JUMPIF # L_0004 1753 code atom(0) LINE 1753 "regression-compile-tmp/pass1.imp" PUSH CODEATOM PUSHI #0x00000000 ASSPAR CALL 1754 ->A7 %if atom flags&own bit = 0 LINE 1754 "regression-compile-tmp/pass1.imp" PUSH ATOMFLAGS PUSHI #0x00000200 AND PUSHI #0x00000000 JUMPIF # L_0007 JUMP L_0127 LOCATE L_0007 1755 ->more LINE 1755 "regression-compile-tmp/pass1.imp" JUMP L_0120 1756 %finish LINE 1756 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1757 for warn = pos1 %if x <= local; ! %for TEST LINE 1757 "regression-compile-tmp/pass1.imp" PUSH X PUSH LOCAL JUMPIF > L_0004 PUSH FORWARN PUSH POS1 ASSVAL LOCATE L_0004 1758 ->more LINE 1758 "regression-compile-tmp/pass1.imp" JUMP L_0120 1759 paction(1): %if type = record %then g = phrase(242) %else pformat = -1; ->a3 LINE 1759 "regression-compile-tmp/pass1.imp" PUSHI #0x00000001 SLABEL 279 LINE 1759 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000004 JUMPIF # L_0004 PUSH G PUSH PHRASE PUSHI #0x000000f2 ACCESS ASSVAL GOTO L_0003 LOCATE L_0004 PUSH PFORMAT PUSHI #0x00000001 NEGATE ASSVAL LOCATE L_0003 LINE 1759 "regression-compile-tmp/pass1.imp" JUMP L_0122 1760 paction(2): ptype = real; pformat = -1; ->a3 LINE 1760 "regression-compile-tmp/pass1.imp" PUSHI #0x00000002 SLABEL 279 LINE 1760 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSHI #0x00000002 ASSVAL LINE 1760 "regression-compile-tmp/pass1.imp" PUSH PFORMAT PUSHI #0x00000001 NEGATE ASSVAL LINE 1760 "regression-compile-tmp/pass1.imp" JUMP L_0122 1761 paction(3): ptype = stringv; pformat = -1; ->a3 LINE 1761 "regression-compile-tmp/pass1.imp" PUSHI #0x00000003 SLABEL 279 LINE 1761 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSHI #0x00000003 ASSVAL LINE 1761 "regression-compile-tmp/pass1.imp" PUSH PFORMAT PUSHI #0x00000001 NEGATE ASSVAL LINE 1761 "regression-compile-tmp/pass1.imp" JUMP L_0122 1762 paction(4): ptype = integer; pformat = -1; ->a3 LINE 1762 "regression-compile-tmp/pass1.imp" PUSHI #0x00000004 SLABEL 279 LINE 1762 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSHI #0x00000001 ASSVAL LINE 1762 "regression-compile-tmp/pass1.imp" PUSH PFORMAT PUSHI #0x00000001 NEGATE ASSVAL LINE 1762 "regression-compile-tmp/pass1.imp" JUMP L_0122 1763 paction(5): ->a3 %if ptype = integer LINE 1763 "regression-compile-tmp/pass1.imp" PUSHI #0x00000005 SLABEL 279 LINE 1763 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSHI #0x00000001 JUMPIF # L_0004 JUMP L_0122 LOCATE L_0004 1764 g = phrase(212) %and pformat=-1 %if ptype = real LINE 1764 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSHI #0x00000002 JUMPIF # L_0004 PUSH G PUSH PHRASE PUSHI #0x000000d4 ACCESS ASSVAL PUSH PFORMAT PUSHI #0x00000001 NEGATE ASSVAL LOCATE L_0004 1765 g = phrase(213) %if ptype = stringv LINE 1765 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSHI #0x00000003 JUMPIF # L_0004 PUSH G PUSH PHRASE PUSHI #0x000000d5 ACCESS ASSVAL LOCATE L_0004 1766 ->a3 LINE 1766 "regression-compile-tmp/pass1.imp" JUMP L_0122 1767 paction(6): ptype = gram(ar(nmax)_sub+1)&7; pformat = -1; ->a3 LINE 1767 "regression-compile-tmp/pass1.imp" PUSHI #0x00000006 SLABEL 279 LINE 1767 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSH GRAM PUSH AR PUSH NMAX ACCESS SELECT 2 PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000007 AND ASSVAL LINE 1767 "regression-compile-tmp/pass1.imp" PUSH PFORMAT PUSHI #0x00000001 NEGATE ASSVAL LINE 1767 "regression-compile-tmp/pass1.imp" JUMP L_0122 1768 paction(7): ptype=real %if ptype = integer; pformat = -1; ->a3 1769 LINE 1768 "regression-compile-tmp/pass1.imp" PUSHI #0x00000007 SLABEL 279 LINE 1768 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSHI #0x00000001 JUMPIF # L_0004 PUSH PTYPE PUSHI #0x00000002 ASSVAL LOCATE L_0004 LINE 1768 "regression-compile-tmp/pass1.imp" PUSH PFORMAT PUSHI #0x00000001 NEGATE ASSVAL LINE 1768 "regression-compile-tmp/pass1.imp" JUMP L_0122 1770 a1: last1 = class; atom1 = 0; s = subatom LINE 1770 "regression-compile-tmp/pass1.imp" LABEL L_0123 LINE 1770 "regression-compile-tmp/pass1.imp" PUSH LAST1 PUSH CLASS ASSVAL LINE 1770 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00000000 ASSVAL LINE 1770 "regression-compile-tmp/pass1.imp" PUSH S PUSH SUBATOM ASSVAL 1771 a2: %if gg&trans bit = 0 %start; ! insert into analysis record LINE 1771 "regression-compile-tmp/pass1.imp" LABEL L_0128 LINE 1771 "regression-compile-tmp/pass1.imp" PUSH GG PUSHI #0x00004000 AND PUSHI #0x00000000 JUMPIF # L_0004 1772 z == node LINE 1772 "regression-compile-tmp/pass1.imp" PUSH Z PUSH NODE ASSREF 1773 %cycle; ! insert cell in order LINE 1773 "regression-compile-tmp/pass1.imp" LOCATE L_0006 1774 k = z LINE 1774 "regression-compile-tmp/pass1.imp" PUSH K PUSH Z ASSVAL 1775 %exit %if gg&order bits = 0 %or k = 0 LINE 1775 "regression-compile-tmp/pass1.imp" PUSH GG PUSHI #0x00003000 AND PUSHI #0x00000000 JUMPIF = L_000b PUSH K PUSHI #0x00000000 JUMPIF # L_000a LOCATE L_000b GOTO L_0007 LOCATE L_000a 1776 gg = gg-order bit; z == ar(k)_link LINE 1776 "regression-compile-tmp/pass1.imp" PUSH GG PUSH GG PUSHI #0x00001000 SUB ASSVAL LINE 1776 "regression-compile-tmp/pass1.imp" PUSH Z PUSH AR PUSH K ACCESS SELECT 3 ASSREF 1777 %repeat LINE 1777 "regression-compile-tmp/pass1.imp" REPEAT L_0006 LOCATE L_0007 1778 gg = map gg %if map gg # 0 %and gg&255 = var LINE 1778 "regression-compile-tmp/pass1.imp" PUSH MAPGG PUSHI #0x00000000 JUMPIF = L_0007 PUSH GG PUSHI #0x000000ff AND PUSHI #0x0000005b JUMPIF # L_0007 PUSH GG PUSH MAPGG ASSVAL LOCATE L_0007 1779 nmin = nmin-1; ->fail0 %if nmin = nmax LINE 1779 "regression-compile-tmp/pass1.imp" PUSH NMIN PUSH NMIN PUSHI #0x00000001 SUB ASSVAL LINE 1779 "regression-compile-tmp/pass1.imp" PUSH NMIN PUSH NMAX JUMPIF # L_0007 JUMP L_0129 LOCATE L_0007 1780 z = nmin LINE 1780 "regression-compile-tmp/pass1.imp" PUSH Z PUSH NMIN ASSVAL 1781 arp == ar(nmin) LINE 1781 "regression-compile-tmp/pass1.imp" PUSH ARP PUSH AR PUSH NMIN ACCESS ASSREF 1782 arp_sub = s; arp_class = (gg&255)!mark LINE 1782 "regression-compile-tmp/pass1.imp" PUSH ARP SELECT 2 PUSH S ASSVAL LINE 1782 "regression-compile-tmp/pass1.imp" PUSH ARP SELECT 1 PUSH GG PUSHI #0x000000ff AND PUSH MARK OR ASSVAL 1783 arp_link = k LINE 1783 "regression-compile-tmp/pass1.imp" PUSH ARP SELECT 3 PUSH K ASSVAL 1784 %finish LINE 1784 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1785 mark = 0; map gg = 0 LINE 1785 "regression-compile-tmp/pass1.imp" PUSH MARK PUSHI #0x00000000 ASSVAL LINE 1785 "regression-compile-tmp/pass1.imp" PUSH MAPGG PUSHI #0x00000000 ASSVAL 1786 more: g = glink(g); ! chain down the grammar LINE 1786 "regression-compile-tmp/pass1.imp" LABEL L_0120 LINE 1786 "regression-compile-tmp/pass1.imp" PUSH G PUSH GLINK PUSH G ACCESS ASSVAL 1787 paction(0): LINE 1787 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 SLABEL 279 1788 a3: gg = gram(g); class = gg&255 LINE 1788 "regression-compile-tmp/pass1.imp" LABEL L_0122 LINE 1788 "regression-compile-tmp/pass1.imp" PUSH GG PUSH GRAM PUSH G ACCESS ASSVAL LINE 1788 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSH GG PUSHI #0x000000ff AND ASSVAL 1789 trace analysis %if diag&1 # 0 LINE 1789 "regression-compile-tmp/pass1.imp" PUSH DIAG PUSHI #0x00000001 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH TRACEANALYSIS CALL LOCATE L_0004 1790 ->a5 %if class = 0; ! end of phrase 1791 LINE 1790 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSHI #0x00000000 JUMPIF # L_0004 JUMP L_012a LOCATE L_0004 1792 %if class < actions %start; ! not a phrase or an action LINE 1792 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSHI #0x000000b4 JUMPIF >= L_0004 1793 class = atomic(class) %if class >= figurative LINE 1793 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSHI #0x00000082 JUMPIF < L_0007 PUSH CLASS PUSH ATOMIC PUSH CLASS ACCESS ASSVAL LOCATE L_0007 1794 ->a2 %if class >= manifest LINE 1794 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSHI #0x00000078 JUMPIF < L_0007 JUMP L_0128 LOCATE L_0007 1795 code atom(class) %if atom1 = 0 LINE 1795 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00000000 JUMPIF # L_0007 PUSH CODEATOM PUSH CLASS ASSPAR CALL LOCATE L_0007 1796 %if escape class # 0 %start; ! escape to new grammar LINE 1796 "regression-compile-tmp/pass1.imp" PUSH ESCAPECLASS PUSHI #0x00000000 JUMPIF = L_0007 1797 class = escape class; escape class = 0 LINE 1797 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSH ESCAPECLASS ASSVAL LINE 1797 "regression-compile-tmp/pass1.imp" PUSH ESCAPECLASS PUSHI #0x00000000 ASSVAL 1798 g = g+escape 1799 1800 ! note that following an escape the next item is 1801 ! forced to be transparent! 1802 LINE 1798 "regression-compile-tmp/pass1.imp" PUSH G PUSH G PUSHI #0x00001000 ADD ASSVAL 1803 esc: gg = 0 LINE 1803 "regression-compile-tmp/pass1.imp" LABEL L_012b LINE 1803 "regression-compile-tmp/pass1.imp" PUSH GG PUSHI #0x00000000 ASSVAL 1804 arp == ar(nmax+1) LINE 1804 "regression-compile-tmp/pass1.imp" PUSH ARP PUSH AR PUSH NMAX PUSHI #0x00000001 ADD ACCESS ASSREF 1805 arp_papp = papp; arp_x = x; ->a4 LINE 1805 "regression-compile-tmp/pass1.imp" PUSH ARP SELECT 5 PUSH PAPP ASSVAL LINE 1805 "regression-compile-tmp/pass1.imp" PUSH ARP SELECT 7 PUSH X ASSVAL LINE 1805 "regression-compile-tmp/pass1.imp" JUMP L_012c 1806 %finish 1807 LINE 1806 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1808 ->a1 %if class = atom1 %or class = atom2 1809 LINE 1808 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSH ATOM1 JUMPIF = L_0008 PUSH CLASS PUSH ATOM2 JUMPIF # L_0007 LOCATE L_0008 JUMP L_0123 LOCATE L_0007 1810 a7: ->fail1 %if gg >= 0; ! no alternative LINE 1810 "regression-compile-tmp/pass1.imp" LABEL L_0127 LINE 1810 "regression-compile-tmp/pass1.imp" PUSH GG PUSHI #0x00000000 JUMPIF < L_0007 JUMP L_0121 LOCATE L_0007 1811 g = g+1 LINE 1811 "regression-compile-tmp/pass1.imp" PUSH G PUSH G PUSHI #0x00000001 ADD ASSVAL 1812 ->a3 LINE 1812 "regression-compile-tmp/pass1.imp" JUMP L_0122 1813 %finish 1814 LINE 1813 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1815 %if class >= phrasal %start; ! a phrase LINE 1815 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSHI #0x000000c8 JUMPIF < L_0004 1816 a4: nmax = nmax+1; ->fail0 %if nmax = nmin LINE 1816 "regression-compile-tmp/pass1.imp" LABEL L_012c LINE 1816 "regression-compile-tmp/pass1.imp" PUSH NMAX PUSH NMAX PUSHI #0x00000001 ADD ASSVAL LINE 1816 "regression-compile-tmp/pass1.imp" PUSH NMAX PUSH NMIN JUMPIF # L_0007 JUMP L_0129 LOCATE L_0007 1817 arp == ar(nmax) LINE 1817 "regression-compile-tmp/pass1.imp" PUSH ARP PUSH AR PUSH NMAX ACCESS ASSREF 1818 arp_ptype = ptype LINE 1818 "regression-compile-tmp/pass1.imp" PUSH ARP SELECT 4 PUSH PTYPE ASSVAL 1819 arp_pos = pos1 LINE 1819 "regression-compile-tmp/pass1.imp" PUSH ARP SELECT 8 PUSH POS1 ASSVAL 1820 arp_pformat = pformat LINE 1820 "regression-compile-tmp/pass1.imp" PUSH ARP SELECT 6 PUSH PFORMAT ASSVAL 1821 arp_link = gentype LINE 1821 "regression-compile-tmp/pass1.imp" PUSH ARP SELECT 3 PUSH GENTYPE ASSVAL 1822 arp_class = node LINE 1822 "regression-compile-tmp/pass1.imp" PUSH ARP SELECT 1 PUSH NODE ASSVAL 1823 arp_sub = g LINE 1823 "regression-compile-tmp/pass1.imp" PUSH ARP SELECT 2 PUSH G ASSVAL 1824 node = 0 LINE 1824 "regression-compile-tmp/pass1.imp" PUSH NODE PUSHI #0x00000000 ASSVAL 1825 g = phrase(class) LINE 1825 "regression-compile-tmp/pass1.imp" PUSH G PUSH PHRASE PUSH CLASS ACCESS ASSVAL 1826 ptype = force %and force = 0 %if force # 0 LINE 1826 "regression-compile-tmp/pass1.imp" PUSH FORCE PUSHI #0x00000000 JUMPIF = L_0007 PUSH PTYPE PUSH FORCE ASSVAL PUSH FORCE PUSHI #0x00000000 ASSVAL LOCATE L_0007 1827 gentype = 0 LINE 1827 "regression-compile-tmp/pass1.imp" PUSH GENTYPE PUSHI #0x00000000 ASSVAL 1828 ->paction(gg>>8&15) LINE 1828 "regression-compile-tmp/pass1.imp" PUSH GG PUSHI #0x00000008 RSH PUSHI #0x0000000f AND SJUMP 279 1829 %finish LINE 1829 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1830 ->act(class); ! only actions left 1831 LINE 1830 "regression-compile-tmp/pass1.imp" PUSH CLASS SJUMP 278 1832 a5: ;! reverse links LINE 1832 "regression-compile-tmp/pass1.imp" LABEL L_012a 1833 s = 0 LINE 1833 "regression-compile-tmp/pass1.imp" PUSH S PUSHI #0x00000000 ASSVAL 1834 %while node # 0 %cycle LINE 1834 "regression-compile-tmp/pass1.imp" LOCATE L_0003 PUSH NODE PUSHI #0x00000000 JUMPIF = L_0004 1835 z == ar(node)_link LINE 1835 "regression-compile-tmp/pass1.imp" PUSH Z PUSH AR PUSH NODE ACCESS SELECT 3 ASSREF 1836 k = z; z = s; s = node; node = k LINE 1836 "regression-compile-tmp/pass1.imp" PUSH K PUSH Z ASSVAL LINE 1836 "regression-compile-tmp/pass1.imp" PUSH Z PUSH S ASSVAL LINE 1836 "regression-compile-tmp/pass1.imp" PUSH S PUSH NODE ASSVAL LINE 1836 "regression-compile-tmp/pass1.imp" PUSH NODE PUSH K ASSVAL 1837 %repeat LINE 1837 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 1838 ss = s LINE 1838 "regression-compile-tmp/pass1.imp" PUSH SS PUSH S ASSVAL 1839 a6: %if nmax # 0 %start LINE 1839 "regression-compile-tmp/pass1.imp" LABEL L_012d LINE 1839 "regression-compile-tmp/pass1.imp" PUSH NMAX PUSHI #0x00000000 JUMPIF = L_0004 1840 k = gentype; ! type of phrase LINE 1840 "regression-compile-tmp/pass1.imp" PUSH K PUSH GENTYPE ASSVAL 1841 arp == ar(nmax); nmax = nmax-1 LINE 1841 "regression-compile-tmp/pass1.imp" PUSH ARP PUSH AR PUSH NMAX ACCESS ASSREF LINE 1841 "regression-compile-tmp/pass1.imp" PUSH NMAX PUSH NMAX PUSHI #0x00000001 SUB ASSVAL 1842 node = arp_class LINE 1842 "regression-compile-tmp/pass1.imp" PUSH NODE PUSH ARP SELECT 1 ASSVAL 1843 gentype = arp_link LINE 1843 "regression-compile-tmp/pass1.imp" PUSH GENTYPE PUSH ARP SELECT 3 ASSVAL 1844 ptype = arp_ptype LINE 1844 "regression-compile-tmp/pass1.imp" PUSH PTYPE PUSH ARP SELECT 4 ASSVAL 1845 pformat = arp_pformat LINE 1845 "regression-compile-tmp/pass1.imp" PUSH PFORMAT PUSH ARP SELECT 6 ASSVAL 1846 g = arp_sub LINE 1846 "regression-compile-tmp/pass1.imp" PUSH G PUSH ARP SELECT 2 ASSVAL 1847 %if g&escape # 0 %start LINE 1847 "regression-compile-tmp/pass1.imp" PUSH G PUSHI #0x00001000 AND PUSHI #0x00000000 JUMPIF = L_0007 1848 g = g-escape LINE 1848 "regression-compile-tmp/pass1.imp" PUSH G PUSH G PUSHI #0x00001000 SUB ASSVAL 1849 papp = arp_papp LINE 1849 "regression-compile-tmp/pass1.imp" PUSH PAPP PUSH ARP SELECT 5 ASSVAL 1850 mark = 255 LINE 1850 "regression-compile-tmp/pass1.imp" PUSH MARK PUSHI #0x000000ff ASSVAL 1851 subatom = s LINE 1851 "regression-compile-tmp/pass1.imp" PUSH SUBATOM PUSH S ASSVAL 1852 ->a3 LINE 1852 "regression-compile-tmp/pass1.imp" JUMP L_0122 1853 %finish LINE 1853 "regression-compile-tmp/pass1.imp" LOCATE L_0007 1854 gentype = k %if gentype = 0 %or k = real LINE 1854 "regression-compile-tmp/pass1.imp" PUSH GENTYPE PUSHI #0x00000000 JUMPIF = L_0008 PUSH K PUSHI #0x00000002 JUMPIF # L_0007 LOCATE L_0008 PUSH GENTYPE PUSH K ASSVAL LOCATE L_0007 1855 type = gen type 1856 LINE 1855 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSH GENTYPE ASSVAL 1857 k = gg; ! exit-point code LINE 1857 "regression-compile-tmp/pass1.imp" PUSH K PUSH GG ASSVAL 1858 %cycle LINE 1858 "regression-compile-tmp/pass1.imp" LOCATE L_0006 1859 gg = gram(g) LINE 1859 "regression-compile-tmp/pass1.imp" PUSH GG PUSH GRAM PUSH G ACCESS ASSVAL 1860 ->a2 %if k = 0 LINE 1860 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000000 JUMPIF # L_000a JUMP L_0128 LOCATE L_000a 1861 ->fail1 %if gg >= 0; ! no alternative phrase LINE 1861 "regression-compile-tmp/pass1.imp" PUSH GG PUSHI #0x00000000 JUMPIF < L_000a JUMP L_0121 LOCATE L_000a 1862 k = k-order bit LINE 1862 "regression-compile-tmp/pass1.imp" PUSH K PUSH K PUSHI #0x00001000 SUB ASSVAL 1863 g = g+1; ! sideways step LINE 1863 "regression-compile-tmp/pass1.imp" PUSH G PUSH G PUSHI #0x00000001 ADD ASSVAL 1864 %repeat LINE 1864 "regression-compile-tmp/pass1.imp" REPEAT L_0006 1865 %finish 1866 LINE 1865 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1867 Fault(4) %if copy # 0 LINE 1867 "regression-compile-tmp/pass1.imp" PUSH COPY PUSHI #0x00000000 JUMPIF = L_0004 PUSH FAULT PUSHI #0x00000004 ASSPAR CALL LOCATE L_0004 1868 fault(13) %if order = 0 LINE 1868 "regression-compile-tmp/pass1.imp" PUSH ORDER PUSHI #0x00000000 JUMPIF # L_0004 PUSH FAULT PUSHI #0x0000000d ASSPAR CALL LOCATE L_0004 1869 fault(-4) %if for warn # 0 LINE 1869 "regression-compile-tmp/pass1.imp" PUSH FORWARN PUSHI #0x00000000 JUMPIF = L_0004 PUSH FAULT PUSHI #0x00000004 NEGATE ASSPAR CALL LOCATE L_0004 1870 pos1 = 0 LINE 1870 "regression-compile-tmp/pass1.imp" PUSH POS1 PUSHI #0x00000000 ASSVAL 1871 fault rate = fault rate-1 LINE 1871 "regression-compile-tmp/pass1.imp" PUSH FAULTRATE PUSH FAULTRATE PUSHI #0x00000001 SUB ASSVAL 1872 %return 1873 LINE 1872 "regression-compile-tmp/pass1.imp" RETURN 1874 act(193): gg = 0 %and ->a5 %unless sym = '=' %or sym = '<'; ! cdummy LINE 1874 "regression-compile-tmp/pass1.imp" PUSHI #0x000000c1 SLABEL 278 LINE 1874 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000003d JUMPIF = L_0004 PUSH SYM PUSHI #0x0000003c JUMPIF = L_0004 PUSH GG PUSHI #0x00000000 ASSVAL JUMP L_012a LOCATE L_0004 1875 act(181): atom1 = amap(decl&15); ! dummy LINE 1875 "regression-compile-tmp/pass1.imp" PUSHI #0x000000b5 SLABEL 278 LINE 1875 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSH AMAP PUSH DECL PUSHI #0x0000000f AND ACCESS ASSVAL 1876 ->more 1877 LINE 1876 "regression-compile-tmp/pass1.imp" JUMP L_0120 1878 act(182): class = escdec; g = glink(g)!escape; ! an example of ! as an operator LINE 1878 "regression-compile-tmp/pass1.imp" PUSHI #0x000000b6 SLABEL 278 LINE 1878 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSHI #0x000000fc ASSVAL LINE 1878 "regression-compile-tmp/pass1.imp" PUSH G PUSH GLINK PUSH G ACCESS PUSHI #0x00001000 OR ASSVAL 1879 decl = 0; otype = 0; ->esc; ! decl 1880 LINE 1879 "regression-compile-tmp/pass1.imp" PUSH DECL PUSHI #0x00000000 ASSVAL LINE 1879 "regression-compile-tmp/pass1.imp" PUSH OTYPE PUSHI #0x00000000 ASSVAL LINE 1879 "regression-compile-tmp/pass1.imp" JUMP L_012b 1881 act(199): ; ! compile LINE 1881 "regression-compile-tmp/pass1.imp" PUSHI #0x000000c7 SLABEL 278 1882 s = 0 LINE 1882 "regression-compile-tmp/pass1.imp" PUSH S PUSHI #0x00000000 ASSVAL 1883 %while node # 0 %cycle LINE 1883 "regression-compile-tmp/pass1.imp" LOCATE L_0003 PUSH NODE PUSHI #0x00000000 JUMPIF = L_0004 1884 z == ar(node)_link LINE 1884 "regression-compile-tmp/pass1.imp" PUSH Z PUSH AR PUSH NODE ACCESS SELECT 3 ASSREF 1885 k = z; z = s; s = node; node = k LINE 1885 "regression-compile-tmp/pass1.imp" PUSH K PUSH Z ASSVAL LINE 1885 "regression-compile-tmp/pass1.imp" PUSH Z PUSH S ASSVAL LINE 1885 "regression-compile-tmp/pass1.imp" PUSH S PUSH NODE ASSVAL LINE 1885 "regression-compile-tmp/pass1.imp" PUSH NODE PUSH K ASSVAL 1886 %repeat LINE 1886 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 1887 ss = s 1888 LINE 1887 "regression-compile-tmp/pass1.imp" PUSH SS PUSH S ASSVAL 1889 code atom(28) %if quote # 0; ! expend LINE 1889 "regression-compile-tmp/pass1.imp" PUSH QUOTE PUSHI #0x00000000 JUMPIF = L_0004 PUSH CODEATOM PUSHI #0x0000001c ASSPAR CALL LOCATE L_0004 1890 compile; ->more %if atom1&error = 0 LINE 1890 "regression-compile-tmp/pass1.imp" PUSH COMPILE CALL LINE 1890 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00008000 AND PUSHI #0x00000000 JUMPIF # L_0004 JUMP L_0120 LOCATE L_0004 1891 ->fail1 1892 LINE 1891 "regression-compile-tmp/pass1.imp" JUMP L_0121 1893 act(184): ->fail4 %unless type = integer LINE 1893 "regression-compile-tmp/pass1.imp" PUSHI #0x000000b8 SLABEL 278 LINE 1893 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000001 JUMPIF = L_0004 JUMP L_012e LOCATE L_0004 1894 %if subatom < 0 %then lit = tag(-subatom)_format %else lit = lit pool(subatom) LINE 1894 "regression-compile-tmp/pass1.imp" PUSH SUBATOM PUSHI #0x00000000 JUMPIF >= L_0004 PUSH LIT PUSH TAG PUSH SUBATOM NEGATE ACCESS SELECT 2 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH LIT PUSH LITPOOL PUSH SUBATOM ACCESS ASSVAL LOCATE L_0003 1895 ->fail4 %if lit # 0 LINE 1895 "regression-compile-tmp/pass1.imp" PUSH LIT PUSHI #0x00000000 JUMPIF = L_0004 JUMP L_012e LOCATE L_0004 1896 ->more LINE 1896 "regression-compile-tmp/pass1.imp" JUMP L_0120 1897 act(185): ; ! apply parameters LINE 1897 "regression-compile-tmp/pass1.imp" PUSHI #0x000000b9 SLABEL 278 1898 s = 0 LINE 1898 "regression-compile-tmp/pass1.imp" PUSH S PUSHI #0x00000000 ASSVAL 1899 %while node # 0 %cycle LINE 1899 "regression-compile-tmp/pass1.imp" LOCATE L_0003 PUSH NODE PUSHI #0x00000000 JUMPIF = L_0004 1900 z == ar(node)_link LINE 1900 "regression-compile-tmp/pass1.imp" PUSH Z PUSH AR PUSH NODE ACCESS SELECT 3 ASSREF 1901 k = z; z = s; s = node; node = k LINE 1901 "regression-compile-tmp/pass1.imp" PUSH K PUSH Z ASSVAL LINE 1901 "regression-compile-tmp/pass1.imp" PUSH Z PUSH S ASSVAL LINE 1901 "regression-compile-tmp/pass1.imp" PUSH S PUSH NODE ASSVAL LINE 1901 "regression-compile-tmp/pass1.imp" PUSH NODE PUSH K ASSVAL 1902 %repeat LINE 1902 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 1903 ss = s 1904 LINE 1903 "regression-compile-tmp/pass1.imp" PUSH SS PUSH S ASSVAL 1905 atom1 = ar(s)_class; atom2 = 0 LINE 1905 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSH AR PUSH S ACCESS SELECT 1 ASSVAL LINE 1905 "regression-compile-tmp/pass1.imp" PUSH ATOM2 PUSHI #0x00000000 ASSVAL 1906 atom1 = var %if atom1 = 97 %or atom1 = 98 LINE 1906 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00000061 JUMPIF = L_0005 PUSH ATOM1 PUSHI #0x00000062 JUMPIF # L_0004 LOCATE L_0005 PUSH ATOM1 PUSHI #0x0000005b ASSVAL LOCATE L_0004 1907 arp == ar(nmax) LINE 1907 "regression-compile-tmp/pass1.imp" PUSH ARP PUSH AR PUSH NMAX ACCESS ASSREF 1908 x = arp_x LINE 1908 "regression-compile-tmp/pass1.imp" PUSH X PUSH ARP SELECT 7 ASSVAL 1909 pos1 = arp_pos LINE 1909 "regression-compile-tmp/pass1.imp" PUSH POS1 PUSH ARP SELECT 8 ASSVAL 1910 pos2 = 0 LINE 1910 "regression-compile-tmp/pass1.imp" PUSH POS2 PUSHI #0x00000000 ASSVAL 1911 app = 0 LINE 1911 "regression-compile-tmp/pass1.imp" PUSH APP PUSHI #0x00000000 ASSVAL 1912 format = tag(x)_format LINE 1912 "regression-compile-tmp/pass1.imp" PUSH FORMAT PUSH TAG PUSH X ACCESS SELECT 2 ASSVAL 1913 flags = tag(x)_flags LINE 1913 "regression-compile-tmp/pass1.imp" PUSH FLAGS PUSH TAG PUSH X ACCESS SELECT 3 ASSVAL 1914 type = flags>>4&7 LINE 1914 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSH FLAGS PUSHI #0x00000004 RSH PUSHI #0x00000007 AND ASSVAL 1915 protection = flags&prot LINE 1915 "regression-compile-tmp/pass1.imp" PUSH PROTECTION PUSH FLAGS PUSHI #0x00000100 AND ASSVAL 1916 protection = 0 %if flags&aname # 0 1917 LINE 1916 "regression-compile-tmp/pass1.imp" PUSH FLAGS PUSHI #0x00000400 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH PROTECTION PUSHI #0x00000000 ASSVAL LOCATE L_0004 1918 %if flags&subname # 0 %and format # 0 %start LINE 1918 "regression-compile-tmp/pass1.imp" PUSH FLAGS PUSHI #0x00000800 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH FORMAT PUSHI #0x00000000 JUMPIF = L_0004 1919 ->fail1 %if format selected = 0 LINE 1919 "regression-compile-tmp/pass1.imp" PUSH FORMATSELECTED CALL PUSHI #0x00000000 JUMPIF # L_0007 JUMP L_0121 LOCATE L_0007 1920 %finish 1921 LINE 1920 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1922 ->a6 1923 LINE 1922 "regression-compile-tmp/pass1.imp" JUMP L_012d 1924 act(187): protection = prot; ->more; ! %SETPROT LINE 1924 "regression-compile-tmp/pass1.imp" PUSHI #0x000000bb SLABEL 278 LINE 1924 "regression-compile-tmp/pass1.imp" PUSH PROTECTION PUSHI #0x00000100 ASSVAL LINE 1924 "regression-compile-tmp/pass1.imp" JUMP L_0120 1925 act(186): ->More %if protection&prot = 0 LINE 1925 "regression-compile-tmp/pass1.imp" PUSHI #0x000000ba SLABEL 278 LINE 1925 "regression-compile-tmp/pass1.imp" PUSH PROTECTION PUSHI #0x00000100 AND PUSHI #0x00000000 JUMPIF # L_0004 JUMP L_0120 LOCATE L_0004 1926 prot err = nmin LINE 1926 "regression-compile-tmp/pass1.imp" PUSH PROTERR PUSH NMIN ASSVAL 1927 ->A7 LINE 1927 "regression-compile-tmp/pass1.imp" JUMP L_0127 1928 act(191): k = protection; ! %GUARD LINE 1928 "regression-compile-tmp/pass1.imp" PUSHI #0x000000bf SLABEL 278 LINE 1928 "regression-compile-tmp/pass1.imp" PUSH K PUSH PROTECTION ASSVAL 1929 code atom(0) LINE 1929 "regression-compile-tmp/pass1.imp" PUSH CODEATOM PUSHI #0x00000000 ASSPAR CALL 1930 protection = k %if atom flags&aname = 0 LINE 1930 "regression-compile-tmp/pass1.imp" PUSH ATOMFLAGS PUSHI #0x00000400 AND PUSHI #0x00000000 JUMPIF # L_0004 PUSH PROTECTION PUSH K ASSVAL LOCATE L_0004 1931 ->more 1932 LINE 1931 "regression-compile-tmp/pass1.imp" JUMP L_0120 1933 act(192): ->fail1 %if parsed machine code=0 LINE 1933 "regression-compile-tmp/pass1.imp" PUSHI #0x000000c0 SLABEL 278 LINE 1933 "regression-compile-tmp/pass1.imp" PUSH PARSEDMACHINECODE CALL PUSHI #0x00000000 JUMPIF # L_0004 JUMP L_0121 LOCATE L_0004 1934 ->more 1935 LINE 1934 "regression-compile-tmp/pass1.imp" JUMP L_0120 1936 act(189): k = gapp; ! %GAPP LINE 1936 "regression-compile-tmp/pass1.imp" PUSHI #0x000000bd SLABEL 278 LINE 1936 "regression-compile-tmp/pass1.imp" PUSH K PUSH GAPP CALL ASSVAL 1937 delete names(1) LINE 1937 "regression-compile-tmp/pass1.imp" PUSH DELETENAMES PUSHI #0x00000001 ASSPAR CALL 1938 tmax = tbase; tbase = gram (gmin); ! restore tmax LINE 1938 "regression-compile-tmp/pass1.imp" PUSH TMAX PUSH TBASE ASSVAL LINE 1938 "regression-compile-tmp/pass1.imp" PUSH TBASE PUSH GRAM PUSH GMIN ACCESS ASSVAL 1939 local= tbase LINE 1939 "regression-compile-tmp/pass1.imp" PUSH LOCAL PUSH TBASE ASSVAL 1940 gmin = gmin+1 1941 LINE 1940 "regression-compile-tmp/pass1.imp" PUSH GMIN PUSH GMIN PUSHI #0x00000001 ADD ASSVAL 1942 x = ar(ar(nmax)_class)_sub LINE 1942 "regression-compile-tmp/pass1.imp" PUSH X PUSH AR PUSH AR PUSH NMAX ACCESS SELECT 1 ACCESS SELECT 2 ASSVAL 1943 tag(x)_app = k; ! update app LINE 1943 "regression-compile-tmp/pass1.imp" PUSH TAG PUSH X ACCESS SELECT 1 PUSH K ASSVAL 1944 ->more 1945 LINE 1944 "regression-compile-tmp/pass1.imp" JUMP L_0120 1946 act(190): gmin = gmin-1; ! %LOCAL LINE 1946 "regression-compile-tmp/pass1.imp" PUSHI #0x000000be SLABEL 278 LINE 1946 "regression-compile-tmp/pass1.imp" PUSH GMIN PUSH GMIN PUSHI #0x00000001 SUB ASSVAL 1947 abandon(2) %if gmin <= gmax LINE 1947 "regression-compile-tmp/pass1.imp" PUSH GMIN PUSH GMAX JUMPIF > L_0004 PUSH ABANDON PUSHI #0x00000002 ASSPAR CALL LOCATE L_0004 1948 gram (gmin) = tbase; tbase = tmax LINE 1948 "regression-compile-tmp/pass1.imp" PUSH GRAM PUSH GMIN ACCESS PUSH TBASE ASSVAL LINE 1948 "regression-compile-tmp/pass1.imp" PUSH TBASE PUSH TMAX ASSVAL 1949 local = tbase LINE 1949 "regression-compile-tmp/pass1.imp" PUSH LOCAL PUSH TBASE ASSVAL 1950 ->more 1951 1952 ! errors 1953 LINE 1950 "regression-compile-tmp/pass1.imp" JUMP L_0120 1954 fail4: k = error+10; ->failed; ! *size LINE 1954 "regression-compile-tmp/pass1.imp" LABEL L_012e LINE 1954 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00008000 PUSHI #0x0000000a ADD ASSVAL LINE 1954 "regression-compile-tmp/pass1.imp" JUMP L_012f 1955 fail3: k = error+7; ->failed; ! *context LINE 1955 "regression-compile-tmp/pass1.imp" LABEL L_0126 LINE 1955 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00008000 PUSHI #0x00000007 ADD ASSVAL LINE 1955 "regression-compile-tmp/pass1.imp" JUMP L_012f 1956 fail2: k = error+5; pos2 = 0; ->failed; ! *type LINE 1956 "regression-compile-tmp/pass1.imp" LABEL L_0125 LINE 1956 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00008000 PUSHI #0x00000005 ADD ASSVAL LINE 1956 "regression-compile-tmp/pass1.imp" PUSH POS2 PUSHI #0x00000000 ASSVAL LINE 1956 "regression-compile-tmp/pass1.imp" JUMP L_012f 1957 fail0: k = error+3; ->failed; ! *too complex LINE 1957 "regression-compile-tmp/pass1.imp" LABEL L_0129 LINE 1957 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00008000 PUSHI #0x00000003 ADD ASSVAL LINE 1957 "regression-compile-tmp/pass1.imp" JUMP L_012f 1958 fail1: k = atom1; pos2 = 0 LINE 1958 "regression-compile-tmp/pass1.imp" LABEL L_0121 LINE 1958 "regression-compile-tmp/pass1.imp" PUSH K PUSH ATOM1 ASSVAL LINE 1958 "regression-compile-tmp/pass1.imp" PUSH POS2 PUSHI #0x00000000 ASSVAL 1959 failed: %if diag&32 # 0 %start LINE 1959 "regression-compile-tmp/pass1.imp" LABEL L_012f LINE 1959 "regression-compile-tmp/pass1.imp" PUSH DIAG PUSHI #0x00000020 AND PUSHI #0x00000000 JUMPIF = L_0004 1960 printstring("Atom1 ="); write(atom1, 3) LINE 1960 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "Atom1 =" ASSPAR CALL LINE 1960 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH ATOM1 ASSPAR PUSHI #0x00000003 ASSPAR CALL 1961 printstring(" Atom2 ="); write(atom2, 3) LINE 1961 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " Atom2 =" ASSPAR CALL LINE 1961 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH ATOM2 ASSPAR PUSHI #0x00000003 ASSPAR CALL 1962 printstring(" subatom ="); write(subatom, 3); newline LINE 1962 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " subatom =" ASSPAR CALL LINE 1962 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH SUBATOM ASSPAR PUSHI #0x00000003 ASSPAR CALL LINE 1962 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 1963 printstring("Type ="); write(type, 1) LINE 1963 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "Type =" ASSPAR CALL LINE 1963 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH TYPE ASSPAR PUSHI #0x00000001 ASSPAR CALL 1964 printstring(" Ptype ="); write(ptype, 1); newline LINE 1964 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " Ptype =" ASSPAR CALL LINE 1964 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH PTYPE ASSPAR PUSHI #0x00000001 ASSPAR CALL LINE 1964 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 1965 printstring("App ="); write(app, 1) LINE 1965 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "App =" ASSPAR CALL LINE 1965 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH APP ASSPAR PUSHI #0x00000001 ASSPAR CALL 1966 printstring(" Papp ="); write(papp, 1); newline LINE 1966 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " Papp =" ASSPAR CALL LINE 1966 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH PAPP ASSPAR PUSHI #0x00000001 ASSPAR CALL LINE 1966 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 1967 printstring("Format ="); write(format, 1) LINE 1967 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "Format =" ASSPAR CALL LINE 1967 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH FORMAT ASSPAR PUSHI #0x00000001 ASSPAR CALL 1968 printstring(" Pformat ="); write(pformat, 1); newline 1969 !%signal 13,15 LINE 1968 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " Pformat =" ASSPAR CALL LINE 1968 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH PFORMAT ASSPAR PUSHI #0x00000001 ASSPAR CALL LINE 1968 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 1970 %finish 1971 LINE 1970 "regression-compile-tmp/pass1.imp" LOCATE L_0004 1972 quote = 0 %and readsym %while sym # nl %and sym # ';' LINE 1972 "regression-compile-tmp/pass1.imp" LOCATE L_0003 PUSH SYM PUSHI #0x0000000a JUMPIF = L_0004 PUSH SYM PUSHI #0x0000003b JUMPIF = L_0004 PUSH QUOTE PUSHI #0x00000000 ASSVAL PUSH READSYM CALL REPEAT L_0003 LOCATE L_0004 1973 %if k&error # 0 %start LINE 1973 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00008000 AND PUSHI #0x00000000 JUMPIF = L_0004 1974 fault(k&255) LINE 1974 "regression-compile-tmp/pass1.imp" PUSH FAULT PUSH K PUSHI #0x000000ff AND ASSPAR CALL 1975 %finish %else %start LINE 1975 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 1976 %if prot err = nmin %then fault(14) %else fault(0) LINE 1976 "regression-compile-tmp/pass1.imp" PUSH PROTERR PUSH NMIN JUMPIF # L_0007 PUSH FAULT PUSHI #0x0000000e ASSPAR CALL GOTO L_0006 LOCATE L_0007 PUSH FAULT PUSHI #0x00000000 ASSPAR CALL LOCATE L_0006 1977 %finish LINE 1977 "regression-compile-tmp/pass1.imp" LOCATE L_0003 1978 gg = 0; ss = 0; symtype = 0 LINE 1978 "regression-compile-tmp/pass1.imp" PUSH GG PUSHI #0x00000000 ASSVAL LINE 1978 "regression-compile-tmp/pass1.imp" PUSH SS PUSHI #0x00000000 ASSVAL LINE 1978 "regression-compile-tmp/pass1.imp" PUSH SYMTYPE PUSHI #0x00000000 ASSVAL 1979 %end; ! of analyse 1980 LINE 1979 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_ANALYSE {lev=3 --> 2} 1981 %routine compile LINE 1981 "regression-compile-tmp/pass1.imp" DEF COMPILE (_lev0id0_COMPILEBLOCK_COMPILE) p1=V_00fa a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} FINISH ) {lev=3} 1982 %constinteger then = 4, else = 8, loop = 16 1983 LINE 1982 "regression-compile-tmp/pass1.imp" 1984 %switch c(0:actions), litop(1:12) 1985 LINE 1984 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x000000b4 BOUNDS DEF C p1=V_010b a/tf=6 b/format=0 c/ostate=0 type=0 () form=6 (switch) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x00000001 PUSHI #0x0000000c BOUNDS DEF LITOP p1=V_010c a/tf=6 b/format=0 c/ostate=0 type=0 () form=6 (switch) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1986 %constbyteintegerarray operator(1:14) = '[', ']', 'X', '/', '&', '!', '%', '+', '-', '*', 'Q', 'x', '.', 'v' LINE 1986 "regression-compile-tmp/pass1.imp" PUSHI #0x00000001 PUSHI #0x0000000e BOUNDS DEF OPERATOR p1=V_010d a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x0000005b INIT 1 PUSHI #0x0000005d INIT 1 PUSHI #0x00000058 INIT 1 PUSHI #0x0000002f INIT 1 PUSHI #0x00000026 INIT 1 PUSHI #0x00000021 INIT 1 PUSHI #0x00000025 INIT 1 PUSHI #0x0000002b INIT 1 PUSHI #0x0000002d INIT 1 PUSHI #0x0000002a INIT 1 PUSHI #0x00000051 INIT 1 PUSHI #0x00000078 INIT 1 PUSHI #0x0000002e INIT 1 PUSHI #0x00000076 INIT 1 1987 %constbyteintegerarray cc(0 : 7) = '#','=',')','<','(','>', 'k','t' LINE 1987 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x00000007 BOUNDS DEF CC p1=V_010e a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000023 INIT 1 PUSHI #0x0000003d INIT 1 PUSHI #0x00000029 INIT 1 PUSHI #0x0000003c INIT 1 PUSHI #0x00000028 INIT 1 PUSHI #0x0000003e INIT 1 PUSHI #0x0000006b INIT 1 PUSHI #0x00000074 INIT 1 1988 %constbyteintegerarray anyform(0:15) = 1,0,1,1,1,1,1,1,0,1,1,0,1,1,1,1 1989 LINE 1988 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x0000000f BOUNDS DEF ANYFORM p1=V_010f a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000001 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000001 INIT 1 1990 %constintegerarray decmap(0:15) = %c 1991 1, 2, 1992 16_100B, 16_100D, 16_140C, 16_140E, 1993 3, 4, 1994 16_1007, 16_1008, 16_1009, 16_100A, 1995 6, 0, 0, 0 LINE 1990 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x0000000f BOUNDS DEF DECMAP p1=V_0110 a/tf=1b b/format=1 c/ostate=112 type=1 (integer) form=11 (array) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000001 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x0000100b INIT 1 PUSHI #0x0000100d INIT 1 PUSHI #0x0000140c INIT 1 PUSHI #0x0000140e INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00001007 INIT 1 PUSHI #0x00001008 INIT 1 PUSHI #0x00001009 INIT 1 PUSHI #0x0000100a INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 1 1996 %ownbyteintegerarray cnest(0:15) LINE 1996 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSHI #0x0000000f BOUNDS DEF CNEST p1=V_0111 a/tf=1b b/format=2 c/ostate=121 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=1 (own) spec=0 indirect=0 unass=1 INIT 16 1997 %integer lmode, clab, dupid LINE 1997 "regression-compile-tmp/pass1.imp" DEF LMODE p1=V_0112 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF CLAB p1=V_0113 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF DUPID p1=V_0114 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1998 %integer resln LINE 1998 "regression-compile-tmp/pass1.imp" DEF RESLN p1=V_0115 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1999 %owninteger last def = 0 LINE 1999 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF LASTDEF p1=V_0116 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 2000 %owninteger lb, ub LINE 2000 "regression-compile-tmp/pass1.imp" DEF LB p1=V_0117 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 DEF UB p1=V_0118 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 2001 %integer cp, ord LINE 2001 "regression-compile-tmp/pass1.imp" DEF CP p1=V_0119 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF ORD p1=V_011a a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2002 %integer next, link, j, k, n, done LINE 2002 "regression-compile-tmp/pass1.imp" DEF NEXT p1=V_011b a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF LINK p1=V_011c a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF J p1=V_011d a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF K p1=V_011e a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF N p1=V_011f a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF DONE p1=V_0120 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2003 %integer class LINE 2003 "regression-compile-tmp/pass1.imp" DEF CLASS p1=V_0121 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2004 %integer lit2, defs, decs, cident LINE 2004 "regression-compile-tmp/pass1.imp" DEF LIT2 p1=V_0122 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF DEFS p1=V_0123 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF DECS p1=V_0124 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF CIDENT p1=V_0125 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2005 %integer pending; %ownintegerarray pstack(1:40) LINE 2005 "regression-compile-tmp/pass1.imp" DEF PENDING p1=V_0126 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 LINE 2005 "regression-compile-tmp/pass1.imp" PUSHI #0x00000001 PUSHI #0x00000028 BOUNDS DEF PSTACK p1=V_0127 a/tf=1b b/format=1 c/ostate=121 type=1 (integer) form=11 (array) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 40 2006 %ownstring(8) name = "" LINE 2006 "regression-compile-tmp/pass1.imp" PUSHS "" DEF NAME p1=V_0128 a/tf=31 b/format=8 c/ostate=21 type=3 (string) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 2007 %owninteger count = 0 2008 LINE 2007 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 DEF COUNT p1=V_0129 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 2009 %routine def lab(%integer l) LINE 2009 "regression-compile-tmp/pass1.imp" DEF DEFLAB (_lev0id0_COMPILEBLOCK_COMPILE_DEFLAB) p1=V_012a a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF L p1=V_012b a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2010 op(':', l) LINE 2010 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x0000003a ASSPAR PUSH L ASSPAR CALL 2011 access = 1 LINE 2011 "regression-compile-tmp/pass1.imp" PUSH ACCESS PUSHI #0x00000001 ASSVAL 2012 %end 2013 LINE 2012 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_COMPILE_DEFLAB {lev=4 --> 3} 2014 %routine get next LINE 2014 "regression-compile-tmp/pass1.imp" DEF GETNEXT (_lev0id0_COMPILEBLOCK_COMPILE_GETNEXT) p1=V_012b a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2015 %record(arfm)%name p LINE 2015 "regression-compile-tmp/pass1.imp" DEF P p1=V_012c a/tf=42 b/format=84 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2016 gn: %if next = 0 %start; ! end of phrase LINE 2016 "regression-compile-tmp/pass1.imp" LABEL L_012d LINE 2016 "regression-compile-tmp/pass1.imp" PUSH NEXT PUSHI #0x00000000 JUMPIF # L_0004 2017 class = 0 %and %return %if link = 0; ! end of statement LINE 2017 "regression-compile-tmp/pass1.imp" PUSH LINK PUSHI #0x00000000 JUMPIF # L_0007 PUSH CLASS PUSHI #0x00000000 ASSVAL RETURN LOCATE L_0007 2018 p == ar(link) LINE 2018 "regression-compile-tmp/pass1.imp" PUSH P PUSH AR PUSH LINK ACCESS ASSREF 2019 next = p_link LINE 2019 "regression-compile-tmp/pass1.imp" PUSH NEXT PUSH P SELECT 3 ASSVAL 2020 link = p_sub LINE 2020 "regression-compile-tmp/pass1.imp" PUSH LINK PUSH P SELECT 2 ASSVAL 2021 %finish LINE 2021 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2022 %cycle LINE 2022 "regression-compile-tmp/pass1.imp" LOCATE L_0003 2023 p == ar(next) LINE 2023 "regression-compile-tmp/pass1.imp" PUSH P PUSH AR PUSH NEXT ACCESS ASSREF 2024 x = p_sub LINE 2024 "regression-compile-tmp/pass1.imp" PUSH X PUSH P SELECT 2 ASSVAL 2025 class = p_class LINE 2025 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSH P SELECT 1 ASSVAL 2026 %exit %if class < actions; ! an atom LINE 2026 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSHI #0x000000b4 JUMPIF >= L_0007 GOTO L_0004 LOCATE L_0007 2027 %if x = 0 %start; ! null phrase LINE 2027 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000000 JUMPIF # L_0007 2028 next = p_link; ->gn LINE 2028 "regression-compile-tmp/pass1.imp" PUSH NEXT PUSH P SELECT 3 ASSVAL LINE 2028 "regression-compile-tmp/pass1.imp" JUMP L_012d 2029 %finish LINE 2029 "regression-compile-tmp/pass1.imp" LOCATE L_0007 2030 %if p_link # 0 %start; ! follow a phrase LINE 2030 "regression-compile-tmp/pass1.imp" PUSH P SELECT 3 PUSHI #0x00000000 JUMPIF = L_0007 2031 p_sub = link; link = next LINE 2031 "regression-compile-tmp/pass1.imp" PUSH P SELECT 2 PUSH LINK ASSVAL LINE 2031 "regression-compile-tmp/pass1.imp" PUSH LINK PUSH NEXT ASSVAL 2032 %finish LINE 2032 "regression-compile-tmp/pass1.imp" LOCATE L_0007 2033 next = x LINE 2033 "regression-compile-tmp/pass1.imp" PUSH NEXT PUSH X ASSVAL 2034 %repeat LINE 2034 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 2035 next = p_link LINE 2035 "regression-compile-tmp/pass1.imp" PUSH NEXT PUSH P SELECT 3 ASSVAL 2036 %if diag&2 # 0 %start LINE 2036 "regression-compile-tmp/pass1.imp" PUSH DIAG PUSHI #0x00000002 AND PUSHI #0x00000000 JUMPIF = L_0004 2037 spaces(8-length(name)) %unless length(name) = 0 LINE 2037 "regression-compile-tmp/pass1.imp" PUSH LENGTH PUSH NAME ASSPAR CALL PUSHI #0x00000000 JUMPIF = L_0007 PUSH SPACES PUSHI #0x00000008 PUSH LENGTH PUSH NAME ASSPAR CALL SUB ASSPAR CALL LOCATE L_0007 2038 name = text(class) LINE 2038 "regression-compile-tmp/pass1.imp" PUSH NAME PUSH TEXT PUSH CLASS ACCESS ASSVAL 2039 write(x, 2) LINE 2039 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH X ASSPAR PUSHI #0x00000002 ASSPAR CALL 2040 space LINE 2040 "regression-compile-tmp/pass1.imp" PUSH SPACE CALL 2041 printstring(name) LINE 2041 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSH NAME ASSPAR CALL 2042 space LINE 2042 "regression-compile-tmp/pass1.imp" PUSH SPACE CALL 2043 count = count-1 LINE 2043 "regression-compile-tmp/pass1.imp" PUSH COUNT PUSH COUNT PUSHI #0x00000001 SUB ASSVAL 2044 %if count <= 0 %start LINE 2044 "regression-compile-tmp/pass1.imp" PUSH COUNT PUSHI #0x00000000 JUMPIF > L_0007 2045 count = 5 LINE 2045 "regression-compile-tmp/pass1.imp" PUSH COUNT PUSHI #0x00000005 ASSVAL 2046 name = "" LINE 2046 "regression-compile-tmp/pass1.imp" PUSH NAME PUSHS "" ASSVAL 2047 newline LINE 2047 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 2048 %finish LINE 2048 "regression-compile-tmp/pass1.imp" LOCATE L_0007 2049 %finish LINE 2049 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2050 %end 2051 LINE 2050 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_COMPILE_GETNEXT {lev=4 --> 3} 2052 %routine set subs(%integer n) 2053 !update the app field in n array descriptors LINE 2052 "regression-compile-tmp/pass1.imp" DEF SETSUBS (_lev0id0_COMPILEBLOCK_COMPILE_SETSUBS) p1=V_012c a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF N p1=V_012d a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2054 %integer p LINE 2054 "regression-compile-tmp/pass1.imp" DEF P p1=V_012e a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2055 p = tmax LINE 2055 "regression-compile-tmp/pass1.imp" PUSH P PUSH TMAX ASSVAL 2056 %while n > 0 %cycle 2057 !%signal 15,15 %if p < tbase LINE 2056 "regression-compile-tmp/pass1.imp" LOCATE L_0003 PUSH N PUSHI #0x00000000 JUMPIF <= L_0004 2058 tag(p)_app = dimension LINE 2058 "regression-compile-tmp/pass1.imp" PUSH TAG PUSH P ACCESS SELECT 1 PUSH DIMENSION ASSVAL 2059 p = p-1; n = n-1 LINE 2059 "regression-compile-tmp/pass1.imp" PUSH P PUSH P PUSHI #0x00000001 SUB ASSVAL LINE 2059 "regression-compile-tmp/pass1.imp" PUSH N PUSH N PUSHI #0x00000001 SUB ASSVAL 2060 %repeat LINE 2060 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 2061 %end 2062 LINE 2061 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_COMPILE_SETSUBS {lev=4 --> 3} 2063 %routine set bp 2064 !define a constant bound pair from the last stacked constants LINE 2063 "regression-compile-tmp/pass1.imp" DEF SETBP (_lev0id0_COMPILEBLOCK_COMPILE_SETBP) p1=V_012d a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2065 pending = pending-2 LINE 2065 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSH PENDING PUSHI #0x00000002 SUB ASSVAL 2066 lb = pstack(pending+1); ub = pstack(pending+2) LINE 2066 "regression-compile-tmp/pass1.imp" PUSH LB PUSH PSTACK PUSH PENDING PUSHI #0x00000001 ADD ACCESS ASSVAL LINE 2066 "regression-compile-tmp/pass1.imp" PUSH UB PUSH PSTACK PUSH PENDING PUSHI #0x00000002 ADD ACCESS ASSVAL 2067 %if ub-lb+1 < 0 %start LINE 2067 "regression-compile-tmp/pass1.imp" PUSH UB PUSH LB SUB PUSHI #0x00000001 ADD PUSHI #0x00000000 JUMPIF >= L_0004 2068 pos1 = 0; next = link; fault(11) LINE 2068 "regression-compile-tmp/pass1.imp" PUSH POS1 PUSHI #0x00000000 ASSVAL LINE 2068 "regression-compile-tmp/pass1.imp" PUSH NEXT PUSH LINK ASSVAL LINE 2068 "regression-compile-tmp/pass1.imp" PUSH FAULT PUSHI #0x0000000b ASSPAR CALL 2069 ub = lb LINE 2069 "regression-compile-tmp/pass1.imp" PUSH UB PUSH LB ASSVAL 2070 %finish LINE 2070 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2071 set const(lb); set const(ub) LINE 2071 "regression-compile-tmp/pass1.imp" PUSH SETCONST PUSH LB ASSPAR CALL LINE 2071 "regression-compile-tmp/pass1.imp" PUSH SETCONST PUSH UB ASSPAR CALL 2072 add char( 'b' ) %unless class = 146 LINE 2072 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSHI #0x00000092 JUMPIF = L_0004 PUSH ADDCHAR PUSHI #0x00000062 ASSPAR CALL LOCATE L_0004 2073 %end 2074 LINE 2073 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_COMPILE_SETBP {lev=4 --> 3} 2075 %routine compile end(%integer type) 2076 ! type = 0:eof, 1:eop, 2:end LINE 2075 "regression-compile-tmp/pass1.imp" DEF COMPILEEND (_lev0id0_COMPILEBLOCK_COMPILE_COMPILEEND) p1=V_012e a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF TYPE p1=V_012f a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2077 %if access # 0 %start LINE 2077 "regression-compile-tmp/pass1.imp" PUSH ACCESS PUSHI #0x00000000 JUMPIF = L_0004 2078 open = 0 LINE 2078 "regression-compile-tmp/pass1.imp" PUSH OPEN PUSHI #0x00000000 ASSVAL 2079 fault(19) %if block form > proc; ! can reach end LINE 2079 "regression-compile-tmp/pass1.imp" PUSH BLOCKFORM PUSHI #0x00000007 JUMPIF <= L_0007 PUSH FAULT PUSHI #0x00000013 ASSPAR CALL LOCATE L_0007 2080 %finish 2081 LINE 2080 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2082 %while dict(dmin) >= 0 %cycle; ! finishes & repeats LINE 2082 "regression-compile-tmp/pass1.imp" LOCATE L_0003 PUSH DICT PUSH DMIN ACCESS PUSHI #0x00000000 JUMPIF < L_0004 2083 fault(17+dict(dmin)&1) LINE 2083 "regression-compile-tmp/pass1.imp" PUSH FAULT PUSHI #0x00000011 PUSH DICT PUSH DMIN ACCESS PUSHI #0x00000001 AND ADD ASSPAR CALL 2084 dmin = dmin+1 LINE 2084 "regression-compile-tmp/pass1.imp" PUSH DMIN PUSH DMIN PUSHI #0x00000001 ADD ASSVAL 2085 %repeat 2086 !{delete names(0)} LINE 2085 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 2087 add char( ';' ) LINE 2087 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x0000003b ASSPAR CALL 2088 add char( ';' ) %if type = 1; ! endofprogram 2089 LINE 2088 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000001 JUMPIF # L_0004 PUSH ADDCHAR PUSHI #0x0000003b ASSPAR CALL LOCATE L_0004 2090 bflags = bflags!open; ! show if it returns 2091 LINE 2090 "regression-compile-tmp/pass1.imp" PUSH BFLAGS PUSH BFLAGS PUSH OPEN OR ASSVAL 2092 def lab(0) %if block tag # 0 %and level # 1; ! for jump around LINE 2092 "regression-compile-tmp/pass1.imp" PUSH BLOCKTAG PUSHI #0x00000000 JUMPIF = L_0004 PUSH LEVEL PUSHI #0x00000001 JUMPIF = L_0004 PUSH DEFLAB PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2093 %if type # 2 %start; ! eop, eof LINE 2093 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000002 JUMPIF = L_0004 2094 fault(16) %if level # type; ! end missing LINE 2094 "regression-compile-tmp/pass1.imp" PUSH LEVEL PUSH TYPE JUMPIF = L_0007 PUSH FAULT PUSHI #0x00000010 ASSPAR CALL LOCATE L_0007 2095 %finish %else %start LINE 2095 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 2096 %if level = 0 %start LINE 2096 "regression-compile-tmp/pass1.imp" PUSH LEVEL PUSHI #0x00000000 JUMPIF # L_0007 2097 fault(15); ! spurious end LINE 2097 "regression-compile-tmp/pass1.imp" PUSH FAULT PUSHI #0x0000000f ASSPAR CALL 2098 %finish LINE 2098 "regression-compile-tmp/pass1.imp" LOCATE L_0007 2099 %finish 2100 LINE 2099 "regression-compile-tmp/pass1.imp" LOCATE L_0003 2101 end mark = 11; !******Mouses specific****** LINE 2101 "regression-compile-tmp/pass1.imp" PUSH ENDMARK PUSHI #0x0000000b ASSVAL 2102 %end 2103 LINE 2102 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_COMPILE_COMPILEEND {lev=4 --> 3} 2104 %routine def(%integer p) 2105 !dump a descriptor LINE 2104 "regression-compile-tmp/pass1.imp" DEF DEF (_lev0id0_COMPILEBLOCK_COMPILE_DEF) p1=V_012f a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF P p1=V_0130 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2106 %integer t, f, type LINE 2106 "regression-compile-tmp/pass1.imp" DEF T p1=V_0131 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF F p1=V_0132 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF TYPE p1=V_0133 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2107 %record(tagfm)%name v LINE 2107 "regression-compile-tmp/pass1.imp" DEF V p1=V_0134 a/tf=42 b/format=85 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2108 flush buffer( 1 ); ! flush if bp > 0 LINE 2108 "regression-compile-tmp/pass1.imp" PUSH FLUSHBUFFER PUSHI #0x00000001 ASSPAR CALL 2109 defs = defs+1 LINE 2109 "regression-compile-tmp/pass1.imp" PUSH DEFS PUSH DEFS PUSHI #0x00000001 ADD ASSVAL 2110 v == tag(p) LINE 2110 "regression-compile-tmp/pass1.imp" PUSH V PUSH TAG PUSH P ACCESS ASSREF 2111 t = 0 LINE 2111 "regression-compile-tmp/pass1.imp" PUSH T PUSHI #0x00000000 ASSVAL 2112 %unless v_index < 0 %start; ! no index for subnames LINE 2112 "regression-compile-tmp/pass1.imp" PUSH V SELECT 4 PUSHI #0x00000000 JUMPIF < L_0004 2113 id = id+1 %and v_index = id %if v_index = 0 LINE 2113 "regression-compile-tmp/pass1.imp" PUSH V SELECT 4 PUSHI #0x00000000 JUMPIF # L_0007 PUSH ID PUSH ID PUSHI #0x00000001 ADD ASSVAL PUSH V SELECT 4 PUSH ID ASSVAL LOCATE L_0007 2114 last def = v_index LINE 2114 "regression-compile-tmp/pass1.imp" PUSH LASTDEF PUSH V SELECT 4 ASSVAL 2115 t = last def LINE 2115 "regression-compile-tmp/pass1.imp" PUSH T PUSH LASTDEF ASSVAL 2116 %finish LINE 2116 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2117 op('$', t) LINE 2117 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x00000024 ASSPAR PUSH T ASSPAR CALL 2118 print ident(p, 1); ! output the name LINE 2118 "regression-compile-tmp/pass1.imp" PUSH PRINTIDENT PUSH P ASSPAR PUSHI #0x00000001 ASSPAR CALL 2119 t = v_flags LINE 2119 "regression-compile-tmp/pass1.imp" PUSH T PUSH V SELECT 3 ASSVAL 2120 type = t LINE 2120 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSH T ASSVAL 2121 type = type&(\(7<<4)) %if type&(7<<4) >= 6<<4;!routine & pred LINE 2121 "regression-compile-tmp/pass1.imp" PUSH TYPE PUSHI #0x00000007 PUSHI #0x00000004 LSH AND PUSHI #0x00000006 PUSHI #0x00000004 LSH JUMPIF < L_0004 PUSH TYPE PUSH TYPE PUSHI #0x00000007 PUSHI #0x00000004 LSH NOT AND ASSVAL LOCATE L_0004 2122 op(',', type&2_1111111); ! type & form LINE 2122 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x0000002c ASSPAR PUSH TYPE PUSHI #0x0000007f AND ASSPAR CALL 2123 f = v_format LINE 2123 "regression-compile-tmp/pass1.imp" PUSH F PUSH V SELECT 2 ASSVAL 2124 f = tag(f)_index %if t&16_70 = record<<4 LINE 2124 "regression-compile-tmp/pass1.imp" PUSH T PUSHI #0x00000070 AND PUSHI #0x00000004 PUSHI #0x00000004 LSH JUMPIF # L_0004 PUSH F PUSH TAG PUSH F ACCESS SELECT 4 ASSVAL LOCATE L_0004 2125 f = v_index %if f < 0 LINE 2125 "regression-compile-tmp/pass1.imp" PUSH F PUSHI #0x00000000 JUMPIF >= L_0004 PUSH F PUSH V SELECT 4 ASSVAL LOCATE L_0004 2126 op(',', f); ! format LINE 2126 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x0000002c ASSPAR PUSH F ASSPAR CALL 2127 f = otype+t>>4&2_1111000 LINE 2127 "regression-compile-tmp/pass1.imp" PUSH F PUSH OTYPE PUSH T PUSHI #0x00000004 RSH PUSHI #0x00000078 AND ADD ASSVAL 2128 f = f!8 %if class = 125; ! add spec from %DUP LINE 2128 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSHI #0x0000007d JUMPIF # L_0004 PUSH F PUSH F PUSHI #0x00000008 OR ASSVAL LOCATE L_0004 2129 dim = v_app; ! dimension LINE 2129 "regression-compile-tmp/pass1.imp" PUSH DIM PUSH V SELECT 1 ASSVAL 2130 dim = 0 %unless 0 < dim %and dim <= dim limit LINE 2130 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSH DIM JUMPIF >= L_0005 PUSH DIM PUSHI #0x00000006 JUMPIF <= L_0004 LOCATE L_0005 PUSH DIM PUSHI #0x00000000 ASSVAL LOCATE L_0004 2131 op(',', f+dim<<8); ! otype & spec & prot LINE 2131 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x0000002c ASSPAR PUSH F PUSH DIM PUSHI #0x00000008 LSH ADD ASSPAR CALL 2132 defs = 0 %if t¶meters = 0 LINE 2132 "regression-compile-tmp/pass1.imp" PUSH T PUSHI #0x00001000 AND PUSHI #0x00000000 JUMPIF # L_0004 PUSH DEFS PUSHI #0x00000000 ASSVAL LOCATE L_0004 2133 f = t&15 LINE 2133 "regression-compile-tmp/pass1.imp" PUSH F PUSH T PUSHI #0x0000000f AND ASSVAL 2134 %if v_flags&spec # 0 %start LINE 2134 "regression-compile-tmp/pass1.imp" PUSH V SELECT 3 PUSHI #0x00000080 AND PUSHI #0x00000000 JUMPIF = L_0004 2135 v_flags = v_flags&(\spec) %unless 3 <= f %and f <= 10 LINE 2135 "regression-compile-tmp/pass1.imp" PUSHI #0x00000003 PUSH F JUMPIF > L_0008 PUSH F PUSHI #0x0000000a JUMPIF <= L_0007 LOCATE L_0008 PUSH V SELECT 3 PUSH V SELECT 3 PUSHI #0x00000080 NOT AND ASSVAL LOCATE L_0007 2136 ocount = -1; ! external specs have no constants LINE 2136 "regression-compile-tmp/pass1.imp" PUSH OCOUNT PUSHI #0x00000001 NEGATE ASSVAL 2137 %finish LINE 2137 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2138 dimension = 0 LINE 2138 "regression-compile-tmp/pass1.imp" PUSH DIMENSION PUSHI #0x00000000 ASSVAL 2139 %if otype = 2 %and (f=2 %or f=12 %or f=14) %start LINE 2139 "regression-compile-tmp/pass1.imp" PUSH OTYPE PUSHI #0x00000002 JUMPIF # L_0004 PUSH F PUSHI #0x00000002 JUMPIF = L_0005 PUSH F PUSHI #0x0000000c JUMPIF = L_0005 PUSH F PUSHI #0x0000000e JUMPIF # L_0004 LOCATE L_0005 2140 v_flags = v_flags-1; ! convert to simple LINE 2140 "regression-compile-tmp/pass1.imp" PUSH V SELECT 3 PUSH V SELECT 3 PUSHI #0x00000001 SUB ASSVAL 2141 %finish LINE 2141 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2142 %end 2143 LINE 2142 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_COMPILE_DEF {lev=4 --> 3} 2144 %routine def s lab(%integer n) 2145 ! define a switch label, x defines the switch tag LINE 2144 "regression-compile-tmp/pass1.imp" DEF DEFSLAB (_lev0id0_COMPILEBLOCK_COMPILE_DEFSLAB) p1=V_0130 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF N p1=V_0131 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2146 %integer p, l, b, w, bit LINE 2146 "regression-compile-tmp/pass1.imp" DEF P p1=V_0132 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF L p1=V_0133 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF B p1=V_0134 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF W p1=V_0135 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF BIT p1=V_0136 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2147 p = tag(x)_format; ! pointer to table LINE 2147 "regression-compile-tmp/pass1.imp" PUSH P PUSH TAG PUSH X ACCESS SELECT 2 ASSVAL 2148 l = dict(p); ! lower bound LINE 2148 "regression-compile-tmp/pass1.imp" PUSH L PUSH DICT PUSH P ACCESS ASSVAL 2149 %if l <= n %and n <= dict(p+1) %start LINE 2149 "regression-compile-tmp/pass1.imp" PUSH L PUSH N JUMPIF > L_0004 PUSH N PUSH DICT PUSH P PUSHI #0x00000001 ADD ACCESS JUMPIF > L_0004 2150 b = n-l LINE 2150 "regression-compile-tmp/pass1.imp" PUSH B PUSH N PUSH L SUB ASSVAL 2151 w = b>>4+p LINE 2151 "regression-compile-tmp/pass1.imp" PUSH W PUSH B PUSHI #0x00000004 RSH PUSH P ADD ASSVAL 2152 bit = 1<<(b&15) LINE 2152 "regression-compile-tmp/pass1.imp" PUSH BIT PUSHI #0x00000001 PUSH B PUSHI #0x0000000f AND LSH ASSVAL 2153 %if dict(w+2)&bit # 0 %start; ! already set LINE 2153 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH W PUSHI #0x00000002 ADD ACCESS PUSH BIT AND PUSHI #0x00000000 JUMPIF = L_0007 2154 fault(4) %if pending # 0 LINE 2154 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSHI #0x00000000 JUMPIF = L_000a PUSH FAULT PUSHI #0x00000004 ASSPAR CALL LOCATE L_000a 2155 %return LINE 2155 "regression-compile-tmp/pass1.imp" RETURN 2156 %finish LINE 2156 "regression-compile-tmp/pass1.imp" LOCATE L_0007 2157 dict(w+2) = dict(w+2)!bit %if pending # 0 LINE 2157 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSHI #0x00000000 JUMPIF = L_0007 PUSH DICT PUSH W PUSHI #0x00000002 ADD ACCESS PUSH DICT PUSH W PUSHI #0x00000002 ADD ACCESS PUSH BIT OR ASSVAL LOCATE L_0007 2158 set const(n) LINE 2158 "regression-compile-tmp/pass1.imp" PUSH SETCONST PUSH N ASSPAR CALL 2159 op('_', tag(x)_index) LINE 2159 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x0000005f ASSPAR PUSH TAG PUSH X ACCESS SELECT 4 ASSPAR CALL 2160 %finish %else %start LINE 2160 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 2161 fault(12) LINE 2161 "regression-compile-tmp/pass1.imp" PUSH FAULT PUSHI #0x0000000c ASSPAR CALL 2162 %finish LINE 2162 "regression-compile-tmp/pass1.imp" LOCATE L_0003 2163 access = 1 LINE 2163 "regression-compile-tmp/pass1.imp" PUSH ACCESS PUSHI #0x00000001 ASSVAL 2164 %end 2165 LINE 2164 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_COMPILE_DEFSLAB {lev=4 --> 3} 2166 %routine call LINE 2166 "regression-compile-tmp/pass1.imp" DEF CALL (_lev0id0_COMPILEBLOCK_COMPILE_CALL) p1=V_0131 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2167 %record(tagfm)%name T LINE 2167 "regression-compile-tmp/pass1.imp" DEF T p1=V_0132 a/tf=42 b/format=85 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2168 t == tag(x) LINE 2168 "regression-compile-tmp/pass1.imp" PUSH T PUSH TAG PUSH X ACCESS ASSREF 2169 op('@', t_index) LINE 2169 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x00000040 ASSPAR PUSH T SELECT 4 ASSPAR CALL 2170 access = 0 %if t_flags&closed # 0; ! never comes back LINE 2170 "regression-compile-tmp/pass1.imp" PUSH T SELECT 3 PUSHI #0x00004000 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH ACCESS PUSHI #0x00000000 ASSVAL LOCATE L_0004 2171 add char( 'E' ) %if t_app = 0; ! no parameters LINE 2171 "regression-compile-tmp/pass1.imp" PUSH T SELECT 1 PUSHI #0x00000000 JUMPIF # L_0004 PUSH ADDCHAR PUSHI #0x00000045 ASSPAR CALL LOCATE L_0004 2172 %end 2173 LINE 2172 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_COMPILE_CALL {lev=4 --> 3} 2174 %routine pop def LINE 2174 "regression-compile-tmp/pass1.imp" DEF POPDEF (_lev0id0_COMPILEBLOCK_COMPILE_POPDEF) p1=V_0132 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2175 set const(pstack(pending)); pending = pending-1 LINE 2175 "regression-compile-tmp/pass1.imp" PUSH SETCONST PUSH PSTACK PUSH PENDING ACCESS ASSPAR CALL LINE 2175 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSH PENDING PUSHI #0x00000001 SUB ASSVAL 2176 %end 2177 LINE 2176 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_COMPILE_POPDEF {lev=4 --> 3} 2178 %routine pop lit LINE 2178 "regression-compile-tmp/pass1.imp" DEF POPLIT (_lev0id0_COMPILEBLOCK_COMPILE_POPLIT) p1=V_0133 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2179 %if pending = 0 %then lit = 0 %else %start LINE 2179 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSHI #0x00000000 JUMPIF # L_0004 PUSH LIT PUSHI #0x00000000 ASSVAL GOTO L_0003 LOCATE L_0004 2180 lit = pstack(pending); pending = pending-1 LINE 2180 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH PSTACK PUSH PENDING ACCESS ASSVAL LINE 2180 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSH PENDING PUSHI #0x00000001 SUB ASSVAL 2181 %finish LINE 2181 "regression-compile-tmp/pass1.imp" LOCATE L_0003 2182 %end 2183 2184 !conditions & jumps LINE 2182 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_COMPILE_POPLIT {lev=4 --> 3} 2185 %routine push(%integer x) LINE 2185 "regression-compile-tmp/pass1.imp" DEF PUSH (_lev0id0_COMPILEBLOCK_COMPILE_PUSH) p1=V_0134 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF X p1=V_0135 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2186 %if cnest(cp)&2 # x %start LINE 2186 "regression-compile-tmp/pass1.imp" PUSH CNEST PUSH CP ACCESS PUSHI #0x00000002 AND PUSH X JUMPIF = L_0004 2187 cnest(cp) = cnest(cp)!1; x = x+4 LINE 2187 "regression-compile-tmp/pass1.imp" PUSH CNEST PUSH CP ACCESS PUSH CNEST PUSH CP ACCESS PUSHI #0x00000001 OR ASSVAL LINE 2187 "regression-compile-tmp/pass1.imp" PUSH X PUSH X PUSHI #0x00000004 ADD ASSVAL 2188 %finish LINE 2188 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2189 clab = clab+1 %if cnest(cp)&1 # 0 LINE 2189 "regression-compile-tmp/pass1.imp" PUSH CNEST PUSH CP ACCESS PUSHI #0x00000001 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH CLAB PUSH CLAB PUSHI #0x00000001 ADD ASSVAL LOCATE L_0004 2190 cnest(cp+1) = x; cp = cp+1 LINE 2190 "regression-compile-tmp/pass1.imp" PUSH CNEST PUSH CP PUSHI #0x00000001 ADD ACCESS PUSH X ASSVAL LINE 2190 "regression-compile-tmp/pass1.imp" PUSH CP PUSH CP PUSHI #0x00000001 ADD ASSVAL 2191 %end 2192 LINE 2191 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_COMPILE_PUSH {lev=4 --> 3} 2193 %routine pop label(%integer mode) LINE 2193 "regression-compile-tmp/pass1.imp" DEF POPLABEL (_lev0id0_COMPILEBLOCK_COMPILE_POPLABEL) p1=V_0135 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF MODE p1=V_0136 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2194 lmode = dict(dmin) LINE 2194 "regression-compile-tmp/pass1.imp" PUSH LMODE PUSH DICT PUSH DMIN ACCESS ASSVAL 2195 %if lmode < 0 %or lmode&1 # mode %start LINE 2195 "regression-compile-tmp/pass1.imp" PUSH LMODE PUSHI #0x00000000 JUMPIF < L_0005 PUSH LMODE PUSHI #0x00000001 AND PUSH MODE JUMPIF = L_0004 LOCATE L_0005 2196 fault(mode+8) LINE 2196 "regression-compile-tmp/pass1.imp" PUSH FAULT PUSH MODE PUSHI #0x00000008 ADD ASSPAR CALL 2197 %finish %else %start LINE 2197 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 2198 dmin = dmin+1; label = label-3 LINE 2198 "regression-compile-tmp/pass1.imp" PUSH DMIN PUSH DMIN PUSHI #0x00000001 ADD ASSVAL LINE 2198 "regression-compile-tmp/pass1.imp" PUSH LABEL PUSH LABEL PUSHI #0x00000003 SUB ASSVAL 2199 %finish LINE 2199 "regression-compile-tmp/pass1.imp" LOCATE L_0003 2200 %end 2201 LINE 2200 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_COMPILE_POPLABEL {lev=4 --> 3} 2202 %if sstype < 0 %start; ! executable statement LINE 2202 "regression-compile-tmp/pass1.imp" PUSH SSTYPE PUSHI #0x00000000 JUMPIF >= L_0004 2203 %if level = 0 %start; ! outermost level LINE 2203 "regression-compile-tmp/pass1.imp" PUSH LEVEL PUSHI #0x00000000 JUMPIF # L_0007 2204 fault(13); ! *order LINE 2204 "regression-compile-tmp/pass1.imp" PUSH FAULT PUSHI #0x0000000d ASSPAR CALL 2205 %finish %else %start LINE 2205 "regression-compile-tmp/pass1.imp" GOTO L_0006 LOCATE L_0007 2206 %if access = 0 %start LINE 2206 "regression-compile-tmp/pass1.imp" PUSH ACCESS PUSHI #0x00000000 JUMPIF # L_000a 2207 access = 1; fault(-1); ! only a warning LINE 2207 "regression-compile-tmp/pass1.imp" PUSH ACCESS PUSHI #0x00000001 ASSVAL LINE 2207 "regression-compile-tmp/pass1.imp" PUSH FAULT PUSHI #0x00000001 NEGATE ASSPAR CALL 2208 %finish LINE 2208 "regression-compile-tmp/pass1.imp" LOCATE L_000a 2209 %finish LINE 2209 "regression-compile-tmp/pass1.imp" LOCATE L_0006 2210 %finish 2211 LINE 2210 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2212 %if diag&2 # 0 %start LINE 2212 "regression-compile-tmp/pass1.imp" PUSH DIAG PUSHI #0x00000002 AND PUSHI #0x00000000 JUMPIF = L_0004 2213 newline %if sym # nl LINE 2213 "regression-compile-tmp/pass1.imp" PUSH SYM PUSHI #0x0000000a JUMPIF = L_0007 PUSH NEWLINE CALL LOCATE L_0007 2214 printstring("ss =") LINE 2214 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS "ss =" ASSPAR CALL 2215 write(ss, 1) LINE 2215 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH SS ASSPAR PUSHI #0x00000001 ASSPAR CALL 2216 newline LINE 2216 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 2217 count = 5 LINE 2217 "regression-compile-tmp/pass1.imp" PUSH COUNT PUSHI #0x00000005 ASSVAL 2218 name = "" LINE 2218 "regression-compile-tmp/pass1.imp" PUSH NAME PUSHS "" ASSVAL 2219 %finish 2220 LINE 2219 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2221 next = ss LINE 2221 "regression-compile-tmp/pass1.imp" PUSH NEXT PUSH SS ASSVAL 2222 pending = 0; lmode = 0 LINE 2222 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSHI #0x00000000 ASSVAL LINE 2222 "regression-compile-tmp/pass1.imp" PUSH LMODE PUSHI #0x00000000 ASSVAL 2223 link = 0; decs = 0 LINE 2223 "regression-compile-tmp/pass1.imp" PUSH LINK PUSHI #0x00000000 ASSVAL LINE 2223 "regression-compile-tmp/pass1.imp" PUSH DECS PUSHI #0x00000000 ASSVAL 2224 defs = 0; resln = 0; done = 0 LINE 2224 "regression-compile-tmp/pass1.imp" PUSH DEFS PUSHI #0x00000000 ASSVAL LINE 2224 "regression-compile-tmp/pass1.imp" PUSH RESLN PUSHI #0x00000000 ASSVAL LINE 2224 "regression-compile-tmp/pass1.imp" PUSH DONE PUSHI #0x00000000 ASSVAL 2225 ord = level LINE 2225 "regression-compile-tmp/pass1.imp" PUSH ORD PUSH LEVEL ASSVAL 2226 ord = 1 %if this >= 0; ! recordformat declarations LINE 2226 "regression-compile-tmp/pass1.imp" PUSH THIS PUSHI #0x00000000 JUMPIF < L_0004 PUSH ORD PUSHI #0x00000001 ASSVAL LOCATE L_0004 2227 c(0): LINE 2227 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 SLABEL 267 2228 top: %if next # link %start LINE 2228 "regression-compile-tmp/pass1.imp" LABEL L_0136 LINE 2228 "regression-compile-tmp/pass1.imp" PUSH NEXT PUSH LINK JUMPIF = L_0004 2229 get next; ->c(class) LINE 2229 "regression-compile-tmp/pass1.imp" PUSH GETNEXT CALL LINE 2229 "regression-compile-tmp/pass1.imp" PUSH CLASS SJUMP 267 2230 %finish 2231 2232 !all done, tidy up declarations and jumps LINE 2230 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2233 newline %if diag&2 # 0 %and count # 5 2234 LINE 2233 "regression-compile-tmp/pass1.imp" PUSH DIAG PUSHI #0x00000002 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH COUNT PUSHI #0x00000005 JUMPIF = L_0004 PUSH NEWLINE CALL LOCATE L_0004 2235 %if lmode&(loop!then!else) # 0 %start; ! pending labels and jumps LINE 2235 "regression-compile-tmp/pass1.imp" PUSH LMODE PUSHI #0x00000010 PUSHI #0x00000004 OR PUSHI #0x00000008 OR AND PUSHI #0x00000000 JUMPIF = L_0004 2236 op('B', label-1) %if lmode&loop # 0; ! repeat LINE 2236 "regression-compile-tmp/pass1.imp" PUSH LMODE PUSHI #0x00000010 AND PUSHI #0x00000000 JUMPIF = L_0007 PUSH OP PUSHI #0x00000042 ASSPAR PUSH LABEL PUSHI #0x00000001 SUB ASSPAR CALL LOCATE L_0007 2237 def lab(label) %if lmode&then # 0; ! entry from then LINE 2237 "regression-compile-tmp/pass1.imp" PUSH LMODE PUSHI #0x00000004 AND PUSHI #0x00000000 JUMPIF = L_0007 PUSH DEFLAB PUSH LABEL ASSPAR CALL LOCATE L_0007 2238 def lab(label-1) %if lmode&else # 0; ! entry from else LINE 2238 "regression-compile-tmp/pass1.imp" PUSH LMODE PUSHI #0x00000008 AND PUSHI #0x00000000 JUMPIF = L_0007 PUSH DEFLAB PUSH LABEL PUSHI #0x00000001 SUB ASSPAR CALL LOCATE L_0007 2239 %finish 2240 LINE 2239 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2241 %return %if decs = 0 LINE 2241 "regression-compile-tmp/pass1.imp" PUSH DECS PUSHI #0x00000000 JUMPIF # L_0004 RETURN LOCATE L_0004 2242 atom1 = error %and %return %if atom1 # 0; ! %integerroutine LINE 2242 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00000000 JUMPIF = L_0004 PUSH ATOM1 PUSHI #0x00008000 ASSVAL RETURN LOCATE L_0004 2243 order = ord LINE 2243 "regression-compile-tmp/pass1.imp" PUSH ORDER PUSH ORD ASSVAL 2244 decl = decl&(\15)+decmap(decl&15); ! construct declarator flags LINE 2244 "regression-compile-tmp/pass1.imp" PUSH DECL PUSH DECL PUSHI #0x0000000f NOT AND PUSH DECMAP PUSH DECL PUSHI #0x0000000f AND ACCESS ADD ASSVAL 2245 atom1 = atoms(decl&15); ! generate class LINE 2245 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSH ATOMS PUSH DECL PUSHI #0x0000000f AND ACCESS ASSVAL 2246 %if otype # 0 %start; ! own, const etc. LINE 2246 "regression-compile-tmp/pass1.imp" PUSH OTYPE PUSHI #0x00000000 JUMPIF = L_0004 2247 atom1 = atom1+1 %if atom1 # proc LINE 2247 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00000007 JUMPIF = L_0007 PUSH ATOM1 PUSH ATOM1 PUSHI #0x00000001 ADD ASSVAL LOCATE L_0007 2248 %if otype = 2 %start; ! const LINE 2248 "regression-compile-tmp/pass1.imp" PUSH OTYPE PUSHI #0x00000002 JUMPIF # L_0007 2249 n = decl&15 LINE 2249 "regression-compile-tmp/pass1.imp" PUSH N PUSH DECL PUSHI #0x0000000f AND ASSVAL 2250 %if n&1 # 0 %start LINE 2250 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x00000001 AND PUSHI #0x00000000 JUMPIF = L_000a 2251 decl = decl!prot LINE 2251 "regression-compile-tmp/pass1.imp" PUSH DECL PUSH DECL PUSHI #0x00000100 OR ASSVAL 2252 decl = decl!const bit %if decl&2_1111111 = iform LINE 2252 "regression-compile-tmp/pass1.imp" PUSH DECL PUSHI #0x0000007f AND PUSHI #0x00000011 JUMPIF # L_000d PUSH DECL PUSH DECL PUSHI #0x00002000 OR ASSVAL LOCATE L_000d 2253 %finish LINE 2253 "regression-compile-tmp/pass1.imp" LOCATE L_000a 2254 %else LINE 2254 "regression-compile-tmp/pass1.imp" GOTO L_0006 LOCATE L_0007 2255 decl = decl!own bit LINE 2255 "regression-compile-tmp/pass1.imp" PUSH DECL PUSH DECL PUSHI #0x00000200 OR ASSVAL 2256 %finish LINE 2256 "regression-compile-tmp/pass1.imp" LOCATE L_0006 2257 %finish LINE 2257 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2258 sstype = 1 %if sstype = 0 %and atom1 = proc LINE 2258 "regression-compile-tmp/pass1.imp" PUSH SSTYPE PUSHI #0x00000000 JUMPIF # L_0004 PUSH ATOM1 PUSHI #0x00000007 JUMPIF # L_0004 PUSH SSTYPE PUSHI #0x00000001 ASSVAL LOCATE L_0004 2259 atom1 = atom1+1 %if decl&spec # 0; ! onto spec variant LINE 2259 "regression-compile-tmp/pass1.imp" PUSH DECL PUSHI #0x00000080 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH ATOM1 PUSH ATOM1 PUSHI #0x00000001 ADD ASSVAL LOCATE L_0004 2260 ocount = 0 %and cont = '+' %if atom1 = 5; ! own array LINE 2260 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00000005 JUMPIF # L_0004 PUSH OCOUNT PUSHI #0x00000000 ASSVAL PUSH CONT PUSHI #0x0000002b ASSVAL LOCATE L_0004 2261 %if anyform(decl&15) = 0 %start; ! check meaningful LINE 2261 "regression-compile-tmp/pass1.imp" PUSH ANYFORM PUSH DECL PUSHI #0x0000000f AND ACCESS PUSHI #0x00000000 JUMPIF # L_0004 2262 %if decl>>4&7 = record %start LINE 2262 "regression-compile-tmp/pass1.imp" PUSH DECL PUSHI #0x00000004 RSH PUSHI #0x00000007 AND PUSHI #0x00000004 JUMPIF # L_0007 2263 this = fdef %if tag(fdef)_flags&spec # 0 LINE 2263 "regression-compile-tmp/pass1.imp" PUSH TAG PUSH FDEF ACCESS SELECT 3 PUSHI #0x00000080 AND PUSHI #0x00000000 JUMPIF = L_000a PUSH THIS PUSH FDEF ASSVAL LOCATE L_000a 2264 atom1 = error+21 %if fdef = this; ! *context for format LINE 2264 "regression-compile-tmp/pass1.imp" PUSH FDEF PUSH THIS JUMPIF # L_000a PUSH ATOM1 PUSHI #0x00008000 PUSHI #0x00000015 ADD ASSVAL LOCATE L_000a 2265 %finish LINE 2265 "regression-compile-tmp/pass1.imp" LOCATE L_0007 2266 atom1 = error+10 %if fdef = 0; ! *size LINE 2266 "regression-compile-tmp/pass1.imp" PUSH FDEF PUSHI #0x00000000 JUMPIF # L_0007 PUSH ATOM1 PUSHI #0x00008000 PUSHI #0x0000000a ADD ASSVAL LOCATE L_0007 2267 %finish LINE 2267 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2268 %return 2269 LINE 2268 "regression-compile-tmp/pass1.imp" RETURN 2270 atop: access = 0; ->top 2271 ! declarators LINE 2270 "regression-compile-tmp/pass1.imp" LABEL L_0137 LINE 2270 "regression-compile-tmp/pass1.imp" PUSH ACCESS PUSHI #0x00000000 ASSVAL LINE 2270 "regression-compile-tmp/pass1.imp" JUMP L_0136 2272 c(88): ; ! rtype LINE 2272 "regression-compile-tmp/pass1.imp" PUSHI #0x00000058 SLABEL 267 2273 c(28): decl = x&(\7); ! stype LINE 2273 "regression-compile-tmp/pass1.imp" PUSHI #0x0000001c SLABEL 267 LINE 2273 "regression-compile-tmp/pass1.imp" PUSH DECL PUSH X PUSHI #0x00000007 NOT AND ASSVAL 2274 fdef = x&7; ! precision LINE 2274 "regression-compile-tmp/pass1.imp" PUSH FDEF PUSH X PUSHI #0x00000007 AND ASSVAL 2275 fdef = reals ln %if x&2_1110001 = real<<4+1; ! convert to long LINE 2275 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000071 AND PUSHI #0x00000002 PUSHI #0x00000004 LSH PUSHI #0x00000001 ADD JUMPIF # L_0004 PUSH FDEF PUSH REALSLN ASSVAL LOCATE L_0004 2276 decs = 1; ->top LINE 2276 "regression-compile-tmp/pass1.imp" PUSH DECS PUSHI #0x00000001 ASSVAL LINE 2276 "regression-compile-tmp/pass1.imp" JUMP L_0136 2277 c(34): ; ! own LINE 2277 "regression-compile-tmp/pass1.imp" PUSHI #0x00000022 SLABEL 267 2278 c(35): otype = x; ord = 1; ->top; ! external LINE 2278 "regression-compile-tmp/pass1.imp" PUSHI #0x00000023 SLABEL 267 LINE 2278 "regression-compile-tmp/pass1.imp" PUSH OTYPE PUSH X ASSVAL LINE 2278 "regression-compile-tmp/pass1.imp" PUSH ORD PUSHI #0x00000001 ASSVAL LINE 2278 "regression-compile-tmp/pass1.imp" JUMP L_0136 2279 c(152): decl = decl+x<<1; ->top; ! xname LINE 2279 "regression-compile-tmp/pass1.imp" PUSHI #0x00000098 SLABEL 267 LINE 2279 "regression-compile-tmp/pass1.imp" PUSH DECL PUSH DECL PUSH X PUSHI #0x00000001 LSH ADD ASSVAL LINE 2279 "regression-compile-tmp/pass1.imp" JUMP L_0136 2280 c(31): ; ! proc LINE 2280 "regression-compile-tmp/pass1.imp" PUSHI #0x0000001f SLABEL 267 2281 c(32): spec mode = level+1; ! fn/map LINE 2281 "regression-compile-tmp/pass1.imp" PUSHI #0x00000020 SLABEL 267 LINE 2281 "regression-compile-tmp/pass1.imp" PUSH SPECMODE PUSH LEVEL PUSHI #0x00000001 ADD ASSVAL 2282 decl = decl!prot %if x = 9; ! function LINE 2282 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000009 JUMPIF # L_0004 PUSH DECL PUSH DECL PUSHI #0x00000100 OR ASSVAL LOCATE L_0004 2283 c(29): ord = 1; ! array LINE 2283 "regression-compile-tmp/pass1.imp" PUSHI #0x0000001d SLABEL 267 LINE 2283 "regression-compile-tmp/pass1.imp" PUSH ORD PUSHI #0x00000001 ASSVAL 2284 dim = 0 LINE 2284 "regression-compile-tmp/pass1.imp" PUSH DIM PUSHI #0x00000000 ASSVAL 2285 c(30): decl = decl+x; ! name LINE 2285 "regression-compile-tmp/pass1.imp" PUSHI #0x0000001e SLABEL 267 LINE 2285 "regression-compile-tmp/pass1.imp" PUSH DECL PUSH DECL PUSH X ADD ASSVAL 2286 decs = 1 LINE 2286 "regression-compile-tmp/pass1.imp" PUSH DECS PUSHI #0x00000001 ASSVAL 2287 ->top LINE 2287 "regression-compile-tmp/pass1.imp" JUMP L_0136 2288 c(27): lit = 0; ! arrayd LINE 2288 "regression-compile-tmp/pass1.imp" PUSHI #0x0000001b SLABEL 267 LINE 2288 "regression-compile-tmp/pass1.imp" PUSH LIT PUSHI #0x00000000 ASSVAL 2289 %if pending # 0 %start LINE 2289 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSHI #0x00000000 JUMPIF = L_0004 2290 pop lit LINE 2290 "regression-compile-tmp/pass1.imp" PUSH POPLIT CALL 2291 %unless 0= L_0008 PUSH LIT PUSHI #0x00000006 JUMPIF <= L_0007 LOCATE L_0008 2292 atom1 = error + 11; %return LINE 2292 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00008000 PUSHI #0x0000000b ADD ASSVAL LINE 2292 "regression-compile-tmp/pass1.imp" RETURN 2293 %finish LINE 2293 "regression-compile-tmp/pass1.imp" LOCATE L_0007 2294 %finish LINE 2294 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2295 dim = lit LINE 2295 "regression-compile-tmp/pass1.imp" PUSH DIM PUSH LIT ASSVAL 2296 decl = decl + x; decs = 1 LINE 2296 "regression-compile-tmp/pass1.imp" PUSH DECL PUSH DECL PUSH X ADD ASSVAL LINE 2296 "regression-compile-tmp/pass1.imp" PUSH DECS PUSHI #0x00000001 ASSVAL 2297 -> top LINE 2297 "regression-compile-tmp/pass1.imp" JUMP L_0136 2298 c(37): x = x!subname; ! record LINE 2298 "regression-compile-tmp/pass1.imp" PUSHI #0x00000025 SLABEL 267 LINE 2298 "regression-compile-tmp/pass1.imp" PUSH X PUSH X PUSHI #0x00000800 OR ASSVAL 2299 c(36): lit = 0; ! string LINE 2299 "regression-compile-tmp/pass1.imp" PUSHI #0x00000024 SLABEL 267 LINE 2299 "regression-compile-tmp/pass1.imp" PUSH LIT PUSHI #0x00000000 ASSVAL 2300 %if pending # 0 %start LINE 2300 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSHI #0x00000000 JUMPIF = L_0004 2301 pop lit LINE 2301 "regression-compile-tmp/pass1.imp" PUSH POPLIT CALL 2302 %unless 0 < lit %and lit <= 255 %start; ! max length wrong LINE 2302 "regression-compile-tmp/pass1.imp" PUSHI #0x00000000 PUSH LIT JUMPIF >= L_0008 PUSH LIT PUSHI #0x000000ff JUMPIF <= L_0007 LOCATE L_0008 2303 atom1 = error+10; %return LINE 2303 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x00008000 PUSHI #0x0000000a ADD ASSVAL LINE 2303 "regression-compile-tmp/pass1.imp" RETURN 2304 %finish LINE 2304 "regression-compile-tmp/pass1.imp" LOCATE L_0007 2305 %finish LINE 2305 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2306 fdef = lit; ! format or length LINE 2306 "regression-compile-tmp/pass1.imp" PUSH FDEF PUSH LIT ASSVAL 2307 c(33): decl = x; ! switch LINE 2307 "regression-compile-tmp/pass1.imp" PUSHI #0x00000021 SLABEL 267 LINE 2307 "regression-compile-tmp/pass1.imp" PUSH DECL PUSH X ASSVAL 2308 decs = 1 LINE 2308 "regression-compile-tmp/pass1.imp" PUSH DECS PUSHI #0x00000001 ASSVAL 2309 ->top LINE 2309 "regression-compile-tmp/pass1.imp" JUMP L_0136 2310 c(39): decl = decl!spec; ! spec LINE 2310 "regression-compile-tmp/pass1.imp" PUSHI #0x00000027 SLABEL 267 LINE 2310 "regression-compile-tmp/pass1.imp" PUSH DECL PUSH DECL PUSHI #0x00000080 OR ASSVAL 2311 ocount = -1; ! no initialisation LINE 2311 "regression-compile-tmp/pass1.imp" PUSH OCOUNT PUSHI #0x00000001 NEGATE ASSVAL 2312 spec mode = -1 LINE 2312 "regression-compile-tmp/pass1.imp" PUSH SPECMODE PUSHI #0x00000001 NEGATE ASSVAL 2313 ->top LINE 2313 "regression-compile-tmp/pass1.imp" JUMP L_0136 2314 c(38): decl = 64+4; ! recordformat (spec) LINE 2314 "regression-compile-tmp/pass1.imp" PUSHI #0x00000026 SLABEL 267 LINE 2314 "regression-compile-tmp/pass1.imp" PUSH DECL PUSHI #0x00000040 PUSHI #0x00000004 ADD ASSVAL 2315 order = 1 LINE 2315 "regression-compile-tmp/pass1.imp" PUSH ORDER PUSHI #0x00000001 ASSVAL 2316 atom1 = x LINE 2316 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSH X ASSVAL 2317 decl = decl!spec %if atom1 = 12; ! formatspec LINE 2317 "regression-compile-tmp/pass1.imp" PUSH ATOM1 PUSHI #0x0000000c JUMPIF # L_0004 PUSH DECL PUSH DECL PUSHI #0x00000080 OR ASSVAL LOCATE L_0004 2318 fdef = tmax+1; ! format tag LINE 2318 "regression-compile-tmp/pass1.imp" PUSH FDEF PUSH TMAX PUSHI #0x00000001 ADD ASSVAL 2319 %return LINE 2319 "regression-compile-tmp/pass1.imp" RETURN 2320 c(175): id = id+1; tag(x)_index = id; %return; ! FSID LINE 2320 "regression-compile-tmp/pass1.imp" PUSHI #0x000000af SLABEL 267 LINE 2320 "regression-compile-tmp/pass1.imp" PUSH ID PUSH ID PUSHI #0x00000001 ADD ASSVAL LINE 2320 "regression-compile-tmp/pass1.imp" PUSH TAG PUSH X ACCESS SELECT 4 PUSH ID ASSVAL LINE 2320 "regression-compile-tmp/pass1.imp" RETURN 2321 c(41): decs = 1; decl = x!spec!closed; ->top; ! label LINE 2321 "regression-compile-tmp/pass1.imp" PUSHI #0x00000029 SLABEL 267 LINE 2321 "regression-compile-tmp/pass1.imp" PUSH DECS PUSHI #0x00000001 ASSVAL LINE 2321 "regression-compile-tmp/pass1.imp" PUSH DECL PUSH X PUSHI #0x00000080 OR PUSHI #0x00004000 OR ASSVAL LINE 2321 "regression-compile-tmp/pass1.imp" JUMP L_0136 2322 c(133): recid = 0; rbase = tmin-1; ! fname LINE 2322 "regression-compile-tmp/pass1.imp" PUSHI #0x00000085 SLABEL 267 LINE 2322 "regression-compile-tmp/pass1.imp" PUSH RECID PUSHI #0x00000000 ASSVAL LINE 2322 "regression-compile-tmp/pass1.imp" PUSH RBASE PUSH TMIN PUSHI #0x00000001 SUB ASSVAL 2323 this = x LINE 2323 "regression-compile-tmp/pass1.imp" PUSH THIS PUSH X ASSVAL 2324 fm base = fdef; format list = tmin LINE 2324 "regression-compile-tmp/pass1.imp" PUSH FMBASE PUSH FDEF ASSVAL LINE 2324 "regression-compile-tmp/pass1.imp" PUSH FORMATLIST PUSH TMIN ASSVAL 2325 def(this); ->top LINE 2325 "regression-compile-tmp/pass1.imp" PUSH DEF PUSH THIS ASSPAR CALL LINE 2325 "regression-compile-tmp/pass1.imp" JUMP L_0136 2326 c(148): fdef = 0 %and ->top %if next = 0; ! reclb LINE 2326 "regression-compile-tmp/pass1.imp" PUSHI #0x00000094 SLABEL 267 LINE 2326 "regression-compile-tmp/pass1.imp" PUSH NEXT PUSHI #0x00000000 JUMPIF # L_0004 PUSH FDEF PUSHI #0x00000000 ASSVAL JUMP L_0136 LOCATE L_0004 2327 get next; ! skip name LINE 2327 "regression-compile-tmp/pass1.imp" PUSH GETNEXT CALL 2328 fdef = x LINE 2328 "regression-compile-tmp/pass1.imp" PUSH FDEF PUSH X ASSVAL 2329 ->top 2330 LINE 2329 "regression-compile-tmp/pass1.imp" JUMP L_0136 2331 c(127): add char( '}' ); ->top; ! %POUT LINE 2331 "regression-compile-tmp/pass1.imp" PUSHI #0x0000007f SLABEL 267 LINE 2331 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x0000007d ASSPAR CALL LINE 2331 "regression-compile-tmp/pass1.imp" JUMP L_0136 2332 c(126): add char( '{' ); ->top; ! %PIN LINE 2332 "regression-compile-tmp/pass1.imp" PUSHI #0x0000007e SLABEL 267 LINE 2332 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x0000007b ASSPAR CALL LINE 2332 "regression-compile-tmp/pass1.imp" JUMP L_0136 2333 c(174): set bp; ! rangerb LINE 2333 "regression-compile-tmp/pass1.imp" PUSHI #0x000000ae SLABEL 267 LINE 2333 "regression-compile-tmp/pass1.imp" PUSH SETBP CALL 2334 c(171): ; ! fmlb LINE 2334 "regression-compile-tmp/pass1.imp" PUSHI #0x000000ab SLABEL 267 2335 c(172): ; ! fmrb LINE 2335 "regression-compile-tmp/pass1.imp" PUSHI #0x000000ac SLABEL 267 2336 c(173): add char( '~' ) LINE 2336 "regression-compile-tmp/pass1.imp" PUSHI #0x000000ad SLABEL 267 LINE 2336 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x0000007e ASSPAR CALL 2337 add char( class-171+'A' ); ->top; ! fmor LINE 2337 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSH CLASS PUSHI #0x000000ab SUB PUSHI #0x00000041 ADD ASSPAR CALL LINE 2337 "regression-compile-tmp/pass1.imp" JUMP L_0136 2338 c(168): rbase = -rbase; ! orrb LINE 2338 "regression-compile-tmp/pass1.imp" PUSHI #0x000000a8 SLABEL 267 LINE 2338 "regression-compile-tmp/pass1.imp" PUSH RBASE PUSH RBASE NEGATE ASSVAL 2339 sstype = 0; spec mode = 0 2340 LINE 2339 "regression-compile-tmp/pass1.imp" PUSH SSTYPE PUSHI #0x00000000 ASSVAL LINE 2339 "regression-compile-tmp/pass1.imp" PUSH SPECMODE PUSHI #0x00000000 ASSVAL 2341 c(147): search base = 0; ! recrb LINE 2341 "regression-compile-tmp/pass1.imp" PUSHI #0x00000093 SLABEL 267 LINE 2341 "regression-compile-tmp/pass1.imp" PUSH SEARCHBASE PUSHI #0x00000000 ASSVAL 2342 tag(this)_app = tmin LINE 2342 "regression-compile-tmp/pass1.imp" PUSH TAG PUSH THIS ACCESS SELECT 1 PUSH TMIN ASSVAL 2343 tag(this)_format = rbase LINE 2343 "regression-compile-tmp/pass1.imp" PUSH TAG PUSH THIS ACCESS SELECT 2 PUSH RBASE ASSVAL 2344 ->top 2345 LINE 2344 "regression-compile-tmp/pass1.imp" JUMP L_0136 2346 c(45): add char( 'U' ) %if x = 36; ->top; ! sign LINE 2346 "regression-compile-tmp/pass1.imp" PUSHI #0x0000002d SLABEL 267 LINE 2346 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000024 JUMPIF # L_0004 PUSH ADDCHAR PUSHI #0x00000055 ASSPAR CALL LOCATE L_0004 LINE 2346 "regression-compile-tmp/pass1.imp" JUMP L_0136 2347 c(46): add char( '\' ); ->top; ! uop LINE 2347 "regression-compile-tmp/pass1.imp" PUSHI #0x0000002e SLABEL 267 LINE 2347 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x0000005c ASSPAR CALL LINE 2347 "regression-compile-tmp/pass1.imp" JUMP L_0136 2348 c(47):; ! mod LINE 2348 "regression-compile-tmp/pass1.imp" PUSHI #0x0000002f SLABEL 267 2349 c(48):; ! dot LINE 2349 "regression-compile-tmp/pass1.imp" PUSHI #0x00000030 SLABEL 267 2350 c(42):; ! op1 LINE 2350 "regression-compile-tmp/pass1.imp" PUSHI #0x0000002a SLABEL 267 2351 c(43):; ! op2 LINE 2351 "regression-compile-tmp/pass1.imp" PUSHI #0x0000002b SLABEL 267 2352 c(44): add char( operator(x) ); ->top; ! op3 LINE 2352 "regression-compile-tmp/pass1.imp" PUSHI #0x0000002c SLABEL 267 LINE 2352 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSH OPERATOR PUSH X ACCESS ASSPAR CALL LINE 2352 "regression-compile-tmp/pass1.imp" JUMP L_0136 2353 c(56): ; ! and LINE 2353 "regression-compile-tmp/pass1.imp" PUSHI #0x00000038 SLABEL 267 2354 c(57): push(x); ->top; ! or LINE 2354 "regression-compile-tmp/pass1.imp" PUSHI #0x00000039 SLABEL 267 LINE 2354 "regression-compile-tmp/pass1.imp" PUSH PUSH PUSH X ASSPAR CALL LINE 2354 "regression-compile-tmp/pass1.imp" JUMP L_0136 2355 c(58): cnest(cp) = cnest(cp)!!2; ->top; ! not LINE 2355 "regression-compile-tmp/pass1.imp" PUSHI #0x0000003a SLABEL 267 LINE 2355 "regression-compile-tmp/pass1.imp" PUSH CNEST PUSH CP ACCESS PUSH CNEST PUSH CP ACCESS PUSHI #0x00000002 XOR ASSVAL LINE 2355 "regression-compile-tmp/pass1.imp" JUMP L_0136 2356 c(138): x = 128+32+16+4; ! csep: treat like %while LINE 2356 "regression-compile-tmp/pass1.imp" PUSHI #0x0000008a SLABEL 267 LINE 2356 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000080 PUSHI #0x00000020 ADD PUSHI #0x00000010 ADD PUSHI #0x00000004 ADD ASSVAL 2357 c(59): ; ! while LINE 2357 "regression-compile-tmp/pass1.imp" PUSHI #0x0000003b SLABEL 267 2358 c(60): %if class = 138 %then op('f', label-1) %else def lab(label-1); ! until LINE 2358 "regression-compile-tmp/pass1.imp" PUSHI #0x0000003c SLABEL 267 LINE 2358 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSHI #0x0000008a JUMPIF # L_0004 PUSH OP PUSHI #0x00000066 ASSPAR PUSH LABEL PUSHI #0x00000001 SUB ASSPAR CALL GOTO L_0003 LOCATE L_0004 PUSH DEFLAB PUSH LABEL PUSHI #0x00000001 SUB ASSPAR CALL LOCATE L_0003 2359 c(166): ; ! runtil LINE 2359 "regression-compile-tmp/pass1.imp" PUSHI #0x000000a6 SLABEL 267 2360 c(62): lmode = (lmode&(else!loop)) !(x>>3); ! cword LINE 2360 "regression-compile-tmp/pass1.imp" PUSHI #0x0000003e SLABEL 267 LINE 2360 "regression-compile-tmp/pass1.imp" PUSH LMODE PUSH LMODE PUSHI #0x00000008 PUSHI #0x00000010 OR AND PUSH X PUSHI #0x00000003 RSH OR ASSVAL 2361 clab = label; cp = 1; cnest(1) = x&7 LINE 2361 "regression-compile-tmp/pass1.imp" PUSH CLAB PUSH LABEL ASSVAL LINE 2361 "regression-compile-tmp/pass1.imp" PUSH CP PUSHI #0x00000001 ASSVAL LINE 2361 "regression-compile-tmp/pass1.imp" PUSH CNEST PUSHI #0x00000001 ACCESS PUSH X PUSHI #0x00000007 AND ASSVAL 2362 ->top LINE 2362 "regression-compile-tmp/pass1.imp" JUMP L_0136 2363 c(72): pop label(0); ! repeat LINE 2363 "regression-compile-tmp/pass1.imp" PUSHI #0x00000048 SLABEL 267 LINE 2363 "regression-compile-tmp/pass1.imp" PUSH POPLABEL PUSHI #0x00000000 ASSPAR CALL 2364 def lab(label+1) %if lmode&32 # 0; ->atop LINE 2364 "regression-compile-tmp/pass1.imp" PUSH LMODE PUSHI #0x00000020 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH DEFLAB PUSH LABEL PUSHI #0x00000001 ADD ASSPAR CALL LOCATE L_0004 LINE 2364 "regression-compile-tmp/pass1.imp" JUMP L_0137 2365 c(69): pop label(1); ->top; ! finish LINE 2365 "regression-compile-tmp/pass1.imp" PUSHI #0x00000045 SLABEL 267 LINE 2365 "regression-compile-tmp/pass1.imp" PUSH POPLABEL PUSHI #0x00000001 ASSPAR CALL LINE 2365 "regression-compile-tmp/pass1.imp" JUMP L_0136 2366 c(163): ; ! xelse LINE 2366 "regression-compile-tmp/pass1.imp" PUSHI #0x000000a3 SLABEL 267 2367 c(70): pop label(1); ! finish else ... LINE 2367 "regression-compile-tmp/pass1.imp" PUSHI #0x00000046 SLABEL 267 LINE 2367 "regression-compile-tmp/pass1.imp" PUSH POPLABEL PUSHI #0x00000001 ASSPAR CALL 2368 fault(7) %if lmode&3 = 3; ! dangling else LINE 2368 "regression-compile-tmp/pass1.imp" PUSH LMODE PUSHI #0x00000003 AND PUSHI #0x00000003 JUMPIF # L_0004 PUSH FAULT PUSHI #0x00000007 ASSPAR CALL LOCATE L_0004 2369 c(68): lmode = (lmode&else)!3; ! ...else... LINE 2369 "regression-compile-tmp/pass1.imp" PUSHI #0x00000044 SLABEL 267 LINE 2369 "regression-compile-tmp/pass1.imp" PUSH LMODE PUSH LMODE PUSHI #0x00000008 AND PUSHI #0x00000003 OR ASSVAL 2370 %if access # 0 %start LINE 2370 "regression-compile-tmp/pass1.imp" PUSH ACCESS PUSHI #0x00000000 JUMPIF = L_0004 2371 op('F', label-1); lmode = else!3 LINE 2371 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x00000046 ASSPAR PUSH LABEL PUSHI #0x00000001 SUB ASSPAR CALL LINE 2371 "regression-compile-tmp/pass1.imp" PUSH LMODE PUSHI #0x00000008 PUSHI #0x00000003 OR ASSVAL 2372 %finish LINE 2372 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2373 def lab(label) LINE 2373 "regression-compile-tmp/pass1.imp" PUSH DEFLAB PUSH LABEL ASSPAR CALL 2374 ->top %if next # 0 LINE 2374 "regression-compile-tmp/pass1.imp" PUSH NEXT PUSHI #0x00000000 JUMPIF = L_0004 JUMP L_0136 LOCATE L_0004 2375 c(120): ; ! %MSTART LINE 2375 "regression-compile-tmp/pass1.imp" PUSHI #0x00000078 SLABEL 267 2376 c(67): ; ! start LINE 2376 "regression-compile-tmp/pass1.imp" PUSHI #0x00000043 SLABEL 267 2377 c(71): ; ! cycle LINE 2377 "regression-compile-tmp/pass1.imp" PUSHI #0x00000047 SLABEL 267 2378 stcy: def lab(label-1) %and lmode = loop %if lmode = 0; ! cycle LINE 2378 "regression-compile-tmp/pass1.imp" LABEL L_0138 LINE 2378 "regression-compile-tmp/pass1.imp" PUSH LMODE PUSHI #0x00000000 JUMPIF # L_0004 PUSH DEFLAB PUSH LABEL PUSHI #0x00000001 SUB ASSPAR CALL PUSH LMODE PUSHI #0x00000010 ASSVAL LOCATE L_0004 2379 dmin = dmin-1; abandon(3) %if dmin <= dmax LINE 2379 "regression-compile-tmp/pass1.imp" PUSH DMIN PUSH DMIN PUSHI #0x00000001 SUB ASSVAL LINE 2379 "regression-compile-tmp/pass1.imp" PUSH DMIN PUSH DMAX JUMPIF > L_0004 PUSH ABANDON PUSHI #0x00000003 ASSPAR CALL LOCATE L_0004 2380 dict(dmin) = lmode LINE 2380 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH DMIN ACCESS PUSH LMODE ASSVAL 2381 label = label+3 LINE 2381 "regression-compile-tmp/pass1.imp" PUSH LABEL PUSH LABEL PUSHI #0x00000003 ADD ASSVAL 2382 %return 2383 LINE 2382 "regression-compile-tmp/pass1.imp" RETURN 2384 c(64): fault(13) %if dict(dmin) >= 0 %or inhibit # 0; ! on event LINE 2384 "regression-compile-tmp/pass1.imp" PUSHI #0x00000040 SLABEL 267 LINE 2384 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH DMIN ACCESS PUSHI #0x00000000 JUMPIF >= L_0005 PUSH INHIBIT PUSHI #0x00000000 JUMPIF = L_0004 LOCATE L_0005 PUSH FAULT PUSHI #0x0000000d ASSPAR CALL LOCATE L_0004 2385 inhibit = 1 LINE 2385 "regression-compile-tmp/pass1.imp" PUSH INHIBIT PUSHI #0x00000001 ASSVAL 2386 n = 0 LINE 2386 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x00000000 ASSVAL 2387 n = 16_FFFF %if pending = 0; ! * = all events LINE 2387 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSHI #0x00000000 JUMPIF # L_0004 PUSH N PUSHI #0x0000ffff ASSVAL LOCATE L_0004 2388 %while pending > 0 %cycle LINE 2388 "regression-compile-tmp/pass1.imp" LOCATE L_0003 PUSH PENDING PUSHI #0x00000000 JUMPIF <= L_0004 2389 pop lit; fault(10) %if lit&(\15) # 0; ! too big LINE 2389 "regression-compile-tmp/pass1.imp" PUSH POPLIT CALL LINE 2389 "regression-compile-tmp/pass1.imp" PUSH LIT PUSHI #0x0000000f NOT AND PUSHI #0x00000000 JUMPIF = L_0007 PUSH FAULT PUSHI #0x0000000a ASSPAR CALL LOCATE L_0007 2390 j = 1<stcy 2396 LINE 2395 "regression-compile-tmp/pass1.imp" PUSH LMODE PUSHI #0x00000004 PUSHI #0x00000001 OR ASSVAL LINE 2395 "regression-compile-tmp/pass1.imp" JUMP L_0138 2397 c(104): op('J', tag(x)_index); ! l LINE 2397 "regression-compile-tmp/pass1.imp" PUSHI #0x00000068 SLABEL 267 LINE 2397 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x0000004a ASSPAR PUSH TAG PUSH X ACCESS SELECT 4 ASSPAR CALL 2398 inhibit = 1; ->atop LINE 2398 "regression-compile-tmp/pass1.imp" PUSH INHIBIT PUSHI #0x00000001 ASSVAL LINE 2398 "regression-compile-tmp/pass1.imp" JUMP L_0137 2399 c(149): stats = stats-1; ! lab LINE 2399 "regression-compile-tmp/pass1.imp" PUSHI #0x00000095 SLABEL 267 LINE 2399 "regression-compile-tmp/pass1.imp" PUSH STATS PUSH STATS PUSHI #0x00000001 SUB ASSVAL 2400 access = 1; inhibit = 1 LINE 2400 "regression-compile-tmp/pass1.imp" PUSH ACCESS PUSHI #0x00000001 ASSVAL LINE 2400 "regression-compile-tmp/pass1.imp" PUSH INHIBIT PUSHI #0x00000001 ASSVAL 2401 op('L', tag(x)_index); ->top 2402 LINE 2401 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x0000004c ASSPAR PUSH TAG PUSH X ACCESS SELECT 4 ASSPAR CALL LINE 2401 "regression-compile-tmp/pass1.imp" JUMP L_0136 2403 c(63): j = dmin; l = label-3; ! exit, continue LINE 2403 "regression-compile-tmp/pass1.imp" PUSHI #0x0000003f SLABEL 267 LINE 2403 "regression-compile-tmp/pass1.imp" PUSH J PUSH DMIN ASSVAL LINE 2403 "regression-compile-tmp/pass1.imp" PUSH L PUSH LABEL PUSHI #0x00000003 SUB ASSVAL 2404 %cycle LINE 2404 "regression-compile-tmp/pass1.imp" LOCATE L_0003 2405 fault(7) %and ->top %if dict(j) < 0 LINE 2405 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH J ACCESS PUSHI #0x00000000 JUMPIF >= L_0007 PUSH FAULT PUSHI #0x00000007 ASSPAR CALL JUMP L_0136 LOCATE L_0007 2406 %exit %if dict(j)&1 = 0 LINE 2406 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH J ACCESS PUSHI #0x00000001 AND PUSHI #0x00000000 JUMPIF # L_0007 GOTO L_0004 LOCATE L_0007 2407 j = j+1; l = l-3 LINE 2407 "regression-compile-tmp/pass1.imp" PUSH J PUSH J PUSHI #0x00000001 ADD ASSVAL LINE 2407 "regression-compile-tmp/pass1.imp" PUSH L PUSH L PUSHI #0x00000003 SUB ASSVAL 2408 %repeat LINE 2408 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 2409 l = l+1 %if x = 32; ! continue LINE 2409 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000020 JUMPIF # L_0004 PUSH L PUSH L PUSHI #0x00000001 ADD ASSVAL LOCATE L_0004 2410 op('F', l) LINE 2410 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x00000046 ASSPAR PUSH L ASSPAR CALL 2411 dict(j) = dict(j)!x; ! show given LINE 2411 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH J ACCESS PUSH DICT PUSH J ACCESS PUSH X OR ASSVAL 2412 ->atop 2413 LINE 2412 "regression-compile-tmp/pass1.imp" JUMP L_0137 2414 c(50): add char( 'C' ); ->cop; ! acomp LINE 2414 "regression-compile-tmp/pass1.imp" PUSHI #0x00000032 SLABEL 267 LINE 2414 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x00000043 ASSPAR CALL LINE 2414 "regression-compile-tmp/pass1.imp" JUMP L_0139 2415 c(49): LINE 2415 "regression-compile-tmp/pass1.imp" PUSHI #0x00000031 SLABEL 267 2416 %if next # 0 %start; ! comparator LINE 2416 "regression-compile-tmp/pass1.imp" PUSH NEXT PUSHI #0x00000000 JUMPIF = L_0004 2417 add char( '"' ) LINE 2417 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x00000022 ASSPAR CALL 2418 push(0); ! double sided LINE 2418 "regression-compile-tmp/pass1.imp" PUSH PUSH PUSHI #0x00000000 ASSPAR CALL 2419 %finish %else %start LINE 2419 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 2420 add char( '?' ) LINE 2420 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x0000003f ASSPAR CALL 2421 %finish 2422 LINE 2421 "regression-compile-tmp/pass1.imp" LOCATE L_0003 2423 cop: x = x!!1 %if cnest(cp)&2 # 0; ! invert the condition LINE 2423 "regression-compile-tmp/pass1.imp" LABEL L_0139 LINE 2423 "regression-compile-tmp/pass1.imp" PUSH CNEST PUSH CP ACCESS PUSHI #0x00000002 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH X PUSH X PUSHI #0x00000001 XOR ASSVAL LOCATE L_0004 2424 j = cp; l = clab LINE 2424 "regression-compile-tmp/pass1.imp" PUSH J PUSH CP ASSVAL LINE 2424 "regression-compile-tmp/pass1.imp" PUSH L PUSH CLAB ASSVAL 2425 %while cnest(j)&4 = 0 %cycle LINE 2425 "regression-compile-tmp/pass1.imp" LOCATE L_0003 PUSH CNEST PUSH J ACCESS PUSHI #0x00000004 AND PUSHI #0x00000000 JUMPIF # L_0004 2426 j = j-1; l = l-cnest(j)&1 LINE 2426 "regression-compile-tmp/pass1.imp" PUSH J PUSH J PUSHI #0x00000001 SUB ASSVAL LINE 2426 "regression-compile-tmp/pass1.imp" PUSH L PUSH L PUSH CNEST PUSH J ACCESS PUSHI #0x00000001 AND SUB ASSVAL 2427 %repeat LINE 2427 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 2428 op(cc(x), l) LINE 2428 "regression-compile-tmp/pass1.imp" PUSH OP PUSH CC PUSH X ACCESS ASSPAR PUSH L ASSPAR CALL 2429 def lab(clab+1) %if cnest(cp)&1 # 0 LINE 2429 "regression-compile-tmp/pass1.imp" PUSH CNEST PUSH CP ACCESS PUSHI #0x00000001 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH DEFLAB PUSH CLAB PUSHI #0x00000001 ADD ASSPAR CALL LOCATE L_0004 2430 cp = cp-1 LINE 2430 "regression-compile-tmp/pass1.imp" PUSH CP PUSH CP PUSHI #0x00000001 SUB ASSVAL 2431 clab = clab-cnest(cp)&1 LINE 2431 "regression-compile-tmp/pass1.imp" PUSH CLAB PUSH CLAB PUSH CNEST PUSH CP ACCESS PUSHI #0x00000001 AND SUB ASSVAL 2432 ->top 2433 LINE 2432 "regression-compile-tmp/pass1.imp" JUMP L_0136 2434 c(78): ; ! fresult LINE 2434 "regression-compile-tmp/pass1.imp" PUSHI #0x0000004e SLABEL 267 2435 c(79): ; ! mresult LINE 2435 "regression-compile-tmp/pass1.imp" PUSHI #0x0000004f SLABEL 267 2436 c(80): open = 0; ! return, true, false LINE 2436 "regression-compile-tmp/pass1.imp" PUSHI #0x00000050 SLABEL 267 LINE 2436 "regression-compile-tmp/pass1.imp" PUSH OPEN PUSHI #0x00000000 ASSVAL 2437 c(82): access = 0; ! stop LINE 2437 "regression-compile-tmp/pass1.imp" PUSHI #0x00000052 SLABEL 267 LINE 2437 "regression-compile-tmp/pass1.imp" PUSH ACCESS PUSHI #0x00000000 ASSVAL 2438 c(89): ; ! addop LINE 2438 "regression-compile-tmp/pass1.imp" PUSHI #0x00000059 SLABEL 267 2439 c(81): add char( x ); ->top; ! monitor LINE 2439 "regression-compile-tmp/pass1.imp" PUSHI #0x00000051 SLABEL 267 LINE 2439 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSH X ASSPAR CALL LINE 2439 "regression-compile-tmp/pass1.imp" JUMP L_0136 2440 c(65): pop lit; op('e', lit); ->atop; ! signal LINE 2440 "regression-compile-tmp/pass1.imp" PUSHI #0x00000041 SLABEL 267 LINE 2440 "regression-compile-tmp/pass1.imp" PUSH POPLIT CALL LINE 2440 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x00000065 ASSPAR PUSH LIT ASSPAR CALL LINE 2440 "regression-compile-tmp/pass1.imp" JUMP L_0137 2441 c(51): add char( 'S' ); ->top; ! eq LINE 2441 "regression-compile-tmp/pass1.imp" PUSHI #0x00000033 SLABEL 267 LINE 2441 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x00000053 ASSPAR CALL LINE 2441 "regression-compile-tmp/pass1.imp" JUMP L_0136 2442 c(53): add char( 'j' ); ->top; ! jam transfer LINE 2442 "regression-compile-tmp/pass1.imp" PUSHI #0x00000035 SLABEL 267 LINE 2442 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x0000006a ASSPAR CALL LINE 2442 "regression-compile-tmp/pass1.imp" JUMP L_0136 2443 c(52): add char( 'Z' ); ->top; ! eqeq LINE 2443 "regression-compile-tmp/pass1.imp" PUSHI #0x00000034 SLABEL 267 LINE 2443 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x0000005a ASSPAR CALL LINE 2443 "regression-compile-tmp/pass1.imp" JUMP L_0136 2444 c(74): %if level = 0 %start; ! begin LINE 2444 "regression-compile-tmp/pass1.imp" PUSHI #0x0000004a SLABEL 267 LINE 2444 "regression-compile-tmp/pass1.imp" PUSH LEVEL PUSHI #0x00000000 JUMPIF # L_0004 2445 %if progmode <= 0 %then progmode = 1 %else fault(7) 2446 !{Permit BEGIN after external defs} LINE 2445 "regression-compile-tmp/pass1.imp" PUSH PROGMODE PUSHI #0x00000000 JUMPIF > L_0007 PUSH PROGMODE PUSHI #0x00000001 ASSVAL GOTO L_0006 LOCATE L_0007 PUSH FAULT PUSHI #0x00000007 ASSPAR CALL LOCATE L_0006 2447 %finish LINE 2447 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2448 spec mode = level+1 LINE 2448 "regression-compile-tmp/pass1.imp" PUSH SPECMODE PUSH LEVEL PUSHI #0x00000001 ADD ASSVAL 2449 block x = 0 LINE 2449 "regression-compile-tmp/pass1.imp" PUSH BLOCKX PUSHI #0x00000000 ASSVAL 2450 add char( 'H' ) LINE 2450 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x00000048 ASSPAR CALL 2451 %return LINE 2451 "regression-compile-tmp/pass1.imp" RETURN 2452 c(77): perm = 0; lines = 0; stats = 0; ! endofperm LINE 2452 "regression-compile-tmp/pass1.imp" PUSHI #0x0000004d SLABEL 267 LINE 2452 "regression-compile-tmp/pass1.imp" PUSH PERM PUSHI #0x00000000 ASSVAL LINE 2452 "regression-compile-tmp/pass1.imp" PUSH LINES PUSHI #0x00000000 ASSVAL LINE 2452 "regression-compile-tmp/pass1.imp" PUSH STATS PUSHI #0x00000000 ASSVAL 2453 close input LINE 2453 "regression-compile-tmp/pass1.imp" PUSH CLOSEINPUT CALL 2454 select input(source) LINE 2454 "regression-compile-tmp/pass1.imp" PUSH SELECTINPUT PUSHI #0x00000001 ASSPAR CALL 2455 list = list-1 LINE 2455 "regression-compile-tmp/pass1.imp" PUSH LIST PUSH LIST PUSHI #0x00000001 SUB ASSVAL 2456 tbase = tmax; tstart = tmax LINE 2456 "regression-compile-tmp/pass1.imp" PUSH TBASE PUSH TMAX ASSVAL LINE 2456 "regression-compile-tmp/pass1.imp" PUSH TSTART PUSH TMAX ASSVAL 2457 %return LINE 2457 "regression-compile-tmp/pass1.imp" RETURN 2458 c(76): %if include # 0 %and x = 0 %start; ! end of ... LINE 2458 "regression-compile-tmp/pass1.imp" PUSHI #0x0000004c SLABEL 267 LINE 2458 "regression-compile-tmp/pass1.imp" PUSH INCLUDE PUSHI #0x00000000 JUMPIF = L_0004 PUSH X PUSHI #0x00000000 JUMPIF # L_0004 2459 lines = include; sstype = 0; ! include LINE 2459 "regression-compile-tmp/pass1.imp" PUSH LINES PUSH INCLUDE ASSVAL LINE 2459 "regression-compile-tmp/pass1.imp" PUSH SSTYPE PUSHI #0x00000000 ASSVAL 2460 close input LINE 2460 "regression-compile-tmp/pass1.imp" PUSH CLOSEINPUT CALL 2461 list = include list LINE 2461 "regression-compile-tmp/pass1.imp" PUSH LIST PUSH INCLUDELIST ASSVAL 2462 include level = 0 LINE 2462 "regression-compile-tmp/pass1.imp" PUSH INCLUDELEVEL PUSHI #0x00000000 ASSVAL 2463 include = 0; select input(source); %return LINE 2463 "regression-compile-tmp/pass1.imp" PUSH INCLUDE PUSHI #0x00000000 ASSVAL LINE 2463 "regression-compile-tmp/pass1.imp" PUSH SELECTINPUT PUSHI #0x00000001 ASSPAR CALL LINE 2463 "regression-compile-tmp/pass1.imp" RETURN 2464 %finish LINE 2464 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2465 ss = -1; ! prog/file LINE 2465 "regression-compile-tmp/pass1.imp" PUSH SS PUSHI #0x00000001 NEGATE ASSVAL 2466 c(75): compile end(x); %return; ! %end 2467 LINE 2466 "regression-compile-tmp/pass1.imp" PUSHI #0x0000004b SLABEL 267 LINE 2466 "regression-compile-tmp/pass1.imp" PUSH COMPILEEND PUSH X ASSPAR CALL LINE 2466 "regression-compile-tmp/pass1.imp" RETURN 2468 c(85): %if x=0 %then control=lit %else %start; ! control LINE 2468 "regression-compile-tmp/pass1.imp" PUSHI #0x00000055 SLABEL 267 LINE 2468 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000000 JUMPIF # L_0004 PUSH CONTROL PUSH LIT ASSVAL GOTO L_0003 LOCATE L_0004 2469 diag = lit&16_3FFF %if lit>>14&3 = 1 LINE 2469 "regression-compile-tmp/pass1.imp" PUSH LIT PUSHI #0x0000000e RSH PUSHI #0x00000003 AND PUSHI #0x00000001 JUMPIF # L_0007 PUSH DIAG PUSH LIT PUSHI #0x00003fff AND ASSVAL LOCATE L_0007 2470 %finish LINE 2470 "regression-compile-tmp/pass1.imp" LOCATE L_0003 2471 op('z'-x, lit) LINE 2471 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x0000007a PUSH X SUB ASSPAR PUSH LIT ASSPAR CALL 2472 ->top LINE 2472 "regression-compile-tmp/pass1.imp" JUMP L_0136 2473 c(83): list = list+x-2; ->top; ! %LIST/%endoflist LINE 2473 "regression-compile-tmp/pass1.imp" PUSHI #0x00000053 SLABEL 267 LINE 2473 "regression-compile-tmp/pass1.imp" PUSH LIST PUSH LIST PUSH X ADD PUSHI #0x00000002 SUB ASSVAL LINE 2473 "regression-compile-tmp/pass1.imp" JUMP L_0136 2474 c(84): reals ln = x; ->top; ! %REALS long/normal LINE 2474 "regression-compile-tmp/pass1.imp" PUSHI #0x00000054 SLABEL 267 LINE 2474 "regression-compile-tmp/pass1.imp" PUSH REALSLN PUSH X ASSVAL LINE 2474 "regression-compile-tmp/pass1.imp" JUMP L_0136 2475 c(86): %if include # 0 %start; ! include "file" LINE 2475 "regression-compile-tmp/pass1.imp" PUSHI #0x00000056 SLABEL 267 LINE 2475 "regression-compile-tmp/pass1.imp" PUSH INCLUDE PUSHI #0x00000000 JUMPIF = L_0004 2476 fault(7); %return LINE 2476 "regression-compile-tmp/pass1.imp" PUSH FAULT PUSHI #0x00000007 ASSPAR CALL LINE 2476 "regression-compile-tmp/pass1.imp" RETURN 2477 %finish LINE 2477 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2478 get next; ! sconst LINE 2478 "regression-compile-tmp/pass1.imp" PUSH GETNEXT CALL 2479 x = x-16_4000 LINE 2479 "regression-compile-tmp/pass1.imp" PUSH X PUSH X PUSHI #0x00004000 SUB ASSVAL 2480 j = glink(x) LINE 2480 "regression-compile-tmp/pass1.imp" PUSH J PUSH GLINK PUSH X ACCESS ASSVAL 2481 k = j&255 2482 !ABD - another little copy loop because SKIMP can't do the string map LINE 2481 "regression-compile-tmp/pass1.imp" PUSH K PUSH J PUSHI #0x000000ff AND ASSVAL 2483 include file = "" LINE 2483 "regression-compile-tmp/pass1.imp" PUSH INCLUDEFILE PUSHS "" ASSVAL 2484 %cycle LINE 2484 "regression-compile-tmp/pass1.imp" LOCATE L_0003 2485 k = k-1; %exit %if k < 0 LINE 2485 "regression-compile-tmp/pass1.imp" PUSH K PUSH K PUSHI #0x00000001 SUB ASSVAL LINE 2485 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000000 JUMPIF >= L_0007 GOTO L_0004 LOCATE L_0007 2486 include file = include file.tostring(j>>8) LINE 2486 "regression-compile-tmp/pass1.imp" PUSH INCLUDEFILE PUSH INCLUDEFILE PUSH TOSTRING PUSH J PUSHI #0x00000008 RSH ASSPAR CALL CONCAT ASSVAL 2487 x = x+1 LINE 2487 "regression-compile-tmp/pass1.imp" PUSH X PUSH X PUSHI #0x00000001 ADD ASSVAL 2488 j = glink(x) LINE 2488 "regression-compile-tmp/pass1.imp" PUSH J PUSH GLINK PUSH X ACCESS ASSVAL 2489 k = k-1; %exit %if k < 0 LINE 2489 "regression-compile-tmp/pass1.imp" PUSH K PUSH K PUSHI #0x00000001 SUB ASSVAL LINE 2489 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000000 JUMPIF >= L_0007 GOTO L_0004 LOCATE L_0007 2490 include file = include file.tostring(j&255) LINE 2490 "regression-compile-tmp/pass1.imp" PUSH INCLUDEFILE PUSH INCLUDEFILE PUSH TOSTRING PUSH J PUSHI #0x000000ff AND ASSPAR CALL CONCAT ASSVAL 2491 %repeat 2492 ! include file = string(x-16_4000+stbase) 2493 ! remove this event block for SKIMP or pre-event IMP versions LINE 2491 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 2494 %begin LINE 2494 "regression-compile-tmp/pass1.imp" BEGIN _lev0id0_COMPILEBLOCK_COMPILE_lev3id1 {lev=3 --> 4} 2495 %on 9 %start; Abandon(9); %finish LINE 2495 "regression-compile-tmp/pass1.imp" ON MASK=0200 L_0004 LINE 2495 "regression-compile-tmp/pass1.imp" PUSH ABANDON PUSHI #0x00000009 ASSPAR CALL LINE 2495 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2496 open input(3, include file) LINE 2496 "regression-compile-tmp/pass1.imp" PUSH OPENINPUT PUSHI #0x00000003 ASSPAR PUSH INCLUDEFILE ASSPAR CALL 2497 %end LINE 2497 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_COMPILE_lev3id1 {lev=4 --> 3} 2498 include = lines; lines = 0 LINE 2498 "regression-compile-tmp/pass1.imp" PUSH INCLUDE PUSH LINES ASSVAL LINE 2498 "regression-compile-tmp/pass1.imp" PUSH LINES PUSHI #0x00000000 ASSVAL 2499 include list = list; include level = level LINE 2499 "regression-compile-tmp/pass1.imp" PUSH INCLUDELIST PUSH LIST ASSVAL LINE 2499 "regression-compile-tmp/pass1.imp" PUSH INCLUDELEVEL PUSH LEVEL ASSVAL 2500 select input(3) LINE 2500 "regression-compile-tmp/pass1.imp" PUSH SELECTINPUT PUSHI #0x00000003 ASSPAR CALL 2501 ->top 2502 LINE 2501 "regression-compile-tmp/pass1.imp" JUMP L_0136 2503 c(154): dimension = dimension+1; ! dbsep LINE 2503 "regression-compile-tmp/pass1.imp" PUSHI #0x0000009a SLABEL 267 LINE 2503 "regression-compile-tmp/pass1.imp" PUSH DIMENSION PUSH DIMENSION PUSHI #0x00000001 ADD ASSVAL 2504 fault(11) %if dimension = dim limit+1 LINE 2504 "regression-compile-tmp/pass1.imp" PUSH DIMENSION PUSHI #0x00000006 PUSHI #0x00000001 ADD JUMPIF # L_0004 PUSH FAULT PUSHI #0x0000000b ASSPAR CALL LOCATE L_0004 2505 ->top LINE 2505 "regression-compile-tmp/pass1.imp" JUMP L_0136 2506 c(145): set bp; ->top; ! crb LINE 2506 "regression-compile-tmp/pass1.imp" PUSHI #0x00000091 SLABEL 267 LINE 2506 "regression-compile-tmp/pass1.imp" PUSH SETBP CALL LINE 2506 "regression-compile-tmp/pass1.imp" JUMP L_0136 2507 c(146): set bp; ! rcrb LINE 2507 "regression-compile-tmp/pass1.imp" PUSHI #0x00000092 SLABEL 267 LINE 2507 "regression-compile-tmp/pass1.imp" PUSH SETBP CALL 2508 c(142): ; ! bplrb LINE 2508 "regression-compile-tmp/pass1.imp" PUSHI #0x0000008e SLABEL 267 2509 dimension = 1 %if dimension = 0 LINE 2509 "regression-compile-tmp/pass1.imp" PUSH DIMENSION PUSHI #0x00000000 JUMPIF # L_0004 PUSH DIMENSION PUSHI #0x00000001 ASSVAL LOCATE L_0004 2510 op('d', dimension); op(',', defs) LINE 2510 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x00000064 ASSPAR PUSH DIMENSION ASSPAR CALL LINE 2510 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x0000002c ASSPAR PUSH DEFS ASSPAR CALL 2511 %if class # 146 %start LINE 2511 "regression-compile-tmp/pass1.imp" PUSH CLASS PUSHI #0x00000092 JUMPIF = L_0004 2512 set subs(defs) LINE 2512 "regression-compile-tmp/pass1.imp" PUSH SETSUBS PUSH DEFS ASSPAR CALL 2513 fault(13) %if dict(dmin) >= 0 %or inhibit # 0 %or level=0 LINE 2513 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH DMIN ACCESS PUSHI #0x00000000 JUMPIF >= L_0008 PUSH INHIBIT PUSHI #0x00000000 JUMPIF # L_0008 PUSH LEVEL PUSHI #0x00000000 JUMPIF # L_0007 LOCATE L_0008 PUSH FAULT PUSHI #0x0000000d ASSPAR CALL LOCATE L_0007 2514 %finish LINE 2514 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2515 dimension = 0; defs = 0 LINE 2515 "regression-compile-tmp/pass1.imp" PUSH DIMENSION PUSHI #0x00000000 ASSVAL LINE 2515 "regression-compile-tmp/pass1.imp" PUSH DEFS PUSHI #0x00000000 ASSVAL 2516 ->top LINE 2516 "regression-compile-tmp/pass1.imp" JUMP L_0136 2517 c(128): id = dupid; ->top; ! EDUP LINE 2517 "regression-compile-tmp/pass1.imp" PUSHI #0x00000080 SLABEL 267 LINE 2517 "regression-compile-tmp/pass1.imp" PUSH ID PUSH DUPID ASSVAL LINE 2517 "regression-compile-tmp/pass1.imp" JUMP L_0136 2518 c(130): block x = x LINE 2518 "regression-compile-tmp/pass1.imp" PUSHI #0x00000082 SLABEL 267 LINE 2518 "regression-compile-tmp/pass1.imp" PUSH BLOCKX PUSH X ASSVAL 2519 op('F', 0) %if decl&spec = 0 %and level # 0; ! jump round proc LINE 2519 "regression-compile-tmp/pass1.imp" PUSH DECL PUSHI #0x00000080 AND PUSHI #0x00000000 JUMPIF # L_0004 PUSH LEVEL PUSHI #0x00000000 JUMPIF = L_0004 PUSH OP PUSHI #0x00000046 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2520 c(125): dupid = id; ! %DUP LINE 2520 "regression-compile-tmp/pass1.imp" PUSHI #0x0000007d SLABEL 267 LINE 2520 "regression-compile-tmp/pass1.imp" PUSH DUPID PUSH ID ASSVAL 2521 %return %if Level < 0; ! {spec about} LINE 2521 "regression-compile-tmp/pass1.imp" PUSH LEVEL PUSHI #0x00000000 JUMPIF >= L_0004 RETURN LOCATE L_0004 2522 c(90): def(x); ->top; ! ident LINE 2522 "regression-compile-tmp/pass1.imp" PUSHI #0x0000005a SLABEL 267 LINE 2522 "regression-compile-tmp/pass1.imp" PUSH DEF PUSH X ASSPAR CALL LINE 2522 "regression-compile-tmp/pass1.imp" JUMP L_0136 2523 c(131): ; ! cident LINE 2523 "regression-compile-tmp/pass1.imp" PUSHI #0x00000083 SLABEL 267 2524 %if tag(x)_flags&(2_1111111+const bit) = iform+const bit %start LINE 2524 "regression-compile-tmp/pass1.imp" PUSH TAG PUSH X ACCESS SELECT 3 PUSHI #0x0000007f PUSHI #0x00002000 ADD AND PUSHI #0x00000011 PUSHI #0x00002000 ADD JUMPIF # L_0004 2525 tag(x)_format = lit LINE 2525 "regression-compile-tmp/pass1.imp" PUSH TAG PUSH X ACCESS SELECT 2 PUSH LIT ASSVAL 2526 %finish %else %start LINE 2526 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 2527 set const(lit) %if pending # 0 LINE 2527 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSHI #0x00000000 JUMPIF = L_0007 PUSH SETCONST PUSH LIT ASSPAR CALL LOCATE L_0007 2528 def(x) LINE 2528 "regression-compile-tmp/pass1.imp" PUSH DEF PUSH X ASSPAR CALL 2529 op('A', 1) LINE 2529 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x00000041 ASSPAR PUSHI #0x00000001 ASSPAR CALL 2530 %finish LINE 2530 "regression-compile-tmp/pass1.imp" LOCATE L_0003 2531 cident = x LINE 2531 "regression-compile-tmp/pass1.imp" PUSH CIDENT PUSH X ASSVAL 2532 ->top LINE 2532 "regression-compile-tmp/pass1.imp" JUMP L_0136 2533 c(124): dubious = 1 %if tag(cident)_flags&prot # 0; ! %DUBIOUS LINE 2533 "regression-compile-tmp/pass1.imp" PUSHI #0x0000007c SLABEL 267 LINE 2533 "regression-compile-tmp/pass1.imp" PUSH TAG PUSH CIDENT ACCESS SELECT 3 PUSHI #0x00000100 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH DUBIOUS PUSHI #0x00000001 ASSVAL LOCATE L_0004 2534 ->top LINE 2534 "regression-compile-tmp/pass1.imp" JUMP L_0136 2535 c(97): ; ! f LINE 2535 "regression-compile-tmp/pass1.imp" PUSHI #0x00000061 SLABEL 267 2536 c(98): ; ! m LINE 2536 "regression-compile-tmp/pass1.imp" PUSHI #0x00000062 SLABEL 267 2537 c(99): ; ! p LINE 2537 "regression-compile-tmp/pass1.imp" PUSHI #0x00000063 SLABEL 267 2538 c(96): call; ->top; ! r LINE 2538 "regression-compile-tmp/pass1.imp" PUSHI #0x00000060 SLABEL 267 LINE 2538 "regression-compile-tmp/pass1.imp" PUSH CALL CALL LINE 2538 "regression-compile-tmp/pass1.imp" JUMP L_0136 2539 c(165): ; ! nlab LINE 2539 "regression-compile-tmp/pass1.imp" PUSHI #0x000000a5 SLABEL 267 2540 c(100): ; ! rp LINE 2540 "regression-compile-tmp/pass1.imp" PUSHI #0x00000064 SLABEL 267 2541 c(101): ; ! fp LINE 2541 "regression-compile-tmp/pass1.imp" PUSHI #0x00000065 SLABEL 267 2542 c(102): ; ! mp LINE 2542 "regression-compile-tmp/pass1.imp" PUSHI #0x00000066 SLABEL 267 2543 c(103): ; ! pp LINE 2543 "regression-compile-tmp/pass1.imp" PUSHI #0x00000067 SLABEL 267 2544 c(91): ; ! v LINE 2544 "regression-compile-tmp/pass1.imp" PUSHI #0x0000005b SLABEL 267 2545 c(92): ; ! n LINE 2545 "regression-compile-tmp/pass1.imp" PUSHI #0x0000005c SLABEL 267 2546 c(106): ; ! a LINE 2546 "regression-compile-tmp/pass1.imp" PUSHI #0x0000006a SLABEL 267 2547 c(107): ; ! an LINE 2547 "regression-compile-tmp/pass1.imp" PUSHI #0x0000006b SLABEL 267 2548 c(108): ; ! na LINE 2548 "regression-compile-tmp/pass1.imp" PUSHI #0x0000006c SLABEL 267 2549 c(109): ; ! nan LINE 2549 "regression-compile-tmp/pass1.imp" PUSHI #0x0000006d SLABEL 267 2550 k = tag(x)_index LINE 2550 "regression-compile-tmp/pass1.imp" PUSH K PUSH TAG PUSH X ACCESS SELECT 4 ASSVAL 2551 %if k < 0 %then op('n', -k) %else op('@', k) LINE 2551 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000000 JUMPIF >= L_0004 PUSH OP PUSHI #0x0000006e ASSPAR PUSH K NEGATE ASSPAR CALL GOTO L_0003 LOCATE L_0004 PUSH OP PUSHI #0x00000040 ASSPAR PUSH K ASSPAR CALL LOCATE L_0003 2552 ->top LINE 2552 "regression-compile-tmp/pass1.imp" JUMP L_0136 2553 c(121): set const(0); ->top; ! special for zero LINE 2553 "regression-compile-tmp/pass1.imp" PUSHI #0x00000079 SLABEL 267 LINE 2553 "regression-compile-tmp/pass1.imp" PUSH SETCONST PUSHI #0x00000000 ASSPAR CALL LINE 2553 "regression-compile-tmp/pass1.imp" JUMP L_0136 2554 c(167): add char( 'G' ); ->pstr; ! aconst (alias) LINE 2554 "regression-compile-tmp/pass1.imp" PUSHI #0x000000a7 SLABEL 267 LINE 2554 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x00000047 ASSPAR CALL LINE 2554 "regression-compile-tmp/pass1.imp" JUMP L_013a 2555 c(const): ; ! const LINE 2555 "regression-compile-tmp/pass1.imp" PUSHI #0x0000005d SLABEL 267 2556 %if x < 0 %start; ! constinteger LINE 2556 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000000 JUMPIF >= L_0004 2557 set const(tag(-x)_format); ->top LINE 2557 "regression-compile-tmp/pass1.imp" PUSH SETCONST PUSH TAG PUSH X NEGATE ACCESS SELECT 2 ASSPAR CALL LINE 2557 "regression-compile-tmp/pass1.imp" JUMP L_0136 2558 %finish LINE 2558 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2559 %if x&16_4000 # 0 %start; ! strings LINE 2559 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00004000 AND PUSHI #0x00000000 JUMPIF = L_0004 2560 add char( '''' ) LINE 2560 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x00000027 ASSPAR CALL 2561 pstr: x = x-16_4000 LINE 2561 "regression-compile-tmp/pass1.imp" LABEL L_013a LINE 2561 "regression-compile-tmp/pass1.imp" PUSH X PUSH X PUSHI #0x00004000 SUB ASSVAL 2562 j = glink(x) LINE 2562 "regression-compile-tmp/pass1.imp" PUSH J PUSH GLINK PUSH X ACCESS ASSVAL 2563 k = j&255 LINE 2563 "regression-compile-tmp/pass1.imp" PUSH K PUSH J PUSHI #0x000000ff AND ASSVAL 2564 add char( k ) LINE 2564 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSH K ASSPAR CALL 2565 %cycle LINE 2565 "regression-compile-tmp/pass1.imp" LOCATE L_0006 2566 k = k-1; ->top %if k < 0 LINE 2566 "regression-compile-tmp/pass1.imp" PUSH K PUSH K PUSHI #0x00000001 SUB ASSVAL LINE 2566 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000000 JUMPIF >= L_000a JUMP L_0136 LOCATE L_000a 2567 add char( j>>8 ); LINE 2567 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSH J PUSHI #0x00000008 RSH ASSPAR CALL 2568 x = x+1 LINE 2568 "regression-compile-tmp/pass1.imp" PUSH X PUSH X PUSHI #0x00000001 ADD ASSVAL 2569 j = glink(x) LINE 2569 "regression-compile-tmp/pass1.imp" PUSH J PUSH GLINK PUSH X ACCESS ASSVAL 2570 k = k-1; ->top %if k < 0 LINE 2570 "regression-compile-tmp/pass1.imp" PUSH K PUSH K PUSHI #0x00000001 SUB ASSVAL LINE 2570 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000000 JUMPIF >= L_000a JUMP L_0136 LOCATE L_000a 2571 add char( j&255 ) LINE 2571 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSH J PUSHI #0x000000ff AND ASSPAR CALL 2572 %repeat LINE 2572 "regression-compile-tmp/pass1.imp" REPEAT L_0006 2573 %finish LINE 2573 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2574 %if x&16_2000 # 0 %start; ! real - ABD also string-like, but NOT packed LINE 2574 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00002000 AND PUSHI #0x00000000 JUMPIF = L_0004 2575 x = x-16_2000 LINE 2575 "regression-compile-tmp/pass1.imp" PUSH X PUSH X PUSHI #0x00002000 SUB ASSVAL 2576 k = glink(x) LINE 2576 "regression-compile-tmp/pass1.imp" PUSH K PUSH GLINK PUSH X ACCESS ASSVAL 2577 op('D', k); add char( ',' ) LINE 2577 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x00000044 ASSPAR PUSH K ASSPAR CALL LINE 2577 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x0000002c ASSPAR CALL 2578 %cycle LINE 2578 "regression-compile-tmp/pass1.imp" LOCATE L_0006 2579 ->top %if k = 0 LINE 2579 "regression-compile-tmp/pass1.imp" PUSH K PUSHI #0x00000000 JUMPIF # L_000a JUMP L_0136 LOCATE L_000a 2580 k = k-1 LINE 2580 "regression-compile-tmp/pass1.imp" PUSH K PUSH K PUSHI #0x00000001 SUB ASSVAL 2581 x = x+1; j = glink(x) LINE 2581 "regression-compile-tmp/pass1.imp" PUSH X PUSH X PUSHI #0x00000001 ADD ASSVAL LINE 2581 "regression-compile-tmp/pass1.imp" PUSH J PUSH GLINK PUSH X ACCESS ASSVAL 2582 %if j = '@' %start LINE 2582 "regression-compile-tmp/pass1.imp" PUSH J PUSHI #0x00000040 JUMPIF # L_000a 2583 op('@', litpool(glink(x+1))); ->top LINE 2583 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x00000040 ASSPAR PUSH LITPOOL PUSH GLINK PUSH X PUSHI #0x00000001 ADD ACCESS ACCESS ASSPAR CALL LINE 2583 "regression-compile-tmp/pass1.imp" JUMP L_0136 2584 %finish LINE 2584 "regression-compile-tmp/pass1.imp" LOCATE L_000a 2585 add char( j ) LINE 2585 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSH J ASSPAR CALL 2586 %repeat LINE 2586 "regression-compile-tmp/pass1.imp" REPEAT L_0006 2587 %finish LINE 2587 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2588 set const(lit pool(x)) LINE 2588 "regression-compile-tmp/pass1.imp" PUSH SETCONST PUSH LITPOOL PUSH X ACCESS ASSPAR CALL 2589 ->top 2590 LINE 2589 "regression-compile-tmp/pass1.imp" JUMP L_0136 2591 c(137): add char( 'i' ); ->top; ! asep LINE 2591 "regression-compile-tmp/pass1.imp" PUSHI #0x00000089 SLABEL 267 LINE 2591 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x00000069 ASSPAR CALL LINE 2591 "regression-compile-tmp/pass1.imp" JUMP L_0136 2592 c(141): add char( 'a' ); ->top; ! arb 2593 2594 !own arrays LINE 2592 "regression-compile-tmp/pass1.imp" PUSHI #0x0000008d SLABEL 267 LINE 2592 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x00000061 ASSPAR CALL LINE 2592 "regression-compile-tmp/pass1.imp" JUMP L_0136 2595 c(132): ocount = ub-lb+1 LINE 2595 "regression-compile-tmp/pass1.imp" PUSHI #0x00000084 SLABEL 267 LINE 2595 "regression-compile-tmp/pass1.imp" PUSH OCOUNT PUSH UB PUSH LB SUB PUSHI #0x00000001 ADD ASSVAL 2596 def(x); ! oident LINE 2596 "regression-compile-tmp/pass1.imp" PUSH DEF PUSH X ASSPAR CALL 2597 dimension = 1; set subs(1) LINE 2597 "regression-compile-tmp/pass1.imp" PUSH DIMENSION PUSHI #0x00000001 ASSVAL LINE 2597 "regression-compile-tmp/pass1.imp" PUSH SETSUBS PUSHI #0x00000001 ASSPAR CALL 2598 %if next = 0 %start; ! no initialisation LINE 2598 "regression-compile-tmp/pass1.imp" PUSH NEXT PUSHI #0x00000000 JUMPIF # L_0004 2599 op('A', ocount) %if ocount > 0 LINE 2599 "regression-compile-tmp/pass1.imp" PUSH OCOUNT PUSHI #0x00000000 JUMPIF <= L_0007 PUSH OP PUSHI #0x00000041 ASSPAR PUSH OCOUNT ASSPAR CALL LOCATE L_0007 2600 ocount = -1 LINE 2600 "regression-compile-tmp/pass1.imp" PUSH OCOUNT PUSHI #0x00000001 NEGATE ASSVAL 2601 %finish %else %start; ! initialisation given LINE 2601 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 2602 get next LINE 2602 "regression-compile-tmp/pass1.imp" PUSH GETNEXT CALL 2603 %finish LINE 2603 "regression-compile-tmp/pass1.imp" LOCATE L_0003 2604 ->top LINE 2604 "regression-compile-tmp/pass1.imp" JUMP L_0136 2605 c(162): lit = ocount; ->ins; ! indef LINE 2605 "regression-compile-tmp/pass1.imp" PUSHI #0x000000a2 SLABEL 267 LINE 2605 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH OCOUNT ASSVAL LINE 2605 "regression-compile-tmp/pass1.imp" JUMP L_013b 2606 c(143): pop lit; ! orb LINE 2606 "regression-compile-tmp/pass1.imp" PUSHI #0x0000008f SLABEL 267 LINE 2606 "regression-compile-tmp/pass1.imp" PUSH POPLIT CALL 2607 ins: fault(10) %and lit = 0 %if lit < 0 LINE 2607 "regression-compile-tmp/pass1.imp" LABEL L_013b LINE 2607 "regression-compile-tmp/pass1.imp" PUSH LIT PUSHI #0x00000000 JUMPIF >= L_0004 PUSH FAULT PUSHI #0x0000000a ASSPAR CALL PUSH LIT PUSHI #0x00000000 ASSVAL LOCATE L_0004 2608 get next LINE 2608 "regression-compile-tmp/pass1.imp" PUSH GETNEXT CALL 2609 ->inst LINE 2609 "regression-compile-tmp/pass1.imp" JUMP L_013c 2610 c(139): ; ! osep (x=19) LINE 2610 "regression-compile-tmp/pass1.imp" PUSHI #0x0000008b SLABEL 267 2611 c(153): lit = 1 LINE 2611 "regression-compile-tmp/pass1.imp" PUSHI #0x00000099 SLABEL 267 LINE 2611 "regression-compile-tmp/pass1.imp" PUSH LIT PUSHI #0x00000001 ASSVAL 2612 inst: pop def %if pending # 0; ! ownt (x=0) LINE 2612 "regression-compile-tmp/pass1.imp" LABEL L_013c LINE 2612 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSHI #0x00000000 JUMPIF = L_0004 PUSH POPDEF CALL LOCATE L_0004 2613 op('A', lit) LINE 2613 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x00000041 ASSPAR PUSH LIT ASSPAR CALL 2614 ocount = ocount-lit LINE 2614 "regression-compile-tmp/pass1.imp" PUSH OCOUNT PUSH OCOUNT PUSH LIT SUB ASSVAL 2615 %if ocount >= 0 %start LINE 2615 "regression-compile-tmp/pass1.imp" PUSH OCOUNT PUSHI #0x00000000 JUMPIF < L_0004 2616 ->top %if x # 0; ! more coming LINE 2616 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000000 JUMPIF = L_0007 JUMP L_0136 LOCATE L_0007 2617 ocount = -1 %and %return %if ocount = 0; ! all done LINE 2617 "regression-compile-tmp/pass1.imp" PUSH OCOUNT PUSHI #0x00000000 JUMPIF # L_0007 PUSH OCOUNT PUSHI #0x00000001 NEGATE ASSVAL RETURN LOCATE L_0007 2618 %finish LINE 2618 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2619 fault(11); %return 2620 LINE 2619 "regression-compile-tmp/pass1.imp" PUSH FAULT PUSHI #0x0000000b ASSPAR CALL LINE 2619 "regression-compile-tmp/pass1.imp" RETURN 2621 c(swit): op('W', tag(x)_index); inhibit = 1; ->atop LINE 2621 "regression-compile-tmp/pass1.imp" PUSHI #0x00000069 SLABEL 267 LINE 2621 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x00000057 ASSPAR PUSH TAG PUSH X ACCESS SELECT 4 ASSPAR CALL LINE 2621 "regression-compile-tmp/pass1.imp" PUSH INHIBIT PUSHI #0x00000001 ASSVAL LINE 2621 "regression-compile-tmp/pass1.imp" JUMP L_0137 2622 c(134): def(x); ! swid LINE 2622 "regression-compile-tmp/pass1.imp" PUSHI #0x00000086 SLABEL 267 LINE 2622 "regression-compile-tmp/pass1.imp" PUSH DEF PUSH X ASSPAR CALL 2623 n = ub-lb+1 LINE 2623 "regression-compile-tmp/pass1.imp" PUSH N PUSH UB PUSH LB SUB PUSHI #0x00000001 ADD ASSVAL 2624 n = (n+15)>>4; ! slots needed (includes zero) LINE 2624 "regression-compile-tmp/pass1.imp" PUSH N PUSH N PUSHI #0x0000000f ADD PUSHI #0x00000004 RSH ASSVAL 2625 j = dmax; dmax = dmax+n+2 LINE 2625 "regression-compile-tmp/pass1.imp" PUSH J PUSH DMAX ASSVAL LINE 2625 "regression-compile-tmp/pass1.imp" PUSH DMAX PUSH DMAX PUSH N ADD PUSHI #0x00000002 ADD ASSVAL 2626 abandon(1) %if dmax >= dmin LINE 2626 "regression-compile-tmp/pass1.imp" PUSH DMAX PUSH DMIN JUMPIF < L_0004 PUSH ABANDON PUSHI #0x00000001 ASSPAR CALL LOCATE L_0004 2627 tag(x)_format = j LINE 2627 "regression-compile-tmp/pass1.imp" PUSH TAG PUSH X ACCESS SELECT 2 PUSH J ASSVAL 2628 dict(j) = lb; dict(j+1) = ub LINE 2628 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH J ACCESS PUSH LB ASSVAL LINE 2628 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH J PUSHI #0x00000001 ADD ACCESS PUSH UB ASSVAL 2629 %cycle LINE 2629 "regression-compile-tmp/pass1.imp" LOCATE L_0003 2630 n = n-1 LINE 2630 "regression-compile-tmp/pass1.imp" PUSH N PUSH N PUSHI #0x00000001 SUB ASSVAL 2631 ->top %if n < 0 LINE 2631 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x00000000 JUMPIF >= L_0007 JUMP L_0136 LOCATE L_0007 2632 j = j+1; dict(j+1) = 0 LINE 2632 "regression-compile-tmp/pass1.imp" PUSH J PUSH J PUSHI #0x00000001 ADD ASSVAL LINE 2632 "regression-compile-tmp/pass1.imp" PUSH DICT PUSH J PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000000 ASSVAL 2633 %repeat LINE 2633 "regression-compile-tmp/pass1.imp" REPEAT L_0003 2634 c(151): stats = stats-1; ! slab LINE 2634 "regression-compile-tmp/pass1.imp" PUSHI #0x00000097 SLABEL 267 LINE 2634 "regression-compile-tmp/pass1.imp" PUSH STATS PUSH STATS PUSHI #0x00000001 SUB ASSVAL 2635 fault(7) %and %return %if x < tbase LINE 2635 "regression-compile-tmp/pass1.imp" PUSH X PUSH TBASE JUMPIF >= L_0004 PUSH FAULT PUSHI #0x00000007 ASSPAR CALL RETURN LOCATE L_0004 2636 %if pending # 0 %start; ! explicit label LINE 2636 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSHI #0x00000000 JUMPIF = L_0004 2637 def s lab(pstack(1)) LINE 2637 "regression-compile-tmp/pass1.imp" PUSH DEFSLAB PUSH PSTACK PUSHI #0x00000001 ACCESS ASSPAR CALL 2638 %finish %else %start LINE 2638 "regression-compile-tmp/pass1.imp" GOTO L_0003 LOCATE L_0004 2639 fault(4) %and %return %if tag(x)_app # 0 LINE 2639 "regression-compile-tmp/pass1.imp" PUSH TAG PUSH X ACCESS SELECT 1 PUSHI #0x00000000 JUMPIF = L_0007 PUSH FAULT PUSHI #0x00000004 ASSPAR CALL RETURN LOCATE L_0007 2640 tag(x)_app = 1 LINE 2640 "regression-compile-tmp/pass1.imp" PUSH TAG PUSH X ACCESS SELECT 1 PUSHI #0x00000001 ASSVAL 2641 n = tag(x)_format LINE 2641 "regression-compile-tmp/pass1.imp" PUSH N PUSH TAG PUSH X ACCESS SELECT 2 ASSVAL 2642 %for j = dict(n), 1, dict(n+1) %cycle LINE 2642 "regression-compile-tmp/pass1.imp" PUSH J PUSHI #0x00000001 PUSH DICT PUSH N PUSHI #0x00000001 ADD ACCESS PUSH DICT PUSH N ACCESS FOR L_0006 2643 def s lab(j) LINE 2643 "regression-compile-tmp/pass1.imp" PUSH DEFSLAB PUSH J ASSPAR CALL 2644 flush buffer( 128 ); ! flush if bp >= 128 LINE 2644 "regression-compile-tmp/pass1.imp" PUSH FLUSHBUFFER PUSHI #0x00000080 ASSPAR CALL 2645 %repeat LINE 2645 "regression-compile-tmp/pass1.imp" REPEAT L_0006 LOCATE L_0007 2646 %finish LINE 2646 "regression-compile-tmp/pass1.imp" LOCATE L_0003 2647 inhibit = 1 LINE 2647 "regression-compile-tmp/pass1.imp" PUSH INHIBIT PUSHI #0x00000001 ASSVAL 2648 %return 2649 LINE 2648 "regression-compile-tmp/pass1.imp" RETURN 2650 c(140): add char( 'p' ); ->top; ! psep LINE 2650 "regression-compile-tmp/pass1.imp" PUSHI #0x0000008c SLABEL 267 LINE 2650 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x00000070 ASSPAR CALL LINE 2650 "regression-compile-tmp/pass1.imp" JUMP L_0136 2651 c(144): ; ! prb LINE 2651 "regression-compile-tmp/pass1.imp" PUSHI #0x00000090 SLABEL 267 2652 add char( 'p' ); LINE 2652 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x00000070 ASSPAR CALL 2653 add char( 'E' ); ->top 2654 2655 !constant expressions LINE 2653 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x00000045 ASSPAR CALL LINE 2653 "regression-compile-tmp/pass1.imp" JUMP L_0136 2656 c(155): ; ! pconst LINE 2656 "regression-compile-tmp/pass1.imp" PUSHI #0x0000009b SLABEL 267 2657 %if x < 0 %then lit = tag(-x)_format %else lit = lit pool(x) LINE 2657 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000000 JUMPIF >= L_0004 PUSH LIT PUSH TAG PUSH X NEGATE ACCESS SELECT 2 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH LIT PUSH LITPOOL PUSH X ACCESS ASSVAL LOCATE L_0003 2658 pending = pending+1; pstack(pending) = lit; ->top LINE 2658 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSH PENDING PUSHI #0x00000001 ADD ASSVAL LINE 2658 "regression-compile-tmp/pass1.imp" PUSH PSTACK PUSH PENDING ACCESS PUSH LIT ASSVAL LINE 2658 "regression-compile-tmp/pass1.imp" JUMP L_0136 2659 c(156): lit = pstack(pending); lit = -lit %if lit < 0 LINE 2659 "regression-compile-tmp/pass1.imp" PUSHI #0x0000009c SLABEL 267 LINE 2659 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH PSTACK PUSH PENDING ACCESS ASSVAL LINE 2659 "regression-compile-tmp/pass1.imp" PUSH LIT PUSHI #0x00000000 JUMPIF >= L_0004 PUSH LIT PUSH LIT NEGATE ASSVAL LOCATE L_0004 2660 pstack(pending) = lit; ->top; !cmod LINE 2660 "regression-compile-tmp/pass1.imp" PUSH PSTACK PUSH PENDING ACCESS PUSH LIT ASSVAL LINE 2660 "regression-compile-tmp/pass1.imp" JUMP L_0136 2661 c(157): lit = -pstack(pending); pstack(pending) = lit; ->top; ! csign LINE 2661 "regression-compile-tmp/pass1.imp" PUSHI #0x0000009d SLABEL 267 LINE 2661 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH PSTACK PUSH PENDING ACCESS NEGATE ASSVAL LINE 2661 "regression-compile-tmp/pass1.imp" PUSH PSTACK PUSH PENDING ACCESS PUSH LIT ASSVAL LINE 2661 "regression-compile-tmp/pass1.imp" JUMP L_0136 2662 c(158): lit = \pstack(pending); pstack(pending) = lit; ->top; ! cuop LINE 2662 "regression-compile-tmp/pass1.imp" PUSHI #0x0000009e SLABEL 267 LINE 2662 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH PSTACK PUSH PENDING ACCESS NOT ASSVAL LINE 2662 "regression-compile-tmp/pass1.imp" PUSH PSTACK PUSH PENDING ACCESS PUSH LIT ASSVAL LINE 2662 "regression-compile-tmp/pass1.imp" JUMP L_0136 2663 c(159): ; ! cop1 LINE 2663 "regression-compile-tmp/pass1.imp" PUSHI #0x0000009f SLABEL 267 2664 c(160): ; ! cop2 LINE 2664 "regression-compile-tmp/pass1.imp" PUSHI #0x000000a0 SLABEL 267 2665 c(161): pending = pending-1; ! cop3 LINE 2665 "regression-compile-tmp/pass1.imp" PUSHI #0x000000a1 SLABEL 267 LINE 2665 "regression-compile-tmp/pass1.imp" PUSH PENDING PUSH PENDING PUSHI #0x00000001 SUB ASSVAL 2666 lit2 = pstack(pending+1); lit = pstack(pending) LINE 2666 "regression-compile-tmp/pass1.imp" PUSH LIT2 PUSH PSTACK PUSH PENDING PUSHI #0x00000001 ADD ACCESS ASSVAL LINE 2666 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH PSTACK PUSH PENDING ACCESS ASSVAL 2667 ->litop(x>>2) 2668 LINE 2667 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000002 RSH SJUMP 268 2669 litop(1): lit = lit<setl LINE 2669 "regression-compile-tmp/pass1.imp" PUSHI #0x00000001 SLABEL 268 LINE 2669 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH LIT PUSH LIT2 LSH ASSVAL LINE 2669 "regression-compile-tmp/pass1.imp" JUMP L_013d 2670 litop(2): lit = lit>>lit2; ->setl LINE 2670 "regression-compile-tmp/pass1.imp" PUSHI #0x00000002 SLABEL 268 LINE 2670 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH LIT PUSH LIT2 RSH ASSVAL LINE 2670 "regression-compile-tmp/pass1.imp" JUMP L_013d 2671 litop(3): n = 1; ! lit = lit\\lit2 LINE 2671 "regression-compile-tmp/pass1.imp" PUSHI #0x00000003 SLABEL 268 LINE 2671 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x00000001 ASSVAL 2672 fault(10) %if lit2 < 0 LINE 2672 "regression-compile-tmp/pass1.imp" PUSH LIT2 PUSHI #0x00000000 JUMPIF >= L_0004 PUSH FAULT PUSHI #0x0000000a ASSPAR CALL LOCATE L_0004 2673 %while lit2 > 0 %cycle LINE 2673 "regression-compile-tmp/pass1.imp" LOCATE L_0003 PUSH LIT2 PUSHI #0x00000000 JUMPIF <= L_0004 2674 lit2 = lit2-1 LINE 2674 "regression-compile-tmp/pass1.imp" PUSH LIT2 PUSH LIT2 PUSHI #0x00000001 SUB ASSVAL 2675 n = n*lit LINE 2675 "regression-compile-tmp/pass1.imp" PUSH N PUSH N PUSH LIT MUL ASSVAL 2676 %repeat LINE 2676 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 2677 lit = n; ->setl LINE 2677 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH N ASSVAL LINE 2677 "regression-compile-tmp/pass1.imp" JUMP L_013d 2678 litop(4): %if lit2 = 0 %then fault(10) %else lit = lit//lit2 LINE 2678 "regression-compile-tmp/pass1.imp" PUSHI #0x00000004 SLABEL 268 LINE 2678 "regression-compile-tmp/pass1.imp" PUSH LIT2 PUSHI #0x00000000 JUMPIF # L_0004 PUSH FAULT PUSHI #0x0000000a ASSPAR CALL GOTO L_0003 LOCATE L_0004 PUSH LIT PUSH LIT PUSH LIT2 QUOT ASSVAL LOCATE L_0003 2679 ->setl LINE 2679 "regression-compile-tmp/pass1.imp" JUMP L_013d 2680 litop(5): lit = lit&lit2; ->setl LINE 2680 "regression-compile-tmp/pass1.imp" PUSHI #0x00000005 SLABEL 268 LINE 2680 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH LIT PUSH LIT2 AND ASSVAL LINE 2680 "regression-compile-tmp/pass1.imp" JUMP L_013d 2681 litop(6): lit = lit!lit2; ->setl LINE 2681 "regression-compile-tmp/pass1.imp" PUSHI #0x00000006 SLABEL 268 LINE 2681 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH LIT PUSH LIT2 OR ASSVAL LINE 2681 "regression-compile-tmp/pass1.imp" JUMP L_013d 2682 litop(7): lit = lit!!lit2; ->setl LINE 2682 "regression-compile-tmp/pass1.imp" PUSHI #0x00000007 SLABEL 268 LINE 2682 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH LIT PUSH LIT2 XOR ASSVAL LINE 2682 "regression-compile-tmp/pass1.imp" JUMP L_013d 2683 litop(8): lit = lit+lit2; ->setl LINE 2683 "regression-compile-tmp/pass1.imp" PUSHI #0x00000008 SLABEL 268 LINE 2683 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH LIT PUSH LIT2 ADD ASSVAL LINE 2683 "regression-compile-tmp/pass1.imp" JUMP L_013d 2684 litop(9): lit = lit-lit2; ->setl LINE 2684 "regression-compile-tmp/pass1.imp" PUSHI #0x00000009 SLABEL 268 LINE 2684 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH LIT PUSH LIT2 SUB ASSVAL LINE 2684 "regression-compile-tmp/pass1.imp" JUMP L_013d 2685 litop(10): lit = lit*lit2; ->setl LINE 2685 "regression-compile-tmp/pass1.imp" PUSHI #0x0000000a SLABEL 268 LINE 2685 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH LIT PUSH LIT2 MUL ASSVAL LINE 2685 "regression-compile-tmp/pass1.imp" JUMP L_013d 2686 litop(11): lit = lit+lit2; ->setl LINE 2686 "regression-compile-tmp/pass1.imp" PUSHI #0x0000000b SLABEL 268 LINE 2686 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH LIT PUSH LIT2 ADD ASSVAL LINE 2686 "regression-compile-tmp/pass1.imp" JUMP L_013d 2687 litop(12): n = 1; ! lit = lit\\lit2 LINE 2687 "regression-compile-tmp/pass1.imp" PUSHI #0x0000000c SLABEL 268 LINE 2687 "regression-compile-tmp/pass1.imp" PUSH N PUSHI #0x00000001 ASSVAL 2688 fault(10) %if lit2 < 0 LINE 2688 "regression-compile-tmp/pass1.imp" PUSH LIT2 PUSHI #0x00000000 JUMPIF >= L_0004 PUSH FAULT PUSHI #0x0000000a ASSPAR CALL LOCATE L_0004 2689 %while lit2 > 0 %cycle LINE 2689 "regression-compile-tmp/pass1.imp" LOCATE L_0003 PUSH LIT2 PUSHI #0x00000000 JUMPIF <= L_0004 2690 lit2 = lit2-1 LINE 2690 "regression-compile-tmp/pass1.imp" PUSH LIT2 PUSH LIT2 PUSHI #0x00000001 SUB ASSVAL 2691 n = n*lit LINE 2691 "regression-compile-tmp/pass1.imp" PUSH N PUSH N PUSH LIT MUL ASSVAL 2692 %repeat LINE 2692 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 2693 lit = n; ->setl LINE 2693 "regression-compile-tmp/pass1.imp" PUSH LIT PUSH N ASSVAL LINE 2693 "regression-compile-tmp/pass1.imp" JUMP L_013d 2694 setl: pstack(pending) = lit; ->top 2695 LINE 2694 "regression-compile-tmp/pass1.imp" LABEL L_013d LINE 2694 "regression-compile-tmp/pass1.imp" PUSH PSTACK PUSH PENDING ACCESS PUSH LIT ASSVAL LINE 2694 "regression-compile-tmp/pass1.imp" JUMP L_0136 2696 c(170): ; 2697 !Fault(4) %if IMPCOM_Option # "" 2698 !IMPCOM_Option = String(x-x'4000'+Stbase); ! Option string LINE 2696 "regression-compile-tmp/pass1.imp" PUSHI #0x000000aa SLABEL 267 2699 ->Top 2700 2701 !string resolution LINE 2699 "regression-compile-tmp/pass1.imp" JUMP L_0136 2702 c(135): resln = 2; ->top; ! dotl LINE 2702 "regression-compile-tmp/pass1.imp" PUSHI #0x00000087 SLABEL 267 LINE 2702 "regression-compile-tmp/pass1.imp" PUSH RESLN PUSHI #0x00000002 ASSVAL LINE 2702 "regression-compile-tmp/pass1.imp" JUMP L_0136 2703 c(136): resln = resln+1; ->top; ! dotr LINE 2703 "regression-compile-tmp/pass1.imp" PUSHI #0x00000088 SLABEL 267 LINE 2703 "regression-compile-tmp/pass1.imp" PUSH RESLN PUSH RESLN PUSHI #0x00000001 ADD ASSVAL LINE 2703 "regression-compile-tmp/pass1.imp" JUMP L_0136 2704 c(55): op('r', resln); resln = 0; ->top; ! resop LINE 2704 "regression-compile-tmp/pass1.imp" PUSHI #0x00000037 SLABEL 267 LINE 2704 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x00000072 ASSPAR PUSH RESLN ASSPAR CALL LINE 2704 "regression-compile-tmp/pass1.imp" PUSH RESLN PUSHI #0x00000000 ASSVAL LINE 2704 "regression-compile-tmp/pass1.imp" JUMP L_0136 2705 c(164): op('r', resln+4); resln = 0; ! cresop LINE 2705 "regression-compile-tmp/pass1.imp" PUSHI #0x000000a4 SLABEL 267 LINE 2705 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x00000072 ASSPAR PUSH RESLN PUSHI #0x00000004 ADD ASSPAR CALL LINE 2705 "regression-compile-tmp/pass1.imp" PUSH RESLN PUSHI #0x00000000 ASSVAL 2706 c(122): x = 6; ->cop; ! %PRED LINE 2706 "regression-compile-tmp/pass1.imp" PUSHI #0x0000007a SLABEL 267 LINE 2706 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000006 ASSVAL LINE 2706 "regression-compile-tmp/pass1.imp" JUMP L_0139 2707 c(87): set const(pstack(1)); ! mass LINE 2707 "regression-compile-tmp/pass1.imp" PUSHI #0x00000057 SLABEL 267 LINE 2707 "regression-compile-tmp/pass1.imp" PUSH SETCONST PUSH PSTACK PUSHI #0x00000001 ACCESS ASSPAR CALL 2708 bp=bp+1 %and buff(bp)='P'; ->top LINE 2708 "regression-compile-tmp/pass1.imp" PUSH BP PUSH BP PUSHI #0x00000001 ADD ASSVAL PUSH BUFF PUSH BP ACCESS PUSHI #0x00000050 ASSVAL LINE 2708 "regression-compile-tmp/pass1.imp" JUMP L_0136 2709 %end 2710 LINE 2709 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK_COMPILE {lev=3 --> 2} 2711 %end; ! of compile block 2712 LINE 2711 "regression-compile-tmp/pass1.imp" END _lev0id0_COMPILEBLOCK {lev=2 --> 1} 2713 %on 9 %start LINE 2713 "regression-compile-tmp/pass1.imp" ON MASK=0200 L_0004 2714 abandon(5) LINE 2714 "regression-compile-tmp/pass1.imp" PUSH ABANDON PUSHI #0x00000005 ASSPAR CALL 2715 %finish 2716 LINE 2715 "regression-compile-tmp/pass1.imp" LOCATE L_0004 2717 selectinput(2); selectoutput(listing) LINE 2717 "regression-compile-tmp/pass1.imp" PUSH SELECTINPUT PUSHI #0x00000002 ASSPAR CALL LINE 2717 "regression-compile-tmp/pass1.imp" PUSH SELECTOUTPUT PUSHI #0x00000002 ASSPAR CALL 2718 tag(max tag) = 0; ! %begin defn LINE 2718 "regression-compile-tmp/pass1.imp" PUSH TAG PUSHI #0x00000320 ACCESS PUSHI #0x00000000 ASSVAL 2719 tag(0) = 0; tag(0)_flags = 7; ! %begin tag! LINE 2719 "regression-compile-tmp/pass1.imp" PUSH TAG PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL LINE 2719 "regression-compile-tmp/pass1.imp" PUSH TAG PUSHI #0x00000000 ACCESS SELECT 3 PUSHI #0x00000007 ASSVAL 2720 Hash(x) = 0 %for x = 0, 1, max names LINE 2720 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000001 PUSHI #0x000007ff PUSHI #0x00000000 FOR L_0003 PUSH HASH PUSH X ACCESS PUSHI #0x00000000 ASSVAL REPEAT L_0003 LOCATE L_0004 2721 printstring(" Edinburgh IMP77 Compiler - Version ") 2722 ! printstring(" Preston IMP2020 Compiler - Version ") LINE 2721 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " Edinburgh IMP77 Compiler - Version " ASSPAR CALL 2723 printstring(version); newlines(2) LINE 2723 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSH VERSION ASSPAR CALL LINE 2723 "regression-compile-tmp/pass1.imp" PUSH NEWLINES PUSHI #0x00000002 ASSPAR CALL 2724 op('l', 0) LINE 2724 "regression-compile-tmp/pass1.imp" PUSH OP PUSHI #0x0000006c ASSPAR PUSHI #0x00000000 ASSPAR CALL 2725 compile block(0, 0, max dict, 0, 0) LINE 2725 "regression-compile-tmp/pass1.imp" PUSH COMPILEBLOCK PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00001770 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2726 add char( nl ); ! {for bouncing off} LINE 2726 "regression-compile-tmp/pass1.imp" PUSH ADDCHAR PUSHI #0x0000000a ASSPAR CALL 2727 flush buffer( 0 ); ! flush if bp >= 0 2728 LINE 2727 "regression-compile-tmp/pass1.imp" PUSH FLUSHBUFFER PUSHI #0x00000000 ASSPAR CALL 2729 x = listing LINE 2729 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000002 ASSVAL 2730 newline LINE 2730 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 2731 %cycle LINE 2731 "regression-compile-tmp/pass1.imp" LOCATE L_0003 2732 %if faulty = 0 %start LINE 2732 "regression-compile-tmp/pass1.imp" PUSH FAULTY PUSHI #0x00000000 JUMPIF # L_0007 2733 write(stats, 5) LINE 2733 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH STATS ASSPAR PUSHI #0x00000005 ASSPAR CALL 2734 printstring(" Statements compiled") LINE 2734 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " Statements compiled" ASSPAR CALL 2735 %else LINE 2735 "regression-compile-tmp/pass1.imp" GOTO L_0006 LOCATE L_0007 2736 printstring(" Program contains ") LINE 2736 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " Program contains " ASSPAR CALL 2737 write(faulty, 1) LINE 2737 "regression-compile-tmp/pass1.imp" PUSH WRITE PUSH FAULTY ASSPAR PUSHI #0x00000001 ASSPAR CALL 2738 printstring(" fault") LINE 2738 "regression-compile-tmp/pass1.imp" PUSH PRINTSTRING PUSHS " fault" ASSPAR CALL 2739 printsymbol('s') %unless faulty = 1 LINE 2739 "regression-compile-tmp/pass1.imp" PUSH FAULTY PUSHI #0x00000001 JUMPIF = L_000a PUSH PRINTSYMBOL PUSHI #0x00000073 ASSPAR CALL LOCATE L_000a 2740 %finish LINE 2740 "regression-compile-tmp/pass1.imp" LOCATE L_0006 2741 newline LINE 2741 "regression-compile-tmp/pass1.imp" PUSH NEWLINE CALL 2742 %exit %if x = report LINE 2742 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000000 JUMPIF # L_0007 GOTO L_0004 LOCATE L_0007 2743 x = report LINE 2743 "regression-compile-tmp/pass1.imp" PUSH X PUSHI #0x00000000 ASSVAL 2744 selectoutput(report) LINE 2744 "regression-compile-tmp/pass1.imp" PUSH SELECTOUTPUT PUSHI #0x00000000 ASSPAR CALL 2745 %repeat 2746 LINE 2745 "regression-compile-tmp/pass1.imp" REPEAT L_0003 LOCATE L_0004 2747 %if faulty # 0 %then %stop; ! try to flag to shell that we failed 2748 LINE 2747 "regression-compile-tmp/pass1.imp" PUSH FAULTY PUSHI #0x00000000 JUMPIF = L_0004 STOP LOCATE L_0004 2749 %endofprogram LINE 2749 "regression-compile-tmp/pass1.imp" END _lev0id0 {lev=1 --> 0} END {lev=0 --> -1}