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
1 changed files with 21 additions and 0 deletions
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…
Add table
Reference in a new issue