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