Skip to content

Instantly share code, notes, and snippets.

@Bogdanp
Created June 28, 2020 15:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Bogdanp/64a7ef659d6376fff918e3cb23518f9b to your computer and use it in GitHub Desktop.
Save Bogdanp/64a7ef659d6376fff918e3cb23518f9b to your computer and use it in GitHub Desktop.
(module s ....
(require (lib "racket/base.rkt")
(lib "racket/async-channel.rkt")
(lib "racket/port.rkt")
(lib "racket/runtime-path.rkt")
(lib "web-server/http.rkt")
(lib "web-server/servlet-dispatch.rkt")
(lib "web-server/web-server.rkt"))
(provide)
(define ....
(lambda ()
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 7433 (jz (+ rip #x33)) ; => 3a"
" 7: 4883fd00 (cmp rbp #x0)"
" b: 7521 (jnz (+ rip #x21)) ; => 2e"
" d: 49b8fbcbc60b01000000 (mov r8 #x10bc6cbfb) ; 'binary"
" 17: 498b7f0b (mov rdi (mem64+ r15 #xb))"
" 1b: 498b7713 (mov rsi (mem64+ r15 #x13))"
" 1f: 4d8b7f1b (mov r15 (mem64+ r15 #x1b))"
" 23: 48c7c503000000 (mov rbp #x3)"
" 2a: 41ff6703 (jmp (mem64+ r15 #x3))"
" 2e: e98d9617fb (jmp (+ rip #x-4e86973)) ; #<code doargerr> ; <="
" 33: 0f1f8000000000 (data)"
" 3a: e921ba17fb (jmp (+ rip #x-4e845df)) ; #<code event-detour> ; <="
" 3f: 0f1f8000000000 (data)"
"")))
(define ....
(lambda ()
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 0f84c9000000 (jz (+ rip #xc9)) ; => d4"
" b: 4883fd00 (cmp rbp #x0)"
" f: 0f85b3000000 (jnz (+ rip #xb3)) ; => c8"
" 15: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 19: 0f8698000000 (jbe (+ rip #x98)) ; => b7"
" 1f: 498b4f1b (mov rcx (mem64+ r15 #x1b)) ; <="
" 23: 4d8d61f9 (lea r12 (mem+ r9 #x-7))"
" 27: 4983c110 (add r9 #x10)"
" 2b: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 2f: 7274 (jb (+ rip #x74)) ; => a5"
" 31: 4c89e6 (mov rsi r12) ; <="
" 34: 48894e07 (mov (mem64+ rsi #x7) rcx)"
" 38: 48c7460f26000000 (mov (mem64+ rsi #xf) #x26)"
" 40: 4d8b4713 (mov r8 (mem64+ r15 #x13))"
" 44: 498b7f0b (mov rdi (mem64+ r15 #xb))"
" 48: 4983c508 (add r13 #x8)"
" 4c: 4d8b7f23 (mov r15 (mem64+ r15 #x23))"
" 50: 488d0d1f000000 (lea rcx (mem+ rip #x1f)) ; => 76"
" 57: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 5b: 48c7c503000000 (mov rbp #x3)"
" 62: 41ff6703 (jmp (mem64+ r15 #x3))"
" 66: a700000000000000 (data)"
" 6e: 0700000000000000 (data)"
" 76: 4983ed08 (sub r13 #x8) ; <="
" 7a: 4889ef (mov rdi rbp)"
" 7d: 48b9300cf60a01000000 (mov rcx #x10af60c30) ; 'values"
" 87: 4c8b01 (mov r8 (mem64+ rcx))"
" 8a: 49bc6bda5c0c01000000 (mov r12 #x10c5cda6b) ; 'apply"
" 94: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 99: 48c7c502000000 (mov rbp #x2)"
" a0: 41ff64240d (jmp (mem64+ r12 #xd))"
" a5: 49e8a5a2d2f6 (call (+ rip #x-92d5d5b)) ; #<code get-room> ; <="
" ab: 0f1f8000000000 (nop (mem32+ rax #x0))"
" b2: e97affffff (jmp (+ rip #x-86)) ; => 31"
" b7: e8a4a6d2f6 (call (+ rip #x-92d595c)) ; #<code dooverflow> ; <="
" bc: 0f1f8000000000 (nop (mem32+ rax #x0))"
" c3: e957ffffff (jmp (+ rip #x-a9)) ; => 1f"
" c8: e9a3afd2f6 (jmp (+ rip #x-92d505d)) ; #<code doargerr> ; <="
" cd: 0f1f8000000000 (data)"
" d4: e937d3d2f6 (jmp (+ rip #x-92d2cc9)) ; #<code event-detour> ; <="
" d9: 0f1f8000000000 (data)"
"")))
(define get-dir
(lambda ()
".../racket/runtime-path.rkt:189:39"
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 0f8415010000 (jz (+ rip #x115)) ; => 120"
" b: 4883fd00 (cmp rbp #x0)"
" f: 0f85ff000000 (jnz (+ rip #xff)) ; => 114"
" 15: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" 19: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 1d: 0f86e0000000 (jbe (+ rip #xe0)) ; => 103"
" 23: 4d31c0 (xor r8 r8) ; <="
" 26: 4983c510 (add r13 #x10)"
" 2a: 498b4df8 (mov rcx (mem64+ r13 #x-8))"
" 2e: 4c8b7913 (mov r15 (mem64+ rcx #x13))"
" 32: 488d0d1f000000 (lea rcx (mem+ rip #x1f)) ; => 58"
" 39: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 3d: 48c7c501000000 (mov rbp #x1)"
" 44: 41ff6703 (jmp (mem64+ r15 #x3))"
" 48: 8900000000000000 (data)"
" 50: 8b00000000000000 (data)"
" 58: 4983ed10 (sub r13 #x10) ; <="
" 5c: 4989e8 (mov r8 rbp)"
" 5f: 48c7c706000000 (mov rdi #x6)"
" 66: 4983c510 (add r13 #x10)"
" 6a: 498b4df8 (mov rcx (mem64+ r13 #x-8))"
" 6e: 4c8b791b (mov r15 (mem64+ rcx #x1b))"
" 72: 488d0d1f000000 (lea rcx (mem+ rip #x1f)) ; => 98"
" 79: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 7d: 48c7c502000000 (mov rbp #x2)"
" 84: 41ff6703 (jmp (mem64+ r15 #x3))"
" 88: c900000000000000 (data)"
" 90: 8b00000000000000 (data)"
" 98: 4983ed10 (sub r13 #x10) ; <="
" 9c: 4883fd06 (cmp rbp #x6)"
" a0: 755c (jnz (+ rip #x5c)) ; => fe"
" a2: 498b4d08 (mov rcx (mem64+ r13 #x8))"
" a6: 4c8b410b (mov r8 (mem64+ rcx #xb))"
" aa: 4983c510 (add r13 #x10)"
" ae: 49bc6b975e0c01000000 (mov r12 #x10c5e976b) ; '1/bytes->path"
" b8: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" bd: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => e4"
" c4: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" c8: 48c7c501000000 (mov rbp #x1)"
" cf: 41ff64240d (jmp (mem64+ r12 #xd))"
" d4: 1501000000000000 (data)"
" dc: 8b00000000000000 (data)"
" e4: 4983ed10 (sub r13 #x10) ; <="
" e8: 4989e8 (mov r8 rbp)"
" eb: 498b4d08 (mov rcx (mem64+ r13 #x8)) ; <="
" ef: 4c8b7923 (mov r15 (mem64+ rcx #x23))"
" f3: 48c7c501000000 (mov rbp #x1)"
" fa: 41ff6703 (jmp (mem64+ r15 #x3))"
" fe: 4989e8 (mov r8 rbp) ; <="
" 101: ebe8 (jmp (+ rip #x-18)) ; => eb"
" 103: e838a5d2f6 (call (+ rip #x-92d5ac8)) ; #<code dooverflow> ; <="
" 108: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 10f: e90fffffff (jmp (+ rip #x-f1)) ; => 23"
" 114: e937aed2f6 (jmp (+ rip #x-92d51c9)) ; #<code doargerr> ; <="
" 119: 0f1f8000000000 (data)"
" 120: e9cbd1d2f6 (jmp (+ rip #x-92d2e35)) ; #<code event-detour> ; <="
" 125: 0f1f8000000000 (data)"
"")))
(#%assembly-code
" 0: 4883fd0c (cmp rbp #xc)"
" 4: 0f856c020000 (jnz (+ rip #x26c)) ; => 276"
" a: 4c89fe (mov rsi r15)"
" d: 4d8b5508 (mov r10 (mem64+ r13 #x8))"
" 11: 498b5d18 (mov rbx (mem64+ r13 #x18))"
" 15: 498b6d20 (mov rbp (mem64+ r13 #x20))"
" 19: 4d8b7d30 (mov r15 (mem64+ r13 #x30))"
" 1d: 498b4d40 (mov rcx (mem64+ r13 #x40))"
" 21: 498b5548 (mov rdx (mem64+ r13 #x48))"
" 25: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 29: 0f8636020000 (jbe (+ rip #x236)) ; => 265"
" 2f: 49836e6801 (sub (mem64+ r14 #x68) #x1) ; <="
" 34: 0f84af010000 (jz (+ rip #x1af)) ; => 1e9"
" 3a: 4d8d61fd (lea r12 (mem+ r9 #x-3)) ; <="
" 3e: 4983c130 (add r9 #x30)"
" 42: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 46: 0f828b010000 (jb (+ rip #x18b)) ; => 1d7"
" 4c: 4d89e3 (mov r11 r12) ; <="
" 4f: 48b8d0e82a1401000000 (mov rax #x1142ae8d0) ; #<code get-dir at runtime-path.rkt:189.39>"
" 59: 49894303 (mov (mem64+ r11 #x3) rax)"
" 5d: 488b4613 (mov rax (mem64+ rsi #x13))"
" 61: 4989430b (mov (mem64+ r11 #xb) rax)"
" 65: 49897b13 (mov (mem64+ r11 #x13) rdi)"
" 69: 4d89531b (mov (mem64+ r11 #x1b) r10)"
" 6d: 49896b23 (mov (mem64+ r11 #x23) rbp)"
" 71: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" 75: 4983c130 (add r9 #x30)"
" 79: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 7d: 0f8242010000 (jb (+ rip #x142)) ; => 1c5"
" 83: 48bfb0e72a1401000000 (mov rdi #x1142ae7b0) ; #<code> ; <="
" 8d: 49897c2403 (mov (mem64+ r12 #x3) rdi)"
" 92: 4d895c240b (mov (mem64+ r12 #xb) r11)"
" 97: 4d89442413 (mov (mem64+ r12 #x13) r8)"
" 9c: 488b760b (mov rsi (mem64+ rsi #xb))"
" a0: 498974241b (mov (mem64+ r12 #x1b) rsi)"
" a5: 49895c2423 (mov (mem64+ r12 #x23) rbx)"
" aa: 49895558 (mov (mem64+ r13 #x58) rdx)"
" ae: 4d89e0 (mov r8 r12)"
" b1: 48bfd9ed301401000000 (mov rdi #x11430edd9) ; '(example-path)"
" bb: 48be29891c1401000000 (mov rsi #x1141c8929) ; '(constant)"
" c5: 4d897d30 (mov (mem64+ r13 #x30) r15)"
" c9: 49894d40 (mov (mem64+ r13 #x40) rcx)"
" cd: 49895548 (mov (mem64+ r13 #x48) rdx)"
" d1: 4983c550 (add r13 #x50)"
" d5: 49bc5bd55e0c01000000 (mov r12 #x10c5ed55b) ; 'call-with-module-prompt"
" df: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" e4: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 10b"
" eb: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" ef: 48c7c504000000 (mov rbp #x4)"
" f6: 41ff64240d (jmp (mem64+ r12 #xd))"
" fb: 3c01000000000000 (data)"
" 103: 29d8000000000000 (data)"
" 10b: 4983ed50 (sub r13 #x50) ; <="
" 10f: 4d8b7d30 (mov r15 (mem64+ r13 #x30))"
" 113: 498b4d40 (mov rcx (mem64+ r13 #x40))"
" 117: 498b5548 (mov rdx (mem64+ r13 #x48))"
" 11b: 488b5209 (mov rdx (mem64+ rdx #x9))"
" 11f: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" 123: 4983c120 (add r9 #x20)"
" 127: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 12b: 0f8282000000 (jb (+ rip #x82)) ; => 1b3"
" 131: 4d89e0 (mov r8 r12) ; <="
" 134: 48be20022b1401000000 (mov rsi #x1142b0220) ; #<code>"
" 13e: 49897003 (mov (mem64+ r8 #x3) rsi)"
" 142: 4989500b (mov (mem64+ r8 #xb) rdx)"
" 146: 498b5528 (mov rdx (mem64+ r13 #x28))"
" 14a: 49895013 (mov (mem64+ r8 #x13) rdx)"
" 14e: 4d89781b (mov (mem64+ r8 #x1b) r15)"
" 152: 49894d10 (mov (mem64+ r13 #x10) rcx)"
" 156: 48bf59534d1401000000 (mov rdi #x1144d5359) ; '(text)"
" 160: 48be99895e1401000000 (mov rsi #x1145e8999) ; '(constant)"
" 16a: 4983c508 (add r13 #x8)"
" 16e: 49bc5bd55e0c01000000 (mov r12 #x10c5ed55b) ; 'call-with-module-prompt"
" 178: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 17d: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 1a4"
" 184: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 188: 48c7c504000000 (mov rbp #x4)"
" 18f: 41ff64240d (jmp (mem64+ r12 #xd))"
" 194: d501000000000000 (data)"
" 19c: 0500000000000000 (data)"
" 1a4: 4983ed08 (sub r13 #x8) ; <="
" 1a8: 48c7c53e000000 (mov rbp #x3e)"
" 1af: 41ff6500 (jmp (mem64+ r13 #x0))"
" 1b3: 49e8670466f6 (call (+ rip #x-999fb99)) ; #<code get-room> ; <="
" 1b9: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 1c0: e96cffffff (jmp (+ rip #x-94)) ; => 131"
" 1c5: 49e8550466f6 (call (+ rip #x-999fbab)) ; #<code get-room> ; <="
" 1cb: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 1d2: e9acfeffff (jmp (+ rip #x-154)) ; => 83"
" 1d7: 49e8430466f6 (call (+ rip #x-999fbbd)) ; #<code get-room> ; <="
" 1dd: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 1e4: e963feffff (jmp (+ rip #x-19d)) ; => 4c"
" 1e9: 49897510 (mov (mem64+ r13 #x10) rsi) ; <="
" 1ed: 4d894538 (mov (mem64+ r13 #x38) r8)"
" 1f1: 49897d50 (mov (mem64+ r13 #x50) rdi)"
" 1f5: 4d895508 (mov (mem64+ r13 #x8) r10)"
" 1f9: 49895d18 (mov (mem64+ r13 #x18) rbx)"
" 1fd: 49896d20 (mov (mem64+ r13 #x20) rbp)"
" 201: 4d897d30 (mov (mem64+ r13 #x30) r15)"
" 205: 49894d40 (mov (mem64+ r13 #x40) rcx)"
" 209: 49895548 (mov (mem64+ r13 #x48) rdx)"
" 20d: 4983c558 (add r13 #x58)"
" 211: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 238"
" 218: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 21c: e96f3368f6 (jmp (+ rip #x-997cc91)) ; #<code event>"
" 221: 0f1f800000000069 (data)"
" 229: 02000000000000ad (data)"
" 231: ff010000000000 (data)"
" 238: 4983ed58 (sub r13 #x58) ; <="
" 23c: 498b7510 (mov rsi (mem64+ r13 #x10))"
" 240: 4d8b4538 (mov r8 (mem64+ r13 #x38))"
" 244: 498b7d50 (mov rdi (mem64+ r13 #x50))"
" 248: 4d8b5508 (mov r10 (mem64+ r13 #x8))"
" 24c: 498b5d18 (mov rbx (mem64+ r13 #x18))"
" 250: 498b6d20 (mov rbp (mem64+ r13 #x20))"
" 254: 4d8b7d30 (mov r15 (mem64+ r13 #x30))"
" 258: 498b4d40 (mov rcx (mem64+ r13 #x40))"
" 25c: 498b5548 (mov rdx (mem64+ r13 #x48))"
" 260: e9d5fdffff (jmp (+ rip #x-22b)) ; => 3a"
" 265: e8c60766f6 (call (+ rip #x-999f83a)) ; #<code dooverflow> ; <="
" 26a: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 271: e9b9fdffff (jmp (+ rip #x-247)) ; => 2f"
" 276: e9c51066f6 (jmp (+ rip #x-999ef3b)) ; #<code doargerr> ; <="
" 27b: 0f1f8000000000 (data)"
"")
(begin-for-syntax
(define ....
(lambda ()
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 7455 (jz (+ rip #x55)) ; => 5c"
" 7: 4883fd00 (cmp rbp #x0)"
" b: 7543 (jnz (+ rip #x43)) ; => 50"
" d: 498b4f0b (mov rcx (mem64+ r15 #xb))"
" 11: 4d8d61f9 (lea r12 (mem+ r9 #x-7))"
" 15: 4983c110 (add r9 #x10)"
" 19: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 1d: 7222 (jb (+ rip #x22)) ; => 41"
" 1f: 4c89e7 (mov rdi r12) ; <="
" 22: 48894f07 (mov (mem64+ rdi #x7) rcx)"
" 26: 48c7470f26000000 (mov (mem64+ rdi #xf) #x26)"
" 2e: 4d8b4713 (mov r8 (mem64+ r15 #x13))"
" 32: 4d8b7f1b (mov r15 (mem64+ r15 #x1b))"
" 36: 48c7c502000000 (mov rbp #x2)"
" 3d: 41ff6703 (jmp (mem64+ r15 #x3))"
" 41: 49e8494513fb (call (+ rip #x-4ecbab7)) ; #<code get-room> ; <="
" 47: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 4e: ebcf (jmp (+ rip #x-31)) ; => 1f"
" 50: e95b5213fb (jmp (+ rip #x-4ecada5)) ; #<code doargerr> ; <="
" 55: 0f1f8000000000 (data)"
" 5c: e9ef7513fb (jmp (+ rip #x-4ec8a11)) ; #<code event-detour> ; <="
" 61: 0f1f8000000000 (data)"
"")))
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 0f84bf000000 (jz (+ rip #xbf)) ; => ca"
" b: 4883fd04 (cmp rbp #x4)"
" f: 0f85a9000000 (jnz (+ rip #xa9)) ; => be"
" 15: 4c89c1 (mov rcx r8)"
" 18: 498b5508 (mov rdx (mem64+ r13 #x8))"
" 1c: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 20: 0f8687000000 (jbe (+ rip #x87)) ; => ad"
" 26: 4d8d61fd (lea r12 (mem+ r9 #x-3)) ; <="
" 2a: 4983c120 (add r9 #x20)"
" 2e: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 32: 726a (jb (+ rip #x6a)) ; => 9e"
" 34: 4d89e0 (mov r8 r12) ; <="
" 37: 48be7045ea0f01000000 (mov rsi #x10fea4570) ; #<code>"
" 41: 49897003 (mov (mem64+ r8 #x3) rsi)"
" 45: 498b770b (mov rsi (mem64+ r15 #xb))"
" 49: 4989700b (mov (mem64+ r8 #xb) rsi)"
" 4d: 49894813 (mov (mem64+ r8 #x13) rcx)"
" 51: 4989501b (mov (mem64+ r8 #x1b) rdx)"
" 55: 4983c508 (add r13 #x8)"
" 59: 49bc5bd55e0c01000000 (mov r12 #x10c5ed55b) ; 'call-with-module-prompt"
" 63: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 68: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 8f"
" 6f: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 73: 48c7c501000000 (mov rbp #x1)"
" 7a: 41ff64240d (jmp (mem64+ r12 #xd))"
" 7f: c000000000000000 (data)"
" 87: 0500000000000000 (data)"
" 8f: 4983ed08 (sub r13 #x8) ; <="
" 93: 48c7c53e000000 (mov rbp #x3e)"
" 9a: 41ff6500 (jmp (mem64+ r13 #x0))"
" 9e: 49e80c4613fb (call (+ rip #x-4ecb9f4)) ; #<code get-room> ; <="
" a4: 0f1f8000000000 (nop (mem32+ rax #x0))"
" ab: eb87 (jmp (+ rip #x-79)) ; => 34"
" ad: e80e4a13fb (call (+ rip #x-4ecb5f2)) ; #<code dooverflow> ; <="
" b2: 0f1f8000000000 (nop (mem32+ rax #x0))"
" b9: e968ffffff (jmp (+ rip #x-98)) ; => 26"
" be: e90d5313fb (jmp (+ rip #x-4ecacf3)) ; #<code doargerr> ; <="
" c3: 0f1f8000000000 (data)"
" ca: e9a17613fb (jmp (+ rip #x-4ec895f)) ; #<code event-detour> ; <="
" cf: 0f1f8000000000 (data)"
""))
(module (s configure-runtime) ....
(require '#%kernel (lib "racket/runtime-config.rkt"))
(provide)
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 7476 (jz (+ rip #x76)) ; => 7d"
" 7: 4883fd04 (cmp rbp #x4)"
" b: 7564 (jnz (+ rip #x64)) ; => 71"
" d: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 11: 7650 (jbe (+ rip #x50)) ; => 63"
" 13: 49c7c00e000000 (mov r8 #xe) ; <="
" 1a: 4983c508 (add r13 #x8)"
" 1e: 49bc4b845e0c01000000 (mov r12 #x10c5e844b) ; '1/print-as-expression"
" 28: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 2d: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 54"
" 34: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 38: 48c7c501000000 (mov rbp #x1)"
" 3f: 41ff64240d (jmp (mem64+ r12 #xd))"
" 44: 8500000000000000 (data)"
" 4c: 0500000000000000 (data)"
" 54: 4983ed08 (sub r13 #x8) ; <="
" 58: 48c7c53e000000 (mov rbp #x3e)"
" 5f: 41ff6500 (jmp (mem64+ r13 #x0))"
" 63: e8d8ec9ff9 (call (+ rip #x-6601328)) ; #<code dooverflow> ; <="
" 68: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 6f: eba2 (jmp (+ rip #x-5e)) ; => 13"
" 71: e9daf59ff9 (jmp (+ rip #x-6600a26)) ; #<code doargerr> ; <="
" 76: 0f1f8000000000 (data)"
" 7d: e96e19a0f9 (jmp (+ rip #x-65fe692)) ; #<code event-detour> ; <="
" 82: 0f1f8000000000 (data)"
""))
(module (s main) ....
(require (submod ".."))
(provide)
(define ....
(lambda ()
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 7435 (jz (+ rip #x35)) ; => 3c"
" 7: 4883fd00 (cmp rbp #x0)"
" b: 7523 (jnz (+ rip #x23)) ; => 30"
" d: 4d8b4713 (mov r8 (mem64+ r15 #x13))"
" 11: 498b7f0b (mov rdi (mem64+ r15 #xb))"
" 15: 49bc9bda5c0c01000000 (mov r12 #x10c5cda9b) ; '#%call-with-values"
" 1f: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 24: 48c7c502000000 (mov rbp #x2)"
" 2b: 41ff64240d (jmp (mem64+ r12 #xd))"
" 30: e9fb5ae0f5 (jmp (+ rip #x-a1fa505)) ; #<code doargerr> ; <="
" 35: 0f1f8000000000 (data)"
" 3c: e98f7ee0f5 (jmp (+ rip #x-a1f8171)) ; #<code event-detour> ; <="
" 41: 0f1f8000000000 (data)"
"")))
(define ...rs/bogdan/tmp/s.rkt:31:2
(lambda ()
".../tmp/s.rkt:31:3"
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 743a (jz (+ rip #x3a)) ; => 41"
" 7: 4883fd00 (cmp rbp #x0)"
" b: 7528 (jnz (+ rip #x28)) ; => 35"
" d: 48b9c03f5e0c01000000 (mov rcx #x10c5e3fc0) ; 'the-never-evt"
" 17: 4c8b01 (mov r8 (mem64+ rcx))"
" 1a: 49bc3b4e5e0c01000000 (mov r12 #x10c5e4e3b) ; '1/sync/enable-break"
" 24: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 29: 48c7c501000000 (mov rbp #x1)"
" 30: 41ff64240d (jmp (mem64+ r12 #xd))"
" 35: e9865be0f5 (jmp (+ rip #x-a1fa47a)) ; #<code doargerr> ; <="
" 3a: 0f1f8000000000 (data)"
" 41: e91a7fe0f5 (jmp (+ rip #x-a1f80e6)) ; #<code event-detour> ; <="
" 46: 0f1f8000000000 (data)"
"")))
(define ...ate/more-scheme.rkt:255:28
(lambda (a0)
".../private/more-scheme.rkt:255:29"
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 0f848c000000 (jz (+ rip #x8c)) ; => 97"
" b: 4883fd01 (cmp rbp #x1)"
" f: 757a (jnz (+ rip #x7a)) ; => 8b"
" 11: 48b950745d0c01000000 (mov rcx #x10c5d7450) ; 'exn:break?"
" 1b: 488b09 (mov rcx (mem64+ rcx))"
" 1e: 498b5713 (mov rdx (mem64+ r15 #x13))"
" 22: 4d8d61f9 (lea r12 (mem+ r9 #x-7))"
" 26: 4983c110 (add r9 #x10)"
" 2a: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 2e: 724c (jb (+ rip #x4c)) ; => 7c"
" 30: 49894c2407 (mov (mem64+ r12 #x7) rcx) ; <="
" 35: 498954240f (mov (mem64+ r12 #xf) rdx)"
" 3a: 4c89e1 (mov rcx r12)"
" 3d: 4d8d61f9 (lea r12 (mem+ r9 #x-7))"
" 41: 4983c110 (add r9 #x10)"
" 45: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 49: 7222 (jb (+ rip #x22)) ; => 6d"
" 4b: 4c89e6 (mov rsi r12) ; <="
" 4e: 48894e07 (mov (mem64+ rsi #x7) rcx)"
" 52: 48c7460f26000000 (mov (mem64+ rsi #xf) #x26)"
" 5a: 498b7f0b (mov rdi (mem64+ r15 #xb))"
" 5e: 4d8b7f1b (mov r15 (mem64+ r15 #x1b))"
" 62: 48c7c503000000 (mov rbp #x3)"
" 69: 41ff6703 (jmp (mem64+ r15 #x3))"
" 6d: 49e81d4fe0f5 (call (+ rip #x-a1fb0e3)) ; #<code get-room> ; <="
" 73: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 7a: ebcf (jmp (+ rip #x-31)) ; => 4b"
" 7c: 49e80e4fe0f5 (call (+ rip #x-a1fb0f2)) ; #<code get-room> ; <="
" 82: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 89: eba5 (jmp (+ rip #x-5b)) ; => 30"
" 8b: e9205ce0f5 (jmp (+ rip #x-a1fa3e0)) ; #<code doargerr> ; <="
" 90: 0f1f8000000000 (data)"
" 97: e9b47fe0f5 (jmp (+ rip #x-a1f804c)) ; #<code event-detour> ; <="
" 9c: 0f1f8000000000 (data)"
"")))
(define ...rs/bogdan/tmp/s.rkt:31:2
(lambda ()
".../tmp/s.rkt:31:3"
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 0f84ed000000 (jz (+ rip #xed)) ; => f8"
" b: 4883fd00 (cmp rbp #x0)"
" f: 0f85d7000000 (jnz (+ rip #xd7)) ; => ec"
" 15: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 19: 0f86bc000000 (jbe (+ rip #xbc)) ; => db"
" 1f: 49c7c006000000 (mov r8 #x6) ; <="
" 26: 48bf9b635a0c01000000 (mov rdi #x10c5a639b) ; 'break-enabled"
" 30: 48c7c606000000 (mov rsi #x6)"
" 37: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" 3b: 4983c510 (add r13 #x10)"
" 3f: 49bcdb505d0c01000000 (mov r12 #x10c5d50db) ; 'continuation-mark-set-first"
" 49: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 4e: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 75"
" 55: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 59: 48c7c503000000 (mov rbp #x3)"
" 60: 41ff64240d (jmp (mem64+ r12 #xd))"
" 65: a600000000000000 (data)"
" 6d: 8b00000000000000 (data)"
" 75: 4983ed10 (sub r13 #x10) ; <="
" 79: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" 7d: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" 81: 4983c120 (add r9 #x20)"
" 85: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 89: 7241 (jb (+ rip #x41)) ; => cc"
" 8b: 4c89e7 (mov rdi r12) ; <="
" 8e: 48b9703b1d1501000000 (mov rcx #x1151d3b70) ; #<code [...ate/more-scheme.rkt:255:28 at more-scheme.rkt:255.29>"
" 98: 48894f03 (mov (mem64+ rdi #x3) rcx)"
" 9c: 48896f0b (mov (mem64+ rdi #xb) rbp)"
" a0: 498b4f0b (mov rcx (mem64+ r15 #xb))"
" a4: 48894f13 (mov (mem64+ rdi #x13) rcx)"
" a8: 498b4f13 (mov rcx (mem64+ r15 #x13))"
" ac: 48894f1b (mov (mem64+ rdi #x1b) rcx)"
" b0: 4989e8 (mov r8 rbp)"
" b3: 48beed10251501000000 (mov rsi #x1152510ed) ; #<procedure:...rs/bogdan/tmp/s.rkt:31:2>"
" bd: 4d8b7f1b (mov r15 (mem64+ r15 #x1b))"
" c1: 48c7c503000000 (mov rbp #x3)"
" c8: 41ff6703 (jmp (mem64+ r15 #x3))"
" cc: 49e80e50e0f5 (call (+ rip #x-a1faff2)) ; #<code get-room> ; <="
" d2: 0f1f8000000000 (nop (mem32+ rax #x0))"
" d9: ebb0 (jmp (+ rip #x-50)) ; => 8b"
" db: e81054e0f5 (call (+ rip #x-a1fabf0)) ; #<code dooverflow> ; <="
" e0: 0f1f8000000000 (nop (mem32+ rax #x0))"
" e7: e933ffffff (jmp (+ rip #x-cd)) ; => 1f"
" ec: e90f5de0f5 (jmp (+ rip #x-a1fa2f1)) ; #<code doargerr> ; <="
" f1: 0f1f8000000000 (data)"
" f8: e9a380e0f5 (jmp (+ rip #x-a1f7f5d)) ; #<code event-detour> ; <="
" fd: 0f1f8000000000 (data)"
"")))
(define with-handlers-handler2
(lambda (a0)
".../tmp/s.rkt:32:20"
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 0f8489000000 (jz (+ rip #x89)) ; => 94"
" b: 4883fd01 (cmp rbp #x1)"
" f: 7577 (jnz (+ rip #x77)) ; => 88"
" 11: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 15: 7663 (jbe (+ rip #x63)) ; => 7a"
" 17: 498b4f0b (mov rcx (mem64+ r15 #xb)) ; <="
" 1b: 4883e107 (and rcx #x7)"
" 1f: 4883f905 (cmp rcx #x5)"
" 23: 750e (jnz (+ rip #xe)) ; => 33"
" 25: 498b6f0b (mov rbp (mem64+ r15 #xb))"
" 29: 4989ef (mov r15 rbp) ; <="
" 2c: 4831ed (xor rbp rbp)"
" 2f: 41ff6703 (jmp (mem64+ r15 #x3))"
" 33: 4d8b470b (mov r8 (mem64+ r15 #xb)) ; <="
" 37: 4831ff (xor rdi rdi)"
" 3a: 4983c508 (add r13 #x8)"
" 3e: 49bccbda5c0c01000000 (mov r12 #x10c5cdacb) ; 'slow-extract-procedure"
" 48: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 4d: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 74"
" 54: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 58: 48c7c502000000 (mov rbp #x2)"
" 5f: 41ff64240d (jmp (mem64+ r12 #xd))"
" 64: a500000000000000 (data)"
" 6c: 0700000000000000 (data)"
" 74: 4983ed08 (sub r13 #x8) ; <="
" 78: ebaf (jmp (+ rip #x-51)) ; => 29"
" 7a: e85155e0f5 (call (+ rip #x-a1faaaf)) ; #<code dooverflow> ; <="
" 7f: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 86: eb8f (jmp (+ rip #x-71)) ; => 17"
" 88: e9535ee0f5 (jmp (+ rip #x-a1fa1ad)) ; #<code doargerr> ; <="
" 8d: 0f1f8000000000 (data)"
" 94: e9e781e0f5 (jmp (+ rip #x-a1f7e19)) ; #<code event-detour> ; <="
" 99: 0f1f8000000000 (data)"
"")))
(define ....
(lambda ()
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 7435 (jz (+ rip #x35)) ; => 3c"
" 7: 4883fd00 (cmp rbp #x0)"
" b: 7523 (jnz (+ rip #x23)) ; => 30"
" d: 4d8b4713 (mov r8 (mem64+ r15 #x13))"
" 11: 498b7f0b (mov rdi (mem64+ r15 #xb))"
" 15: 49bc9bda5c0c01000000 (mov r12 #x10c5cda9b) ; '#%call-with-values"
" 1f: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 24: 48c7c502000000 (mov rbp #x2)"
" 2b: 41ff64240d (jmp (mem64+ r12 #xd))"
" 30: e93b5fe0f5 (jmp (+ rip #x-a1fa0c5)) ; #<code doargerr> ; <="
" 35: 0f1f8000000000 (data)"
" 3c: e9cf82e0f5 (jmp (+ rip #x-a1f7d31)) ; #<code event-detour> ; <="
" 41: 0f1f8000000000 (data)"
"")))
(define ...rs/bogdan/tmp/s.rkt:28:2
(lambda ()
".../tmp/s.rkt:28:3"
(#%assembly-code
" 0: 4883fd00 (cmp rbp #x0)"
" 4: 0f853f010000 (jnz (+ rip #x13f)) ; => 149"
" a: 498b4f0b (mov rcx (mem64+ r15 #xb))"
" e: 48be5fc4fb0a01000000 (mov rsi #x10afbc45f) ; #<struct-type:exn:fail>"
" 18: 4889ca (mov rdx rcx)"
" 1b: 4883e207 (and rdx #x7)"
" 1f: 4883fa07 (cmp rdx #x7)"
" 23: 752d (jnz (+ rip #x2d)) ; => 52"
" 25: 488b4901 (mov rcx (mem64+ rcx #x1))"
" 29: 4839f1 (cmp rcx rsi)"
" 2c: 0f84b1000000 (jz (+ rip #xb1)) ; => e3"
" 32: 4889ca (mov rdx rcx)"
" 35: 4883e207 (and rdx #x7)"
" 39: 4883fa07 (cmp rdx #x7)"
" 3d: 7513 (jnz (+ rip #x13)) ; => 52"
" 3f: 488b4909 (mov rcx (mem64+ rcx #x9)) ; <="
" 43: 4839f1 (cmp rcx rsi)"
" 46: 0f8497000000 (jz (+ rip #x97)) ; => e3"
" 4c: 4883f906 (cmp rcx #x6)"
" 50: 75ed (jnz (+ rip #x-13)) ; => 3f"
" 52: 498b4f0b (mov rcx (mem64+ r15 #xb)) ; <="
" 56: 48be6fcdfb0a01000000 (mov rsi #x10afbcd6f) ; #<struct-type:impersonator>"
" 60: 4889ca (mov rdx rcx)"
" 63: 4883e207 (and rdx #x7)"
" 67: 4883fa07 (cmp rdx #x7)"
" 6b: 7525 (jnz (+ rip #x25)) ; => 92"
" 6d: 488b4901 (mov rcx (mem64+ rcx #x1))"
" 71: 4839f1 (cmp rcx rsi)"
" 74: 7427 (jz (+ rip #x27)) ; => 9d"
" 76: 4889ca (mov rdx rcx)"
" 79: 4883e207 (and rdx #x7)"
" 7d: 4883fa07 (cmp rdx #x7)"
" 81: 750f (jnz (+ rip #xf)) ; => 92"
" 83: 488b4909 (mov rcx (mem64+ rcx #x9)) ; <="
" 87: 4839f1 (cmp rcx rsi)"
" 8a: 7411 (jz (+ rip #x11)) ; => 9d"
" 8c: 4883f906 (cmp rcx #x6)"
" 90: 75f1 (jnz (+ rip #x-f)) ; => 83"
" 92: 48c7c53e000000 (mov rbp #x3e) ; <="
" 99: 41ff6500 (jmp (mem64+ r13 #x0))"
" 9d: 498b4f0b (mov rcx (mem64+ r15 #xb)) ; <="
" a1: 488b4909 (mov rcx (mem64+ rcx #x9))"
" a5: 48be5fc4fb0a01000000 (mov rsi #x10afbc45f) ; #<struct-type:exn:fail>"
" af: 4889ca (mov rdx rcx)"
" b2: 4883e207 (and rdx #x7)"
" b6: 4883fa07 (cmp rdx #x7)"
" ba: 75d6 (jnz (+ rip #x-2a)) ; => 92"
" bc: 488b4901 (mov rcx (mem64+ rcx #x1))"
" c0: 4839f1 (cmp rcx rsi)"
" c3: 741e (jz (+ rip #x1e)) ; => e3"
" c5: 4889ca (mov rdx rcx)"
" c8: 4883e207 (and rdx #x7)"
" cc: 4883fa07 (cmp rdx #x7)"
" d0: 75c0 (jnz (+ rip #x-40)) ; => 92"
" d2: 488b4909 (mov rcx (mem64+ rcx #x9)) ; <="
" d6: 4839f1 (cmp rcx rsi)"
" d9: 7408 (jz (+ rip #x8)) ; => e3"
" db: 4883f906 (cmp rcx #x6)"
" df: 74b1 (jz (+ rip #x-4f)) ; => 92"
" e1: ebef (jmp (+ rip #x-11)) ; => d2"
" e3: 49836e6801 (sub (mem64+ r14 #x68) #x1) ; <="
" e8: 7426 (jz (+ rip #x26)) ; => 110"
" ea: 4d8b470b (mov r8 (mem64+ r15 #xb)) ; <="
" ee: 48c7c70e000000 (mov rdi #xe)"
" f5: 49bc1b715d0c01000000 (mov r12 #x10c5d711b) ; 'raise"
" ff: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 104: 48c7c502000000 (mov rbp #x2)"
" 10b: 41ff64240d (jmp (mem64+ r12 #xd))"
" 110: 4d897d08 (mov (mem64+ r13 #x8) r15) ; <="
" 114: 4983c510 (add r13 #x10)"
" 118: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 13f"
" 11f: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 123: e97883e2f5 (jmp (+ rip #x-a1d7c88)) ; #<code event>"
" 128: 0f1f800000000070 (data)"
" 130: 0100000000000089 (data)"
" 138: 00000000000000 (data)"
" 13f: 4983ed10 (sub r13 #x10) ; <="
" 143: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" 147: eba1 (jmp (+ rip #x-5f)) ; => ea"
" 149: e9c25fe0f5 (jmp (+ rip #x-a1fa03e)) ; #<code doargerr> ; <="
" 14e: 0f1f8000000000 (data)"
"")))
(define ....
(lambda ()
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 7431 (jz (+ rip #x31)) ; => 38"
" 7: 4883fd00 (cmp rbp #x0)"
" b: 751f (jnz (+ rip #x1f)) ; => 2c"
" d: 4d8b470b (mov r8 (mem64+ r15 #xb))"
" 11: 49bcdb4d5e0c01000000 (mov r12 #x10c5e4ddb) ; '1/sync"
" 1b: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 20: 48c7c501000000 (mov rbp #x1)"
" 27: 41ff64240d (jmp (mem64+ r12 #xd))"
" 2c: e96f61e0f5 (jmp (+ rip #x-a1f9e91)) ; #<code doargerr> ; <="
" 31: 0f1f8000000000 (data)"
" 38: e90385e0f5 (jmp (+ rip #x-a1f7afd)) ; #<code event-detour> ; <="
" 3d: 0f1f8000000000 (data)"
"")))
(define ....
(lambda ()
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 0f8436020000 (jz (+ rip #x236)) ; => 241"
" b: 4883fd00 (cmp rbp #x0)"
" f: 0f8520020000 (jnz (+ rip #x220)) ; => 235"
" 15: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 19: 0f8605020000 (jbe (+ rip #x205)) ; => 224"
" 1f: 498b4f53 (mov rcx (mem64+ r15 #x53)) ; <="
" 23: 4883e107 (and rcx #x7)"
" 27: 4883f905 (cmp rcx #x5)"
" 2b: 0f859d010000 (jnz (+ rip #x19d)) ; => 1ce"
" 31: 498b6f53 (mov rbp (mem64+ r15 #x53))"
" 35: 4d8b474b (mov r8 (mem64+ r15 #x4b)) ; <="
" 39: 498b7f43 (mov rdi (mem64+ r15 #x43))"
" 3d: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" 41: 4983c510 (add r13 #x10)"
" 45: 4989ef (mov r15 rbp)"
" 48: 488d0d1f000000 (lea rcx (mem+ rip #x1f)) ; => 6e"
" 4f: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 53: 48c7c502000000 (mov rbp #x2)"
" 5a: 41ff6703 (jmp (mem64+ r15 #x3))"
" 5e: 9f00000000000000 (data)"
" 66: 8b00000000000000 (data)"
" 6e: 4983ed10 (sub r13 #x10) ; <="
" 72: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" 76: 498b4f0b (mov rcx (mem64+ r15 #xb))"
" 7a: 498b5713 (mov rdx (mem64+ r15 #x13))"
" 7e: 4d8d61f9 (lea r12 (mem+ r9 #x-7))"
" 82: 4983c140 (add r9 #x40)"
" 86: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 8a: 0f822c010000 (jb (+ rip #x12c)) ; => 1bc"
" 90: 49894c2407 (mov (mem64+ r12 #x7) rcx) ; <="
" 95: 498d4c2410 (lea rcx (mem+ r12 #x10))"
" 9a: 49894c240f (mov (mem64+ r12 #xf) rcx)"
" 9f: 49896c2417 (mov (mem64+ r12 #x17) rbp)"
" a4: 498d4c2420 (lea rcx (mem+ r12 #x20))"
" a9: 49894c241f (mov (mem64+ r12 #x1f) rcx)"
" ae: 4989542427 (mov (mem64+ r12 #x27) rdx)"
" b3: 498d4c2430 (lea rcx (mem+ r12 #x30))"
" b8: 49894c242f (mov (mem64+ r12 #x2f) rcx)"
" bd: 49c744243700fa0000 (mov (mem64+ r12 #x37) #xfa00)"
" c6: 49c744243f26000000 (mov (mem64+ r12 #x3f) #x26)"
" cf: 498b4f33 (mov rcx (mem64+ r15 #x33))"
" d3: 49894d20 (mov (mem64+ r13 #x20) rcx)"
" d7: 49c7452818000000 (mov (mem64+ r13 #x28) #x18)"
" df: 4d8b472b (mov r8 (mem64+ r15 #x2b))"
" e3: 498b7f23 (mov rdi (mem64+ r15 #x23))"
" e7: 498b773b (mov rsi (mem64+ r15 #x3b))"
" eb: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" ef: 4d896510 (mov (mem64+ r13 #x10) r12)"
" f3: 4983c518 (add r13 #x18)"
" f7: 49bc9bec5c0c01000000 (mov r12 #x10c5cec9b) ; 'checked-procedure-check-and-extract"
" 101: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 106: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 12d"
" 10d: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 111: 48c7c505000000 (mov rbp #x5)"
" 118: 41ff64240d (jmp (mem64+ r12 #xd))"
" 11d: 5e01000000000000 (data)"
" 125: 8f01000000000000 (data)"
" 12d: 4983ed18 (sub r13 #x18) ; <="
" 131: 4989e8 (mov r8 rbp)"
" 134: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" 138: 4d8b6510 (mov r12 (mem64+ r13 #x10))"
" 13c: 4c89c1 (mov rcx r8)"
" 13f: 4883e107 (and rcx #x7)"
" 143: 4883f905 (cmp rcx #x5)"
" 147: 751c (jnz (+ rip #x1c)) ; => 165"
" 149: 4c89c5 (mov rbp r8)"
" 14c: 4d8b471b (mov r8 (mem64+ r15 #x1b)) ; <="
" 150: 4c89e7 (mov rdi r12)"
" 153: 498b774b (mov rsi (mem64+ r15 #x4b))"
" 157: 4989ef (mov r15 rbp)"
" 15a: 48c7c503000000 (mov rbp #x3)"
" 161: 41ff6703 (jmp (mem64+ r15 #x3))"
" 165: 48c7c718000000 (mov rdi #x18) ; <="
" 16c: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" 170: 4d896510 (mov (mem64+ r13 #x10) r12)"
" 174: 4983c518 (add r13 #x18)"
" 178: 49bccbda5c0c01000000 (mov r12 #x10c5cdacb) ; 'slow-extract-procedure"
" 182: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 187: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 1ae"
" 18e: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 192: 48c7c502000000 (mov rbp #x2)"
" 199: 41ff64240d (jmp (mem64+ r12 #xd))"
" 19e: df01000000000000 (data)"
" 1a6: 8f01000000000000 (data)"
" 1ae: 4983ed18 (sub r13 #x18) ; <="
" 1b2: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" 1b6: 4d8b6510 (mov r12 (mem64+ r13 #x10))"
" 1ba: eb90 (jmp (+ rip #x-70)) ; => 14c"
" 1bc: 49e84e55e0f5 (call (+ rip #x-a1faab2)) ; #<code get-room> ; <="
" 1c2: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 1c9: e9c2feffff (jmp (+ rip #x-13e)) ; => 90"
" 1ce: 4d8b4753 (mov r8 (mem64+ r15 #x53)) ; <="
" 1d2: 48c7c710000000 (mov rdi #x10)"
" 1d9: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" 1dd: 4983c510 (add r13 #x10)"
" 1e1: 49bccbda5c0c01000000 (mov r12 #x10c5cdacb) ; 'slow-extract-procedure"
" 1eb: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 1f0: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 217"
" 1f7: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 1fb: 48c7c502000000 (mov rbp #x2)"
" 202: 41ff64240d (jmp (mem64+ r12 #xd))"
" 207: 4802000000000000 (data)"
" 20f: 8b00000000000000 (data)"
" 217: 4983ed10 (sub r13 #x10) ; <="
" 21b: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" 21f: e911feffff (jmp (+ rip #x-1ef)) ; => 35"
" 224: e8f758e0f5 (call (+ rip #x-a1fa709)) ; #<code dooverflow> ; <="
" 229: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 230: e9eafdffff (jmp (+ rip #x-216)) ; => 1f"
" 235: e9f661e0f5 (jmp (+ rip #x-a1f9e0a)) ; #<code doargerr> ; <="
" 23a: 0f1f8000000000 (data)"
" 241: e98a85e0f5 (jmp (+ rip #x-a1f7a76)) ; #<code event-detour> ; <="
" 246: 0f1f8000000000 (data)"
"")))
(define ...rs/bogdan/tmp/s.rkt:20:17
(lambda (a0)
".../tmp/s.rkt:20:18"
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 0f8402010000 (jz (+ rip #x102)) ; => 10d"
" b: 4883fd01 (cmp rbp #x1)"
" f: 0f85ec000000 (jnz (+ rip #xec)) ; => 101"
" 15: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 19: 0f86d1000000 (jbe (+ rip #xd1)) ; => f0"
" 1f: 498b570b (mov rdx (mem64+ r15 #xb)) ; <="
" 23: 4d8d61f9 (lea r12 (mem+ r9 #x-7))"
" 27: 4983c120 (add r9 #x20)"
" 2b: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 2f: 0f82a9000000 (jb (+ rip #xa9)) ; => de"
" 35: 48b95b24720b01000000 (mov rcx #x10b72245b) ; 'h1 ; <="
" 3f: 49894c2407 (mov (mem64+ r12 #x7) rcx)"
" 44: 498d4c2410 (lea rcx (mem+ r12 #x10))"
" 49: 49894c240f (mov (mem64+ r12 #xf) rcx)"
" 4e: 4989542417 (mov (mem64+ r12 #x17) rdx)"
" 53: 49c744241f26000000 (mov (mem64+ r12 #x1f) #x26)"
" 5c: 498b4f1b (mov rcx (mem64+ r15 #x1b))"
" 60: 4883e107 (and rcx #x7)"
" 64: 4883f905 (cmp rcx #x5)"
" 68: 7519 (jnz (+ rip #x19)) ; => 83"
" 6a: 498b6f1b (mov rbp (mem64+ r15 #x1b))"
" 6e: 4d8b4713 (mov r8 (mem64+ r15 #x13)) ; <="
" 72: 4c89e7 (mov rdi r12)"
" 75: 4989ef (mov r15 rbp)"
" 78: 48c7c502000000 (mov rbp #x2)"
" 7f: 41ff6703 (jmp (mem64+ r15 #x3))"
" 83: 4d8b471b (mov r8 (mem64+ r15 #x1b)) ; <="
" 87: 48c7c710000000 (mov rdi #x10)"
" 8e: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" 92: 4d896510 (mov (mem64+ r13 #x10) r12)"
" 96: 4983c518 (add r13 #x18)"
" 9a: 49bccbda5c0c01000000 (mov r12 #x10c5cdacb) ; 'slow-extract-procedure"
" a4: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" a9: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => d0"
" b0: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" b4: 48c7c502000000 (mov rbp #x2)"
" bb: 41ff64240d (jmp (mem64+ r12 #xd))"
" c0: 0101000000000000 (data)"
" c8: 8f01000000000000 (data)"
" d0: 4983ed18 (sub r13 #x18) ; <="
" d4: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" d8: 4d8b6510 (mov r12 (mem64+ r13 #x10))"
" dc: eb90 (jmp (+ rip #x-70)) ; => 6e"
" de: 49e89c5ec3f9 (call (+ rip #x-63ca164)) ; #<code get-room> ; <="
" e4: 0f1f8000000000 (nop (mem32+ rax #x0))"
" eb: e945ffffff (jmp (+ rip #x-bb)) ; => 35"
" f0: e89b62c3f9 (call (+ rip #x-63c9d65)) ; #<code dooverflow> ; <="
" f5: 0f1f8000000000 (nop (mem32+ rax #x0))"
" fc: e91effffff (jmp (+ rip #x-e2)) ; => 1f"
" 101: e99a6bc3f9 (jmp (+ rip #x-63c9466)) ; #<code doargerr> ; <="
" 106: 0f1f8000000000 (data)"
" 10d: e92e8fc3f9 (jmp (+ rip #x-63c70d2)) ; #<code event-detour> ; <="
" 112: 0f1f8000000000 (data)"
"")))
(define ....
(lambda ()
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 0f8484000000 (jz (+ rip #x84)) ; => 8f"
" b: 4883fd00 (cmp rbp #x0)"
" f: 7572 (jnz (+ rip #x72)) ; => 83"
" 11: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 15: 765e (jbe (+ rip #x5e)) ; => 75"
" 17: 4d8b470b (mov r8 (mem64+ r15 #xb)) ; <="
" 1b: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" 1f: 4983c510 (add r13 #x10)"
" 23: 4d8b7f13 (mov r15 (mem64+ r15 #x13))"
" 27: 488d0d1f000000 (lea rcx (mem+ rip #x1f)) ; => 4d"
" 2e: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 32: 48c7c501000000 (mov rbp #x1)"
" 39: 41ff6703 (jmp (mem64+ r15 #x3))"
" 3d: 7e00000000000000 (data)"
" 45: 8b00000000000000 (data)"
" 4d: 4983ed10 (sub r13 #x10) ; <="
" 51: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" 55: 4989e8 (mov r8 rbp)"
" 58: 48c7c726000000 (mov rdi #x26)"
" 5f: 48c7c606000000 (mov rsi #x6)"
" 66: 4d8b7f1b (mov r15 (mem64+ r15 #x1b))"
" 6a: 48c7c503000000 (mov rbp #x3)"
" 71: 41ff6703 (jmp (mem64+ r15 #x3))"
" 75: e8b661c3f9 (call (+ rip #x-63c9e4a)) ; #<code dooverflow> ; <="
" 7a: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 81: eb94 (jmp (+ rip #x-6c)) ; => 17"
" 83: e9b86ac3f9 (jmp (+ rip #x-63c9548)) ; #<code doargerr> ; <="
" 88: 0f1f8000000000 (data)"
" 8f: e94c8ec3f9 (jmp (+ rip #x-63c71b4)) ; #<code event-detour> ; <="
" 94: 0f1f8000000000 (data)"
"")))
(define ....
(lambda ()
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 0f8489000000 (jz (+ rip #x89)) ; => 94"
" b: 4883fd00 (cmp rbp #x0)"
" f: 7577 (jnz (+ rip #x77)) ; => 88"
" 11: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 15: 7663 (jbe (+ rip #x63)) ; => 7a"
" 17: 498b4f0b (mov rcx (mem64+ r15 #xb)) ; <="
" 1b: 4883e107 (and rcx #x7)"
" 1f: 4883f905 (cmp rcx #x5)"
" 23: 750e (jnz (+ rip #xe)) ; => 33"
" 25: 498b6f0b (mov rbp (mem64+ r15 #xb))"
" 29: 4989ef (mov r15 rbp) ; <="
" 2c: 4831ed (xor rbp rbp)"
" 2f: 41ff6703 (jmp (mem64+ r15 #x3))"
" 33: 4d8b470b (mov r8 (mem64+ r15 #xb)) ; <="
" 37: 4831ff (xor rdi rdi)"
" 3a: 4983c508 (add r13 #x8)"
" 3e: 49bccbda5c0c01000000 (mov r12 #x10c5cdacb) ; 'slow-extract-procedure"
" 48: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 4d: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 74"
" 54: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 58: 48c7c502000000 (mov rbp #x2)"
" 5f: 41ff64240d (jmp (mem64+ r12 #xd))"
" 64: a500000000000000 (data)"
" 6c: 0700000000000000 (data)"
" 74: 4983ed08 (sub r13 #x8) ; <="
" 78: ebaf (jmp (+ rip #x-51)) ; => 29"
" 7a: e8d160c3f9 (call (+ rip #x-63c9f2f)) ; #<code dooverflow> ; <="
" 7f: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 86: eb8f (jmp (+ rip #x-71)) ; => 17"
" 88: e9d369c3f9 (jmp (+ rip #x-63c962d)) ; #<code doargerr> ; <="
" 8d: 0f1f8000000000 (data)"
" 94: e9678dc3f9 (jmp (+ rip #x-63c7299)) ; #<code event-detour> ; <="
" 99: 0f1f8000000000 (data)"
"")))
(define ....
(lambda ()
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 0f84c1020000 (jz (+ rip #x2c1)) ; => 2cc"
" b: 4883fd00 (cmp rbp #x0)"
" f: 0f85ab020000 (jnz (+ rip #x2ab)) ; => 2c0"
" 15: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 19: 0f8690020000 (jbe (+ rip #x290)) ; => 2af"
" 1f: 498b4f33 (mov rcx (mem64+ r15 #x33)) ; <="
" 23: 4d8d61f9 (lea r12 (mem+ r9 #x-7))"
" 27: 4983c110 (add r9 #x10)"
" 2b: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 2f: 0f8268020000 (jb (+ rip #x268)) ; => 29d"
" 35: 4c89e6 (mov rsi r12) ; <="
" 38: 48894e07 (mov (mem64+ rsi #x7) rcx)"
" 3c: 48b93bbb1d0e01000000 (mov rcx #x10e1dbb3b) ; 'no-negative-party"
" 46: 48894e0f (mov (mem64+ rsi #xf) rcx)"
" 4a: 498b4f2b (mov rcx (mem64+ r15 #x2b))"
" 4e: 48bf6fcdfb0a01000000 (mov rdi #x10afbcd6f) ; #<struct-type:impersonator>"
" 58: 4889ca (mov rdx rcx)"
" 5b: 4883e207 (and rdx #x7)"
" 5f: 4883fa07 (cmp rdx #x7)"
" 63: 752d (jnz (+ rip #x2d)) ; => 92"
" 65: 488b4901 (mov rcx (mem64+ rcx #x1))"
" 69: 4839f9 (cmp rcx rdi)"
" 6c: 0f84d2010000 (jz (+ rip #x1d2)) ; => 244"
" 72: 4889ca (mov rdx rcx)"
" 75: 4883e207 (and rdx #x7)"
" 79: 4883fa07 (cmp rdx #x7)"
" 7d: 7513 (jnz (+ rip #x13)) ; => 92"
" 7f: 488b4909 (mov rcx (mem64+ rcx #x9)) ; <="
" 83: 4839f9 (cmp rcx rdi)"
" 86: 0f84b8010000 (jz (+ rip #x1b8)) ; => 244"
" 8c: 4883f906 (cmp rcx #x6)"
" 90: 75ed (jnz (+ rip #x-13)) ; => 7f"
" 92: 498b572b (mov rdx (mem64+ r15 #x2b)) ; <="
" 96: 4d8d61f9 (lea r12 (mem+ r9 #x-7))"
" 9a: 4983c110 (add r9 #x10)"
" 9e: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" a2: 0f828a010000 (jb (+ rip #x18a)) ; => 232"
" a8: 4c89e1 (mov rcx r12) ; <="
" ab: 48895107 (mov (mem64+ rcx #x7) rdx)"
" af: 4889710f (mov (mem64+ rcx #xf) rsi)"
" b3: 498b9e48010000 (mov rbx (mem64+ r14 #x148)) ; <="
" ba: 48baa09dfd0a01000000 (mov rdx #x10afd9da0) ; #<code winder-dummy>"
" c4: 498bb660010000 (mov rsi (mem64+ r14 #x160))"
" cb: 48837b3b06 (cmp (mem64+ rbx #x3b) #x6)"
" d0: 0f844b010000 (jz (+ rip #x14b)) ; => 221"
" d6: 49395500 (cmp (mem64+ r13 #x0) rdx)"
" da: 0f8541010000 (jnz (+ rip #x141)) ; => 221"
" e0: 4839733b (cmp (mem64+ rbx #x3b) rsi)"
" e4: 7404 (jz (+ rip #x4)) ; => ea"
" e6: 488b760f (mov rsi (mem64+ rsi #xf))"
" ea: 4d8d61f9 (lea r12 (mem+ r9 #x-7)) ; <="
" ee: 4983c110 (add r9 #x10)"
" f2: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" f6: 0f8213010000 (jb (+ rip #x113)) ; => 20f"
" fc: 49894c2407 (mov (mem64+ r12 #x7) rcx) ; <="
" 101: 498974240f (mov (mem64+ r12 #xf) rsi)"
" 106: 4d89a660010000 (mov (mem64+ r14 #x160) r12)"
" 10d: 4d8b470b (mov r8 (mem64+ r15 #xb))"
" 111: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" 115: 4983c510 (add r13 #x10)"
" 119: 4d8b7f13 (mov r15 (mem64+ r15 #x13))"
" 11d: 488d0d1f000000 (lea rcx (mem+ rip #x1f)) ; => 143"
" 124: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 128: 48c7c501000000 (mov rbp #x1)"
" 12f: 41ff6703 (jmp (mem64+ r15 #x3))"
" 133: 7401000000000000 (data)"
" 13b: 8b00000000000000 (data)"
" 143: 4983ed10 (sub r13 #x10) ; <="
" 147: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" 14b: 4989e8 (mov r8 rbp)"
" 14e: 48c7c726000000 (mov rdi #x26)"
" 155: 48c7c606000000 (mov rsi #x6)"
" 15c: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" 160: 4983c510 (add r13 #x10)"
" 164: 4d8b7f1b (mov r15 (mem64+ r15 #x1b))"
" 168: 488d0d1f000000 (lea rcx (mem+ rip #x1f)) ; => 18e"
" 16f: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 173: 48c7c503000000 (mov rbp #x3)"
" 17a: 41ff6703 (jmp (mem64+ r15 #x3))"
" 17e: bf01000000000000 (data)"
" 186: 8b00000000000000 (data)"
" 18e: 4983ed10 (sub r13 #x10) ; <="
" 192: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" 196: 4889e9 (mov rcx rbp)"
" 199: 498b5723 (mov rdx (mem64+ r15 #x23))"
" 19d: 4883e207 (and rdx #x7)"
" 1a1: 4883fa05 (cmp rdx #x5)"
" 1a5: 7515 (jnz (+ rip #x15)) ; => 1bc"
" 1a7: 498b6f23 (mov rbp (mem64+ r15 #x23))"
" 1ab: 4989c8 (mov r8 rcx) ; <="
" 1ae: 4989ef (mov r15 rbp)"
" 1b1: 48c7c501000000 (mov rbp #x1)"
" 1b8: 41ff6703 (jmp (mem64+ r15 #x3))"
" 1bc: 4d8b4723 (mov r8 (mem64+ r15 #x23)) ; <="
" 1c0: 48c7c708000000 (mov rdi #x8)"
" 1c7: 49894d10 (mov (mem64+ r13 #x10) rcx)"
" 1cb: 4983c518 (add r13 #x18)"
" 1cf: 49bccbda5c0c01000000 (mov r12 #x10c5cdacb) ; 'slow-extract-procedure"
" 1d9: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 1de: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 205"
" 1e5: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 1e9: 48c7c502000000 (mov rbp #x2)"
" 1f0: 41ff64240d (jmp (mem64+ r12 #xd))"
" 1f5: 3602000000000000 (data)"
" 1fd: 0f01000000000000 (data)"
" 205: 4983ed18 (sub r13 #x18) ; <="
" 209: 498b4d10 (mov rcx (mem64+ r13 #x10))"
" 20d: eb9c (jmp (+ rip #x-64)) ; => 1ab"
" 20f: 49e81b55c3f9 (call (+ rip #x-63caae5)) ; #<code get-room> ; <="
" 215: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 21c: e9dbfeffff (jmp (+ rip #x-125)) ; => fc"
" 221: e8fa6ec3f9 (call (+ rip #x-63c9106)) ; #<code reify-1cc> ; <="
" 226: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 22d: e9b8feffff (jmp (+ rip #x-148)) ; => ea"
" 232: 49e8f854c3f9 (call (+ rip #x-63cab08)) ; #<code get-room> ; <="
" 238: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 23f: e964feffff (jmp (+ rip #x-19c)) ; => a8"
" 244: 49c7c006000000 (mov r8 #x6) ; <="
" 24b: 498b7f2b (mov rdi (mem64+ r15 #x2b))"
" 24f: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" 253: 4983c510 (add r13 #x10)"
" 257: 49bc5b4c5d0c01000000 (mov r12 #x10c5d4c5b) ; 'mark-frame-update"
" 261: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 266: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 28d"
" 26d: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 271: 48c7c503000000 (mov rbp #x3)"
" 278: 41ff64240d (jmp (mem64+ r12 #xd))"
" 27d: be02000000000000 (data)"
" 285: 8b00000000000000 (data)"
" 28d: 4983ed10 (sub r13 #x10) ; <="
" 291: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" 295: 4889e9 (mov rcx rbp)"
" 298: e916feffff (jmp (+ rip #x-1ea)) ; => b3"
" 29d: 49e88d54c3f9 (call (+ rip #x-63cab73)) ; #<code get-room> ; <="
" 2a3: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 2aa: e986fdffff (jmp (+ rip #x-27a)) ; => 35"
" 2af: e88c58c3f9 (call (+ rip #x-63ca774)) ; #<code dooverflow> ; <="
" 2b4: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 2bb: e95ffdffff (jmp (+ rip #x-2a1)) ; => 1f"
" 2c0: e98b61c3f9 (jmp (+ rip #x-63c9e75)) ; #<code doargerr> ; <="
" 2c5: 0f1f8000000000 (data)"
" 2cc: e91f85c3f9 (jmp (+ rip #x-63c7ae1)) ; #<code event-detour> ; <="
" 2d1: 0f1f8000000000 (data)"
"")))
(#%assembly-code
" 0: 4883fd17 (cmp rbp #x17)"
" 4: 0f859c060000 (jnz (+ rip #x69c)) ; => 6a6"
" a: 4d8985a8000000 (mov (mem64+ r13 #xa8) r8)"
" 11: 4d897d30 (mov (mem64+ r13 #x30) r15)"
" 15: 498b5508 (mov rdx (mem64+ r13 #x8))"
" 19: 498b7510 (mov rsi (mem64+ r13 #x10))"
" 1d: 498b7d18 (mov rdi (mem64+ r13 #x18))"
" 21: 498b8da0000000 (mov rcx (mem64+ r13 #xa0))"
" 28: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 2c: 0f8663060000 (jbe (+ rip #x663)) ; => 695"
" 32: 49836e6801 (sub (mem64+ r14 #x68) #x1) ; <="
" 37: 0f84f8050000 (jz (+ rip #x5f8)) ; => 635"
" 3d: 4d8d61fd (lea r12 (mem+ r9 #x-3)) ; <="
" 41: 4983c140 (add r9 #x40)"
" 45: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 49: 0f82d4050000 (jb (+ rip #x5d4)) ; => 623"
" 4f: 4d89e0 (mov r8 r12) ; <="
" 52: 49bfd0333a1101000000 (mov r15 #x1113a33d0) ; #<code>"
" 5c: 4d897803 (mov (mem64+ r8 #x3) r15)"
" 60: 4d8bbda8000000 (mov r15 (mem64+ r13 #xa8))"
" 67: 4d89780b (mov (mem64+ r8 #xb) r15)"
" 6b: 4d8b7d28 (mov r15 (mem64+ r13 #x28))"
" 6f: 4d897813 (mov (mem64+ r8 #x13) r15)"
" 73: 4d8b7d20 (mov r15 (mem64+ r13 #x20))"
" 77: 4d89781b (mov (mem64+ r8 #x1b) r15)"
" 7b: 49897023 (mov (mem64+ r8 #x23) rsi)"
" 7f: 4989502b (mov (mem64+ r8 #x2b) rdx)"
" 83: 49897833 (mov (mem64+ r8 #x33) rdi)"
" 87: 49898db8000000 (mov (mem64+ r13 #xb8) rcx)"
" 8e: 48bfc9f4fd1101000000 (mov rdi #x111fdf4c9) ; '(lifted/1.1)"
" 98: 48beb9f4fd1101000000 (mov rsi #x111fdf4b9) ; '(constant)"
" a2: 49898da0000000 (mov (mem64+ r13 #xa0) rcx)"
" a9: 4981c5b0000000 (add r13 #xb0)"
" b0: 49bc5bd55e0c01000000 (mov r12 #x10c5ed55b) ; 'call-with-module-prompt"
" ba: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" bf: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => e6"
" c6: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" ca: 48c7c504000000 (mov rbp #x4)"
" d1: 41ff64240d (jmp (mem64+ r12 #xd))"
" d6: 1701000000000000 (data)"
" de: 59fcff0f00000000 (data)"
" e6: 4981edb0000000 (sub r13 #xb0) ; <="
" ed: 498b8da0000000 (mov rcx (mem64+ r13 #xa0))"
" f4: 488b4909 (mov rcx (mem64+ rcx #x9))"
" f8: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" fc: 4983c110 (add r9 #x10)"
" 100: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 104: 0f8207050000 (jb (+ rip #x507)) ; => 611"
" 10a: 4d89e0 (mov r8 r12) ; <="
" 10d: 48bac02d3a1101000000 (mov rdx #x1113a2dc0) ; #<code>"
" 117: 49895003 (mov (mem64+ r8 #x3) rdx)"
" 11b: 4989480b (mov (mem64+ r8 #xb) rcx)"
" 11f: 498b8d98000000 (mov rcx (mem64+ r13 #x98))"
" 126: 49898db8000000 (mov (mem64+ r13 #xb8) rcx)"
" 12d: 48bf29d7401101000000 (mov rdi #x11140d729) ; '(ch)"
" 137: 48be19d7401101000000 (mov rsi #x11140d719) ; '(constant)"
" 141: 4981c5b0000000 (add r13 #xb0)"
" 148: 49bc5bd55e0c01000000 (mov r12 #x10c5ed55b) ; 'call-with-module-prompt"
" 152: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 157: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 17e"
" 15e: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 162: 48c7c504000000 (mov rbp #x4)"
" 169: 41ff64240d (jmp (mem64+ r12 #xd))"
" 16e: af01000000000000 (data)"
" 176: 59fcff0b00000000 (data)"
" 17e: 4981edb0000000 (sub r13 #xb0) ; <="
" 185: 498b8d98000000 (mov rcx (mem64+ r13 #x98))"
" 18c: 488b4909 (mov rcx (mem64+ rcx #x9))"
" 190: 49894d08 (mov (mem64+ r13 #x8) rcx)"
" 194: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" 198: 4983c120 (add r9 #x20)"
" 19c: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 1a0: 0f8259040000 (jb (+ rip #x459)) ; => 5ff"
" 1a6: 4d89e0 (mov r8 r12) ; <="
" 1a9: 48b9e02c3a1101000000 (mov rcx #x1113a2ce0) ; #<code>"
" 1b3: 49894803 (mov (mem64+ r8 #x3) rcx)"
" 1b7: 498b8da8000000 (mov rcx (mem64+ r13 #xa8))"
" 1be: 4989480b (mov (mem64+ r8 #xb) rcx)"
" 1c2: 498b4d28 (mov rcx (mem64+ r13 #x28))"
" 1c6: 49894813 (mov (mem64+ r8 #x13) rcx)"
" 1ca: 498b4d20 (mov rcx (mem64+ r13 #x20))"
" 1ce: 4989481b (mov (mem64+ r8 #x1b) rcx)"
" 1d2: 498b8d90000000 (mov rcx (mem64+ r13 #x90))"
" 1d9: 49898da0000000 (mov (mem64+ r13 #xa0) rcx)"
" 1e0: 48bf59793f1101000000 (mov rdi #x1113f7959) ; '(lifted/2.1)"
" 1ea: 48be29db3d1101000000 (mov rsi #x1113ddb29) ; '(constant)"
" 1f4: 4981c598000000 (add r13 #x98)"
" 1fb: 49bc5bd55e0c01000000 (mov r12 #x10c5ed55b) ; 'call-with-module-prompt"
" 205: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 20a: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 231"
" 211: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 215: 48c7c504000000 (mov rbp #x4)"
" 21c: 41ff64240d (jmp (mem64+ r12 #xd))"
" 221: 6202000000000000 (data)"
" 229: cdf0ff0100000000 (data)"
" 231: 4981ed98000000 (sub r13 #x98) ; <="
" 238: 498b8d90000000 (mov rcx (mem64+ r13 #x90))"
" 23f: 488b5109 (mov rdx (mem64+ rcx #x9))"
" 243: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" 247: 4983c120 (add r9 #x20)"
" 24b: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 24f: 0f8298030000 (jb (+ rip #x398)) ; => 5ed"
" 255: 4c89e1 (mov rcx r12) ; <="
" 258: 48be802b3a1101000000 (mov rsi #x1113a2b80) ; #<code [...rs/bogdan/tmp/s.rkt:20:17 at s.rkt:20.18>"
" 262: 48897103 (mov (mem64+ rcx #x3) rsi)"
" 266: 498b7550 (mov rsi (mem64+ r13 #x50))"
" 26a: 4889710b (mov (mem64+ rcx #xb) rsi)"
" 26e: 48895113 (mov (mem64+ rcx #x13) rdx)"
" 272: 498b7548 (mov rsi (mem64+ r13 #x48))"
" 276: 4889711b (mov (mem64+ rcx #x1b) rsi)"
" 27a: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" 27e: 4983c160 (add r9 #x60)"
" 282: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 286: 0f824f030000 (jb (+ rip #x34f)) ; => 5db"
" 28c: 4d89e0 (mov r8 r12) ; <="
" 28f: 48be40313a1101000000 (mov rsi #x1113a3140) ; #<code>"
" 299: 49897003 (mov (mem64+ r8 #x3) rsi)"
" 29d: 498b7508 (mov rsi (mem64+ r13 #x8))"
" 2a1: 4989700b (mov (mem64+ r8 #xb) rsi)"
" 2a5: 498b7530 (mov rsi (mem64+ r13 #x30))"
" 2a9: 488b760b (mov rsi (mem64+ rsi #xb))"
" 2ad: 49897013 (mov (mem64+ r8 #x13) rsi)"
" 2b1: 498b7530 (mov rsi (mem64+ r13 #x30))"
" 2b5: 488b7613 (mov rsi (mem64+ rsi #x13))"
" 2b9: 4989701b (mov (mem64+ r8 #x1b) rsi)"
" 2bd: 498b7538 (mov rsi (mem64+ r13 #x38))"
" 2c1: 49897023 (mov (mem64+ r8 #x23) rsi)"
" 2c5: 498b7560 (mov rsi (mem64+ r13 #x60))"
" 2c9: 4989702b (mov (mem64+ r8 #x2b) rsi)"
" 2cd: 498b7530 (mov rsi (mem64+ r13 #x30))"
" 2d1: 488b761b (mov rsi (mem64+ rsi #x1b))"
" 2d5: 49897033 (mov (mem64+ r8 #x33) rsi)"
" 2d9: 498b7558 (mov rsi (mem64+ r13 #x58))"
" 2dd: 4989703b (mov (mem64+ r8 #x3b) rsi)"
" 2e1: 49894843 (mov (mem64+ r8 #x43) rcx)"
" 2e5: 4989504b (mov (mem64+ r8 #x4b) rdx)"
" 2e9: 498b4d40 (mov rcx (mem64+ r13 #x40))"
" 2ed: 49894853 (mov (mem64+ r8 #x53) rcx)"
" 2f1: 498b8d88000000 (mov rcx (mem64+ r13 #x88))"
" 2f8: 49898d98000000 (mov (mem64+ r13 #x98) rcx)"
" 2ff: 48bfd9f5fd1101000000 (mov rdi #x111fdf5d9) ; '(stop)"
" 309: 48bef9f5fd1101000000 (mov rsi #x111fdf5f9) ; '(constant)"
" 313: 4981c590000000 (add r13 #x90)"
" 31a: 49bc5bd55e0c01000000 (mov r12 #x10c5ed55b) ; 'call-with-module-prompt"
" 324: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 329: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 350"
" 330: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 334: 48c7c504000000 (mov rbp #x4)"
" 33b: 41ff64240d (jmp (mem64+ r12 #xd))"
" 340: 8103000000000000 (data)"
" 348: c900f80000000000 (data)"
" 350: 4981ed90000000 (sub r13 #x90) ; <="
" 357: 498b8d88000000 (mov rcx (mem64+ r13 #x88))"
" 35e: 488b4909 (mov rcx (mem64+ rcx #x9))"
" 362: 49894d10 (mov (mem64+ r13 #x10) rcx)"
" 366: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" 36a: 4983c110 (add r9 #x10)"
" 36e: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 372: 0f8251020000 (jb (+ rip #x251)) ; => 5c9"
" 378: 4d89e0 (mov r8 r12) ; <="
" 37b: 48b920303a1101000000 (mov rcx #x1113a3020) ; #<code>"
" 385: 49894803 (mov (mem64+ r8 #x3) rcx)"
" 389: 498b4d08 (mov rcx (mem64+ r13 #x8))"
" 38d: 4989480b (mov (mem64+ r8 #xb) rcx)"
" 391: 498b8d80000000 (mov rcx (mem64+ r13 #x80))"
" 398: 49898d90000000 (mov (mem64+ r13 #x90) rcx)"
" 39f: 48bf095af61101000000 (mov rdi #x111f65a09) ; '(ready-or-exn)"
" 3a9: 48be29f5fd1101000000 (mov rsi #x111fdf529) ; '(constant)"
" 3b3: 4981c588000000 (add r13 #x88)"
" 3ba: 49bc5bd55e0c01000000 (mov r12 #x10c5ed55b) ; 'call-with-module-prompt"
" 3c4: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 3c9: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 3f0"
" 3d0: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 3d4: 48c7c504000000 (mov rbp #x4)"
" 3db: 41ff64240d (jmp (mem64+ r12 #xd))"
" 3e0: 2104000000000000 (data)"
" 3e8: 4501780000000000 (data)"
" 3f0: 4981ed88000000 (sub r13 #x88) ; <="
" 3f7: 498b8d80000000 (mov rcx (mem64+ r13 #x80))"
" 3fe: 488b5109 (mov rdx (mem64+ rcx #x9))"
" 402: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" 406: 4983c110 (add r9 #x10)"
" 40a: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 40e: 0f82a3010000 (jb (+ rip #x1a3)) ; => 5b7"
" 414: 4c89e1 (mov rcx r12) ; <="
" 417: 48be80373a1101000000 (mov rsi #x1113a3780) ; #<code [...rs/bogdan/tmp/s.rkt:28:2 at s.rkt:28.3>"
" 421: 48897103 (mov (mem64+ rcx #x3) rsi)"
" 425: 4889510b (mov (mem64+ rcx #xb) rdx)"
" 429: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" 42d: 4983c120 (add r9 #x20)"
" 431: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 435: 0f826a010000 (jb (+ rip #x16a)) ; => 5a5"
" 43b: 4d89e0 (mov r8 r12) ; <="
" 43e: 48bab0303a1101000000 (mov rdx #x1113a30b0) ; #<code>"
" 448: 49895003 (mov (mem64+ r8 #x3) rdx)"
" 44c: 498b5568 (mov rdx (mem64+ r13 #x68))"
" 450: 4989500b (mov (mem64+ r8 #xb) rdx)"
" 454: 49894813 (mov (mem64+ r8 #x13) rcx)"
" 458: 4981c580000000 (add r13 #x80)"
" 45f: 49bc5bd55e0c01000000 (mov r12 #x10c5ed55b) ; 'call-with-module-prompt"
" 469: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 46e: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 495"
" 475: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 479: 48c7c501000000 (mov rbp #x1)"
" 480: 41ff64240d (jmp (mem64+ r12 #xd))"
" 485: c604000000000000 (data)"
" 48d: 4101380000000000 (data)"
" 495: 4981ed80000000 (sub r13 #x80) ; <="
" 49c: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" 4a0: 4983c110 (add r9 #x10)"
" 4a4: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 4a8: 0f82e5000000 (jb (+ rip #xe5)) ; => 593"
" 4ae: 4c89e1 (mov rcx r12) ; <="
" 4b1: 48ba703a3a1101000000 (mov rdx #x1113a3a70) ; #<code with-handlers-handler2 at s.rkt:32.20>"
" 4bb: 48895103 (mov (mem64+ rcx #x3) rdx)"
" 4bf: 498b5510 (mov rdx (mem64+ r13 #x10))"
" 4c3: 4889510b (mov (mem64+ rcx #xb) rdx)"
" 4c7: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" 4cb: 4983c120 (add r9 #x20)"
" 4cf: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 4d3: 0f82a8000000 (jb (+ rip #xa8)) ; => 581"
" 4d9: 4c89e2 (mov rdx r12) ; <="
" 4dc: 48be20393a1101000000 (mov rsi #x1113a3920) ; #<code [...rs/bogdan/tmp/s.rkt:31:2 at s.rkt:31.3>"
" 4e6: 48897203 (mov (mem64+ rdx #x3) rsi)"
" 4ea: 48894a0b (mov (mem64+ rdx #xb) rcx)"
" 4ee: 498b4d70 (mov rcx (mem64+ r13 #x70))"
" 4f2: 48894a13 (mov (mem64+ rdx #x13) rcx)"
" 4f6: 498b4d78 (mov rcx (mem64+ r13 #x78))"
" 4fa: 48894a1b (mov (mem64+ rdx #x1b) rcx)"
" 4fe: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" 502: 4983c120 (add r9 #x20)"
" 506: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" 50a: 7266 (jb (+ rip #x66)) ; => 572"
" 50c: 4d89e0 (mov r8 r12) ; <="
" 50f: 48b9f0363a1101000000 (mov rcx #x1113a36f0) ; #<code>"
" 519: 49894803 (mov (mem64+ r8 #x3) rcx)"
" 51d: 498b4d68 (mov rcx (mem64+ r13 #x68))"
" 521: 4989480b (mov (mem64+ r8 #xb) rcx)"
" 525: 49895013 (mov (mem64+ r8 #x13) rdx)"
" 529: 4983c508 (add r13 #x8)"
" 52d: 49bc5bd55e0c01000000 (mov r12 #x10c5ed55b) ; 'call-with-module-prompt"
" 537: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 53c: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 563"
" 543: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 547: 48c7c501000000 (mov rbp #x1)"
" 54e: 41ff64240d (jmp (mem64+ r12 #xd))"
" 553: 9405000000000000 (data)"
" 55b: 0500000000000000 (data)"
" 563: 4983ed08 (sub r13 #x8) ; <="
" 567: 48c7c53e000000 (mov rbp #x3e)"
" 56e: 41ff6500 (jmp (mem64+ r13 #x0))"
" 572: 49e8488517f9 (call (+ rip #x-6e87ab8)) ; #<code get-room> ; <="
" 578: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 57f: eb8b (jmp (+ rip #x-75)) ; => 50c"
" 581: 49e8398517f9 (call (+ rip #x-6e87ac7)) ; #<code get-room> ; <="
" 587: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 58e: e946ffffff (jmp (+ rip #x-ba)) ; => 4d9"
" 593: 49e8278517f9 (call (+ rip #x-6e87ad9)) ; #<code get-room> ; <="
" 599: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 5a0: e909ffffff (jmp (+ rip #x-f7)) ; => 4ae"
" 5a5: 49e8158517f9 (call (+ rip #x-6e87aeb)) ; #<code get-room> ; <="
" 5ab: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 5b2: e984feffff (jmp (+ rip #x-17c)) ; => 43b"
" 5b7: 49e8038517f9 (call (+ rip #x-6e87afd)) ; #<code get-room> ; <="
" 5bd: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 5c4: e94bfeffff (jmp (+ rip #x-1b5)) ; => 414"
" 5c9: 49e8f18417f9 (call (+ rip #x-6e87b0f)) ; #<code get-room> ; <="
" 5cf: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 5d6: e99dfdffff (jmp (+ rip #x-263)) ; => 378"
" 5db: 49e8df8417f9 (call (+ rip #x-6e87b21)) ; #<code get-room> ; <="
" 5e1: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 5e8: e99ffcffff (jmp (+ rip #x-361)) ; => 28c"
" 5ed: 49e8cd8417f9 (call (+ rip #x-6e87b33)) ; #<code get-room> ; <="
" 5f3: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 5fa: e956fcffff (jmp (+ rip #x-3aa)) ; => 255"
" 5ff: 49e8bb8417f9 (call (+ rip #x-6e87b45)) ; #<code get-room> ; <="
" 605: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 60c: e995fbffff (jmp (+ rip #x-46b)) ; => 1a6"
" 611: 49e8a98417f9 (call (+ rip #x-6e87b57)) ; #<code get-room> ; <="
" 617: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 61e: e9e7faffff (jmp (+ rip #x-519)) ; => 10a"
" 623: 49e8978417f9 (call (+ rip #x-6e87b69)) ; #<code get-room> ; <="
" 629: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 630: e91afaffff (jmp (+ rip #x-5e6)) ; => 4f"
" 635: 49895508 (mov (mem64+ r13 #x8) rdx) ; <="
" 639: 49897510 (mov (mem64+ r13 #x10) rsi)"
" 63d: 49897d18 (mov (mem64+ r13 #x18) rdi)"
" 641: 49898da0000000 (mov (mem64+ r13 #xa0) rcx)"
" 648: 4981c5b0000000 (add r13 #xb0)"
" 64f: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 676"
" 656: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 65a: e9d1b319f9 (jmp (+ rip #x-6e64c2f)) ; #<code event>"
" 65f: 0f1f8000000000a7 (data)"
" 667: 06000000000000d9 (data)"
" 66f: ffff0f00000000 (data)"
" 676: 4981edb0000000 (sub r13 #xb0) ; <="
" 67d: 498b5508 (mov rdx (mem64+ r13 #x8))"
" 681: 498b7510 (mov rsi (mem64+ r13 #x10))"
" 685: 498b7d18 (mov rdi (mem64+ r13 #x18))"
" 689: 498b8da0000000 (mov rcx (mem64+ r13 #xa0))"
" 690: e9a8f9ffff (jmp (+ rip #x-658)) ; => 3d"
" 695: e8368817f9 (call (+ rip #x-6e877ca)) ; #<code dooverflow> ; <="
" 69a: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 6a1: e98cf9ffff (jmp (+ rip #x-674)) ; => 32"
" 6a6: e9359117f9 (jmp (+ rip #x-6e86ecb)) ; #<code doargerr> ; <="
" 6ab: 0f1f8000000000 (data)"
"")
(module (s main configure-runtime) ....
(require '#%kernel (lib "racket/runtime-config.rkt"))
(provide)
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 7476 (jz (+ rip #x76)) ; => 7d"
" 7: 4883fd04 (cmp rbp #x4)"
" b: 7564 (jnz (+ rip #x64)) ; => 71"
" d: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 11: 7650 (jbe (+ rip #x50)) ; => 63"
" 13: 49c7c00e000000 (mov r8 #xe) ; <="
" 1a: 4983c508 (add r13 #x8)"
" 1e: 49bc4b845e0c01000000 (mov r12 #x10c5e844b) ; '1/print-as-expression"
" 28: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 2d: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 54"
" 34: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 38: 48c7c501000000 (mov rbp #x1)"
" 3f: 41ff64240d (jmp (mem64+ r12 #xd))"
" 44: 8500000000000000 (data)"
" 4c: 0500000000000000 (data)"
" 54: 4983ed08 (sub r13 #x8) ; <="
" 58: 48c7c53e000000 (mov rbp #x3e)"
" 5f: 41ff6500 (jmp (mem64+ r13 #x0))"
" 63: e8b8cddcf5 (call (+ rip #x-a233248)) ; #<code dooverflow> ; <="
" 68: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 6f: eba2 (jmp (+ rip #x-5e)) ; => 13"
" 71: e9bad6dcf5 (jmp (+ rip #x-a232946)) ; #<code doargerr> ; <="
" 76: 0f1f8000000000 (data)"
" 7d: e94efadcf5 (jmp (+ rip #x-a2305b2)) ; #<code event-detour> ; <="
" 82: 0f1f8000000000 (data)"
""))
(begin-for-all
(define #0=(.get-syntax-literal! pos)
....
((define ||
(lambda (a0)
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 0f8460020000 (jz (+ rip #x260)) ; => 26b"
" b: 4883fd01 (cmp rbp #x1)"
" f: 0f854a020000 (jnz (+ rip #x24a)) ; => 25f"
" 15: 4d894510 (mov (mem64+ r13 #x10) r8)"
" 19: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" 1d: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 21: 0f8627020000 (jbe (+ rip #x227)) ; => 24e"
" 27: 48b9f0c65e0c01000000 (mov rcx #x10c5ec6f0) ; '1/force-unfasl ; <="
" 31: 4c8b01 (mov r8 (mem64+ rcx))"
" 34: 4c89c1 (mov rcx r8)"
" 37: 4883e107 (and rcx #x7)"
" 3b: 4883f905 (cmp rcx #x5)"
" 3f: 0f85bc010000 (jnz (+ rip #x1bc)) ; => 201"
" 45: 4d89c7 (mov r15 r8)"
" 48: 498b4d08 (mov rcx (mem64+ r13 #x8)) ; <="
" 4c: 4c8b412b (mov r8 (mem64+ rcx #x2b))"
" 50: 4983c518 (add r13 #x18)"
" 54: 488d0d1f000000 (lea rcx (mem+ rip #x1f)) ; => 7a"
" 5b: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 5f: 48c7c501000000 (mov rbp #x1)"
" 66: 41ff6703 (jmp (mem64+ r15 #x3))"
" 6a: ab00000000000000 (data)"
" 72: 8f01000000000000 (data)"
" 7a: 4983ed18 (sub r13 #x18) ; <="
" 7e: 498b4d08 (mov rcx (mem64+ r13 #x8))"
" 82: 488b4923 (mov rcx (mem64+ rcx #x23))"
" 86: 4c8b4109 (mov r8 (mem64+ rcx #x9))"
" 8a: 498b4d08 (mov rcx (mem64+ r13 #x8))"
" 8e: 488b491b (mov rcx (mem64+ rcx #x1b))"
" 92: 488b4909 (mov rcx (mem64+ rcx #x9))"
" 96: 488b5509 (mov rdx (mem64+ rbp #x9))"
" 9a: 488b7511 (mov rsi (mem64+ rbp #x11))"
" 9e: 4c8b5d19 (mov r11 (mem64+ rbp #x19))"
" a2: 4c89c7 (mov rdi r8)"
" a5: 4883e707 (and rdi #x7)"
" a9: 4883ff05 (cmp rdi #x5)"
" ad: 0f85d9000000 (jnz (+ rip #xd9)) ; => 18c"
" b3: 4d89c7 (mov r15 r8)"
" b6: 49c7454040000000 (mov (mem64+ r13 #x40) #x40) ; <="
" be: 49895548 (mov (mem64+ r13 #x48) rdx)"
" c2: 49c7455068000000 (mov (mem64+ r13 #x50) #x68)"
" ca: 49897558 (mov (mem64+ r13 #x58) rsi)"
" ce: 4d895d60 (mov (mem64+ r13 #x60) r11)"
" d2: 488b5521 (mov rdx (mem64+ rbp #x21))"
" d6: 49895568 (mov (mem64+ r13 #x68) rdx)"
" da: 4989c8 (mov r8 rcx)"
" dd: 48c7c706000000 (mov rdi #x6)"
" e4: 498b7510 (mov rsi (mem64+ r13 #x10))"
" e8: 4983c538 (add r13 #x38)"
" ec: 488d0d1f000000 (lea rcx (mem+ rip #x1f)) ; => 112"
" f3: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" f7: 48c7c509000000 (mov rbp #x9)"
" fe: 41ff6703 (jmp (mem64+ r15 #x3))"
" 102: 4301000000000000 (data)"
" 10a: 9f00000000000000 (data)"
" 112: 4983ed38 (sub r13 #x38) ; <="
" 116: 4889ee (mov rsi rbp)"
" 119: 498b4d08 (mov rcx (mem64+ r13 #x8))"
" 11d: 4c8b4113 (mov r8 (mem64+ rcx #x13))"
" 121: 4831ff (xor rdi rdi)"
" 124: 4983c510 (add r13 #x10)"
" 128: 49bc6baf5d0c01000000 (mov r12 #x10c5daf6b) ; 'vector-copy!"
" 132: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 137: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 15e"
" 13e: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 142: 48c7c503000000 (mov rbp #x3)"
" 149: 41ff64240d (jmp (mem64+ r12 #xd))"
" 14e: 8f01000000000000 (data)"
" 156: 8900000000000000 (data)"
" 15e: 4983ed10 (sub r13 #x10) ; <="
" 162: 498b4d08 (mov rcx (mem64+ r13 #x8))"
" 166: 4c8b410b (mov r8 (mem64+ rcx #xb))"
" 16a: 48c7c706000000 (mov rdi #x6)"
" 171: 49bc9bd15e0c01000000 (mov r12 #x10c5ed19b) ; 'variable-set!"
" 17b: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 180: 48c7c502000000 (mov rbp #x2)"
" 187: 41ff64240d (jmp (mem64+ r12 #xd))"
" 18c: 48c7c748000000 (mov rdi #x48) ; <="
" 193: 49896d18 (mov (mem64+ r13 #x18) rbp)"
" 197: 49894d20 (mov (mem64+ r13 #x20) rcx)"
" 19b: 49895528 (mov (mem64+ r13 #x28) rdx)"
" 19f: 49897530 (mov (mem64+ r13 #x30) rsi)"
" 1a3: 4d895d38 (mov (mem64+ r13 #x38) r11)"
" 1a7: 4983c540 (add r13 #x40)"
" 1ab: 49bccbda5c0c01000000 (mov r12 #x10c5cdacb) ; 'slow-extract-procedure"
" 1b5: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 1ba: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 1e1"
" 1c1: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 1c5: 48c7c502000000 (mov rbp #x2)"
" 1cc: 41ff64240d (jmp (mem64+ r12 #xd))"
" 1d1: 1202000000000000 (data)"
" 1d9: a33f000000000000 (data)"
" 1e1: 4983ed40 (sub r13 #x40) ; <="
" 1e5: 4989ef (mov r15 rbp)"
" 1e8: 498b6d18 (mov rbp (mem64+ r13 #x18))"
" 1ec: 498b4d20 (mov rcx (mem64+ r13 #x20))"
" 1f0: 498b5528 (mov rdx (mem64+ r13 #x28))"
" 1f4: 498b7530 (mov rsi (mem64+ r13 #x30))"
" 1f8: 4d8b5d38 (mov r11 (mem64+ r13 #x38))"
" 1fc: e9b5feffff (jmp (+ rip #x-14b)) ; => b6"
" 201: 48c7c708000000 (mov rdi #x8) ; <="
" 208: 4983c518 (add r13 #x18)"
" 20c: 49bccbda5c0c01000000 (mov r12 #x10c5cdacb) ; 'slow-extract-procedure"
" 216: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 21b: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 242"
" 222: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 226: 48c7c502000000 (mov rbp #x2)"
" 22d: 41ff64240d (jmp (mem64+ r12 #xd))"
" 232: 7302000000000000 (data)"
" 23a: 8f01000000000000 (data)"
" 242: 4983ed18 (sub r13 #x18) ; <="
" 246: 4989ef (mov r15 rbp)"
" 249: e9fafdffff (jmp (+ rip #x-206)) ; => 48"
" 24e: e8bdc4dcf5 (call (+ rip #x-a233b43)) ; #<code dooverflow> ; <="
" 253: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 25a: e9c8fdffff (jmp (+ rip #x-238)) ; => 27"
" 25f: e9bccddcf5 (jmp (+ rip #x-a233244)) ; #<code doargerr> ; <="
" 264: 0f1f8000000000 (data)"
" 26b: e950f1dcf5 (jmp (+ rip #x-a230eb0)) ; #<code event-detour> ; <="
" 270: 0f1f8000000000 (data)"
"")))
(#%assembly-code
" 0: 4883fd09 (cmp rbp #x9)"
" 4: 0f85bb010000 (jnz (+ rip #x1bb)) ; => 1c5"
" a: 498b5518 (mov rdx (mem64+ r13 #x18))"
" e: 498b7520 (mov rsi (mem64+ r13 #x20))"
" 12: 498b4d30 (mov rcx (mem64+ r13 #x30))"
" 16: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 1a: 0f8694010000 (jbe (+ rip #x194)) ; => 1b4"
" 20: 49836e6801 (sub (mem64+ r14 #x68) #x1) ; <="
" 25: 0f8435010000 (jz (+ rip #x135)) ; => 160"
" 2b: 49c7c008000000 (mov r8 #x8) ; <="
" 32: 48c7c706000000 (mov rdi #x6)"
" 39: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" 3d: 49895518 (mov (mem64+ r13 #x18) rdx)"
" 41: 49897520 (mov (mem64+ r13 #x20) rsi)"
" 45: 49894d30 (mov (mem64+ r13 #x30) rcx)"
" 49: 4983c538 (add r13 #x38)"
" 4d: 49bc0b0bf60a01000000 (mov r12 #x10af60b0b) ; 'make-vector"
" 57: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 5c: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 83"
" 63: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 67: 48c7c502000000 (mov rbp #x2)"
" 6e: 41ff64240d (jmp (mem64+ r12 #xd))"
" 73: b400000000000000 (data)"
" 7b: 9f1e000000000000 (data)"
" 83: 4983ed38 (sub r13 #x38) ; <="
" 87: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" 8b: 498b5518 (mov rdx (mem64+ r13 #x18))"
" 8f: 498b7520 (mov rsi (mem64+ r13 #x20))"
" 93: 498b4d30 (mov rcx (mem64+ r13 #x30))"
" 97: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" 9b: 4983c130 (add r9 #x30)"
" 9f: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" a3: 0f82a5000000 (jb (+ rip #xa5)) ; => 14e"
" a9: 4c89e7 (mov rdi r12) ; <="
" ac: 49b800c8201501000000 (mov r8 #x11520c800) ; #<code [>"
" b6: 4c894703 (mov (mem64+ rdi #x3) r8)"
" ba: 48894f0b (mov (mem64+ rdi #xb) rcx)"
" be: 48896f13 (mov (mem64+ rdi #x13) rbp)"
" c2: 4889771b (mov (mem64+ rdi #x1b) rsi)"
" c6: 48895723 (mov (mem64+ rdi #x23) rdx)"
" ca: 498b570b (mov rdx (mem64+ r15 #xb))"
" ce: 4889572b (mov (mem64+ rdi #x2b) rdx)"
" d2: 4989c8 (mov r8 rcx)"
" d5: 48c7c606000000 (mov rsi #x6)"
" dc: 49896d10 (mov (mem64+ r13 #x10) rbp)"
" e0: 4983c530 (add r13 #x30)"
" e4: 49bccbd15e0c01000000 (mov r12 #x10c5ed1cb) ; 'variable-set!/define"
" ee: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" f3: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 11a"
" fa: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" fe: 48c7c503000000 (mov rbp #x3)"
" 105: 41ff64240d (jmp (mem64+ r12 #xd))"
" 10a: 4b01000000000000 (data)"
" 112: 1909000000000000 (data)"
" 11a: 4983ed30 (sub r13 #x30) ; <="
" 11e: 498b6d10 (mov rbp (mem64+ r13 #x10))"
" 122: 4d8b4528 (mov r8 (mem64+ r13 #x28))"
" 126: 4889ef (mov rdi rbp)"
" 129: 48befb23710b01000000 (mov rsi #x10b7123fb) ; 'constant"
" 133: 49bccbd15e0c01000000 (mov r12 #x10c5ed1cb) ; 'variable-set!/define"
" 13d: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 142: 48c7c503000000 (mov rbp #x3)"
" 149: 41ff64240d (jmp (mem64+ r12 #xd))"
" 14e: 49e8ccc3dcf5 (call (+ rip #x-a233c34)) ; #<code get-room> ; <="
" 154: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 15b: e949ffffff (jmp (+ rip #x-b7)) ; => a9"
" 160: 4d897d08 (mov (mem64+ r13 #x8) r15) ; <="
" 164: 49895518 (mov (mem64+ r13 #x18) rdx)"
" 168: 49897520 (mov (mem64+ r13 #x20) rsi)"
" 16c: 49894d30 (mov (mem64+ r13 #x30) rcx)"
" 170: 4983c538 (add r13 #x38)"
" 174: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 19b"
" 17b: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 17f: e90cf3def5 (jmp (+ rip #x-a210cf4)) ; #<code event>"
" 184: 0f1f8000000000cc (data)"
" 18c: 010000000000009d (data)"
" 194: 1e000000000000 (data)"
" 19b: 4983ed38 (sub r13 #x38) ; <="
" 19f: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" 1a3: 498b5518 (mov rdx (mem64+ r13 #x18))"
" 1a7: 498b7520 (mov rsi (mem64+ r13 #x20))"
" 1ab: 498b4d30 (mov rcx (mem64+ r13 #x30))"
" 1af: e977feffff (jmp (+ rip #x-189)) ; => 2b"
" 1b4: e877c7dcf5 (call (+ rip #x-a233889)) ; #<code dooverflow> ; <="
" 1b9: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 1c0: e95bfeffff (jmp (+ rip #x-1a5)) ; => 20"
" 1c5: e976d0dcf5 (jmp (+ rip #x-a232f8a)) ; #<code doargerr> ; <="
" 1ca: 0f1f8000000000 (data)"
""))
#(#(#:scope+kind
module
#:scope+kind
module
#:representative-scope
module
-1
#:representative-scope
module
0
#:representative-scope
module
0
#:hasheq
#:scope+kind
macro
#:scope+kind
macro)
#(#:seteq
2
#:ref
0
#:ref
1
#:multi-scope
s
#:hasheqv
2
-1
#:ref
2
0
#:ref
3
#:multi-scope
main
#:hasheqv
1
0
#:ref
4
#:shifted-multi-scope
0
#:ref
10
#:seteq
2
#:shifted-multi-scope
0
#:ref
9
#:ref
11
#hasheq()
#:seteq
1
#:ref
11
#:cons
#:cons
#:mpi
11
#:mpi
12
()
#:vector
3
#:ref
13
#:ref
13
()
#:vector
3
#:ref
8
#:ref
12
#:list
3
#:cons
#:mpi
13
#:mpi
10
#:cons
#:mpi
12
#:mpi
6
#:cons
#:mpi
11
#:mpi
12
#:seteq
4
#:ref
0
#:ref
3
#:ref
1
#:ref
4
#:seteq
2
#:ref
0
#:ref
3
#:seteq
2
#:ref
0
#:ref
2)
#(#f
#f
#:representative-scope-fill!
#:table-with-bulk-bindings
#:ref
13
#:list
2
#:bulk-binding-at
#:ref
20
#:bulk-binding
#f
#:ref
13
#:mpi
14
1
0
#:bulk-binding-registry
#:bulk-binding-at
#:ref
20
#:bulk-binding
#f
#:ref
13
#:mpi
15
1
0
#:bulk-binding-registry
#:ref
9
#:representative-scope-fill!
#:table-with-bulk-bindings
#:hasheq
2
example-path
#:hash
1
#:ref
19
#:simple-module-binding
#:mpi
12
example-path
0
#:mpi
12
text
#:hash
1
#:ref
19
#:simple-module-binding
#:mpi
12
text
0
#:mpi
12
#:list
7
#:bulk-binding-at
#:ref
19
#:bulk-binding
#f
#:ref
13
#:mpi
3
0
0
#:bulk-binding-registry
#:bulk-binding-at
#:ref
19
#:bulk-binding
#f
#:ref
13
#:mpi
4
0
0
#:bulk-binding-registry
#:bulk-binding-at
#:ref
19
#:bulk-binding
#f
#:ref
13
#:mpi
16
0
0
#:bulk-binding-registry
#:bulk-binding-at
#:ref
19
#:bulk-binding
#f
#:ref
13
#:mpi
14
0
0
#:bulk-binding-registry
#:bulk-binding-at
#:ref
19
#:bulk-binding
#f
#:ref
13
#:mpi
17
0
0
#:bulk-binding-registry
#:bulk-binding-at
#:ref
19
#:bulk-binding
#f
#:ref
13
#:mpi
1
0
0
#:bulk-binding-registry
#:bulk-binding-at
#:ref
19
#:bulk-binding
#f
#:ref
13
#:mpi
15
0
0
#:bulk-binding-registry
#:ref
9
#:representative-scope-fill!
#:hasheq
3
ch
#:hash
1
#:ref
18
#:simple-module-binding
#:mpi
10
ch
0
#:mpi
10
ready-or-exn
#:hash
1
#:ref
18
#:simple-module-binding
#:mpi
10
ready-or-exn
0
#:mpi
10
stop
#:hash
1
#:ref
18
#:simple-module-binding
#:mpi
10
stop
0
#:mpi
10
#:ref
10
#:set-hash!
5
ch
#:syntax
ch
17
#(struct:srcloc
#1=#<path:/Users/bogdan/tmp/compiled/ta6osx/s.rkt>
16
10
335
2)
lifted/1.1
#:syntax
lifted/1
#:vector
3
#:seteq
1
#:ref
7
#:ref
14
()
#f
lifted/2.1
#:syntax
lifted/2
#:vector
3
#:seteq
1
#:ref
6
#:ref
14
()
#f
ready-or-exn
#:syntax
ready-or-exn
17
#(struct:srcloc #1# 27 10 612 12)
stop
#:syntax
stop
17
#(struct:srcloc #1# 17 10 370 4)
#:scope-fill!
#:hasheq
1
lifted/2
#:hash
1
#:seteq
2
#:ref
4
#:ref
6
#:module-binding
#:mpi
10
lifted/2.1
0
#:mpi
10
0
lifted/2
0
#f
#f
()
#:scope-fill!
#:hasheq
1
lifted/1
#:hash
1
#:seteq
2
#:ref
4
#:ref
7
#:module-binding
#:mpi
10
lifted/1.1
0
#:mpi
10
0
lifted/1
0
#f
#f
())
#(#:vector
1
#:syntax
#:vector
7
#:syntax
#f
#:vector
3
#:ref
8
#:ref
12
()
#f
#:syntax
#f
#:vector
3
#:ref
13
#:ref
14
()
#f
#:syntax
#f
#:vector
3
#:ref
8
#:ref
12
#:list
3
#:cons
#:mpi
13
#:mpi
10
#:cons
#:mpi
12
#:mpi
6
#:cons
#:mpi
11
#:mpi
12
#(struct:srcloc #1# 15 0 311 512)
#:syntax
#f
16
#f
#:datum->syntax
#:hasheqv
1
0
#:ref
5
16
#f
#:syntax
root-frame
16
#f
#:syntax
14
16
#f
16
#f))
.
#2=(....))))
(begin-for-all
(define #0#
....
((define ||
(lambda (a0)
(#%assembly-code
" 0: 49836e6801 (sub (mem64+ r14 #x68) #x1)"
" 5: 0f8460020000 (jz (+ rip #x260)) ; => 26b"
" b: 4883fd01 (cmp rbp #x1)"
" f: 0f854a020000 (jnz (+ rip #x24a)) ; => 25f"
" 15: 4d894510 (mov (mem64+ r13 #x10) r8)"
" 19: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" 1d: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 21: 0f8627020000 (jbe (+ rip #x227)) ; => 24e"
" 27: 48b9f0c65e0c01000000 (mov rcx #x10c5ec6f0) ; '1/force-unfasl ; <="
" 31: 4c8b01 (mov r8 (mem64+ rcx))"
" 34: 4c89c1 (mov rcx r8)"
" 37: 4883e107 (and rcx #x7)"
" 3b: 4883f905 (cmp rcx #x5)"
" 3f: 0f85bc010000 (jnz (+ rip #x1bc)) ; => 201"
" 45: 4d89c7 (mov r15 r8)"
" 48: 498b4d08 (mov rcx (mem64+ r13 #x8)) ; <="
" 4c: 4c8b412b (mov r8 (mem64+ rcx #x2b))"
" 50: 4983c518 (add r13 #x18)"
" 54: 488d0d1f000000 (lea rcx (mem+ rip #x1f)) ; => 7a"
" 5b: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 5f: 48c7c501000000 (mov rbp #x1)"
" 66: 41ff6703 (jmp (mem64+ r15 #x3))"
" 6a: ab00000000000000 (data)"
" 72: 8f01000000000000 (data)"
" 7a: 4983ed18 (sub r13 #x18) ; <="
" 7e: 498b4d08 (mov rcx (mem64+ r13 #x8))"
" 82: 488b4923 (mov rcx (mem64+ rcx #x23))"
" 86: 4c8b4109 (mov r8 (mem64+ rcx #x9))"
" 8a: 498b4d08 (mov rcx (mem64+ r13 #x8))"
" 8e: 488b491b (mov rcx (mem64+ rcx #x1b))"
" 92: 488b4909 (mov rcx (mem64+ rcx #x9))"
" 96: 488b5509 (mov rdx (mem64+ rbp #x9))"
" 9a: 488b7511 (mov rsi (mem64+ rbp #x11))"
" 9e: 4c8b5d19 (mov r11 (mem64+ rbp #x19))"
" a2: 4c89c7 (mov rdi r8)"
" a5: 4883e707 (and rdi #x7)"
" a9: 4883ff05 (cmp rdi #x5)"
" ad: 0f85d9000000 (jnz (+ rip #xd9)) ; => 18c"
" b3: 4d89c7 (mov r15 r8)"
" b6: 49c7454020000000 (mov (mem64+ r13 #x40) #x20) ; <="
" be: 49895548 (mov (mem64+ r13 #x48) rdx)"
" c2: 49c7455040000000 (mov (mem64+ r13 #x50) #x40)"
" ca: 49897558 (mov (mem64+ r13 #x58) rsi)"
" ce: 4d895d60 (mov (mem64+ r13 #x60) r11)"
" d2: 488b5521 (mov rdx (mem64+ rbp #x21))"
" d6: 49895568 (mov (mem64+ r13 #x68) rdx)"
" da: 4989c8 (mov r8 rcx)"
" dd: 48c7c706000000 (mov rdi #x6)"
" e4: 498b7510 (mov rsi (mem64+ r13 #x10))"
" e8: 4983c538 (add r13 #x38)"
" ec: 488d0d1f000000 (lea rcx (mem+ rip #x1f)) ; => 112"
" f3: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" f7: 48c7c509000000 (mov rbp #x9)"
" fe: 41ff6703 (jmp (mem64+ r15 #x3))"
" 102: 4301000000000000 (data)"
" 10a: 9f00000000000000 (data)"
" 112: 4983ed38 (sub r13 #x38) ; <="
" 116: 4889ee (mov rsi rbp)"
" 119: 498b4d08 (mov rcx (mem64+ r13 #x8))"
" 11d: 4c8b4113 (mov r8 (mem64+ rcx #x13))"
" 121: 4831ff (xor rdi rdi)"
" 124: 4983c510 (add r13 #x10)"
" 128: 49bc6baf5d0c01000000 (mov r12 #x10c5daf6b) ; 'vector-copy!"
" 132: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 137: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 15e"
" 13e: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 142: 48c7c503000000 (mov rbp #x3)"
" 149: 41ff64240d (jmp (mem64+ r12 #xd))"
" 14e: 8f01000000000000 (data)"
" 156: 8900000000000000 (data)"
" 15e: 4983ed10 (sub r13 #x10) ; <="
" 162: 498b4d08 (mov rcx (mem64+ r13 #x8))"
" 166: 4c8b410b (mov r8 (mem64+ rcx #xb))"
" 16a: 48c7c706000000 (mov rdi #x6)"
" 171: 49bc9bd15e0c01000000 (mov r12 #x10c5ed19b) ; 'variable-set!"
" 17b: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 180: 48c7c502000000 (mov rbp #x2)"
" 187: 41ff64240d (jmp (mem64+ r12 #xd))"
" 18c: 48c7c748000000 (mov rdi #x48) ; <="
" 193: 49896d18 (mov (mem64+ r13 #x18) rbp)"
" 197: 49894d20 (mov (mem64+ r13 #x20) rcx)"
" 19b: 49895528 (mov (mem64+ r13 #x28) rdx)"
" 19f: 49897530 (mov (mem64+ r13 #x30) rsi)"
" 1a3: 4d895d38 (mov (mem64+ r13 #x38) r11)"
" 1a7: 4983c540 (add r13 #x40)"
" 1ab: 49bccbda5c0c01000000 (mov r12 #x10c5cdacb) ; 'slow-extract-procedure"
" 1b5: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 1ba: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 1e1"
" 1c1: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 1c5: 48c7c502000000 (mov rbp #x2)"
" 1cc: 41ff64240d (jmp (mem64+ r12 #xd))"
" 1d1: 1202000000000000 (data)"
" 1d9: a33f000000000000 (data)"
" 1e1: 4983ed40 (sub r13 #x40) ; <="
" 1e5: 4989ef (mov r15 rbp)"
" 1e8: 498b6d18 (mov rbp (mem64+ r13 #x18))"
" 1ec: 498b4d20 (mov rcx (mem64+ r13 #x20))"
" 1f0: 498b5528 (mov rdx (mem64+ r13 #x28))"
" 1f4: 498b7530 (mov rsi (mem64+ r13 #x30))"
" 1f8: 4d8b5d38 (mov r11 (mem64+ r13 #x38))"
" 1fc: e9b5feffff (jmp (+ rip #x-14b)) ; => b6"
" 201: 48c7c708000000 (mov rdi #x8) ; <="
" 208: 4983c518 (add r13 #x18)"
" 20c: 49bccbda5c0c01000000 (mov r12 #x10c5cdacb) ; 'slow-extract-procedure"
" 216: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 21b: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 242"
" 222: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 226: 48c7c502000000 (mov rbp #x2)"
" 22d: 41ff64240d (jmp (mem64+ r12 #xd))"
" 232: 7302000000000000 (data)"
" 23a: 8f01000000000000 (data)"
" 242: 4983ed18 (sub r13 #x18) ; <="
" 246: 4989ef (mov r15 rbp)"
" 249: e9fafdffff (jmp (+ rip #x-206)) ; => 48"
" 24e: e8ddb8dcf5 (call (+ rip #x-a234723)) ; #<code dooverflow> ; <="
" 253: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 25a: e9c8fdffff (jmp (+ rip #x-238)) ; => 27"
" 25f: e9dcc1dcf5 (jmp (+ rip #x-a233e24)) ; #<code doargerr> ; <="
" 264: 0f1f8000000000 (data)"
" 26b: e970e5dcf5 (jmp (+ rip #x-a231a90)) ; #<code event-detour> ; <="
" 270: 0f1f8000000000 (data)"
"")))
(#%assembly-code
" 0: 4883fd09 (cmp rbp #x9)"
" 4: 0f85bb010000 (jnz (+ rip #x1bb)) ; => 1c5"
" a: 498b5518 (mov rdx (mem64+ r13 #x18))"
" e: 498b7520 (mov rsi (mem64+ r13 #x20))"
" 12: 498b4d30 (mov rcx (mem64+ r13 #x30))"
" 16: 4d396e48 (cmp (mem64+ r14 #x48) r13)"
" 1a: 0f8694010000 (jbe (+ rip #x194)) ; => 1b4"
" 20: 49836e6801 (sub (mem64+ r14 #x68) #x1) ; <="
" 25: 0f8435010000 (jz (+ rip #x135)) ; => 160"
" 2b: 49c7c010000000 (mov r8 #x10) ; <="
" 32: 48c7c706000000 (mov rdi #x6)"
" 39: 4d897d08 (mov (mem64+ r13 #x8) r15)"
" 3d: 49895518 (mov (mem64+ r13 #x18) rdx)"
" 41: 49897520 (mov (mem64+ r13 #x20) rsi)"
" 45: 49894d30 (mov (mem64+ r13 #x30) rcx)"
" 49: 4983c538 (add r13 #x38)"
" 4d: 49bc0b0bf60a01000000 (mov r12 #x10af60b0b) ; 'make-vector"
" 57: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 5c: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 83"
" 63: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 67: 48c7c502000000 (mov rbp #x2)"
" 6e: 41ff64240d (jmp (mem64+ r12 #xd))"
" 73: b400000000000000 (data)"
" 7b: 9f1e000000000000 (data)"
" 83: 4983ed38 (sub r13 #x38) ; <="
" 87: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" 8b: 498b5518 (mov rdx (mem64+ r13 #x18))"
" 8f: 498b7520 (mov rsi (mem64+ r13 #x20))"
" 93: 498b4d30 (mov rcx (mem64+ r13 #x30))"
" 97: 4d8d61fd (lea r12 (mem+ r9 #x-3))"
" 9b: 4983c130 (add r9 #x30)"
" 9f: 4d394e58 (cmp (mem64+ r14 #x58) r9)"
" a3: 0f82a5000000 (jb (+ rip #xa5)) ; => 14e"
" a9: 4c89e7 (mov rdi r12) ; <="
" ac: 49b8e0d3201501000000 (mov r8 #x11520d3e0) ; #<code [>"
" b6: 4c894703 (mov (mem64+ rdi #x3) r8)"
" ba: 48894f0b (mov (mem64+ rdi #xb) rcx)"
" be: 48896f13 (mov (mem64+ rdi #x13) rbp)"
" c2: 4889771b (mov (mem64+ rdi #x1b) rsi)"
" c6: 48895723 (mov (mem64+ rdi #x23) rdx)"
" ca: 498b570b (mov rdx (mem64+ r15 #xb))"
" ce: 4889572b (mov (mem64+ rdi #x2b) rdx)"
" d2: 4989c8 (mov r8 rcx)"
" d5: 48c7c606000000 (mov rsi #x6)"
" dc: 49896d10 (mov (mem64+ r13 #x10) rbp)"
" e0: 4983c530 (add r13 #x30)"
" e4: 49bccbd15e0c01000000 (mov r12 #x10c5ed1cb) ; 'variable-set!/define"
" ee: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" f3: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 11a"
" fa: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" fe: 48c7c503000000 (mov rbp #x3)"
" 105: 41ff64240d (jmp (mem64+ r12 #xd))"
" 10a: 4b01000000000000 (data)"
" 112: 1909000000000000 (data)"
" 11a: 4983ed30 (sub r13 #x30) ; <="
" 11e: 498b6d10 (mov rbp (mem64+ r13 #x10))"
" 122: 4d8b4528 (mov r8 (mem64+ r13 #x28))"
" 126: 4889ef (mov rdi rbp)"
" 129: 48befb23710b01000000 (mov rsi #x10b7123fb) ; 'constant"
" 133: 49bccbd15e0c01000000 (mov r12 #x10c5ed1cb) ; 'variable-set!/define"
" 13d: 4d8b7c2405 (mov r15 (mem64+ r12 #x5))"
" 142: 48c7c503000000 (mov rbp #x3)"
" 149: 41ff64240d (jmp (mem64+ r12 #xd))"
" 14e: 49e8ecb7dcf5 (call (+ rip #x-a234814)) ; #<code get-room> ; <="
" 154: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 15b: e949ffffff (jmp (+ rip #x-b7)) ; => a9"
" 160: 4d897d08 (mov (mem64+ r13 #x8) r15) ; <="
" 164: 49895518 (mov (mem64+ r13 #x18) rdx)"
" 168: 49897520 (mov (mem64+ r13 #x20) rsi)"
" 16c: 49894d30 (mov (mem64+ r13 #x30) rcx)"
" 170: 4983c538 (add r13 #x38)"
" 174: 488d0d20000000 (lea rcx (mem+ rip #x20)) ; => 19b"
" 17b: 49894d00 (mov (mem64+ r13 #x0) rcx)"
" 17f: e92ce7def5 (jmp (+ rip #x-a2118d4)) ; #<code event>"
" 184: 0f1f8000000000cc (data)"
" 18c: 010000000000009d (data)"
" 194: 1e000000000000 (data)"
" 19b: 4983ed38 (sub r13 #x38) ; <="
" 19f: 4d8b7d08 (mov r15 (mem64+ r13 #x8))"
" 1a3: 498b5518 (mov rdx (mem64+ r13 #x18))"
" 1a7: 498b7520 (mov rsi (mem64+ r13 #x20))"
" 1ab: 498b4d30 (mov rcx (mem64+ r13 #x30))"
" 1af: e977feffff (jmp (+ rip #x-189)) ; => 2b"
" 1b4: e897bbdcf5 (call (+ rip #x-a234469)) ; #<code dooverflow> ; <="
" 1b9: 0f1f8000000000 (nop (mem32+ rax #x0))"
" 1c0: e95bfeffff (jmp (+ rip #x-1a5)) ; => 20"
" 1c5: e996c4dcf5 (jmp (+ rip #x-a233b6a)) ; #<code doargerr> ; <="
" 1ca: 0f1f8000000000 (data)"
""))
#(#(#:scope+kind
module
#:representative-scope
module
-1
#:representative-scope
module
0
#:hasheq)
#(#:seteq
1
#:ref
0
#:multi-scope
s
#:hasheqv
2
-1
#:ref
1
0
#:ref
2
#:seteq
1
#:shifted-multi-scope
0
#:ref
5
#:vector
3
#:ref
4
#:ref
6
#:cons
#:cons
#:mpi
10
#:mpi
4
()
#hasheq()
#:vector
3
#:ref
8
#:ref
8
()
#:seteq
2
#:ref
0
#:ref
2
#:seteq
2
#:ref
0
#:ref
1)
#(#f
#:representative-scope-fill!
#:table-with-bulk-bindings
#:ref
8
#:list
2
#:bulk-binding-at
#:ref
11
#:bulk-binding
#f
#:ref
8
#:mpi
1
1
0
#:bulk-binding-registry
#:bulk-binding-at
#:ref
11
#:bulk-binding
#f
#:ref
8
#:mpi
5
1
0
#:bulk-binding-registry
#:ref
5
#:representative-scope-fill!
#:table-with-bulk-bindings
#:hasheq
2
example-path
#:hash
1
#:ref
10
#:simple-module-binding
#:mpi
4
example-path
0
#:mpi
4
text
#:hash
1
#:ref
10
#:simple-module-binding
#:mpi
4
text
0
#:mpi
4
#:list
7
#:bulk-binding-at
#:ref
10
#:bulk-binding
#f
#:ref
8
#:mpi
9
0
0
#:bulk-binding-registry
#:bulk-binding-at
#:ref
10
#:bulk-binding
#f
#:ref
8
#:mpi
8
0
0
#:bulk-binding-registry
#:bulk-binding-at
#:ref
10
#:bulk-binding
#f
#:ref
8
#:mpi
7
0
0
#:bulk-binding-registry
#:bulk-binding-at
#:ref
10
#:bulk-binding
#f
#:ref
8
#:mpi
1
0
0
#:bulk-binding-registry
#:bulk-binding-at
#:ref
10
#:bulk-binding
#f
#:ref
8
#:mpi
2
0
0
#:bulk-binding-registry
#:bulk-binding-at
#:ref
10
#:bulk-binding
#f
#:ref
8
#:mpi
6
0
0
#:bulk-binding-registry
#:bulk-binding-at
#:ref
10
#:bulk-binding
#f
#:ref
8
#:mpi
5
0
0
#:bulk-binding-registry
#:ref
5
#:set-hash!
2
example-path
#:syntax
example-path
7
#(struct:srcloc
#3=#<path:/Users/bogdan/tmp/compiled/ta6osx/s.rkt>
10
21
216
12)
text
#:syntax
text
7
#(struct:srcloc #3# 12 8 253 4))
#(#:vector
2
#:syntax
context
7
#(struct:srcloc #3# 10 0 195 48)
#:syntax
#:vector
7
#:syntax
#f
#:vector
3
#:ref
4
#:ref
6
()
#f
#:syntax
#f
#:vector
3
#:ref
8
#:ref
6
()
#f
#:syntax
racket/base
#:vector
3
#:ref
4
#:ref
6
#:cons
#:cons
#:mpi
10
#:mpi
4
()
#(struct:srcloc #3# 1 6 7 11)
#:syntax
#f
9
#f
#:datum->syntax
#:hasheqv
1
0
#:ref
3
9
#f
#:syntax
root-frame
9
#f
#:syntax
8
9
#f
9
#f))
.
#2#)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment