1
0
mirror of https://github.com/g012/l65.git synced 2024-06-10 18:29:44 +00:00
l65/samples/vcs2.l65

21 lines
393 B
Plaintext

require'vcs'
#pragma encapsulate far farcall
mappers.F4()
local bank_core,bank_fx = rom0,rom1
location(bank_core)
@@main
init()
@_frame
overscan() vblank() screen_begin() far kernel screen_end() jmp _frame
location(bank_fx)
@@kernel
ldx#0xd0 @_loop sta WSYNC stx COLUBK dex bne _loop rts
;
writebin(filename..'.bin')
writesym(filename..'.sym')
print(stats)