mirror of https://github.com/g012/l65.git
32 lines
736 B
Plaintext
32 lines
736 B
Plaintext
require'vcs'
|
|
#pragma encapsulate far farcall
|
|
#pragma encapsulate xsr xcall
|
|
#pragma add_opcode rtx imp
|
|
|
|
mappers.jmpfar=true
|
|
mappers.F4()
|
|
local bank_core,bank_fx = rom0,rom1
|
|
|
|
location(bank_core)
|
|
@@main
|
|
init()
|
|
@_frame
|
|
overscan() vblank() screen_begin()
|
|
far kernel
|
|
sta WSYNC lda#0xaa sta COLUBK for i=1,10 do sta WSYNC end
|
|
xsr kernel2
|
|
--lda#kernel2&0xff sta 0x8a lda#kernel2>>8 sta 0x8b jsr jmpfar
|
|
screen_end()
|
|
jmp _frame
|
|
|
|
location(bank_fx)
|
|
@@kernel
|
|
ldx#0x50 @_loop sta WSYNC stx COLUBK dex bne _loop rts
|
|
@@kernel2
|
|
ldx#0x50 @_loop sta WSYNC stx COLUBK dex bne _loop rtx --jmp rtsfar
|
|
|
|
;
|
|
writebin(filename..'.bin')
|
|
writesym(filename..'.sym')
|
|
print(stats)
|