Abbydale Systems - Free Assembler Macros

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.

Abbydale Systems LLC. - Because IT matters Page #1 2 Next Last

Name	Description

ASLFILL	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. ASLFILL areaname,00

CRASH	This macro will cause a program to terminate with an abend code of S0C3. A S0C3 abend will preserve the contents of the registers.

GETMODE	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.

GETPARM	Puts the address of a passed parm into R1 and the length into R15. Registers are both 0 if no parm was passed.

GETUSER	Places the userid of the person running the program into a storage area.

HEXPRINT	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

JOBNAME	Stores the name of the job into a provided storage area. If no area name is passed ASLJOBNM is used.

POS	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.

PRINTHEX	This macroe 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.

RANDOM	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)

Page #1 2 Next Last