.TITLE RDCSI READ COMMAND STRING .IDENT /V01.1/ ; ; ORCAM - READ COMMAND STRING ; ; .MCALL GCML$,RCML$,CSI$1 ; .MCALL EXIT$S .MCALL .CSIGEN,.EXIT,.PRINT ; ; RD$CSI - READ A COMMAND STRING ; RD$CSI:: .PRINT #M1 MOV SP,SPS .CSIGEN #150000,#DEVSPC,#0 BCC 10$ .EXIT 10$: MOV SPS,SP RTS PC SPS: .WORD 0 DEVSPC: .RAD50 /OBJMAC / M1: .ASCII /ORC> /<200> ; .END