; QUIT.SYSTEM from ProDOS-2.4.2

PRODOS_MLI      := $BF00
INIT            := $FB2F
HOME            := $FC58
SETKBD          := $FE89
SETVID          := $FE93

CLR80COL        := $C000
CLR80VID        := $C00C

.macpack apple2
.setcpu "6502"
.org    $2000

        sta     CLR80VID
        sta     CLR80COL
        jsr     SETVID
        jsr     SETKBD
        jsr     INIT
        jsr     HOME
        jsr     PRODOS_MLI
        .byte   $65     ; quit
        .word   THING
        scrcode "By John Brooks. 9/15/2016"
THING:  .byte   $04, $00, $00, $00, $00, $00, $00