mirror of
https://github.com/cc65/cc65.git
synced 2024-06-07 07:29:33 +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…
Reference in New Issue
Block a user