; unsigned char __fastcall__ bordercolor (unsigned char color);
;
- .export _textcolor, _bgcolor, _bordercolor
- .import return0, return1
+ .export _textcolor, _bgcolor, _bordercolor
+ .import return0, return1
-_textcolor = return1
-
-_bgcolor = return0
-
-_bordercolor = return0
+_textcolor := return1
+_bgcolor := return0
+_bordercolor := return0
\ No newline at end of file
; Apple ProDOS 8 MLI
;
- .import __dos_type
+ .import __dos_type
- .include "mli.inc"
+ .include "mli.inc"
.bss
-mliparam: .tag MLI
+mliparam:.tag MLI
.data
callmli:
; Store parameters
- sta call
- stx mliparam
+ sta call
+ stx mliparam
; Check for ProDOS 8
- lda __dos_type
- beq oserr
+ lda __dos_type
+ beq oserr
; Call MLI and return
- jsr ENTRY
-call: .byte $00
- .word mliparam
+ jsr ENTRY
+call: .byte $00
+ .addr mliparam
rts
; Load oserror code and return
-oserr: lda #$01 ; "Invalid MLI function code number"
+oserr: lda #$01 ; "Invalid MLI function code number"
sec
rts
\ No newline at end of file