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:
Oliver Schmidt 2016-06-05 13:00:37 +02:00
parent 02b8469875
commit d670998814
1 changed files with 21 additions and 0 deletions

View 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