Stacken/c64-livecoding
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add user procedures bitor, shiftleft, and shiftright

Browse source
This commit is contained in:
John Lorentzson 2025-07-31 23:21:46 +02:00
parent 5c3bccd48d
commit 4cddb13ba8
1 changed files with 32 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
host/src/mainloop.s
View file

@ -76,6 +76,38 @@ ml:
rts rts
.endproc .endproc
.proc bitor ; user-procedure
lda ARGVEC+0
ora ARGVEC+1
rts
.endproc
.proc shiftleft ; user-procedure
lda ARGVEC+0
ldx ARGVEC+1
@loop:
cpx #$00
beq @done
asl
dex
jmp @loop
@done:
rts
.endproc
.proc shiftright ; user-procedure
lda ARGVEC+0
ldx ARGVEC+1
@loop:
cpx #$00
beq @done
lsr
dex
jmp @loop
@done:
rts
.endproc
FRAMECOUNT: .byte 0 FRAMECOUNT: .byte 0
FIRSTTIME: .byte 1 FIRSTTIME: .byte 1