Here is a list of some of our assembler macros that we are making available for people to download and use.
The macros linked to by this page remain the copyrighted material of Abbydale Systems. You are free to use the material but please honor the copyrights.
As always you are free to use this code but the usual
disclaimers apply.
By downloading code from this page you agree to the terms of the disclaimer.
There is a full XMI library with all of the listed macros in it that is available from here.
Alternatively there is a full IEBUPDTE format copy that is available from here.
| Name |
Description | |
|---|---|---|
| This macro will fill a passed area name with the string passed as a second parameter. If a second parameter is omitted space (x''40'') is assumed. Note: The passed fill character must be the hex value e.g. to fill a field with binary zeros pass 00 to the macro. | ||
|
| ||
| This macro will cause a program to terminate with an abend code of S0C3. A S0C3 abend will preserve the contents of the registers. | ||
|
| ||
| Returns a field containing a value denoting the addressing mode of the executing program. 2 for 24 bit, 3 for 31 bit and 6 for 64 bit. | ||
|
| ||
| Puts the address of a passed parm into R1 and the length into R15. Registers are both 0 if no parm was passed. This program is distributed as a TSO TRANSMIT file. The program is distributed as OCO (Object Code Only). The file will need to be transferred to a z/OS system in binary format and then RECEIVED. | ||
|
| ||
| Places the userid of the person running the program into a storage area. | ||
|
| ||
| The contents of the first register specified Rx are converted to printable characters and placed at the location whose address is loaded into the second register Ry. It can be used several times within the same program | ||
|
| ||
| Stores the name of the job into a provided storage area. If no area name is passed ASLJOBNM is used. | ||
|
| ||
| This macro will return the position of a character within a string. The position will be in register 15. If the character isn''t in the string then the returned value will be the length of the string itself, plus 1. The character to search for can be a hex value or a single character. | ||
|
| ||
| This macro is pretty useful for making the hexadecimal value in a register printable however, it does use more code than our HEXPRINT macro. The macro will save registers 0-3 upon entry and restore them on exit. | ||
|
| ||
| This macro will generate a random number (based of the IBM TIME macro) between the two numbers specified on the macro call. The number is returned in binary form in general register 0. To convert the number into printable format you can use our HEXPRINT macro. (Note that both registers 0 and 1 will be trashed by this macro as it uses the TIME macro) | ||
|
| ||
