bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Cosmetic changes from Oliver Schmidt

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3477 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2005-04-20 16:52:10 +00:00
parent fcd14f3d14
commit f3ac2be07d
2 changed files with 16 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
libsrc/apple2/color.s
View File

@@ -6,13 +6,11 @@
; unsigned char __fastcall__ bordercolor (unsigned char color); ; unsigned char __fastcall__ bordercolor (unsigned char color);
; ;
.export _textcolor, _bgcolor, _bordercolor .export _textcolor, _bgcolor, _bordercolor
.import return0, return1 .import return0, return1
_textcolor = return1 _textcolor := return1
_bgcolor = return0
_bordercolor = return0
_bgcolor := return0
_bordercolor := return0

22
libsrc/apple2/mli.s
View File

@@ -4,32 +4,32 @@
; Apple ProDOS 8 MLI ; Apple ProDOS 8 MLI
; ;
.import __dos_type .import __dos_type
.include "mli.inc" .include "mli.inc"
.bss .bss
mliparam: .tag MLI mliparam:.tag MLI
.data .data
callmli: callmli:
; Store parameters ; Store parameters
sta call sta call
stx mliparam stx mliparam
; Check for ProDOS 8 ; Check for ProDOS 8
lda __dos_type lda __dos_type
beq oserr beq oserr
; Call MLI and return ; Call MLI and return
jsr ENTRY jsr ENTRY
call: .byte $00 call: .byte $00
.word mliparam .addr mliparam
rts rts
; Load oserror code and return ; Load oserror code and return
oserr: lda #$01 ; "Invalid MLI function code number" oserr: lda #$01 ; "Invalid MLI function code number"
sec sec
rts rts