Test-driver for Assembler self-test assignment 4

SLFTST4A TITLE 'Test-driver for register-defining Macro'
***********************************************************************
* Start create : 12-04-2007
* 1st delivery : 12-04-2007
* Designer     : AF Kornelis
* Programmer   : AF Kornelis
***********************************************************************

***********************************************************************
*
* Program entry and linkage
*
***********************************************************************
SLFTST4A CSECT ,                       *
SLFTST4A AMODE 31
SLFTST4A RMODE ANY

         DEFREGS FIETS,
         DEFREGS -5
         DEFREGS 28
         DEFREGS 5,FIETS
         DEFREGS 5,-5
         DEFREGS 5,28
         DEFREGS 5,5
         DEFREGS 5,8
         DEFREGS 12,4
         DEFREGS 5,8,AS
         DEFREGS 8,2,HEX,PREFIX=CR
         DEFREGS 1,5,PREFIX=KNOL
         DEFREGS 4,7,DEC,PREFIX=FPR
         DEFREGS 4,7,HEX,PREFIX=GPR
         DEFREGS 14,13,,AR,PREFIX=AR

         XR    R15,R15
         BR    R14

         END

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.