[A83] Getcsc help needed

To: assembly-83@lists.ticalc.org
Subject: [A83] Getcsc help needed
From: "Stephen Watson" <fif_freak00@hotmail.com>
Date: Tue, 16 Oct 2001 10:40:20 -0700
Reply-To: assembly-83@lists.ticalc.org


I don't think it sent last time, but I just need some getcsc help.  here's 
the code:

<ION HEADER>
<START LABEL>
mainmenu:
	bcall(_grbufclr)			; Clear the buffer
	bcall(_clrscrf)				; Clear the display
	ld	bc, 0*256+56			; Load bc with the first coords for a line
	ld	de, 95*256+56			; Load de with the second coords
	ld	hl, 1				; Make sure the ROM call turns pixels ON
	bcall(_darkline)			; Draw the line
	ld	hl, 00*256+17			; Make coords for text
	ld	(pencol), hl			; Load the coords to pencol/penrow
	ld	hl, menutext			; Load the text
	bcall(_vputs)				; Put the text on the screen
<MENU CHOICE TEXT>
	ld	hl, 57*256+5
	ld	(pencol), hl
	ld	hl, author
	bcall(_vputs)
keypress:
	call	waitkey
	cp	a, SkYequ
	jp	z, NewPic
	cp	a, SkWindow
	jp	z, LoadPic
	cp	a, SkZoom
	jp	z, SwapPics
	cp	a, SkTrace
	jp	z, Help
	cp	a, SkDel
	jp	z, Quit
	jp	keypress
Quit:
	ret
Help:
	ret
NewPic:
	ret
LoadPic:
	ret
SwapPics:
	ret
waitkey:
	ei
WKA_loop:
	HALT
	bcall(_getcsc)
	or	a
	jr	z, WKA_loop
	ret
<TITLE PIC>
<TEXT STRINGS>
.end
end

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp