Radstone PME 68-1B, Manual

Page: 123 / 132

Input of One Line from the Remote ACIA
A string is read from the device, < CR> ($0D) terminates the input. A return to the
monitor is performed at the end of the operation by a TRAP # 14 sequence.
ORG $4000;
/* INPUT ONE LINE FROM ACIA3*/
ACIA : EQU @$C0101 ;/* ACIA3 CSR */
RESET: EQU $03 ;/* RESET */
MODE : EQU $15 ;/* MODE */
START1:: LEA.L ACIA,A0 ;/* GET BASE INTO A0 */
MOVE.B # RESET,0(A0) ;/*RESET */
MOVE.B # MODE ,0(A0) ;
LEA.L STRNG,A1 ;
NEXT: BSR.B INCH ;
CMPI.B # S0D,(A1)+ ;/* DO UNTIL CR */
BNE.B NEXT ;
TRAP # 14 ;/* MONITOR CALL */
INCH: MOVE.B 0(A0),D0 ;/* GET STATUS */
LSR.B # 1,D0 ;/* DONE ? */
BCC.B INCH ;
MOVE.B 2(A0),(A1) ;/* STORE BYTE 2*/
RTS
STRING: DS.B $100 ;;/* TEXT BUFFER */
PME68-1B Manual
Page 117 Issue 5