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