home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / asm / bmac.arc / BMACTST.ASM < prev    next >
Assembly Source File  |  1988-07-27  |  2KB  |  97 lines
  1.     INCLUDE    TITLE.MAC
  2.     .TITLE    <BMACTST -- Test of BMAC Macros>
  3.     .SBTTL    Declarations
  4.  
  5. ; bmactst.asm  28 Nov 83  Craig Milo Rogers at USC/ISI
  6. ;    Convert to new title system.
  7. ; bmactst.asm  19 Oct 83  Craig Milo Rogers at USC/ISI
  8. ;    This file tests the BMAC macros.
  9. ;
  10.  
  11. if1
  12.     INCLUDE    DOS.MAC
  13.     INCLUDE BMAC.MAC
  14. endif
  15.  
  16.     .SBHED    <TEST1 -- Simplest Function>
  17.  
  18.     PSEG
  19.     BENTRY    TEST1
  20.     BEND    TEST1
  21.     ENDPS
  22.  
  23.     .SBHED    <TEST2 -- Simple Function and Call>
  24.  
  25.     PSEG
  26.     BENTRY    TEST2
  27.     BCALL    TEST1
  28.     BEND    TEST2
  29.     ENDPS
  30.  
  31.     .SBHED    <TEST3 -- Function With Arguments>
  32.     PAGE
  33.  
  34.     PSEG
  35.     BENTRY    TEST3    <ARG1,ARG2,ARG3>
  36.     MOV    AX,ARG1
  37.     MOV    AX,ARG2
  38.     MOV    AX,ARG3
  39.     BEND    TEST3
  40.     ENDPS
  41.  
  42.     .SBHED    <TEST4 -- Call With Arguments>
  43.  
  44.     PSEG
  45.     BENTRY    TEST4    <ARG1,ARG2,ARG3>
  46.     BCALL    TEST3    <ARG1,ARG2,ARG3>
  47.     BEND    TEST4
  48.     ENDPS
  49.  
  50.     .SBHED    <TEST5 -- Save Some Registers>
  51.  
  52.     PSEG
  53.     BENTRY    TEST5
  54.     SAVE    <AX,BX,CX,DX>
  55.     BEND    TEST5
  56.     ENDPS
  57.  
  58.     .SBHED    <TEST6 -- Allocate Local Variables>
  59.  
  60.     PSEG
  61.     BENTRY    TEST6
  62.     AUTO    <VAR1,VAR2,VAR3>
  63.     MOV    AX,VAR1
  64.     MOV    AX,VAR2
  65.     MOV    AX,VAR3
  66.     BEND    TEST6
  67.     ENDPS
  68.  
  69.     .SBHED    <TEST7 -- Save Regs and Allocate Locals>
  70.  
  71.     PSEG
  72.     BENTRY    TEST7
  73.     AUTO    <VAR1,VAR2,VAR3>
  74.     SAVE    <AX,BX,CX,DX>
  75.     MOV    AX,VAR1
  76.     MOV    BX,VAR2
  77.     MOV    CX,VAR3
  78.     BEND    TEST7
  79.     ENDPS
  80.  
  81.     .SBHED    <TEST8 -- Redefine Names with New Values>
  82.  
  83.     PSEG
  84.     BENTRY    TEST8    <ARG3,ARG2,ARG1>
  85.     AUTO    <VAR3,VAR2,VAR1>
  86.     SAVE    <DX,BX,CX,AX>
  87.     MOV    AX,ARG1
  88.     MOV    BX,ARG2
  89.     MOV    CX,ARG3
  90.     MOV    AX,VAR1
  91.     MOV    BX,VAR2
  92.     MOV    CX,VAR3
  93.     BEND    TEST8
  94.     ENDPS
  95.  
  96.     END
  97.