remove dangling spaces
This commit is contained in:
@@ -33,13 +33,13 @@ hiadd: txa ; (19)
|
||||
inc sp+1 ; (-1+5)
|
||||
done: tya ; (36)
|
||||
|
||||
.else
|
||||
.else
|
||||
|
||||
ldy #0 ; (4)
|
||||
adc (sp),y ; (9) lo byte
|
||||
iny ; (11)
|
||||
sta tmp1 ; (14) save it
|
||||
txa ; (16)
|
||||
txa ; (16)
|
||||
adc (sp),y ; (21) hi byte
|
||||
tax ; (23)
|
||||
clc ; (25)
|
||||
|
||||
@@ -6,7 +6,7 @@
|
||||
|
||||
.export aslax1, shlax1
|
||||
.importzp tmp1
|
||||
|
||||
|
||||
aslax1:
|
||||
shlax1: stx tmp1
|
||||
asl A
|
||||
|
||||
@@ -20,4 +20,4 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -19,4 +19,4 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -17,4 +17,4 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -17,4 +17,4 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -17,4 +17,4 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -17,4 +17,4 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -17,4 +17,4 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -10,7 +10,7 @@
|
||||
.importzp sp, sreg, tmp1
|
||||
|
||||
.macpack cpu
|
||||
|
||||
|
||||
tosand0ax:
|
||||
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
||||
stz sreg
|
||||
@@ -19,7 +19,7 @@ tosand0ax:
|
||||
ldy #$00
|
||||
sty sreg
|
||||
sty sreg+1
|
||||
.endif
|
||||
.endif
|
||||
|
||||
tosandeax:
|
||||
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
||||
@@ -29,7 +29,7 @@ tosandeax:
|
||||
ldy #0
|
||||
and (sp),y ; byte 0
|
||||
iny
|
||||
.endif
|
||||
.endif
|
||||
sta tmp1
|
||||
txa
|
||||
and (sp),y ; byte 1
|
||||
|
||||
@@ -21,4 +21,4 @@ ldauiysp:
|
||||
lda (ptr1),y
|
||||
rts
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
;
|
||||
;
|
||||
; Ullrich von Bassewitz, 06.08.1998
|
||||
; Christian Krueger, 11-Mar-2017, added 65SC02 optimization
|
||||
;
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
.export toseqeax
|
||||
.import toslcmp, booleq
|
||||
|
||||
toseqeax:
|
||||
toseqeax:
|
||||
jsr toslcmp ; Set flags
|
||||
jmp booleq ; Convert to boolean
|
||||
|
||||
|
||||
@@ -23,7 +23,7 @@ tosmod0ax:
|
||||
sty sreg+1
|
||||
.endif
|
||||
|
||||
tosmodeax:
|
||||
tosmodeax:
|
||||
jsr poplsargs ; Get arguments from stack, adjust sign
|
||||
jsr udiv32 ; Do the division, remainder is in (ptr2:tmp3:tmp4)
|
||||
|
||||
|
||||
@@ -17,10 +17,10 @@ tosumul0ax:
|
||||
stz sreg
|
||||
stz sreg+1
|
||||
.else
|
||||
ldy #$00
|
||||
ldy #$00
|
||||
sty sreg
|
||||
sty sreg+1
|
||||
.endif
|
||||
.endif
|
||||
|
||||
tosmuleax:
|
||||
tosumuleax:
|
||||
@@ -29,7 +29,7 @@ mul32: sta ptr1
|
||||
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
||||
lda (sp)
|
||||
ldy #1
|
||||
.else
|
||||
.else
|
||||
ldy #0
|
||||
lda (sp),y
|
||||
iny
|
||||
|
||||
@@ -8,7 +8,7 @@
|
||||
.export tosor0ax, tosoreax
|
||||
.import addysp1
|
||||
.importzp sp, sreg, tmp1
|
||||
|
||||
|
||||
.macpack cpu
|
||||
|
||||
tosor0ax:
|
||||
@@ -19,7 +19,7 @@ tosor0ax:
|
||||
ldy #$00
|
||||
sty sreg
|
||||
sty sreg+1
|
||||
.endif
|
||||
.endif
|
||||
|
||||
tosoreax:
|
||||
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
||||
@@ -29,7 +29,7 @@ tosoreax:
|
||||
ldy #0
|
||||
ora (sp),y ; byte 0
|
||||
iny
|
||||
.endif
|
||||
.endif
|
||||
sta tmp1
|
||||
txa
|
||||
ora (sp),y ; byte 1
|
||||
|
||||
@@ -22,7 +22,7 @@ popeax: ldy #3
|
||||
tax
|
||||
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
||||
lda (sp)
|
||||
.else
|
||||
.else
|
||||
dey
|
||||
lda (sp),y
|
||||
.endif
|
||||
|
||||
@@ -41,9 +41,9 @@ pusheax:
|
||||
pla
|
||||
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
||||
sta (sp)
|
||||
.else
|
||||
.else
|
||||
dey
|
||||
sta (sp),y
|
||||
.endif
|
||||
.endif
|
||||
rts
|
||||
|
||||
|
||||
@@ -29,7 +29,7 @@ tosrsubeax:
|
||||
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
||||
sbc (sp)
|
||||
ldy #1
|
||||
.else
|
||||
.else
|
||||
ldy #0
|
||||
sbc (sp),y ; byte 0
|
||||
iny
|
||||
|
||||
@@ -21,7 +21,7 @@ tossub0ax:
|
||||
ldy #$00
|
||||
sty sreg
|
||||
sty sreg+1
|
||||
.endif
|
||||
.endif
|
||||
|
||||
tossubeax:
|
||||
sec
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
;
|
||||
;
|
||||
; Ullrich von Bassewitz, 07.04.2000
|
||||
; Christian Krueger, 12-Mar-2017, added 65SC02 optimization
|
||||
;
|
||||
@@ -22,19 +22,19 @@ lsubeqa:
|
||||
stx sreg+1
|
||||
|
||||
lsubeq: sty ptr1+1 ; Store high byte of address
|
||||
|
||||
|
||||
sec
|
||||
eor #$FF
|
||||
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
||||
adc (ptr1) ; Subtract byte 0
|
||||
sta (ptr1)
|
||||
ldy #$01 ; Address byte 1
|
||||
ldy #$01 ; Address byte 1
|
||||
.else
|
||||
ldy #$00 ; Address low byte
|
||||
adc (ptr1),y ; Subtract byte 0
|
||||
sta (ptr1),y
|
||||
iny ; Address byte 1
|
||||
.endif
|
||||
iny ; Address byte 1
|
||||
.endif
|
||||
pha ; Save byte 0 of result for later
|
||||
txa
|
||||
eor #$FF
|
||||
|
||||
@@ -17,6 +17,6 @@ utsteax:
|
||||
beq L9
|
||||
tya
|
||||
ldy #1 ; Force NE
|
||||
L9: rts
|
||||
L9: rts
|
||||
|
||||
|
||||
|
||||
@@ -21,7 +21,7 @@ tosudiv0ax:
|
||||
sty sreg+1
|
||||
.endif
|
||||
|
||||
tosudiveax:
|
||||
tosudiveax:
|
||||
jsr getlop ; Get the paramameters
|
||||
jsr udiv32 ; Do the division
|
||||
lda ptr1 ; Result is in ptr1:sreg
|
||||
|
||||
@@ -11,7 +11,7 @@
|
||||
|
||||
.macpack cpu
|
||||
|
||||
tosumod0ax:
|
||||
tosumod0ax:
|
||||
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
||||
stz sreg
|
||||
stz sreg+1
|
||||
|
||||
@@ -25,7 +25,7 @@ tosxoreax:
|
||||
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
||||
eor (sp) ; byte 0
|
||||
ldy #1
|
||||
.else
|
||||
.else
|
||||
ldy #0
|
||||
eor (sp),y ; byte 0
|
||||
iny
|
||||
|
||||
@@ -23,7 +23,7 @@ tosumulax:
|
||||
|
||||
; Do ptr4:ptr4+1 * ptr1:ptr1+1 --> AX
|
||||
|
||||
tya ; A = 0
|
||||
tya ; A = 0
|
||||
ldy ptr1+1 ; check if lhs is 8 bit only
|
||||
beq @L4 ; -> we can do 8x16 after swap
|
||||
sta tmp1
|
||||
@@ -36,7 +36,7 @@ tosumulax:
|
||||
clc
|
||||
adc ptr1
|
||||
tax
|
||||
lda ptr1+1 ; Hi byte of left op
|
||||
lda ptr1+1 ; Hi byte of left op
|
||||
adc tmp1
|
||||
sta tmp1
|
||||
txa
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
.export mulax3
|
||||
.importzp ptr1
|
||||
|
||||
|
||||
.proc mulax3
|
||||
|
||||
sta ptr1
|
||||
|
||||
@@ -21,7 +21,7 @@ tosorax:
|
||||
ldy #0
|
||||
ora (sp),y
|
||||
iny
|
||||
.endif
|
||||
.endif
|
||||
sta tmp1
|
||||
txa
|
||||
ora (sp),y
|
||||
|
||||
@@ -17,4 +17,4 @@
|
||||
.endproc
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -30,6 +30,6 @@ pusha0: ldx #0
|
||||
pla ; (31)
|
||||
dey ; (33)
|
||||
sta (sp),y ; (38)
|
||||
rts ; (44)
|
||||
rts ; (44)
|
||||
|
||||
.endproc
|
||||
|
||||
@@ -17,4 +17,4 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -17,4 +17,4 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -23,13 +23,13 @@ swapstk:
|
||||
tay
|
||||
lda ptr4
|
||||
sta (sp)
|
||||
tya
|
||||
.else
|
||||
tya
|
||||
.else
|
||||
dey
|
||||
lda (sp),y
|
||||
pha
|
||||
lda ptr4
|
||||
sta (sp),y
|
||||
pla
|
||||
.endif
|
||||
.endif
|
||||
rts ; whew!
|
||||
|
||||
@@ -25,4 +25,4 @@ tosumodax:
|
||||
ldx sreg+1
|
||||
rts
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -12,7 +12,7 @@
|
||||
|
||||
;---------------------------------------------------------------------------
|
||||
; 16x16 => 32 unsigned multiplication routine. Because the overhead for a
|
||||
; 16x16 => 16 unsigned multiplication routine is small, we will tag it with
|
||||
; 16x16 => 16 unsigned multiplication routine is small, we will tag it with
|
||||
; the matching labels, as well.
|
||||
;
|
||||
; routine LHS RHS result result also in
|
||||
|
||||
Reference in New Issue
Block a user