Z180/console.180

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