home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s210 / 2.ddi / DEMO96.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-01-20  |  512 b   |  25 lines
  1. ; DEMO96.ASM    8096 SOURCE CODE
  2. ;
  3. AX    WORD 24h    ;Word register
  4. CL    Data 31h    ;Byte register
  5. Val1    Equ  7532h    ;Integer value
  6. ;
  7. ORG 2080h    ;at reset address
  8. ;
  9. Start:
  10. add AX,#41h
  11. inc 36H
  12. ldb CL,73    ;copy byte 73 to CL
  13. ld  58,#Val1    ;16 bit data, LSB first
  14. jbs 36h,3,Next    ;skip if bit set
  15. shl AX,#5
  16. xor AX,58    ;modify AX
  17. djnz 73,Start    ;loop back
  18. ;
  19. Next:
  20. clrC        ;clear Carry bit
  21. add AX,#Val1-385
  22. mulb AX+6,CL,82
  23. jst Start
  24. END START    ;Starting Address
  25.