Subversion Repositories pentevo

Rev

Rev 896 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ;LAST UPDATE: 23.02.2020 savelij
  3.  
  4. ; TR-DOS
  5.  
  6.                 include ../../svn/pentevo/rom/macros.a80
  7.                 include ../../svn/pentevo/rom/global_vars.a80
  8.                 include ../../svn/pentevo/rom/define.a80
  9.                 include ../../svn/pentevo/rom/evodos_vars.a80
  10.                 include define.a80
  11.  
  12. DIHALT          MACRO
  13.                 DI
  14.                 HALT
  15.                 NOP
  16.                 NOP
  17.                 NOP
  18.                 NOP
  19.                 ENDM
  20.  
  21. NODIHALT        MACRO
  22.         REPT 6
  23.                 NOP
  24.         ENDM
  25.                 ENDM
  26.  
  27.                 ORG 0
  28.                 DI
  29.                 LD A,0X3C
  30.                 OUT (0XFF),A
  31.                 LD A,1
  32. RESTART         LD BC,BD_FDD_MASK
  33.                 OUT (C),A
  34.                 LD HL,EMPTY
  35.                 JP START_TEST
  36.  
  37.                 DUPL 0X300-$
  38. START_TEST      LD A,0X3C
  39.                 OUT (0XFF),A
  40.                 DIHALT
  41.                 IN A,(0XFF)
  42.                 DIHALT
  43.                 OUT (0X7F),A
  44.                 DIHALT
  45.                 IN A,(0X7F)
  46.                 DIHALT
  47.                 OUT (0X5F),A
  48.                 DIHALT
  49.                 IN A,(0X5F)
  50.                 DIHALT
  51.                 OUT (0X3F),A
  52.                 DIHALT
  53.                 IN A,(0X3F)
  54.                 DIHALT
  55.                 OUT (0X1F),A
  56.                 DIHALT
  57.                 IN A,(0X1F)
  58.                 DIHALT
  59.                 LD BC,0XFF
  60.                 OUT (C),B
  61.                 DIHALT
  62.                 IN A,(C)
  63.                 DIHALT
  64.                 LD C,0X7F
  65.                 OUT (C),A
  66.                 DIHALT
  67.                 LD C,0X5F
  68.                 IN A,(C)
  69.                 DIHALT
  70.                 LD C,0X3F
  71.                 OUT (C),A
  72.                 DIHALT
  73.                 IN A,(C)
  74.                 DIHALT
  75.                 LD C,0X1F
  76.                 OUT (C),A
  77.                 DIHALT
  78.                 IN A,(C)
  79.                 DIHALT
  80.                 LD C,0XFF
  81.                 INI
  82.                 DIHALT
  83.                 OUTI
  84.                 DIHALT
  85.                 LD C,0X7F
  86.                 INI
  87.                 DIHALT
  88.                 OUTI
  89.                 DIHALT
  90.                 LD C,0X5F
  91.                 INI
  92.                 DIHALT
  93.                 OUTI
  94.                 DIHALT
  95.                 LD C,0X3F
  96.                 INI
  97.                 DIHALT
  98.                 OUTI
  99.                 DIHALT
  100.                 LD C,0X1F
  101.                 INI
  102.                 DIHALT
  103.                 OUTI
  104.                 DIHALT
  105.                 LD HL,EMPTY
  106.                 XOR A
  107.                 LD BC,BD_FDD_MASK
  108.                 OUT (C),A
  109.  
  110.  
  111.  
  112.                 LD A,0X3C
  113.                 OUT (0XFF),A
  114.                 NODIHALT
  115.                 IN A,(0XFF)
  116.                 NODIHALT
  117.                 OUT (0X7F),A
  118.                 NODIHALT
  119.                 IN A,(0X7F)
  120.                 NODIHALT
  121.                 OUT (0X5F),A
  122.                 NODIHALT
  123.                 IN A,(0X5F)
  124.                 NODIHALT
  125.                 OUT (0X3F),A
  126.                 NODIHALT
  127.                 IN A,(0X3F)
  128.                 NODIHALT
  129.                 OUT (0X1F),A
  130.                 NODIHALT
  131.                 IN A,(0X1F)
  132.                 NODIHALT
  133.                 LD BC,0XFF
  134.                 OUT (C),B
  135.                 NODIHALT
  136.                 IN A,(C)
  137.                 NODIHALT
  138.                 LD C,0X7F
  139.                 OUT (C),A
  140.                 NODIHALT
  141.                 LD C,0X5F
  142.                 IN A,(C)
  143.                 NODIHALT
  144.                 LD C,0X3F
  145.                 OUT (C),A
  146.                 NODIHALT
  147.                 IN A,(C)
  148.                 NODIHALT
  149.                 LD C,0X1F
  150.                 OUT (C),A
  151.                 NODIHALT
  152.                 IN A,(C)
  153.                 NODIHALT
  154.                 LD C,0XFF
  155.                 INI
  156.                 NODIHALT
  157.                 OUTI
  158.                 NODIHALT
  159.                 LD C,0X7F
  160.                 INI
  161.                 NODIHALT
  162.                 OUTI
  163.                 NODIHALT
  164.                 LD C,0X5F
  165.                 INI
  166.                 NODIHALT
  167.                 OUTI
  168.                 NODIHALT
  169.                 LD C,0X3F
  170.                 INI
  171.                 NODIHALT
  172.                 OUTI
  173.                 NODIHALT
  174.                 LD C,0X1F
  175.                 INI
  176.                 NODIHALT
  177.                 OUTI
  178.                 NODIHALT
  179.                
  180.                 JP 0
  181.  
  182. EMPTY
  183.  
  184.                 DUPL 0X3D2F-$
  185.                 NOP
  186.                 RET
  187.  
  188.                 DUPL 0X4000-$
  189.