X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=as%2Fcmd%2FSVC%2Fsvc2.casl;fp=as%2Fcmd%2FSVC%2Fsvc2.casl;h=f5542fd51cf0bcde10bb162fc5c486a90b50e2eb;hb=58ee37be62a5e359d0f6eb603cc86b5692f74b90;hp=0000000000000000000000000000000000000000;hpb=85744703060a90c21ee325d3a692f80233bc281f;p=YACASL2.git

diff --git a/as/cmd/SVC/svc2.casl b/as/cmd/SVC/svc2.casl
new file mode 100644
index 0000000..f5542fd
--- /dev/null
+++ b/as/cmd/SVC/svc2.casl
@@ -0,0 +1,12 @@
+;;; 「SVC 2」で数値を表示
+;;; casl2 svctest.casl div10.casl
+MAIN    START
+BEGIN   LAD     GR1,D
+        LAD     GR2,A
+        SVC     2
+        LAD     GR1,=#A
+        SVC     2
+        RET
+D       DC      '0'
+A       DS      1
+        END