Umwandeln

Hallo

Ich suche ein Programm wo man Bilder in negativ Bilder umwandeln kann das in Mode 2 und in Mode 1  und das ganze in Basic

Und das ganze für den CPC 6128

Ein Gruß vom Ebo

:winke0002:

In BASIC sollte das zumindest für den Mode 2 so gehen:

100 MEMORY HIMEM-13
110 FOR adr=HIMEM+1 TO HIMEM+13
120  READ vl%
130  POKE adr,vl%
140 NEXT
150 END
160 CALL HIMEM+1
170 RETURN
180 DATA &21,&00,&c0,&7e,&ee,&ff,&77,&23,&7d,&b4,&20,&f7,&c9

Mit GOSUB 160 kannst Du das "Negativ" erstellen.
Im Mode 1 bist Du vielleicht nicht ganz mit dem Ergebnis einverstanden, da müsste man eventuell nachbessern.

Der Quellcode des kleinen Maschinenspracheprogramms sieht so aus:

org &a600
ld hl,&c000
INV_PIX
ld a,(hl)
xor &ff
ld (hl),a
inc hl
ld a,l
or h
jr nz, INV_PIX
ret

Grüße

Danke dir  :jubelaola:
brauchen sie Bilder ?