;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
;
; 25.12.99
.export _DlgBoxFileSelect
.import popa, popax
+ .import _DoDlgBox
.include "../inc/jumptab.inc"
.include "../inc/geossym.inc"
.include "../inc/const.inc"
.include "../inc/geosmac.ca65.inc"
+.code
+
_DlgBoxFileSelect:
-; sta r5L
-; stx r5H
-; jsr popa
-; sta r7L
-; jsr popax
-; sta r10L
-; stx r10H
sta tmp_r5
stx tmp_r5+1
lda #<paramStrFileSelect
ldx #>paramStrFileSelect
- sta r0L
- stx r0H
- jsr DoDlgBox
- lda r0L
+ jsr _DoDlgBox
cmp #DISK
bne DB_FS_Fin
jsr OpenDisk
beq DB_FS_reload
DB_FS_Fin: rts
+.rodata
+
paramStrFileSelect:
.byte DEF_DB_POS | 1
.byte DBGETFILES, 4, 4
.byte CANCEL, DBI_X_2, DBI_Y_0+64+3
.byte NULL
-tmp_r5: .word 0
-tmp_r7L: .byte 0
-tmp_r10: .word 0
+.bss
+
+tmp_r5: .res 2
+tmp_r7L: .res 1
+tmp_r10: .res 2