MightyPork/crsn
1
1
Fork 2
Code Issues 15 Pull Requests Releases Wiki Activity

crazy hypno + added sleep cmd

Browse Source
This commit is contained in:
MightyPork
2020-09-29 00:40:11 +02:00
parent 532df6eb04
commit 01068ea001
5 changed files with 30 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
launcher/src/main.rs
+7 -7
View File
@@ -77,29 +77,29 @@ fn main() {
let program = "
(
(main
(sc-init 640 480)
(sc-init 800 600)
(sc-opt 1 0) ; auto blit
(sc-opt 2 60) ; frame rate
(ld r0 39) ; x
(ld r0 5) ; x
(ld r1 0) ; y
(ld r2 1) ; dx
(ld r3 1) ; dy
(ld r5 0xffffff)
(ld r5 0x3300ff)
(:loop)
(add r5 0x010001)
(add r5 0x000001)
(and r5 0xffffff)
(sc-px r0 r1 r5)
(sc-blit 0)
(add r0 r2)
(add r1 r3)
(cmp r0 639 (eq? (ld r2 -1)))
(cmp r0 799 (eq? (ld r2 -1)))
(cmp r0 0 (eq? (ld r2 1)))
(cmp r1 479 (eq? (ld r3 -1)))
(cmp r1 599 (eq? (ld r3 -1)))
(cmp r1 0 (eq? (ld r3 1)))
(sc-blit 0)
(j :loop)
)
)