From bc0df14951032b54c9da8b21068aac4a6a834289 Mon Sep 17 00:00:00 2001
From: j8takagi <j8takagi@nifty.com>
Date: Wed, 24 Feb 2010 07:08:37 +0900
Subject: [PATCH] =?utf8?q?=E8=B6=B3=E3=81=97=E7=AE=97=E9=9B=BB=E5=8D=93?=
 =?utf8?q?=E3=81=AECASL=E3=83=95=E3=82=A1=E3=82=A4=E3=83=AB=E3=82=92?=
 =?utf8?q?=E8=BF=BD=E5=8A=A0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 as/app/calc_addl.casl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 as/app/calc_addl.casl

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
-- 
2.18.0