muc.h « src - profani-tty - Profanity fork with TTY improvements

blob: f9fcd0e1d9c46fe50ebda837c5eef1eb66ac89fb (plain) (tree)

a141a997 ^

dad01d8f ^

a141a997 ^

b3be26a2 ^

a141a997 ^

f9737251 ^

a141a997 ^

94bcf188 ^

ba11e88d ^

0deba9e1 ^

7255ef5e ^

740e5b42 ^

2215a379 ^

62c10286 ^

4f7feedb ^

fac2b2cf ^

4f7feedb ^

6fd9b179 ^

60e0d5ef ^

4f7feedb ^

17757c86 ^

0338d136 ^

d25d6b45 ^

3b0f7e10 ^

d25d6b45 ^

3b0f7e10 ^

d25d6b45 ^

3b0f7e10 ^

24a45e52 ^

3b0f7e10 ^

d25d6b45 ^

3b0f7e10 ^

d25d6b45 generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-07-07 10:59:52 +0000

s="p"> # copy esp to ecx 57 # clear(stack) 58 # . . push args 59 51/push-ecx 60 # . . call 61 e8/call <a href='203stack.subx.html#L13'>clear-stack</a>/disp32 62 # . . discard args 63 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 4/imm32 # add to esp 64 # top should be 0 65 58/pop-to-eax 66 # . check-ints-equal(eax, 0, msg) 67 # . . push args 68 68/push "F - <a href='203stack.subx.html#L47'>test-clear-stack</a>: top"/imm32 69 68/push 0/imm32 70 50/push-eax 71 # . . call 72 e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 73 # . . discard args 74 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 75 # size should remain 8 76 58/pop-to-eax 77 # . check-ints-equal(eax, 8, msg) 78 # . . push args 79 68/push "F - <a href='203stack.subx.html#L47'>test-clear-stack</a>: size"/imm32 80 68/push 8/imm32 81 50/push-eax 82 # . . call 83 e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 84 # . . discard args 85 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 86 # first word is 0 87 58/pop-to-eax 88 # . check-ints-equal(eax, 0, msg) 89 # . . push args 90 68/push "F - <a href='203stack.subx.html#L47'>test-clear-stack</a>: data[0..3]"/imm32 91 68/push 0/imm32 92 50/push-eax 93 # . . call 94 e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 95 # . . discard args 96 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 97 # second word is 0 98 58/pop-to-eax 99 # . check-ints-equal(eax, 0, msg) 100 # . . push args 101 68/push "F - <a href='203stack.subx.html#L47'>test-clear-stack</a>: data[4..7]"/imm32 102 68/push 0/imm32 103 50/push-eax 104 # . . call 105 e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 106 # . . discard args 107 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 108 # . epilogue 109 89/copy 3/mod/direct 4/rm32/esp . . . 5/r32/ebp . . # copy ebp to esp 110 5d/pop-to-ebp 111 c3/return 112 113 # TODO: make this generic 114 push: # s: (addr stack), n: int 115 # . prologue 116 55/push-ebp 117 89/copy 3/mod/direct 5/rm32/ebp . . . 4/r32/esp . . # copy esp to ebp 118 # . save registers 119 50/push-eax 120 51/push-ecx 121 56/push-esi 122 # esi = s 123 8b/copy 1/mod/*+disp8 5/rm32/ebp . . . 6/r32/esi 8/disp8 . # copy *(ebp+8) to esi 124 # ecx = s->top 125 8b/copy 0/mod/indirect 6/rm32/esi . . . 1/r32/ecx . . # copy *esi to ecx 126 # if (s->top >= s->size) abort 127 39/compare 1/mod/*+disp8 6/rm32/esi . . . 1/r32/ecx 4/disp8 . # compare *(esi+4) and ecx 128 7e/jump-if-<= $push:abort/disp8 129 # s->data[s->top] = n 130 8b/copy 1/mod/*+disp8 5/rm32/ebp . . . 0/r32/eax 0xc/disp8 . # copy *(ebp+12) to eax 131 89/copy 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx . 0/r32/eax 8/disp8 . # copy eax to *(esi+ecx+8) 132 # s->top += 4 133 81 0/subop/add 0/mod/direct 6/rm32/esi . . . . . 4/imm32 # subtract from *esi 134 $push:end: 135 # . restore registers 136 5e/pop-to-esi 137 59/pop-to-ecx 138 58/pop-to-eax 139 # . epilogue 140 89/copy 3/mod/direct 4/rm32/esp . . . 5/r32/ebp . . # copy ebp to esp 141 5d/pop-to-ebp 142 c3/return 143 144 $push:abort: 145 # print(stderr, "error: push: no space left") 146 # . write-buffered(Stderr, "error: push: no space left") 147 # . . push args 148 68/push "error: <a href='203stack.subx.html#L114'>push</a>: no space left"/imm32 149 68/push <a href='116write-buffered.subx.html#L209'>Stderr</a>/imm32 150 # . . call 151 e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 152 # . . discard args 153 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp 154 # . flush(Stderr) 155 # . . push args 156 68/push <a href='116write-buffered.subx.html#L209'>Stderr</a>/imm32 157 # . . call 158 e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 159 # . . discard args 160 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 4/imm32 # add to esp 161 # . syscall(exit, 1) 162 bb/copy-to-ebx 1/imm32 163 e8/call syscall_exit/disp32 164 # never gets here 165 166 test-push: 167 # . prologue 168 55/push-ebp 169 89/copy 3/mod/direct 5/rm32/ebp . . . 4/r32/esp . . # copy esp to ebp 170 # var stack/ecx = empty stack of size 8 171 68/push 0/imm32 172 68/push 0/imm32 173 68/push 8/imm32/size 174 68/push 0/imm32/top 175 89/copy 3/mod/direct 1/rm32/ecx . . . 4/r32/esp . . # copy esp to ecx 176 # push(stack, 0x42) 177 # . . push args 178 68/push 0x42/imm32 179 51/push-ecx 180 # . . call 181 e8/call <a href='203stack.subx.html#L114'>push</a>/disp32 182 # . . discard args 183 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp 184 # check top 185 58/pop-to-eax 186 # . check-ints-equal(eax, 4, msg) 187 # . . push args 188 68/push "F - <a href='203stack.subx.html#L166'>test-push</a>: top"/imm32 189 68/push 4/imm32 190 50/push-eax 191 # . . call 192 e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 193 # . . discard args 194 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 195 # check size 196 58/pop-to-eax 197 # . check-ints-equal(eax, 8, msg) 198 # . . push args 199 68/push "F - <a href='203stack.subx.html#L166'>test-push</a>: size"/imm32 200 68/push 8/imm32 201 50/push-eax 202 # . . call 203 e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 204 # . . discard args 205 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 206 # first word is 0x42 207 58/pop-to-eax 208 # . check-ints-equal(eax, 0x42, msg) 209 # . . push args 210 68/push "F - <a href='203stack.subx.html#L166'>test-push</a>: data[0..3]"/imm32 211 68/push 0x42/imm32 212 50/push-eax 213 # . . call 214 e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 215 # . . discard args 216 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 217 # second word is 0 218 58/pop-to-eax 219 # . check-ints-equal(eax, 0, msg) 220 # . . push args 221 68/push "F - <a href='203stack.subx.html#L166'>test-push</a>: data[4..7]"/imm32 222 68/push 0/imm32 223 50/push-eax 224 # . . call 225 e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 226 # . . discard args 227 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 228 # . epilogue 229 89/copy 3/mod/direct 4/rm32/esp . . . 5/r32/ebp . . # copy ebp to esp 230 5d/pop-to-ebp 231 c3/return 232 233 # TODO: make this generic 234 pop: # s: (addr stack) -> n/eax: int 235 # . prologue 236 55/push-ebp 237 89/copy 3/mod/direct 5/rm32/ebp . . . 4/r32/esp . . # copy esp to ebp 238 # . save registers 239 51/push-ecx 240 56/push-esi 241 # esi = s 242 8b/copy 1/mod/*+disp8 5/rm32/ebp . . . 6/r32/esi 8/disp8 . # copy *(ebp+8) to esi 243 # if (s->top <= 0) abort 244 81 7/subop/compare 0/mod/indirect 6/rm32/esi . . . . . 0/imm32 # compare *esi 245 7e/jump-if-<= $pop:abort/disp8 246 # s->top -= 4 247 81 5/subop/subtract 0/mod/direct 6/rm32/esi . . . . . 4/imm32 # subtract from *esi 248 # eax = s->data[s->top] 249 8b/copy 0/mod/indirect 6/rm32/esi . . . 1/r32/ecx . . # copy *esi to ecx 250 8b/copy 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx . 0/r32/eax 8/disp8 . # copy *(esi+ecx+8) to eax 251 # s->data[s->top] = 0 252 c7 0/subop/copy 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx . 0/r32/eax 8/disp8 0/imm32 # copy to *(esi+ecx+8) 253 $pop:end: 254 # . restore registers 255 5e/pop-to-esi 256 59/pop-to-ecx 257 # . epilogue 258 89/copy 3/mod/direct 4/rm32/esp . . . 5/r32/ebp . . # copy ebp to esp 259 5d/pop-to-ebp 260 c3/return 261 262 $pop:abort: 263 # print(stderr, "error: pop: nothing left in stack") 264 # . write-buffered(Stderr, "error: pop: nothing left in stack") 265 # . . push args 266 68/push "error: <a href='203stack.subx.html#L234'>pop</a>: nothing left in stack"/imm32 267 68/push <a href='116write-buffered.subx.html#L209'>Stderr</a>/imm32 268 # . . call 269 e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 270 # . . discard args 271 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp 272 # . flush(Stderr) 273 # . . push args 274 68/push <a href='116write-buffered.subx.html#L209'>Stderr</a>/imm32 275 # . . call 276 e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 277 # . . discard args 278 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 4/imm32 # add to esp 279 # . syscall(exit, 1) 280 bb/copy-to-ebx 1/imm32 281 e8/call syscall_exit/disp32 282 # never gets here 283 284 test-pop: 285 # . prologue 286 55/push-ebp 287 89/copy 3/mod/direct 5/rm32/ebp . . . 4/r32/esp . . # copy esp to ebp 288 # var stack/ecx = stack of size 8 containing just 0x42 289 68/push 0/imm32 290 68/push 0x42/imm32 291 68/push 8/imm32/size 292 68/push 4/imm32/top 293 89/copy 3/mod/direct 1/rm32/ecx . . . 4/r32/esp . . # copy esp to ecx 294 # eax = pop(stack) 295 # . . push args 296 51/push-ecx 297 # . . call 298 e8/call <a href='203stack.subx.html#L234'>pop</a>/disp32 299 # . . discard args 300 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 4/imm32 # add to esp 301 # check-ints-equal(eax, 0x42, msg) 302 # . . push args 303 68/push "F - <a href='203stack.subx.html#L284'>test-pop</a>: result"/imm32 304 68/push 0x42/imm32 305 50/push-eax 306 # . . call 307 e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 308 # . . discard args 309 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 310 # check top 311 58/pop-to-eax 312 # . check-ints-equal(eax, 0, msg) 313 # . . push args 314 68/push "F - <a href='203stack.subx.html#L284'>test-pop</a>: top"/imm32 315 68/push 0/imm32 316 50/push-eax 317 # . . call 318 e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 319 # . . discard args 320 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 321 # check size 322 58/pop-to-eax 323 # . check-ints-equal(eax, 8, msg) 324 # . . push args 325 68/push "F - <a href='203stack.subx.html#L284'>test-pop</a>: size"/imm32 326 68/push 8/imm32 327 50/push-eax 328 # . . call 329 e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 330 # . . discard args 331 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 332 # . epilogue 333 89/copy 3/mod/direct 4/rm32/esp . . . 5/r32/ebp . . # copy ebp to esp 334 5d/pop-to-ebp 335 c3/return 336 337 # TODO: make this generic 338 top: # s: (addr stack) -> n/eax: int 339 # . prologue 340 55/push-ebp 341 89/copy 3/mod/direct 5/rm32/ebp . . . 4/r32/esp . . # copy esp to ebp 342 # . save registers 343 51/push-ecx 344 56/push-esi 345 # esi = s 346 8b/copy 1/mod/*+disp8 5/rm32/ebp . . . 6/r32/esi 8/disp8 . # copy *(ebp+8) to esi 347 # if (s->top <= 0) abort 348 81 7/subop/compare 0/mod/indirect 6/rm32/esi . . . . . 0/imm32 # compare *esi 349 7e/jump-if-<= $top:abort/disp8 350 # n = s->data[s->top - 4] 351 8b/copy 0/mod/indirect 6/rm32/esi . . . 1/r32/ecx . . # copy *esi to ecx 352 81 5/subop/subtract 3/mod/direct 1/rm32/ecx . . . . . 4/imm32 # subtract from ecx 353 8b/copy 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx . 0/r32/eax 8/disp8 . # copy *(esi+ecx+8) to eax 354 $top:end: 355 # . restore registers 356 5e/pop-to-esi 357 59/pop-to-ecx 358 # . epilogue 359 89/copy 3/mod/direct 4/rm32/esp . . . 5/r32/ebp . . # copy ebp to esp 360 5d/pop-to-ebp 361 c3/return 362 363 $top:abort: 364 # print(stderr, "error: top: nothing left in stack") 365 # . write-buffered(Stderr, "error: top: nothing left in stack") 366 # . . push args 367 68/push "error: <a href='203stack.subx.html#L338'>top</a>: nothing left in stack"/imm32 368 68/push <a href='116write-buffered.subx.html#L209'>Stderr</a>/imm32 369 # . . call 370 e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 371 # . . discard args 372 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp 373 # . flush(Stderr) 374 # . . push args 375 68/push <a href='116write-buffered.subx.html#L209'>Stderr</a>/imm32 376 # . . call 377 e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 378 # . . discard args 379 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 4/imm32 # add to esp 380 # . syscall(exit, 1) 381 bb/copy-to-ebx 1/imm32 382 e8/call syscall_exit/disp32 383 # never gets here 384 385 test-top: 386 # . prologue 387 55/push-ebp 388 89/copy 3/mod/direct 5/rm32/ebp . . . 4/r32/esp . . # copy esp to ebp 389 # var stack/ecx = stack of size 8 containing just 0x42 390 68/push 0/imm32 391 68/push 0x42/imm32 392 68/push 8/imm32/size 393 68/push 4/imm32/top 394 89/copy 3/mod/direct 1/rm32/ecx . . . 4/r32/esp . . # copy esp to ecx 395 # eax = top(stack) 396 # . . push args 397 51/push-ecx 398 # . . call 399 e8/call <a href='203stack.subx.html#L338'>top</a>/disp32 400 # . . discard args 401 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 4/imm32 # add to esp 402 # check-ints-equal(eax, 42, msg") 403 # . . push args 404 68/push "F - <a href='203stack.subx.html#L385'>test-top</a>: result"/imm32 405 68/push 0x42/imm32 406 50/push-eax 407 # . . call 408 e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 409 # . . discard args 410 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 411 # . epilogue 412 89/copy 3/mod/direct 4/rm32/esp . . . 5/r32/ebp . . # copy ebp to esp 413 5d/pop-to-ebp 414 c3/return 415 416 # . . vim:nowrap:textwidth=0 </pre> </body> </html>