アセンブラファイルとテストの整理

[YACASL2.git] / as / FUNC / inl_call.casl

diff --git a/as/FUNC/inl_call.casl b/as/FUNC/inl_call.casl
new file mode 100644 (file)
index 0000000..c2e3d05
--- /dev/null
+++ b/as/FUNC/inl_call.casl
@@ -0,0 +1,12 @@
+;;; casl2 inl_call.casl outl.casl
+MAIN    START
+        CALL    INL
+        JOV     NAN
+        LD      GR1,GR0
+        CALL    OUTL
+        JUMP    FIN
+NAN     OUT     NANMSG,MLEN        
+FIN     RET
+NANMSG  DC      'Not A Number'
+MLEN    DC      12        
+        END