home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PCTV1N4.ZIP / L3.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-08-02  |  271 b   |  12 lines
  1.  
  2.  
  3.      SHL  BX,1                ;prepare for word sized look up
  4.      OR   AX,ShiftTable[BX]   ;look up the bit and OR it in
  5.           :
  6. ShiftTable     LABEL     WORD
  7. BIT_PATTERN=0001H
  8.      REPT 16
  9.      DW   BIT_PATTERN
  10. BIT_PATTERN=BIT_PATTERN SHL 1
  11.      ENDM
  12.