(require '2hu-suss-magic-assembler)
(subproc (frobnicate :x86@16-bit :cdecl :align 8 :segment '(para public "code") :assume '(cs@cseg ds@dseg))
(mov ax dseg)
(mov ds ax)
(mov es ax)
(mov bx 32)
(add bx bx)
(add bx bx)
(xor cx cx)
(mov ax (wordptr bx))
(mov (wordptr bx) cx)
(mov ah #x4C)
(int 21h))