Listing of file='TALK.SRC;01' on disk='vmedia/comm_pgms-sideA-sector.ccvf'
ORG 33215 JMP LINK ORG 33221 JMP START ORG 40900 ; ; ROUTINE TO EDIT INPUT ; START: PUSH PSW MOV A,E ANI 7FH CPI 7FH JZ EX2 ;IGN DEL CPI 0AH JZ EX1 ;TAKE LF CPI 0DH JZ EX1 ;TAKE CR CPI 20H JC EX2 ;IGN CONTROL CHARACTERS EX1: MOV E,A POP PSW JMP 39DCH EX2: POP PSW RET ; ; SET UP LINKAGE ; LINK: PUSH PSW MVI A,31 STA 81E3H ;INP FLAG MVI A,84H OUT 5 ;BAUD RATE MVI A,14 STA 33247 ;KB FLAG POP PSW RET END START