@Pebi, du gehst mir absolut auf den Geist. Deine Rum-Motzerei ist absolut überflüssig und interessiert hier niemanden. Wolltest du nicht spazierengehen, massig Kohle verprassen und deine Frührente geniessen ? Warum tust du das nicht ? In Timbuktu ist eh grad' Frühling !
@Frank: Ich bitte um Verwarnung.
*räusper*
@Albundy:
Seltsames Phänomen: Ich konnte erst den ganzen Library-Zinnober garnicht nachvollziehen, weil er sich geweigert hat "GRTXT" als Label zu finden. Zusammengefaßt: rumgewurstelt--> Namen geändert, sieh da: es geht.
Und, vielleicht liegt's an der Version, das kannst du ja dann vergleichen, er hat auch die "DB" richtig befüllt.
Anbei .bas, .lib und .asm
Code:
$regfile = "m8535.dat"
$crystal = 8000000
$lib "Test.lib"
$external Bauch
Declare Sub Bauch
Config Porta = Output
Porta = $ff
Call Bauch
Do
Loop
End
Code:
[bauch]
bauch:
ldi zh,High(Da_ * 2)
ldi zl,Low(Da_ * 2)
ld r22,z
*out Porta,r22
ret
Da_:
.db &H14,&H7F,&H14,&H7F,&H14,&H00
[end]
Code:
.NOLIST
.INCLUDE "M8535DEF.INC"
.LIST
INIT:
RJMP L_0x002A
INT0ADDR_:
RETI
INT1ADDR_:
RETI
OC2ADDR_:
RETI
OVF2ADDR_:
RETI
ICP1ADDR_:
RETI
OC1AADDR_:
RETI
OC1BADDR_:
RETI
OVF1ADDR_:
RETI
OVF0ADDR_:
RETI
SPIADDR_:
RETI
URXCADDR_:
RETI
UDREADDR_:
RETI
UTXCADDR_:
RETI
ADCCADDR_:
RETI
ERDYADDR_:
RETI
ACIADDR_:
RETI
TWIADDR_:
RETI
INT2ADDR_:
RETI
OC0ADDR_:
RETI
SPMRADDR_:
RETI
L_0x002A:
LDI r24,0x5F
OUT SPL,r24
LDI YL,0x40
LDI ZL,0x30
MOV r4,ZL
LDI r24,0x02
OUT SPH,r24
LDI YH,0x02
LDI ZH,0x02
MOV r5,ZH
LDI ZL,0xFE
LDI ZH,0x01
LDI XL,0x60
LDI XH,0x00
CLR r24
L_0x0048:
ST X+,r24
SBIW ZL,0x0001
BRNE L_0x0048
CLR r6
LDI r24,0xFF
OUT DDRA,r24
LDI r24,0xFF
OUT PORTA,r24
RCALL L_0x0072
L_0x005A:
RJMP L_0x005A
.DB 0xF8, 0x94 ;..
L_0x005E:
RJMP L_0x005E
L_0x0060:
SBIW ZL,0x0001
BRNE L_0x0060
RET
.DB 0x68, 0x94, 0x62, 0xF8, 0x08, 0x95, 0xE8, 0x94 ;h.b.....
.DB 0x62, 0xF8, 0x08, 0x95 ;b...
L_0x0072:
LDI ZH,0x00
LDI ZL,0x7C
LDD r22,Z + 0
OUT PORTA,r22
RET
.DB 0x14, 0x7F, 0x14, 0x7F, 0x14, 0x00 ;....
Zwecks Erklärung bitte den Wahrsager deiner Wahl zu bemühen
Lesezeichen