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: