ZXTape! 0Created with Ramsoft MakeTZXKEYFACTS u   GALILEO 7  1985  B23693\,71G:23624H\,71G:0:59999_ ""60000` 60000` ( 0:8,0;:"" |LOGO P: @!! z[F~##* @?p|@q""@ q> 0= @!  " 0 "((  0`q! B A"q` D(( B   " " D"p" " r/< " `0<< `D"<B  (*  !@< ""  x" !  ()  @=0oA q"!po@@qR( [@08"! !p@1?          0  ?     0  D D?   ??  D D       ??           ??                               0  i|88|% p'<  `l@DEPQ@%  'B l@DDA@%'"q'<rxqly@EEAQx%((Q((""r',"'" "" @""lAD)MPQ4@%"Q(/(x" "<"'"z<p< ""lAD)EPQQ@%("O(()"""( "'  "l@88O|%i'xgqQ'B"zohw6?<xD GjD GlD GG@flow chartU a$="flow chart" 7:1:1: >3;0,0;" " S3;1;1,0;"LETTS";0;" Keyfacts Revision Software" #>3;2,0;" " %6;1;1;5,7;" ";6,7;" COMPUTER STUDIES ";7,7;" " (210 ,2;"For O-Level GCE,CSE,and GCSE" 2e1;7;18,10 ;"Produced by";19,2;" Bourne Educational Software" <020,3;" Charles Letts & Co. Ltd." F:12 ,((32 -a$)/2);5;1;a$ P14,2; U 1 Z"" AREM ,.\5 ..# # <@=T''8 ,\\\,\-2͇C:KK.\X![!@@P!!88 W K SR P   1 y$="UMMAGUMMAAPINKFLOYDALBUM"  0 w=14:a$ n=07  e:a$+n,e n:w ]"a",00010100,001101106,01110111w,0,0,0,0,0 ]"b",0,0,0,0,0,01110111w,001101106,00010100 M"c",32 ,96`,224,0,224,96`,32 ,0 E"d",4,6,7,0,7,6,4,0 d1:1:7: n65;1,6;1;"**FLOW CHARTS**" sy=4:x=0 u6:1 xy,x+1;"Flow charts representing six";y+1,x;"different programs are displayed";y+2,x;"one at a time.";y+3,x+1;"As the programs are executed";y+4,x;"certain variables change." y+5,x+1;"You are asked to step through";y+6,x;"the flow chart and complete the";y+7,x;"table,filling in the values of";y+8,x;"certain variables." 7:1 9900& score=0 maxsc=0 g=16  6:1 .g<59000(#+g*100d:240 8300l +g*100d 7:1 n=((*4))+2 step=1 !maxsc=maxsc+(2*n)+1 1y2=9 :y1=13 :y=16:x=14 <y,x;"STOP is a boolean";y+1,x;"variable which has" Cy+2,x;"value YES if the";y+3,x;"program stops at A" 7y+4,x;"and NO if it";y+5,x;"continues." Mg=2g=4y1,x;"The program stops";y1+1,x;"when I is 0." Eg=6y1,x;"A null string";y1+1,x;"stops the program." (g=5y1,x;n;" strings are read" 2g=1g=3y1,x;n;" values are read."  n$="MS" g<3n$="TOT"  g=3n$="MAX"  g=4n$="MIN"  m$="I":g>4m$="S" y2,x;"Try to fill in the";y2+1,x;"value of ";n$;;y2+2,x;"and STOP at ";1;1;7;"A";7;1;0;"." M1;0,17;m$;0,21;"STOP";0,28;n$ (160,175:0,-60< (208,175:0,-60< (120x,164:135,0 !ycol=2 "5:1 %g>47000X 'g46000p +g ,2:2:7: 6sc=((score/maxsc)*100d) @'5,6;"You scored ";sc;"%" J-sc>80P7,8;"Well done!!" Tsc<40(7,2;"It might be an idea if you";8,2;"revised this topic more";9 ,2;"thoroughly." ^ 9900& h 1 z mmt=0 |&g=3mmt=(*20)+1 ~&g=4mmt=(*40()+1 Hmmt0ycol,21;"NO";ycol,28;mmt:ycol=ycol+1 ti=mmt  j=1n i=(*502)+1 $j=ng1g3i=0 ycol,16;i g=1mmt=mmt+i g=2mmt=mmt+ti g=3mmttimmt=ti 6047:6080  gic=0 1xcol=21:z$="---":yn=1:8600! Jj=nq$(1)="Y"ycol,21;"YES":score=score+step:gic=1 Jjnq$(1)="N"ycol,21;"NO ":score=score+step:gic=1 >gic=1d=120:0.01z# =,d:d:6077 0.1}L,-5 j=nycol,21;"YES" jnycol,21;"NO "  goes=1 xcol=28  8600!  ycol,xcol;" ";ycol,xcol;q$ Dq$mmtgoes=10.1}L,-5:goes=2:6085 Wq$=mmtd=120:0.01z# =,d:d:ycol,28;q$;" ":score=score+step }q$mmt0.1}L,-5:ycol,xcol;" ":1;ycol,xcol;mmt;0;" ":d=1200:d:ycol,xcol;mmt ycol=ycol+1 ti=i j  85004! M11 ,13 ;"So when the program";12 ,13 ;"ends, ";n$;"="  9980& *ycol=12 :xcol=23:8600!  ycol,xcol;" ";ycol,xcol;q$ Lq$=mmtd=120:0.01z# =,d:d:score=score+step:6150 0.1}L,-5 &1;ycol,xcol;mmt;0;" " d=1200:d 9900&: ]7010b:7025q bm=(*18)+1 gm1=(*4)+1 le$=y$(mm+m1) o qm$=e$ s/g=5Ʊm$=5m$=m$(13) v01;ycol,21;"NO";ycol,27;m$ xt$=m$ {ycol=ycol+1  j=1n  7010b g=6j=ne$=" " ycol,15;e$  6047 g=5Ʊe$>m$m$=e$ g=6Ʊt$ !0ycol,xcol;z$;ycol,xcol;1;1;" " !q$="" !p$=:p$=""8615! !0.01z# =,5 !.p$=13 q$""yn=0:8677!: !p$=12 8680! !5yn=1(p$<97aůp$>122z)8615! !4yn=0(p$<480ůp$>579)8615! !q$=z$8615! !"yn=1p$=((p$)-32 ) ! q$=q$+p$ !Pycol,xcol;q$;:q$";7,3;"LEN MS?" "o 8880" "t12 ,4;"MS=S" "y>1;16,4;"ALL S";17,4;"READ?" " " " y=118v "28,y:44,,18:39',-18 ")-39',-18:-44,,18 " " 9401$ "y=18:x=42* "%16,70F:36$,y:x,-y "-x,-y:-36$,y "A1;12 ,4;"LEN S<";13 ,4;"LEN MS?" "#1;7,4;"S=''?" "18,4;"MS=S" # # # 9700% #y=114r:9600% #6,2;"TOT=TOT+I" #y=80P:9500% #$1;11 ,4;"ALL I" #$1;12 ,4;"READ?" #'524,114r:0,-18 #1;8,6;"" #'524,149:0,-16 #1;4,6;"" #&524,64@:0,-12 # 1;14,6;"" #14,8;"YES" #C16,y:-12 ,0:0,84T:14,0 #1;8,0;"" #12 ,0;"NO" # 10 ,3;1;"A" # # 9700% #y=116t:9500% #7,4;"I=0?" $y=68D:9600% $ 12 ,2;"TOT=TOT+I" $'524,100d:0,-14 $ 1;10 ,6;"" $'524,149:0,-16 $1;4,6;"" $"H8,78N:-4,0:0,84T:12 ,0 $#7,0;1;"" $$&86V,116t:12 ,0 $& 7,11 ;1;"" $(5,4;1;"A" $*6,10 ;"YES" $,10 ,7;"NO" $6 $W 9360$ $Y 9700% $[$g=3y=118v:9500% $^y=68D:9600% $hy=39':9500% $jQg=3524,149:0,-16:1;4,6;"" $kQg=5524,149:0,-12 :1;3,6;"" $lG524,101e:0,-14:1;10 ,6;"" $n&524,68D:0,-12 $p 1;14,6;"" $rF524,23:0,-12 :1;19,6;"" $t&89Y,118v:11 ,0 $v&0,-79O:-11 ,0 $x!1;10 ,12 ;"" $zK16,39':-12 ,0:0,128:16,0 $|1;8,0;"" $~6,11 ;"NO" $9 ,7;"YES" $19,7;"YES" $!1;17,0;"NO" $ 15,3;1;"A" $ $ 9305Y$ $ 1 $/6,5;"I>";7,5;"MAX?" $12 ,3;"MAX=I" $516,4;"ALL I";17,4;"READ?" $ 0 $ $ 9460$ $ 9700% $y=116t:9500% $'524,149:0,-16 $4,6;1;"" $F86V,116t:12 ,0:7,11 ;1;"" $N6,10 ;"YES";10 ,7;"NO";1;5,4;"A" $G524,100d:0,-14:1;10 ,6;"" $#g=4y=70F:9500% $&524,546:0,-14 $ 15,6;1;"" $y=22:9600% $15,7;"YES" $&524,22:0,-12 $ 1;19,6;"" $K524,10 :-480,0:0,154:14,0 $1,1;1;"" $&16,70F:-12 ,0 $ 12 ,0;1;"" $!12 ,1;1;"NO" $ $ 9401$ $7,5;"I=0?" $112 ,5;"I<";13 ,5;"MIN?" %18,4;"MIN=I" % % %! 16,y %# x=16 %&36$,x:36$,-x %+-36$,-x:-36$,x %l % %U8,y:0,18:86V,0:0,-18:-86V,0 % % % 1 %&8,149:18,26 %:72H,0:-18,-26:-72H,0 &1,3;"READ A" & (g42,2;"NUMBER I" &(g>42,2;"STRING S" &* 0: & &/6;1;21,3;"" &z$= &z$="*"1 &z$13 9915& & &<o=1521:o,14;" ":o: '23613=\,4:23614>\,61=:" "23552\,23627K\+(23628L\)*256-23552\: 65023:23613=\,4:23614>\,61=:"Please stop the tape.":9993 ' 'U address,a$:a$="stop"23613=\,84T:23614>\,255:650786: ' i=1̱a$2:high=a$(i)-480:low=a$(i+1)-480:high=high-39'*(high>9 ):low=low-39'*(low>9 ):byte=(16*high)+low:address,byte:address=address+1:i:9991' ' 65024,"f53a3a5c3c2004f1c33800f13eff323a5ccdb0162a595c010100cd55162a595c112dfe010100ebedb0fbc3e212f700000000000000003efeed47ed5ec93e3fed47ed56c9" ' $ 65279,"00fe",0,"stop" high levelS  a$="high level" 7:1:1: >3;0,0;" " S3;1;1,0;"LETTS";0;" Keyfacts Revision Software" #>3;2,0;" " %6;1;1;5,7;" ";6,7;" COMPUTER STUDIES ";7,7;" " (210 ,2;"For O-Level GCE,CSE,and GCSE" 2e1;7;18,10 ;"Produced by";19,2;" Bourne Educational Software" <020,3;" Charles Letts & Co. Ltd." F:12 ,((32 -a$)/2);5;1;a$ P14,2; U 1 Z"" AREM .\Z- .# # <@=T''8 \\\\Lʊʊ.\7X![!@@P!!88 W K SR P0:0 F*e$="ZIGGYSTARDUSTANDTHESPIDERSFROMMARS" Pa=0:score=0 U Zj=12 [a$:q=07 \ s:a$+q,s ^q:j `I"a",0,0,0,255,255,0,0,0 by"b",11000000,01110000p,00111100<,255,255,00111100<,01110000p,11000000 d1:1:7: x`2,2;6;"**";5;1;"HIGH LEVEL LANGUAGES";0;6;"**" 35,1;"1) Expressions and Assignments" X7,1;"2) Branches and Loops";9 ,1;"3) Subroutines and Strings" 713 ,5;6;1;"**SELECT(1-3)**" ,Z$=:Z$<491ůZ$>513160 1000*Z$ k$(5,10 ) )9000(#:i=15:k$(i):i i=15 1:7: B0,2;1;6;"EXPRESSIONS AND ASSIGNMENTS" 2,0;" An expression is a sequence of operands,operators and functionsevaluated by the computer."'" An assignment statement is a statement which gives a value toa variable."  a$=k$(i) b=(*20)+1  c=(*20)+1  i=2c=c*3 5:1  9 ,4;"10 LET B=";b !11 ,4;"20 LET C=";c $"13 ,4;"30 LET A=";a$ .a=a$ 8 15,4;"40 PRINT A" = 6 B217,0;"What value of A is printed? " L4xpos=28:ypos=17:z$="---":8000@ `Kq$=a20,5;"That's right.":score=score+1:1999 j617,0;"That's wrong. Follow the trace: " t+18,2;"LINE B C A" ~&12 ,23:180,0 n60<,0:0,30:108l,0:0,30:158,0:0,30  1800 j=10 40(10  b1,c1,a1 *20,3;j;20,9 ;b1 'c1=9999'20,15;"-" &c19999'20,15;c1 'a1=9999'20,21;"-" &a19999'20,21;a1 !j/5+7,1;"" .1}L,10  9900& !j/5+7,1;" " d20,2;" ";20,9 ;" ";20,15;" ";20,21;" " d=130:d j 6:2 Gj=1721:j,0;" ":j /18,0;"So the segment returns ";a 4b,9999',9999',b,c,9999',b,c,a,b,c,a $9900&:i:9800H&:1 k$(5,5) )9100#:g=15:k$(g):g i=15  1:7: 90,5;6;1;"BRANCHES AND LOOPS"  T2,0;" A Branch transfers control out of the normal program sequence." *l4,0;" A Loop is a set of instructionsobeyed repeatedly until a given condition is satisfied." /b=(*20)+1 4#i<3b=(*6)+1 >c=(*20)+1 ?#i=2c=(*6)+1 @c1=c C a$=k$(i) E5:1 H 8,4;"10 LET B=";b R!10 ,4;"20 LET C=";c WI>22500 \H12 ,4;"30 FOR I=0B:LET C=";a$;13 ,7;":NEXT I" f(15,4;"40 LET A=C:PRINT A" hU=0B:C=A$:U:a=c jc=c1 k 6 l2160p:2199 p>17+(i>2),0;"What value of A is printed? " z@xpos=28:ypos=17+(i>2):z$="---":8000@ Kq$=a20,5;"That's right.":score=score+1:2999 618,0;" " 617,0;"That's wrong. Follow the trace: " +18,2;"LINE B C A" &12 ,23:180,0 n60<,0:0,30:108l,0:0,30:158,0:0,30   2490 e=10 40(10 .e/5+6+(e=40(),1;"" *20,3;e;20,10 ;b c2,a1 e=302244 'c2=9999'20,16;"-" &c29999'20,16;c2 'a1=9999'20,22;"-" &a19999'20,22;a1 e=302260 .1}L,10  9900& e302350.  h=0b .1}L,10 c=a$ $21,12 ;1;"I=";h Y20,3;"30";20,10 ;b;20,16;c;20,22;"-" 12 ,1;"" . 9900& 0e20,2;" ";20,10 ;" ";20,16;" ";20,22;" " 3.e/5+6+(e=40(),1;" " >d=130:d @e=30h A'e=3021,12 ;" " Be L 2900T 79999',9999',c1,9999',c1,9999',c,a 12 ,4;"30 LET A=B" V14,4;"40 IF ";A$(13+(2*(i=5)));" THEN LET A=C" 16,4;"50 PRINT A" a=b:a$a=c 6 2160p 9150# e=10 50210 .1}L,10 !e/5+6,1;"" *20,3;e;20,10 ;b c2,a1 'c2=9999'20,16;"-" &c29999'20,16;c2 #'a1=9999'20,22;"-" %1a19999'e40(20,22;a1 (e40(2800 +20,22;a -true=0 / xdq=4 2a$=1true=1 7|true21,xdq;1;"CONDITION IS FALSE":d=1150:d:21,xdq;" ":2800 <,21,xdq;1;"CONDITION IS TRUE" A9900&:.1}L,10 F$21,xdq;" " 9900& e20,2;" ";20,10 ;" ";20,16;" ";20,22;" " !e/5+6,1;" " d=130:d e 6:2 Gj=1721:j,0;" ":j /18,0;"So the segment returns ";a $9900&:I:9800H&:1 k$(5,9 ) 9200# e=15:k$(e):e 'i=15:1:7: @0,3;6;1;"Strings and Subroutines" P2,0;" A String variable is a string of alphanumeric characters." j4,0;" A Subroutine is a block of codecalled from the main program to do a particular task."  a$=k$(i) goes=1 weq1=(*24)+1 weq2=(*3)+3 ?goes=1n$=e$(weq1weq1+weq2):goes=2:3085 S$=E$(weq1weq1+weq2) 5:1 I>331200 #I=3ƱN$<5N$=N$+"OD" @I=1S$=S$(1weq2-2):N$=N$(14) $'8,4;"10 LET S$='";s$;"'" %(10 ,4;"20 LET N$='";n$;"'" &#12 ,4;"30 LET S$=";a$ +!14,4;"40 PRINT S$" / 3200 0'7,4;"10 LET S$='";s$;"'" 2'9 ,4;"20 LET N$='";n$;"'" 4!11 ,4;"30 GOSUB 80" 6&13 ,4;"40 PRINT S$:STOP" 8I15,4;"80 IF ";A$;16,7;"THEN LET S$=N$:RETURN" 6 H17,0;"What does S$ hold after the program has run ? " Igoes=1:type=2:ypos=18:xpos=18:z$="--------" 9500% 8100 oq$=f$d=120:.01z# =,d:d:score=score+1:20,5;"That's right.":3999 .1}L,-5 (goes=1goes=2:3210 617,0;"That's wrong. Follow the trace: " 618,0;" " &18,4;"LINE N$ S$" &23,23:156,0 I68D,0:0,31:124|,0:0,31 e=10 40(10 "e=30i>37500L e=30s$=f$ +20,5;e;20,17;s$ %e=10 20,11 ;"--" "e>10 20,9 ;n$ ,i3e/5+6,1;"" ,i>3e/5+5,1;"" .1}L,10 9900& Q20,5;" ";20,9 ;" ";20,17;" " ,i3e/5+6,1;" " ,i>3e/5+5,1;" " d=130:d e 6:2 Gj=1721:j,0;" ":j 018,0;"So the segment returns ";f$ $9900&:I:9800H&:1 QG20,5;30;20,9 ;n$;20,17;s$ V11 ,1;"" [.1}L,10 ` 9900& cQ20,5;" ";20,9 ;" ";20,17;" " e11 ,1;" " gd=130:d i.1}L,10 j15,1;"" o7f$s$21,4;1;"CONDITION IS TRUE" t8f$=s$21,4;1;"CONDITION IS FALSE" ys$=f$ ~C20,5;"80";20,9 ;n$;20,17;s$  9900& )21,4;" " 15,1;" "  3300 = ********** > ?**** Egoes=1:type=1 J 8100 O-q$=ad=120:.01z# =,d:d: Q.1}L,-5 T(goes=1goes=2:8010J ^ ypos,xpos;1;z$ "ypos,xpos;1;1;" " q$="" p$=:p$=""8115 .01z# =,5 p$=13 q$"" p$=12 8170 =type=1p$"-"(p$<480ůp$>579)8115 7type=2(p$<97aůp$>122z)8115 $type=2p$=((p$)-32 ) q$ȱz$8115  q$=q$+p$ Qypos,xpos;q$;:q$B","C-4N$","S$n$f$=n$ %0i=5Ʊs$" &z$= &z$="*"1 &z$13 9915& &21,25;" " & '23613=\,4:23614>\,61=:" "23552\,23627K\+(23628L\)*256-23552\: 65023:23613=\,4:23614>\,61=:"Please stop the tape.":9993 ' 'U address,a$:a$="stop"23613=\,84T:23614>\,255:650786: ' i=1̱a$2:high=a$(i)-480:low=a$(i+1)-480:high=high-39'*(high>9 ):low=low-39'*(low>9 ):byte=(16*high)+low:address,byte:address=address+1:i:9991' ' 65024,"f53a3a5c3c2004f1c33800f13eff323a5ccdb0162a595c010100cd55162a595c112dfe010100ebedb0fbc3e212f700000000000000003efeed47ed5ec93e3fed47ed56c9" ' $ 65279,"00fe",0,"stop" low level r  a$="low level" 7:1:1: >3;0,0;" " S3;1;1,0;"LETTS";0;" Keyfacts Revision Software" #>3;2,0;" " %6;1;1;5,7;" ";6,7;" COMPUTER STUDIES ";7,7;" " (210 ,2;"For O-Level GCE,CSE,and GCSE" 2e1;7;18,10 ;"Produced by";19,2;" Bourne Educational Software" <020,3;" Charles Letts & Co. Ltd." F:12 ,((32 -a$)/2);5;1;a$ P14,2; U 1 Z"" AREM +\fD+0# # <@=T''8 \\\\3+\;X![!@@P!!88 W K SR PWell done! You have broken into what was until now an unbreakable system!Please claim your prize from BES,Bourne House,The hundreds,Romsey,Hants. c0:0 d1:1:7: nF1;5;2,0;"*ASSEMBLY LANGUAGE PROGRAMMING*" xQ5,2;"1)Characteristics of ";6,7;"Low Level Languages" J9 ,2;"2) Assembly Language";10 ,15;"Programming" 715,6;6;1;"**SELECT(1-2)**" ,Z$=:Z$<491ůZ$>502160 Z$="2"3000  ?3;1;0,3;"TABLE OF CHARACTERISTICS" +2,10 ;"MACHINE CODE ASSEMBLY" &0,148:255,0 (79O,159:0,-136 )179,159:0,-108l (1;4,0;"Written in" X9 ,0;"Example";9 ,10 ;"0010 1001001";9 ,23;"LOAD A" b1;11 ,0;"Translator";13 ,0;"Advantages";16,0;"Uses";  6  x1=11 :willy=0 n4,x1;"------";5,x1;"-----";6,x1;"-----------";7,x1;"-------";11 ,x1;"----" >4,23;"---------";11 ,23;"---------" K19,0;"Try to complete the table by replacing the dashes." &3117:ts=0:score=0 6=Actually,there was something here,but I changed it(24/4/85) 7score=0:9900& 8w=17 ;willy=0 @a$:d$:y:x J 2500 OCq$a$willy=00.1}L,-5:willy=1:330J TAq$=a$d=120:0.01z# =,d:d:score=score+1 Y$q$a$0.1}L,-5:y,x;a$ ^w c360h:365m hDr=1821:r,0;" " ir j mOscore=718,0;"You completed all the entries correctly." rEscore=118,0;"You completed 1 entry correctly." |o(score>1score<7)score=018,0;"You completed ";score;" entries"'"correctly."  9900&  360h A13 ,10 ;"No assembler";14,10 ;"required" =13 ,23;"Easier to";14,23;"program" O16,10 ;"Writing Operating";17,10 ;"Systems programs." M18,10 ;"Making efficient use ";19,10 ;"of the CPU." I20,10 ;"Access at Word and";21,10 ;"Bit level."  9900&  =:0,1;1;"ASSEMBLY LANGUAGE PROGRAMMING"  5:1 y,x;d$ y,x;1;1;" " q$="" p$=:p$=""2520 .01z# =,5 Hp$=13 q$""2590 :0.1}L,12 :7:0: p$=12 2570 (p$<97aůp$>122z2520 q$ȱd$2520 p$=((p$)-32 ) q$=q$+p$ Jy,x;q$;:q$579)7015g q$=37015g  q$=q$+p$ =16,4;q$;:q$<3e$(q$+13)  7015g q$=""7015g q$=q$(1̱q$-1)  7055 VF:5;0,1;1;"ASSEMBLY LANGUAGE PROGRAMMING" `p0,1;1;"LOAD x";6;0;"-copies the contents of"'"address x to the accumulator." jm3,1;1;"ADD x";6;0;"-adds the contents of"'"address x to the accumulator." tt6,1;1;"SUB x";6;0;"-subtracts the contents of"'"address x from the accumulator." ~q9 ,1;1;"STORE x";6;0;"-copies the contents of"'"the accumulator to address x." M12 ,1;1;"JMP x";6;0;"-jump to location x." r14,1;1;"JZERO x";0;6;"-jump to location x if"'"the contents of accumulator=0." q17,1;1;"JNEG x";6;0;"-jump to location x if"'"the contents of accumulator<0." q20,1;1;"JPOS x";6;0;"-jump to location x if"'"the contents of accumulator0." (r=11000:""7594 r :3040 >****** ? J 6 T=0,0;"INSTRUCTION";1,0;" REGISTER" Yy=135:85004! ^77,2;"PROGRAM";8,2;"COUNTER" cy=79O:85004! h!14,0;"ACCUMULATOR" my=33!:85004! r 7 w%0,18;1;"MEMORY" |)134,174:0,-138 )206,174:0,-138 d=36$17016 134,d:72H,0 d s=2162  s,26;6;s-2 s 18,0;3;7;0;"What are the contents in decimalof the accumulator when the program segment has run ? " =21,1;1;"Key 'X' for index of mnemonics"  5r=1(3+(2*(k1k2)))  r*2,17;m$(v(k,r)) &r :/14,19;v12;16,19;v14 D !3**** !>4,y:80P,0 !C80,22:-80P,0:0,-22 !H #25r=1(3+(2*(k1k2))) #7 v=v(k,r) #<v=1ac=v12 #>v=2ac=ac+v14 #@v=3ac=ac-v14 #Bv=4fv12=ac #D"v=5r=5:90157# #F-v=6ac=0r=5:90157# #H-v=7ac<0r=5:90157# #J-v=8ac0r=5:90157# #Pr #Z #/x,y:100d-x,0:0,146-y $-16,0 $ $T x-1,y $Y q=x-1100d-1 $^1;q,y $cq $e1;100d,y $h%y>146q=y146-1 $ky<146q=y146 $m1;100d,q $oq $p1;100d,146 $rq=100d85U-1 $|1;q,146 $q $ $g=1200:g $ v=v(k,t) $v<50.1}L,20 $v=1134,58::-502,-14:act=v12:16,4;1;act;0;" ":g=1200:g:16,4;act:134,58::1;-502,-14:84T,44,: $v=2134,42*:act=act+v14:-502,2:16,4;1;act;0;" ":g=1200:g:16,4;act:134,42*:1;-502,2:84T,44,: $v=3134,42*:act=act-v14:-502,2:16,4;1;act;0;" ":g=1200:g:16,4;act:134,42*:1;-502,2:84T,44,: $v=4134,58::-502,-14:14,19;1;act;0;" ":g=1200:g:14,19;act:134,58::1;-502,-14:84T,44,: $=v=5t=5:g=1200:g:jmp=1: $Iv=6act=0t=5:g=1200:g:jmp=1: %Iv=7act<0t=5:g=1200:g:jmp=1: %Iv=8act0t=5:g=1200:g:jmp=1: % &HL"LOAD 12","ADD 14","SUB 14","STORE 12","JMP 8","JZERO 8","JNEG 8","JPOS 8" &R12,3,5,6,7,8 &"BINARY","------",4,X1,"OCTAL","-----",5,X1,"HEXADECIMAL","-----------",6,X1,"DECIMAL","-------",7,X1 &n"MNEMONICS","---------",4,23,"NONE","----",11 ,x1,"ASSEMBLER","---------",11 ,23 &'21,24;1;"" &z$= &z$="*"1 &z$13 9915& &21,24;" " & '23613=\,4:23614>\,61=:" "23552\,23627K\+(23628L\)*256-23552\: 65023:23613=\,4:23614>\,61=:"Please wait a moment.":9993 ' 'U address,a$:a$="stop"23613=\,84T:23614>\,255:650786: ' i=1̱a$2:high=a$(i)-480:low=a$(i+1)-480:high=high-39'*(high>9 ):low=low-39'*(low>9 ):byte=(16*high)+low:address,byte:address=address+1:i:9991' ' 65024,"f53a3a5c3c2004f1c33800f13eff323a5ccdb0162a595c010100cd55162a595c112dfe010100ebedb0fbc3e212f700000000000000003efeed47ed5ec93e3fed47ed56c9" ' $ 65279,"00fe",0,"stop"