----boundary-LibPST-iamunique-215906961_-_-
Content-type: text/plain
Hi René,
Thanks a lot. Works fine!
And I learned something too:)
Cheers, Philipp
-----Original Message-----
From: René Dorta [mailto:rene{([at]})nowhere.xy
Sent: Wednesday, 8 September 2004 5:02 p.m.
To: Hof, Philipp
Subject: Re: Direct i/o with blackbox?
Here is a simple version I was using long time ago:
MODULE Puertos; (* Do NOT name "Ports" this module! *)
IMPORT SYSTEM;
CONST (** to be changed according the configuration of your computer *)
COM1* = 03F8H;
COM3* = 03E8H;
PRN* = 0378H;
PROCEDURE [code] In* (port: SHORTINT): BYTE (* read a BYTE from "port" *)
08BH, 0D0H (* MOV DX, AX *),
0ECH (* IN AL, DX *);
PROCEDURE [code] Out* (port: SHORTINT; c: BYTE) (* write BYTE "c" into
"port" *)
08BH, 0D0H (* MOV DX, AX *),
058H (* POP AX *),
0EEH (* OUT AL, DX *);
END Puertos.
Greetings, René Dorta.
Hof, Philipp wrote:
>Hello all,
>
>Has anyone implemented a module that allows direct i/o?
>
>Something equivalent to the
>SYSTEM.PORTIN
>SYSTEM.PORTOUT
>functions in Oberon System 3
>
>or equivalent to the following Pascal code snippets:
>
>procedure outportb(portid : integer; value : BYTE);
>Begin
> asm
> mov edx,portid
> mov al,value
> out dx,al
> end;
>end;
>
>function inportb(portid : integer) : byte;
>Var value : byte;
>Begin
> asm
> mov edx,portid
> in al,dx
> mov value,al
> end;
> inportb := value;
>end;
>
>
>Thanks, Philipp
>--------------------------------------------
>
>To unsubscribe from this mailing list, send a message containing the word
"unsubscribe" to:
> blackbox-request{([at]})nowhere.xy
>
>To get a list of valid e-mail commands and instructions on their usage,
send a message containing the word "help" to the above address.
>
>Send any problem reports or questions related to this email list to the
list owner at
> owner-blackbox{([at]})nowhere.xy
>
>Current posting policy:
>
>a) To post you should use the same address by which you are subscribed to
the mailing list. That way, the list server will recognize you as subscriber
and forward your posting immediately, without creating any overhead.
>
>b) If, for some reason, you cannot post from the address, by which you are
subscribed, your message will be moderated to avoid spam. Please understand
that moderation will often cause some delay, in particular over weekends or
holydays.
>
>
>
>
--------------------------------------------
To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
blackbox-request{([at]})nowhere.xy
To get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address.
Send any problem reports or questions related to this email list to the list owner at
owner-blackbox{([at]})nowhere.xy
Current posting policy:
a) To post you should use the same address by which you are subscribed to the mailing list. That way, the list server will recognize you as subscriber and forward your posting immediately, without creating any overhead.
b) If, for some reason, you cannot post from the address, by which you are subscribed, your message will be moderated to avoid spam. Please understand that moderation will often cause some delay, in particular over weekends or holydays.
----boundary-LibPST-iamunique-215906961_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzc1xmY2hhcnNldDAgQXJpYWw7fQ0Ke1xmMVxmbW9kZXJuIENvdXJpZXIgTmV3O30NCntcZjJc
Zm5pbFxmY2hhcnNldDIgU3ltYm9sO30NCntcZjNcZm1vZGVyblxmY2hhcnNldDAgQ291cmllciBO
ZXc7fX0NCntcY29sb3J0YmxccmVkMFxncmVlbjBcYmx1ZTA7XHJlZDBcZ3JlZW4wXGJsdWUyNTU7
fQ0KXHVjMVxwYXJkXHBsYWluXGRlZnRhYjM2MCBcZjBcZnMyMCBIaSBSZW5cJ2U5LFxwYXINClxw
YXINClRoYW5rcyBhIGxvdC4gV29ya3MgZmluZSFccGFyDQpBbmQgSSBsZWFybmVkIHNvbWV0aGlu
ZyB0b286KVxwYXINClxwYXINCkNoZWVycywgUGhpbGlwcFxwYXINClxwYXINCi0tLS0tT3JpZ2lu
YWwgTWVzc2FnZS0tLS0tXHBhcg0KRnJvbTogUmVuXCdlOSBEb3J0YSBbbWFpbHRvOnJlbmVAdWMu
ZWR1LnZlXSBccGFyDQpTZW50OiBXZWRuZXNkYXksIDggU2VwdGVtYmVyIDIwMDQgNTowMiBwLm0u
XHBhcg0KVG86IEhvZiwgUGhpbGlwcFxwYXINClN1YmplY3Q6IFJlOiBEaXJlY3QgaS9vIHdpdGgg
YmxhY2tib3g/XHBhcg0KXHBhcg0KSGVyZSBpcyBhIHNpbXBsZSB2ZXJzaW9uIEkgd2FzIHVzaW5n
IGxvbmcgdGltZSBhZ286XHBhcg0KXHBhcg0KTU9EVUxFIFB1ZXJ0b3M7ICAgICgqIERvIE5PVCBu
YW1lICJQb3J0cyIgdGhpcyBtb2R1bGUhICopXHBhcg0KSU1QT1JUIFNZU1RFTTtccGFyDQpccGFy
DQpDT05TVCAoKiogdG8gYmUgY2hhbmdlZCBhY2NvcmRpbmcgdGhlIGNvbmZpZ3VyYXRpb24gb2Yg
eW91ciBjb21wdXRlciAqKVxwYXINCiAgICBDT00xKiA9IDAzRjhIO1xwYXINCiAgICBDT00zKiA9
IDAzRThIO1xwYXINCiAgICBQUk4qICAgPSAwMzc4SDtccGFyDQogICBccGFyDQpQUk9DRURVUkUg
W2NvZGVdIEluKiAocG9ydDogU0hPUlRJTlQpOiBCWVRFICAgKCogcmVhZCBhIEJZVEUgZnJvbSAi
cG9ydCIgKilccGFyDQogICAgMDhCSCwgMEQwSCAgICAgICAgICAgICgqIE1PViBEWCwgQVggKiks
XHBhcg0KICAgIDBFQ0ggICAgICAgICAgICAgICAgICAgICAgICAoKiBJTiAgICBBTCwgIERYICop
O1xwYXINCiAgIFxwYXINClBST0NFRFVSRSBbY29kZV0gT3V0KiAocG9ydDogU0hPUlRJTlQ7IGM6
IEJZVEUpICAgKCogd3JpdGUgQllURSAiYyIgaW50byBccGFyDQoicG9ydCIgKilccGFyDQogICAg
MDhCSCwgMEQwSCAgICAgICAgICAgICgqIE1PViBEWCwgQVggICopLFxwYXINCiAgICAwNThIICAg
ICAgICAgICAgICAgICAgICAgICAgKCogUE9QICBBWCAgICAgICAgKiksXHBhcg0KICAgIDBFRUgg
ICAgICAgICAgICAgICAgICAgICAgICAoKiBPVVQgIEFMLCAgRFggKik7XHBhcg0KICAgXHBhcg0K
RU5EIFB1ZXJ0b3MuXHBhcg0KXHBhcg0KR3JlZXRpbmdzLCBSZW5cJ2U5IERvcnRhLlxwYXINClxw
YXINCkhvZiwgUGhpbGlwcCB3cm90ZTpccGFyDQpccGFyDQo+SGVsbG8gYWxsLFxwYXINCj5ccGFy
DQo+SGFzIGFueW9uZSBpbXBsZW1lbnRlZCBhIG1vZHVsZSB0aGF0IGFsbG93cyBkaXJlY3QgaS9v
P1xwYXINCj5ccGFyDQo+U29tZXRoaW5nIGVxdWl2YWxlbnQgdG8gdGhlXHBhcg0KPlNZU1RFTS5Q
T1JUSU5ccGFyDQo+U1lTVEVNLlBPUlRPVVRccGFyDQo+ZnVuY3Rpb25zIGluIE9iZXJvbiBTeXN0
ZW0gM1xwYXINCj5ccGFyDQo+b3IgZXF1aXZhbGVudCB0byB0aGUgZm9sbG93aW5nIFBhc2NhbCBj
b2RlIHNuaXBwZXRzOlxwYXINCj5ccGFyDQo+cHJvY2VkdXJlIG91dHBvcnRiKHBvcnRpZCA6IGlu
dGVnZXI7IHZhbHVlIDogQllURSk7XHBhcg0KPkJlZ2luXHBhcg0KPiAgYXNtXHBhcg0KPiAgICBt
b3YgZWR4LHBvcnRpZFxwYXINCj4gICAgbW92IGFsLHZhbHVlXHBhcg0KPiAgICBvdXQgZHgsYWxc
cGFyDQo+ICBlbmQ7XHBhcg0KPmVuZDtccGFyDQo+XHBhcg0KPmZ1bmN0aW9uIGlucG9ydGIocG9y
dGlkIDogaW50ZWdlcikgOiBieXRlO1xwYXINCj5WYXIgdmFsdWUgOiBieXRlO1xwYXINCj5CZWdp
blxwYXINCj4gIGFzbVxwYXINCj4gICAgbW92IGVkeCxwb3J0aWRccGFyDQo+ICAgIGluIGFsLGR4
XHBhcg0KPiAgICBtb3YgdmFsdWUsYWxccGFyDQo+ICBlbmQ7XHBhcg0KPiAgaW5wb3J0YiA6PSB2
YWx1ZTtccGFyDQo+ZW5kO1xwYXINCj5ccGFyDQo+XHBhcg0KPlRoYW5rcywgUGhpbGlwcFxwYXIN
Cj4tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxwYXINCj5ccGFy
DQo+VG8gdW5zdWJzY3JpYmUgZnJvbSB0aGlzIG1haWxpbmcgbGlzdCwgc2VuZCBhIG1lc3NhZ2Ug
Y29udGFpbmluZyB0aGUgd29yZFxwYXINCiJ1bnN1YnNjcmliZSIgdG86XHBhcg0KPiAgIGJsYWNr
Ym94LXJlcXVlc3RAb2Jlcm9uLmNoXHBhcg0KPlxwYXINCj5UbyBnZXQgYSBsaXN0IG9mIHZhbGlk
IGUtbWFpbCBjb21tYW5kcyBhbmQgaW5zdHJ1Y3Rpb25zIG9uIHRoZWlyIHVzYWdlLFxwYXINCnNl
bmQgYSBtZXNzYWdlIGNvbnRhaW5pbmcgdGhlIHdvcmQgImhlbHAiIHRvIHRoZSBhYm92ZSBhZGRy
ZXNzLlxwYXINCj5ccGFyDQo+U2VuZCBhbnkgcHJvYmxlbSByZXBvcnRzIG9yIHF1ZXN0aW9ucyBy
ZWxhdGVkIHRvIHRoaXMgZW1haWwgbGlzdCB0byB0aGVccGFyDQpsaXN0IG93bmVyIGF0XHBhcg0K
PiAgIG93bmVyLWJsYWNrYm94QG9iZXJvbi5jaFxwYXINCj5ccGFyDQo+Q3VycmVudCBwb3N0aW5n
IHBvbGljeTpccGFyDQo+XHBhcg0KPmEpIFRvIHBvc3QgeW91IHNob3VsZCB1c2UgdGhlIHNhbWUg
YWRkcmVzcyBieSB3aGljaCB5b3UgYXJlIHN1YnNjcmliZWQgdG9ccGFyDQp0aGUgbWFpbGluZyBs
aXN0LiBUaGF0IHdheSwgdGhlIGxpc3Qgc2VydmVyIHdpbGwgcmVjb2duaXplIHlvdSBhcyBzdWJz
Y3JpYmVyXHBhcg0KYW5kIGZvcndhcmQgeW91ciBwb3N0aW5nIGltbWVkaWF0ZWx5LCB3aXRob3V0
IGNyZWF0aW5nIGFueSBvdmVyaGVhZC5ccGFyDQo+XHBhcg0KPmIpIElmLCBmb3Igc29tZSByZWFz
b24sIHlvdSBjYW5ub3QgcG9zdCBmcm9tIHRoZSBhZGRyZXNzLCBieSB3aGljaCB5b3UgYXJlXHBh
cg0Kc3Vic2NyaWJlZCwgeW91ciBtZXNzYWdlIHdpbGwgYmUgbW9kZXJhdGVkIHRvIGF2b2lkIHNw
YW0uIFBsZWFzZSB1bmRlcnN0YW5kXHBhcg0KdGhhdCBtb2RlcmF0aW9uIHdpbGwgb2Z0ZW4gY2F1
c2Ugc29tZSBkZWxheSwgaW4gcGFydGljdWxhciBvdmVyIHdlZWtlbmRzIG9yXHBhcg0KaG9seWRh
eXMuXHBhcg0KPlxwYXINCj5ccGFyDQo+ICBccGFyDQo+XHBhcg0KXHBhcg0KLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpccGFyDQpUbyB1bnN1YnNjcmli
ZSBmcm9tIHRoaXMgbWFpbGluZyBsaXN0LCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRoZSB3
b3JkICJ1bnN1YnNjcmliZSIgdG86XHBhcg0KICAgYmxhY2tib3gtcmVxdWVzdEBvYmVyb24uY2hc
cGFyDQpccGFyDQpUbyBnZXQgYSBsaXN0IG9mIHZhbGlkIGUtbWFpbCBjb21tYW5kcyBhbmQgaW5z
dHJ1Y3Rpb25zIG9uIHRoZWlyIHVzYWdlLCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRoZSB3
b3JkICJoZWxwIiB0byB0aGUgYWJvdmUgYWRkcmVzcy5ccGFyDQpccGFyDQpTZW5kIGFueSBwcm9i
bGVtIHJlcG9ydHMgb3IgcXVlc3Rpb25zIHJlbGF0ZWQgdG8gdGhpcyBlbWFpbCBsaXN0IHRvIHRo
ZSBsaXN0IG93bmVyIGF0XHBhcg0KICAgb3duZXItYmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KXHBh
cg0KQ3VycmVudCBwb3N0aW5nIHBvbGljeTpccGFyDQpccGFyDQphKSBUbyBwb3N0IHlvdSBzaG91
bGQgdXNlIHRoZSBzYW1lIGFkZHJlc3MgYnkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkIHRvIHRo
ZSBtYWlsaW5nIGxpc3QuIFRoYXQgd2F5LCB0aGUgbGlzdCBzZXJ2ZXIgd2lsbCByZWNvZ25pemUg
eW91IGFzIHN1YnNjcmliZXIgYW5kIGZvcndhcmQgeW91ciBwb3N0aW5nIGltbWVkaWF0ZWx5LCB3
aXRob3V0IGNyZWF0aW5nIGFueSBvdmVyaGVhZC5ccGFyDQpccGFyDQpiKSBJZiwgZm9yIHNvbWUg
cmVhc29uLCB5b3UgY2Fubm90IHBvc3QgZnJvbSB0aGUgYWRkcmVzcywgYnkgd2hpY2ggeW91IGFy
ZSBzdWJzY3JpYmVkLCB5b3VyIG1lc3NhZ2Ugd2lsbCBiZSBtb2RlcmF0ZWQgdG8gYXZvaWQgc3Bh
bS4gUGxlYXNlIHVuZGVyc3RhbmQgdGhhdCBtb2RlcmF0aW9uIHdpbGwgb2Z0ZW4gY2F1c2Ugc29t
ZSBkZWxheSwgaW4gcGFydGljdWxhciBvdmVyIHdlZWtlbmRzIG9yIH19ACAwMzc4SDsNCiAgIA0
----boundary-LibPST-iamunique-215906961_-_---
Received on Tue Sep 21 2004 - 07:16:26 UTC