mirror of https://github.com/mgcaret/of816.git
54 lines
747 B
Forth
54 lines
747 B
Forth
\ W65C816SXB hardware support
|
|
|
|
start1 hex
|
|
|
|
." W65C816SXB hardware support by M.G. "
|
|
|
|
external
|
|
|
|
7F80 value ACIA
|
|
7FA0 value PIA
|
|
7FC0 value VIA1
|
|
7FE0 value VIA2
|
|
|
|
struct
|
|
0 field ACIA>RXD
|
|
1 field ACIA>TXD
|
|
1 field ACIA>SR
|
|
1 field ACIA>CMD
|
|
1 field ACIA>CTL
|
|
endstruct drop
|
|
|
|
struct
|
|
0 field PIA>PIA
|
|
1 field PIA>DDRA
|
|
1 field PIA>CRA
|
|
0 field PIA>PIB
|
|
1 field PIA>DDRB
|
|
1 field PIA>CRB
|
|
endstruct drop
|
|
|
|
struct
|
|
0 field VIA>ORB
|
|
1 field VIA>IRB
|
|
0 field VIA>ORA
|
|
1 field VIA>IRA
|
|
1 field VIA>DDRB
|
|
1 field VIA>DDRA
|
|
2 field VIA>T1C
|
|
2 field VIA>T1L
|
|
2 field VIA>T2C
|
|
1 field VIA>SR
|
|
1 field VIA>ACR
|
|
1 field VIA>PCR
|
|
1 field VIA>IFR
|
|
1 field VIA>IER
|
|
0 field VIA>ORAN
|
|
1 field VIA>IRAN
|
|
endstruct drop
|
|
|
|
." loaded!"
|
|
|
|
fcode-end
|
|
|