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

:error
; Error!
goto :eof