OnBlock

We're glad you came by, but you might find what you're looking for elsewhere.

TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it.

Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

You have not uploaded your program! Please edit the page to upload your program.

Author:

Justin Wales
Download: onblock.zipNo Download Available
Version: 1.0
Compatibility: TI-83/84/+/SE
File Size: 139 Bytes
Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc
Rating:
TI|BD

Ever wanted a program with the [ON] button disabled? This program is for you! View this file on ti-calc.org

SOURCE CODE (z80):

.nolist
#include "ti83plus.inc"
.org userMem-2
.db $BB,$6D
.list

      bcall(_RclAns)
      bcall(_ConvOp1)
      ld a,e
      or a
      jr z,Install_Interrupt
      dec a
      ret nz
Uninstall_Interrupt:
      im 1
      ret
Install_Interrupt:

      di
      ld hl,$9900
      ld de,$9901
      ld bc,256
      ld (hl),$9a
      ldir

      ld    hl,interrupt_start                 
      ld    de,$9a9a                      
      ld    bc,interrupt_end-interrupt_start 
      ldir                                
      ld    a,$99
      ld    i,a               
      im    2                 ;switch to mode 2
      ei                      ;enable interrupts
      ret

Interrupt_Start:
      ex af,af'
      exx
      in a,($03)
      and %11111110
      out ($03),a
      call $003A
      reti
Interrupt_End:
.end

What the community thinks:

Add a New Comment
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Noncommercial 2.5 License.