Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ;тесты защит 19.12.97
  2. TSTA    LD A,2
  3.         OUT (254),A
  4.         CALL MEM0
  5. ;-----pM
  6. TST#0   XOR A
  7.         LD HL,#4050
  8.         LD BC,#3600
  9. tst00   SUB (HL)
  10.         INC HL
  11.         DEC C
  12.         JR NZ,tst00
  13.         DEC B
  14.         JR NZ,tst00
  15.         LD HL,#4002
  16.         CP (HL)
  17.         JR NZ,$
  18. ;-----p0
  19. TST#1   XOR A
  20.         LD HL,#C000
  21.         LD BC,#3400
  22. tst10   ADD A,(HL)
  23.         INC HL
  24.         DEC C
  25.         JR NZ,tst10
  26.         DEC B
  27.         JR NZ,tst10
  28.         LD HL,#400C
  29.         CP (HL)
  30.         JR NZ,$
  31. ;-----pM
  32. TST#2   XOR A
  33.         LD HL,#4050
  34.         LD BC,#3600
  35. tst20   ADD A,(HL)
  36.         RRCA
  37.         INC HL
  38.         DEC C
  39.         JR NZ,tst20
  40.         DEC B
  41.         JR NZ,tst20
  42.         LD HL,#4043
  43.         CP (HL)
  44.         JR NZ,$
  45. ;-----pM
  46. TST#3   XOR A
  47.         LD HL,#4050
  48.         LD BC,#3600/2
  49. tst30   ADD A,(HL)
  50.         INC HL
  51.         XOR (HL)
  52.         INC HL
  53.         DEC C
  54.         JR NZ,tst30
  55.         DEC B
  56.         JR NZ,tst30
  57.         LD HL,#4045
  58.         CP (HL)
  59.         JR NZ,$
  60. ;-----p0
  61. TST#4   XOR A
  62.         LD HL,#C000
  63.         LD BC,#3400
  64. tst40   ADD A,(HL)
  65.         RLCA
  66.         INC HL
  67.         DEC C
  68.         JR NZ,tst40
  69.         DEC B
  70.         JR NZ,tst40
  71.         LD HL,#7650
  72.         CP (HL)
  73.         JR NZ,$
  74. ;=======================================
  75. ;-----p0
  76. TST#5   XOR A
  77.         LD HL,#C000
  78.         LD BC,#3400
  79. tst50   SUB (HL)
  80.         RLCA
  81.         INC HL
  82.         DEC C
  83.         JR NZ,tst50
  84.         DEC B
  85.         JR NZ,tst50
  86.         LD HL,#F4AF
  87.         CP (HL)
  88.         JR NZ,$
  89. ;-----pM
  90.         CALL MEM7 ;7!
  91. TST#6   XOR A
  92.         LD HL,#4080
  93.         LD BC,#3500
  94. tst60   ADD A,(HL)
  95.         INC HL
  96.         DEC C
  97.         JR NZ,tst60
  98.         DEC B
  99.         JR NZ,tst60
  100.         LD HL,#DB00
  101.         CP (HL)
  102.         JR NZ,$
  103. ;-----pM
  104.         CALL MEM7 ;7!
  105. TST#7   XOR A
  106.         LD HL,#4060
  107.         LD BC,#3500
  108. tst70   XOR (HL)
  109.         INC HL
  110.         DEC C
  111.         JR NZ,tst70
  112.         DEC B
  113.         JR NZ,tst70
  114.         LD HL,#FFFE
  115.         CP (HL)
  116.         JR NZ,$
  117. ;-----pM
  118.         CALL MEM4 ;4!
  119. TST#8   XOR A
  120.         LD HL,#4050
  121.         LD BC,#3600
  122. tst80   XOR (HL)
  123.         ADD A,(HL)
  124.         INC HL
  125.         DEC C
  126.         JR NZ,tst80
  127.         DEC B
  128.         JR NZ,tst80
  129.         LD HL,#FF00
  130.         CP (HL)
  131.         JR NZ,$
  132. ;-----p0
  133.         CALL MEM0 ;0!
  134. TST#9   XOR A
  135.         LD HL,#C100
  136.         LD BC,#3300
  137. tst90   XOR (HL)
  138.         INC HL
  139.         DEC C
  140.         JR NZ,tst90
  141.         DEC B
  142.         JR NZ,tst90
  143.         LD HL,#F4AE
  144.         CP (HL)
  145.         JR NZ,$
  146.         LD A,6
  147.         OUT (254),A
  148.         JR $