6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-11 11:30:13 +00:00
Code Issues 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
Show Stats 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);
;
.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

22
libsrc/apple2/mli.s
View File

@ -4,32 +4,32 @@
; 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