z180/freqloop.180

   1         .z80                            ; for M80, ignored by SLR assembler
   2         include z180reg.inc
   3
   4         aseg
   5         org     0
   6
   7         ld      bc,00*256+RCR
   8         xor     a
   9         out     (c),a
  10         out     (040H),a
  11                                 ;Z80    Z180(0W) Z180(MaxW)
  12 loop:                           ;--------------------------
  13         in      a,(050h)        ;11       10     +3*3  19
  14         jp      loop            ;10        9     +3*3  18
  15                                 ;--------------------------
  16                                 ;21       19           37
  17
  18         end
  19
  20 ; vim:set ts=8 noet nowrap