mirror of
https://github.com/cc65/cc65.git
synced 2024-12-25 17:29:50 +00:00
36 lines
400 B
ArmAsm
36 lines
400 B
ArmAsm
|
;
|
||
|
; Stefan Haubenthal, 2005-06-08
|
||
|
;
|
||
|
; CBM _curunit to _cwd
|
||
|
;
|
||
|
|
||
|
.export initcwd
|
||
|
.import __curunit, __cwd
|
||
|
.import pusha0, tosudiva0
|
||
|
.importzp sreg, ptr1
|
||
|
|
||
|
.macpack generic
|
||
|
|
||
|
.segment "INIT"
|
||
|
|
||
|
.proc initcwd
|
||
|
|
||
|
lda __curunit
|
||
|
jsr pusha0
|
||
|
lda #10
|
||
|
jsr tosudiva0
|
||
|
ldx #0
|
||
|
lda sreg
|
||
|
beq :+ ; >=10
|
||
|
add #'0'
|
||
|
sta __cwd
|
||
|
inx
|
||
|
: lda ptr1 ; rem
|
||
|
add #'0'
|
||
|
sta __cwd,x
|
||
|
lda #0
|
||
|
sta __cwd+1,x
|
||
|
rts
|
||
|
|
||
|
.endproc
|