Subversion Repositories NedoOS

Rev

Rev 2254 | Blame | Compare with Previous | Last modification | View Log | Download

  1. ; Z80 test - monitor random behavior of bits 5 and 3 after CCF.
  2. ;
  3. ; Copyright (C) 2023 Patrik Rak (patrik@raxoft.cz)
  4. ;
  5. ; This source code is released under the MIT license, see included license.txt.
  6.  
  7.             org     0x8000
  8.  
  9. main:       di
  10.             ld      sp,22528+512
  11.             ld      hl,0x7838
  12.             ld      b,0
  13. .fill       push    hl
  14.             djnz    .fill
  15.             ld      sp,49152
  16.             ld      hl,16384
  17.             ld      d,0xEF
  18. .loop       push    hl
  19.             pop     af
  20.             ccf
  21.             push    af
  22.             pop     bc
  23.             ld      a,l
  24.             xor     c
  25.             ld      (hl),a
  26.             inc     hl
  27.             ld      a,h
  28.             and     d
  29.             ld      h,a
  30.             jp      .loop
  31.  
  32. ; EOF ;
  33.