6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-17 16:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Comment and tab fix. No code changes.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@5760 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2012-07-06 19:56:42 +00:00
parent f9f660dd5d
commit db8cac9501
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
libsrc/runtime/shl.s
View File

@ -11,15 +11,15 @@
;
.export tosaslax, tosshlax, aslaxy, shlaxy
.import popax
.importzp tmp1
.export tosaslax, tosshlax, aslaxy, shlaxy
.import popax
.importzp tmp1
.macpack cpu
tosshlax:
tosaslax:
sta tmp1 ; Save shift count it
sta tmp1 ; Save shift count
jsr popax ; Get the left hand operand
ldy tmp1 ; Get shift count
@ -71,13 +71,13 @@ L4: adc #8 ; Correct counter
tay ; Shift count into Y
pla ; Restore low byte
stx tmp1 ; Save high byte of lhs
L5: asl a
rol tmp1
L5: asl a
rol tmp1
dey
bne L5
bne L5
; Done with shift
ldx tmp1
ldx tmp1
L9: rts