P8000/firmware/MON8/OUTA.S

19 lines
348 B
ArmAsm

;
PUTA
;
; AUSGABE-ROUTINE UEBER SIO-KANAL B
; ZEICHEN FUER DIE AUSGABE STEHT IM AKKUMULATOR
; SENDEPUFFER IST LEER WIRD IM POLLING ERMITTELT
;
PUSH AF
PUTW1 LD A,(MCSQ) ; MERKER CTRL S, Q UND ESC ABFRAGEN
BIT 6,A ; CTRL S GESETZT ?
JR NZ,PUTW1
PUTW2 IN A,(S0BC)
BIT 2,A ; IST DER SENDEPUFFER LEER ?
JR Z,PUTW2
POP AF
OUT (S0BD),A
RET