git.sur5r.net Git - cc65/blob - libsrc/apple2/doesclrscr.s

   1 ;
   2 ; Oliver Schmidt, 2016-06-05
   3 ;
   4 ; unsigned char doesclrscrafterexit (void);
   5 ;
   6
   7         .export         _doesclrscrafterexit
   8         .import         done
   9
  10         .include        "apple2.inc"
  11
  12 _doesclrscrafterexit:
  13         ; If the page we jump to when done equals the page
  14         ; of the warmstart vector we'll return to BASIC so
  15         ; there's no implicit clrscr() after exit().
  16         lda     done+2
  17         sec
  18         sbc     #>DOSWARM
  19
  20         ldx     #>$0000
  21         rts