Ich scheitere daran den Screen zu füllen

This commit is contained in:
Sven Riwoldt
2023-03-27 20:32:56 +02:00
parent c756d775e4
commit f91fc53c91
4 changed files with 139 additions and 2 deletions

View File

@@ -0,0 +1,42 @@
// Zeichnen eines Rechtecks
// Breite = 16px, die Höhe ist in RAM[0]
@R0
D=M
@n // @16
M=D // n = RAM[0]
@i
M=0 // i=0
@SCREEN
D=A
@address
M=D // address = 16384 (Basisadresse des HACK-Screens)
(LOOP)
@i
D=M
@n
D=D-M
@END
D;JGT // if i > n goto END
@address
A=M
M=-1 // RAM[address] = -1 (16 pixels)
@i
M=M+1 // i=i+1
@32
D=A
@address
M=D+M // address = address + 32
@LOOP
0;JMP // GOTO LOOP
(END)
@END //Programmende
0;JMP

View 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