C Programm nach Pascal

[3_of_8]

So würde ich jetzt sagen:

Delphi-Quellcode:

const PIO_A27: LongWord = 1 shl 27;

var
  map_base: Pointer;

//Das sagtest du ja ist kein Problem

PLongWord(Cardinal(map_base+(PIOA_PER and MAP_MASK)))^ := PIO_A26 or PIO_A25 or PIO_A24 or PIO_All or PIO_A14;