jepler/ccgmsterm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

removed IBSOUT/IGETIN hooks

Browse source
This commit is contained in:
Michael Steil 2022-02-17 23:03:12 +01:00
parent fb9beb6958
commit e767b88fa8
3 changed files with 0 additions and 103 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
src/rs232_swiftlink.s
View file

@ -137,16 +137,6 @@ sm18 lda sw_ctrl
ora swbaud,x
sm19 sta sw_ctrl
lda #<swiftlink_bsout
ldx #>swiftlink_bsout
sta $0326 ; IBSOUT
stx $0327
lda #<swiftlink_getin
ldx #>swiftlink_getin
sta $032a ; IGETIN
stx $032b
lda #<nmisw
ldx #>nmisw
sta $0318 ; NMINV
@ -157,16 +147,6 @@ sm19 sta sw_ctrl
rts
;----------------------------------------------------------------------
; new BSOUT
swiftlink_bsout:
pha ; dupliciaton of original kernal routines
lda DFLTO ; test dfault output device for
cmp #2 ; screen, and...
beq :+
pla ; if so, go back to original rom routines
jmp oldout
: pla
sw_putxfer:
sta rsotm
stx rsotx
@ -198,20 +178,6 @@ sm24 sta sw_cmd
sm25 sta sw_cmd
rts
;----------------------------------------------------------------------
; new GETIN
swiftlink_getin:
lda DFLTN
cmp #2 ; see if default input is modem
jne ogetin ; nope, go back to original
jsr sw_getxfer
bcs :+ ; if no character, then return 0 in a
rts
: clc
lda #0
rts
;----------------------------------------------------------------------
; get byte from serial interface
sw_getxfer:

34
src/rs232_up9600.s
View file

@ -84,16 +84,6 @@ up9600_setup:
jsr setbaudup
lda #<up9600_bsout
ldx #>up9600_bsout
sta $0326
stx $0327
lda #<up9600_getin
ldx #>up9600_getin
sta $032a
stx $032b
;----------------------------------------------------------------------
; enable serial interface (IRQ+NMI)
up9600_enable:
@ -216,20 +206,6 @@ setbaudup:
sta rcvtim
rts
;----------------------------------------------------------------------
; new GETIN
up9600_getin:
lda DFLTN
cmp #2 ; see if default input is modem
jne ogetin ; nope, go back to original
jsr up9600_getxfer
bcs :+ ; if no character, then return 0 in a
rts
: clc
lda #0
rts
;----------------------------------------------------------------------
; get byte from serial interface
up9600_getxfer:
@ -253,16 +229,6 @@ up9600_getxfer:
@skip: rts
;----------------------------------------------------------------------
; new BSOUT
up9600_bsout:
pha ;dupliciaton of original kernal routines
lda DFLTO ;test dfault output device for
cmp #2 ;screen, and...
beq :+
pla ;if so, go back to original rom routines
jmp oldout
: pla
up9600_putxfer:
sta rsotm
stx rsotx

35
src/rs232_userport.s
View file

@ -24,16 +24,6 @@ rsuser_setup:
sta $0318 ; NMINV
sty $0319
lda #<rsuser_bsout
ldx #>rsuser_bsout
sta $0326 ; IBSOUT
stx $0327
lda #<rsuser_getin
ldx #>rsuser_getin
sta $032a ; IGETIN
stx $032b
cli
jmp clear232
@ -54,20 +44,6 @@ isbyte:
lastring: ; [XXX unused]
.byte 0
;----------------------------------------------------------------------
; new GETIN
rsuser_getin:
lda DFLTN
cmp #2 ; see if default input is modem
jne ogetin ; nope, go back to original
jsr rsuser_getxfer
bcs :+ ; if no character, then return 0 in a
rts
: clc
lda #0
rts
;----------------------------------------------------------------------
; get byte from serial interface
rsuser_getxfer:
@ -189,14 +165,6 @@ endbyte lda #0
jmp rsuser_disable
;----------------------------------------------------------------------
; new BSOUT
rsuser_bsout:
pha
lda DFLTO
cmp #2
bne notmod
pla
rsuser_putxfer:
sta rsotm
stx rsotx
@ -236,9 +204,6 @@ ret1 clc
lda rsotm
rts
notmod pla
jmp oldout
;----------------------------------------------------------------------
; disable rs232 input
rsuser_disable: