000
09.10.2016, 22:20 Uhr
_lars
|
Hi,
im Rahmen der Erforschung des Tiny 2009 anhand es Emulators und realer Hardware ich hab mal ein kleines "Malprogram", welches Pixel direkt im Bildspeicher des Tiny schreibt, programmiert. Hier ist es, macht damit was ihr wollt (public domain):
10 CALL %8DD
20 LET X = 31; LET Y = 31;
100 LET R = 63 - Y * 8
110 LET C = X $A %38 / 8
120 LET P = X $A %7
130 LET B = %80
140 IF P = 0 THEN GOTO 180
150 LET P = P - 1
160 LET B = RR[B]
170 IF P > 0 THEN GOTO 150
180 LET A = %FE00 + R + C
190 PROC SETEB[A,NOT[B $X NOT[GETEB[A]]]]
300 PROC SETR[%6D,0]
310 CALL %C56
320 LET K = GETR[%6D] $A %7F
330 REM "Q"
340 IF K = 81 THEN LET X = X - 1; Y = Y + 1
350 REM "W"
360 IF K = 87 THEN LET Y = Y + 1
370 REM "E"
380 IF K = 69 THEN LET X = X + 1; Y = Y + 1
390 REM "A"
400 IF K = 65 THEN LET X = X - 1
410 REM "D"
420 IF K = 68 THEN LET X = X + 1
430 REM "Y"
440 IF K = 89 THEN LET X = X - 1; Y = Y - 1
450 REM "X"
460 IF K = 88 THEN LET Y = Y - 1
470 REM "C"
480 IF K = 67 THEN LET X = X + 1; Y = Y - 1
500 IF X > 63 THEN LET X = 0
510 IF X < 0 THEN LET X = 63
520 IF Y > 63 THEN LET Y = 0
530 IF Y < 0 THEN LET Y = 63
600 GOTO 100 |
