home *** CD-ROM | disk | FTP | other *** search
/ Den Wahnsinn 3 / Den_Wahnsinn_3_1988_Verruckten_de_Side_B.atr / tauscher.src < prev    next >
Text File  |  2023-02-26  |  1KB  |  72 lines
  1. *************************************
  2. *         TAUSCHER        *
  3. *  GESCHRIEBEN VON  GLORY LORRY IN  *
  4. * HAMBURG AM 18.3.1988 AUF ATMAS II *
  5. *************************************
  6. * VERTAUSCHT ZWEI 30 PAGES LANGE
  7. * SPEICHERBAENKE (7680 BYTES).
  8. * DAS PROGRAMM KANN IN BASIC-FILES
  9. * EINGEBUNDEN WERDEN UND DANN MIT
  10. * X=USR(Y,A,B) AUFGERUFEN WERDEN.
  11. * Y IST DABEI DIE ADRESSE DES
  12. * PROGRAMMES,
  13. * A UND B SIND DIE ADRESSEN DER BEIDEN
  14. * SPEICHERBAENKE.
  15.  
  16.     ORG $A800
  17. SAV    EQU $C8    SAVER AUF $C8
  18. ALB    EQU $C4    ALLE ANDEREN
  19. AHB    EQU $C5    SPEICHERBYTES LIEGEN
  20. BLB    EQU $C6    IN DER ZERO PAGE
  21. BHB    EQU $C7    >> SCHNELLER. 
  22.  
  23.  
  24.  
  25.     PLA    UEBERFLUESSIG
  26.     PLA    HIGH B AUS STACK
  27.     STA BHB    IN BHB SPEICHERN
  28.     PLA     LOW B
  29.     STA BLB    IN BLB
  30.     PLA    HIGH A
  31.     STA AHB    IN AHB
  32.     PLA    LOW A
  33.     STA ALB    IN ALB
  34.  
  35.     LDY #0    Y-REG AUF NULL
  36.     LDX #30  X AUF 30 PAGES
  37.  
  38. * NUN GEHT DAS VERTAUSCHEN LOS!
  39.  
  40. TAUSCH    LDA (ALB),Y
  41.     STA SAV
  42.     LDA (BLB),Y
  43.     STA (ALB),Y
  44.     LDA SAV
  45.     STA (BLB),Y
  46.  
  47. * Y UM EINEN ERHOEHEN
  48.  
  49.     INY
  50.  
  51. * Y=0? WENN NEIN, SPRUNG ZUM TAUSCHEN
  52.  
  53.     BNE TAUSCH
  54.  
  55. * WENN Y=0, DANN X EINEN HERABSETZEN
  56. * NUN DIE ADRESSEN UM EIN HIGHBYTE
  57. * ERHOEHEN
  58.  
  59.     INC AHB
  60.     INC BHB
  61.     DEX
  62.  
  63. * IST X AUF DEM NULLPUNKT ANGELANGT?
  64. * WENN NEIN, SPRUNG ZUM TAUSCHEN
  65.  
  66.     BNE TAUSCH
  67.  
  68. * WENN X=0 DANN AUFHOEREN.
  69.  
  70. ENDE    RTS    DAS WAR'S
  71.  
  72. ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯