!      -23.  GI23_10.Z80.

*****************************************************************************
! .!    !   ! H. ! H   !         H            !
*****************************************************************************

 0000  F3      BEGIN :  DI                  ;     .
 0001  31FF87           LD      SP, 87FFH   ;    .
 0004  CDA007         	CALL    START       ;   .
 0007  CD6006           CALL    SET         ;    .
 000A  CD6007           CALL    TEMP        ;  H.  .
 000D  3E89    WORK  :  LD      A, 89H      ;   . .
 000F  D303             OUT     03H, A      ;
 0011  CD0003           CALL    REG         ;    . .
 0014  CD8003           CALL    VENT        ;    .
 0017  CDA003           CALL    READY       ;  . ""  .
 001A  CD6007           CALL    TEMP        ;   .
 001D  CDD003           CALL    KBD         ;   .
 0020  C30D00           JP      WORK        ;



