mirror of
https://github.com/g012/l65.git
synced 2024-09-29 16:55:13 +00:00
103 lines
2.2 KiB
Lua
103 lines
2.2 KiB
Lua
dofile "vcs.lua"
|
|
|
|
TIM_OVERSCAN = 50 -- TIM64T, 3200 cycles = ~ 42 scanlines
|
|
TIM_VBLANK = 61 -- TIM64T, 3904 cycles = ~ 51 scanlines
|
|
TIM_KERNEL = 17 -- T1024T, 17408 cycles = ~229 scanlines
|
|
location(0xf000, 0xffff)
|
|
|
|
if toto ~= 15 then end
|
|
|
|
abc = 13 ~ 0x7
|
|
xyz = 1 << 2
|
|
|
|
x:f()
|
|
::lualabel::
|
|
|
|
;
|
|
lda = 5 if lda < 6 then print('yep') end
|
|
;
|
|
|
|
--@@data samepage byte(1, 2) crosspage byte(3, 4)
|
|
|
|
--section{ "toto", align = 256, offset = 16 }
|
|
--section{ "toto", org = 0xf100 }
|
|
section "waitForIntim" --alt short syntax when no other option: @@waitForIntim ?
|
|
-- n_{ a=INTIM } ?
|
|
--lda(INTIM) -- or a=INTIM
|
|
--bne "waitForIntim"
|
|
ldx_immediate(0xf0)
|
|
ldx_immediate(13)
|
|
ldy_immediate(0xAB - 16 + 27 & 3 | 6 ~ 0xf >> ~3 << 1 // 5)
|
|
|
|
do samepage()
|
|
lda_immediate(0xac)
|
|
lda_immediate(INTIM)
|
|
lda_absolute( 0xbeef)
|
|
lda_absolute( INTIM)
|
|
lda_absolute_nozp( INTIM)
|
|
lda_absolute_x( INTIM)
|
|
lda_absolute_x( INTIM)
|
|
lda_indirect_x(INTIM)
|
|
lda_indirect_y(INTIM) endpage()
|
|
end
|
|
|
|
asl_implied()
|
|
asl_absolute( INTIM)
|
|
asl_implied()
|
|
label_local("toto")
|
|
bne_relative( "test")
|
|
bne_relative( "waitForIntim")
|
|
bne_relative( f())
|
|
bne_relative_local("toto")
|
|
|
|
jam_implied() asl_implied() lsr_implied() ldx_immediate(16) ldy_absolute( 0xf0f0)
|
|
|
|
rts_implied()
|
|
|
|
--[[
|
|
section "doOverscan"
|
|
sta{WSYNC} -- WSYNC=a
|
|
lda(2) sta{VBLANK} -- a=2 VBLANK=a
|
|
lda(TIM_OVERSCAN) sta{TIM64T} -- a=TIM_OVERSCAN TIM64T=a
|
|
jsr "waitForIntim"
|
|
|
|
section "doVBlank"
|
|
lda(0x0e)
|
|
label ".vsyncLoop"
|
|
sta{WSYNC}
|
|
sta{VSYNC}
|
|
lsr()
|
|
bne ".vsyncLoop"
|
|
lda(2)
|
|
sta{VBLANK}
|
|
lda(TIM_VBLANK)
|
|
sta{TIM64T}
|
|
jsr "waitForIntim"
|
|
|
|
section "doKernel"
|
|
lda(TIM_KERNEL)
|
|
sta{T1024T}
|
|
jsr "waitForIntim"
|
|
|
|
section "start"
|
|
-- clear zeropage
|
|
cld()
|
|
ldx(0)
|
|
txa()
|
|
label ".clearLoop"
|
|
dex()
|
|
tsx()
|
|
pha()
|
|
bne ".clearLoop"
|
|
-- main
|
|
label "mainLoop"
|
|
jsr "doOverscan"
|
|
jsr "doVBlank"
|
|
jsr "doKernel"
|
|
jmp "mainLoop"
|
|
|
|
section{ name="vectors", org=0xfffc }
|
|
word{ "start", "start" }
|
|
|
|
]]
|