?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.     DEFDEVICE LikeZx48,     $4000,  4       ; auto initial pages expected: 0, 1, 2, 3
  2.     DEFDEVICE LikeZxNext,   $2000, 96, 14, 15, 10, 11, 4, 5, 0  ; last slot page should be auto-set to 1
  3.     DEFDEVICE SmallSlot,    $0100, 16, 2, 7, 13  ; auto initial pages expected: 2, 7, 13, 14, 15, 15, ...
  4.  
  5.     DEVICE LIKEZX48
  6.     ORG $0000 : ASSERT  0 == $$
  7.     ORG $4000 : ASSERT  1 == $$
  8.     ORG $8000 : ASSERT  2 == $$
  9.     ORG $C000 : ASSERT  3 == $$
  10.  
  11.     DEVICE LIKEZXNEXT
  12.     ORG $0000 : ASSERT 14 == $$
  13.     ORG $2000 : ASSERT 15 == $$
  14.     ORG $4000 : ASSERT 10 == $$
  15.     ORG $6000 : ASSERT 11 == $$
  16.     ORG $8000 : ASSERT  4 == $$
  17.     ORG $A000 : ASSERT  5 == $$
  18.     ORG $C000 : ASSERT  0 == $$
  19.     ORG $E000 : ASSERT  1 == $$
  20.  
  21.     DEVICE SMALLSLOT
  22.     ORG $0000 : ASSERT  2 == $$
  23.     ORG $0100 : ASSERT  7 == $$
  24.     ORG $0200 : ASSERT 13 == $$
  25.     ORG $0300 : ASSERT 14 == $$
  26.     ORG $0400 : ASSERT 15 == $$
  27.     ORG $0500 : ASSERT 15 == $$
  28.     ORG $0600 : ASSERT 15 == $$
  29.     ; MMU test
  30.     MMU $0500 $1400, 0
  31.     ORG $0500 : ASSERT  0 == $$
  32.     ORG $0600 : ASSERT  1 == $$
  33.     ORG $0700 : ASSERT  2 == $$
  34.     ORG $0800 : ASSERT  3 == $$
  35.     ORG $0900 : ASSERT  4 == $$
  36.     ORG $0A00 : ASSERT  5 == $$
  37.     ORG $0B00 : ASSERT  6 == $$
  38.     ORG $0C00 : ASSERT  7 == $$
  39.     ORG $0D00 : ASSERT  8 == $$
  40.     ORG $0E00 : ASSERT  9 == $$
  41.     ORG $0F00 : ASSERT 10 == $$
  42.     ORG $1000 : ASSERT 11 == $$
  43.     ORG $1100 : ASSERT 12 == $$
  44.     ORG $1200 : ASSERT 13 == $$
  45.     ORG $1300 : ASSERT 14 == $$
  46.     ORG $1400 : ASSERT 15 == $$
  47.  
  48.     MMU $2000 n, 14, $2000
  49. label1:
  50.     DS 256, $AA
  51. label2:
  52.     ASSERT $ == $2000 && 15 == $$
  53.     ret
  54.