At 08:47 -0500 on 06/12/2015, Elardus Engelbrecht wrote about Re:
STCK question:
Another very kind person told me of this very clever method of
commenting, ie. you make unreadable things sort of readable:
Use these equates in Assembler:
b equ x'40'
z equ x'20'
n equ x'21'
d equ c'.'
s equ c'-'
and then you can use this mask for example:
mask5 dc al1(b,z,z,n,d,n,n,s)
Add a comment to each equ to EXPLAIN the usage:
b equ x'40' Fill
z equ x'20' Number
n equ x'21' Significance Starter (ie: end of whole number and
start of fractional part)
d equ c'.' Decimal Point symbol
s equ c'-' Optional Sign if negative number
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
