RE: A85: A ROM function


[Prev][Next][Index][Thread]

RE: A85: A ROM function




I have a little TSR program I wrote myself that copies the current menu in 
to the custom menu, then you can check out the data thats in the custom 
menu.  It is fairly simple to use.  Just look at the code.  It should work 
as is.  Have fun.  Note: the position of the routines will be in different 
spots on different ROM versions.  Here is the source(ZShell 4.0):

#include "ti-85.h"

.org 0
.db "Copy Menu", 0


InstallInterrupt:
        ld      a,$88
	ld	hl,$8700
	ld	b,0

CopyLoop:
	ld	(hl),a		
	inc	hl		
	djnz	CopyLoop


	ld	hl,(PROGRAM_ADDR)	
	ld	de,Int_Rout
	add	hl,de		; get the rout we want to be called
        ld      de,$8888        ;where it gets called from
        ld      bc,Int_RoutEnd+1-Int_Rout
	ldir			; copy it there

        ld a,$87
        ld i,a

        im 2
        ret

Int_Rout:
	ex AF,AF'
	exx

        in a,(3)
        bit 1,a           ; check that it is a vbl interrupt
        jr z,EndInt

	in A,(3)
	bit 3,A			;on pressed?
	jr Z,Pressed

EndInt:
	exx
	ex AF,AF'
	jp $38

Pressed:
	ld A,(KEY_1)
	cp K_ENTER
	jr Z,ExitInt

	ld HL,$820E
	ld DE,$8BB3+10
	ld BC,20
	ldir
	jr EndInt

ExitInt:
	im 1

	jr EndInt


Int_RoutEnd:


.end


----------
From: 	Kaus .theman.com[SMTP:jedsmeny@hotmail.com]
Sent: 	Sunday, September 20, 1998 5:15 PM
To: 	assembly-85@lists.ticalc.org
Subject: 	A85: A ROM function


Hey!  Anyone know where the functions in ROM are for the eval or evalF
lcoations are? or where i could find them?  i couldn't find them in the
ti-rom10 text.

please! I need help with this!

Jonathan Kaus


______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com




begin 600 WINMAIL.DAT
M>)\^(B4$`0:0" `$```````!``$``0>0!@`(````Y 0```````#H``$-@ 0`
M`@````(``@`!!) &`$@!```!````# ````,``# #````"P`/#@`````"`?\/
M`0```%<`````````@2L?I+ZC$!F=;@#=`0]4`@````!A<W-E;6)L>2TX-4!L
M:7-T<RYT:6-A;&,N;W)G`%--5% `87-S96UB;'DM.#5 ;&ES=',N=&EC86QC
M+F]R9P``'@`", $````%````4TU44 `````>``,P`0```!T```!A<W-E;6)L
M>2TX-4!L:7-T<RYT:6-A;&,N;W)G``````,`%0P!`````P#^#P8````>``$P
M`0```!\````G87-S96UB;'DM.#5 ;&ES=',N=&EC86QC+F]R9R<```(!"S !
M````(@```%--5% Z05-314U"3%DM.#5 3$E35%,N5$E#04Q#+D]21P````,`
M`#D`````"P! .@$````"`?8/`0````0````````#PD$!"( '`!@```!)4$TN
M36EC<F]S;V9T($UA:6PN3F]T90`Q" $$@ $`& ```%)%.B!!.#4Z($$@4D]-
M(&9U;F-T:6]N`,X&`06 `P`.````S@<)`!4`%@`$``8``0`4`0$@@ ,`#@``
M`,X'"0`5`!4`.P`0``$`5 $!"8 !`"$````X.$0Y,S4Q,CE$-3%$,C$Q044R
M-C0T-#4U,S4T,# P, ##!@$#D 8`, <``!(````+`",```````,`)@``````
M"P`I```````#`#8``````$ `.0"@`30+WN6]`1X`< `!````& ```%)%.B!!
M.#4Z($$@4D]-(&9U;F-T:6]N``(!<0`!````%@````&]Y=X+$A(UV8E1G1'2
MKB9$15-4`````!X`'@P!````!0```%--5% `````'@`?# $````;````<FEC
M:&%R9&QE=VES0&-E9&%R8VET>2YN970```,`!A!]0H/H`P`'$&0$```>``@0
M`0```&4```!)2$%614%,25143$544U)04D]'4D%-25=23U1%35E314Q&5$A!
M5$-/4$E%4U1(14-54E)%3E1-14Y524Y43U1(14-54U1/34U%3E4L5$A%3EE/
M54-!3D-(14-+3U545$A%1$%4``````(!"1 !````K@4``*H%``#*"P``3%I&
M=?NY/H'_``H!#P(5`J@%ZP*#`% "\@D"`&-H"L!S970R-P8`!L,"@S(#Q0(`
M<')"<1'B<W1E;0*#,S<"Y <3`H,T!$83,S$@=PA5![("@'T*@ C/"=D[\1@/
M,C4U`H *@0VQ"V#@;F<Q,#,44 L*%6%%"_)C`$ @22 1@'9 92!A(&QI`D!L
MH1U 5%-2(!-0;PG -&%M'.%W`V 3T"!MP1.P96QF('01@ 5 O06@< B0!" ?
MH!U 8PAPSQ@0`C ?( GP=2 +@!^0WF\@51/ `W A$RP@4@.@/GD(8!_@`Y$1
M< 60:R#W"& %0"!B9!_ '6 ?H@0@<R%R(>PN(!S@!4 $`"!"9@MP<FQY( "0
M;:\+4!U (:$B(&4F84HB(?D=<&]O(_ ?P2!C!'$F9.1S: A@;&0>P 6P*.$5
M)2%S)F%('2)F=6Z5)F%.'O$Z(%-P;P"0_'1I`B D`!^"'4 #8"0@UPN !Y$#
M\&P#(&(=0"%QVF0&D&8$D"#B<RR@)1'#+0$NZ%)/32 =,!&@7RSQ*Q,O(2:R
M(&)S"&%C,&4H6E,@<"Y1-"Y8,"DZ"H4*A2,+@&,3"D -L" B+. M.#4H+F@B
M,YPN!;!G(+$*=BYD8C3P"%!P)T"Z32$Q(B+ "G8SG$D`@-\!D"Y0.; 3T"# 
M=04P,X8'.R8J43LC82PD.#A/"H8!D3NA//-H;#Q!-V8P"G<]"6(L.%TWDDPM
M*,!P,X8\^B@]L"DL_F$\\SSS,_8\\S2!/65"G^$\Y&1J;GH\\T!V.LTG.R4S
MG#S]*% PL$=2`$%-7T%$1%(IUT3_/38-L"PZ(5\(`"0A.4N:860]5PVP1*@[
M(-YG$< M5Q[ '4!W`' D,?\AL"Z!(W N4 F .L]21$S!YSQ1/&!21CMW(' Q
MP@5 ?T_1!"!1A";@`V%1[U948@)C3.=%;F0K,2W_3/=(#3SU)Q!$J$]E'_$G
M0+]4P2!A&! SG#LY/#(W7-^?(6!"<%QO5E,'<" R7DV=&!!T.-Y-%$#[97@4
ML-1&+&2P)V/,>%^?8*2C`Z \,"@S*5Y-8E3!_C%"<$>)6W$CPQ^C5,$FP;T=
M8'8"8"%A.D5>36H%P/QZ+%@1.B%(CT/B%+!GJ?L_%%3!,V306HXM`1-0!Y 9
M$;!D/TN:;0%:+%!_<=0SG&U48[UE]F0_<GAP^" D,SQV"H5S54#];P*@2T59
M7S%O6V-X((!+7T5.5$52<D^<17@=D&V/>D9(3#Q!)0'017G=1$4\04)"AC-8
M0#XM($)#+ '0?UF.?+UM7W1R?=1 ^V#Q,?]^/X2?.,]7MS.--@8)\'.]<PJ+
M'8 Q.#X0`@`U(#$\-#0-\ S0CU,+63$VZPJ@'N)C!4 MD7<*AY K^PPPD/9&
M`V$L0) /D10\\[Q+82(@-F @80.!+@6@`&U;4TU44#IJI0F <R$A>4 J('0`
MP/L#$);R79(?DRT&8'3AE&_ME7I3*[ DD'DBP 9@!3 ?$^ N@ 7 `= BP#$Y
M.:%3P#4Z,35Y0$V8[_F3+51OFR^5:RK0$; &T/LG,#4Q0!V $\ K$"S@48'.
M8S9RGR^9_G5BEY"10-NA3Y5K035 +$!!,*,KH<^10"SQC7^.@S,VC_<444\+
M\I#V"H4QH'DA)G!!QY?P`B =0&MN;P?@5&3_(&*IYB4C,+(*P"N!!;$@8KQE
M=@= ) `%P+%B1C/VW:2 ;Q_ K^.PH3^QHE1EWQ_A*D*/(%@@(%)MLX"T)OQN
M)P5 M+<E-@J%-1$#8><;,!^0=L!T+C.<)Y$JT/YEK@`<\"WP58$R\7@@`_#7
M'Z ?D00`(3.<2@(@'\#?$8 #H)8RC0\*LE^^3[]?U\!OP) *A4=/X5D(87E!
M_FFQ<!/0(L"4$ G@=)"84HTH\F@"0$#@+R]WQ(!_-6"8.+S_JP\;ZZSM%S$`
M`<F0```#`! 0``````,`$1 `````0 `',& Y#5[=Y;T!0 `(,& Y#5[=Y;T!
6'@`]``$````%````4D4Z( ````!\5@`'
`
end