*
* TERMinal command for Sol computer
* (Missing in Bootload Prom version)
*
 ORG 0C900H
 XEQ 0C900H
*
TERM CALL 0C310H
 STA 0C806H
 CALL 0C310H
 STA 0C807H
*
TERM1 CALL 0C02EH
 JZ TIN
 MOV B,A
 CPI 80H
 JZ 0C1C0H
 JC TOUT
 CALL 0C054H
 JMP TIN
*
TOUT CALL 0C019H
TIN CALL 0C01FH
 JZ TERM1
 ANI 7FH
 JZ TERM1
 MOV B,A
 CPI 1BH
 JNC TERM2
 CPI 0DH
 JZ TERM2
 CPI 0AH
 JZ TERM2
 LDA 0C80CH
 ORA A
 JNZ TERM2
 PUSH B
 MVI B,1BH
 CALL 0C054H
 MVI B,7
 CALL 0C054H
 POP B
TERM2 EQU $
 CALL 0C054H
 JMP TERM1
*