home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol028 / ormsk.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  704 b   |  21 lines
  1. ;  THE FOLLOWING IS THE OR FUNCTION OF TWO INTEGERS
  2. ; ON A BIT BY BIT BASIS. IT WILL BE USED AS A LIBRARY
  3. ; FUNCTION.
  4. ;
  5. ; FUNCTION ORMSK(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    ORMSK
  12.     ENTRY    ORMSK;  LINKER SETUP ENTRY POINT
  13. ORMSK:    ENTR    D,2,0;    SETUP MACRO
  14.     MOV    A,VALY(IX)    ;GETTING L.O. VALUE Y
  15.     ORA    VALX(IX)    ;ORING 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.     ORA    VALXH(IX);    ORING 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.