![RCA CDPl8S693 User Manual Download Page 71](http://html.mh-extra.com/html/rca/cdpl8s693/cdpl8s693_user-manual_334504071.webp)
70
User Manual for Microboard Computer Development System CDP18S693 & CDP18S684
827B 0D0A00;
0599
,A (C R L F),0
827E 2A8A;
0600
DEC CNT;GLO CNT
..D ID 20 RETURNS GO BY ?
8280 3A96;
0601
BNZ NXTLNE
8282 D483F0;
0602
SEP CALL;,A(OSTRNG)
8285 2A2A2A2A00;
0603
^ ' * * * * ' ,0
..PROMPT FOR A KEY WHEN READY
828A D4813E
0604
SEP CALL; ,A(READ)
828D D483F0
0605
SEP CALL;,A(OSTRNG)
8 290 0D0A00
0606
,A(CRLF) , 0
8293 F814AA
0607
LDI LINES;PLO CNT
8 2 9 6 ;
0608
8296 12;
0609 NXTLNE: INC SP
8297 72AC;
0610
LDXA;PLO RC
8 299 02BC;
0611
LDN SP;PH I RC
829B D48542
0612
SEP CALL; ,A(READT)
829E FBOA;
0613
XRI LF
82A0 3 2 6 8 ;
0614
BZ MORLST
82A2 ;
0615
. . I T IS N 'T A LINE FEED SO
82A2 306B;
0616
BR CHKOUT
..S E E WHAT IT IS
82A4 ;
0617
82A4 F8EFAC
0618 SHOWIT: LDI A.O(DELAYl);PLO DELAY
82A7 F880BC
0619
LDI A. 1 ( DELAY1) ; PHI DELAY
82AA D481A4
0620
SEP CALL; ,A(TYPE)
..PU T IT TO THE TERMINAL
82AD 37B 6;
0621
B4 MRLSTl
..HALT ON BREAK ASSERTED
82AF D4813E ;
0622
SEP CALL; ,A(READ)
82B2 FB51;
0623
XRI T 'Q '
. .EXIT ON Q OR CONTINUE ON
82B4 3 2 4 6 ;
0624
BZ PRMPT2
. .ANYTHING ELSE
82B6 ;
0625
82B6 1 2 ;
0626 MRLST1: INC SP
..RESTORE IOCB POINTER
82B7 72AC;
0627
LDXA;PLO RC
82B9 02BC;
0628
LDN SP;PH I RC
82BB 3 0 6 8 ;
0629
BR MORLST
82BD
0630
82BD
0631 ..* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
82BD
0632 . .
OUTPUT
82BD
0633 . .
FORMATS AND OUTPUTS MEMORY DATA BEGINNING
82BD
0634 . .
AT THE
ADDRESS IN REG SRC FOR THE NUMBER
82BD
0635 . .
OF BYTES SPECIFIED IN REG CNT
82BD
0636 ..REG USED:
SRC, CNT, CHAR
82BD
0637 ••* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
82BD
0638
82BD D48200 ;
0639 DISPLY: SEP CALL;,A(OPTION)
..G ET STARTING ADDRESS
82C0 FBOD;
0640
XRI CR
..TERMINATE WITH CR
82C2 CA8085 ;
0641
LBNZ ERROR
82C5 ;
0642
82C5 D 483F00A00;
0643 OUTPUT: SEP CALL;,A(OSTRNG); ,LF,O ..STA RT ON A NEW LINE
82CA D480CD ;
0644
SEP CALL; ,A(OUTl)
..OUTPUT THE ADDRESS
82CD
0645
. . OF THE CURRENTLY OPENED
82CD
0646
. . CELL
82CD
0647
82CD D483F0 ;
0648 SPCOUT: SEP CALL;,A(OSTRNG)
82D0 2 0 0 0 ;
0649
, SPACE, 0
82D2 >
0650
82D2 4BBF;
0651 DATOUT: LDA SRC; PHI CHAR
..RETRIEVE THE CELL DATA
82D4 D481AE ;
0652
SEP CALL; ,A(TYPE2)
..AND OUTPUT IT
82D7 8A;
0653
GLO CNT
..DETERMINE IF THE
82D8 3ADD;
0654
BNZ NOTDON
..REQUESTED NO. OF BYTES
82DA 9A;
0655
GHI CNT
..HAVE BEEN SENT
82DB 3 2 4 6 ;
0656
BZ PRMPT2
..G ET A NEW COMMAND
82DD
0657
82DD 2A;
0658 NOTDON: DEC CNT
..DEC THE BYTE COUNT