478 lines
5.8 KiB
ArmAsm
478 lines
5.8 KiB
ArmAsm
|
|
lst off
|
|
rel
|
|
xc
|
|
xc
|
|
|
|
tbx on ; qasm
|
|
|
|
mx %11
|
|
use vt.equ
|
|
use apple2gs.equ
|
|
use debug
|
|
|
|
ext scroll_down
|
|
ext recalc_cursor,recalc_cursor_x,recalc_cursor_y
|
|
ext modem_io,modem_vector,reset_modem_buffer
|
|
ext modem_startup,modem_shutdown
|
|
ext keypress
|
|
ext disable_cursor,enable_cursor,cursor_vector
|
|
ext erase_screen,fill_screen
|
|
ext init_tabs
|
|
ext init_audio
|
|
ext cda_startup,cda_shutdown
|
|
|
|
main debug main
|
|
|
|
clc
|
|
xce
|
|
cli
|
|
|
|
pea DPAGE
|
|
pld
|
|
|
|
jsr init
|
|
jsr enable_cursor
|
|
|
|
|
|
lda #4
|
|
tsb VGCINT ; enable 1-sec interrupt.
|
|
stz SCANINT ; reset 1-sec interrupt
|
|
|
|
|
|
loop
|
|
jsr keypress ; check for a keypress, write data to out buffer.
|
|
jsr modem_io ;
|
|
bcc :nope
|
|
pha
|
|
jsr disable_cursor
|
|
pla
|
|
jsr vt100
|
|
bra loop
|
|
|
|
:nope ; no modem data, re-enable the cursor.
|
|
jsr enable_cursor
|
|
bra loop
|
|
|
|
init
|
|
mx %11
|
|
|
|
lda #" "
|
|
jsr fill_screen ; erase first to prevent flash if going 40->80 columns.
|
|
|
|
sta TXTSET
|
|
sta SET80VID
|
|
sta SETALTCHAR
|
|
rep #$30
|
|
|
|
jsr init_mem
|
|
|
|
|
|
ldx #254
|
|
:zloop stz 0,x
|
|
dex
|
|
dex
|
|
bpl :zloop
|
|
|
|
lda #$0400
|
|
sta cursor_base
|
|
lda #$01
|
|
sta cursor_base+2
|
|
|
|
lda #" " ; 16-bit
|
|
sta erase_char
|
|
|
|
|
|
|
|
lda #$0080
|
|
sta cursor_state
|
|
|
|
sei
|
|
lda cursor_vector
|
|
stal IRQ1SEC
|
|
lda cursor_vector+2
|
|
stal IRQ1SEC+2
|
|
|
|
lda modem_vector
|
|
stal IRQSERIAL
|
|
lda modem_vector+2
|
|
stal IRQSERIAL+2
|
|
|
|
cli
|
|
|
|
lda #0 ; clear high byte
|
|
|
|
sep #$30
|
|
|
|
lda #"_"
|
|
sta cursor_char
|
|
|
|
|
|
lda #23
|
|
sta DECBM
|
|
lda #$80
|
|
* sta LOCAL
|
|
sta DECANM ; ANSI (vt100) on
|
|
sta DECARM ; key repeat on
|
|
|
|
* lda #st_vt52
|
|
lda #st_vt100
|
|
sta state
|
|
|
|
* jsr erase_screen
|
|
jsr modem_startup
|
|
jsr init_tabs
|
|
jsr init_audio
|
|
jsr cda_startup
|
|
rts
|
|
|
|
|
|
MasterID dw 0
|
|
init_mem
|
|
*
|
|
* see prodos technote #27
|
|
*
|
|
* _InstallCDA uses the memory manager ; otherwise I wouldn't bother
|
|
* This is here to prevent MM from stomping on our memory.
|
|
*
|
|
|
|
mx %00
|
|
|
|
stz MasterID
|
|
_TLStartUp
|
|
pha
|
|
_MMStartUp
|
|
pla
|
|
bcs :p8
|
|
rts
|
|
:p8
|
|
_MTStartUp
|
|
pea #0
|
|
pea #$1000
|
|
_GetNewID
|
|
pla
|
|
sta MasterID
|
|
|
|
* bank 0
|
|
pha
|
|
pha
|
|
pea #$0000
|
|
pea #$b800
|
|
lda MasterID
|
|
pha
|
|
pea #$c013
|
|
pea #0000
|
|
pea #0800
|
|
_NewHandle
|
|
pla
|
|
pla
|
|
|
|
* bank 1
|
|
pha
|
|
pha
|
|
pea #$0000
|
|
pea #$b800
|
|
lda MasterID
|
|
pha
|
|
pea #$c013
|
|
pea #$0001
|
|
pea #$0800
|
|
_NewHandle
|
|
pla
|
|
pla
|
|
|
|
rts
|
|
|
|
|
|
reset ent
|
|
mx %11
|
|
php
|
|
|
|
* disable 1-sec interrupt...
|
|
|
|
lda #4
|
|
trb VGCINT ; disable 1-sec interrupt.
|
|
stz SCANINT ; reset 1-sec interrupt
|
|
|
|
|
|
lda #" "
|
|
jsr fill_screen ; erase first to prevent flash if going 40->80 columns.
|
|
|
|
rep #$30
|
|
|
|
ldx #254
|
|
:zloop stz 0,x
|
|
dex
|
|
dex
|
|
bpl :zloop
|
|
|
|
lda #$0400
|
|
sta cursor_base
|
|
lda #$01
|
|
sta cursor_base+2
|
|
|
|
lda #" " ; 16-bit
|
|
sta erase_char
|
|
|
|
|
|
lda #$0080
|
|
sta cursor_state
|
|
|
|
lda #0 ; clear high byte
|
|
|
|
sep #$30
|
|
|
|
lda #"_"
|
|
sta cursor_char
|
|
|
|
|
|
lda #23
|
|
sta DECBM
|
|
lda #$80
|
|
sta DECANM ; ansi mode
|
|
sta DECARM ; key repeat on
|
|
|
|
lda #st_vt100
|
|
sta state
|
|
|
|
jsr init_tabs
|
|
* jsr enable_cursor
|
|
|
|
jsr reset_modem_buffer
|
|
|
|
lda #4
|
|
tsb VGCINT ; enable 1-sec interrupt.
|
|
stz SCANINT ; reset 1-sec interrupt
|
|
|
|
plp
|
|
rts
|
|
|
|
|
|
quit ent
|
|
|
|
* need to disable modem interrupts
|
|
|
|
|
|
sep #$30
|
|
lda #4
|
|
trb VGCINT ; disable 1-sec interrupt.
|
|
stz SCANINT ; reset 1-sec interrupt
|
|
|
|
jsr modem_shutdown
|
|
|
|
rep #$30
|
|
|
|
jsr cda_shutdown
|
|
|
|
lda MasterID
|
|
beq :e
|
|
|
|
pha
|
|
pha
|
|
_DisposeAll
|
|
_DeleteID
|
|
|
|
:e
|
|
pea #0
|
|
pld
|
|
|
|
sec
|
|
xce
|
|
mx %00
|
|
inc $3f4 ; invalidate power-up bit
|
|
jsr $bf00
|
|
db $65
|
|
dw :parms
|
|
brk $ea
|
|
|
|
:parms db 4
|
|
db 0
|
|
dw 0
|
|
db 0
|
|
dw 0
|
|
|
|
|
|
*dispatch ent
|
|
* mx %11
|
|
** a = character to xmit
|
|
* bit LOCAL
|
|
* bmi :local
|
|
* jmp write_modem
|
|
*:local
|
|
* pha
|
|
* jsr disable_cursor
|
|
* pla
|
|
|
|
* fall through
|
|
|
|
vt100
|
|
mx %11
|
|
and #$7f
|
|
cmp #' '
|
|
bcs :notctrl
|
|
asl
|
|
tax
|
|
jmp (:ctrl_table,x)
|
|
:notctrl
|
|
ldx state
|
|
jmp (:state_table,x)
|
|
|
|
|
|
|
|
:state_table
|
|
ext vt52_esc,vt52_dca
|
|
ext vt100_esc,vt100_csi,vt100_csi_2
|
|
ext vt100_esc_pound,vt100_esc_lparen,vt100_esc_rparen
|
|
ext vt100_esc_bad,vt100_csi_bad
|
|
ext draw_char,draw_char_raw
|
|
|
|
dw draw_char
|
|
dw vt52_esc
|
|
dw vt52_dca
|
|
dw draw_char
|
|
dw vt100_esc
|
|
dw vt100_csi
|
|
dw vt100_csi_2
|
|
dw vt100_esc_pound
|
|
dw vt100_esc_lparen
|
|
dw vt100_esc_rparen
|
|
dw vt100_esc_bad
|
|
dw vt100_csi_bad
|
|
|
|
|
|
:ctrl_table
|
|
dw ctrl_00,ctrl_01,ctrl_02,ctrl_03
|
|
dw ctrl_04,ctrl_05,ctrl_06,ctrl_07
|
|
dw ctrl_08,ctrl_09,ctrl_0a,ctrl_0b
|
|
dw ctrl_0c,ctrl_0d,ctrl_0e,ctrl_0f
|
|
dw ctrl_10,ctrl_11,ctrl_12,ctrl_13
|
|
dw ctrl_14,ctrl_15,ctrl_16,ctrl_17
|
|
dw ctrl_18,ctrl_19,ctrl_1a,ctrl_1b
|
|
dw ctrl_1c,ctrl_1d,ctrl_1e,ctrl_1f
|
|
|
|
|
|
|
|
ctrl_00
|
|
ctrl_01
|
|
ctrl_02
|
|
ctrl_03
|
|
ctrl_04
|
|
ctrl_05 ; answer ENQ
|
|
ctrl_06
|
|
ctrl_0e ; G1 character set
|
|
ctrl_0f ; G0 character set
|
|
ctrl_10
|
|
ctrl_11 ; XON
|
|
ctrl_12
|
|
ctrl_13 ; XOFF
|
|
ctrl_14
|
|
ctrl_15
|
|
ctrl_16
|
|
ctrl_17
|
|
ctrl_19
|
|
ctrl_1c
|
|
ctrl_1d
|
|
ctrl_1e
|
|
ctrl_1f
|
|
rts
|
|
|
|
|
|
ctrl_07 ; ring the bell.
|
|
ext beep
|
|
jmp beep
|
|
|
|
ctrl_1b ; escape -
|
|
* vt100 - aborts current escape sequence and starts a new one.
|
|
* vt52 - esc esc aborts and starts new
|
|
* vt50 - esc esc aborts
|
|
bit DECANM
|
|
bpl :vt52
|
|
lda #st_vt100_esc
|
|
sta state
|
|
rts
|
|
|
|
:vt52
|
|
lda #st_vt52_esc
|
|
sta state
|
|
rts
|
|
|
|
ctrl_18
|
|
ctrl_1a
|
|
* vt100 - abort current escape sequence
|
|
* and display error character.
|
|
*
|
|
* based on testing, this applies to vt52 and vt100;
|
|
* cancel character is drawn regardless of current state.
|
|
|
|
lda x
|
|
and #$1
|
|
ora #$56 ; $56 or $57
|
|
* lda #$57
|
|
jsr draw_char_raw
|
|
|
|
bit DECANM
|
|
bpl :vt52
|
|
lda #st_vt100
|
|
sta state
|
|
rts
|
|
|
|
:vt52
|
|
lda #st_vt52
|
|
sta state
|
|
rts
|
|
|
|
ctrl_08 ; back space
|
|
lda x
|
|
beq :rts
|
|
and #$7f
|
|
dec
|
|
sta x
|
|
jmp recalc_cursor_x
|
|
:rts rts
|
|
|
|
ctrl_09 ; tab
|
|
* vt100 has adjustable tabs.
|
|
ext next_tab_stop
|
|
ldx x
|
|
bmi :rts
|
|
jsr next_tab_stop
|
|
stx x
|
|
jmp recalc_cursor_x
|
|
:rts rts
|
|
|
|
ctrl_0a ; line feed - cursor down w/ scroll
|
|
ctrl_0b ; vertical tab
|
|
ctrl_0c ; form feed.
|
|
|
|
* if LNM is active, equivalent to CR, LF
|
|
|
|
bit #LNM
|
|
bpl :lf
|
|
stz x
|
|
jsr recalc_cursor_x
|
|
|
|
:lf
|
|
lda y
|
|
cmp DECBM
|
|
bne :simple
|
|
|
|
* lda #" " ; needs to factor in reverse video
|
|
* sta cursor_saved_char
|
|
jmp scroll_down
|
|
* if LNM mode, need to update cursor as well.
|
|
|
|
:simple
|
|
cmp #23
|
|
beq :rts
|
|
inc y
|
|
jmp recalc_cursor_y
|
|
|
|
:rts rts
|
|
|
|
ctrl_0d ; carriage return - cursor to column 0.
|
|
stz x
|
|
jmp recalc_cursor_x
|
|
|
|
|
|
sav vt100.main.L
|