home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol027 / and.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.1 KB  |  32 lines
  1. ;FILE AND.SRC       WRITTEN 9-23-80     BY D.A. STEELE
  2.  
  3.      ;THIS ROUTINE WILL TAKE TWO NUMBERS PASSED TO IT AND DO A
  4.      ;LOGICAL AND OF THEM.  TRUE WILL BE RETURNED IF THE RESULT
  5.      ;IS NOT ZERO (I.E. IF THE TEST BIT WAS SET).  THIS WILL ALLOW THE 
  6.      ;PROGRAMER TO CHECK FOR ONE BIT SET OR NOT.  IF THE TEST BIT IS
  7.      ;NOT SET THEN FALSE IS RETURNED.
  8.  
  9.           NAME ANDEM
  10.           ENTRY ANDEM
  11.  
  12. ANDEM:    POP       H         ;SAVE RETURN ADDRESS
  13.           POP       D         ;GET THE PARAMATERS
  14.           POP       B         ;GET THE SECOND OPERAND
  15.           PUSH      H         ;REPLACE THE RETURN ADDRESS
  16.           MOV       A,E
  17.           ANA       C         ;CHECK THE LOW BYTES
  18.           JNZ       TRUE
  19.           
  20.           MOV       A,B
  21.           ANA       D         ;CHECK THE HIGH BYTES
  22.           JNZ       TRUE
  23.  
  24. FALSE:    XRA       A         ;ZERO A - RESET CARY FLAG
  25.           RET                 ;RETURN TO PASCAL
  26.  
  27. TRUE:     XRA       A         ;ZERO A
  28.           STC                 ;SET THE CARRY
  29.           RET                 ;RETURN TO PASCAL
  30.  
  31.  
  32.