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
|
||||
>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
|
||||
rts
|
||||
CS.END
|
||||
@ -120,62 +197,6 @@ OPEN ldy #S.DEV.ID
|
||||
dex
|
||||
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
|
||||
rts
|
||||
*--------------------------------------
|
||||
@ -444,7 +465,9 @@ BITBLT >STYA ZPBitBlt
|
||||
lda (ZPBitBlt)
|
||||
clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
*--------------------------------------
|
||||
* Y,A = pPoint
|
||||
*--------------------------------------
|
||||
SETCURPOS >STYA ZPBase
|
||||
|
||||
ldy #3
|
||||
@ -460,6 +483,8 @@ SETCURPOS >STYA ZPBase
|
||||
.2 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
* Y,A = pCur
|
||||
*--------------------------------------
|
||||
SETCUR >STYA ZPBase
|
||||
ldy #S.CUR-1
|
||||
.1 lda (ZPBase),y
|
||||
@ -644,6 +669,9 @@ DEVINFO.MODES .DA #%10000011 XOR,16 & B/W
|
||||
DEVINFO.W .DA 560 X.SIZE
|
||||
DEVINFO.H .DA 192 Y.SIZE
|
||||
*--------------------------------------
|
||||
.LIST ON
|
||||
DRV.SIZE .EQ *-DRV.CS.START
|
||||
.LIST OFF
|
||||
MAN
|
||||
SAVE DRV/DHGR.DRV.S
|
||||
ASM
|
||||
|
Loading…
Reference in New Issue
Block a user