home *** CD-ROM | disk | FTP | other *** search
/ Top-Magazin 1992 August / Top_Magazin_1992_08_Top_Crew_de_Side_B.atr / hacker3.src < prev    next >
Text File  |  2023-02-26  |  2KB  |  86 lines
  1. *************************************
  2. * Demo zur Hackers Corner
  3. * Diplaylistprogrammierung
  4. *************************************
  5. *
  6. DLPTR    EQU 560
  7. ZERO    EPZ $A0       HILFSREGISTER
  8. SAVMSC    EPZ 88
  9. *
  10.     ORG $A800
  11.     JMP DEMO1
  12. *
  13. * Hinter JMP Demonamen eintragen
  14. * Aufruf mit ESC ESC U ESC oder
  15. * im Monitor mit G A800
  16. *
  17. *************************************
  18. *
  19. * Einschalten einer eigenen DL mit
  20. * selbstdefinierten Screenspeicher
  21. *
  22. DEMO1    LDA #DL1:L
  23.     STA DLPTR
  24.     LDA #DL1:H
  25.     STA DLPTR+1
  26.     RTS
  27. DL1    DFB $70,$70,$70  3 Leerzeilen
  28.     DFB $40+$7,SCR1:L,SCR1:H
  29. *    eine Zeile GR.2, Zaehler laden
  30. *    mit Adresse von SCR1
  31.     DFB $70,$70      2 Leerzeilen
  32.     DFB $6,$7,$6   GR.1,GR.2,GR.1
  33.     DFB $70            1 Leerzeile
  34.     DFB $4F,$0,$10
  35. *    eine Zeile  GR.8, Zaehler laden
  36. *    mit Adresse $1000
  37.     DFB $F,$F,$F,$F,$F,$F,$F,$F
  38.     DFB $F,$F,$F,$F,$F,$F,$F,$F
  39. *    noch ein paar GR.8 - Zeilen
  40.     DFB $41,DL1:L,DL1:H
  41. *    Sprung und Warten  (nach DL1)
  42. *
  43. SCR1    ASC %  DISPLAYLISTDEMO1  %
  44.     ASC $ es wird ein eigener$
  45.     ASC % Bildschirmspeicher %
  46.     ASC % definiert          %
  47. *
  48. * eigene DL mit Original-SAVMSC 
  49. *
  50. DEMO2    LDA SAVMSC
  51.     STA DL2+3
  52.     STA DL2+22
  53.     LDA SAVMSC+1
  54.     STA DL2+4
  55.     STA DL2+23
  56.     LDA #DL2:L
  57.     STA DLPTR
  58.     LDA #DL2:H
  59.     STA DLPTR+1
  60.     RTS
  61. *
  62. DL2    DFB $70,$70
  63.     DFB $46,0,0
  64.     DFB $6,$6,$6,$6,$6,$6,$6,$6
  65.     DFB $6,$6,$6,$6,$6,$6,$6,$6
  66.     DFB $42,0,0
  67.     DFB $2,$2,$2,$2,$2,$2,$2,$2
  68.     DFB $41
  69.     DFW DL2
  70. *
  71. * Modifikation der vorhandenen GR.0-DL
  72. *
  73. DEMO3    LDA DLPTR
  74.     STA ZERO
  75.     LDA DLPTR+1
  76.     STA ZERO+1
  77.     LDX #0
  78.     LDY #10
  79. D3    LDA DL3,X
  80.     STA (ZERO),Y
  81.     INY
  82.     INX
  83.     CPX #6
  84.     BNE D3
  85.     RTS
  86. DL3    DFB 6,6,6,6,6,6,6¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯