1
0
mirror of https://github.com/g012/l65.git synced 2024-11-19 15:31:16 +00:00
l65/samples/vcs_basic.l65
g012 e07c87b45d Added vcs_flush.l65 logo sample.
Fixed samepage bug when it ended on last instruction of section.
2017-10-06 00:26:16 +02:00

17 lines
319 B
Plaintext

require'vcs'
mappers['2K']()
local kernel = function()
ldx#0xb0 @_loop sta WSYNC stx COLUBK dex bne _loop
end
@@main
init()
@_frame
overscan() vblank() screen(kernel) jmp _frame
; -- needed if last instruction is implied
writebin(filename..'.bin')
writesym(filename..'.sym')
print(stats)