mirror of
https://github.com/irmen/prog8.git
synced 2024-10-19 07:23:56 +00:00
implemented asm for rol2 array values
This commit is contained in:
parent
be7f5957f3
commit
4274fd168e
@ -1801,14 +1801,6 @@ rol2_mem_ub .proc
|
|||||||
rts
|
rts
|
||||||
.pend
|
.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_array_ub .proc
|
||||||
; -- lsr a ubyte in an array (index and array address on stack)
|
; -- lsr a ubyte in an array (index and array address on stack)
|
||||||
inx
|
inx
|
||||||
@ -1919,6 +1911,22 @@ ror2_array_ub .proc
|
|||||||
rts
|
rts
|
||||||
.pend
|
.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_array_uw .proc
|
||||||
; -- ror a uword in an array (index and array address on stack)
|
; -- ror a uword in an array (index and array address on stack)
|
||||||
php
|
php
|
||||||
@ -1943,6 +1951,32 @@ ror_array_uw .proc
|
|||||||
rts
|
rts
|
||||||
.pend
|
.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_array_uw .proc
|
||||||
; -- ror2 (16-bit ror) a uword in an array (index and array address on stack)
|
; -- ror2 (16-bit ror) a uword in an array (index and array address on stack)
|
||||||
inx
|
inx
|
||||||
@ -1970,6 +2004,14 @@ ror2_array_uw .proc
|
|||||||
+ rts
|
+ rts
|
||||||
.pend
|
.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
|
rol_array_ub .proc
|
||||||
.warn "rol_array_ub" ; TODO
|
.warn "rol_array_ub" ; TODO
|
||||||
.pend
|
.pend
|
||||||
@ -1977,12 +2019,3 @@ rol_array_ub .proc
|
|||||||
rol_array_uw .proc
|
rol_array_uw .proc
|
||||||
.warn "rol_array_uw" ; TODO
|
.warn "rol_array_uw" ; TODO
|
||||||
.pend
|
.pend
|
||||||
|
|
||||||
rol2_array_ub .proc
|
|
||||||
.warn "rol2_array_ub" ; TODO
|
|
||||||
.pend
|
|
||||||
|
|
||||||
rol2_array_uw .proc
|
|
||||||
.warn "rol2_array_uw" ; TODO
|
|
||||||
.pend
|
|
||||||
|
|
||||||
|
@ -17,27 +17,27 @@ main {
|
|||||||
sub unimplemented() {
|
sub unimplemented() {
|
||||||
ubyte xx
|
ubyte xx
|
||||||
uword xxx
|
uword xxx
|
||||||
ror2(xx)
|
rol(xx)
|
||||||
ror2(xxx)
|
rol(xxx)
|
||||||
|
|
||||||
c64scr.print_ubbin(ubarray[1], false)
|
c64scr.print_ubbin(ubarray[1], false)
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
ror2(ubarray[1])
|
rol(ubarray[1])
|
||||||
c64scr.print_ubbin(ubarray[1], false)
|
c64scr.print_ubbin(ubarray[1], false)
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
ror2(ubarray[1])
|
rol(ubarray[1])
|
||||||
c64scr.print_ubbin(ubarray[1], false)
|
c64scr.print_ubbin(ubarray[1], false)
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
ror2(ubarray[1])
|
rol(ubarray[1])
|
||||||
c64scr.print_ubbin(ubarray[1], false)
|
c64scr.print_ubbin(ubarray[1], false)
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
ror2(ubarray[1])
|
rol(ubarray[1])
|
||||||
c64scr.print_ubbin(ubarray[1], false)
|
c64scr.print_ubbin(ubarray[1], false)
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
ror2(ubarray[1])
|
rol(ubarray[1])
|
||||||
c64scr.print_ubbin(ubarray[1], false)
|
c64scr.print_ubbin(ubarray[1], false)
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
ror2(ubarray[1])
|
rol(ubarray[1])
|
||||||
c64scr.print_ubbin(ubarray[1], false)
|
c64scr.print_ubbin(ubarray[1], false)
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
@ -66,22 +66,22 @@ main {
|
|||||||
|
|
||||||
c64scr.print_uwbin(uwarray[1] as uword, false)
|
c64scr.print_uwbin(uwarray[1] as uword, false)
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
ror2(uwarray[1])
|
rol(uwarray[1])
|
||||||
c64scr.print_uwbin(uwarray[1] as uword, false)
|
c64scr.print_uwbin(uwarray[1] as uword, false)
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
ror2(uwarray[1])
|
rol(uwarray[1])
|
||||||
c64scr.print_uwbin(uwarray[1] as uword, false)
|
c64scr.print_uwbin(uwarray[1] as uword, false)
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
ror2(uwarray[1])
|
rol(uwarray[1])
|
||||||
c64scr.print_uwbin(uwarray[1] as uword, false)
|
c64scr.print_uwbin(uwarray[1] as uword, false)
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
ror2(uwarray[1])
|
rol(uwarray[1])
|
||||||
c64scr.print_uwbin(uwarray[1] as uword, false)
|
c64scr.print_uwbin(uwarray[1] as uword, false)
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
ror2(uwarray[1])
|
rol(uwarray[1])
|
||||||
c64scr.print_uwbin(uwarray[1] as uword, false)
|
c64scr.print_uwbin(uwarray[1] as uword, false)
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
ror2(uwarray[1])
|
rol(uwarray[1])
|
||||||
c64scr.print_uwbin(uwarray[1] as uword, false)
|
c64scr.print_uwbin(uwarray[1] as uword, false)
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
c64.CHROUT('\n')
|
c64.CHROUT('\n')
|
||||||
@ -110,12 +110,10 @@ main {
|
|||||||
|
|
||||||
; lsl(ubarray[1])
|
; lsl(ubarray[1])
|
||||||
; rol(ubarray[1])
|
; rol(ubarray[1])
|
||||||
; rol2(ubarray[1])
|
|
||||||
; lsl(bbarray[1])
|
; lsl(bbarray[1])
|
||||||
;
|
;
|
||||||
; lsl(uwarray[1])
|
; lsl(uwarray[1])
|
||||||
; rol(uwarray[1])
|
; rol(uwarray[1])
|
||||||
; rol2(uwarray[1])
|
|
||||||
; lsl(wwarray[1])
|
; lsl(wwarray[1])
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user