bdfs1m0u | Structured Programming Macros |
Use this macro to generate inline code to convert a binary number in the low-order byte of a register to character binary. A character binary number is a binary number represented in a string that contains only EBCDIC 0 or 1.
Format
|
Entry Requirements
None.
Return Conditions
Programming Considerations
Before the conversion: |
R14 contains F'43'. R15 points to EBW000. ON is 1 and OFF is 0. |
After the conversion: |
R14 is overwritten. EBW000 contains C'00101011'. R15 points to EBW000+8. |
L R14,CONT0 SET UP BINARY VALUE LA R15,EBW000 WHERE TO PLACE #CONT INPUT=R14,TO=R15,ON='1',OFF=C'0',WORK=CE1ARS : CONT0 DC F'43' BINARY VALUE (X'2B')
Before the conversion: |
R14 contains X'ABF1FF23'. R15 points to EBW030. ON is 1 and OFF is 0. |
After the conversion: |
R14 is overwritten. EBW030 contains C'00100011'. R15 points to EBW030+8. |
L R14,CONT1 SET UP BINARY VALUE LA R15,EBW030 WHERE TO PLACE #CONT INPUT=R14,TO=R15 LOW-ORDER BYTE TO BINARY : CONT1 DC X'ABF1FF23' BINARY VALUE
Before the conversion: |
R14 contains F'241'. R15 points to EBW010. ON is '*' and OFF is '-'. |
After the conversion: |
R14 is overwritten. EBW010 contains C'****---*'. R15 points to EBW010+8. |
L R4,CONT2 SET UP BINARY VALUE LA R15,EBW010 WHERE TO PLACE #CONT INPUT=R14,TO=R15,ON=C'*',OFF=C'-' LOW-ORDER BYTE TO BINARY : CONT2 DC F'241' BINARY VALUE (X'F1')
Related Macros