l65/samples/vcs_basic.l65

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)