home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8501.d64 / disassembler (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  98 lines
  1. 1 REM DEZIMAL-DISASSEMBLER
  2. 2 REM
  3. 3 REM STEFAN HEINE
  4. 4 REM WIESENREDDER 1
  5. 5 REM 2330 ECKERNFOERDE
  6. 6 REM
  7. 7 REM
  8. 10 POKE53280,0:POKE53281,0
  9. 20 PRINT"[147][155]         DISASSEMBLER  1.5"
  10. 30 PRINT"            BY ST.HEINE"
  11. 40 PRINT:PRINT:PRINT
  12. 50 PRINT"[158]* ADRESSEN BITTE DEZIMAL "
  13. 60 PRINT"  EINGEBEN!!!":PRINT
  14. 70 PRINT"* ADRESSEN: W=WEITER E=ENDE":PRINT
  15. 80 PRINT"* DRUCKER : 'RETURN'=NEIN"
  16. 90 PRINT:PRINT:PRINT
  17. 100 REM    COPYRIGHT * ST.HEINE *
  18. 110 DIMM$(255),L%(255),F%(255),F1$(12),F2$(12)
  19. 120 FORI=0TO255:READM$(I):NEXT:FORI=0TO255:READL%(I):NEXT:FORI=0TO255:READF%(I)
  20. 130 NEXT:FORI=0TO12:READF1$(I),F2$(I):NEXT:PC=0
  21. 140 IFIC=1THENGOSUB360:IC=0
  22. 150 INPUT"[154]# ANFANGSADRESSE";A$
  23. 160 INPUT"[155]# AUSGABE AUF DRUCKER";GC$
  24. 170 HC$=LEFT$(GC$,1)
  25. 180 IFHC$="J"THENIC=1
  26. 190 J=LEN(A$):IFJ>5THEN140
  27. 200 IFA$="W"THEN230
  28. 210 IFA$="E"THEN900
  29. 220 PC=VAL(A$)
  30. 230 FORI=1TO24:DZ=PC:PRINT"";:P1=PEEK(PC)
  31. 240 ONL%(P1)GOSUB260,270,330
  32. 250 NEXT:GOTO140
  33. 260 PRINTTAB(1)"";PC;:PRINTTAB(9)"";P1;:PRINT"";TAB(24);M$(P1):PC=PC+1:RETURN
  34. 270 PRINTTAB(1)"";PC;:PRINTTAB(9)"";P1;:P2=PEEK(PC+1):PRINTTAB(13)P2;
  35. 280 PRINT"";TAB(24)M$(P1);" [154]";
  36. 290 IFF%(P1)=9THENP2=PEEK(PC+1):IFP2<128THENP2=PC+P2+2:GOTO310
  37. 300 IFF%(P1)=9THENP2=PC-(255-P2)+1
  38. 310 PRINTF1$(F%(P1));P2;:DZ=P2:GOTO320
  39. 320 PRINTF2$(F%(P1)):PC=PC+2:RETURN
  40. 330 PRINTTAB(1)"";PC;:PRINTTAB(9)"";P1;:P2=PEEK(PC+1):PRINTTAB(14)P2;
  41. 340 P3=PEEK(PC+2):PRINTTAB(19)P3;:PRINT"";TAB(24);M$(P1)"[154]";:P4=(P3*256)+P2
  42. 350 PRINTP4;F1$(F%(P1));:DZ=P3*256+P2:PRINTF2$(F%(P1)):PC=PC+3:RETURN
  43. 360 OPEN4,4:PRINT#4,CHR$(15)
  44. 370 VB=1024:VC=55296
  45. 380 FORI=VBTOVB+999STEP40:P$=""
  46. 390 FORJ=0TO39:X=PEEK(I+J)
  47. 400 IFX<32THENX=X+64:GOTO440
  48. 410 IFX<64THEN440
  49. 420 IFX<96THENX=X+32:GOTO440
  50. 430 IFX<128THENX=X+64:GOTO440
  51. 440 P$=P$+CHR$(X)
  52. 450 NEXT:PRINT#4,P$:NEXT:CLOSE4:RETURN
  53. 460 REM*** DATAS BEFEHLSLISTE ***
  54. 470 DATABRK,ORA,???,???,???,ORA,ASL,???,PHP,ORA,ASL,???,???,ORA,ASL,???
  55. 480 DATABPL,ORA,???,???,???,ORA,ASL,???,CLC,ORA,???,???,???,ORA,ASL,???
  56. 490 DATAJSR,AND,???,???,BIT,AND,ROL,???,PLP,AND,ROL,???,BIT,AND,ROL,???
  57. 500 DATABMI,AND,???,???,???,AND,ROL,???,SEC,AND,???,???,???,AND,ROL,???
  58. 510 DATARTI,EOR,???,???,???,EOR,LSR,???,PHA,EOR,LSR,???,JMP,EOR,LSR,???
  59. 520 DATABVC,EOR,???,???,???,EOR,LSR,???,CLI,EOR,???,???,???,EOR,LSR,???
  60. 530 DATARTS,ADC,???,???,???,ADC,ROR,???,PLA,ADC,ROR,???,JMP,ADC,ROR,???
  61. 540 DATABVS,ADC,???,???,???,ADC,ROR,???,SEI,ADC,???,???,???,ADC,ROR,???
  62. 550 DATA???,STA,???,???,STY,STA,STX,???,DEY,???,TXA,???,STY,STA,STX,???
  63. 560 DATABCC,STA,???,???,STY,STA,STX,???,TYA,STA,TXS,???,???,STA,???,???
  64. 570 DATALDY,LDA,LDX,???,LDY,LDA,LDX,???,TAY,LDA,TAX,???,LDY,LDA,LDX,???
  65. 580 DATABCS,LDA,???,???,LDY,LDA,LDX,???,CLV,LDA,TSX,???,LDY,LDA,LDX,???
  66. 590 DATACPY,CMP,???,???,CPY,CMP,DEC,???,INY,CMP,DEX,???,CPY,CMP,DEC,???
  67. 600 DATABNE,CMP,???,???,???,CMP,DEC,???,CLD,CMP,???,???,???,CMP,DEC,???
  68. 610 DATACPX,SBC,???,???,CPX,SBC,INC,???,INX,SBC,NOP,???,CPX,SBC,INC,???
  69. 620 DATABEQ,SBC,???,???,???,SBC,INC,???,SED,SBC,???,???,???,SBC,INC,???
  70. 630 REM*** DATAS 1,2 ODER 3 BIT ***
  71. 640 DATA1,2,1,1,1,2,2,1,1,2,1,1,1,3,3,1,2,2,1,1,1,2,2,1,1,3,1,1,1,3,3,1
  72. 650 DATA3,2,1,1,2,2,2,1,1,2,1,1,3,3,3,1,2,2,1,1,1,2,2,1,1,3,1,1,1,3,3,1
  73. 660 DATA1,2,1,1,1,2,2,1,1,2,1,1,3,3,3,1,2,2,1,1,1,2,2,1,1,3,1,1,1,3,3,1
  74. 670 DATA1,2,1,1,1,2,2,1,1,2,1,1,3,3,3,1,2,2,1,1,1,2,2,1,1,3,1,1,1,3,3,1
  75. 680 DATA1,2,1,1,2,2,2,1,1,1,1,1,3,3,3,1,2,2,1,1,2,2,2,1,1,3,1,1,1,3,1,1
  76. 690 DATA2,2,2,1,2,2,2,1,1,2,1,1,3,3,3,1,2,2,1,1,2,2,2,1,1,3,1,1,3,3,3,1
  77. 700 DATA2,2,1,1,2,2,2,1,1,2,1,1,3,3,3,1,2,2,1,1,1,2,2,1,1,3,1,1,1,3,3,1
  78. 710 DATA2,2,1,1,2,2,2,1,1,2,1,1,3,3,3,1,2,2,1,1,1,2,2,1,1,3,1,1,1,3,3,1
  79. 720 REM*** DATAS BEFEHLART (ZEICHEN)***
  80. 730 DATA0,10,0,0,0,4,4,0,0,2,1,0,0,3,3,0
  81. 740 DATA9,11,0,0,0,5,5,0,0,8,0,0,0,7,7,0
  82. 750 DATA3,10,0,0,4,4,4,0,0,2,1,0,3,3,3,0
  83. 760 DATA9,11,0,0,0,5,5,0,0,8,0,0,0,7,7,0
  84. 770 DATA0,10,0,0,0,4,4,0,0,2,1,0,3,3,3,0
  85. 780 DATA9,11,0,0,0,5,5,0,0,8,0,0,0,7,7,0
  86. 790 DATA0,10,0,0,0,4,4,0,0,2,1,0,12,3,3,0
  87. 800 DATA9,11,0,0,0,5,5,0,0,8,0,0,0,7,7,0
  88. 810 DATA0,10,0,0,4,4,4,0,0,0,0,0,3,3,3,0
  89. 820 DATA9,11,0,0,5,5,6,0,0,8,0,0,0,7,0,0
  90. 830 DATA2,10,2,0,4,4,4,0,0,2,0,0,3,3,3,0
  91. 840 DATA9,11,0,0,5,5,6,0,0,8,0,0,7,7,8,0
  92. 850 DATA2,10,0,0,4,4,4,0,0,2,0,0,3,3,3,0
  93. 860 DATA9,11,0,0,0,5,5,0,0,8,0,0,0,7,7,0
  94. 870 DATA2,10,0,0,4,4,4,0,0,2,0,0,3,3,3,0
  95. 880 DATA9,11,0,0,0,5,5,0,0,8,0,0,0,7,7,0
  96. 890 DATA,,,,#,,,,,,,",X",,",Y",,",X",,",Y",,,(,",X)",(,"),Y",(,),
  97. 900 END
  98.