Turbo Pascal

(FLIRT libraries thanks to Nick Pisanov)

Turbo Pascal Program

FLIRT-Enhanced Disassembly

Note: this result is totally automatic, including the comments.