X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=as%2Fapp%2Fcalc_addl.casl;fp=as%2Fapp%2Fcalc_addl.casl;h=c0e538e55f40a19e286c97d33dd0184c8bb66fbd;hb=bc0df14951032b54c9da8b21068aac4a6a834289;hp=0000000000000000000000000000000000000000;hpb=9fa44bbf51f40b1d5846696dc13a4950508e448c;p=YACASL2.git

diff --git a/as/app/calc_addl.casl b/as/app/calc_addl.casl
new file mode 100644
index 0000000..c0e538e
--- /dev/null
+++ b/as/app/calc_addl.casl
@@ -0,0 +1,25 @@
+MAIN    START
+        XOR     GR1,GR1
+        XOR     GR2,GR2
+LOOP    LD      GR2,GR1
+        CALL    INL
+        JOV     OV
+        AND     GR0,GR0
+        JZE     FIN
+        CPL     GR0,=#FFFF
+        JZE     NAN
+        ADDL    GR1,GR2
+        JOV     OV
+        CALL    OUTL
+        JUMP    LOOP
+OV      OUT     OVMSG,MLEN1
+        CALL    OUTL
+        JUMP    LOOP
+NAN     OUT     NANMSG,MLEN2
+        JUMP    LOOP
+FIN     RET
+OVMSG   DC      'Over 65535'
+MLEN1   DC      10
+NANMSG  DC      'Not A Number'
+MLEN2   DC      12
+        END