ORG E808H DRAKK: CMP 1EH ;Ist das Zeichen 1E? JRNZ ZEIDR-# ;Wenn nein, Sprung zum Zeichendrucken LD A, 0DH CALL ZEIDR LD A, 0AH ;andernfalls Ausgabe von 0D, 0A ZEIDR: PUSH AF ;Zeichen retten LD A, 0FH ;PIO-initialisieren (Byte Ausgang) OUT 1 ;Port A, Control CPL ;A, F0H OUT 2 ;Port B, Daten POP AF ;Zeichen zurueckholen ZEID1: OUT 0 ;Ausgeben an Drucker XOR A ;A:=0 OUT 2 ;Ausgeben an Port B (Strobe:=low) CPL ;A:=FF OUT 2 ;Ausgeben an Port B (Strobe:=high) ZEID2: IN 2 ;Port B, Daten einlesen BIT 4,A ;Ist BUSY low? JRNZ ZEID2-# ;Wenn nicht, dann erneute Frage RET ;andernfalls zurueck und evtl. neues Zeichen END