Just some white space fixes of recently contributed code.

This commit is contained in:
Oliver Schmidt 2017-04-06 17:53:57 +02:00
parent be772c0198
commit e43dbe1c24
5 changed files with 8 additions and 12 deletions

View file

@ -21,7 +21,7 @@ _strcat:
.else
lda #0
sta ptr2 ; access from page start, y contains low byte
.endif
.endif
stx ptr2+1
findEndOfDest:
@ -33,7 +33,7 @@ findEndOfDest:
bne findEndOfDest
endOfDestFound:
sty ptr2 ; advance pointer to last y position
sty ptr2 ; advance pointer to last y position
ldy #0 ; reset new y-offset
copyByte:

View file

@ -20,7 +20,7 @@ _strchr:
.else
lda #0
sta ptr1 ; access from page start, y contains low byte
.endif
.endif
Loop: lda (ptr1),y ; Get next char
beq EOS ; Jump on end of string
@ -29,7 +29,7 @@ Loop: lda (ptr1),y ; Get next char
iny
bne Loop
inc ptr1+1
bne Loop ; Branch always
bne Loop ; Branch always
; End of string. Check if we're searching for the terminating zero

View file

@ -40,7 +40,7 @@ checkNext:
check: cpy tmp1 ; compare with length of test character string
beq endOfTestChars
cmp (ptr1),y ; found matching char?
bne checkNext
bne checkNext
leave: txa ; restore position of finding
ldx tmp2 ; and return
@ -50,5 +50,4 @@ endOfTestChars:
inx
bne loadChar
inc tmp2
bne loadChar ; like bra...
bne loadChar ; like bra...

View file

@ -71,5 +71,3 @@ L6: lda #0
L7: lda ptr3
ldx ptr3+1
rts

View file

@ -40,15 +40,14 @@ checkNext:
check: cpy tmp1 ; compare with length of test character string
beq leave
cmp (ptr1),y ; found matching char?
bne checkNext
bne checkNext
foundTestChar:
inx
bne loadChar
inc tmp2
bne loadChar ; like bra...
bne loadChar ; like bra...
leave: txa ; restore position of finding
ldx tmp2 ; and return
rts