RE: A85: Interupts


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

RE: A85: Interupts




Here is the source I wrote.  I stole some of the code from a grayscale routine.  Have fun.  It should work...

#include "ti-85.h"

IntLocation	=$8D00
IValue		=$8D
Interrupt	=$8C8C
Interrupt2	=$8989
Length		=128			;# of pointers

.org 0
.db "Special Interrupt Tester", 0

GetLoop:
	call GET_KEY

	cp K_F1
	jr Z,InstallInterrupt

	cp K_F2
	jr Z,Unload

	cp K_EXIT
	ret Z
	jr GetLoop

Unload:
	im 1
	ret

InstallInterrupt:
	im 1
        ld      DE,Interrupt
	ld	HL,IntLocation
	ld	B,Length

CopyLoop:
	ld	(HL),E
	inc	HL
	ld	(HL),D
	inc HL
	djnz CopyLoop               

        ld a,IValue
        ld i,a

        im 2
        ret

Int_Rout:
	ex AF,AF'
	exx

        in a,(3)
        bit 1,a			;make sure the LCD is on (I don't know why,
        jr z,EndInt		;but it needs this, even if you know it will
				;be on, say if you are running it only from
				;within a certain program, like grayscale)

        ld IY,_IY_TABLE
	ld DE,CURSOR_ROW
	ld A,(DE)
	ld H,A
	inc DE
	ld A,(DE)
	ld L,A

	push HL
	ld HL,$0700
	ld (CURSOR_ROW),HL
	ld A,'I'
	ROM_CALL(TR_CHARPUT)	;places the text on the screen

	pop HL
	ld A,H
	ld (CURSOR_ROW),A
	ld A,L
	ld (CURSOR_COL),A

EndInt:
	exx
	ex AF,AF'
	jp $38

Int_RoutEnd:

.end


----------
From: 	JIF578@aol.com[SMTP:JIF578@aol.com]
Sent: 	Saturday, January 16, 1999 8:10 PM
To: 	assembly-85@lists.ticalc.org
Subject: 	Re: A85: Interupts


sure, but what it it?? and how do i make ASM's from .85p prog's any1 know??


thanks,
/ | Jeff | /




begin 600 WINMAIL.DAT
M>)\^(BX3`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" $$@ $`$P```%)%.B!!.#4Z($EN=&5R
M=7!T<P#'!0$%@ ,`#@```,\'`0`2``P`*P`$``$`)0$!(( #``X```#/!P$`
M$@`,`"@`'@`!`#P!`0F `0`A````-#DR0S R04%$,D%%1#(Q,4%%,C8T-#0U
M-3,U-# P,# `Z@8!`Y &`+ &```2````"P`C```````#`"8```````L`*0``
M`````P`V``````! `#D`8,)YPQI#O@$>`' ``0```!,```!213H@03@U.B!)
M;G1E<G5P=',```(!<0`!````%@````&^0QK#<JH"+$JNTA'2KB9$15-4````
M`!X`'@P!````!0```%--5% `````'@`?# $````;````<FEC:&%R9&QE=VES
M0&-E9&%R8VET>2YN970```,`!A G;9,7`P`'$ 0$```>``@0`0```&4```!(
M15)%25-42$533U520T5)5U)/5$5)4U1/3$533TU%3T942$5#3T1%1E)/34%'
M4D%94T-!3$523U5424Y%2$%614953DE44TA/54Q$5T]22R-)3D-,541%(E1)
M+3@U2"))3E1,``````(!"1 !````,@4``"X%``"1"P``3%I&=1GG3*O_``H!
M#P(5`J@%ZP*#`% "\@D"`&-H"L!S970R-P8`!L,"@S(#Q0(`<')"<1'B<W1E
M;0*#,S<"Y <3`H,T!$83,S$@=PA5![("@'T*@ C/"=D[\1@/,C4U`H *@0VQ
M"V#@;F<Q,#,44 L*%6$E"_)C`$ @2 2092!1! `@=&@=(',(86,Q'2!)('<#
M8!/0+B ?'A$3P ;P'9('@"!O9A<=8P6@#; @`U(@82!U"<!A$[!C!T =( -@
M=49T"X >@DAA=B Q=29N'I(%0'-H"&!L9',>, 6P:RXCD J%"H4C+0N 8PI 
M("$B(9 M.% U+F@B(\Q)`C!,'F\A$"&0`B ,@B ]),@X1# *=DE6!T *4,\G
M4R=7)C@$D')U!3 G5MY#*R IOA*P)V4Y+. *A1I,"?!G'7 HV3$R.),HV"=3
M.R,?@G!O"X"5*D%S(\PN!;!G( IVQ"YD)X B4W %D <QF2H8(%0'D"I!(BPQ
MQXT*A4<1P";0;W Z"H8')V(A$0,@1T547TL,15DCS#8T<"!+7Y1&,37*:@7 
M6BPFH%\3P#:1*B<W3SA6,CCO53)N%Z!A9#K_.%5%6-Q)5#7*&! %0%H\G35%
M[R/,/:0UNP=P(#C;0($ESC\Z'$-_"H5(QB,A2,-$19\YX3J,)U,C("=32$Q)
M\N<FUDJ?)X!"+"V4(\P(4"QP>35_2U4H2\ I+/Y%1VLDP$MU3\]0U2FF4<;A
M4HUD:FYZ3R=(QTC$>R/,2-EA.> H@UA?'3 L_F%7[TC#1$$\ADC&14\FH4Y?
M" `A@#6[97@4L$;J+&!@)U]\>%M/7%0#H)%9<"@S*5G]8FD%0.XQ6R NW@# 
M:QV1"' =(/$=<DQ#1!TR`B!0X!X@BF0"("<%0&MN;P?@L'=H>2Q9_3FA>E$P
M[&YD)J$O*6(A@!TP!4#?(; )@!U2! `T,&4B( .@^0:0('D(8&?T9)$#\#:@
MJS7*+MYB'W%N-#!S(.#_;%8*P"%!(F #`!L0:Q("(/YL;^ #4FV?+RD#\&NQ
M8R%?'_ $D &08Q$34&\@P6WY-#!L:681(,=CAEG_'A (62Q?=]!?5$%"#DQ1
M2R,A2=%#55)3I$]27Q!/5WB=06-0]TG08X9Y!DA@@%1.2=!Z7Y][;R,P2]!\
MMC7*<'4BX&-2CTNR)# W)^=Y!BC/>;A1(('??M G26"[>B `35]#04Q,*%0!
M>@!#2$%24%54OBDO= M1'? =5!/0>'%"_QUD!0`)X8!?@6%6T84O?M!^2(-O
MA'E\NWZC@>Z$5D/^3U$1@$UIU%]M8:9?[SD8\3B )#,X7@]?$VG1-;:?,18)
M\#W]"HMU4#$X)^#C`@`E4#$T- WP#-";XUD+63$V"J >4F,%0"U?G@<*AYR[
M##"=AD8#83H'GPZ=AB=32DE&-3<H.$!A!O N!:!M6Z!33510.J+,79ZOOY^]
M!F"30:#_H@H&$'0(<-9D(. T,$H`<'4*P&_@$YU0-# Q.:J (#@Z,1LP(%!-
MI/^?O51ONZ<_H?MA!! 3X )@>25A9D!U4!/ <RXAD"$18\<Q@JL_I@YU8FJ=
MP:U?Z:'[4F6S8$$E<+-@*B/G*H$PG9KF,S:<AQ11"_+_G88*A69"-#!JXFA0
M)P!K$MEDD#\_()!IX" B\ ?@JV>@'3 @9?-!H[ G!"!](%,N)7 X@'3"O)$`
M<'E_%D!H`KL0F9\*LAUP`'!KXVO@"H4O('RBL W!P,%^+[Z/MI^WJQQ%N.T7
M,0`!Q@````,`$! ``````P`1$ ````! ``<PH%@L:!I#O@% ``@PH%@L:!I#
8O@$>`#T``0````4```!213H@`````'8<
`
end