In Pascal lassen sich Assembler-Code Stücke einfügen. Bsp. asm
mov ax,$2
mov dx,$278
out dx,ax//gibt 2h aus
jmp ein_label
ein_label
//usw…
end
mit den Befehlen in und out lassen sich direkt Werte an die Port Adressen Ausgeben/Einlesen.
Dazu muß man erst festellen welche Adressen vorliegen. z.B. Com1=$278. (erste Schnittstelle). Genaueres kann ich dir sagen wenn ich weiß in wieweit dir dieser Assembler-Code zusagt.