mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-15 04:29:35 +00:00
DHGR.DRV.S.txt:Work in progress....
This commit is contained in:
parent
b4dec5d0ee
commit
382fc8e9b2
@ -38,6 +38,83 @@ L.MSG.DETECT .DA MSG.DETECT
|
|||||||
Dev.Detect >LDYA L.MSG.DETECT
|
Dev.Detect >LDYA L.MSG.DETECT
|
||||||
>SYSCALL SYS.PSTROutYA
|
>SYSCALL SYS.PSTROutYA
|
||||||
|
|
||||||
|
ldx #0
|
||||||
|
|
||||||
|
.1 txa
|
||||||
|
stz Shift0.hi,x
|
||||||
|
asl
|
||||||
|
rol Shift0.hi,x
|
||||||
|
lsr
|
||||||
|
sta Shift0.lo,x
|
||||||
|
inx
|
||||||
|
bne .1
|
||||||
|
|
||||||
|
.2 lda Shift0.hi,x
|
||||||
|
sta Shift1.hi,x
|
||||||
|
lda Shift0.lo,x
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
rol Shift1.hi,x
|
||||||
|
lsr
|
||||||
|
sta Shift1.lo,x
|
||||||
|
inx
|
||||||
|
bne .2
|
||||||
|
|
||||||
|
.3 lda Shift1.hi,x
|
||||||
|
sta Shift2.hi,x
|
||||||
|
lda Shift1.lo,x
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
rol Shift2.hi,x
|
||||||
|
lsr
|
||||||
|
sta Shift2.lo,x
|
||||||
|
inx
|
||||||
|
bne .3
|
||||||
|
|
||||||
|
.4 lda Shift2.hi,x
|
||||||
|
sta Shift3.hi,x
|
||||||
|
lda Shift2.lo,x
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
rol Shift3.hi,x
|
||||||
|
lsr
|
||||||
|
sta Shift3.lo,x
|
||||||
|
inx
|
||||||
|
bne .4
|
||||||
|
|
||||||
|
.5 lda Shift3.hi,x
|
||||||
|
sta Shift4.hi,x
|
||||||
|
lda Shift3.lo,x
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
rol Shift4.hi,x
|
||||||
|
lsr
|
||||||
|
sta Shift4.lo,x
|
||||||
|
inx
|
||||||
|
bne .5
|
||||||
|
|
||||||
|
.6 lda Shift4.hi,x
|
||||||
|
sta Shift5.hi,x
|
||||||
|
lda Shift4.lo,x
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
rol Shift5.hi,x
|
||||||
|
lsr
|
||||||
|
sta Shift5.lo,x
|
||||||
|
inx
|
||||||
|
bne .6
|
||||||
|
|
||||||
|
.7 lda Shift5.hi,x
|
||||||
|
sta Shift6.hi,x
|
||||||
|
lda Shift5.lo,x
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
rol Shift6.hi,x
|
||||||
|
lsr
|
||||||
|
sta Shift6.lo,x
|
||||||
|
inx
|
||||||
|
bne .7
|
||||||
|
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
CS.END
|
CS.END
|
||||||
@ -120,62 +197,6 @@ OPEN ldy #S.DEV.ID
|
|||||||
dex
|
dex
|
||||||
bne .11
|
bne .11
|
||||||
|
|
||||||
ldy #0
|
|
||||||
|
|
||||||
.12 sty CX
|
|
||||||
stz CX+1
|
|
||||||
|
|
||||||
lda CX
|
|
||||||
sta Shift0.lo,y
|
|
||||||
lda CX+1
|
|
||||||
sta Shift0.hi,y
|
|
||||||
|
|
||||||
lsr CX
|
|
||||||
ror CX+1
|
|
||||||
lda CX
|
|
||||||
sta Shift1.lo,y
|
|
||||||
lda CX+1
|
|
||||||
sta Shift1.hi,y
|
|
||||||
|
|
||||||
lsr CX
|
|
||||||
ror CX+1
|
|
||||||
lda CX
|
|
||||||
sta Shift2.lo,y
|
|
||||||
lda CX+1
|
|
||||||
sta Shift2.hi,y
|
|
||||||
|
|
||||||
lsr CX
|
|
||||||
ror CX+1
|
|
||||||
lda CX
|
|
||||||
sta Shift3.lo,y
|
|
||||||
lda CX+1
|
|
||||||
sta Shift3.hi,y
|
|
||||||
|
|
||||||
lsr CX
|
|
||||||
ror CX+1
|
|
||||||
lda CX
|
|
||||||
sta Shift4.lo,y
|
|
||||||
lda CX+1
|
|
||||||
sta Shift4.hi,y
|
|
||||||
|
|
||||||
lsr CX
|
|
||||||
ror CX+1
|
|
||||||
lda CX
|
|
||||||
sta Shift5.lo,y
|
|
||||||
lda CX+1
|
|
||||||
sta Shift5.hi,y
|
|
||||||
|
|
||||||
lsr CX
|
|
||||||
ror CX+1
|
|
||||||
lda CX
|
|
||||||
sta Shift6.lo,y
|
|
||||||
lda CX+1
|
|
||||||
sta Shift6.hi,y
|
|
||||||
|
|
||||||
iny
|
|
||||||
beq .8
|
|
||||||
jmp .12
|
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
@ -444,7 +465,9 @@ BITBLT >STYA ZPBitBlt
|
|||||||
lda (ZPBitBlt)
|
lda (ZPBitBlt)
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
* Y,A = pPoint
|
||||||
|
*--------------------------------------
|
||||||
SETCURPOS >STYA ZPBase
|
SETCURPOS >STYA ZPBase
|
||||||
|
|
||||||
ldy #3
|
ldy #3
|
||||||
@ -460,6 +483,8 @@ SETCURPOS >STYA ZPBase
|
|||||||
.2 clc
|
.2 clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
* Y,A = pCur
|
||||||
|
*--------------------------------------
|
||||||
SETCUR >STYA ZPBase
|
SETCUR >STYA ZPBase
|
||||||
ldy #S.CUR-1
|
ldy #S.CUR-1
|
||||||
.1 lda (ZPBase),y
|
.1 lda (ZPBase),y
|
||||||
@ -644,6 +669,9 @@ DEVINFO.MODES .DA #%10000011 XOR,16 & B/W
|
|||||||
DEVINFO.W .DA 560 X.SIZE
|
DEVINFO.W .DA 560 X.SIZE
|
||||||
DEVINFO.H .DA 192 Y.SIZE
|
DEVINFO.H .DA 192 Y.SIZE
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
.LIST ON
|
||||||
|
DRV.SIZE .EQ *-DRV.CS.START
|
||||||
|
.LIST OFF
|
||||||
MAN
|
MAN
|
||||||
SAVE DRV/DHGR.DRV.S
|
SAVE DRV/DHGR.DRV.S
|
||||||
ASM
|
ASM
|
||||||
|
Loading…
Reference in New Issue
Block a user