2017-10-03 09:51:36 +00:00
|
|
|
require'vcs'
|
2017-10-03 20:55:58 +00:00
|
|
|
#pragma encapsulate far farcall
|
2017-10-03 22:19:03 +00:00
|
|
|
#pragma encapsulate xsr xcall
|
|
|
|
#pragma add_opcode rtx imp
|
2017-10-03 09:51:36 +00:00
|
|
|
|
2017-10-03 22:19:03 +00:00
|
|
|
mappers.jmpfar=true
|
2017-10-03 09:51:36 +00:00
|
|
|
mappers.F4()
|
|
|
|
local bank_core,bank_fx = rom0,rom1
|
|
|
|
|
|
|
|
location(bank_core)
|
|
|
|
@@main
|
|
|
|
init()
|
|
|
|
@_frame
|
2017-10-03 22:19:03 +00:00
|
|
|
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
|
2017-10-03 20:55:58 +00:00
|
|
|
|
|
|
|
location(bank_fx)
|
|
|
|
@@kernel
|
2017-10-03 22:19:03 +00:00
|
|
|
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
|
2017-10-03 09:51:36 +00:00
|
|
|
|
|
|
|
;
|
|
|
|
writebin(filename..'.bin')
|
|
|
|
writesym(filename..'.sym')
|
|
|
|
print(stats)
|