Отправлено net 13 марта 2002 г. 16:26 В ответ на: это очень сложная программа - особенно для доса - а еще можно под бЭйсиком - ну это вооще верх мастерства;-) отправлено net 13 марта 2002 г. 16:19

.MODEL LARGE, FORTRAN
inprt PROTO FORTRAN, port:FAR PTR SWORD
.CODE
inprt PROC FORTRAN, port:FAR PTR SWORD
;
les bx, port ;§ Јаг§Є  ᥣ¬Ґ­в­®Ј® ॣЁбва  ES port
mov dx, ES:[bx]
in ax,dx
ret
inprt ENDP
END
.MODEL LARGE, FORTRAN
outprt PROTO FORTRAN, port:FAR PTR SWORD, data:FAR PTR SWORD
.CODE
outprt PROC FORTRAN, port:FAR PTR SWORD, data:FAR PTR SWORD
;
les bx, port ;§ Јаг§Є  ᥣ¬Ґ­в­®Ј® ॣЁбва  ES port
mov dx, ES:[bx]
les bx,data
mov ax,ES:[bx]
out dx,ax
ret
outprt ENDP
END

INTERFACE TO INTEGER*2 FUNCTION inprt(port)
INTEGER*2 port
END

INTERFACE TO INTEGER*2 FUNCTION outprt(port,data)
INTEGER*2 port
INTEGER*1 data
END

• !!!!!!! Я Т-А-Щ-У-С-Ь !!!!!!:)))))) ЧУТЬ СЛЕЗУ НЕ ПУСТИЛ... — BLACKEAGLE   (14.03.2002 01:02, пустое)
  • как я тащусь ;-) - это типа круто было ;-)))) сейчас такое только в сурьезных музеях найти можно ;-)))) — net   (14.03.2002 14:52, пустое)
• Ответ:Спасибо - а какой компилятор ???(+) — oll   (13.03.2002 16:36, 101 байт)
  • напиши кратко - типа вводим адрес порта, если данные в нем изменились то выводим- только тогда ? в каком коде - бин, хекс, десятичный;-) аскии. восьмеричный — net   (13.03.2002 16:46, пустое)
    • Ответ: (+) — oll   (13.03.2002 17:03, 587 байт)