Removed (pretty inconsistently used) tab chars from source code base.

This commit is contained in:
Oliver Schmidt
2013-05-09 13:56:54 +02:00
parent 44fd1082ae
commit 85885001b1
1773 changed files with 62864 additions and 62868 deletions

View File

@@ -4,78 +4,78 @@
; char* DbgMemDump (unsigend Addr, char* Buf, unsigned char Length);
;
.export _DbgMemDump
.import addysp1
.import __hextab
.importzp sp, tmp2, tmp3, tmp4, ptr3, ptr4
.export _DbgMemDump
.import addysp1
.import __hextab
.importzp sp, tmp2, tmp3, tmp4, ptr3, ptr4
_DbgMemDump:
ldy #0
lda (sp),y ; Get length
sta tmp4
iny
lda (sp),y ; Get the string buffer
sta ptr3
iny
lda (sp),y
sta ptr3+1
iny
lda (sp),y ; Get the address
sta ptr4
iny
lda (sp),y
sta ptr4+1
jsr addysp1 ; Drop the parameters
ldy #0
lda (sp),y ; Get length
sta tmp4
iny
lda (sp),y ; Get the string buffer
sta ptr3
iny
lda (sp),y
sta ptr3+1
iny
lda (sp),y ; Get the address
sta ptr4
iny
lda (sp),y
sta ptr4+1
jsr addysp1 ; Drop the parameters
lda #0
sta tmp2 ; String index
sta tmp3 ; Byte index
lda #0
sta tmp2 ; String index
sta tmp3 ; Byte index
; Print the address
lda ptr4+1 ; Hi address byte
jsr dump ; Print address
lda ptr4 ; Lo address byte
jsr dump
jsr putspace ; Add a space
lda ptr4+1 ; Hi address byte
jsr dump ; Print address
lda ptr4 ; Lo address byte
jsr dump
jsr putspace ; Add a space
dump1: dec tmp4 ; Bytes left?
bmi dump9 ; Jump if no
jsr putspace ; Add a space
ldy tmp3
inc tmp3
lda (ptr4),y
jsr dump
jmp dump1
dump1: dec tmp4 ; Bytes left?
bmi dump9 ; Jump if no
jsr putspace ; Add a space
ldy tmp3
inc tmp3
lda (ptr4),y
jsr dump
jmp dump1
dump9: lda #0
ldy tmp2
sta (ptr3),y ; Add string terminator
lda ptr3
ldx ptr3+1 ; We assume this is not zero
rts
dump9: lda #0
ldy tmp2
sta (ptr3),y ; Add string terminator
lda ptr3
ldx ptr3+1 ; We assume this is not zero
rts
; Dump one hex byte
dump: pha
lsr a
lsr a
lsr a
lsr a
tax
lda __hextab,x
jsr putc
pla
and #$0F
tax
lda __hextab,x
putc: ldy tmp2
inc tmp2
sta (ptr3),y
rts
dump: pha
lsr a
lsr a
lsr a
lsr a
tax
lda __hextab,x
jsr putc
pla
and #$0F
tax
lda __hextab,x
putc: ldy tmp2
inc tmp2
sta (ptr3),y
rts
putspace:
lda #$20
bne putc
lda #$20
bne putc