PL/1 Programmeren hoera
donderdag 4 oktober 2007

Nja,

Als we dan toch weer aan het PL/1 krassen zijn, kan ik net zo goed even een fraai stukkie code neerplempen waarmee je snel en zonder extra berekeningen het eerste cijfer van een fixed(6) bepaalt.....


DCL FIXDEC6 FIXED DEC(6);
DCL P POINTER;

P = ADDR(FIXDEC6);
DCL 1 STRUCT BASED(P),
......3 ONGEBRUIKT BIT(4),
......3 EERSTENUMMER BIT(4);


Labels: ,

Gepost doorHenri
op10/04/2007

0 >
 
Abonneren op: Reacties posten (Atom)

About Me

Mijn foto
Tja, It-er 'pur sang' vanaf de vroege tienerjaren (en misschien vlak daarvoor ook al wel, zal het eens navragen bij paps en mams) verslaafd aan computers. Via de commodore 64 (bedankt Cees) door naar de MSX1, MSX2, MSX2+, Commodore Amiga, 286,386,386DX,486,Apple powerPC, pentium weer terug naar af op het Mainframe (je weet toch, die oude dinosaurus machines die nu weer zo hip zijn!) Uiteraard dus werkzaam in de IT. 9 jaar bij een bank/verzekeraar en vanaf binnenkort de detachering in. Hopeloos verliefd op mijn meissie Stacey (uit NoordIerland, al het mooie komt van verre!) en koning te rijk met onze zoon Jamie. Ach er valt nog zo veel te vertellen, maar het lezen van de berichten zal na verloop van tijd wel wat meer duidelijk maken.