QUICK, Pascal to C translation

Article View: comp.lang.pascal.borland

Article #110

Back to comp.lang.pascal.borland Previous Next

#110

From: Andrew Wan
Date: Fri, 28 Dec 2007 10:57

17 lines
1630 bytes

Please can Pascal/C gurrus help me to confirm this:

l := port[$60];
l = inp( 0x60 );

keys[l mod 128] := l < 128;
keys[l & 127] = (l < 128);

mem[$0040:$001a] := mem[$0040: $001c]; {Pascal}
pokeb(0x40, 0x1a, peekb(0x40, 0x1c)); // C

port[$20] := $20;
outp( 0x20, 0x20 );

---

Yes you probably figured it out. It's a new keyboard handler.

Technical Details

Message-ID: <e4302637-2738-4a0e-9413-7422371f9ff5@l32g2000hse.googlegroups.com>

Path: arc1-ca.pugleaf.net!g2news1.google.com!postnews.google.com!l32g2000hse.googlegroups.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: 111659,477674b152700ba2,start
X-Google-Thread: 108ebd,477674b152700ba2,start
X-Google-Attributes: gid111659,gid108ebd,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!postnews.google.com!l32g2000hse.googlegroups.com!not-for-mail
From: Andrew Wan <andwan0@googlemail.com>
Newsgroups: comp.lang.pascal.borland, borland.public.turbopascal
Subject: QUICK, Pascal to C translation
Date: Fri, 28 Dec 2007 02:57:12 -0800 (PST)
Organization: http://groups.google.com
Lines: 17
Message-ID: <e4302637-2738-4a0e-9413-7422371f9ff5@l32g2000hse.googlegroups.com>
NNTP-Posting-Host: 217.37.215.53
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
X-Trace: posting.google.com 1198839432 16433 127.0.0.1 (28 Dec 2007 10:57:12 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Fri, 28 Dec 2007 10:57:12 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: l32g2000hse.googlegroups.com; posting-host=217.37.215.53; 
 posting-account=N2ZRIAoAAAD8sSLFVDlUm8-wUwXiBop2
User-Agent: G2/1.0
X-HTTP-Via: 1.1 SERVERSB
X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.11) 
 Gecko/20071127 Firefox/2.0.0.11,gzip(gfe),gzip(gfe)