mirror of https://github.com/mgcaret/of816.git
283 lines
6.2 KiB
ArmAsm
283 lines
6.2 KiB
ArmAsm
; Platform support library for GoSXB
|
|
|
|
.define platform_dict 1
|
|
|
|
cpu_clk = 8000000
|
|
|
|
.enum ACIA
|
|
RXD
|
|
SR
|
|
CMD
|
|
CTL
|
|
TXD = RXD
|
|
.endenum
|
|
|
|
ACIA1 = $7F80
|
|
|
|
.enum PIA
|
|
PIA
|
|
CRA
|
|
PIB
|
|
CRB
|
|
DDRA = PIA
|
|
DDRB = PIB
|
|
.endenum
|
|
|
|
PIA1 = $7FA0
|
|
|
|
.enum VIA
|
|
ORB
|
|
ORA
|
|
DDRB
|
|
DDRA
|
|
T1C_L
|
|
T1C_H
|
|
T1L_L
|
|
T1L_H
|
|
T2C_L
|
|
T2C_H
|
|
SR
|
|
ACR
|
|
PCR
|
|
IFR
|
|
IER
|
|
ORA2
|
|
IRB = ORB
|
|
IRA = ORA
|
|
.endenum
|
|
|
|
VIA1 = $7FC0
|
|
VIA2 = $7FE0
|
|
|
|
|
|
.if platform_dict
|
|
dstart "gosxb"
|
|
dchain H_FORTH ; Make branch off the word FORTH
|
|
|
|
dword GOSXB_TEST,"TEST"
|
|
ENTER
|
|
SLIT "Success?"
|
|
.dword TYPE
|
|
EXIT
|
|
eword
|
|
|
|
dend
|
|
.endif
|
|
|
|
.proc _system_interface
|
|
;wdm 3
|
|
phx
|
|
asl
|
|
tax
|
|
jmp (.loword(table),x)
|
|
table: .addr _sf_pre_init
|
|
.addr _sf_post_init
|
|
.addr _sf_emit
|
|
.addr _sf_keyq
|
|
.addr _sf_key
|
|
.addr _sf_fcode
|
|
.addr _sf_reset_all
|
|
.endproc
|
|
.export _system_interface
|
|
|
|
.proc _sf_success
|
|
lda #$0000
|
|
tay
|
|
clc
|
|
rtl
|
|
.endproc
|
|
|
|
.proc _sf_fail
|
|
ldy #.loword(-21)
|
|
lda #.hiword(-21)
|
|
sec
|
|
rtl
|
|
.endproc
|
|
|
|
|
|
.proc _sf_pre_init
|
|
.if 0
|
|
plx
|
|
jmp _sf_success ; assume WDC monitor already did it
|
|
.else
|
|
; set up TIDE interface, the same way WDC does it
|
|
php
|
|
sep #SHORT_A|SHORT_I
|
|
.a8
|
|
.i8
|
|
lda #$00
|
|
sta f:VIA2+VIA::ACR
|
|
sta f:VIA2+VIA::PCR
|
|
lda #%00011000 ; b3 = TUSB_RDB; b4 = ???
|
|
sta f:VIA2+VIA::ORB
|
|
lda #%00011100 ; set PB2, PB3, PB4 as outputs
|
|
sta f:VIA2+VIA::DDRB
|
|
lda #$00
|
|
sta VIA2+VIA::DDRA
|
|
lda VIA2+VIA::IRB
|
|
pha
|
|
and #%11101111 ; b4 = ???
|
|
sta f:VIA2+VIA::ORB
|
|
ldx #$5d
|
|
jsr wait
|
|
pla
|
|
sta f:VIA2+VIA::ORB
|
|
: lda f:VIA2+VIA::IRB ; wait for USB configuration
|
|
bit #%00100000 ; b5 = TUSB_PWRENB
|
|
bne :-
|
|
plp
|
|
plx
|
|
jmp _sf_success
|
|
wait: phx ; note 8-bit mode!
|
|
ldx #$00
|
|
: dex
|
|
bne :-
|
|
plx
|
|
dex
|
|
bne wait
|
|
rts
|
|
.a16
|
|
.i16
|
|
.endif
|
|
.endproc
|
|
|
|
.proc _sf_post_init
|
|
plx
|
|
.if platform_dict
|
|
; Here we make a vocabulary definition for the gosxb dictionary
|
|
; that we defined at the beginning of this file.
|
|
ENTER
|
|
ONLIT LAST_gosxb
|
|
SLIT "GOSXB"
|
|
.dword dVOCAB
|
|
.dword LAST ; now set the head of the vocabulary to the
|
|
.dword drXT ; last word defined in the neon816 dictionary
|
|
.dword rBODY
|
|
.dword STORE
|
|
CODE
|
|
.endif
|
|
jmp _sf_success
|
|
.endproc
|
|
|
|
.proc _sf_emit
|
|
plx
|
|
jsr _popay
|
|
phx
|
|
php
|
|
sep #SHORT_A|SHORT_I
|
|
.a8
|
|
.i8
|
|
lda #$00 ; ensure VIA2 DDR A is set up for input
|
|
sta f:VIA2+VIA::DDRA
|
|
tya
|
|
sta f:VIA2+VIA::ORA ; set output byte to be sent
|
|
: lda f:VIA2+VIA::IRB ; wait for FT245RL to be ready to transmit
|
|
bit #%00000001 ; b0 = TUSB_TXEB
|
|
bne :-
|
|
lda f:VIA2+VIA::IRB
|
|
and #%11111011 ; b2 = TUSB_WR
|
|
tax
|
|
ora #%00000100
|
|
sta f:VIA2+VIA::ORB ; ensure FT245RL WR high
|
|
lda #$ff ; set up DDR A for output
|
|
sta f:VIA2+VIA::DDRA ; to present byte to send
|
|
nop ; delay a few cycles
|
|
txa
|
|
sta f:VIA2+VIA::ORB ; strobe FT245RL WR low
|
|
lda VIA2+VIA::IRA ; get output byte back (we don't really need it)
|
|
xba
|
|
lda #$00
|
|
sta f:VIA2+VIA::DDRA ; switch DDR A back to input
|
|
xba
|
|
plp
|
|
.a16
|
|
.i16
|
|
plx
|
|
jmp _sf_success
|
|
.endproc
|
|
|
|
.proc _sf_keyq
|
|
lda #$00
|
|
tay ; anticipate false
|
|
php
|
|
sep #SHORT_A
|
|
.a8
|
|
sta f:VIA2+VIA::DDRA
|
|
lda f:VIA2+VIA::IRB
|
|
bit #%00000010
|
|
bne :+
|
|
dey ; from $0000 to $FFFF
|
|
: plp
|
|
.a16
|
|
tya
|
|
plx
|
|
jsr _pushay
|
|
jmp _sf_success
|
|
.endproc
|
|
|
|
.proc _sf_key
|
|
php
|
|
tay
|
|
sep #SHORT_A|SHORT_I
|
|
.a8
|
|
.i8
|
|
lda #$00
|
|
sta f:VIA2+VIA::DDRA ; Ensure VIA2 DDR A is set up for input
|
|
: wdm $10 ; cause emulator to sleep if no data ready
|
|
lda f:VIA2+VIA::IRB ; wait for FT245RL to have data & be ready
|
|
bit #%00000010 ; b1 = TUSB_RXFB
|
|
bne :-
|
|
lda f:VIA2+VIA::IRB
|
|
ora #%00001000 ;b3 = TUSB_RDB
|
|
tax
|
|
and #%11110111
|
|
sta f:VIA2+VIA::ORB ; strobe FT245RL RD# low
|
|
nop ;delay some cycles
|
|
nop
|
|
nop
|
|
nop
|
|
lda f:VIA2+VIA::IRA ; receive byte
|
|
tay
|
|
txa
|
|
sta f:VIA2+VIA::ORB ; strobe FT245RL RD# high
|
|
plp
|
|
.a16
|
|
.i16
|
|
lda #$0000
|
|
plx
|
|
jsr _pushay
|
|
jmp _sf_success
|
|
.endproc
|
|
|
|
.proc _sf_fcode
|
|
.if include_fcode
|
|
ldy #.loword(list)
|
|
lda #.hiword(list)
|
|
.else
|
|
lda #$0000
|
|
tay
|
|
.endif
|
|
plx
|
|
jsr _pushay
|
|
jmp _sf_success
|
|
.if include_fcode
|
|
list:
|
|
.dword romfs
|
|
.dword 0
|
|
.endif
|
|
|
|
.endproc
|
|
|
|
.if include_fcode
|
|
.proc romfs
|
|
.incbin "fcode/romfs.fc"
|
|
.endproc
|
|
.endif
|
|
|
|
; SXB really can't do this when ROM is banked out. Maybe restart Forth instead?
|
|
.proc _sf_reset_all
|
|
plx
|
|
jmp _sf_fail
|
|
.endproc
|
|
|