empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed first letter of comments (should be upper case).

Browse source
This commit is contained in:
IrgendwerA8 2018-05-25 16:10:16 +02:00
parent 71420223bc
commit ba5b580368
3 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
libsrc/runtime/div.s
View file

@ -14,16 +14,16 @@
tosdiva0:
ldx #0
tosdivax:
pha ; check if high-bytes indicate
txa ; different sign, so that we
ldy #1 ; negate the result after the operation
eor (sp),y ; eor with lhs high byte
sta tmp1 ; save post negation indicator to tmp1
pla ; back to entry accu
pha ; Check if high-bytes indicate
txa ; different sign, so that we have to
ldy #1 ; negate the result after the operation.
eor (sp),y ; Eor with lhs high byte
sta tmp1 ; Save post negation indicator to tmp1
pla ; Back to entry accu
jsr absvaludiv16
ldx ptr1+1
lda ptr1
ldy tmp1 ; fetch indicator
ldy tmp1 ; Fetch indicator
bmi negate
rts
negate: jmp negax

10
libsrc/runtime/mod.s
View file

@ -19,14 +19,14 @@ tosmodax:
; modulo operation is the same as that of the left operand.
pha
ldy #1 ; prepare lhs operant hi-byte fetch
ldy #1 ; Prepare lhs operant hi-byte fetch
lda (sp),y
sta tmp1 ; save post negation indicator to tmp1
pla ; back to entry accu
sta tmp1 ; Save post negation indicator to tmp1
pla ; Back to entry accu
jsr absvaludiv16
ldx sreg+1 ; remainder to return registers
ldx sreg+1 ; Remainder to return registers
lda sreg
ldy tmp1 ; fetch indicator
ldy tmp1 ; Fetch indicator
bmi negate
rts
negate: jmp negax

4
libsrc/runtime/negabs.s
View file

@ -9,8 +9,8 @@
.export negax
.export _abs
_abs: cpx #$00 ; test hi byte
bpl L1 ; don't touch if positive
_abs: cpx #$00 ; Test hi byte
bpl L1 ; Don't touch if positive
negax: clc
eor #$FF
adc #1