2015-03-14 21:48:35 +00:00
|
|
|
|
PR#3
|
|
|
|
|
PREFIX /DATA/A2OSX
|
|
|
|
|
NEW
|
|
|
|
|
INC 1
|
|
|
|
|
AUTO 6
|
|
|
|
|
.LIST OFF
|
|
|
|
|
.OP 65C02
|
|
|
|
|
.OR $2000
|
|
|
|
|
.TF DRV/CONSOLE.DRV
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.INB INC/MACROS.I
|
|
|
|
|
.INB INC/A2OSX.I
|
|
|
|
|
.INB INC/IO.I
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
ZPBASL1 .EQ ZPDRV
|
|
|
|
|
ZPBASL2 .EQ ZPDRV+2
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* Main DRV entry point
|
|
|
|
|
* input :
|
|
|
|
|
* X = CMD
|
|
|
|
|
* 0 : OPEN
|
|
|
|
|
* 2 : GETEVENT
|
|
|
|
|
* 6 : OUT
|
|
|
|
|
* 8 : CLOSE
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* CLD $D8
|
|
|
|
|
* JMP (*,x) $7C
|
|
|
|
|
* #JMPTABLE
|
|
|
|
|
* /JMPTABLE
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CURSOR.BLINK.SPEED .EQ 2
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.START cld
|
|
|
|
|
jmp (.1,x)
|
|
|
|
|
.1 .DA OPEN
|
|
|
|
|
.DA GETEVENT
|
|
|
|
|
.DA OUT
|
|
|
|
|
.DA CLOSE
|
|
|
|
|
.DA GETINFO
|
|
|
|
|
.DA 0 end or relocation
|
|
|
|
|
.DA CS.END-CS.START Code Length To Relocate
|
|
|
|
|
.DA 0 Data Segemnt to Allocate
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
OPEN stz CURON
|
|
|
|
|
lda #$80
|
|
|
|
|
sta INVFLG
|
|
|
|
|
|
|
|
|
|
jsr HOME
|
|
|
|
|
|
|
|
|
|
lda #S.DEV.F.CHAR+S.DEV.F.EVENT+S.DEV.F.OUT
|
|
|
|
|
sta (pDevContext)
|
|
|
|
|
|
|
|
|
|
ldy #S.DEV.NAME
|
|
|
|
|
ldx #0
|
|
|
|
|
.1 lda DEVNAME,x
|
|
|
|
|
sta (pDevContext),y
|
|
|
|
|
cpx DEVNAME
|
|
|
|
|
beq .8
|
|
|
|
|
inx
|
|
|
|
|
iny
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
.8 lda A2osX.SCREENS
|
|
|
|
|
ora #A2osX.SCREENS.C
|
|
|
|
|
sta A2osX.SCREENS
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
GETEVENT >PULLW pEvent
|
|
|
|
|
lda A2osX.TIMER16
|
|
|
|
|
and #CURSOR.BLINK.SPEED
|
|
|
|
|
eor CURON
|
|
|
|
|
beq .9
|
|
|
|
|
jsr CURBLNK
|
|
|
|
|
|
|
|
|
|
.9 lda #0 Error = no event
|
|
|
|
|
sec
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
OUT >PULLA
|
|
|
|
|
jsr COUT
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CLOSE lda A2osX.SCREENS
|
|
|
|
|
and #$FF^A2osX.SCREENS.C
|
|
|
|
|
sta A2osX.SCREENS
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
GETINFO clc
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* PRIVATE
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
COUT cmp #8
|
|
|
|
|
bne .2
|
|
|
|
|
ldx CH
|
|
|
|
|
beq .10
|
|
|
|
|
dec CH
|
|
|
|
|
bra .12
|
|
|
|
|
|
|
|
|
|
.10 ldy CV
|
|
|
|
|
bne .11
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.11 lda #79
|
|
|
|
|
sta CH
|
|
|
|
|
dec CV
|
|
|
|
|
|
|
|
|
|
.12 lda #$A0
|
|
|
|
|
ldx CH
|
|
|
|
|
ldy CV
|
|
|
|
|
jsr SetCharAtXY
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.2 cmp #13
|
|
|
|
|
beq CROUT
|
|
|
|
|
ldx CH
|
|
|
|
|
ldy CV
|
|
|
|
|
jsr SetCharAtXY
|
|
|
|
|
FSOUT ldx CH
|
|
|
|
|
cpx #79
|
|
|
|
|
beq CROUT1
|
|
|
|
|
inc CH
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CROUT jsr CLREOL
|
|
|
|
|
CROUT1 stz CH
|
|
|
|
|
ldy CV
|
|
|
|
|
cpy #23
|
|
|
|
|
beq SCROLL.UP
|
|
|
|
|
inc CV
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
SCROLL.UP ldx #0
|
|
|
|
|
sta SET80STORE
|
|
|
|
|
|
|
|
|
|
.1 lda BASEL,x
|
|
|
|
|
sta ZPBASL1
|
|
|
|
|
lda BASEH,x
|
|
|
|
|
sta ZPBASL1+1
|
|
|
|
|
inx
|
|
|
|
|
lda BASEL,x
|
|
|
|
|
sta ZPBASL2
|
|
|
|
|
lda BASEH,x
|
|
|
|
|
sta ZPBASL2+1
|
|
|
|
|
|
|
|
|
|
ldy #39
|
|
|
|
|
sta SETPAGE2
|
|
|
|
|
|
|
|
|
|
.2 lda (ZPBASL2),y
|
|
|
|
|
sta (ZPBASL1),y
|
|
|
|
|
dey
|
|
|
|
|
bpl .2
|
|
|
|
|
|
|
|
|
|
ldy #39
|
|
|
|
|
sta CLRPAGE2
|
|
|
|
|
|
|
|
|
|
.3 lda (ZPBASL2),y
|
|
|
|
|
sta (ZPBASL1),y
|
|
|
|
|
dey
|
|
|
|
|
bpl .3
|
|
|
|
|
|
|
|
|
|
cpx #23
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CLREOL ldx CH
|
|
|
|
|
.1 phx
|
|
|
|
|
ldy CV
|
|
|
|
|
lda #$A0
|
|
|
|
|
jsr SetCharAtXY
|
|
|
|
|
plx
|
|
|
|
|
inx
|
|
|
|
|
cpx #80
|
|
|
|
|
bne .1
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
HOME stz CH
|
|
|
|
|
stz CV
|
|
|
|
|
|
|
|
|
|
lda RDPAGE2
|
|
|
|
|
pha
|
|
|
|
|
lda RD80STORE
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
sta SET80STORE
|
|
|
|
|
|
|
|
|
|
ldx #23
|
|
|
|
|
|
|
|
|
|
.1 lda BASEL,x
|
|
|
|
|
sta ZPBASL1
|
|
|
|
|
lda BASEH,x
|
|
|
|
|
sta ZPBASL1+1
|
|
|
|
|
|
|
|
|
|
lda #' '
|
|
|
|
|
ora INVFLG
|
|
|
|
|
|
|
|
|
|
sta CLRPAGE2
|
|
|
|
|
ldy #39
|
|
|
|
|
|
|
|
|
|
.2 sta (ZPBASL1),y
|
|
|
|
|
dey
|
|
|
|
|
bpl .2
|
|
|
|
|
|
|
|
|
|
sta SETPAGE2
|
|
|
|
|
ldy #39
|
|
|
|
|
|
|
|
|
|
.3 sta (ZPBASL1),y
|
|
|
|
|
dey
|
|
|
|
|
bpl .3
|
|
|
|
|
|
|
|
|
|
dex
|
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
bmi .4
|
|
|
|
|
sta CLR80STORE
|
|
|
|
|
bra .5
|
|
|
|
|
.4 sta SET80STORE
|
|
|
|
|
|
|
|
|
|
.5 pla
|
|
|
|
|
bmi .6
|
|
|
|
|
sta CLRPAGE2
|
|
|
|
|
bra .8
|
|
|
|
|
.6 sta SETPAGE2
|
|
|
|
|
|
|
|
|
|
.8 rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CUROFF lda CURON
|
|
|
|
|
beq CUREXIT.RTS
|
|
|
|
|
|
|
|
|
|
CURBLNK lda A2osX.ACTIVESCRN
|
|
|
|
|
and #A2osX.SCREENS.C
|
|
|
|
|
bne CURBLNK1
|
|
|
|
|
|
|
|
|
|
lda CURON
|
|
|
|
|
bne CURBLNK.OFF
|
|
|
|
|
rts do not Light if screen is not active
|
|
|
|
|
|
|
|
|
|
CURBLNK1 lda CURON
|
|
|
|
|
bne CURBLNK.OFF
|
|
|
|
|
ldx CH
|
|
|
|
|
ldy CV
|
|
|
|
|
jsr GetCharAtXY
|
|
|
|
|
sta CURCHAR
|
|
|
|
|
ldx CH
|
|
|
|
|
ldy CV
|
|
|
|
|
lda #$20
|
|
|
|
|
jsr SetCharAtXY
|
|
|
|
|
bra CUREXIT
|
|
|
|
|
|
|
|
|
|
CURBLNK.OFF ldx CH
|
|
|
|
|
ldy CV
|
|
|
|
|
lda CURCHAR
|
|
|
|
|
jsr SetCharAtXY
|
|
|
|
|
|
|
|
|
|
CUREXIT lda CURON
|
|
|
|
|
eor #CURSOR.BLINK.SPEED
|
|
|
|
|
sta CURON
|
|
|
|
|
CUREXIT.RTS rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
SetCharAtXY pha
|
|
|
|
|
lda RDPAGE2
|
|
|
|
|
pha
|
|
|
|
|
lda RD80STORE
|
|
|
|
|
pha
|
|
|
|
|
sta SET80STORE
|
|
|
|
|
txa
|
|
|
|
|
lsr
|
|
|
|
|
|
|
|
|
|
bcc .1
|
|
|
|
|
clc
|
|
|
|
|
sta CLRPAGE2
|
|
|
|
|
bra .2
|
|
|
|
|
.1 sta SETPAGE2
|
|
|
|
|
|
|
|
|
|
.2 adc BASEL,y
|
|
|
|
|
sta ZPBASL1
|
|
|
|
|
lda BASEH,y
|
|
|
|
|
sta ZPBASL1+1
|
|
|
|
|
|
|
|
|
|
ply
|
|
|
|
|
plx
|
|
|
|
|
pla
|
|
|
|
|
sta (ZPBASL1)
|
|
|
|
|
tya
|
|
|
|
|
bmi .3
|
|
|
|
|
sta CLR80STORE
|
|
|
|
|
.3 txa
|
|
|
|
|
bpl .4
|
|
|
|
|
sta SETPAGE2
|
|
|
|
|
rts
|
|
|
|
|
.4 sta CLRPAGE2
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
GetCharAtXY sta SET80STORE
|
|
|
|
|
txa
|
|
|
|
|
lsr
|
|
|
|
|
|
|
|
|
|
bcc .1
|
|
|
|
|
clc
|
|
|
|
|
sta CLRPAGE2
|
|
|
|
|
bra .2
|
|
|
|
|
.1 sta SETPAGE2
|
|
|
|
|
|
|
|
|
|
.2 adc BASEL,y
|
|
|
|
|
sta ZPBASL1
|
|
|
|
|
lda BASEH,y
|
|
|
|
|
sta ZPBASL1+1
|
|
|
|
|
|
|
|
|
|
lda (ZPBASL1)
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.END
|
|
|
|
|
DEVNAME >PSTRING "CON"
|
|
|
|
|
CH .BS 1
|
|
|
|
|
CV .BS 1
|
|
|
|
|
INVFLG .BS 1
|
|
|
|
|
CURON .BS 1
|
|
|
|
|
CURCHAR .BS 1
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
BASEL .HS 00.80.00.80.00.80.00.80.28.A8.28.A8.28.A8.28.A8.50.D0.50.D0.50.D0.50.D0
|
|
|
|
|
BASEH .HS 04.04.05.05.06.06.07.07.04.04.05.05.06.06.07.07.04.04.05.05.06.06.07.07
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
|
|
|
|
SAVE DRV/CONSOLE.DRV.S
|
|
|
|
|
ASM
|