mirror of
https://github.com/cc65/cc65.git
synced 2025-01-20 09:31:48 +00:00
DYNAMIC_DD support
git-svn-id: svn://svn.cc65.org/cc65/trunk@3334 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
1cb6868ddd
commit
1727d49c8d
@ -16,6 +16,9 @@
|
|||||||
.import zerobss, pushax
|
.import zerobss, pushax
|
||||||
.import _main, __filetab, getfd
|
.import _main, __filetab, getfd
|
||||||
.import __CODE_LOAD__, __BSS_LOAD__
|
.import __CODE_LOAD__, __BSS_LOAD__
|
||||||
|
.ifdef DYNAMIC_DD
|
||||||
|
.import __getdefdev
|
||||||
|
.endif
|
||||||
|
|
||||||
.include "zeropage.inc"
|
.include "zeropage.inc"
|
||||||
.include "atari.inc"
|
.include "atari.inc"
|
||||||
@ -73,6 +76,9 @@ L1: lda sp,x
|
|||||||
; Call module constructors
|
; Call module constructors
|
||||||
|
|
||||||
jsr initlib
|
jsr initlib
|
||||||
|
.ifdef DYNAMIC_DD
|
||||||
|
jsr __getdefdev
|
||||||
|
.endif
|
||||||
|
|
||||||
; set left margin to 0
|
; set left margin to 0
|
||||||
|
|
||||||
|
@ -20,6 +20,9 @@
|
|||||||
|
|
||||||
.ifdef DEFAULT_DEVICE
|
.ifdef DEFAULT_DEVICE
|
||||||
.importzp tmp2
|
.importzp tmp2
|
||||||
|
.ifdef DYNAMIC_DD
|
||||||
|
.import __defdev
|
||||||
|
.endif
|
||||||
.endif
|
.endif
|
||||||
.importzp tmp3,ptr4,sp
|
.importzp tmp3,ptr4,sp
|
||||||
.import _strupr,subysp
|
.import _strupr,subysp
|
||||||
@ -88,7 +91,11 @@ loop2: lda (ptr4),y
|
|||||||
lda #':'
|
lda #':'
|
||||||
sta (sp),y ; insert ':'
|
sta (sp),y ; insert ':'
|
||||||
dey
|
dey
|
||||||
|
.ifdef DYNAMIC_DD
|
||||||
|
lda __defdev+1
|
||||||
|
.else
|
||||||
lda #'0'+DEFAULT_DEVICE
|
lda #'0'+DEFAULT_DEVICE
|
||||||
|
.endif
|
||||||
sta (sp),y ; insert device number
|
sta (sp),y ; insert device number
|
||||||
dey
|
dey
|
||||||
lda #'D'
|
lda #'D'
|
||||||
|
Loading…
x
Reference in New Issue
Block a user