Another update from ingydotnet^djgoku

2015-11-18 06:14:39 +00:00 · 2015-11-18 06:14:39 +00:00 · 948b86eafa
commit 948b86eafa
parent 91df62d461
7604 changed files with 108452 additions and 22726 deletions
--- a/Task/String-case/360-Assembly/string-case-1.360
+++ b/Task/String-case/360-Assembly/string-case-1.360
@ -0,0 +1,15 @@
+UCASE    CSECT
+         USING  UCASE,R15
+         MVC    UC,PG
+         MVC    LC,PG
+         OC     UC,=16C' '         or  X'40' uppercase
+         NC     LC,=16X'BF'        and X'BF' lowercase
+         XPRNT  PG,L'PG            print original
+         XPRNT  UC,L'UC            print uc
+         XPRNT  LC,L'LC            print lc
+         BR     R14
+PG       DC     CL9'alphaBETA'
+UC       DS     CL(L'PG)
+LC       DS     CL(L'PG)
+         YREGS
+         END    UCASE