home *** CD-ROM | disk | FTP | other *** search
/ ABBUC Magazin 37B / ABBUC_Magazin_37_19xx_ABBUC_Side_B.atr / osram.src < prev    next >
Text File  |  2023-02-26  |  1KB  |  89 lines
  1. *    ROMRAM
  2. *    ******
  3. *
  4. *    schreibt OS-ROM ins RAM
  5. *    (Selbsttest nach $5000-$57FF)
  6. *
  7. *    by RoBue
  8. *    27.04.1994
  9.     
  10.  
  11.     ORG $0600
  12.  
  13.  
  14.  
  15. ZEIGER    EQU $D0
  16. NMIEN    EQU $D40E
  17. PORTB    EQU $D301
  18.  
  19.  
  20. START    LDA PORTB
  21.     STA PIA
  22. *
  23.     SEI        IRQs
  24.     LDA NMIEN    abschalten
  25.     STA IRQ
  26.     LDA #0
  27.     STA NMIEN
  28. *
  29.     LDY #0        STARTBE-
  30.     STY ZEIGER    DINGUNGEN
  31.     LDA #$C0
  32.     STA PAGE
  33.     LDA #$4F
  34.     STA STEST
  35. *
  36.     LDA PAGE
  37. START1    STA ZEIGER+1
  38.  
  39.  
  40.  
  41. COPY    LDA PIA 
  42.     AND #%01111111    SELBSTTEST
  43.     STA PORTB    UND OS EIN
  44. * 
  45.     LDA (ZEIGER),Y    WERT AUS OS
  46.     STA HILFE    HOLEN 
  47. *
  48.     LDA PIA        OS AUS
  49.     AND #%11111110
  50.     STA PORTB
  51. *    
  52.     LDA HILFE    WERT IN RAM
  53.     STA (ZEIGER),Y    SCHREIBEN
  54. *
  55.     INY
  56.     BEQ RUNDE
  57.     BNE COPY
  58.  
  59.  
  60. RUNDE    LDX PAGE        NAECHSTE
  61.     INX        PAGE    
  62.     BEQ ENDE        ANSPRECHEN
  63.     STX PAGE
  64.     TXA
  65.     CPX #$D8        SELBST-
  66.     BPL START1    TEST-
  67.     CPX #$D0        BEREICH?
  68.     BMI START1
  69. *
  70. RUNDE1    INC STEST    SELBSTTEST
  71.     LDA STEST    NACH $5000
  72.     BNE START1    KOPIEREN          
  73.  
  74.  
  75. ENDE    LDA PIA        OS WIEDER
  76.     STA PORTB    EIN
  77. *
  78.     CLI        IRQs
  79.     LDA IRQ        WIEDER
  80.     STA NMIEN    ZULASSEN
  81. *
  82.     RTS
  83.  
  84.  
  85. HILFE    DFB 0
  86. PIA    DFB 0
  87. IRQ    DFB 0
  88. PAGE    DFB 0
  89. STEST    DFB 0¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯