From 382fc8e9b21269c8283a89fae05c3d510db9ae38 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=A9my=20GIBERT?= Date: Tue, 21 Jun 2016 17:29:27 +0200 Subject: [PATCH] DHGR.DRV.S.txt:Work in progress.... --- DRV/DHGR.DRV.S.txt | 142 +++++++++++++++++++++++++++------------------ 1 file changed, 85 insertions(+), 57 deletions(-) diff --git a/DRV/DHGR.DRV.S.txt b/DRV/DHGR.DRV.S.txt index a77f833d..712716b1 100644 --- a/DRV/DHGR.DRV.S.txt +++ b/DRV/DHGR.DRV.S.txt @@ -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