home *** CD-ROM | disk | FTP | other *** search
/ Top-Magazin 1992 March / Top_Magazin_1992_03_Top_Crew_de_Side_B.atr / asm5.src next >
Text File  |  2023-02-26  |  1KB  |  79 lines
  1. ******************************
  2. * ASSEMBLER-KURS TEIL 5      *
  3. *              *
  4. * BEISPIELPROGRAMME ZU DEN   *
  5. * ADRESSIERUNGSARTEN      *
  6. *              *
  7. ******************************
  8. *
  9. FARBE    EQU 708
  10.  
  11.     ORG $A800
  12.     JMP DEMO.
  13. *
  14. * HINTER JMP DEN DEMONAMEN EINTRAGEN
  15. * MIT ESC U NACH DEM ASSEMBLIEREN
  16. * STARTEN, RESET FUER ALTE FARBEN
  17. *
  18. ******************************
  19. *
  20. * FARBWERTE UBER IMM. LADEN UND ABS.
  21. * SPEICHERN IN FARBREGISTER BRINGEN
  22. *
  23. DEMO1    LDA #0        IMMEDIATE
  24. *            MIT NULL
  25.     STA FARBE    ABSOLUT IN
  26. *            708 BRINGEN
  27.     LDA #15        USW...
  28.     STA FARBE+1
  29.     LDA #0
  30.     STA FARBE+2
  31.     STA FARBE+3
  32.     LDA #7
  33.     STA FARBE+4
  34.     RTS        ENDE
  35. *
  36. ******************************
  37. *
  38. * FARBREGISTER AB 708 MIT WERTEN AUS
  39. * TABELLE FUELLEN
  40. *
  41. DEMO2    LDY #0        Y=0
  42.     LDA TAB,Y    GELADEN UND
  43.     STA FARBE,Y    GESPEICHERT
  44.     LDY #1        WIRD ABSOL.
  45.     LDA TAB,Y    INDIZIERT
  46.     STA FARBE,Y    INDIZIERUNG
  47.     LDY #2        MIT Y-REGI-
  48.     LDA TAB,Y    STER.
  49.     STA FARBE,Y    Y-WERT
  50.     LDY #3        WIRD
  51.     LDA TAB,Y    ABSOLUT
  52.     STA FARBE,Y    GELADEN
  53.     LDY #4
  54.     LDA TAB,Y    
  55.     STA FARBE,Y
  56.     RTS
  57. TAB    DFB 0,15,0,0,7
  58. *
  59. ********************************
  60. *
  61. * WIE OBEN, ABER MIT ZAEHLBEFEHLEN
  62. *
  63. DEMO3    LDY #0        SIEHE OBEN
  64.     LDA TAB,Y    Y-REGISTER
  65.     STA FARBE,Y    WIRD MIT
  66.     INY        INY HOCH-
  67.     LDA TAB,Y    GEZAEHLT,
  68.     STA FARBE,Y    ENTSPRICHT
  69.     INY        Y=Y+1
  70.     LDA TAB,Y    
  71.     STA FARBE,Y
  72.     INY
  73.     LDA TAB,Y    
  74.     STA FARBE,Y
  75.     INY
  76.     LDA TAB,Y    
  77.     STA FARBE,Y
  78.     RTS
  79. ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯