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