remove dangling spaces

This commit is contained in:
mrdudz
2022-04-17 16:06:22 +02:00
parent 5276033be1
commit c6f23eefc8
212 changed files with 432 additions and 432 deletions

View File

@@ -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)

View File

@@ -6,7 +6,7 @@
.export aslax1, shlax1
.importzp tmp1
aslax1:
shlax1: stx tmp1
asl A

View File

@@ -20,4 +20,4 @@

View File

@@ -19,4 +19,4 @@

View File

@@ -17,4 +17,4 @@

View File

@@ -17,4 +17,4 @@

View File

@@ -17,4 +17,4 @@

View File

@@ -17,4 +17,4 @@

View File

@@ -17,4 +17,4 @@

View File

@@ -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

View File

@@ -21,4 +21,4 @@ ldauiysp:
lda (ptr1),y
rts

View File

@@ -1,4 +1,4 @@
;
;
; Ullrich von Bassewitz, 06.08.1998
; Christian Krueger, 11-Mar-2017, added 65SC02 optimization
;

View File

@@ -7,7 +7,7 @@
.export toseqeax
.import toslcmp, booleq
toseqeax:
toseqeax:
jsr toslcmp ; Set flags
jmp booleq ; Convert to boolean

View File

@@ -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)

View File

@@ -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

View File

@@ -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

View File

@@ -22,7 +22,7 @@ popeax: ldy #3
tax
.if (.cpu .bitand ::CPU_ISET_65SC02)
lda (sp)
.else
.else
dey
lda (sp),y
.endif

View File

@@ -41,9 +41,9 @@ pusheax:
pla
.if (.cpu .bitand ::CPU_ISET_65SC02)
sta (sp)
.else
.else
dey
sta (sp),y
.endif
.endif
rts

View File

@@ -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

View File

@@ -21,7 +21,7 @@ tossub0ax:
ldy #$00
sty sreg
sty sreg+1
.endif
.endif
tossubeax:
sec

View File

@@ -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

View File

@@ -17,6 +17,6 @@ utsteax:
beq L9
tya
ldy #1 ; Force NE
L9: rts
L9: rts

View File

@@ -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

View File

@@ -11,7 +11,7 @@
.macpack cpu
tosumod0ax:
tosumod0ax:
.if (.cpu .bitand ::CPU_ISET_65SC02)
stz sreg
stz sreg+1

View File

@@ -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

View File

@@ -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

View File

@@ -7,7 +7,7 @@
.export mulax3
.importzp ptr1
.proc mulax3
sta ptr1

View File

@@ -21,7 +21,7 @@ tosorax:
ldy #0
ora (sp),y
iny
.endif
.endif
sta tmp1
txa
ora (sp),y

View File

@@ -17,4 +17,4 @@
.endproc

View File

@@ -30,6 +30,6 @@ pusha0: ldx #0
pla ; (31)
dey ; (33)
sta (sp),y ; (38)
rts ; (44)
rts ; (44)
.endproc

View File

@@ -17,4 +17,4 @@

View File

@@ -17,4 +17,4 @@

View File

@@ -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!

View File

@@ -25,4 +25,4 @@ tosumodax:
ldx sreg+1
rts

View File

@@ -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