Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- device zxspectrum48
- ; Author: Serdjuk
- ; Assembly: sjasmplus
- org #6000
- start:
- mainLoop:
- ei
- halt
- ld (saveSp),sp
- ld sp,#5800 // end of screen address
- ld bc,#0000 // empty
- ld de,#FFFF // fill
- ld a,192
- nextScrLine:
- dup 8
- push bc // fill line 32 bytes
- push de
- edup
- dec a
- jr nz,nextScrLine
- ld sp,(saveSp)
- jr mainLoop
- saveSp: dw 0
- savetap "main.tap",start
Advertisement
Add Comment
Please, Sign In to add comment