home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_100 / 148_01 / test.a99 < prev    next >
Text File  |  1987-09-28  |  512b  |  33 lines
  1. ;
  2. ;Simple test programme
  3. ;
  4. R0    EQU    0
  5. R1    EQU    1
  6. R2    EQU    2
  7. SP    EQU    10
  8. ;
  9.     DXOP    PUSH,3        ;define xop's
  10.     DXOP    POP,4
  11.     DXOP    CALL,5
  12.     DXOP    RET,6
  13. ;
  14.     AORG 100H
  15. ;
  16. START    LWPI    SYSWP
  17.     BLSK    SP,SUBR        ;for tms99105A
  18.     CALL    @SUBR        ;for tms9900
  19.     LI    R1,2
  20.     TCMB    @BITMAP(R1),12    ;test and clear 12 bit in bitmap 
  21.                 ;indexed with - for tms99105
  22.     MOV    @BITMAP,R2
  23.     JMP    START
  24. ;
  25. SUBR    NOP    
  26.     RET            ;if tms9900
  27.     BIND    *SP+        ;if tm99105
  28. ;
  29. BITMAP  WORD    0011110110101010B
  30.     WORD    1111111111000000B
  31. SYSWP    BSS    32
  32.     END
  33.