Wer kann ein kleines Basic Programm in Assembler umsetzen?

Anonymous · Sep 6th 2008

Hallo Forum,

ich bräuchte mal dringen Hilfe:

Code

10 adr=&C5B0
20 FOR t=1 TO 8:FOR k=1 TO &2A
30 POKE adr,255:adr=adr+1:IF adr=&D7B9 THEN GOTO 90
40 NEXT
50 adr=adr-&2A:adr=adr+&800
60 NEXT
70 adr=adr-&3FB0
80 GOTO 20
90 POKE adr,255

Wer kann mir dieses kleine Programm in Assembler programmieren?
Nach Ausführung bitte mit RET zum Basic zurück.

Gruss,
Markus

Anonymous · Sep 6th 2008

Antwort:

Code

ORG &4000


.start
LD HL,&C5B0      ;HL is 'adr' variable
LD C,51       ;Rows


.clear_area
PUSH HL
LD B,&2A
LD A,255


.clear_line
LD (HL),A
INC HL
DJNZ clear_line


POP HL
CALL &BC26      ;SCR_NEXT_LINE
DEC C
JR NZ,clear_area
RET

Display More

Prodatron · Sep 7th 2008

Sorry, hatte Dich im ICQ verpasst.
Hast ja nun zum Glück eine Lösung gefunden. Wenn Du keine Betriebssystemsroutinen verwenden willst, könnte man das ganze noch ein bischen optimieren, aber das sollte sicherlich so reichen.

CU,
Prodatron