2017-09-09 00:01:16 +00:00
|
|
|
-- set cpu to 6502
|
|
|
|
|
cpu = require "6502"
|
|
|
|
|
cpu.__index = cpu
|
|
|
|
|
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-09 00:01:16 +00:00
|
|
|
-- TIA read on,ly
|
|
|
|
|
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
|
|
|
|
|
for k,v in pairs(vcs) do
|
|
|
|
|
_ENV[k] = v
|
|
|
|
|
symbols[k] = v
|
|
|
|
|
end
|
|
|
|
|
end
|
