A83: Re: calls...
[Prev][Next][Index][Thread]
A83: Re: calls...
Here you go Phelan:
; PROGRAM: PROGPTR
; VERSION: 2.00
; AUTHOR: David Eriksson, edison@kuai.se
; DATE: 10/26/96
kEnter .EQU 05h ; Enter key
kQuit .EQU 40h ; Quit key
#define equ .equ ; these will make ti83asm.inc and tokens.inc work in
TASM
#define EQU .equ
.NOLIST
.INCLUDE "ti83asm.inc" ; TI83 System Routine Equates
.INCLUDE "tokens.inc" ; TI83 Tokens
.LIST
.ORG 9327h ; All TI83 programs have base 9327h
LD HL, (PROGPTR) ; get offset to program/list table
LD A, 4 ; four programs/keypress
main_loop:
LD (count), A ; store latest update of count
LD A, (HL) ; get type of data
AND 01FH ; mask out bits 0-4
CP 05H ; program
JR Z, program
CP 06H ; protected program
JR Z, program
CP 01H ; real list
JR Z, list
CP 0DH ; complex list
JR Z, list
JR the_end ; unknown/end of list
program:
DEC HL ; move back 3 bytes to length-of-name
DEC HL
DEC HL
CP 06h ; display '*' for protected programs
JR Z, protected
LD A, ' '
JR go_on
protected:
LD A, '*'
go_on:
CALL _PUTC
LD B, (HL) ; load length-of-string
program_loop:
DEC HL ; move backwards to next char
LD A, (HL) ; load char
CALL _PUTC ; display char
DJNZ program_loop
DEC HL ; move backwards to next item
CALL _NEWLINE
LD A, (count) ; have we displayed four programs?
DEC A
JR NZ, main_loop
key_loop:
PUSH HL
CALL _GETKEY ; wait for key
POP HL
CP kQuit
JR Z, the_end
CP kEnter ; enter key?
JR NZ, key_loop ; no
LD A, 4 ; four programs/keypress
JR main_loop
list:
DEC HL ; move back 3 bytes to length-of-name
DEC HL
DEC HL
LD B, (HL) ; load length-of-string
list_loop:
DEC HL ; move backwards to next char
DJNZ list_loop
DEC HL ; move backwards to next item
LD A, (count) ; no change really, load A
JP main_loop
the_end:
RET
count:
.DB 00h
.END
____________________
James Matthews.
E-mail (family): matthews@tkb.att.ne.jp
E-mail (private): james_matthews@hotmail.com
Homepage: http://home.att.ne.jp/gold/tomcat21/index2.html
ICQ: 7413754
____________________________________
----------
> From: Phelan Wolf <gwatford@worldnet.att.net>
> To: assembly-83@lists.ticalc.org
> Subject: A83: calls...
> Date: Wednesday, April 29, 1998 9:50 AM
>
>
> what do these calls do:
> _scrollUp
> _scrollDown
> ;or something like that
>
> And I still don't understand this VAT thing, I enter in the name I want
> it to search for, and it searches and displays it on the screen, right?
> How do I get it to find ALL the programs and display there names on the
> screen, in a catolog or scrollable style.
>
> -Phelan 'Amen' Wolf
>
> PS: Thanks Trey for the input info, but still I need to find this out
> does anyone know what the call is for an 'INPUT' command???
>
Follow-Ups: