z180/console.180

   1         ;page   255
   2         .z80
   3
   4
   5         global  $coninit
   6         global  $cists,$ci
   7         global  $co
   8
   9
  10         extrn   ser.init,ser.ist,ser.in,ser.ost,ser.out
  11         extrn   ff.init,ff.i.st,ff.in
  12         extrn   ff.o.st,ff.out
  13
  14
  15         include config.inc
  16         include z180reg.inc
  17
  18         cseg
  19 ;
  20 ;
  21
  22 $coninit:
  23         call    ff.init
  24         call    ser.init
  25         ret
  26
  27 $cists:
  28         call    ff.i.st
  29         ret     nz
  30         call    ser.ist
  31         ret
  32
  33 $ci:
  34         call    ff.i.st
  35         jp      nz,ff.in
  36         call    ser.ist
  37         jp      nz,ser.in
  38         jr      $ci
  39
  40 ;$costs:
  41 ;       jp      f.o.st
  42
  43 $co:
  44         call    ff.out
  45         jp      ser.out
  46
  47         end
  48