RCA 1800 Operator's Manual page 25

.-
24 _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ Operator Manual for the RCA CDS II CDP18S005
'
.
!M
(JOOO FF<)O B2B:1 BM·'B FF A2 FBBl B:WB 3EA7 FB9C;
printed on the terminal during the loading process.
Notice that. after completion of
transmi~si()n .
CSOP
comes back in its command mode with the OBG
prompt.
oow
B7FB2BM FBIB A:105 B7A:3 0:3:16 B7A3 03E();
0020 F7:m 2:19F :1697 A:m:3 0030 lBFF FFFF FFFF;
The user may now log off from the
time~harin!-(
system after a "$Q" to CSOP and then
~witch
the
data terminal to the TTY-CnS mode to vrrify
loading. via the ?M command. and to . run the
program.
00:30 FF
DBG
RDPTR
=
#3E
WRPTR
=
#9C
10
=
R3
PC
=
R5
ARG
=
R6
10PTR = R7
ORG -#01
· . LOWER HALF READ ENTRY
· . LOWER HALF TYPE5D ENTRY
· . UT3 READ-TYPE PROGRAM COUNTER
· . CALLING PROGRAM COUNTER
· . POINTER TO IMMEDIATE TYPE BYTE
· . HOLDS WRPTR AND RDPTR VALUES
· _ PROGRAM STARTS AT LOC 1
........ .. INITIALIZATION PHASE BEGINS HERE ............... . . . , . ..... - .
GHI RO
PHI R2
PLO R2
PHI PC
PHI ARG
LDI #81
PHilO
LDI RDPTR
PLO 10PTR
LDI WRPTR
PHI 10PTR
LDI A.
0
(ARG1)
PLO ARG
LDI A. 0 (LOOP)
PLO PC
.. CLEAR 0 , SINCE RO.1 IS ZERO
· . R2 POINTS AT FREE LOC (ZERO)
.. CLEAR UPPER HALVES OF LOCAL PTRS
· . INITIALIZE UPPER HALF UT3 PC
· . LOWER H.A.LVES OF UT3 ENTRIES
· . POINTER TO TYPE SAVE BYTE
· . LOCAL PROGRAM COUNTER READY
SEP PC .. SWITCH PROGRAM COUNTERS
... . ...... MAIN PROGRAM LOOP BEGINS HERE ....... ... . . . ...... . ....... .
LOOP: GLO 10PTR
PLO 10
SEPIO
STR ARG
GLO 10PTR
PLO 10
SEPIO
SEX ARG
SM
BM TYPE
GHI RF
STR ARG
TYPE : GHI 10PTR
PLO 10
SEPIO
ARG1 : ORG*+-#01
BR LOOP
END
· . POINT TO READ
· . CALL READ .
FI RST CHAR TO 0
. . SAVE IT
· . REPOINT TO READ
.. CALL READ. SECOND CHAR TO 0, RF . 1
· . RESTORE ARG POINTER
· . SECOND CHAR MINUS FIRST
.. EXIT IF FIRST CHAR IS LARGER
· . SECOND CHAR TO OUTPUT ARG LOC
· . POINT TO TYPE5D
· . CALL TYPE .
· . IMMEDIATE BYTE ARG AND SAVE LOC
· . LOOP FOR ANOTHER PASS
Fig.
4 -
Source code of sample program for CSDP
timesharing assembler.