Re: A83: calcoff in AShell

To: assembly-83@lists.ticalc.org
Subject: Re: A83: calcoff in AShell
From: ZaMaddOne <ZaMaddOne@aol.com>
Date: Wed, 18 Mar 1998 19:04:10 EST
Delivered-To: assembly-83-outgoing@towerguard.unix.edu.sollentuna.se
Reply-To: assembly-83@lists.ticalc.org

When I add the stuff to make this ashell compatible it still doesn't work in
ashell.
it just makes the calc freeze for a few seconds but doesn't turn it off.

In a message dated 98-03-16 22:18:29 EST, you write:

<< Subj:	 Re: A83:  Can someone tell me how to...
 Date:	98-03-16 22:18:29 EST
 From:	Itskavity@aol.com (Its kavity)
 Sender:	owner-assembly-83@lists.ticalc.org
 Reply-to:	assembly-83@lists.ticalc.org
 To:	assembly-83@lists.ticalc.org

 Thanks, I never thought of storing them in Strings, but even if i didnt i
 could still protect my program before i sent it to me calculator.  Also I
know
 the code to turn off the calculator I just dont know how to have an Input in
 assembly

 ; CALCOFF.Z80  v1.0
 ; Turns your ti-83 calculator off

 .NOLIST
 #define equ .equ
 #define EQU .equ
 #define end .end
 #include "ti83asm.inc"
 #include "tokens.inc"
 .LIST

 .org 9327h

 OFF:
         DI                 ; disable interrupts
         LD A,001H
         OUT (003H),A       ; turn off screen
         LD A,000H
         OUT (004H),A
         EX AF,AF'
         EXX
         EI                 ; enable interrupts
 ;
 ;  Put code here that you want to execute when the calculator turns back on
 ; 
     set textInverse,(iy+textflags)
     CALL _CLRLCDFULL      ;CLEAR SCREEN
     LD HL,0200h
     ld (currow),hl
     LD HL,Madeby
     CALL _PUTS
     res textInverse,(iy+textflags)
     CALL _getk
 ret

 Madeby .db "Made By Mike Walsh", 0        
 .end
 END >>