home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0505.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-31  |  483 b   |  12 lines
  1. Inline( $31/$C0/               { XOR AX,AX   }
  2.         $B9/$FF/$00/           { MOV CX,00FF }
  3.         $40/                   { INC AX      }
  4.         $3D/$10/$00/           { CMP AX,0010 }
  5.         $74/$05/               { JZ  5       }
  6.         $49/                   { DEC CX      }
  7.         $75/F7/                { JNZ -9      }
  8.         $EB/$04/               { JMP 4       }
  9.         $31/$C0/               { XOR AX,AX   }
  10.         $EB/$F1 );             { JMP -15     }
  11.  
  12.