diff --git a/libsrc/geos-common/common/zerobss.s b/libsrc/geos-common/common/zerobss.s index e2a6cbe06..fc19c38c7 100644 --- a/libsrc/geos-common/common/zerobss.s +++ b/libsrc/geos-common/common/zerobss.s @@ -8,10 +8,8 @@ .export zerobss .import __BSS_RUN__, __BSS_SIZE__ - .include "jumptab.inc" - .include "geossym.inc" - -.code + .include "jumptab.inc" + .include "geossym.inc" zerobss: lda #<__BSS_SIZE__ diff --git a/libsrc/geos-common/conio/color.s b/libsrc/geos-common/conio/color.s index 168208802..fbf86e947 100644 --- a/libsrc/geos-common/conio/color.s +++ b/libsrc/geos-common/conio/color.s @@ -8,7 +8,6 @@ ; unsigned char __fastcall__ bordercolor (unsigned char color); ; - .export _textcolor, _bgcolor, _bordercolor ; for GEOS 2.0 there is no color support, perhaps Wheels has it diff --git a/libsrc/geos-common/dlgbox/dbget2lines.s b/libsrc/geos-common/dlgbox/dbget2lines.s index 67d72375c..bc0d68fae 100644 --- a/libsrc/geos-common/dlgbox/dbget2lines.s +++ b/libsrc/geos-common/dlgbox/dbget2lines.s @@ -7,8 +7,6 @@ .importzp ptr3,ptr4 .import popax -.code - DB_get2lines: sta ptr4 ; fetch line 2 stx ptr4+1 diff --git a/libsrc/geos-common/dlgbox/dlgboxfileselect.s b/libsrc/geos-common/dlgbox/dlgboxfileselect.s index 53349ce58..284285d03 100644 --- a/libsrc/geos-common/dlgbox/dlgboxfileselect.s +++ b/libsrc/geos-common/dlgbox/dlgboxfileselect.s @@ -5,17 +5,15 @@ ; char DlgBoxFileSelect (char *class, char ftype, char *fname); - .export _DlgBoxFileSelect - .import popa, popax - .import _DoDlgBox + .export _DlgBoxFileSelect + .import popa, popax + .import _DoDlgBox - .include "jumptab.inc" - .include "diskdrv.inc" - .include "geossym.inc" - .include "geosmac.inc" - .include "const.inc" - -.code + .include "jumptab.inc" + .include "diskdrv.inc" + .include "geossym.inc" + .include "geosmac.inc" + .include "const.inc" _DlgBoxFileSelect: sta tmp_r5 diff --git a/libsrc/geos-common/dlgbox/dlgboxgetstring.s b/libsrc/geos-common/dlgbox/dlgboxgetstring.s index 4f0a25944..ec26c8433 100644 --- a/libsrc/geos-common/dlgbox/dlgboxgetstring.s +++ b/libsrc/geos-common/dlgbox/dlgboxgetstring.s @@ -13,8 +13,6 @@ .include "geossym.inc" .include "const.inc" -.code - _DlgBoxGetString: jsr DB_get2lines jsr popa diff --git a/libsrc/geos-common/dlgbox/dlgboxok.s b/libsrc/geos-common/dlgbox/dlgboxok.s index 7cfdc6112..9ac094c43 100644 --- a/libsrc/geos-common/dlgbox/dlgboxok.s +++ b/libsrc/geos-common/dlgbox/dlgboxok.s @@ -12,8 +12,6 @@ .include "geossym.inc" .include "const.inc" -.code - _DlgBoxOk: jsr DB_get2lines lda #