Notes on the example below:
YREGS * Define register names ... * This is a routine to initialize a table LA R15,0 * Load table entry number (start=0) SR R14,R14 * R14 indexes into the table LA R0,10 * Load number of table entries LA R1,C' ' * Char flag for the table entry INITLOOP STH R15,TABLE#(R14) * Store entry number STC R1,FLAG(R14) * Store char flag LA R14,12(R14) * Bump index into the table LA R15,1(R15) * Bump entry number BCT R0,INITLOOP * Loop through all 10 table entries ... DS 0F * Insure table has fullword alignment TABLE DS 0CL12 * Indicate each entry is 12 bytes DC F'0' * FLAG DC C' ' * Character flag DC X'00' * Bit type flag ENTRY# DC H'0' * Table entry number DC A(0) * DC 9XL12'00' * Rest of the table ...
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! | |
[ Join Now | Ring Hub | Random | | ] |
Below you find the logo of our sponsor and logos of the web-standards that this page adheres to.