diff --git a/test/asm/quine.asm b/test/asm/quine.asm index 704690df..4263cebd 100644 --- a/test/asm/quine.asm +++ b/test/asm/quine.asm @@ -1,13 +1,13 @@ -N:MACRO +MACRO N FOR I,_NARG -SHIFT I -PRINT STRSUB("\n\"\\ INRT1,ABCDEFGHMOPSUn_(+-:)",\1+1,1) -SHIFT-I +PRINT STRSUB("\n\"\\ INRST1,ABCDEFGHMnOPU_+-()",\1+1,1) +SHIFT ENDR -REPT _NARG-1 +SHIFT-I +REPT I-1 PRINT"\1," SHIFT ENDR PRINT"\1\n" ENDM - N 5,28,18,10,12,6,19,0,15,19,6,3,4,9,24,5,10,6,16,0,21,17,4,15,7,3,4,0,20,6,4,5,7,3,21,7,6,21,22,11,25,1,2,23,2,1,2,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,1,9,2,8,26,8,9,8,29,0,21,17,4,15,7,27,4,0,14,5,13,6,0,6,14,20,7,3,24,5,10,6,16,27,8,0,20,6,4,5,7,1,2,8,9,1,0,21,17,4,15,7,0,14,5,13,6,0,20,6,4,5,7,1,2,8,2,23,1,0,14,5,13,18,0,3,5,3 + N 19,11,13,6,21,3,5,0,16,21,6,3,4,10,24,5,11,6,17,0,22,6,4,5,8,3,7,8,6,7,23,12,27,1,2,20,2,1,2,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,1,10,2,9,25,9,10,9,28,0,7,18,4,16,8,0,15,5,14,6,0,7,18,4,16,8,26,4,0,6,15,22,8,3,4,26,9,0,22,6,4,5,8,1,2,9,10,1,0,7,18,4,16,8,0,15,5,14,6,0,22,6,4,5,8,1,2,9,2,20,1,0,15,5,14,19,0,3,5,3 diff --git a/test/asm/quine.out b/test/asm/quine.out index 704690df..4263cebd 100644 --- a/test/asm/quine.out +++ b/test/asm/quine.out @@ -1,13 +1,13 @@ -N:MACRO +MACRO N FOR I,_NARG -SHIFT I -PRINT STRSUB("\n\"\\ INRT1,ABCDEFGHMOPSUn_(+-:)",\1+1,1) -SHIFT-I +PRINT STRSUB("\n\"\\ INRST1,ABCDEFGHMnOPU_+-()",\1+1,1) +SHIFT ENDR -REPT _NARG-1 +SHIFT-I +REPT I-1 PRINT"\1," SHIFT ENDR PRINT"\1\n" ENDM - N 5,28,18,10,12,6,19,0,15,19,6,3,4,9,24,5,10,6,16,0,21,17,4,15,7,3,4,0,20,6,4,5,7,3,21,7,6,21,22,11,25,1,2,23,2,1,2,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,1,9,2,8,26,8,9,8,29,0,21,17,4,15,7,27,4,0,14,5,13,6,0,6,14,20,7,3,24,5,10,6,16,27,8,0,20,6,4,5,7,1,2,8,9,1,0,21,17,4,15,7,0,14,5,13,6,0,20,6,4,5,7,1,2,8,2,23,1,0,14,5,13,18,0,3,5,3 + N 19,11,13,6,21,3,5,0,16,21,6,3,4,10,24,5,11,6,17,0,22,6,4,5,8,3,7,8,6,7,23,12,27,1,2,20,2,1,2,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,1,10,2,9,25,9,10,9,28,0,7,18,4,16,8,0,15,5,14,6,0,7,18,4,16,8,26,4,0,6,15,22,8,3,4,26,9,0,22,6,4,5,8,1,2,9,10,1,0,7,18,4,16,8,0,15,5,14,6,0,22,6,4,5,8,1,2,9,2,20,1,0,15,5,14,19,0,3,5,3 diff --git a/test/asm/quine2.asm b/test/asm/quine2.asm index 93fc883a..b8e2111a 100644 --- a/test/asm/quine2.asm +++ b/test/asm/quine2.asm @@ -1,4 +1,4 @@ -q:macro +macro q println\1,"\1" endm - q"q:macro\nprintln\\1,\"\\1\"\nendm\n q" + q"macro q\nprintln\\1,\"\\1\"\nendm\n q" diff --git a/test/asm/quine2.out b/test/asm/quine2.out index 93fc883a..b8e2111a 100644 --- a/test/asm/quine2.out +++ b/test/asm/quine2.out @@ -1,4 +1,4 @@ -q:macro +macro q println\1,"\1" endm - q"q:macro\nprintln\\1,\"\\1\"\nendm\n q" + q"macro q\nprintln\\1,\"\\1\"\nendm\n q"