September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Copy-a-string/360-Assembly/copy-a-string.360
+++ b/Task/Copy-a-string/360-Assembly/copy-a-string.360
@ -0,0 +1,17 @@
+*        Duplicate a string
+         MVC    A,=CL64'Hello'     a='Hello'
+         MVC    B,A                b=a          memory copy
+         MVC    A,=CL64'Goodbye'   a='Goodbye'
+         XPRNT  A,L'A              print a
+         XPRNT  B,L'B              print b
+         ...
+*        Make reference to a string a string
+         MVC    A,=CL64'Hi!'       a='Hi!'
+         LA     R1,A               r1=@a        set pointer
+         ST     R1,REFA            refa=@a      store pointer
+         XPRNT  A,L'A              print a
+         XPRNT  0(R1),L'A          print %refa
+         ...
+A        DS     CL64               a
+B        DS     CL64               b
+REFA     DS     A                  @a