Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-10 23:29:02 +00:00
Code Issues Projects Releases Wiki Activity

implemented asm for rol2 array values

Browse Source
This commit is contained in:
Irmen de Jong 2020-04-03 21:17:52 +02:00
parent be7f5957f3
commit 4274fd168e
2 changed files with 64 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
compiler/res/prog8lib/prog8lib.asm
View File

@ -1801,14 +1801,6 @@ rol2_mem_ub .proc
rts
.pend
lsl_array_b .proc
.warn "lsl_array_b" ; TODO
.pend
lsl_array_w .proc
.warn "lsl_array_w" ; TODO
.pend
lsr_array_ub .proc
; -- lsr a ubyte in an array (index and array address on stack)
inx
@ -1919,6 +1911,22 @@ ror2_array_ub .proc
rts
.pend
rol2_array_ub .proc
; -- rol2 (8-bit rol) a ubyte in an array (index and array address on stack)
inx
ldy c64.ESTACK_LO,x
inx
lda c64.ESTACK_LO,x
sta c64.SCRATCH_ZPWORD1
lda c64.ESTACK_HI,x
sta c64.SCRATCH_ZPWORD1+1
lda (c64.SCRATCH_ZPWORD1),y
cmp #$80
rol a
sta (c64.SCRATCH_ZPWORD1),y
rts
.pend
ror_array_uw .proc
; -- ror a uword in an array (index and array address on stack)
php
@ -1943,6 +1951,32 @@ ror_array_uw .proc
rts
.pend
rol2_array_uw .proc
; -- rol2 (16-bit rol) a uword in an array (index and array address on stack)
inx
lda c64.ESTACK_LO,x
asl a
tay
inx
lda c64.ESTACK_LO,x
sta c64.SCRATCH_ZPWORD1
lda c64.ESTACK_HI,x
sta c64.SCRATCH_ZPWORD1+1
lda (c64.SCRATCH_ZPWORD1),y
asl a
sta (c64.SCRATCH_ZPWORD1),y
iny
lda (c64.SCRATCH_ZPWORD1),y
rol a
sta (c64.SCRATCH_ZPWORD1),y
bcc +
dey
lda (c64.SCRATCH_ZPWORD1),y
adc #0
sta (c64.SCRATCH_ZPWORD1),y
+ rts
.pend
ror2_array_uw .proc
; -- ror2 (16-bit ror) a uword in an array (index and array address on stack)
inx
@ -1970,6 +2004,14 @@ ror2_array_uw .proc
+ rts
.pend
lsl_array_b .proc
.warn "lsl_array_b" ; TODO
.pend
lsl_array_w .proc
.warn "lsl_array_w" ; TODO
.pend
rol_array_ub .proc
.warn "rol_array_ub" ; TODO
.pend
@ -1977,12 +2019,3 @@ rol_array_ub .proc
rol_array_uw .proc
.warn "rol_array_uw" ; TODO
.pend
rol2_array_ub .proc
.warn "rol2_array_ub" ; TODO
.pend
rol2_array_uw .proc
.warn "rol2_array_uw" ; TODO
.pend

30
examples/arithmetic/bitshift.p8
View File

@ -17,27 +17,27 @@ main {
sub unimplemented() {
ubyte xx
uword xxx
ror2(xx)
ror2(xxx)
rol(xx)
rol(xxx)
c64scr.print_ubbin(ubarray[1], false)
c64.CHROUT('\n')
ror2(ubarray[1])
rol(ubarray[1])
c64scr.print_ubbin(ubarray[1], false)
c64.CHROUT('\n')
ror2(ubarray[1])
rol(ubarray[1])
c64scr.print_ubbin(ubarray[1], false)
c64.CHROUT('\n')
ror2(ubarray[1])
rol(ubarray[1])
c64scr.print_ubbin(ubarray[1], false)
c64.CHROUT('\n')
ror2(ubarray[1])
rol(ubarray[1])
c64scr.print_ubbin(ubarray[1], false)
c64.CHROUT('\n')
ror2(ubarray[1])
rol(ubarray[1])
c64scr.print_ubbin(ubarray[1], false)
c64.CHROUT('\n')
ror2(ubarray[1])
rol(ubarray[1])
c64scr.print_ubbin(ubarray[1], false)
c64.CHROUT('\n')
c64.CHROUT('\n')
@ -66,22 +66,22 @@ main {
c64scr.print_uwbin(uwarray[1] as uword, false)
c64.CHROUT('\n')
ror2(uwarray[1])
rol(uwarray[1])
c64scr.print_uwbin(uwarray[1] as uword, false)
c64.CHROUT('\n')
ror2(uwarray[1])
rol(uwarray[1])
c64scr.print_uwbin(uwarray[1] as uword, false)
c64.CHROUT('\n')
ror2(uwarray[1])
rol(uwarray[1])
c64scr.print_uwbin(uwarray[1] as uword, false)
c64.CHROUT('\n')
ror2(uwarray[1])
rol(uwarray[1])
c64scr.print_uwbin(uwarray[1] as uword, false)
c64.CHROUT('\n')
ror2(uwarray[1])
rol(uwarray[1])
c64scr.print_uwbin(uwarray[1] as uword, false)
c64.CHROUT('\n')
ror2(uwarray[1])
rol(uwarray[1])
c64scr.print_uwbin(uwarray[1] as uword, false)
c64.CHROUT('\n')
c64.CHROUT('\n')
@ -110,12 +110,10 @@ main {
; lsl(ubarray[1])
; rol(ubarray[1])
; rol2(ubarray[1])
; lsl(bbarray[1])
;
; lsl(uwarray[1])
; rol(uwarray[1])
; rol2(uwarray[1])
; lsl(wwarray[1])
}