Ich scheitere daran den Screen zu füllen
This commit is contained in:
25
projects/04/tests/fillscreen.asm
Normal file
25
projects/04/tests/fillscreen.asm
Normal file
@@ -0,0 +1,25 @@
|
||||
@SCREEN
|
||||
D=A
|
||||
@R15
|
||||
M=D
|
||||
|
||||
@R0
|
||||
D=A
|
||||
@R14
|
||||
M=D
|
||||
|
||||
(LOOP)
|
||||
@R14
|
||||
D=M
|
||||
@END
|
||||
D;JEQ
|
||||
|
||||
@R15
|
||||
M=M+1
|
||||
@R14
|
||||
M=M-1
|
||||
@LOOP
|
||||
|
||||
(END)
|
||||
@END
|
||||
0;JMP
|
||||
Reference in New Issue
Block a user