home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol028 / andmsk.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  711 b   |  21 lines
  1. ;  THE FOLLOWING IS THE AND FUNCTION OF TWO INTEGERS
  2. ; ON A BIT BY BIT BASIS. IT WILL BE USED AS A LIBRARY
  3. ; FUNCTION.
  4. ;
  5. ; FUNCTION ANDMSK(VALX,VALY: INTEGER):INTEGER;
  6. ;
  7. VALX    EQU    10; LOC OF PARM X OFSET TO (IX)
  8. VALXH    EQU    11;    LOC OF H.O.BYTE
  9. VALY    EQU    8;  LOC OF PARM Y OFFSET TO (IX)
  10. VALYH    EQU    9;    LOC OF H.O.BYTE
  11.     NAME    ANDMSK
  12.     ENTRY    ANDMSK;  LINKER SETUP ENTRY POINT
  13. ANDMSK:    ENTR    D,2,0;    SETUP MACRO
  14.     MOV    A,VALY(IX)    ;GETTING L.O. VALUE Y
  15.     ANA    VALX(IX)    ;ANDING WITH L.O. VALUE X
  16.     MOV    2(IX),A    ; MOVE A TO THE FUNCTION RET VAL LOC
  17.     MOV    A,VALYH(IX);    GETTING H.O. VALUE Y
  18.     ANA    VALXH(IX);    ANDING WITH H.O. VAL X
  19.     MOV    3(IX),A;    FUNC RET VALUE LOC FOR H.O. VAL
  20.     EXIT    D,4;    EXIT MACRO WHICH DOES CLEANUP
  21.