ASMB,R,L,C
      HED HIGH LEVEL I/O INTERFACE* 92413-16017 REV 1615
      NAM SIO,7  92413-16017A 760405 REV 1615 
* 
********************************************************
* 
*     SOURCE: 92413-18017 REV 1615
*     RELOC:  92413-16017 REV 1615
* 
********************************************************
* 
*     ENTRY POINTS
* 
      ENT CMDIN,GETCH,CMCNT,CHCNT,CMPTR 
* 
*     EXTERNALS 
* 
      EXT .ENTR,PR0MT,%PRSA 
      SKP 
CMCNT NOP           NUMBER OF CHARS IN BUFFER 
CHCNT NOP           NUMBER OF CHARS READ FROM BUFFER
CMPTR NOP           POINTER TO NEXT CHAR
********************************************************
* 
*     CMDIN         INPUT NEXT COMMAND
* 
*     CALLING SEQUENCE
* 
*     JSB CMDIN 
*     DEF *+3 
*     DEF BUFFR 
*     DEF ERROR     0=OK, -3=BAD COMMAND
*     RETURN POINT
* 
*     CMCNT = NUMBER OF CHARS TRANSMITTED 
******************************************************* 
* 
CMBFA NOP 
CMERR NOP 
CMDIN NOP 
      JSB .ENTR 
      DEF CMBFA 
* 
      CLA           RESET POINTERS
      STA CHCNT 
      STA CMERR,I 
      LDA CMBFA 
      STA CMPTR 
      JSB PR0MT 
      DEF *+6 
      DEF PRPTA 
      DEF B1
      DEF CMBFA,I 
      DEF D72 
      DEF %PRSA 
      STA CMCNT 
      JMP CMDIN,I 
* 
      SKP 
********************************************************
* 
*     GETCH, GET NEXT CHAR FROM BUFFER
* 
*     CALLING SEQUENCE
* 
*     JSB GETCH 
*     DEF *+2 
*     DEF ADDR      ADDRESS TO PUT CHAR( 12B IF EOL)
*     RETURN
* 
********************************************************* 
* 
CHAR  NOP 
GETCH NOP 
      JSB .ENTR 
      DEF CHAR
      LDB CHCNT 
      CPB CMCNT     END OF INPUT??
      JMP NOTCH 
      ISZ CHCNT     BUMP COUNT
      LDA CMPTR,I 
      SLB,RSS 
      ALF,ALF 
      AND B177
      SLB 
      ISZ CMPTR 
      STA CHAR,I
      JMP GETCH,I 
* 
NOTCH LDA D10 
      STA CHAR,I
      JMP GETCH,I 
PRPTA ASC 1,--
* 
* 
D72   DEC 72
B1    OCT 1 
D10   DEC 10
B177  OCT 177 
      END 
      CHAR NOP
                                                                                                                                                                                                                        