bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

54
libsrc/cbm/initcwd.s
View File

@@ -4,38 +4,38 @@
; CBM _curunit to _cwd
;
.export initcwd, devicestr
.import curunit, __cwd
.import pusha0, tosudiva0
.importzp sreg, ptr1, ptr2
.export initcwd, devicestr
.import curunit, __cwd
.import pusha0, tosudiva0
.importzp sreg, ptr1, ptr2
.macpack generic
.macpack generic
initcwd:
lda #<__cwd
ldx #>__cwd
sta ptr2
stx ptr2+1
lda curunit
; Fall through
lda #<__cwd
ldx #>__cwd
sta ptr2
stx ptr2+1
lda curunit
; Fall through
;------------------------------------------------------------------------------
; Convert unit number in A into string representation pointed to by ptr2.
devicestr:
jsr pusha0
lda #10
jsr tosudiva0
ldy #0
lda sreg
beq @L0 ; >=10
add #'0'
sta (ptr2),y
iny
@L0: lda ptr1 ; rem
add #'0'
sta (ptr2),y
iny
lda #0
sta (ptr2),y
rts
jsr pusha0
lda #10
jsr tosudiva0
ldy #0
lda sreg
beq @L0 ; >=10
add #'0'
sta (ptr2),y
iny
@L0: lda ptr1 ; rem
add #'0'
sta (ptr2),y
iny
lda #0
sta (ptr2),y
rts