2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/String-length/360-Assembly/string-length.360
+++ b/Task/String-length/360-Assembly/string-length.360
@ -0,0 +1,25 @@
+*        String length             06/07/2016
+LEN      CSECT
+         USING  LEN,15             base register
+         LA     1,L'C              length of C
+         XDECO  1,PG
+         XPRNT  PG,12
+         LA     1,L'H              length of H
+         XDECO  1,PG
+         XPRNT  PG,12
+         LA     1,L'F              length of F
+         XDECO  1,PG
+         XPRNT  PG,12
+         LA     1,L'D              length of D
+         XDECO  1,PG
+         XPRNT  PG,12
+         LA     1,L'PG             length of PG
+         XDECO  1,PG
+         XPRNT  PG,12
+         BR     14                 exit           length
+C        DS     C                  character       1
+H        DS     H                  half word       2
+F        DS     F                  full word       4
+D        DS     D                  double word     8
+PG       DS     CL12               string         12
+         END    LEN