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.l99 < prev    next >
Text File  |  1987-09-28  |  2KB  |  39 lines
  1.                         ;
  2.                         ;Simple test programme
  3.                         ;
  4.   0000                  R0    EQU    0
  5.   0001                  R1    EQU    1
  6.   0002                  R2    EQU    2
  7.   000A                  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.   0100                      AORG 100H
  15.                         ;
  16.   0100   02E0 0126      START    LWPI    SYSWP
  17.   0104   00BA 011C          BLSK    SP,SUBR        ;for tms99105A
  18.   0108   2D60 011C          CALL    @SUBR        ;for tms9900
  19.   010C   0201 0002          LI    R1,2
  20.   0110   0C0A 0321          TCMB    @BITMAP(R1),12    ;test and clear 12 bit in bitmap 
  21.   0114   0122           
  22.                                         ;indexed with - for tms99105
  23.   0116   C0A0 0122          MOV    @BITMAP,R2
  24.   011A   10F2               JMP    START
  25.                         ;
  26.   011C   1000           SUBR    NOP    
  27.   011E   2D80               RET            ;if tms9900
  28.   0120   017A               BIND    *SP+        ;if tm99105
  29.                         ;
  30.   0122   3DAA           BITMAP  WORD    0011110110101010B
  31.   0124   FFC0               WORD    1111111111000000B
  32.   0126                  SYSWP    BSS    32
  33.   0146                      END
  34.  
  35. No error(s).
  36. BITMAP    0122    CALL      2D40    POP       2D00    PUSH      2CC0
  37. R0        0000    R1        0001    R2        0002    RET       2D80
  38. SP        000A    START     0100    SUBR      011C    SYSWP     0126
  39.