home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok02.lha / M2Code / M2CodeDemo2 / AssSort.mod < prev    next >
Encoding:
Modula Implementation  |  1993-08-16  |  508 b   |  31 lines
  1. IMPLEMENTATION MODULE AssSort;
  2.  
  3. FROM SYSTEM IMPORT BYTE,WORD,LONGWORD,ADDRESS,PROCESS,CODE,SETREG,REGISTER;
  4.  
  5. CONST
  6.   MOVEMS = 48E7H;
  7.   MOVEML = 4CDFH;
  8.  
  9. (*------  AssSort  ------*)
  10.  
  11. PROCEDURE AssSort(a:ADDRESS;b:CARDINAL);
  12.  
  13. BEGIN
  14.  
  15.   CODE(MOVEMS,03800H);
  16.  
  17.   SETREG(8,ADDRESS(a));
  18.   SETREG(0,ADDRESS(b));
  19.  
  20.   CODE(04281H,02401H,02248H,05282H,05489H,03611H,0B650H,06406H);
  21.   CODE(03810H,03083H,03284H,0B480H,065ECH,05281H,05488H,0B280H);
  22.   CODE(065E0H);
  23.  
  24.  
  25.   CODE(MOVEML,0001CH);
  26.  
  27. END AssSort;
  28.  
  29. BEGIN
  30. END AssSort.
  31.