mirror of https://github.com/g012/l65.git
44 lines
1.6 KiB
Plaintext
44 lines
1.6 KiB
Plaintext
require'vcs' -- import vcs.l65
|
|
-- translate 'far x' to 'farcall(function() return x end)', farcall is defined in vcs.l65
|
|
#pragma encapsulate far farcall
|
|
-- translate 'xsr x' to 'xcall(function() return x end)', xcall is defined in vcs.l65
|
|
#pragma encapsulate xsr xcall
|
|
-- translate 'rtx' to 'rtximp()', rtximp is defined in vcs.l65
|
|
#pragma add_opcode rtx imp
|
|
|
|
-- enable generation of cross banks code sections using xsr/rtx method (3 MSB of address = bank index)
|
|
mappers.jmpfar=true
|
|
mappers.F8() -- use F8 (2 * 4Kb) bank mapper
|
|
local bank_core,bank_fx = rom0,rom1 -- bank name aliases
|
|
|
|
-- main bank content
|
|
location(bank_core)
|
|
@@main
|
|
init()
|
|
@_frame
|
|
overscan() vblank() screen_begin()
|
|
-- call section 'kernel' in bank_fx using per-function generated stubs
|
|
far kernel
|
|
-- make a separation
|
|
sta WSYNC lda#0xaa sta COLUBK for i=1,10 do sta WSYNC end
|
|
-- call section 'kernel2' in bank_fx using shared stub with bank index in 3 MSB of address
|
|
xsr kernel2
|
|
screen_end()
|
|
jmp _frame
|
|
|
|
-- secondary bank content
|
|
location(bank_fx)
|
|
-- regular function, can be called inside the same bank with a jsr or from
|
|
-- another bank using automatic stubs generation for caller/callee pair
|
|
@@kernel
|
|
ldx#0x50 @_loop sta WSYNC stx COLUBK dex bne _loop rts
|
|
-- function only callable using xsr method, from any bank without additional
|
|
-- stub generation, but higher cycle count overhead
|
|
@@kernel2
|
|
ldx#0x50 @_loop sta WSYNC stx COLUBK dex bne _loop rtx -- note the 'rtx' instead of 'rts'!
|
|
|
|
;
|
|
writebin(filename..'.bin')
|
|
writesym(filename..'.sym')
|
|
print(stats)
|