A83: Help!!!

To: assembly-83@lists.ticalc.org
Subject: A83: Help!!!
From: RedPicasso@aol.com
Date: Tue, 8 Dec 1998 05:49:10 EST
Delivered-To: assembly-83-outgoing@towerguard.unix.edu.sollentuna.se
Reply-To: assembly-83@lists.ticalc.org


could anyone tell me why this code will freeze up after you input the
frequency?

.nolist
#include "ti83asm.inc"
#include "tokens.inc"
#include "sos.inc"

.org 9327h
.list

	xor a
	jr	initialize
	.dw	0
	.dw	description

description:
	.db	"Frequency",0

initialize:
	call	_runindicoff
	call	_clrLCDfull
	ld	hl,input_cycles
	call	_puts
	ld	a,1
	ld	(ASM_IND_CALL),a
	call	$50B2 ;PGMIO_EXEC
	call	_ckint
	jr	nz,notint
	ld	de,op1
	ld	a,(de)
	ld	b,a
	ld	hl,input_frequency
	call	_puts
	call	_newline
	ld	a,1
	ld	(ASM_IND_CALL),a
	call	$50B2 ;same as above
	call	_ckint
	jr	nz,notint
	ld	de,op1
	ld	a,(de)
	ld	c,a

beep:	di               ;joe's beep routine
	ld	e,$D0
beepl1:	ld	a,c
beepl2:	dec	a
	jr	nz,beepl2
	ld	a,e
	xor	%00000011
	ld	e,a
	out	(0),a
	djnz	beepl1
	ei
	ret

notint:
	ld	hl,not_an_integer
	call	_puts
	call	_getkey    ;I would like to change these to jp _getkey
	ret                  ;but when I do it resets my mem.  why?

input_cycles:
	.db	"How many cycles?",0
input_frequency:
	.db	"Frequency?",0
not_an_integer:
	.db	"Not an integer!",0
.end
END