Записать данные в порт принтера
Записать данные в порт принтера
Записать данные в порт принтера procedure out32(portadresse: word; wert: byte); var val: byte; begin val := byte(wert); asm push dx mov dx,portadresse mov al,val out dx,al pop dx end; function inp32(portadresse: word): byte; var val: byte; begin asm push dx mov dx,portadresse in al,dx mov val,al pop dx end; inp32 := byte(val) and $00ff; end; // example/beispiel: out32($378, 0) {= dataport all 8 bit low} out32($378, (inp32($378) or 1); {dataport bit 1 high} out32($378, (inp32($378) and 254); {datap. bit 1, low} autor: ramon schenkel Источник: http://www.swissdelphicenter.ch
