64'er 1989 December/64er_Magazin_89-12_1989_Markt__Technik_de_Side_A.d64/dis-ass

Commodore BASIC | 2022-10-26 | 1KB | 21 lines

1 data"#","$","$,x","$,y","$","$,x","$,y","#","($,x)"
2 dimm$(256):dimc$(12):data"($),y","($)"," [193]kku":s$="0123456789abcdef"
3 j=65535:forx=1to12:readc$(x):next:forw=0to256:reade$:ife$=""thennext
4 m$(w)=right$(e$,3)+c$(asc(left$(e$,1))-64):next:print"[147][150][210]eass by [205].[203]essler"
5 data@brk,iora,,,,bora,basl,,@php,aora,lasl,,,eora,easl,,hbpl,jora,,,,cora
6 datacasl,,@clc,gora,,,,fora,fasl,,ejsr,iabd,,,bbit,band,brol,,@plp,aand,lrol,
7 dataebit,eand,erol,,hbmi,jand,,,,cand,crol,,@sec,gand,,,,fand,frol,,@rti,ieor
8 data,,,beor,blsr,,@pha,aeor,llsr,,ejmp,eeor,elsr,,hbvc,jeor,,,,ceor,clsr,
9 data@cli,geor,,,,feor,flsr,,@rts,iadc,,,,badc,bror,,@pla,aadc,lror,,kjmp,eadc
10 dataeror,,hbvs,jadc,,,,cadc,cror,,@sei,gadc,,,,fadc,fror,,,ista,,,bsty,bsta
11 databstx,,@dey,,@txa,,esty,esta,estx,,hbcc,jsta,,,csty,csta,cstx,,@tya,gsta
12 data@txs,,,fsta,,,aldy,ilda,aldx,,bldy,blda,bldx,,@tay,alda,@tax,,eldy,elda
13 dataeldx,,hbcs,jlda,,,cldy,clda,dldx,,@clv,glda,@tsx,,fldy,flda,gldx,,acpy
14 dataicmp,,,bcpy,bcmp,bdec,,@iny,acmp,@dex,,ecpy,ecmp,edec,,hbne,jcmp,,,
15 dataccmp,cdec,,@cld,gcmp,,,,fcmp,fdec,,acpx,isbc,,,bcpx,bsbc,binc,,@inx,asbc
16 data@nop,,ecpx,esbc,einc,,hbeq,jsbc,,,,csbc,cinc,,@sed,gsbc,,,,fsbc,finc,,a
17 input"[158][211]tart";s:fori=stoj:a$=m$(peek(i)):c=0:forn=1tolen(a$):j$=mid$(a$,n,1)
18 ifj$=""thenc=c+1:ifc=2orc=4thenh=peek(i+c/2):gosub20:print""spc(n+7)h$;"[145]"
19 next:print""ichr$(13);spc(7)"[145][158]: ";a$:i=i+c/2:poke198,0:wait198,1:next
20 a=h/16:b=hand15:h$=mid$(s$,a+1,1)+mid$(s$,b+1,1):return