ASSEMNE$ASSEMNERDISASS $SEARCHM$FLOATH3$FLOATH $FLOATH2$FLOAT2 $FLOAT $pH +@+>+!+b+R+R+R++ & FLOATING POINT VARIABLE-DECIMAL  Z=0  '' (; "1) VARIABLE TO DECIMAL"'"2) DECIMAL TO VARIABLE"';A$ 2! A$="2" ''"Enter value ";Z < A$="2" I%=3+?&4B4+256*?&4B5: '"Varable is:"'"Exponent : ";~?I%'"Mantissa1 : ";~?(I%+1)'"Mantissa2 : ";~?(I%+2)'"Mantissa3 : ";~?(I%+3)'"Mantissa4 : ";~?(I%+4)' F. A$="1" ''"Enter Exponent ";B$:B%=(B$) P- A$="1" "Enter Mantissa1 ";B$:C%=(B$) Z- A$="1" "Enter Mantissa2 ";B$:D%=(B$) d- A$="1" "Enter Mantissa3 ";B$:E%=(B$) n- A$="1" "Enter Mantissa4 ";B$:F%=(B$) xm A$="1" I%=3+?&4B4+256*?&4B5:?I%=B%:?(I%+1)=C%:?(I%+2)=D%:?(I%+3)=E%:?(I%+4)=F%:'"The decimal is : ";Z  & FLOATING POINT VARIABLE-DECIMAL  Z=0  '' (; "1) VARIABLE TO DECIMAL"'"2) DECIMAL TO VARIABLE"';A$ 2! A$="2" ''"Enter value ";Z < A$="2" I%=3+?&4B4+256*?&4B5: '"Varable is:"'"Exponent : ";~?I%'"Mantissa1 : ";~?(I%+1)'"Mantissa2 : ";~?(I%+2)'"Mantissa3 : ";~?(I%+3)'"Mantissa4 : ";~?(I%+4)' F. A$="1" ''"Enter Exponent ";B$:B%=(B$) P- A$="1" "Enter Mantissa1 ";B$:C%=(B$) Z- A$="1" "Enter Mantissa2 ";B$:D%=(B$) d- A$="1" "Enter Mantissa3 ";B$:E%=(B$) n- A$="1" "Enter Mantissa4 ";B$:F%=(B$) xm A$="1" I%=3+?&4B4+256*?&4B5:?I%=B%:?(I%+1)=C%:?(I%+2)=D%:?(I%+3)=E%:?(I%+4)=F%:'"The decimal is : ";Z  & FLOATING POINT VARIABLE-DECIMAL  Z=0  '' (O "1) VARIABLE TO DECIMAL"'"2) DECIMAL TO VARIABLE"'"3) FWA TO DECIMAL"';A$ - A$="3" dH@ 2! A$="2" ''"Enter value ";Z < A$="2" I%=3+?&4B4+256*?&4B5: '"Varable is:"'"Exponent : ";~?I%'"Mantissa1 : ";~?(I%+1)'"Mantissa2 : ";~?(I%+2)'"Mantissa3 : ";~?(I%+3)'"Mantissa4 : ";~?(I%+4)' A  F2 A$="1" ''"Enter Exponent &"B$:B%=("&"+B$) K DF@ P1 A$="1" "Enter Mantissa1 &"B$:C%=("&"+B$) U DP@ Z1 A$="1" "Enter Mantissa2 &"B$:D%=("&"+B$) _ DZ@ d1 A$="1" "Enter Mantissa3 &"B$:E%=("&"+B$) i Dd@ n1 A$="1" "Enter Mantissa4 &"B$:F%=("&"+B$) xm A$="1" I%=3+?&4B4+256*?&4B5:?I%=B%:?(I%+1)=C%:?(I%+2)=D%:?(I%+3)=E%:?(I%+4)=F%:'"The decimal is : ";Z   A  ?&402 = 2: "Fixed=";A ?&402 = 1: "Scientific=";A  ?&402 = 0: "General=";A   FWA TO DECIMAL ) ''"Enter Exponent &"B$:B%=("&"+B$) dR@ ( "Enter Mantissa1 &"B$:C%=("&"+B$) d\@ ( "Enter Mantissa2 &"B$:D%=("&"+B$) df@ ( "Enter Mantissa3 &"B$:E%=("&"+B$) dp@ ( "Enter Mantissa4 &"B$:F%=("&"+B$) L I%=3+?&4B4+256*?&4B5:?I%=B%:?(I%+1)=C%:?(I%+2)=D%:?(I%+3)=E%:?(I%+4)=F%  X=(Z) a C%>0 C%<&80 I%=3+?&4B4+256*?&4B5:?I%=B%:?(I%+1)=&80:?(I%+2)=0:?(I%+3)=0:?(I%+4)=0:X=Z+X " '"The decimal is : ";X  & FLOATING POINT VARIABLE-DECIMAL  Z=0  '' (O "1) VARIABLE TO DECIMAL"'"2) DECIMAL TO VARIABLE"'"3) FWA TO DECIMAL"';A$ - A$="3" dH@ 2! A$="2" ''"Enter value ";Z < A$="2" I%=3+?&4B4+256*?&4B5: '"Varable is:"'"Exponent : ";~?I%'"Mantissa1 : ";~?(I%+1)'"Mantissa2 : ";~?(I%+2)'"Mantissa3 : ";~?(I%+3)'"Mantissa4 : ";~?(I%+4)' A  F2 A$="1" ''"Enter Exponent &"B$:B%=("&"+B$) K DF@ P1 A$="1" "Enter Mantissa1 &"B$:C%=("&"+B$) U DP@ Z1 A$="1" "Enter Mantissa2 &"B$:D%=("&"+B$) _ DZ@ d1 A$="1" "Enter Mantissa3 &"B$:E%=("&"+B$) i Dd@ n1 A$="1" "Enter Mantissa4 &"B$:F%=("&"+B$) xm A$="1" I%=3+?&4B4+256*?&4B5:?I%=B%:?(I%+1)=C%:?(I%+2)=D%:?(I%+3)=E%:?(I%+4)=F%:'"The decimal is : ";Z   A  ?&402 = 2: "Fixed=";A ?&402 = 1: "Scientific=";A  ?&402 = 0: "General=";A   FWA TO DECIMAL ) ''"Enter Exponent &"B$:B%=("&"+B$) dR@ ( "Enter Mantissa1 &"B$:C%=("&"+B$) d\@ ( "Enter Mantissa2 &"B$:D%=("&"+B$) df@ ( "Enter Mantissa3 &"B$:E%=("&"+B$) dp@ ( "Enter Mantissa4 &"B$:F%=("&"+B$) L I%=3+?&4B4+256*?&4B5:?I%=B%:?(I%+1)=C%:?(I%+2)=D%:?(I%+3)=E%:?(I%+4)=F%  X=(Z) a C%>0 C%<&80 I%=3+?&4B4+256*?&4B5:?I%=B%:?(I%+1)=&80:?(I%+2)=0:?(I%+3)=0:?(I%+4)=0:X=Z+X " '"The decimal is : ";X  & FLOATING POINT VARIABLE-DECIMAL  Z=0  '' (O "1) VARIABLE TO DECIMAL"'"2) DECIMAL TO VARIABLE"'"3) FWA TO DECIMAL"';A$ - A$="3" dH@ 2! A$="2" ''"Enter value ";Z < A$="2" I%=3+?&4B4+256*?&4B5: '"Varable is:"'"Exponent : ";~?I%'"Mantissa1 : ";~?(I%+1)'"Mantissa2 : ";~?(I%+2)'"Mantissa3 : ";~?(I%+3)'"Mantissa4 : ";~?(I%+4)' A  F2 A$="1" ''"Enter Exponent &"B$:B%=("&"+B$) K DF@ P1 A$="1" "Enter Mantissa1 &"B$:C%=("&"+B$) U DP@ Z1 A$="1" "Enter Mantissa2 &"B$:D%=("&"+B$) _ DZ@ d1 A$="1" "Enter Mantissa3 &"B$:E%=("&"+B$) i Dd@ n1 A$="1" "Enter Mantissa4 &"B$:F%=("&"+B$) xm A$="1" I%=3+?&4B4+256*?&4B5:?I%=B%:?(I%+1)=C%:?(I%+2)=D%:?(I%+3)=E%:?(I%+4)=F%:'"The decimal is : ";Z   A  ?&402 = 2: "Fixed=";A ?&402 = 1: "Scientific=";A  ?&402 = 0: "General=";A   FWA TO DECIMAL ) ''"Enter Exponent &"B$:B%=("&"+B$) dR@ ( "Enter Mantissa1 &"B$:C%=("&"+B$) d\@ ( "Enter Mantissa2 &"B$:D%=("&"+B$) df@ ( "Enter Mantissa3 &"B$:E%=("&"+B$) dp@ ( "Enter Mantissa4 &"B$:F%=("&"+B$) L I%=3+?&4B4+256*?&4B5:?I%=B%:?(I%+1)=C%:?(I%+2)=D%:?(I%+3)=E%:?(I%+4)=F%  X=(Z) a C%>0 C%<&80 I%=3+?&4B4+256*?&4B5:?I%=B%:?(I%+1)=&80:?(I%+2)=0:?(I%+3)=0:?(I%+4)=0:X=Z+X " '"The decimal is : ";X  , Memory Search, For BASIC ROM Routines  7 3 "Enter Assembly Code to Search for"'" : "A$ (( "*KEY0 P%=&900:["+A$+"|M"+"G.80|M" 2 *FX138,0,128 < 21 F P Z%=(P%-1)-&900 Z 6 d I%=&8000&BFFF n M%=0:J%=&900(&900+Z%) x! ?J%=?(I%+(J%-&900)) M%=M%+1   M%=Z%+1 "Found at &";~I%   '"End of search."   Disassemle M/C Routine  128:S%=0:F%=0 p =40 Th@ =50 Tr@ =60 =30 "Bad Filename !!! Please Re-enter : "f$::"*SPOOL "+f$:DF@ (* ''"Start Address : ";:""a$:S%=(a$) 2* '"Finish Address : ";:""a$:F%=(a$) 7 *FX229,1 W%=&EE PNT("INC ",200): H W%=&FE PNT("INC ",201): R W%=&E8 PNT("INX ",1): \ W%=&C8 PNT("INY ",1): f W%=&4C PNT("JMP ",200): p W%=&6C PNT("JMP ",205): z W%=&20 PNT("JSR ",200):  W%=&A9 PNT("LDA#",100):  W%=&A5 PNT("LDA ",100):  W%=&B5 PNT("LDA ",101):  W%=&AD PNT("LDA ",200):  W%=&BD PNT("LDA ",201):  W%=&B9 PNT("LDA ",202):  W%=&A1 PNT("LDA ",103):  W%=&B1 PNT("LDA ",105):  W%=&A2 PNT("LDX#",100):  W%=&A6 PNT("LDX ",100):  W%=&B6 PNT("LDX ",106):  W%=&AE PNT("LDX ",200):  W%=&BE PNT("LDX ",202):  W%=&A0 PNT("LDY#",100):  W%=&A4 PNT("LDY ",100):  W%=&B4 PNT("LDY ",101): $ W%=&AC PNT("LDY ",200): . W%=&BC PNT("LDY ",201): 8 W%=&4A PNT("LSR ",2): B W%=&46 PNT("LSR ",100): L W%=&56 PNT("LSR ",101): V W%=&4E PNT("LSR ",200): ` W%=&5E PNT("LSR ",201): j W%=&EA PNT("NOP ",1): t W%=&09 PNT("ORA#",100): ~ W%=&05 PNT("ORA ",100):  W%=&15 PNT("ORA ",101):  W%=&0D PNT("ORA ",200):  W%=&1D PNT("ORA ",201):  W%=&19 PNT("ORA ",202):  W%=&01 PNT("ORA ",103):  W%=&11 PNT("ORA ",105):  W%=&48 PNT("PHA ",1):  W%=&08 PNT("PHP ",1):  W%=&68 PNT("PLA ",1):  W%=&28 PNT("PLP ",1):  W%=&2A PNT("ROL ",2):  W%=&26 PNT("ROL ",100):  W%=&36 PNT("ROL ",101):  W%=&2E PNT("ROL ",200):  W%=&3E PNT("ROL ",201):  W%=&6A PNT("ROR ",2): ( W%=&66 PNT("ROR ",100): 2 W%=&76 PNT("ROR ",101): < W%=&6E PNT("ROR ",200): F W%=&7E PNT("ROR ",201): P W%=&40 PNT("RTI ",1): Z W%=&60 PNT("RTS ",1): d W%=&E9 PNT("SBC#",100): n W%=&E5 PNT("SBC ",100): x W%=&F5 PNT("SBC ",101):  W%=&ED PNT("SBC ",200):  W%=&FD PNT("SBC ",201):  W%=&F9 PNT("SBC ",202):  W%=&E1 PNT("SBC ",103):  W%=&F1 PNT("SBC ",105):  W%=&38 PNT("SEC ",1):  W%=&F8 PNT("SED ",1):  W%=&78 PNT("SEI ",1):  W%=&85 PNT("STA ",100):  W%=&95 PNT("STA ",101):  W%=&8D PNT("STA ",200):  W%=&9D PNT("STA ",201):  W%=&99 PNT("STA ",202):  W%=&81 PNT("STA ",103):  W%=&91 PNT("STA ",105):  W%=&86 PNT("STX ",100): " W%=&96 PNT("STX ",106): , W%=&8E PNT("STX ",200): 6 W%=&84 PNT("STY ",100): @ W%=&94 PNT("STY ",101): J W%=&8C PNT("STY ",200): T W%=&AA PNT("TAX ",1): ^ W%=&A8 PNT("TAY ",1): h W%=&BA PNT("TSX ",1): r W%=&8A PNT("TXA ",1): | W%=&9A PNT("TXS ",1):  W%=&98 PNT("TYA ",1):  W%=&89 PNT("BIT#",100):  W%=&34 PNT("BIT ",101):  W%=&3C PNT("BIT ",201):  W%=&80 PNT("BRA ",102):  W%=&3A PNT("DEC ",2):  W%=&1A PNT("INC ",2):  W%=&DA PNT("PHX ",1):  W%=&5A PNT("PHY ",1):  W%=&FA PNT("PLX ",1):  W%=&7A PNT("PLY ",1):  W%=&64 PNT("STZ ",100):  W%=&74 PNT("STZ ",101):  W%=&9C PNT("STZ ",200):  W%=&9E PNT("STZ ",201):  W%=&14 PNT("TRB ",100): & W%=&1C PNT("TRB ",200): 0 W%=&04 PNT("TSB ",100): : W%=&0C PNT("TSB ",200): D W%=&0F PNT("BBR0",206): N W%=&1F PNT("BBR1",206): X W%=&2F PNT("BBR2",206): b W%=&3F PNT("BBR3",206): l W%=&4F PNT("BBR4",206): v W%=&5F PNT("BBR5",206):  W%=&6F PNT("BBR6",206):  W%=&7F PNT("BBR7",206):  W%=&8F PNT("BBS0",206):  W%=&9F PNT("BBS1",206):  W%=&AF PNT("BBS2",206):  W%=&BF PNT("BBS3",206):  W%=&CF PNT("BBS4",206):  W%=&DF PNT("BBS5",206):  W%=&EF PNT("BBS6",206):  W%=&FF PNT("BBS7",206):  W%=&07 PNT("RB0 ",100):  W%=&17 PNT("RB1 ",100):  W%=&27 PNT("RB2 ",100):  W%=&37 PNT("RB3 ",100):  W%=&47 PNT("RB4 ",100):  W%=&57 PNT("RB5 ",100):  W%=&67 PNT("RB6 ",100): * W%=&77 PNT("RB7 ",100): 4 W%=&87 PNT("SB0 ",100): > W%=&97 PNT("SB1 ",100): H W%=&A7 PNT("SB2 ",100): R W%=&B7 PNT("SB3 ",100): \ W%=&C7 PNT("SB4 ",100): f W%=&D7 PNT("SB5 ",100): p W%=&E7 PNT("SB6 ",100): z W%=&F7 PNT("SB7 ",100):  W%=&7C PNT("JMP ",203):  W%=&12 PNT("ORA ",107):  W%=&32 PNT("AND ",107):  W%=&52 PNT("EOR ",107):  W%=&72 PNT("ADC ",107):  W%=&92 PNT("STA ",107):  W%=&B2 PNT("LDA ",107):  W%=&D2 PNT("CMP ",107):  W%=&F2 PNT("SBC ",107): > PNT("xxx ",0) H  PNT(M$, T%)  ~I%;" "; . H0%=?I%:H0C%=H0%:H0%<32 H0%>126 H0C%=32  H0C%; 2 H1%=?(I%+1):H1C%=H1%:H1%<32 H1%>126 H1C%=32  T%>99 H1C%; " "; 2 H2%=?(I%+2):H2C%=H2%:H2%<32 H2%>126 H2C%=32  T%>199 H2C%; " ";  " ";  "00"+(H0%),3);  " "; ) T%>99 "00"+(H1%),3); " ";  " "; * T%>199 "00"+(H2%),3); " ";  " ";:PBYTE(H0%) ) T%>99 " ";:PBYTE(H1%) " "; * T%>199 " ";:PBYTE(H2%) " ";  " "; M$;  T%=1 :  T%=2 "A": h+ T%=100 "&";:PBYTE(H1%)::I%=I%+1: r0 T%=101 "&";:PBYTE(H1%):;",X":I%=I%+1: |7 T%=200 "&";:PBYTE(H2%):PBYTE(H1%)::I%=I%+2: ; T%=201 "&";:PBYTE(H2%):PBYTE(H1%):",X":I%=I%+2: ; T%=202 "&";:PBYTE(H2%):PBYTE(H1%):",Y":I%=I%+2: = T%=203 "(&";:PBYTE(H2%):PBYTE(H1%):",X)":I%=I%+2: = T%=206 " &";:PBYTE(H1%):" ";:I%=I%+1:T%=102:H1%=H2% ! T%=102 H1%<128 BRAN%=H1% ( T%=102 H1%>127 BRAN%=-(256-H1%) L T%=102 ;BRAN%;" --> &";:BRAT%=I%+2+BRAN%:PBYTE(BRAT%)::I%=I%+1: = T%=204 "(&";:PBYTE(H2%):PBYTE(H1%):"),Y":I%=I%+2: 2 T%=103 "(&";:PBYTE(H1%):;",X)":I%=I%+1: 2 T%=104 "(&";:PBYTE(H1%):;",Y)":I%=I%+1: 2 T%=105 "(&";:PBYTE(H1%):;"),Y":I%=I%+1: ; T%=205 "(&";:PBYTE(H2%):PBYTE(H1%):")":I%=I%+2: 0 T%=106 "&";:PBYTE(H1%):;",Y":I%=I%+1: 0 T%=107 "(&";:PBYTE(H1%):;")":I%=I%+1: ~ "Invalid Code"   PBYTE(BYT%) ( BYT% < 16 ;"0";~BYT%; ;~BYT%;  / "NUM MNE OPCODE"'"--- --- ------"  c%=0 &44  b%=?(&8892+c%) ( b%=b% 4 2 b%=b% &1F < b%=b% &40 F L1$=b% P b%=?(&884D+c%) Z b%=b% 32 d* b%=b%+16*(((?(&8892+c%) &02)=&02)) n) b%=b%+8*(((?(&8892+c%) &01)=&01)) x b%=b% &1F  b%=b% &40 L2$=b%  b%=?(&884D+c%)  b%=b% &1F  b%=b% &40 L3$=b% w "0"+~(c%),2);" ";L1$;L2$;L3$;" ";"0"+~?(&88D7+c%),2);" b1=";"0"+~?(&884D+c%),2);" b2=";~?(&8892+c%)  c% / "NUM MNE OPCODE"'"--- --- ------"  c%=0 &44  b%=?(&8892+c%) ( b%=b% 4 2 b%=b% &1F < b%=b% &40 F L1$=b% P b%=?(&884D+c%) Z b%=b% 32 d* b%=b%+16*(((?(&8892+c%) &02)=&02)) n) b%=b%+8*(((?(&8892+c%) &01)=&01)) x b%=b% &1F  b%=b% &40 L2$=b%  b%=?(&884D+c%)  b%=b% &1F  b%=b% &40 L3$=b% w "0"+~(c%),2);" ";L1$;L2$;L3$;" ";"0"+~?(&88D7+c%),2);" b1=";"0"+~?(&884D+c%),2);" b2=";~?(&8892+c%)  c% )) x b%=b% &1F  b%=b% &40 L2$=b%  b%=?(&884D+c%)  b%=b% &1F  b%=b% &40 L3$=b% n "0"+~(c%),2);" ";L1$;L2$;L3$;" ";"0"+~?(&88D7+c%),2);" b1=";~?(&884D+c%);" b2=";~?(&8892+c%)  c% ))  b%=b% &1F  b%=b% &40 L2$=b%  b%=?(&884D+c%)  b%=b% &1F  b%=b% &40 L3$=b% e "0"+~(c%),2);" ";L1$;L2$;L3$;" ";~?(&88D7+c%);" b1=";~?(&884D+c%);" b2=";~?(&8892+c%)  c%  ) b%=b%+1*((?((&8892+c%) &20)=&20))