This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches.


git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/geos/dlgbox/Makefile

@@ -0,0 +1,19 @@
+#
+# Makefile for GEOS lib
+# for cc65
+#
+#
+
+%.o:	%.s
+	@echo $<
+	@$(AS) -o $@ $(AFLAGS) $<
+
+
+S_OBJS	= dodlgbox.o rstrfrmdialogue.o\
+	  dbget2lines.o dlgboxyesno.o dlgboxokcancel.o dlgboxok.o dlgboxgetstring.o\
+	  dlgboxfileselect.o
+
+all: $(S_OBJS)
+
+clean:
+	@rm -f *.~ $(S_OBJS) core

libsrc/geos/dlgbox/dbget2lines.s

@@ -0,0 +1,17 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 25.12.99
+
+	    .export DB_get2lines
+	    .importzp ptr3,ptr4
+	    .import popax
+
+DB_get2lines:
+	    sta ptr4
+	    stx ptr4+1
+	    jsr popax
+	    sta ptr3
+	    stx ptr3+1
+	    rts

libsrc/geos/dlgbox/dlgboxfileselect.s

@@ -0,0 +1,62 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 25.12.99
+
+; char DlgBoxFileSelect       (char *class, char ftype, char *fname);
+
+		.export _DlgBoxFileSelect
+		.import popa, popax
+
+		.include "../inc/jumptab.inc"
+		.include "../inc/geossym.inc"
+		.include "../inc/const.inc"
+		.include "../inc/geosmac.ca65.inc"
+
+_DlgBoxFileSelect:
+;	    sta r5L
+;	    stx r5H
+;	    jsr popa
+;	    sta r7L
+;	    jsr popax
+;	    sta r10L
+;	    stx r10H
+
+	        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
+		sta r0L
+		stx r0H
+		jsr DoDlgBox
+		lda r0L
+		cmp #DISK
+		bne DB_FS_Fin
+		jsr OpenDisk
+		txa
+		beq DB_FS_reload
+DB_FS_Fin:  	rts
+
+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
+
+tmp_r5:		.word 0
+tmp_r7L:	.byte 0
+tmp_r10:	.word 0

libsrc/geos/dlgbox/dlgboxgetstring.s

@@ -0,0 +1,40 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 25.12.99
+
+; char DlgBoxGetString       (char *string, char strlen, char *line1,char *line2);
+
+	    .export _DlgBoxGetString
+	    .import DB_get2lines
+	    .importzp ptr2, ptr3, ptr4
+	    .import popa, popax
+	    
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	    .include "../inc/const.inc"
+
+_DlgBoxGetString:
+	    jsr DB_get2lines
+	    jsr popa
+	    sta DB_strlen
+	    jsr popax
+	    sta ptr2
+	    stx ptr2+1
+	    lda #<paramStrGetString
+	    ldx #>paramStrGetString
+	    sta r0L
+	    stx r0H
+	    jsr DoDlgBox
+	    lda r0L
+	    rts
+
+paramStrGetString:
+	    .byte DEF_DB_POS | 1
+	    .byte DBVARSTR, TXT_LN_X, TXT_LN_1_Y, ptr3
+	    .byte DBVARSTR, TXT_LN_X, TXT_LN_2_Y, ptr4
+	    .byte DBGETSTRING, TXT_LN_X, TXT_LN_3_Y, ptr2
+DB_strlen:  .byte 17
+	    .byte CANCEL, DBI_X_2, DBI_Y_2
+	    .byte NULL

libsrc/geos/dlgbox/dlgboxok.s

@@ -0,0 +1,32 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 25.12.99
+
+; char DlgBoxOk       (char *line1,char *line2);
+
+	    .export _DlgBoxOk
+	    .import DB_get2lines
+	    .importzp ptr3, ptr4
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	    .include "../inc/const.inc"
+
+_DlgBoxOk:
+	    jsr DB_get2lines
+	    lda #<paramStrOk
+	    ldx #>paramStrOk
+	    sta r0L
+	    stx r0H
+	    jsr DoDlgBox
+	    lda r0L
+	    rts
+
+paramStrOk:
+	    .byte DEF_DB_POS | 1
+	    .byte DBVARSTR, TXT_LN_X, TXT_LN_2_Y, ptr3
+	    .byte DBVARSTR, TXT_LN_X, TXT_LN_3_Y, ptr4
+	    .byte OK, DBI_X_0, DBI_Y_2
+	    .byte NULL

libsrc/geos/dlgbox/dlgboxokcancel.s

@@ -0,0 +1,33 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 25.12.99
+
+; char DlgBoxOkCancel       (char *line1,char *line2);
+
+	    .export _DlgBoxOkCancel
+	    .import DB_get2lines
+	    .importzp ptr3, ptr4
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	    .include "../inc/const.inc"
+
+_DlgBoxOkCancel:
+	    jsr DB_get2lines
+	    lda #<paramStrOkCancel
+	    ldx #>paramStrOkCancel
+	    sta r0L
+	    stx r0H
+	    jsr DoDlgBox
+	    lda r0L
+	    rts
+
+paramStrOkCancel:
+	    .byte DEF_DB_POS | 1
+	    .byte DBVARSTR, TXT_LN_X, TXT_LN_2_Y, ptr3
+	    .byte DBVARSTR, TXT_LN_X, TXT_LN_3_Y, ptr4
+	    .byte OK, DBI_X_0, DBI_Y_2
+	    .byte CANCEL, DBI_X_2, DBI_Y_2
+	    .byte NULL

libsrc/geos/dlgbox/dlgboxyesno.s

@@ -0,0 +1,33 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 25.12.99
+
+; char DlgBoxYesNo       (char *line1,char *line2);
+
+	    .export _DlgBoxYesNo
+	    .import DB_get2lines
+	    .importzp ptr3, ptr4
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	    .include "../inc/const.inc"
+
+_DlgBoxYesNo:
+	    jsr DB_get2lines
+	    lda #<paramStrYesNo
+	    ldx #>paramStrYesNo
+	    sta r0L
+	    stx r0H
+	    jsr DoDlgBox
+	    lda r0L
+	    rts
+
+paramStrYesNo:
+	    .byte DEF_DB_POS | 1
+	    .byte DBVARSTR, TXT_LN_X, TXT_LN_2_Y, ptr3
+	    .byte DBVARSTR, TXT_LN_X, TXT_LN_3_Y, ptr4
+	    .byte YES, DBI_X_0, DBI_Y_2
+	    .byte NO, DBI_X_2, DBI_Y_2
+	    .byte NULL

libsrc/geos/dlgbox/dodlgbox.s

@@ -0,0 +1,19 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 25.12.99
+
+; char DoDlgBox         (char *myParamString);
+
+	    .export _DoDlgBox
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_DoDlgBox:
+	    sta r0L
+	    stx r0H
+	    jsr DoDlgBox
+	    lda r0L
+	    rts

libsrc/geos/dlgbox/rstrfrmdialogue.s

@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 25.12.99
+
+; char RstrFrmDialogue  (void);
+
+	    .export _RstrFrmDialogue
+
+	    .include "../inc/jumptab.inc"
+	
+_RstrFrmDialogue	= RstrFrmDialogue