l
a psp:A0
 push bx
 mov al, byte [bx +7F]
 .
r vc := aao
a
 mov bx, 7F7F
 .
r ve := aao
a
 cs xlatb
 pop bx
 .
r va := aao - A0
a
 mov byte [bx + 7F], al
 .
r aao .
r vf := aao - 1 - ve
r vd := ve - A0
r vb := vc - A0
r v0 := ds + 10 + (bxcx >> 4) - (bxcx >= 10000 ?? 1000 :: bxcx >> 4)
r v1 := bxcx >= 10000 ?? 10000 :: bxcx
rvv
s v0:0 l v1 range psp:ve l vf
r src .
if (src != 1) then goto :error
r v10 := byte [srs:sro - vd + vb - 1]
r v11 := word [srs:sro - vd + vb + 1]
a srs:sro - vd
 push bx
 mov bl, byte [bx + (v10)]
 mov al, byte [cs:(v11) + bx]
 pop bx
 .
rvv
if ( (aao - (sro - vd)) != va ) then goto :error
if (v4) then g
goto :eof

:error
; Error!
goto :eof