mirror of
https://github.com/catseye/SixtyPical.git
synced 2024-11-22 01:32:13 +00:00
21 lines
652 B
Plaintext
21 lines
652 B
Plaintext
// SPDX-FileCopyrightText: Chris Pressey, the author of this work, has dedicated it to the public domain.
|
|
// For more information, please refer to <https://unlicense.org/>
|
|
// SPDX-License-Identifier: Unlicense
|
|
|
|
// Displays 256 hearts at the top of the VIC-20's screen.
|
|
|
|
// Define where the screen starts in memory:
|
|
byte table[256] screen @ 7680
|
|
|
|
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
|
|
}
|