1234567891011121314151617181920212223242526272829 |
- start-microcode splitscreen
- : 1+ d# 1 + ;
- : @ dupc@ swap 1+ c@ swab or ;
- : waitline ( u -- ) \ wait until raster is past u
- begin
- dup YLINE c@ =
- until
- drop
- ;
- : loadscroll ( a -- ) \ load SCROLL_X,Y from a
- dup c@ SCROLL_X c! 1+
- dup c@ SCROLL_Xhi c! 1+
- dup c@ SCROLL_Y c! 1+
- c@ dup SCROLL_Yhi c!
- d# 7 rshift SPR_DISABLE c!
- ;
- : main
- begin
- COMM+4 @ waitline COMM+6 loadscroll
- COMM+10 @ waitline COMM+12 loadscroll
- d# 300 waitline COMM+0 loadscroll
- again
- ;
- end-microcode
|