mirror of
https://github.com/cc65/cc65.git
synced 2024-12-23 19:29:37 +00:00
45 lines
1.0 KiB
ArmAsm
45 lines
1.0 KiB
ArmAsm
;
|
|
; Stefan Haubenthal, 2005-06-08
|
|
;
|
|
; CBM _curunit to _cwd
|
|
;
|
|
|
|
.export initcwd, devicestr
|
|
.import curunit, __cwd
|
|
.import pusha0, tosudiva0
|
|
.importzp sreg, ptr1, ptr2
|
|
|
|
initcwd:
|
|
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
|
|
tax ; result of the division (lsb)
|
|
beq @L0 ; < 10
|
|
|
|
clc
|
|
adc #'0'
|
|
sta (ptr2),y
|
|
iny
|
|
@L0:
|
|
lda sreg ; reminder of the division
|
|
clc
|
|
adc #'0'
|
|
sta (ptr2),y
|
|
iny
|
|
|
|
lda #0 ; terminating 0
|
|
sta (ptr2),y
|
|
rts
|