mirror of
https://github.com/cc65/cc65.git
synced 2025-01-10 03:30:05 +00:00
Added Apple II version of doesclrscrafterexit().
The prototype and documentation is supposed to be provided together with the ATARI version.
This commit is contained in:
parent
02b8469875
commit
d670998814
21
libsrc/apple2/doesclrscr.s
Normal file
21
libsrc/apple2/doesclrscr.s
Normal file
@ -0,0 +1,21 @@
|
||||
;
|
||||
; Oliver Schmidt, 2016-06-05
|
||||
;
|
||||
; unsigned char doesclrscrafterexit (void);
|
||||
;
|
||||
|
||||
.export _doesclrscrafterexit
|
||||
.import done
|
||||
|
||||
.include "apple2.inc"
|
||||
|
||||
_doesclrscrafterexit:
|
||||
; If the page we jump to when done equals the page
|
||||
; of the warmstart vector we'll return to BASIC so
|
||||
; there's no implicit clrscr() after exit().
|
||||
lda done+2
|
||||
sec
|
||||
sbc #>DOSWARM
|
||||
|
||||
ldx #>$0000
|
||||
rts
|
Loading…
x
Reference in New Issue
Block a user