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?
Lesezeichen