;*** ондопнцпюллю оепедювх *** ;оепедюбюелши яхлбнк (б йнде йнх-7> ;гюдюеряъ б пецхярпе я. блеярн яхлбнкнб, ;нрясрярбсчыху б лрй-2, оепедюеряъ рнвйю. TTYOUT: PUSH PSW PUSH м PUSH б MOV ю, я ANI 7FH MOV я, ю CPI 0AH JZ LF ;оепебнд ярпнйх CPI 00м JZ CR ;бнгбпюр йюперйх CPI '.' JZ BL ;опнаек ; яхлбнкш я йнднл лемше 20м ;ме оепедючряъ JM RTRN ;оепебндхл йнх-7 б лрй-2 LXI H, ASCITC-20H MVI б,0 DAD б ;бшдекъел опхгмюй пецхярпю MVI A, 0E0H ANA M MOV б, ю ;еякх пецхярп ме янбоюдюер я сярюмнбкеммшл, ;оепедюел йнд ялемш пецхярпю LDA REG CMP B JZ XMT MOV ю, б STA REG RLC JC SETFIG RLC JC SETRUS MVI C, 1FH SETREG: CALL TX ;оепедюел яхлбнк б MTK-2 улр: MOV я, л уMр1: CALL TX RTRN: POP б POP м POP PSW RET ;оепебнд ярпнйх LF: MVI я, 2 JMP XMT1 ;опнаек BL: MVI я, 4 JMP XMT1 ;бнгбпюр йюперйх CR: MVI я,8 JMP XMT1 ;жхтпнбни пецхярп SETFIG: MVI C, 1BH JMP SETREG ;псяяйхи пецхярп SETRUS: MVI C, 0 JMP SETREG ;*** ондопнцпюллю опхелю *** ;фдел нвепедмни яхлбнк TTYIN: CALL RX JC TTYIN ANI 1FH ;напюаюршбюел бй, опнаек х оя CPI 2 JNZ TI1 MVI ю, 0юм RET TI1: CPI 4 JNZ TI2 MVI ю, 20H RET TI2: CPI 8 JNZ TI3 MVI ю, 00м RET ;напюеюршбюем йндш ялемш пецхярпнб TI3: PUSH м LXI H, REG CPI 1FH JNZ TI4 MVI M, 20H ;кюрхмяйхи TI4: CPI 0 JNZ TI5 MVI м, 40м ;псяяйхи TI5: CPI 1бм JNZ TI6 MVI м, 80м ;жхтпю TI6: ANA M ;напюаюршбюел йнд рнвйх CPI 9CH JNZ TI7 MVI ю, '.' POP м RET ;оепебндхл MTK-2 8 йнх-7 TI7: PUSH б MVI C, 5FH LXI H, ASCITC TI8: CMP л JZ TI9 INX м DCR я JNZ TI8 TI9: MOV ю,я XRI 7FH POP B POP H RET ;** рюакхжю оепебндю йнх-7 б лрй-2 *** ASCITC: DB 84H,9CH,85H,9CH,9CH,9CH,9CH,85H DB 8Fм,92м,89м,91м,82м,83м,9ям,9Dм DB 96H,97H,93H,81H,8AH,90H,95H,87H DB 86H,98H,8EH,9CH,9CH,9EH,9CH,99H DB 9CH,23H,39H,2EH,29H,21H,2DH,гюH DB 34H,26H,2BH,2FH,32H,3CH,2CH,38H DB 36H,37H,2AH,25H,30H,27H,3EH,33H DB 30м,35м,31м,9CH,9CH,9CH,9CH,9CH DB 8BH,43H,59H,4EH,49H,41H,40H,5AH DB 54H,46H,4BH,4FH,52H,SCH,4CH,58H DB 56H,57H,4AH,45H,50H,47H,5EH,53H DB 50H,55H,51H,9AH,80H,94H,8AH,9CH END