home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 13 / Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_A.d64 / memfill.seq < prev    next >
Text File  |  2023-02-26  |  838b  |  45 lines
  1.          *= $1000
  2.  
  3. ;***************************************
  4. ;*  memfill-routine (w) 1994 by madrom *
  5. ;***************************************
  6. ;* fuellt beliebige speicherbereiche   *
  7. ;* mit einem wert. anfangsandresse muss*
  8. ;* in anfl/anfh (250/251), endadresse  *
  9. ;* muss in endl/endh (253/254) stehen  *
  10. ;* der fuellwert in fwert (252)        *
  11. ;*  routine wird mit  - jsr memfill -  *
  12. ;* aufgerufen ...  madrom/cream/t-c    *
  13. ;***************************************
  14.  
  15.  
  16.  
  17. anfl     = 250
  18. anfh     = 251
  19. endl     = 253
  20. endh     = 254
  21. fwert    = 252
  22.  
  23.  
  24. memfill
  25.          ldy #0
  26. mf1
  27.          lda fwert
  28.          sta (anfl),y
  29.          lda endh
  30.          cmp anfh
  31.          beq mf2
  32.          jmp mf3
  33. mf2
  34.          lda endl
  35.          cmp anfl
  36.          bne mf3
  37.          rts
  38. mf3
  39.          inc anfl
  40.          bne mf4
  41.          inc anfh
  42. mf4
  43.          jmp mf1
  44.  
  45.