Renamed the old geos target to geos-cbm.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5343 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-28 17:11:21 +00:00
parent 70a3bcb0df
commit e6d74e7205
215 changed files with 20 additions and 20 deletions
--- a/libsrc/geos-cbm/dlgbox/dlgboxfileselect.s
+++ b/libsrc/geos-cbm/dlgbox/dlgboxfileselect.s
@@ -0,0 +1,59 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 25.12.99
+
+; char DlgBoxFileSelect       (char *class, char ftype, char *fname);
+
+		.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 tmp_r5
+	        stx tmp_r5+1
+	        jsr popa
+	        sta tmp_r7L
+	        jsr popax
+	        sta tmp_r10
+	        stx tmp_r10+1
+
+DB_FS_reload:
+	        MoveW tmp_r5, r5
+	        MoveW tmp_r10, r10
+	        MoveB tmp_r7L, r7L
+
+		lda #<paramStrFileSelect
+		ldx #>paramStrFileSelect
+		jsr _DoDlgBox
+		cmp #DISK
+		bne DB_FS_Fin
+		jsr OpenDisk
+		txa
+		beq DB_FS_reload
+DB_FS_Fin:  	rts
+
+.rodata
+
+paramStrFileSelect:
+		.byte DEF_DB_POS | 1
+		.byte DBGETFILES, 4, 4
+		.byte OPEN, DBI_X_2, DBI_Y_0+16
+		.byte DISK, DBI_X_2, DBI_Y_0+32+1
+		.byte CANCEL, DBI_X_2, DBI_Y_0+64+3
+		.byte NULL
+
+.bss
+
+tmp_r5:		.res 2
+tmp_r7L:	.res 1
+tmp_r10:	.res 2