NACHTRAG:

ich habe die Codegröße mal verglichen zwischen einem Overlay und der Verwendung von Alias:

Code:
$regfile = "m128def.DAT"
$crystal = 16000000
$baud = 57600
$baud1 = 57600                                                                                                                                        ' ÄNDERUNG AUF HÖHERE RATE!!!!!!
$hwstack = 70
$swstack = 70
$framesize = 70
'$sim

Dim Hd As Byte
Dim A As Bit , B As Bit , C As Bit , D As Bit , E As Bit , F As Bit , G As Bit , H As Bit
Dim Bit1 As Bit , Bit2 As Bit , Bit3 As Bit , Bit4 As Bit , Bit5 As Bit , Bit6 As Bit , Bit7 As Bit , Bit8 As Bit
'A1 Alias Hd.1                                                                                                                                         'Flags für Anzeigebuttons nicht aktiv (nicht-invertiert)
'Dim Rf12_dummy As Byte , Mem_dummy(2) As Byte

Dim Byte1 As Byte At A Overlay
Dim Byte2 As Byte At Bit1 Overlay

Do
A = 1
B = 0
C = 1
D  = 0
E  = 1
F = 0
G = 1
H  = 0
Bit1 = 1
Bit2 = 0
Bit3 = 1
Bit4 = 0
Bit5 = 1
Bit6 = 0
Bit7 = 1
Bit8 = 0

Print Bin(byte1)
Print Bin(hd)

Loop
End
= 230 Romimage
Code:
$regfile = "m128def.DAT"
$crystal = 16000000
$baud = 57600
$baud1 = 57600                                                                                                                                        ' ÄNDERUNG AUF HÖHERE RATE!!!!!!
$hwstack = 70
$swstack = 70
$framesize = 70
'$sim



Dim Hd As Byte
Dim A As Bit , B As Bit , C As Bit , D As Bit , E As Bit , F As Bit , G As Bit , H As Bit
 Bit1 Alias Hd.1
 Bit2 Alias Hd.2
 Bit3 Alias Hd.3
 Bit4 Alias Hd.4
 Bit5 Alias Hd.5
 Bit6 Alias Hd.6
 Bit7 Alias Hd.7
 Bit8 Alias Hd.8

Dim Byte1 As Byte At A Overlay

Do
A = 1
B = 0
C = 1
D  = 0
E  = 1
F = 0
G = 1
H  = 0
Bit1 = 1
Bit2 = 0
Bit3 = 1
Bit4 = 0
Bit5 = 1
Bit6 = 0
Bit7 = 1
Bit8 = 0
Print Bin(byte1)
Print Bin(hd)


Loop
End
=240 Romimage

Also lieber nen Overlay oder?