home *** CD-ROM | disk | FTP | other *** search
/ Top-Magazin 1992 August / Top_Magazin_1992_08_Top_Crew_de_Side_B_a.atr / asm6.src next >
Text File  |  2023-02-26  |  1KB  |  96 lines
  1. **************************************
  2. * TOP-MAGAZIN  ASSEMBLER-KURS TEIL 7 *           
  3. *                 *
  4. * BEISPIELPROGRAMME ZU ADDITION,SUB- *
  5. * TRAKTION, FLAGMANIPULATION, STAPEL-*
  6. * MANIPULATION UND ZU TRANSFER-BEF.  *
  7. **************************************
  8. *
  9. SAVMSC    EPZ 88
  10.  
  11.     ORG $A800
  12.     JMP DEMO1
  13. *
  14. * HINTER JMP DEN DEMONAMEN EINTRAGEN
  15. * NACH DEM ASSEMBLIEREN AUS DEM MONI-
  16. * TOR MIT G A800 STARTEN, RESTART MIT
  17. * RESET
  18. *
  19. ******************************
  20. *
  21. * DEMO ZUR ADDITION/SUBTRAKTION
  22. *
  23. DEMO1    LDA #$20
  24.     CLC
  25.     ADC #$10
  26.     BRK
  27. DEMO2    LDA #$20
  28.     SEC
  29.     SBC #$10
  30.     BRK
  31. *
  32. * IN JEDES ACHTE BYTE DES BILDSCHIRM-
  33. * SPEICHERS 128 EINTRAGEN FUER
  34. * SENKRECHTE BALKEN, REALISIERUNG
  35. * VON Y=Y+8 UEBER INY
  36. *
  37. DEMO3    LDY #0        Y=0
  38. M1    LDA #128        CODE:INVERS
  39. *                 SPACE
  40.     STA (SAVMSC),Y    IN SCREEN-
  41. *            SPEICHER
  42.     INY        Y=Y+8
  43.     INY
  44.     INY
  45.     INY
  46.     INY
  47.     INY
  48.     INY
  49.     INY        
  50.     BNE M1        UMFALTUNG
  51. *            AUF NULL ?
  52.     RTS        JA->ENDE
  53. *
  54. ******************************
  55. *
  56. * DAS GLEICHE MIT ADC
  57. *
  58. DEMO4    LDA #0        A=0
  59. M2    TAY        Y=A
  60.     LDA #128        CODE:INVERS
  61. *                 SPACE
  62.     STA (SAVMSC),Y    IN SCREEN-
  63. *            SPEICHER
  64.     TYA        A=Y
  65.     CLC
  66.     ADC #8        A=A+8
  67.     BCC M2        UEBERTRAG?
  68.     RTS        JA->ENDE
  69. *
  70. ******************************
  71. *
  72. * BEISPIEL ZUR STAPELMANIPULATION
  73. * 
  74. DEMO5    JSR M3
  75.     JMP $E474
  76. M3    JSR M4
  77.     JMP $E474
  78. M4    PLA
  79.     PLA
  80.     PLA
  81.     PLA
  82.     RTS
  83. *
  84. * NOCHMAL MIT STAPELZEIGER
  85. *
  86. DEMO6    JSR M5
  87.     JMP $E474
  88. M5    JSR M6
  89.     JMP $E474
  90. M6    TSX
  91.     TXA
  92.     CLC
  93.     ADC #4
  94.     TAX
  95.     TXS
  96.     RTS¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯