PL/M-80 COMPILER                                                                                     2/23/79    PAGE   1


ISIS-II PL/M-80 V3.1 COMPILATION OF MODULE SIOINT
OBJECT MODULE PLACED IN :F1:SIOINT.OBJ
COMPILER INVOKED BY:  PLM80 :F1:SIOINT.SRC DEBUG DATE(2/23/79)



   1          SIO$INT: DO;

              $NOLIST

              $INCLUDE (:F1:DEFIO.800)
   6   1  =   DECL KBD$STAT LIT '0C1H';
   7   1  =   DECL KBD$DATA LIT '0C0H';
   8   1  =   DECL KBD$RDY LIT '01H';
   9   1  =   DECL SIO$STAT LIT '0E1H';
  10   1  =   DECL SIO$DATA LIT '0E0H';
  11   1  =   DECL SIO$RXRDY LIT '02H';
  12   1  =   DECL SIO$TXRDY LIT '01H';
  13   1  =   DECL SIO$RSET LIT '040H';
  14   1  =   DECL SIO$MODE LIT '04EH';
  15   1  =   DECL SIO$CMND LIT '037H';
  16   1  =   DECL CRTC LIT '10H';/*CRT OUTPUT DATA COMMAND*/
  17   1  =   DECL CRTS LIT '11H';/*CRT DEVICE STATUS COMMAND*/
  18   1  =   DECL KEYC LIT '12H';/*KEYBOARD INPUT DATA COMMAND*/
  19   1  =   DECL KSTS LIT '13H';/*KEYBOARD DEVICE STATUS COMMAND*/
  20   1  =   DECL OBF LIT '01H';
  21   1  =   DECL IBF LIT '02H';
  22   1  =   DECL FO LIT '04H';
  23   1  =   DECL CPUC LIT '0FFH';
  24   1  =   DECL DISABL LIT '0DH';
  25   1  =   DECL ENABL LIT '05H';
  26   1  =   DECL IOCC LIT '0C1H';
  27   1  =   DECL IOCS LIT '0C1H';
  28   1  =   DECL IOCO LIT '0C0H';
  29   1  =   DECL IOCI LIT '0C0H';
  30   1      DECL BAUD$RATE LIT '064';
  31   1      DECL MODE3 LIT '036H';
  32   1      DECL TMODE$PORT LIT '0E3H';
  33   1      DECL TCOUNT$PORT LIT '0E0H';
  34   1      DECL SET$CONTRL$BLOCK LIT '0ECH';
  35   1      DECL SET$DATA$BLOCK LIT '0EDH';

  36   1      SIO$INIT: PROCEDURE PUBLIC;

  37   2          OUTPUT(SET$CONTRL$BLOCK) = 0;
  38   2          OUTPUT(TMODE$PORT) = MODE3;
  39   2          OUTPUT(TCOUNT$PORT) = LOW(BAUD$RATE);
  40   2          OUTPUT(TCOUNT$PORT) = HIGH(BAUD$RATE);
  41   2          OUTPUT(SET$DATA$BLOCK) = 0;
  42   2          OUTPUT(SIO$STAT) = NULL;/* GET USART READY FOR RESET */
  43   2          OUTPUT(SIO$STAT) = NULL;
  44   2          OUTPUT(SIO$STAT) = NULL;
  45   2          OUTPUT(SIO$STAT) = SIO$RSET;/* RESET USART */
  46   2          OUTPUT(SIO$STAT) = SIO$MODE;/* WRITE MODE TO USART */
  47   2          OUTPUT(SIO$STAT) = SIO$CMND;/* WRITE COMMAND TO USART */
  48   2          RETURN;
  49   2      END SIO$INIT;
PL/M-80 COMPILER                                                                                     2/23/79    PAGE   2


  50   1      END;
              EOF



MODULE INFORMATION:

     CODE AREA SIZE     = 0027H     39D
     VARIABLE AREA SIZE = 0000H      0D
     MAXIMUM STACK SIZE = 0000H      0D
     103 LINES READ
     0 PROGRAM ERROR(S)

END OF PL/M-80 COMPILATION