.export zerobss
.import __BSS_RUN__, __BSS_SIZE__
- .include "jumptab.inc"
- .include "geossym.inc"
-
-.code
+ .include "jumptab.inc"
+ .include "geossym.inc"
zerobss:
lda #<__BSS_SIZE__
; unsigned char __fastcall__ bordercolor (unsigned char color);
;
-
.export _textcolor, _bgcolor, _bordercolor
; for GEOS 2.0 there is no color support, perhaps Wheels has it
.importzp ptr3,ptr4
.import popax
-.code
-
DB_get2lines:
sta ptr4 ; fetch line 2
stx ptr4+1
; char DlgBoxFileSelect (char *class, char ftype, char *fname);
- .export _DlgBoxFileSelect
- .import popa, popax
- .import _DoDlgBox
-
- .include "jumptab.inc"
- .include "diskdrv.inc"
- .include "geossym.inc"
- .include "geosmac.inc"
- .include "const.inc"
-
-.code
+ .export _DlgBoxFileSelect
+ .import popa, popax
+ .import _DoDlgBox
+
+ .include "jumptab.inc"
+ .include "diskdrv.inc"
+ .include "geossym.inc"
+ .include "geosmac.inc"
+ .include "const.inc"
_DlgBoxFileSelect:
sta tmp_r5
.include "geossym.inc"
.include "const.inc"
-.code
-
_DlgBoxGetString:
jsr DB_get2lines
jsr popa
.include "geossym.inc"
.include "const.inc"
-.code
-
_DlgBoxOk:
jsr DB_get2lines
lda #<paramStrOk
.include "geossym.inc"
.include "const.inc"
-.code
-
_DlgBoxOkCancel:
jsr DB_get2lines
lda #<paramStrOkCancel
.include "geossym.inc"
.include "const.inc"
-.code
-
_DlgBoxYesNo:
jsr DB_get2lines
lda #<paramStrYesNo
.include "jumptab.inc"
.include "geossym.inc"
-.code
-
; --------------------------------------------------------------------------
;
; unsigned char __fastcall__ mouse_init (unsigned char type);
; The functions below must be interrupt-safe,
; because they might be called from an interrupt-handler.
-.code
-
; --------------------------------------------------------------------------
; Hide the mouse pointer. Always called with interrupts disabled.
.include "diskdrv.inc"
.include "geossym.inc"
-.code
-
_FindFTypes:
sta r10L
stx r10H
.include "errno.inc"
.include "const.inc"
-.code
-
__osmaperrno:
ldx #ErrTabSize
@L1: cmp ErrTab-2,x ; Search for the error code
; unsigned char __fastcall__ _sysuname (struct utsname* buf);
;
- .import utscopy
- .export __sysuname, utsdata
+ .import utscopy
+ .export __sysuname, utsdata
__sysuname = utscopy