Advertisement
Guest User

Untitled

a guest
Nov 29th, 2021
63
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 00A400 41F9 00020040 VGMPLAY: LEA $20040,A0 * Start der Musikdaten
  2. 00A406 43F9 000FFF50 LEA $FFF50,A1 * Basisadresse Soundchip
  3. 00A40C 6100 00A0 BSR INITSOUND * Alle Stimmen an, aber LEISE
  4. 00A410 1018 PLAYLOOP: MOVE.B (A0)+,D0 * Kommando holen
  5. 00A412 0C00 0052 CHKREGA: CMP.B #$52,D0 * Es sollen YM2612 und YM2608 Ta
  6. 00A416 6706 BEQ.S SETREGA * $52 bzw. $56 sind
  7. 00A418 0C00 0056 CMP.B #$56,D0 * Setze Adresse und Daten
  8. 00A41C 6612 BNE.S CHKREGB * in erster Chip(hûlfte)
  9. 00A41E 1298 SETREGA: MOVE.B (A0)+,(A1) * Adresse und
  10. 00A420 6100 0078 BSR WAITYM
  11. 00A424 1358 0001 MOVE.B (A0)+,1(A1) * Daten in Chip Part A
  12. 00A428 6100 0070 BSR WAITYM
  13. 00A42C 6000 FFE2 BRA PLAYLOOP * Nûchsten Tag holen
  14. 00A430 0C00 0053 CHKREGB: CMP.B #$53,D0 * $53 bzw. $57 sind
  15. 00A434 6706 BEQ.S SETREGB * Setze Adresse und Daten
  16. 00A436 0C00 0057 CMP.B #$57,D0 * in zweiter Chiphûlfte
  17. 00A43A 6614 BNE.S CHKWAI20
  18. 00A43C 1358 0002 SETREGB: MOVE.B (A0)+,2(A1)
  19. 00A440 6100 0058 BSR WAITYM
  20. 00A444 1358 0003 MOVE.B (A0)+,3(A1)
  21. 00A448 6100 0050 BSR WAITYM
  22. 00A44C 6000 FFC2 BRA PLAYLOOP
  23. 00A450 0C00 0063 CHKWAI20: CMP.B #$63,D0 * $63 ist 20ms warten
  24. 00A454 660C BNE.S CHKWAI16
  25. 00A456 323C 0372 WAIT20: MOVE.W #882,D1
  26. 00A45A 6100 0046 BSR WAITTIME
  27. 00A45E 6000 FFB0 BRA PLAYLOOP
  28. 00A462 0C00 0062 CHKWAI16: CMP.B #$62,D0 * $62 ist 16.67ms warten
  29. 00A466 660C BNE.S CHKWAILO
  30. 00A468 323C 02DF WAIT16: MOVE.W #735,D1
  31. 00A46C 6100 0034 BSR WAITTIME
  32. 00A470 6000 FF9E BRA PLAYLOOP
  33. 00A474 0C00 0061 CHKWAILO: CMP.B #$61,D0 * $61 ist beliebige Zeit warten
  34. 00A478 6610 BNE.S CHKEND
  35. 00A47A 1218 MOVE.B (A0)+,D1 * 16bit Zahl in korrekter
  36. 00A47C E159 ROL.W #8,D1 * Endianess
  37. 00A47E 1218 MOVE.B (A0)+,D1 * ins Register D1 laden
  38. 00A480 E159 ROL.W #8,D1
  39. 00A482 6100 001E BSR WAITTIME
  40. 00A486 6000 FF88 BRA PLAYLOOP
  41. 00A48A 0C00 0066 CHKEND: CMP.B #$66,D0 * $66 ist ENDE
  42. 00A48E 6704 BEQ.S ENDE
  43. 00A490 6000 FF7E BRA PLAYLOOP
  44. 00A494 6000 0018 ENDE: BRA INITSOUND * Alles aus
  45. 00A498 4E75 RTS
  46. 00A49A
  47. 00A49A 7E01 WAITYM: MOVEQ #1,D7
  48. 00A49C 51CF FFFE WAITYM1: DBRA D7,WAITYM1
  49. 00A4A0 4E75 RTS
  50. 00A4A2
  51. 00A4A2 7007 WAITTIME: MOVEQ #7,D0
  52. 00A4A4 51C8 FFFE WAITTIM1: DBRA D0,WAITTIM1
  53. 00A4A8 51C9 FFF8 DBRA D1,WAITTIME
  54. 00A4AC 4E75 RTS
  55. 00A4AE
  56. 00A4AE
  57. 00A4AE 12BC 0029 INITSOUND: MOVE.B #$29,(A1) * Interruptregister
  58. 00A4B2 137C 0080 0001 MOVE.B #$80,1(A1) * 6 Stimmen einschalten
  59. 00A4B8 7005 MOVEQ #5,D0
  60. 00A4BA 12BC 0028 OFFLOOP: MOVE.B #$28,(A1) * Key On/Off Register
  61. 00A4BE 1341 0001 MOVE.B D0,1(A1)
  62. 00A4C2 51C8 FFF6 DBRA D0,OFFLOOP
  63. 00A4C6 4E75 RTS
  64. 00A4C8
  65.  
  66. 00A4C8 Endadresse PC
  67. 00A4C8 Endadresse PC + OFFSET
  68. 0 Fehler entdeckt
  69. 0E12FA Ende-Symboltabelle / Anzahl Symbole : 43
  70.  
Advertisement
RAW Paste Data Copied
Advertisement