Re: A83: Stubborn prog


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

Re: A83: Stubborn prog




Pat, you're a genius! (Besides the fact that you can't load numbers
directly to the mem location at DE)

>
>
>--BeyondBoundary_1_Thu_Aug_20_14:03:17_1998__29
>Content-Type: text/plain; charset=us-ascii
>Content-Transfer-Encoding: 7Bit
>
>	Try this. I marked my changes as bold type.
>
>
>call	_zeroop1
>	ld	a,tans
>	ld	(op1+1),a
>	call	_findsym
>	jp	c,_errundefined  ; error if not there
>	and	1fh
>	cp	stringobj
>	jp	nz,_errsyntax
>	ld	hl,op1	
>	ld	(hl),progobj	
>	inc	hl		
>	ld	a,(de)
>	ld	c,a
>	ld	b,0
>	inc	de
>	inc	de
>	ex 	de,hl
>	ldir
>	ld	(de),0
>	call	_chkfindsym
>	jp	c,_errundefined
>	sub	5
>	xor	1
>	add	a,5
>LastStep:
>	ld	(hl),a
>	ret
>Later,
>Pat
>
>------------------
>Original text
>
>From: benjamin99@juno.com (Alan C Johnson), on 8/20/98 1:41 PM:
>
>I've calmed slightly but my program still doesn't work.  I think it's
>angry at me, because I can't find another explanation.  It gives me an
>error undefined when I do it from the second _findsym, even when I 
>only
>use _findsym both times.  I'm now horribly confused.  If I don't get 
>this
>soon, I give up.  It just doesn't work.  I've tried all of your
>suggestions.
>
>--Thanks for your help
>   Alan
>
>BTW:  Pseudo code doesn't work to well for me :  (
>
>Here's what I got now:
>
>.NOLIST
>#include "master_m.inc"
>.LIST
>
>.org $9327
>
>
>	call	_zeroop1
>	ld	a,tans
>	ld	(op1+1),a
>	call	_findsym
>	jp	c,_errundefined  ; error if not there
>	and	1fh
>	cp	stringobj
>	jp	nz,_errsyntax
>	ld	hl,op1
>	inc	hl
>	ld	a,(de)
>	ld	c,a
>	ld	b,0
>	inc	de
>	inc	de
>	ex 	de,hl
>	ldir
>	call	_chkfindsym
>	jp	c,_errundefined
>	sub	5
>	xor	1
>	add	a,5
>LastStep:
>	ld	(hl),a
>	ret
>.end
>.end
>
>_____________________________________________________________________
>You don't need to buy Internet access to use free Internet e-mail.
>Get completely free e-mail from Juno at http://www.juno.com
>Or call Juno at (800) 654-JUNO [654-5866]
>
>
>--BeyondBoundary_1_Thu_Aug_20_14:03:17_1998__29
>Content-Type: application/octet-stream; name="ATTRIBS.BND"
>Content-Transfer-Encoding: X-UUENCODE
>Content-Disposition: attachment; filename="ATTRIBS.BND"
>
>begin 666 ATTRIBS.BND
>M0F5Y;VYD(%!A8VME9"!!='1R:6)U=&5S #@N !@ *       <F4Z($$X,SH@
>M4W1U8F)O<FX@<')O9P                                          
>M                                                            
>M '!M:6QH97)O;@                                              
>M                                   \0DU33510.3 S-C0V-S@V.&$P
>M-S,T.3@ 0F5Y;VYD(%!R;W!R:65T87)Y($1A=&$:      0         #P N
>M                            0V]N=F5R<V%T:6]N($ED+3PQ.3DX,#@R
>M,"XQ,S0Q-3<N,3$R.30N,RYB96YJ86UI;CDY0&IU;F\N8V]M/@0         
>M$  )                            365S<V%G92!%;F-O9&EN9PA)4T\M
>M.#@U.00         !  &                            1F]R;05297!L
>M>0$         %0 #                            57-E(%!R;W!O<G1I
>M;VYA;"!&;VYT 0 !"0         - "4                           !0
>M<F5V:6]U<R!&<F]M)&)E;FIA;6EN.3E :G5N;RYC;VT@*$%L86X@0R!*;VAN
>M<V]N*0T         "P N                            4')E=FEO=7,@
>M5&\L &(0 0 ) /__'0    (= !QA<W-E;6)L>2TX,T!L:7-T<RYT:6-A;&,N
>M;W)G#0         + "X                           !/<FEG:6YA;"!T
>M;RP 8A !  D __\=     AT '&%S<V5M8FQY+3@S0&QI<W1S+G1I8V%L8RYO
>M<F<1          T H@0                          $]R:6=I;F%L('1E
>M>'2<! HM+2TM+2TM+2TM+2TM+2TM+2T*3W)I9VEN86P@=&5X= H*1G)O;3H@
>M8F5N:F%M:6XY.4!J=6YO+F-O;2 H06QA;B!#($IO:&YS;VXI+"!O;B X+S(P
>M+SDX(#$Z-#$@4$TZ"@I))W9E(&-A;&UE9"!S;&EG:'1L>2!B=70@;7D@<')O
>M9W)A;2!S=&EL;"!D;V5S;B=T('=O<FLN("!)('1H:6YK(&ET)W,*86YG<GD@
>M870@;64L(&)E8V%U<V4@22!C86XG="!F:6YD(&%N;W1H97(@97AP;&%N871I
>M;VXN("!)="!G:79E<R!M92!A;@IE<G)O<B!U;F1E9FEN960@=VAE;B!)(&1O
>M(&ET(&9R;VT@=&AE('-E8V]N9"!?9FEN9'-Y;2P@979E;B!W:&5N($D@;VYL
>M>0IU<V4@7V9I;F1S>6T@8F]T:"!T:6UE<RX@($DG;2!N;W<@:&]R<FEB;'D@
>M8V]N9G5S960N("!)9B!)(&1O;B=T(&=E="!T:&ES"G-O;VXL($D@9VEV92!U
>M<"X@($ET(&IU<W0@9&]E<VXG="!W;W)K+B @22=V92!T<FEE9"!A;&P@;V8@
>M>6]U<@IS=6=G97-T:6]N<RX*"BTM5&AA;FMS(&9O<B!Y;W5R(&AE;' *(" @
>M06QA;@H*0E17.B @4'-E=61O(&-O9&4@9&]E<VXG="!W;W)K('1O('=E;&P@
>M9F]R(&UE(#H@("@*"DAE<F4G<R!W:&%T($D@9V]T(&YO=SH*"BY.3TQ)4U0*
>M(VEN8VQU9&4@(FUA<W1E<E]M+FEN8R(*+DQ)4U0*"BYO<F<@)#DS,C<*"@H)
>M8V%L; E?>F5R;V]P,0H);&0)82QT86YS"@EL9 DH;W Q*S$I+&$*"6-A;&P)
>M7V9I;F1S>6T*"6IP"6,L7V5R<G5N9&5F:6YE9" @.R!E<G)O<B!I9B!N;W0@
>M=&AE<F4*"6%N9 DQ9F@*"6-P"7-T<FEN9V]B:@H):G );GHL7V5R<G-Y;G1A
>M> H);&0):&PL;W Q"@EI;F,):&P*"6QD"6$L*&1E*0H);&0)8RQA"@EL9 EB
>M+# *"6EN8PED90H):6YC"61E"@EE>" )9&4L:&P*"6QD:7(*"6-A;&P)7V-H
>M:V9I;F1S>6T*"6IP"6,L7V5R<G5N9&5F:6YE9 H)<W5B"34*"7AO<@DQ"@EA
>M9&0)82PU"DQA<W13=&5P.@H);&0)*&AL*2QA"@ER970*+F5N9 HN96YD"@I?
>M7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?
>M7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U\*66]U(&1O;B=T(&YE960@=&\@8G5Y
>M($EN=&5R;F5T(&%C8V5S<R!T;R!U<V4@9G)E92!);G1E<FYE="!E+6UA:6PN
>M"D=E="!C;VUP;&5T96QY(&9R964@92UM86EL(&9R;VT@2G5N;R!A="!H='1P
>M.B\O=W=W+FIU;F\N8V]M"D]R(&-A;&P@2G5N;R!A=" H.# P*2 V-30M2E5.
>M3R!;-C4T+34X-C9="@H     $0         $ %X#                    
>M      !497ATB0$)5')Y('1H:7,N($D@;6%R:V5D(&UY(&-H86YG97,@87,@
>M8F]L9"!T>7!E+@H*"F-A;&P)7WIE<F]O<#$*"6QD"6$L=&%N<PH);&0)*&]P
>M,2LQ*2QA"@EC86QL"5]F:6YD<WEM"@EJ< EC+%]E<G)U;F1E9FEN960@(#L@
>M97)R;W(@:68@;F]T('1H97)E"@EA;F0),69H"@EC< ES=')I;F=O8FH*"6IP
>M"6YZ+%]E<G)S>6YT87@*"6QD"6AL+&]P,0D*"6QD"2AH;"DL<')O9V]B:@D*
>M"6EN8PEH; D)"@EL9 EA+"AD92D*"6QD"6,L80H);&0)8BPP"@EI;F,)9&4*
>M"6EN8PED90H)97@@"61E+&AL"@EL9&ER"@EL9 DH9&4I+# *"6-A;&P)7V-H
>M:V9I;F1S>6T*"6IP"6,L7V5R<G5N9&5F:6YE9 H)<W5B"34*"7AO<@DQ"@EA
>M9&0)82PU"DQA<W13=&5P.@H);&0)*&AL*2QA"@ER970*3&%T97(L"E!A= K/
>M 0, B0'( 0<  @   "$  0 !  $ Q0         " ,8 #P         ! -4 
>M 0         " -8            ! -8 2          " !X!"0         !
>M "<!8P        !,_P       ) !          !#;W5R:65R($YE=P      
>M                          !,_P       +P"          !#;W5R:65R
>M($YE=P                                 !  $ +0 ! "X +@ ! "\ 
>M+P ! #  /0 ! #X 2  ! $D 5@ ! %< 90 ! &8 CP ! )  F  ! )D I@ !
>M *< N  ! +D Q  ! ,4 U@ ! -< X  ! .$ ZP ! .P \P ! /0 ^P ! /P 
>M P$!  0!"P$!  P!%@$! !<!' $! !T!)P$! "@!.0$! #H!30$! $X!5 $!
>M %4!6P$! %P!9 $! &4!;@$! &\!>0$! 'H!?@$! '\!A0$! (8!B0$! (H!
>MB@$               !D  %( P&0!@'8"0$@#0%H$ &P$P'X%@% &@&('0'0
>M( $8) %@)P&H*@'P+2P   $         "@ #                        
>M    1G)O;2!!9V5N= $  0          $  &                        
>9    071T86-H;65N="!#;W5N= 0       
> 
>end
>
>--BeyondBoundary_1_Thu_Aug_20_14:03:17_1998__29--
>

_____________________________________________________________________
You don't need to buy Internet access to use free Internet e-mail.
Get completely free e-mail from Juno at http://www.juno.com
Or call Juno at (800) 654-JUNO [654-5866]


References: