Data commit

Task/Character-codes/360-Assembly/character-codes.360

@@ -0,0 +1,34 @@
+*        Character codes EBCDIC    15/02/2017
+CHARCODE CSECT
+         USING  CHARCODE,R13       base register
+         B      72(R15)            skip savearea
+         DC     17F'0'             savearea
+         STM    R14,R12,12(R13)    prolog
+         ST     R13,4(R15)         " <-
+         ST     R15,8(R13)         " ->
+         LR     R13,R15            " addressability
+* Character to Decimal
+         SR     R1,R1              r1=0
+         IC     R1,=C'a'           insert character 'a'
+         XDECO  R1,PG
+         XPRNT  PG,L'PG            print -> 129
+* Hexadecimal to character
+         SR     R1,R1              r1=0
+         IC     R1,=X'81'          insert character X'81'
+         STC    R1,CHAR            store character r1
+         XPRNT  CHAR,L'CHAR        print -> 'a'
+* Decimal to character
+         LH     R1,=H'129'         r1=129
+         STC    R1,CHAR            store character r1
+         XPRNT  CHAR,L'CHAR        print -> 'a'
+*
+         XDUMP  CHAR,L'CHAR        dump -> X'81'
+*
+RETURN   L      R13,4(0,R13)       epilog
+         LM     R14,R12,12(R13)    " restore
+         XR     R15,R15            " rc=0
+         BR     R14                exit
+PG       DS     CL12
+CHAR     DS     CL1
+         YREGS
+         END    CHARCODE