2015-03-14 21:48:35 +00:00
|
|
|
|
PR#3
|
2015-06-03 18:30:57 +00:00
|
|
|
|
PREFIX /A2OSX.SRC
|
2015-03-14 21:48:35 +00:00
|
|
|
|
NEW
|
|
|
|
|
INC 1
|
|
|
|
|
AUTO 6
|
|
|
|
|
.LIST OFF
|
|
|
|
|
*--------------------------------------
|
2016-09-21 15:20:37 +00:00
|
|
|
|
* K.GetDevByIDA
|
2015-03-14 21:48:35 +00:00
|
|
|
|
* IN:
|
|
|
|
|
* A = DevID
|
|
|
|
|
* OUT:
|
|
|
|
|
* CC = OK, CS = ERROR
|
|
|
|
|
* Y,A = devslot
|
|
|
|
|
* X Unmodified
|
|
|
|
|
*--------------------------------------
|
2016-09-21 15:20:37 +00:00
|
|
|
|
K.GetDevByIDA cmp DevMgr.LastDevID
|
2015-06-03 18:30:57 +00:00
|
|
|
|
beq .1
|
2016-09-21 15:20:37 +00:00
|
|
|
|
bcs K.GetDevDNF
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2016-09-29 15:30:15 +00:00
|
|
|
|
.1 pha save ID
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
|
|
|
|
asl
|
|
|
|
|
asl
|
|
|
|
|
asl
|
|
|
|
|
asl
|
|
|
|
|
adc #DevMgr.Table
|
|
|
|
|
tay
|
2016-09-29 15:30:15 +00:00
|
|
|
|
pla
|
|
|
|
|
php
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
plp
|
2015-06-03 18:30:57 +00:00
|
|
|
|
adc /DevMgr.Table
|
|
|
|
|
rts CC
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
* GetDevIDByNameA
|
|
|
|
|
* IN:
|
|
|
|
|
* A = hPStr
|
|
|
|
|
* OUT:
|
|
|
|
|
* CC = OK, CS = ERROR
|
2015-06-03 18:30:57 +00:00
|
|
|
|
* X = DEVID
|
|
|
|
|
* Y,A = pDev
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*--------------------------------------
|
2016-09-21 15:20:37 +00:00
|
|
|
|
K.GetDevByNameYA
|
2015-03-14 21:48:35 +00:00
|
|
|
|
>STYA ZPQuickPtr1
|
2015-06-03 18:30:57 +00:00
|
|
|
|
>LDYAI DevMgr.Table+S.DEV.NAME
|
|
|
|
|
>STYA ZPQuickPtr2
|
2015-03-14 21:48:35 +00:00
|
|
|
|
|
2015-06-03 18:30:57 +00:00
|
|
|
|
ldx #0
|
|
|
|
|
|
2016-06-23 15:56:13 +00:00
|
|
|
|
.1 ldy #0
|
|
|
|
|
|
2015-03-14 21:48:35 +00:00
|
|
|
|
.2 lda (ZPQuickPtr1),y
|
|
|
|
|
cmp (ZPQuickPtr2),y
|
|
|
|
|
bne .3
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2016-06-23 15:56:13 +00:00
|
|
|
|
tya
|
|
|
|
|
iny
|
|
|
|
|
cmp (ZPQuickPtr1)
|
2015-03-14 21:48:35 +00:00
|
|
|
|
bne .2
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
|
|
|
|
lda ZPQuickPtr2
|
|
|
|
|
sec
|
|
|
|
|
sbc #S.DEV.NAME
|
|
|
|
|
tay
|
|
|
|
|
lda ZPQuickPtr2+1
|
|
|
|
|
sbc /S.DEV.NAME
|
2015-03-14 21:48:35 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
|
|
|
|
.3 lda ZPQuickPtr2
|
2015-03-14 21:48:35 +00:00
|
|
|
|
clc
|
|
|
|
|
adc #S.DEV.SIZE
|
2015-06-03 18:30:57 +00:00
|
|
|
|
sta ZPQuickPtr2
|
|
|
|
|
bcc .4
|
|
|
|
|
|
|
|
|
|
inc ZPQuickPtr2+1
|
|
|
|
|
|
|
|
|
|
.4 cpx DevMgr.LastDevID
|
|
|
|
|
inx
|
|
|
|
|
bcc .1
|
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
K.GetDevDNF lda #DEVMGR.ERRDNF
|
2015-03-14 21:48:35 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2016-09-21 15:20:37 +00:00
|
|
|
|
K.GetDevInfoA jsr K.GetDevByIDA
|
|
|
|
|
bcs K.GetDevDNF
|
2016-02-24 19:52:24 +00:00
|
|
|
|
>STYA ZPQuickPtr1
|
|
|
|
|
ldx #DEVMGR.GETINFO
|
2016-08-18 15:26:11 +00:00
|
|
|
|
jmp (ZPQuickPtr1)
|
2016-02-24 19:52:24 +00:00
|
|
|
|
*--------------------------------------
|
2016-09-29 15:30:15 +00:00
|
|
|
|
DevMgr.Count .EQ 2
|
2015-11-22 22:30:06 +00:00
|
|
|
|
DevMgr.SYS.BASL0 .EQ $800
|
2015-10-19 20:35:00 +00:00
|
|
|
|
*--------------------------------------
|
2016-09-29 15:30:15 +00:00
|
|
|
|
DevMgr.Free .BS 2
|
|
|
|
|
DevMgr.DevID .BS 1
|
|
|
|
|
DevMgr.LastDevID .DA #DevMgr.Count-1
|
2015-06-03 18:30:57 +00:00
|
|
|
|
*--------------------------------------
|
2016-06-07 06:10:18 +00:00
|
|
|
|
DevMgr.NUL.Code .DA DevMgr.Unsup OPEN
|
|
|
|
|
.DA DevMgr.Unsup GETEVENT
|
2015-06-03 18:30:57 +00:00
|
|
|
|
.DA .8 COUT
|
2016-06-07 06:10:18 +00:00
|
|
|
|
.DA DevMgr.Unsup CLOSE
|
|
|
|
|
.DA DevMgr.Unsup GETINFO
|
|
|
|
|
.DA DevMgr.Unsup IRQ
|
|
|
|
|
.DA DevMgr.Unsup SELECT
|
2015-06-03 18:30:57 +00:00
|
|
|
|
.8 clc
|
|
|
|
|
rts
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*--------------------------------------
|
2015-11-22 22:30:06 +00:00
|
|
|
|
DevMgr.SYS.Code .DA DevMgr.SYS.Open
|
2015-11-10 21:47:57 +00:00
|
|
|
|
.DA DevMgr.SYS.GetEvent
|
2015-11-22 22:30:06 +00:00
|
|
|
|
.DA DevMgr.SYS.COut
|
2016-06-07 06:10:18 +00:00
|
|
|
|
.DA DevMgr.Unsup CLOSE
|
|
|
|
|
.DA DevMgr.Unsup GETINFO
|
|
|
|
|
.DA DevMgr.Unsup IRQ
|
|
|
|
|
.DA DevMgr.SYS.Select
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
DevMgr.Unsup lda #DEVMGR.ERRUNSUP
|
|
|
|
|
sec
|
2015-06-03 18:30:57 +00:00
|
|
|
|
rts
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*--------------------------------------
|
2015-11-22 22:30:06 +00:00
|
|
|
|
DevMgr.SYS.Open stz DevMgr.SYS.CPULOADI
|
|
|
|
|
stz DevMgr.SYS.CH
|
|
|
|
|
stz DevMgr.SYS.CV
|
|
|
|
|
|
|
|
|
|
ldx #0
|
|
|
|
|
|
|
|
|
|
ldy #0
|
|
|
|
|
.1 lda DevMgr.SYS.TITLE,y
|
|
|
|
|
beq .2
|
|
|
|
|
|
|
|
|
|
jsr DevMgr.SYS.SetCharAtYX
|
|
|
|
|
iny
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
.2 lda #$20
|
|
|
|
|
jsr DevMgr.SYS.SetCharAtYX
|
|
|
|
|
iny
|
|
|
|
|
cpy #80
|
|
|
|
|
bne .2
|
|
|
|
|
|
|
|
|
|
jsr DevMgr.SYS.Home
|
|
|
|
|
|
2016-06-07 06:10:18 +00:00
|
|
|
|
lda #1
|
|
|
|
|
sta A2osX.SCRNDEVS+1
|
|
|
|
|
|
|
|
|
|
jsr DevMgr.SYS.Select
|
2015-11-22 22:30:06 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2015-11-10 21:47:57 +00:00
|
|
|
|
DevMgr.SYS.GetEvent
|
|
|
|
|
lda A2osX.ASCREEN
|
2016-06-07 06:10:18 +00:00
|
|
|
|
cmp #2 is SYS active?
|
|
|
|
|
bne .9
|
2015-11-10 21:47:57 +00:00
|
|
|
|
|
2015-11-22 22:30:06 +00:00
|
|
|
|
ldx DevMgr.SYS.CPULOADI
|
|
|
|
|
lda DevMgr.SYS.CPULOADC,x
|
|
|
|
|
sta DevMgr.SYS.BASL0+38
|
2016-06-07 06:10:18 +00:00
|
|
|
|
dex
|
2015-11-22 22:30:06 +00:00
|
|
|
|
bpl .1
|
2016-06-07 06:10:18 +00:00
|
|
|
|
ldx #3
|
|
|
|
|
.1 stx DevMgr.SYS.CPULOADI
|
2015-11-22 22:30:06 +00:00
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
jsr K.GetKeyboardEvent
|
2015-11-10 21:47:57 +00:00
|
|
|
|
bcs .9
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.9 lda #0 Error = no event
|
|
|
|
|
sec
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2015-11-22 22:30:06 +00:00
|
|
|
|
DevMgr.SYS.COut phx
|
|
|
|
|
phy
|
2015-12-13 21:29:51 +00:00
|
|
|
|
cmp #' '
|
|
|
|
|
bcc .1
|
|
|
|
|
ldy DevMgr.SYS.CH
|
2015-11-22 22:30:06 +00:00
|
|
|
|
ldx DevMgr.SYS.CV
|
|
|
|
|
ora #$80
|
|
|
|
|
jsr DevMgr.SYS.SetCharAtYX
|
|
|
|
|
jsr DevMgr.SYS.FSOut
|
2015-12-13 21:29:51 +00:00
|
|
|
|
bra .8
|
|
|
|
|
|
|
|
|
|
.1 cmp #10
|
|
|
|
|
bne .2
|
|
|
|
|
jsr DevMgr.SYS.LF
|
|
|
|
|
bra .8
|
|
|
|
|
|
|
|
|
|
.2 cmp #13
|
|
|
|
|
bne .3
|
|
|
|
|
jsr DevMgr.SYS.CROut
|
|
|
|
|
bra .8
|
|
|
|
|
|
|
|
|
|
.3 ora #$20
|
|
|
|
|
jsr DevMgr.SYS.SetCharAtYX
|
|
|
|
|
jsr DevMgr.SYS.FSOut
|
|
|
|
|
|
|
|
|
|
.8 ply
|
2015-11-22 22:30:06 +00:00
|
|
|
|
plx
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2016-06-07 06:10:18 +00:00
|
|
|
|
DevMgr.SYS.Select
|
|
|
|
|
sta SETTEXT
|
|
|
|
|
sta SETALTCHAR
|
|
|
|
|
sta SET80DISP
|
|
|
|
|
sta CLR80STORE
|
|
|
|
|
sta SETPAGE2
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2015-11-22 22:30:06 +00:00
|
|
|
|
DevMgr.SYS.FSOut
|
|
|
|
|
lda DevMgr.SYS.CH
|
|
|
|
|
cmp #79
|
2015-12-13 21:29:51 +00:00
|
|
|
|
beq DevMgr.SYS.LF1
|
2015-11-22 22:30:06 +00:00
|
|
|
|
inc DevMgr.SYS.CH
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
DevMgr.SYS.CROut
|
|
|
|
|
jsr DevMgr.SYS.ClrEOL
|
|
|
|
|
stz DevMgr.SYS.CH
|
2015-12-13 21:29:51 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
DevMgr.SYS.LF1 stz DevMgr.SYS.CH
|
|
|
|
|
DevMgr.SYS.LF ldx DevMgr.SYS.CV
|
2015-11-22 22:30:06 +00:00
|
|
|
|
cpx #23
|
|
|
|
|
beq DevMgr.SYS.Scroll
|
|
|
|
|
inc DevMgr.SYS.CV
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
DevMgr.SYS.ClrEOL
|
|
|
|
|
ldx DevMgr.SYS.CV
|
|
|
|
|
lda #$A0
|
|
|
|
|
ldy DevMgr.SYS.CH
|
|
|
|
|
.1 cpy #79
|
|
|
|
|
beq .2
|
|
|
|
|
jsr DevMgr.SYS.SetCharAtYX
|
|
|
|
|
iny
|
|
|
|
|
bne .1
|
|
|
|
|
.2 rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
DevMgr.SYS.Scroll
|
|
|
|
|
ldx #1
|
|
|
|
|
.1 lda DevMgr.SYS.BASEL,x
|
|
|
|
|
sta ZPDRV
|
|
|
|
|
lda DevMgr.SYS.BASEH,x
|
|
|
|
|
sta ZPDRV+1
|
|
|
|
|
inx
|
|
|
|
|
lda DevMgr.SYS.BASEL,x
|
|
|
|
|
sta ZPDRV+2
|
|
|
|
|
lda DevMgr.SYS.BASEH,x
|
|
|
|
|
sta ZPDRV+3
|
|
|
|
|
|
|
|
|
|
ldy #39
|
|
|
|
|
sta SETWRITEAUX
|
|
|
|
|
sta SETREADAUX
|
|
|
|
|
.2 lda (ZPDRV+2),y
|
|
|
|
|
sta (ZPDRV),y
|
|
|
|
|
dey
|
|
|
|
|
bpl .2
|
|
|
|
|
|
|
|
|
|
ldy #39
|
|
|
|
|
sta CLRWRITEAUX
|
|
|
|
|
sta CLRREADAUX
|
|
|
|
|
.3 lda (ZPDRV+2),y
|
|
|
|
|
sta (ZPDRV),y
|
|
|
|
|
dey
|
|
|
|
|
bpl .3
|
|
|
|
|
|
|
|
|
|
cpx #23
|
2016-06-23 15:56:13 +00:00
|
|
|
|
bne .1 Fall in ClrLineAtX for last line
|
2015-11-22 22:30:06 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
DevMgr.SYS.ClrLineAtX
|
|
|
|
|
lda DevMgr.SYS.BASEL,x
|
|
|
|
|
sta ZPDRV
|
|
|
|
|
lda DevMgr.SYS.BASEH,x
|
|
|
|
|
sta ZPDRV+1
|
|
|
|
|
|
|
|
|
|
lda #$A0
|
|
|
|
|
|
|
|
|
|
ldy #39
|
2016-06-23 15:56:13 +00:00
|
|
|
|
|
|
|
|
|
.1 sta SETWRITEAUX
|
|
|
|
|
sta (ZPDRV),y
|
2015-11-22 22:30:06 +00:00
|
|
|
|
sta CLRWRITEAUX
|
2016-06-23 15:56:13 +00:00
|
|
|
|
sta (ZPDRV),y
|
2015-11-22 22:30:06 +00:00
|
|
|
|
dey
|
2016-06-23 15:56:13 +00:00
|
|
|
|
bpl .1
|
2015-11-22 22:30:06 +00:00
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
DevMgr.SYS.Home ldx #23
|
|
|
|
|
|
|
|
|
|
.1 jsr DevMgr.SYS.ClrLineAtX
|
|
|
|
|
dex
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
stz DevMgr.SYS.CH
|
|
|
|
|
lda #1
|
|
|
|
|
sta DevMgr.SYS.CV
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
DevMgr.SYS.SetCharAtYX
|
|
|
|
|
cmp #$40
|
|
|
|
|
bcc .1
|
|
|
|
|
cmp #$5F
|
|
|
|
|
bcs .1
|
|
|
|
|
and #$3F
|
|
|
|
|
|
|
|
|
|
.1 phy
|
|
|
|
|
pha
|
|
|
|
|
lda DevMgr.SYS.BASEL,x
|
|
|
|
|
sta ZPDRV
|
|
|
|
|
lda DevMgr.SYS.BASEH,x
|
|
|
|
|
sta ZPDRV+1
|
|
|
|
|
tya
|
|
|
|
|
lsr
|
|
|
|
|
tay
|
|
|
|
|
bcs .2
|
|
|
|
|
sta SETWRITEAUX
|
|
|
|
|
|
|
|
|
|
.2 pla
|
|
|
|
|
sta (ZPDRV),y
|
|
|
|
|
sta CLRWRITEAUX
|
|
|
|
|
ply
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
DevMgr.SYS.CH .BS 1
|
|
|
|
|
DevMgr.SYS.CV .BS 1
|
|
|
|
|
DevMgr.SYS.CPULOADI .BS 1
|
|
|
|
|
DevMgr.SYS.CPULOADC .AS -"|/-\"
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
DevMgr.SYS.TITLE >CSTRING "A2osX System Screen"
|
|
|
|
|
DevMgr.SYS.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
|
|
|
|
|
DevMgr.SYS.BASEH .HS 08.08.09.09.0A.0A.0B.0B.08.08.09.09.0A.0A.0B.0B.08.08.09.09.0A.0A.0B.0B
|
2016-06-23 15:56:13 +00:00
|
|
|
|
*--------------------------------------
|
2016-09-29 15:30:15 +00:00
|
|
|
|
DevMgr.LoMem .EQ *
|
2015-03-14 21:48:35 +00:00
|
|
|
|
MAN
|
|
|
|
|
SAVE SYS/KERNEL.S.DEV
|
|
|
|
|
LOAD SYS/KERNEL.S
|
|
|
|
|
ASM
|