Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-11 12:29:35 +00:00
Code Issues Projects Releases Wiki Activity

DHGR.DRV.S.txt:Work in progress....

Browse Source
This commit is contained in:
Rémy GIBERT 2016-06-21 17:29:27 +02:00
parent b4dec5d0ee
commit 382fc8e9b2
1 changed files with 85 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

142
DRV/DHGR.DRV.S.txt
View File

@ -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