A storage address is made up of a base address, an index address, and a displacement. A number corresponds to a storage address with both base and index register being zero.
TABENT DSECT , * Map table entry
TABFLD1 DS CL6 * Some field
TABFLD2 DS CL6 * Another field
TABENT_LEN EQU *-TABENT * Length of tabel entry
TABENT_COUNT EQU 10 * Nr of entries in table
...
YREGS * Define register names
...
* This is a routine to initialize a table
USING TABENT,R14 * Use DSECT to address table entry
LA R14,TABLE * Point to the table
LA R0,TABENT_COUNT * Load number of entries
*
INITTBL MVC FIELD1,SPACES * Move data to the table entry
MVC FIELD2,ZEROS * Move more data to the table entry
LA R14,TABENT_LEN(R14) * Bump to the next table entry
BCT R0,INITTBL * and loop through the entire table
...
* Back up to previous entry
LA R15,TABENT_LEN * Get length of entry
LNR R15,R15 * Make negative
LA R14,0(R14,R15) * Point previous entry
...
SPACES DC (L'FIELD1)C' ' * As many spaces / zeroes
ZEROS DC (L'FIELD2)C'0' * as needed to prime an entry
TABLE DS (TABENT_COUNT)CL(TABENT_LEN)
...
To the Opcodes Overview.
To the English Homepage for Hlasm.com.
To the General Homepage for Bixoft and Hlasm.com.
|
This site is a member of WebRing. You are invited to browse the list of mainframe-loving sites. |
|
Dinos are not dead. They are alive and well and living in data centers all around you. They speak in tongues and work strange magics with computers. Beware the dino! And just in case you're waiting for the final demise of these dino's: remember that dinos ruled the world for 155-million years! |
|
Dinos and other anachronisms [ Join Now | Ring Hub | Random | << Prev | Next >> ] |
||
Below you find the logo of our sponsor and logos of the web-standards that this page adheres to.
|
|
|
|
||