home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s199 / 1.img / M6809D.ABL < prev    next >
Encoding:
Text File  |  1986-02-04  |  1.0 KB  |  37 lines
  1. module m6809d (dev)
  2. title '6809 memory decode
  3. Jean Designer    Data I/O Corp Redmond WA   24 Feb 1984'
  4.  
  5. " The device type may be specified on the command line with
  6. " ABEL m6809d -aP16L8
  7.  
  8. @ifnb (?dev) { U09d device '?dev';   @message 'Using "?dev".'};
  9.  
  10. @ifb  (?dev) { U09d device 'P14L4';  @message 'Using "P14L4".'};
  11.  
  12.     A15,A14,A13,A12,A11,A10    pin 1,2,3,4,5,6;
  13.     ROM1,IO,ROM2,DRAM    pin 14,15,16,17;
  14.  
  15.     H,L,X    = 1,0,.X.;
  16.     Address    = [A15,A14,A13,A12, A11,A10,X,X, X,X,X,X, X,X,X,X];
  17.  
  18. equations
  19.     !DRAM    = (Address <= ^hDFFF);
  20.  
  21.     !IO    = (Address >= ^hE000) & (Address <= ^hE7FF);
  22.  
  23.     !ROM2   = (Address >= ^hF000) & (Address <= ^hF7FF);
  24.  
  25.     !ROM1    = (Address >= ^hF800);
  26.  
  27. test_vectors (Address -> [ROM1,ROM2,IO,DRAM])
  28.           ^h0000  -> [  H,  H,  H,   L ];
  29.           ^h4000  -> [  H,  H,  H,   L ];
  30.           ^h8000  -> [  H,  H,  H,   L ];
  31.           ^hC000  -> [  H,  H,  H,   L ];
  32.           ^hE000  -> [  H,  H,  L,   H ];
  33.           ^hE800  -> [  H,  H,  H,   H ];
  34.           ^hF000  -> [  H,  L,  H,   H ];
  35.           ^hF800  -> [  L,  H,  H,   H ];
  36. end m6809d
  37.