vito-Z80

zebra full screen (static)

Jul 4th, 2020
2,881
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     device zxspectrum48
  2. ; Author: Serdjuk
  3. ; Assembly: sjasmplus
  4.  
  5.         org #6000
  6. start:
  7.  
  8. mainLoop:
  9.     ei
  10.     halt
  11.  
  12.  
  13.     ld (saveSp),sp
  14.     ld sp,#5800 // end of screen address
  15.     ld bc,#0000 // empty
  16.     ld de,#FFFF // fill
  17.     ld a,192
  18. nextScrLine:
  19.     dup 8
  20.     push bc     // fill line 32 bytes
  21.     push de
  22.     edup
  23.     dec a
  24.     jr nz,nextScrLine
  25.     ld sp,(saveSp)
  26.     jr mainLoop
  27. saveSp: dw 0
  28.  
  29.         savetap "main.tap",start
Advertisement
Add Comment
Please, Sign In to add comment