Kleincomputer KC 85 Handbuch Seite 90

Handbuch für den Programmierer
03BB CB 57
03BD 28 05
03BF F1
03C0 D3 09
03C2 A7
03C3 C9
03C4 F1
03C5 37
03C6 C9
03C7 DB 0B
03C9 CB 47
03CB 20 11
03CD 3E 05
03CF D3 0B
03D1 3E EA
03D3 D3 0B
03D5 DB 0B
03D7 CB 47
03D9 20 07
03DB CD 03EA SDE5:
03DE DB 09
03E0 A7
03E1 C9
03E2 DD 7E 00 SDE6: LD
03E5 FE 03
03E7 20 EC
03E9 37
03EA 3E 05
03EC D3 0B
03EE 3E 6A
03F0 D3 0B
03F2 C9
BIT
JR
POP
OUT
AND
RET
;
SD6K: POP
SCF
RET
;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
; ZEICHENEINGABE ZEICHEN IN A
;RR0 BIT 0 - ZEICHEN IM EMPFAENGERPUFFER
;WR5 BIT 0 - EMPFAENGERFREIGABE
SDE: IN
BIT
JR
LD
OUT
LD
OUT
SDE9: IN
BIT
JR
CALL
SD7: IN
AND
RET
;
CP
JR
SCF
OFF: LD
OUT
LD
OUT
RET
; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
.DEPHASE
END
90
2,A ;PUFFER LEER ?
Z,SD6K ;->NEIN
AF
(SIOB),A ;BYTE AUSGEBEN
A ;CY=0 READY
AF ;CY=1 NOT READY
A,(SIOB+2)
0,A ;BYTE IM PUFFER ?
NZ,SD7 ;->JA
A,5 ;WR5
(SIOB+2),A
A,0EAH
(SIOB+2),A ;DTR-ON
A,(SIOB+2) ;RR0
0,A ;ZEICHEN IM PUFFER ?
NZ,SDE6 ;->NEIN
OFF
A,(SIOB) ;BYTE EINLESEN
A
A,(IX+13)
3 ;BRK ?
NZ,SDE9 ;->NEIN
;CY=1 BREAK
A,5
(SIOB+2),A
A,06AH
(SIOB+2),A ;DTR OFF
Anlage 6