2017-09-09 00:01:16 +00:00
|
|
|
-- set cpu to 6502
|
|
|
|
cpu = require "6502"
|
|
|
|
setmetatable(_ENV, cpu)
|
2017-09-02 23:59:21 +00:00
|
|
|
|
2017-09-09 00:01:16 +00:00
|
|
|
vcs = {
|
|
|
|
-- TIA write only
|
|
|
|
VSYNC = 0x00, -- ......1. vertical sync set-clear
|
|
|
|
VBLANK = 0x01, -- 11....1. vertical blank set-clear
|
|
|
|
WSYNC = 0x02, -- <strobe> wait for leading edge of horizontal blank
|
|
|
|
RSYNC = 0x03, -- <strobe> reset horizontal sync counter
|
|
|
|
NUSIZ0 = 0x04, -- ..111111 number-size player-missile 0
|
|
|
|
NUSIZ1 = 0x05, -- ..111111 number-size player-missile 1
|
|
|
|
COLUP0 = 0x06, -- 1111111. color-lum player 0 and missile 0
|
|
|
|
COLUP1 = 0x07, -- 1111111. color-lum player 1 and missile 1
|
|
|
|
COLUPF = 0x08, -- 1111111. color-lum playfield and ball
|
|
|
|
COLUBK = 0x09, -- 1111111. color-lum background
|
|
|
|
CTRLPF = 0x0a, -- ..11.111 control playfield ball size & collisions
|
|
|
|
REFP0 = 0x0b, -- ....1... reflect player 0
|
|
|
|
REFP1 = 0x0c, -- ....1... reflect player 1
|
|
|
|
PF0 = 0x0d, -- 1111.... playfield register byte 0
|
|
|
|
PF1 = 0x0e, -- 11111111 playfield register byte 1
|
|
|
|
PF2 = 0x0f, -- 11111111 playfield register byte 2
|
|
|
|
RESP0 = 0x10, -- <strobe> reset player 0
|
|
|
|
RESP1 = 0x11, -- <strobe> reset player 1
|
|
|
|
RESM0 = 0x12, -- <strobe> reset missile 0
|
|
|
|
RESM1 = 0x13, -- <strobe> reset missile 1
|
|
|
|
RESBL = 0x14, -- <strobe> reset ball
|
|
|
|
AUDC0 = 0x15, -- ....1111 audio control 0
|
|
|
|
AUDC1 = 0x16, -- ....1111 audio control 1
|
|
|
|
AUDF0 = 0x17, -- ...11111 audio frequency 0
|
|
|
|
AUDF1 = 0x18, -- ...11111 audio frequency 1
|
|
|
|
AUDV0 = 0x19, -- ....1111 audio volume 0
|
|
|
|
AUDV1 = 0x1a, -- ....1111 audio volume 1
|
|
|
|
GRP0 = 0x1b, -- 11111111 graphics player 0
|
|
|
|
GRP1 = 0x1c, -- 11111111 graphics player 1
|
|
|
|
ENAM0 = 0x1d, -- ......1. graphics (enable) missile 0
|
|
|
|
ENAM1 = 0x1e, -- ......1. graphics (enable) missile 1
|
|
|
|
ENABL = 0x1f, -- ......1. graphics (enable) ball
|
|
|
|
HMP0 = 0x20, -- 1111.... horizontal motion player 0
|
|
|
|
HMP1 = 0x21, -- 1111.... horizontal motion player 1
|
|
|
|
HMM0 = 0x22, -- 1111.... horizontal motion missile 0
|
|
|
|
HMM1 = 0x23, -- 1111.... horizontal motion missile 1
|
|
|
|
HMBL = 0x24, -- 1111.... horizontal motion ball
|
|
|
|
VDELP0 = 0x25, -- .......1 vertical delay player 0
|
|
|
|
VDELP1 = 0x26, -- .......1 vertical delay player 1
|
|
|
|
VDELBL = 0x27, -- .......1 vertical delay ball
|
|
|
|
RESMP0 = 0x28, -- ......1. reset missile 0 to player 0
|
|
|
|
RESMP1 = 0x29, -- ......1. reset missile 1 to player 1
|
|
|
|
HMOVE = 0x2a, -- <strobe> apply horizontal motion
|
|
|
|
HMCLR = 0x2b, -- <strobe> clear horizontal motion registers
|
|
|
|
CXCLR = 0x2c, -- <strobe> clear collision latches= 0x20
|
2017-09-02 23:59:21 +00:00
|
|
|
|
2017-09-23 21:42:32 +00:00
|
|
|
-- TIA read only
|
2017-09-09 00:01:16 +00:00
|
|
|
CXM0P = 0x30, -- 11...... read collision M0-P1, M0-P0 (Bit 7 --6)
|
|
|
|
CXM1P = 0x31, -- 11...... read collision M1-P0, M1-P1
|
|
|
|
CXP0FB = 0x32, -- 11...... read collision P0-PF, P0-BL
|
|
|
|
CXP1FB = 0x33, -- 11...... read collision P1-PF, P1-BL
|
|
|
|
CXM0FB = 0x34, -- 11...... read collision M0-PF, M0-BL
|
|
|
|
CXM1FB = 0x35, -- 11...... read collision M1-PF, M1-BL
|
|
|
|
CXBLPF = 0x36, -- 1....... read collision BL-PF, unused
|
|
|
|
CXPPMM = 0x37, -- 11...... read collision P0-P1, M0-M1
|
|
|
|
INPT0 = 0x38, -- 1....... read pot port
|
|
|
|
INPT1 = 0x39, -- 1....... read pot port
|
|
|
|
INPT2 = 0x3a, -- 1....... read pot port
|
|
|
|
INPT3 = 0x3b, -- 1....... read pot port
|
|
|
|
INPT4 = 0x3c, -- 1....... read input
|
|
|
|
INPT5 = 0x3d, -- 1....... read input
|
2017-09-02 23:59:21 +00:00
|
|
|
|
2017-09-09 00:01:16 +00:00
|
|
|
-- PIA
|
|
|
|
SWCHA = 0x280, -- 11111111 Port A= 0x280 -- input or output (read or write)
|
|
|
|
SWACNT = 0x281, -- 11111111 Port A DDR, 0= input, 1=output
|
|
|
|
SWCHB = 0x282, -- 11111111 Port B= 0x280 -- console switches (read only)
|
|
|
|
SWBCNT = 0x283, -- 11111111 Port B DDR (hardwired as input)
|
|
|
|
INTIM = 0x284, -- 11111111 Timer output (read only)
|
|
|
|
INSTAT = 0x285, -- 11...... Timer Status (read only, undocumented)
|
|
|
|
|
|
|
|
TIM1T = 0x294, -- 11111111 set 1 clock interval (838 nsec/interval)
|
|
|
|
TIM8T = 0x295, -- 11111111 set 8 clock interval (6.7 usec/interval)
|
|
|
|
TIM64T = 0x296, -- 11111111 set 64 clock interval (53.6 usec/interval)
|
|
|
|
T1024T = 0x297, -- 11111111 set 1024 clock interval (858.2 usec/interval)
|
|
|
|
}
|
|
|
|
do
|
|
|
|
local symbols = cpu.symbols
|
2017-09-11 20:52:16 +00:00
|
|
|
for k,v in pairs(vcs) do symbols[k] = v end
|
2017-09-09 00:01:16 +00:00
|
|
|
end
|
2017-09-23 21:42:32 +00:00
|
|
|
|
2017-09-29 22:35:59 +00:00
|
|
|
nusiz = {
|
|
|
|
MSL_SIZE_1 = 16*0,
|
|
|
|
MSL_SIZE_2 = 16*1,
|
|
|
|
MSL_SIZE_4 = 16*2,
|
|
|
|
MSL_SIZE_8 = 16*3,
|
|
|
|
ONE_COPY = 0,
|
|
|
|
TWO_COPIES_CLOSE = 1,
|
|
|
|
TWO_COPIES_MEDIUM = 2,
|
|
|
|
THREE_COPIES_CLOSE = 3,
|
|
|
|
TWO_COPIES_WIDE = 4,
|
|
|
|
DOUBLE_SIZED_PLAYER = 5,
|
|
|
|
THREE_COPIES_MEDIUM = 6,
|
|
|
|
QUAD_SIZED_PLAYER = 7,
|
|
|
|
}
|
|
|
|
|
|
|
|
ctrlpf = {
|
|
|
|
BALL_SIZE_1 = 16*0,
|
|
|
|
BALL_SIZE_2 = 16*1,
|
|
|
|
BALL_SIZE_4 = 16*2,
|
|
|
|
BALL_SIZE_8 = 16*3,
|
|
|
|
PF_MIRRORED = 1,
|
|
|
|
PF_SCOREMODE = 2,
|
|
|
|
PF_PRIO_BALLABOVE = 4,
|
|
|
|
}
|
|
|
|
|
|
|
|
enable = {
|
|
|
|
DISABLE = 0,
|
|
|
|
ENABLE = 2,
|
|
|
|
}
|
|
|
|
|
|
|
|
vdel = {
|
|
|
|
DISABLE = 0,
|
|
|
|
ENABLE = 1,
|
|
|
|
}
|
|
|
|
|
|
|
|
hm = {
|
|
|
|
LEFT_7 = 7*16,
|
|
|
|
LEFT_6 = 6*16,
|
|
|
|
LEFT_5 = 5*16,
|
|
|
|
LEFT_4 = 4*16,
|
|
|
|
LEFT_3 = 3*16,
|
|
|
|
LEFT_2 = 2*16,
|
|
|
|
LEFT_1 = 1*16,
|
|
|
|
NO_MOTION = 0,
|
|
|
|
RIGHT_1 = 15*16,
|
|
|
|
RIGHT_2 = 14*16,
|
|
|
|
RIGHT_3 = 13*16,
|
|
|
|
RIGHT_4 = 12*16,
|
|
|
|
RIGHT_5 = 11*16,
|
|
|
|
RIGHT_6 = 10*16,
|
|
|
|
RIGHT_7 = 9*16,
|
|
|
|
RIGHT_8 = 8*16,
|
|
|
|
|
|
|
|
C74_LEFT_15 = 7*16,
|
|
|
|
C74_LEFT_14 = 6*16,
|
|
|
|
C74_LEFT_13 = 5*16,
|
|
|
|
C74_LEFT_12 = 4*16,
|
|
|
|
C74_LEFT_11 = 3*16,
|
|
|
|
C74_LEFT_10 = 2*16,
|
|
|
|
C74_LEFT_9 = 1*16,
|
|
|
|
C74_LEFT_8 = 0*16,
|
|
|
|
C74_LEFT_7 = 15*16,
|
|
|
|
C74_LEFT_6 = 14*16,
|
|
|
|
C74_LEFT_5 = 13*16,
|
|
|
|
C74_LEFT_4 = 12*16,
|
|
|
|
C74_LEFT_3 = 11*16,
|
|
|
|
C74_LEFT_2 = 10*16,
|
|
|
|
C74_LEFT_1 = 9*16,
|
|
|
|
C74_NO_MOTION = 8*16,
|
|
|
|
}
|
|
|
|
|
2017-09-30 12:53:27 +00:00
|
|
|
NTSC = {
|
|
|
|
TIM_OVERSCAN = 38, -- TIM64T, 2432 cycles = 32 scanlines
|
|
|
|
TIM_VBLANK = 45, -- TIM64T, 2880 cycles = ~ 38 scanlines
|
|
|
|
TIM_KERNEL = 15, -- T1024T, 15360 cycles = ~202 scanlines
|
|
|
|
}
|
|
|
|
PAL = {
|
|
|
|
TIM_OVERSCAN = 50, -- TIM64T, 3200 cycles = ~ 42 scanlines
|
|
|
|
TIM_VBLANK = 61, -- TIM64T, 3904 cycles = ~ 51 scanlines
|
|
|
|
TIM_KERNEL = 17, -- T1024T, 17408 cycles = ~229 scanlines
|
|
|
|
}
|
|
|
|
TV = PAL
|
|
|
|
|
|
|
|
init = function() cld ldx#0 txa local l=label() dex tsx pha bne l end
|
|
|
|
wait = function() local l=label() lda INTIM bne l end
|
|
|
|
overscan_begin = function() sta WSYNC lda#2 sta VBLANK lda#TV.TIM_OVERSCAN sta TIM64T end
|
|
|
|
overscan_end = wait
|
|
|
|
overscan = function(f) overscan_begin() if f then f() end overscan_end() end
|
|
|
|
vblank_begin = function()
|
|
|
|
lda#0b1110 local l=label() sta WSYNC sta VSYNC lsr bne l
|
|
|
|
lda#2 sta VBLANK lda#TV.TIM_VBLANK sta TIM64T
|
|
|
|
end
|
|
|
|
vblank_end = function() wait() sta WSYNC sta VBLANK end
|
|
|
|
vblank = function(f) vblank_begin() if f then f() end vblank_end() end
|
|
|
|
screen_begin = function() lda#TV.TIM_KERNEL sta T1024T end
|
|
|
|
screen_end = wait
|
|
|
|
screen = function(f) screen_begin() if f then f() end screen_end() end
|
|
|
|
|
2017-09-29 22:35:59 +00:00
|
|
|
-- for mappers that swap banks in place
|
|
|
|
-- call an asm function into another bank and generate the stubs if needed
|
2017-09-30 12:53:27 +00:00
|
|
|
local far_stubs = {} far_stubs=far_stubs
|
2017-09-29 22:35:59 +00:00
|
|
|
local far = function(dst)
|
|
|
|
local stub,loc_src,loc_dst = far_stubs[dst],location_current,dst.section.location
|
|
|
|
if not (stub and stub.stub_caller.location==loc_src and stub.stub_callee.location==loc_dst) then
|
|
|
|
local seccur = section_current
|
|
|
|
local stub_caller = section() switchrom(loc_dst.rom) skip(6) rts
|
|
|
|
location(loc_dst)
|
|
|
|
local stub_callee = section() jsr dst switchrom(loc_src.rom)
|
2017-09-30 12:53:27 +00:00
|
|
|
section(seccur)
|
2017-09-29 22:35:59 +00:00
|
|
|
far_stubs[dst] = relate(stub_caller, stub_callee, 3)
|
|
|
|
end
|
|
|
|
jsr stub_caller
|
|
|
|
end
|
|
|
|
|
2017-09-24 14:05:37 +00:00
|
|
|
mappers = {}
|
|
|
|
|
2017-09-29 22:35:59 +00:00
|
|
|
mappers['2K'] = function(irq)
|
2017-09-24 14:05:37 +00:00
|
|
|
rom0 = location(0xf800, 0xffff)
|
2017-09-29 22:35:59 +00:00
|
|
|
section{"vectors", org=0xfffc} dc.w main if irq then dc.w main end
|
2017-09-24 14:05:37 +00:00
|
|
|
end
|
|
|
|
mappers.CV = mappers['2K']
|
|
|
|
|
2017-09-29 22:35:59 +00:00
|
|
|
mappers['4K'] = function(irq)
|
2017-09-24 14:05:37 +00:00
|
|
|
rom0 = location(0xf000, 0xffff)
|
2017-09-29 22:35:59 +00:00
|
|
|
section{"vectors", org=0xfffc} dc.w main if irq then dc.w main end
|
2017-09-24 14:05:37 +00:00
|
|
|
end
|
|
|
|
|
2017-09-29 22:35:59 +00:00
|
|
|
local bank_stubs = function(irq, count, hotspot, entry)
|
2017-09-24 14:05:37 +00:00
|
|
|
function switchrom(i) assert(i>=0 and i<count) bit 0x1000+hotspot+i end
|
2017-09-29 22:35:59 +00:00
|
|
|
far = far
|
2017-09-23 21:42:32 +00:00
|
|
|
local base = 0x10000 - (count << 12)
|
|
|
|
for bi=0,count-1 do
|
|
|
|
local o = base+(bi<<12)
|
2017-09-29 22:35:59 +00:00
|
|
|
_ENV['rom' .. bi] = location{o, o+0xfff, rorg=0xf000, rom=bi}
|
2017-09-25 11:20:04 +00:00
|
|
|
local start=section{"entry"..bi, org=o+(entry or hotspot-6)} switchrom(0) if bi==0 then jmp main end
|
2017-09-23 21:42:32 +00:00
|
|
|
section{"switchtab"..bi, org=o+hotspot} for i=1,count do byte(0) end
|
2017-09-29 22:35:59 +00:00
|
|
|
section{"vectors"..bi, org=o+0xffc} dc.w start if irq then dc.w start end
|
2017-09-23 21:42:32 +00:00
|
|
|
end
|
2017-09-22 21:58:01 +00:00
|
|
|
end
|
2017-09-29 22:35:59 +00:00
|
|
|
mappers.FA = function(irq) bank_stubs(irq, 3, 0xff8) end
|
|
|
|
mappers.F8 = function(irq) bank_stubs(irq, 2, 0xff8) end
|
|
|
|
mappers.F6 = function(irq) bank_stubs(irq, 4, 0xff6) end
|
|
|
|
mappers.F4 = function(irq) bank_stubs(irq, 8, 0xff4) end
|
|
|
|
mappers.EF = function(irq) bank_stubs(irq, 16, 0xfe0, 0xffc-6) end
|
2017-09-24 14:05:37 +00:00
|
|
|
|
2017-09-29 22:35:59 +00:00
|
|
|
mappers.FE = function(irq)
|
|
|
|
rom1 = location(0xd000, 0xdfff)
|
|
|
|
section{"vectors1", org=0xdffc} dc.w main if irq then dc.w main end
|
2017-09-24 14:05:37 +00:00
|
|
|
location{0xe000, 0xefff, nofill=true}
|
2017-09-29 22:35:59 +00:00
|
|
|
rom0 = location(0xf000, 0xffff)
|
|
|
|
section{"vectors0", org=0xfffc} dc.w main if irq then dc.w main end
|
2017-09-24 14:05:37 +00:00
|
|
|
end
|
|
|
|
|
2017-09-29 22:35:59 +00:00
|
|
|
mappers.E0 = function(map, irq)
|
2017-09-24 14:05:37 +00:00
|
|
|
function switchrom0(i) assert(map[i]==0) bit 0x1fe0+i end
|
|
|
|
function switchrom1(i) assert(map[i]==1) bit 0x1fe8+i end
|
|
|
|
function switchrom2(i) assert(map[i]==2) bit 0x1ff0+i end
|
|
|
|
map[7]=3
|
|
|
|
for bi=0,7 do
|
|
|
|
local o = bi*0x400
|
|
|
|
_ENV["rom"..bi] = location{0xe000+o, 0xe3ff+o, rorg=0xf000+map[bi]*0x400}
|
|
|
|
end
|
|
|
|
section{"switchtab", org=0xffe0} for i=1,8*3 do byte(0) end
|
2017-09-29 22:35:59 +00:00
|
|
|
section{"vectors", org=0xfffc} dc.w main if irq then dc.w main end
|
2017-09-24 14:05:37 +00:00
|
|
|
end
|
|
|
|
|
|
|
|
-- rom0 refers to the last one in ROM, ie the one always mapped to 0xF800-0xFFFF,
|
|
|
|
-- such that changing the rom count does not change its index
|
2017-09-29 22:35:59 +00:00
|
|
|
mappers['3F'] = function(count, irq)
|
2017-09-24 14:05:37 +00:00
|
|
|
function switchrom(i) assert(i>=0 and i<count-1) lda#i sta 0x3f end
|
|
|
|
local symbols=cpu.symbols for k,v in pairs(vcs) do -- remap TIA to 0x40-0x7F
|
|
|
|
if v<0x40 then v=v+0x40 vcs[k]=v symbols[k]=v end
|
|
|
|
end
|
|
|
|
bi=0,count-2 do
|
|
|
|
local o = 0x800*bi + 0x10000
|
|
|
|
_ENV["rom"..(count-1-bi)] = location{o, 0x7ff+o, rorg=0xf000}
|
|
|
|
end
|
|
|
|
local o = 0x800 * (count-1) + 0x10000
|
|
|
|
rom0 = location{o, 0x7ff+o, rorg=0xf800}
|
2017-09-29 22:35:59 +00:00
|
|
|
section{"vectors", org=0xfffc} dc.w main if irq then dc.w main end
|
2017-09-24 14:05:37 +00:00
|
|
|
end
|
|
|
|
|
2017-09-29 22:35:59 +00:00
|
|
|
mappers.E7 = function(irq)
|
2017-09-24 14:05:37 +00:00
|
|
|
function switchrom(i) assert(i>=0 and i<7) bit 0x1fe0+i end
|
|
|
|
function enableram() bit 0x1fe7 end
|
|
|
|
function switchram(i) assert(i>=0 and i<4) bit 0x1fe8+i end
|
|
|
|
for bi=0,6 do
|
|
|
|
local o = bi*0x800
|
|
|
|
_ENV['rom' .. bi] = location{o+0xc000, o+0xc7ff, rorg=0xf000}
|
|
|
|
end
|
|
|
|
rom7 = location{0xf800, 0xffff, rorg=0xf800}
|
|
|
|
section{"switchtab", org=0xffe0} for i=1,12 do byte(0) end
|
2017-09-29 22:35:59 +00:00
|
|
|
section{"vectors", org=0xfffc} dc.w main if irq then dc.w main end
|
2017-09-24 14:05:37 +00:00
|
|
|
end
|
|
|
|
|
2017-09-29 22:35:59 +00:00
|
|
|
mappers.F0 = function(irq)
|
2017-09-24 14:05:37 +00:00
|
|
|
function switchrom() lda 0x1ff0 end
|
|
|
|
for bi=0,15 do
|
|
|
|
local o = bi*0x1000 + 0x1000
|
|
|
|
_ENV['rom' .. bi] = location{o, o+0xfff, rorg=0xf000}
|
2017-09-25 11:20:04 +00:00
|
|
|
local start=section{"entry"..bi, org=o+0xffc-8}
|
2017-09-29 22:35:59 +00:00
|
|
|
local l=label() switchrom() bne l
|
2017-09-24 14:05:37 +00:00
|
|
|
if bi==0 then jmp main end
|
2017-09-25 11:20:04 +00:00
|
|
|
section{"switchtab"..bi, org=o+0xff0} byte(bi)
|
2017-09-29 22:35:59 +00:00
|
|
|
section{"vectors"..bi, org=o+0xffc} dc.w start if irq then dc.w start end
|
2017-09-24 14:05:37 +00:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2017-09-29 22:35:59 +00:00
|
|
|
local bank_stubs2 = function(irq, hotspot0, hotspot1)
|
2017-09-24 14:05:37 +00:00
|
|
|
function switchrom(i)
|
|
|
|
if i==0 then bit hotspot0
|
|
|
|
elseif i==1 then bit hotspot1
|
|
|
|
else error("invalid rom index: " .. i) end
|
|
|
|
end
|
2017-09-29 22:35:59 +00:00
|
|
|
far = far
|
2017-09-24 14:05:37 +00:00
|
|
|
local base = 0xe000
|
|
|
|
for bi=0,1 do
|
|
|
|
local o = base+(bi<<12)
|
|
|
|
_ENV['rom' .. bi] = location{o, o+0xfff, rorg=0xf000}
|
|
|
|
local start=section{"entry"..bi, org=o+0xffc-6} switchrom(0) if bi==0 then jmp main end
|
2017-09-29 22:35:59 +00:00
|
|
|
section{"vectors"..bi, org=o+0xffc} dc.w start if irq then dc.w start end
|
2017-09-24 14:05:37 +00:00
|
|
|
end
|
|
|
|
end
|
2017-09-29 22:35:59 +00:00
|
|
|
mappers.UA = function(irq) bank_stubs2(irq, 0x220, 0x240) end
|
|
|
|
mappers['0840'] = function(irq) bank_stubs2(irq, 0x800, 0x840) end
|
|
|
|
mappers.SB = function(count, irq)
|
2017-09-25 11:20:04 +00:00
|
|
|
function switchrom(i) assert(i>=0 and i<count) bit 0x800+i end
|
2017-09-29 22:35:59 +00:00
|
|
|
far = far
|
2017-09-25 11:20:04 +00:00
|
|
|
for bi=0,count-1 do
|
|
|
|
local o = bi*0x1000 + 0x1000
|
|
|
|
_ENV['rom' .. bi] = location{o, o+0xfff, rorg=0xf000}
|
|
|
|
local start=section{"entry"..bi, org=o+0xffc-6} switchrom(0) if bi==0 then jmp main end
|
2017-09-29 22:35:59 +00:00
|
|
|
section{"vectors"..bi, org=o+0xffc} dc.w start if irq then dc.w start end
|
2017-09-25 11:20:04 +00:00
|
|
|
end
|
|
|
|
end
|
2017-09-24 14:05:37 +00:00
|
|
|
|
2017-09-29 22:35:59 +00:00
|
|
|
mappers['3E'] = function(rom_count, ram_count, irq)
|
|
|
|
mappers['3F'](rom_count, irq)
|
2017-09-24 14:05:37 +00:00
|
|
|
function switchram(i) assert(i>=0 and i<ram_count-1) lda#i sta 0x3E end
|
|
|
|
end
|
2017-09-25 11:20:04 +00:00
|
|
|
|
|
|
|
-- rom0 refers to the last 1k in ROM, which is mapped automatically on reset,
|
|
|
|
-- such that changing the rom count does not change its index
|
2017-09-29 22:35:59 +00:00
|
|
|
mappers.MC = function(rom_count, ram_count, irq)
|
2017-09-25 11:20:04 +00:00
|
|
|
for i=0,3 do
|
|
|
|
_ENV['switchrom'..i] = function(i) assert(i>=0 and i<128) lda#i sta 0x3c+i end
|
|
|
|
_ENV['switchram'..i] = function(i) assert(i>=0 and i<128) lda#i+0x80 sta 0x3c+i end
|
|
|
|
end
|
|
|
|
for bi=0,rom_count-1 do
|
|
|
|
local o = bi*0x400 + 0x1000
|
|
|
|
_ENV["rom"..(count-1-bi)] = location{o, 0x3ff+o, rorg=0xf000+(o&0xfff)}
|
|
|
|
end
|
|
|
|
local start=section("entry") switchrom3(0) jmp main
|
2017-09-29 22:35:59 +00:00
|
|
|
section{"vectors", org=0xfffc} dc.w start if irq then dc.w start end
|
2017-09-25 11:20:04 +00:00
|
|
|
end
|
|
|
|
|
2017-09-29 22:35:59 +00:00
|
|
|
mappers.X07 = function(irq)
|
2017-09-25 11:20:04 +00:00
|
|
|
function switchrom(i) assert(i>=0 and i<16) bit 0x80b+(i<<4) end
|
2017-09-29 22:35:59 +00:00
|
|
|
far = far
|
2017-09-25 11:20:04 +00:00
|
|
|
-- map TIA also to 0x40-0x7F: use VSYNC for bank 14, and VSYNC2 for bank 15
|
|
|
|
vcs.VSYNC2=0x40 cpu.symbols.VSYNC2=0x40
|
|
|
|
for bi=0,count-1 do
|
|
|
|
local o = bi*0x1000 + 0x1000
|
|
|
|
_ENV['rom' .. bi] = location{o, o+0xfff, rorg=0xf000}
|
|
|
|
local start=section{"entry"..bi, org=o+0xffc-6} switchrom(0) if bi==0 then jmp main end
|
2017-09-29 22:35:59 +00:00
|
|
|
section{"vectors"..bi, org=o+0xffc} dc.w start if irq then dc.w start end
|
2017-09-25 11:20:04 +00:00
|
|
|
end
|
|
|
|
end
|