wok annotate linld/stuff/src/pipehole.awk @ rev 21751

tazboot: shrink (again)
author Pascal Bellard <pascal.bellard@slitaz.org>
date Sat Jun 15 18:53:05 2019 +0200 (2019-06-15)
parents c19368210c2b
children 30270fe0d1b3
rev   line source
pascal@21750 1 BEGIN { hold=0; is386=0; isload=0; isiso=0; istazboot=0; wascall=0 }
pascal@20458 2 function isnum(n) { return match(n,/^[0-9+-]/) }
pascal@20458 3 {
pascal@20632 4 sub(/segment word public/,"segment byte public")
pascal@20634 5
pascal@21576 6 if (/^@.*:$/ || / endp$/) afterjmp=0
pascal@21729 7 if (/dword ptr/) is386=1
pascal@21750 8 if (/vid_mode = vid_mode/) isload=2
pascal@21750 9 if (isload == 2) { # LOAD.LST
pascal@21750 10 sub(/,0/,""); sub(/cmp /,"mov cx,")
pascal@21750 11 sub(/je/,"jcxz")
pascal@21750 12 if (/ax,word/) next
pascal@21750 13 sub(/,ax/,",cx")
pascal@21750 14 if (/version_string/) isload=0
pascal@21750 15 }
pascal@21729 16 if (/heap_top = _rm_buf/) isload=1
pascal@21750 17 if (isload == 1) { # LOAD.LST
pascal@21729 18 if (/mov al,byte ptr/ && is386) {
pascal@21729 19 print " movzx eax,byte ptr [si]"
pascal@21729 20 next
pascal@21729 21 }
pascal@21729 22 if (/ax,word ptr/) next
pascal@21729 23 if (/^ call/) isload=0
pascal@21729 24 }
pascal@21735 25 if (/x->curdirsize == 0xFFFF/) isiso=4
pascal@21735 26 if (isiso == 4) { # ISO9660.LST
pascal@21747 27 sub(/DGROUP:_isostate\+14/,"[si+14]")
pascal@21747 28 sub(/DGROUP:_isostate\+16/,"[si+16]")
pascal@21747 29 if (/goto restarted/) isiso=0
pascal@21735 30 }
pascal@21750 31 if (/c = \*s; \*s = 0;/) isiso=3
pascal@21750 32 if (isiso == 3) { # ISO9660.LST, TAZBOOT.LST
pascal@21735 33 if (/al,byte ptr/) {
pascal@21735 34 print " mov al,0"
pascal@21735 35 sub(/mov/,"xchg")
pascal@21735 36 }
pascal@21750 37 if (/byte ptr \[.*\],0/) {
pascal@21735 38 isiso=0
pascal@21735 39 next
pascal@21735 40 }
pascal@21735 41 }
pascal@21735 42 if (/endname = NULL/) isiso=2
pascal@21735 43 if (isiso == 2) { # ISO9660.LST
pascal@21735 44 if (/mov bx,cx/) next
pascal@21735 45 gsub(/cx/,"bx")
pascal@21747 46 sub(/DGROUP:_isostate\+31/,"[si+31]")
pascal@21735 47 }
pascal@21735 48 if (/const char \*n = name/) isiso=1
pascal@21735 49 if (isiso == 1) { # ISO9660.LST
pascal@21735 50 if ((/mov word ptr \[si\+32\],ax/ ) ||
pascal@21735 51 (/mov ax,word ptr \[si\+28\]/) ||
pascal@21735 52 (/bx,word ptr \[si\+32\]/) || (/ax,dx/)) next
pascal@21729 53 if (/dx,/) sub(/dx/,"ax")
pascal@21735 54 if ((/sub ax,word ptr \[si\+28\]/) ||
pascal@21735 55 (/\[si\+12\]/) || (/ax,di/)) sub(/ax/,"bx")
pascal@21735 56 if (/add word ptr \[si\+32\],ax/) $0=" add bx,word ptr [si+12]"
pascal@21735 57 if (/al,/ || /,al/) sub(/al/,"cl")
pascal@21735 58 if (/cmp byte ptr \[si\+30\],0/) $0=" or cl,cl"
pascal@21735 59 if (/jne @@0$/) next
pascal@21735 60 if (/jmp @3@58$/) $0=" je @3@58"
pascal@21729 61 }
pascal@21750 62 if (/isoopen\(s\+7\) != -1/) isotazboot=8
pascal@21750 63 if (isotazboot == 8) { # TAZBOOT.LST
pascal@21750 64 if (/ax,si/) next
pascal@21750 65 sub(/ax,ax/,"si,si")
pascal@21750 66 if (/magic/) isotazboot=0
pascal@21750 67 }
pascal@21750 68 if (/\+\+isknoppix/) isotazboot=7
pascal@21750 69 if (isotazboot == 7) { # TAZBOOT.LST
pascal@21750 70 if (/al,byte/) sub (/al,byte ptr DGROUP:/,"bx,offset ")
pascal@21750 71 if (/inc/) sub (/al/,"word ptr [bx]")
pascal@21750 72 if (/,al/) next
pascal@21750 73 if (/isokernel/) isotazboot=0
pascal@21750 74 }
pascal@21750 75 if (/if \(c\) s\+\+;/) isotazboot=6
pascal@21750 76 if (isotazboot == 6) { # TAZBOOT.LST
pascal@21750 77 if (/cmp/) {
pascal@21750 78 $0=" cmp al,0"
pascal@21750 79 isotazboot=0
pascal@21750 80 }
pascal@21750 81 }
pascal@21750 82 if (/initrd_state.info\[m->state\]/) isotazboot=5
pascal@21750 83 if (isotazboot == 5) { # TAZBOOT.LST
pascal@21750 84 if (/cx,ax/) $0=" xchg ax,bx"
pascal@21750 85 if (/mov ax,word ptr \[si\]/) $0=" lodsw"
pascal@21750 86 if (/ax,word ptr \[si\+28\]/) next
pascal@21750 87 if (/bx,cx/) next
pascal@21750 88 if (/endp/) isotazboot=0
pascal@21750 89 }
pascal@21750 90 if (/0x7FF0/) isotazboot=4
pascal@21750 91 if (isotazboot == 4) { # TAZBOOT.LST
pascal@21750 92 if (/ax,word ptr/) {
pascal@21750 93 print " mov ax,32752"
pascal@21750 94 sub(/mov/,"sub")
pascal@21750 95 }
pascal@21750 96 if (/bx,/ || /cx,/ || /dx,/) next
pascal@21750 97 sub(/,bx/,",0")
pascal@21750 98 sub(/,cx/,",ax")
pascal@21750 99 if (/short/) isotazboot=0
pascal@21750 100 }
pascal@21750 101 if (/c = x->filename/) isotazboot=3
pascal@21750 102 if (isotazboot == 3) { # TAZBOOT.LST
pascal@21750 103 if (/ax,/) $0=" xchg ax,bx"
pascal@21750 104 if (/\]$/) next
pascal@21750 105 if (/@strcpy\$qpxzct1/) isotazboot=0
pascal@21750 106 }
pascal@21750 107 if (/memtop/) isotazboot=2
pascal@21750 108 if (isotazboot == 2) { # TAZBOOT.LST
pascal@21750 109 if (/DGROUP:_base_himem\+2,dx/) print " mov bx,offset _base_himem"
pascal@21750 110 sub(/DGROUP:_base_himem,/,"[bx],")
pascal@21750 111 sub(/DGROUP:_base_himem\+2,/,"[bx+2],")
pascal@21750 112 sub(/DGROUP:_base_himem\+3,/,"[bx+3],")
pascal@21750 113 if (/ax,word ptr \[bx\+2\]/ || /\[bp-4\],ax/) sub(/ax/,"bx")
pascal@21750 114 if (/bx,ax/) next
pascal@21750 115 if (/@strcmp\$qpxzct1/) isotazboot=0
pascal@21750 116 }
pascal@21751 117 if (/static void addinitrd/) isotazboot=100
pascal@21751 118 if (isotazboot == 100) { # TAZBOOT.LST
pascal@21751 119 if (/cx,ax/) {
pascal@21751 120 print " xchg ax,si"
pascal@21751 121 print " push di"
pascal@21751 122 print " mov di,offset _isostate+4"
pascal@21751 123 print " movsw"
pascal@21751 124 print " movsw"
pascal@21751 125 print " movsw"
pascal@21751 126 print " movsw"
pascal@21751 127 $0=" pop di"
pascal@21751 128 }
pascal@21751 129 if (/mov/ && !/si/ && !/cl/) next
pascal@21751 130 if (/initrd.size \+=/) isotazboot=101
pascal@21751 131 }
pascal@21751 132 if (isotazboot > 100) { # TAZBOOT.LST
pascal@21751 133 if (/m->next_chunk = next_chunk/) isotazboot=101
pascal@21751 134 if (/load_initrd/) isotazboot=102
pascal@21751 135 if (/push si/ && isotazboot == 102) next
pascal@21751 136 if (/pop si/ && isotazboot == 102) next
pascal@21750 137 sub(/\[si\]/,"[bx]")
pascal@21751 138 sub(/push si$/,"push bx")
pascal@21750 139 sub(/si,/,"bx,")
pascal@21750 140 sub(/si\+/,"bx+")
pascal@21750 141 if (/mov cx,ax/) $0=" xchg ax,bx"
pascal@21750 142 if (/bx,cx/) next
pascal@21750 143 sub(/cx/,"bx")
pascal@21751 144 sub(/DGROUP:_imgs\+38$/,"[bx+38-32]")
pascal@21751 145 sub(/DGROUP:_imgs\+40$/,"[bx+40-32]")
pascal@21750 146 if (/static void bootiso/) isotazboot=0
pascal@21750 147 }
pascal@21729 148 if (wascall) {
pascal@21729 149 if (rcall != "") {
pascal@21729 150 if (/,ax$/) print " mov " rcall ",ax"
pascal@21729 151 else print " xchg ax," rcall
pascal@21729 152 wascall=0
pascal@21729 153 }
pascal@21729 154 else if (/^ mov .i,ax$/) {
pascal@21729 155 split($2,y,",")
pascal@21729 156 rcall=y[1]
pascal@21729 157 next
pascal@21729 158 }
pascal@21729 159 else wascall=0
pascal@21729 160 }
pascal@21729 161 if (/^ call /) { wascall=1; rcall="" }
pascal@20458 162 if (hold == 0) {
pascal@20458 163 s=$0
pascal@20534 164 if (/^ mov .[ix],bx$/ || /^ mov .[ix],.i$/) {
pascal@20543 165 r=$2; kept=0
pascal@20458 166 hold=1; split($2,regs,","); next
pascal@20458 167 }
pascal@21729 168 if (/^ inc e?.[ixhl]/ || /^ dec e?.[ixhl]/) {
pascal@20458 169 hold=2; r=$2; next
pascal@20458 170 }
pascal@20458 171 if (/^ mov [abcds][ix],/ && ! /,.s/) {
pascal@20458 172 hold=3; split($2,regs,","); next
pascal@20458 173 }
pascal@20458 174 if (/^ movzx eax,ax$/) { hold=4; next }
pascal@20544 175 if (/^ cmp word ptr/ || /^ cmp [bcd]x,/) {
pascal@20543 176 split($0,regs,",")
pascal@20543 177 if (isnum(regs[2]) && regs[2] != 0 &&
pascal@20543 178 (regs[2] % 256) == 0) {
pascal@20549 179 hold=5; next
pascal@20543 180 }
pascal@20543 181 }
pascal@20630 182 if (/^ mov ax,cs$/) { hold=6; kept=0; next }
pascal@20630 183 if (/^ mov cl,4$/) { hold=7; next }
pascal@20630 184 if (/^ cmp word ptr DGROUP:.*,0$/) {
pascal@20630 185 hold=8; split($2,regs,","); next
pascal@20630 186 }
pascal@20634 187 if (/^ cbw/) { hold=11; kept=0; next }
pascal@20634 188 if (/^ add [abcds][ix],2$/) {
pascal@20634 189 split($2,regs,","); hold=12; next
pascal@20634 190 }
pascal@20634 191 if (/^ sub [abcds][ix],2$/) {
pascal@20634 192 split($2,regs,","); hold=13; next
pascal@20634 193 }
pascal@21569 194 if (/^ push dx$/) {
pascal@21569 195 hold=14; next;
pascal@21569 196 }
pascal@20458 197 }
pascal@20458 198 else if (hold == 1) {
pascal@20543 199 if (/^ ;/) { line[kept++]=$0; next }
pascal@20458 200 hold=0; split($2,args,","); op=""
pascal@20458 201 if ($1 == "add") op="+"
pascal@20458 202 if ($1 == "sub") op="-"
pascal@20751 203 if ($1 == "inc") { op="+"; args[2]="1"; }
pascal@20751 204 if ($1 == "dec") { op="-"; args[2]="1"; }
pascal@20543 205 if (op != "" && regs[1] == args[1]) {
pascal@20543 206 if (isnum(args[2])) {
pascal@20630 207 for (i = kept++; i > 0; i--) line[i] = line[i-1]
pascal@20630 208 line[0] = "\tlea\t" regs[1] ",[" regs[2] op args[2] "]"
pascal@20630 209 hold=10; next
pascal@20543 210 }
pascal@20543 211 line[kept++]=$0
pascal@20543 212 hold=1
pascal@20458 213 next
pascal@20458 214 }
pascal@20520 215 if (/^ pop [ds]i/ && regs[2] ~ /^[ds]i$/) {
pascal@20520 216 print " xchg " r
pascal@20520 217 }
pascal@20543 218 else print s
pascal@20543 219 for (i = 0; i < kept; i++) print line[i]; kept=0
pascal@20458 220 }
pascal@20458 221 else if (hold == 2) {
pascal@21729 222 split($0,args,",")
pascal@21729 223 if (/^ mov / && r == args[2]) { print s; s=$0; next }
pascal@21729 224 split($2,args,",")
pascal@21729 225 hold=0; print s
pascal@20458 226 if ($1 == "or" && r == args[1] && r == args[2]) next # don't clear C ...
pascal@20458 227 }
pascal@20458 228 else if (hold == 3) {
pascal@20458 229 hold=0
pascal@21576 230 if (/^ call / && regs[2] == "ax") s=" xchg ax," regs[1]
pascal@20542 231 if (/^ add [abcds][ix],/) {
pascal@20458 232 split($2,regs2,",")
pascal@20458 233 if (regs[1] == regs2[1] && (regs2[2] == "offset" || isnum(regs2[2]))) {
pascal@20549 234 t=$0; sub(/mov/,$1,s); sub(/add/,"mov",t)
pascal@20458 235 print t; print s; next
pascal@20458 236 }
pascal@20458 237 }
pascal@20458 238 print s
pascal@20458 239 }
pascal@20458 240 else if (hold == 4) {
pascal@20458 241 hold=0
pascal@20458 242 if (/^ push eax$/) {
pascal@20458 243 print " push 0"; print " push ax"; next
pascal@20458 244 } else { print s }
pascal@20458 245 }
pascal@20543 246 else if (hold == 5) {
pascal@20543 247 hold=0
pascal@20543 248 if ($1 == "jae" || $1 == "jb") {
pascal@20544 249 sub(/word ptr/,"byte ptr",s); sub(/x,/,"h,",s) ||
pascal@20543 250 sub(/\],/,"+1],",s) || sub(/,/,"+1,",s)
pascal@20543 251 s = s "/256"
pascal@20543 252 }
pascal@20543 253 print s
pascal@20543 254 }
pascal@20630 255 else if (hold == 6) {
pascal@20630 256 if (($1 == "and" || $1 == "add") && $2 ~ /^ax,/) {
pascal@20630 257 line[kept++]=$0
pascal@20630 258 next
pascal@20630 259 }
pascal@20630 260 p=$0
pascal@20630 261 if (/^ movzx eax,ax$/) {
pascal@20630 262 s=" mov eax,cs"; p=""
pascal@20630 263 }
pascal@20630 264 print s
pascal@20630 265 for (i = 0; i < kept; i++) print line[i]; kept=0
pascal@20630 266 if (p != "") print p
pascal@20630 267 hold=0; next
pascal@20630 268 }
pascal@20630 269 else if (hold == 7) {
pascal@20458 270 hold=0
pascal@20520 271 if (/^ call near ptr N_LXURSH@$/) {
pascal@20520 272 print " extrn N_LXURSH@4:near"
pascal@20520 273 print " call near ptr N_LXURSH@4"
pascal@20520 274 next
pascal@20520 275 }
pascal@20528 276 if (/^ call near ptr N_LXLSH@$/) {
pascal@20528 277 print " extrn N_LXLSH@4:near"
pascal@20528 278 print " call near ptr N_LXLSH@4"
pascal@20528 279 next
pascal@20528 280 }
pascal@20520 281 print s
pascal@20458 282 }
pascal@20630 283 else if (hold == 8) {
pascal@20630 284 if ($1 == "je" || $1 == "jne") { p=$0; hold=9; next }
pascal@20630 285 hold=0
pascal@20630 286 print s
pascal@20630 287 }
pascal@20630 288 else if (hold == 9) {
pascal@20630 289 hold=0; split($2,args,",")
pascal@20630 290 if (/^ mov ax,/ && args[2] == regs[1]) {
pascal@20630 291 print; print " or ax,ax"; print p; next
pascal@20630 292 }
pascal@20630 293 print s; print p;
pascal@20630 294 }
pascal@20630 295 else if (hold == 10) {
pascal@20751 296 split($2,args,","); op=""
pascal@20751 297 if ($1 == "add") op="+"
pascal@20751 298 if ($1 == "sub") op="-"
pascal@20751 299 if ($1 == "inc") { op="+"; args[2]="1"; }
pascal@20751 300 if ($1 == "dec") { op="-"; args[2]="1"; }
pascal@20751 301 if (op != "" && isnum(args[2])) {
pascal@20751 302 split(line[0],reg,",")
pascal@20751 303 if (substr(reg[1],length(reg[1])-1,2) == args[1]) {
pascal@20751 304 line[0] = substr(line[0],1,length(line[0])-1) op args[2] "]"
pascal@20751 305 next
pascal@20751 306 }
pascal@20751 307 }
pascal@20630 308 hold=0
pascal@20630 309 if (/^ mov [sd]i,ax$/) {
pascal@20630 310 split($2,args,",")
pascal@20630 311 for (i = 0; i < kept; i++) {
pascal@20630 312 sub(/ax/,args[1],line[i]); print line[i]
pascal@20630 313 }
pascal@20630 314 next
pascal@20630 315 }
pascal@20630 316 for (i = 0; i < kept; i++) print line[i]
pascal@20630 317 }
pascal@20634 318 else if (hold == 11) {
pascal@20634 319 if (/^ inc ax$/ || /^ dec ax$/) {
pascal@20634 320 line[kept++]=$0; next
pascal@20634 321 }
pascal@20634 322 split($2,args,",")
pascal@20634 323 if (/^ mov cl,/) {
pascal@20634 324 split($2,args,",")
pascal@20634 325 if (args[2] >= 8) {
pascal@20634 326 line[kept++]=$0; next
pascal@20634 327 }
pascal@20634 328 }
pascal@20634 329 if (!/^ shl ax,/ || (args[2] != "cl" && args[2] < 8)) {
pascal@20634 330 print " cbw "
pascal@20634 331 }
pascal@20634 332 for (i = 0; i < kept; i++) print line[i]
pascal@20634 333 hold=kept=0
pascal@20634 334 }
pascal@20634 335 else if (hold == 12) {
pascal@20634 336 hold=0
pascal@20634 337 if ($1 != "adc" && $1 != "sbb" && ! /^ jn?[abc]/) {
pascal@20634 338 print " inc " regs[1]
pascal@20634 339 print " inc " regs[1]
pascal@20634 340 }
pascal@20634 341 else print " add " regs[1] ",2"
pascal@20634 342 }
pascal@20634 343 else if (hold == 13) {
pascal@20634 344 hold=0
pascal@20634 345 if ($1 != "adc" && $1 != "sbb" && ! /^ jn?[abc]/) {
pascal@20634 346 print " dec " regs[1]
pascal@20634 347 print " dec " regs[1]
pascal@20634 348 }
pascal@20634 349 else print " sub " regs[1] ",2"
pascal@20634 350 }
pascal@21569 351 else if (hold == 14) {
pascal@21569 352 if (/^ push ax$/) { hold++; next; }
pascal@21569 353 print " push dx";
pascal@21569 354 hold=0;
pascal@21569 355 }
pascal@21569 356 else if (hold == 15) {
pascal@21569 357 if (/^ pop eax$/) { hold++; next; }
pascal@21569 358 print " push dx";
pascal@21569 359 print " push ax";
pascal@21569 360 hold=0;
pascal@21569 361 }
pascal@21569 362 else if (hold == 16) {
pascal@21569 363 hold=0;
pascal@21569 364 if (/^ shr eax,16$/) { print " xchg ax,dx"; next; }
pascal@21569 365 print " push dx";
pascal@21569 366 print " push ax";
pascal@21569 367 print " pop eax";
pascal@21569 368 }
pascal@21569 369 else if (hold == 17) {
pascal@21569 370 hold=0;
pascal@21569 371 if (/^ cmp ax,-1$/) { print " inc ax"; next; }
pascal@21569 372 }
pascal@21576 373 if (/^ call near ptr @fileexist\$/ || # return boolean :
pascal@21576 374 /^ call near ptr @isoreaddir\$/ || # 0=true, -1=false
pascal@21628 375 /^ call near ptr @isoreset\$/ ||
pascal@21628 376 /^ call near ptr @isoopen\$/ ||
pascal@21628 377 /^ call near ptr @isoreadsector\$/ ||
pascal@21628 378 /^ call near ptr @strhead\$/ ||
pascal@21576 379 /^ call near ptr @argstr\$/ ||
pascal@21576 380 /^ call near ptr @argnum\$/) { print; hold=17; next; }
pascal@20458 381 s=$0
pascal@20458 382 # These optimisation may break ZF or CF
pascal@20485 383 if (/^ sub sp,2$/) { print " push ax"; next }
pascal@20485 384 if (/^ sub sp,4$/) { print " push ax"; print " push ax"; next }
pascal@20485 385 if (/^ add sp,4$/) { print " pop cx"; print " pop cx"; next }
pascal@20458 386 if (/^ mov d*word ptr .*,0$/ || /^ mov dword ptr .*,large 0$/) {
pascal@20458 387 sub(/mov/,"and",s); print s; next # slower
pascal@20458 388 }
pascal@20458 389 if (/^ mov d*word ptr .*,-1$/ || /^ mov dword ptr .*,large -1$/) {
pascal@20458 390 sub(/mov/,"or",s); print s; next # slower
pascal@20458 391 }
pascal@20458 392 if (/^ or .*,0$/ || /^ and .*,-1$/) next
pascal@20458 393 if (/^ or [abcd]x,/) {
pascal@20458 394 split($2,args,",")
pascal@20458 395 if (isnum(args[2]) && args[2] >= 0 && args[2] < 256) {
pascal@20458 396 print " or " substr(args[1],1,1) "l," args[2]; next
pascal@20458 397 }
pascal@20458 398 }
pascal@20458 399 if (/^ and [abcd]x,/) {
pascal@20458 400 split($2,args,",")
pascal@20459 401 if (isnum(args[2]) && args[2] >= -256 && args[2] < 0) {
pascal@20458 402 print " and " substr(args[1],1,1) "l," args[2]; next
pascal@20458 403 }
pascal@20458 404 }
pascal@20458 405 if (/^ or e[abcd]x,/) {
pascal@20458 406 split($2,args,",")
pascal@20458 407 if (args[2] == "large") { args[2] = $3 }
pascal@20458 408 if (isnum(args[2]) && args[2] >= 0 && args[2] < 256) {
pascal@20458 409 print " or " substr(args[1],2,1) "l," args[2]; next
pascal@20458 410 }
pascal@20458 411 }
pascal@20458 412 if (/^ and e[abcd]x,/) {
pascal@20458 413 split($2,args,",")
pascal@20458 414 if (args[2] == "large") { args[2] = $3 }
pascal@20459 415 if (isnum(args[2]) && args[2] >= -256 && args[2] < 0) {
pascal@20458 416 print " and " substr(args[1],2,1) "l," args[2]; next
pascal@20458 417 }
pascal@20458 418 }
pascal@20458 419 if (/^ or e[abcds][ix],/) {
pascal@20458 420 split($2,args,",")
pascal@20458 421 if (args[2] == "large") { args[2] = $3 }
pascal@20458 422 if (isnum(args[2]) && args[2] >= 0 && args[2] < 65536) {
pascal@20458 423 print " or " substr(args[1],2) "," args[2]; next
pascal@20458 424 }
pascal@20458 425 }
pascal@20458 426 if (/^ and e[abcds][ix],/) {
pascal@20458 427 split($2,args,",")
pascal@20458 428 if (args[2] == "large") { args[2] = $3 }
pascal@20459 429 if (isnum(args[2]) && args[2] >= -65536 && args[2] < 0) {
pascal@20458 430 print " and " substr(args[1],2) "," args[2]; next
pascal@20458 431 }
pascal@20458 432 }
pascal@20543 433 if (/^ add word ptr/ || /^ sub word ptr/ ||
pascal@20544 434 /^ add [bcd]x,/ || /^ sub [bcd]x,/) {
pascal@20542 435 split($0,args,",")
pascal@20542 436 if (isnum(args[2]) && (args[2] % 256 == 0)) {
pascal@20544 437 sub(/word ptr/,"byte ptr",s); sub(/x,/,"h,",s) ||
pascal@20543 438 sub(/\],/,"+1],",s) || sub(/,/,"+1,",s)
pascal@20542 439 print s "/256"; next
pascal@20542 440 }
pascal@20542 441 }
pascal@20546 442 if (/^ add dword ptr/ || /^ sub dword ptr/) {
pascal@20458 443 split($0,args,",")
pascal@20543 444 if (args[2] == "large") { args[2] = $3 }
pascal@20458 445 if (isnum(args[2])) {
pascal@20546 446 if (args[2] % 16777216 == 0) {
pascal@20546 447 sub(/dword/,"byte",s)
pascal@20543 448 sub(/\],/,"+3],",s) || sub(/,/,"+3,",s)
pascal@20458 449 print s "/16777216"; next
pascal@20458 450 }
pascal@20458 451 if (args[2] % 65536 == 0) {
pascal@20546 452 sub(/dword/,"word",s)
pascal@20543 453 sub(/\],/,"+2],",s) || sub(/,/,"+2,",s)
pascal@20458 454 print s "/65536"; next
pascal@20458 455 }
pascal@20458 456 }
pascal@20458 457 }
pascal@20458 458 if (/^ mov e.x,/) {
pascal@20458 459 split($2,args,",")
pascal@20458 460 r=args[1]
pascal@20458 461 if (args[2] == "large") { args[2] = $3 }
pascal@20458 462 if (isnum(args[2]) && args[2] % 65536 == args[2]) {
pascal@20458 463 if (args[2] % 256 == args[2] || args[2] % 256 == 0) {
pascal@20458 464 print " xor " r "," r
pascal@20458 465 if (args[2] == 0) next
pascal@20458 466 x=" mov " substr(r,2,1)
pascal@20458 467 if (args[2] % 256 == 0) {
pascal@20458 468 print x "h," args[2] "/256"
pascal@20458 469 }
pascal@20458 470 else { print x "l," args[2] }
pascal@20458 471 next
pascal@20458 472 }
pascal@20458 473 }
pascal@20458 474 }
pascal@21576 475 if (afterjmp) print ";" $0
pascal@21576 476 else print
pascal@21576 477 if (/^ jmp /) afterjmp=1
pascal@20458 478 }