X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Frevtest.casl;fp=as%2Frevtest.casl;h=0000000000000000000000000000000000000000;hb=fb54b1c9d2fbc3d4a62c6b4d38ff68e9d3b25c26;hp=69c2b0252b28cdfb03329812d23c18766556470e;hpb=b4e48008c95b35c692827326191698c22b06124f;p=YACASL2.git diff --git a/as/revtest.casl b/as/revtest.casl deleted file mode 100644 index 69c2b02..0000000 --- a/as/revtest.casl +++ /dev/null @@ -1,31 +0,0 @@ -MAIN START - OUT STR,LEN - LAD GR1,STR - LD GR2,LEN - CALL REV - OUT STR,LEN - RET -STR DC '12345' -LEN DC 5 - END -REV START - LAD GR3,1 -RPU CPA GR2,GR3 - JMI RNEXT - LD GR4,GR1 - ADDA GR4,GR3 - LD GR4,-1,GR4 - PUSH 0,GR4 - LAD GR3,1,GR3 - JUMP RPU -RNEXT LAD GR3,1 -RPO CPA GR2,GR3 - JMI PFIN - POP GR4 - LD GR5,GR1 - ADDA GR5,GR3 - ST GR4,-1,GR5 - LAD GR3,1,GR3 - JUMP RPO -PFIN RET - END