home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol027 / logiand.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  751 b   |  25 lines
  1. ;File  LOGIAND.SRC   Created  14-Nov-80
  2. ;
  3. ;    This procedure will do a logical or of two operands passed to it
  4. ;    by a PascalZ program and then return the result
  5. ;
  6.           NAME LOGIAND
  7.           ENTRY LOGIAND
  8.  
  9. LOGIAND:  POP       H    ;Save the return address
  10.           POP       D    ;Get first operand
  11.           POP       B    ;Get second operand
  12.           PUSH      H    ;Put back return vector
  13.  
  14.           MOV       A,D  ;AND the high byte
  15.           ANA       B    ;of the two numbers
  16.           MOV       D,A
  17.  
  18.           MOV       A,E  ;AND the low byte
  19.           ANA       C    ;of the two numbers
  20.           MOV       E,A
  21.  
  22.           XRA       A    ;Get ready for return to PascalZ
  23.           RET            ;And return
  24.  
  25.