.nolist                 ;\
        #include "ion.inc" 
        .list                   ;  \
#ifdef TI83P                    ;   \
        .org    sram-2          ;    > Standard Ion Module Header
        .db     $BB,$6D         ;   /
#else                           ;  /
        .org    sram            ; /
#endif                          ;/
        ret             ; modules must not run from the TI-OS
        .db     2       ; identify program type as a module
                        ; NOTE: This used to be a 1 for
	cp 15
	jr z,fource_exit
	CP 56
	JR Z,fource_exit
	in a,(0)
	cp 3
	ret z
fource_exit:
	ld hl,22275 ;<- this is the return number, I assume it is different on the 83
	ex (sp),hl
 	ret
 
.end