1
0
mirror of https://github.com/catseye/SixtyPical.git synced 2024-05-31 21:41:29 +00:00
SixtyPical/eg/c64/hearts.60p
2018-09-09 14:01:38 +01:00

17 lines
446 B
Plaintext

// Displays 256 hearts at the top of the Commodore 64's screen.
// Define where the screen starts in memory:
byte table[256] screen @ 1024
define main routine
// These are the values that will be written to by this routine:
trashes a, x, z, n, screen
{
ld x, 0
ld a, 83 // 83 = screen code for heart
repeat {
st a, screen + x
inc x
} until z // this flag will be set when x wraps around from 255 to 0
}