X-Git-Url: http://git.squeep.com/?a=blobdiff_plain;f=tests%2Ftest.s;fp=tests%2Ftest.s;h=0000000000000000000000000000000000000000;hb=e22bdfa072479f7ea72081808c0b1fa3602e726c;hp=b67c81b59834e10ae3a61dd99a6fdfb560dbd12d;hpb=19bb0a4e64c9ab3e62ff4bbd959289704ee5b8f1;p=dcpu16 diff --git a/tests/test.s b/tests/test.s deleted file mode 100644 index b67c81b..0000000 --- a/tests/test.s +++ /dev/null @@ -1,33 +0,0 @@ -; -; dcpu16 test asm -; - -; Try some basic stuff - SET A, 0x30 ; 7c01 0030 - SET [0x1000], 0x20 ; 7de1 1000 0020 - SUB A, [0x1000] ; 7803 1000 - IFN A, 0x10 ; c00d - SET PC, crash ; 7dc1 001a [*] - -; Do a loopy thing - SET I, 10 ; a861 - SET A, 0x2000 ; 7c01 2000 -:loop SET [0x2000+I], [A] ; 2161 2000 - SUB I, 1 ; 8463 - IFN I, 0 ; 806d - SET PC, loop ; 7dc1 000d [*] - -; Call a subroutine - SET X, 0x4 ; 9031 - JSR testsub ; 7c10 0018 [*] - SET PC, crash ; 7dc1 001a [*] - -:testsub SHL X, 4 ; 9037 - SET PC, POP ; 61c1 - -; Hang forever. X should now be 0x40 if everything went right. -:crash SET PC, crash ; 7dc1 001a [*] - -; [*]: Note that these can be one word shorter and one cycle faster by using the short form (0x00-0x1f) of literals, -; but my assembler doesn't support short form labels yet. -