.TITLE	TIODCD	INITIAL COMMAND DECODER (TECO.TEC)
.IDENT	/V03.00/
.SBTTL	INITIAL COMMAND DECODER (TECO.TEC)

	ORG	TECOIO

DCDLOD::			;REFERENCE ONLY FOR AUTO-LOAD VECTOR

	ORG	TIOTXT

.NLIST	BEX
.RADIX	10

DCDSRT::			;START OF INITIAL COMMAND DECODER

.ASCII	?!TECO.TEC V03.00![90,0X9[00,0X0[20,0X210U0[0?<4><24>?U0[00?<24>
.ASCII	?EDU0[0ED&4EDEUU0[0-1EUESU0[00ESETU0[032768#32#8#1,0ETQ1U00U1[10?
.ASCII	?,0X1Q0+1"E32768U0'32768"E:EITECO?<27>?"S]1Q0#32768U1[1JODONE?<27>
.ASCII	?''Z"EGZ0,0XZ'J::FS^ES?<27><27><27>?ZJ-:S^ES?<27>?"S.-Z"EFR?<27>
.ASCII	?''Z"EODONE?<27>?'Q0&32767U10,0X10,0X9J:FS^ES/NOI?<27><27>?"SO?
.ASCII	?/NOINI?<27>?'J:FS/NOI?<27><27>?"S!/NOINI!::FSN?<27><27>?"S:?
.ASCII	?:FSI?<27><27><27>?'::FS^ES?<27><27>?"S0A"AI ?<27>?''Q1#40?
.ASCII	?96U1'Q1&4096"EHX0HKEPEAEF:EGINI?<27>?"SG*J::FS$?<27><27>?"SHX?
.ASCII	?1HK:ER^EQ1?<27>?"SYHX1HKECG1?<124><1>?%Can't find initializat?
.ASCII	?ion file "?<1>?:G1?<1>?"?<13><10><1>?''0,0X1?<124>?0,0X1-1E?
.ASCII	?J-5"EEN*.*?<27>?:EN?<27>?"SG*JS[?<27>?R0KFS.?<27>?]?<27>?JS]?<27>
.ASCII	?0,.X1HK'':ER^EQ1TECO.INI?<27>?"SYHX9HKECG90,0X9''ER?<27>?EW?<27>
.ASCII	?Z"NZJ.U0G1I=?<27>?G0Q0JZX9ZK]1]0Q0ET]0Q0ES]0Q0EU]0Q0ED]0Q0?<24>
.ASCII	?]0Q0?<18>?]2HX0HKG9JS=?<27>?0,.-1X90,.KM0+0U90,0X0[20,0X210U0[0?
.ASCII	<4><24>?U0[00?<24>?EDU0[0ED&4EDEUU0[0-1EUESU0[00ESETU0[03276?
.ASCII	?8#32#8#1,0ET[1G9?<25>?X1?<25>?K0,0X9Q9U1J::FS^ES?<27><27><27>
.ASCII	?ZJ-:S^ES?<27>?"S.-Z"EFR?<27>?''Z"EOSCOPES?<27>?'?<124>?G0''J:FS?
.ASCII	?^ES/NOM?<27><27>?"SO/NOMEMORY?<27>?'J:FS/NOM?<27><27>?"S!/N?
.ASCII	?OMEMORY!::FSE?<27><27>?"S::FSM?<27><27>?"S::FSO?<27><27>
.ASCII	?"S::FSR?<27><27>?"S::FSY?<27><27><27>?''''::FS^ES?<27><27>
.ASCII	?"S0A"AI ?<27>?''Q1#4U1'J:FS^ES/NOC?<27><27>?"SO/NOCREATE?<27>
.ASCII	?'J:FS/NOC?<27><27>?"S!/NOCREATE!::FSR?<27><27>?"S::FSE?<27>
.ASCII	<27>?"S::FSA?<27><27>?"S::FST?<27><27>?"S::FSE?<27><27>
.ASCII	<27>?''''::FS^ES?<27><27>?"S0A"AI ?<27>?''Q1#256U1'-1EJ-4"NJ?
.ASCII	?::STE?<27>?"S<0A"AC>'::S^ES@?<27>?"S0KIMUNG ?<27>?'''J::FSMU?<27>
.ASCII	<27>?"S<0A"AD>'::FS^ES?<27><27><27>?-1EJ-5"EJ::FS"?<27><27>
.ASCII	?"S::FS^ES?<27><27><27>?''ZU0J:S/?<27>?"SR.-Q0"L.U0''J:S^ES?<27>
.ASCII	?"S.-Q0"L.U0''J<S,?<27>?;.U1Q1-1J-:S[?<27>?"S:S]?<27>?"S.-Q1"GF<?
.ASCII	?'''Q1-1J-:S<?<27>?"S:S>?<27>?"S.-Q1"GF<'''Q1-1J-:S(?<27>?"S:S)?<27>
.ASCII	?"S.-Q1"GF<'''Q1-1J.-1-Q0"LD.U0'0;>Q0J<-.;-1A-32"N-1A-9"N0;''-D>?
.ASCII	?0,.X0::S^ES?<27><27>?0,.K:Q0"E?<1><63>?How can I MUNG nothi?
.ASCII	?ng?<63><13><10><1><3><3>?'EI^EQ0?<27>?JODONE?<27>?'J:?
.ASCII	?FS^ES/GT?<27><27>?"SO/GTEDIT?<27>?'J:FS/GT?<27><27>?"S!/GTE?
.ASCII	?DIT!::FSE?<27><27>?"S::FSD?<27><27>?"S::FSI?<27><27>?"S::?
.ASCII	?FST?<27><27><27>?'''::FS^ES?<27><27>?"S0A"AI ?<27>?''Q1#6?
.ASCII	?4U1'J:FS^ES/VT?<27><27>?"SO/VTEDIT?<27>?'J:FS/VT?<27><27>?"?
.ASCII	?S!/VTEDIT!::FSE?<27><27>?"S::FSD?<27><27>?"S::FSI?<27><27>
.ASCII	?"S::FST?<27><27><27>?'''::FS:H?<27><27>?"S::FSO?<27><27>
.ASCII	?"S::FSL?<27><27>?"S::FSD?<27><27><27>?''Q1#32U1'::FS:S?<27>
.ASCII	<27>?"S::FSE?<27><27>?"S::FSE?<27><27>?"S::FSA?<27><27>
.ASCII	?"S::FSL?<27><27>?"S::FSL?<27><27><27>?''''Q1#16U1'::FS:H?<27>
.ASCII	<27>?"S::FSO?<27><27>?"S::FSL?<27><27>?"S::FSD?<27><27>
.ASCII	<27>?''Q1#32U1'::FS^ES?<27><27>?"S0A"AI ?<27>?''Q1#1U1'J:FS^?
.ASCII	?ES/SC?<27><27>?"SO/SCROLL?<27>?'J:FS/SC?<27><27>?"S!/SCROLL?
.ASCII	?!::FSR?<27><27>?"S::FSO?<27><27>?"S::FSL?<27><27>?"S::FSL?
.ASCII	<27><27><27>?'''::FS:?<27><27>?"S\U2FR?<27><124>?0U2':?
.ASCII	?:FS^ES?<27><27>?"S0A"AI ?<27>?''Q1#128U1'J::FSTE?<27><27>?"?
.ASCII	?S<0A"AD>'::FS^ES?<27><27><27>?J:FS^ES/IN?<27><27>?"SO/INS?
.ASCII	?PECT?<27>?'J:FS/IN?<27><27>?"S!/INSPECT!::FSS?<27><27>?"S::?
.ASCII	?FSP?<27><27>?"S::FSE?<27><27>?"S::FSC?<27><27>?"S::FST?<27>
.ASCII	<27><27>?''''::FS^ES?<27><27>?"S0A"AI ?<27>?''Q1#2U1'J:FS^?
.ASCII	?ES/FI?<27><27>?"SO/FIND?<27>?'J:FS/FI?<27><27>?"S!/FIND!::F?
.ASCII	?SN?<27><27>?"S::FSD?<27><27><27>?'::FS^ES?<27><27>?"S0A?
.ASCII	?"AI ?<27>?''Q1#8U1'J<FS^ES?<27><27>?;>Q1&4#Z"E:EGMEM?<27>?"SG?
.ASCII	?*J::FS$?<27><27>?"SF?<124>?'?<124>?Z"E:Q1"E-1EJ-5"EEN*.*?<27>
.ASCII	?:EN?<27>?"SG*JS[?<27>?R0KFS.?<27>?]?<27>?JS]?<27>?0,.X1HK''':Q9?
.ASCII	?"E0EJ+100\JDG1ITECF?<27>?ZJI.TMP?<27>?-1EJ-4"EI<60>/MODE:#3000?<27>
.ASCII	<124>?-1EJ-7"NI;1/-CR?<27>?''HX9HK'G9'HX0HKEPEAEF:ER^EQ0?<27>
.ASCII	?"SYL."N-1A-10"E-D''."N-1A-13"E-D''ZKHX0HKECG0'ER?<27>?EW?<27>?0?
.ASCII	?,0X0'J<FS^ES?<27><27>?;>J:FS/FI?<27><27>?"S::FSN?<27><27>
.ASCII	?"S::FSD?<27><27><27>?'Q1#8192#8U1'Z"NQ1#32768#16384U1''Q1&1?
.ASCII	?6384"NQ1&2"E?<1>?Edi?<1><124><1>?Inspec?<1>?'?<1>?ting file?
.ASCII	? "?<1>?HT?<1>?"?<13><10><1>?'Z"EQ1&2"EOSCOPES?<27>?'?<1><63>
.ASCII	?How can I inspect nothing?<63><13><10><1><3><3>?'Q1&2?
.ASCII	?"EJ:S=?<27>?"S0,.-1X00,.KZU0HX2HK:Q2"N:ER^EQ2?<27>?"UG2HX0HKONO?
.ASCII	?TFND?<27>?'':Q0"NEW^EQ0?<27>?'Q0"NQ1#2048U1'OREMEM?<27>?''HX0HK?
.ASCII	?Q1&2"E:EB^EQ0?<27>?"SQ1#2048U1OREMEM?<27>?'Q1&256"NQ1&32768"EON?
.ASCII	?OTFND?<27>?''?<1>?%Can't find file "?<1>?:G0?<1>?"?<13><10><1>
.ASCII	?Q1&32768"E?<1>?%Creating new file?<13><10><1>?OCREATE?<27>
.ASCII	<124><1>?%Ignoring TECO's memory?<13><10><1>?Q1#8192U10,?
.ASCII	?0X0OREMEM?<27>?'':ER^EQ0?<27>?"SQ1#2048U1OSCOPES?<27>?'!NOTFND!?
.ASCII	<1><63>?Can't find file "?<1>?:G0?<1>?"?<63><13><10><1>
.ASCII	<3><3>?'J::FSMA?<27><27>?"S<0A"AD>'::FS^ES?<27><27><27>
.ASCII	?J<FS^ES?<27><27>?;>Z"E?<1><63>?How can I MAKE nothing?<63>
.ASCII	<13><10><1><3><3>?'Z-4"EJ::SLOVE?<27>?"S?<1>?Not war?<63>
.ASCII	<13><10><1>?''HX0HK!CREATE!EW^EQ0?<27>?OREMEM?<27>?'?<1>?%?
.ASCII	?Unrecognized command "?<1>?HTHK?<1>?"?<13><10><1>?OSCOPES?<27>
.ASCII	?!REMEM!Q1&8192"NOWRITE?<27>?'Q1&(32768#4)"NOSCOPES?<27>?':Q0"EO?
.ASCII	?SCOPES?<27>?'!WRITE!:EGMEM?<27>?"SZJG*?<19>?C::FS$?<27><27>?"?
.ASCII	?UZK:EGMEM ^EQ0?<27><27><124>?ZX9ZKF?<124>?'?<124>?:Q9"E:Q1"?
.ASCII	?E-1EJ-5"EEN*.*?<27>?:EN?<27>?"SZJ.U0G*Q0JS[?<27>?RQ0,.KFS.?<27>
.ASCII	?]?<27>?Q0JS]?<27>?Q0,.X1Q0,ZK'''G1?<25>?X9?<25>?K:?<21>?9TECF?<27>
.ASCII	?0EJ+100\.-2,.:X9-3D:?<21>?9.TMP?<27>?-1EJ-4"E:?<21>?9<60>/MODE:?
.ASCII	?#3000?<27><124>?-1EJ-7"N:?<21>?9;1/-CR?<27>?'''EA:EW^EQ9?<27>
.ASCII	?"SG0?<25>?PW?<25>?K'EFEW?<27>?'!SCOPES!Q1&64"NET&1024"E?<1>?%Yo?
.ASCII	?u don't have a refresh scope?<13><10><1>?Q1#64-64U1''Q1&1"N?
.ASCII	?ET&512"E?<1>?%Your terminal is not an interactive scope?<13><10>
.ASCII	<1>?Q1#1-1U1?<124>?0,3:W?<27>?Q1&16"N-1,3:W?<27>?'0,5:W?<27>?Q?
.ASCII	?1&32"N-1,5:W?<27>?'''Q1&(64#1)"EOYANK?<27>?'Q1&64"N?<21>?9GTE?<27>
.ASCII	<124><21>?9VTE?<27>?':EG^EQ9?<27>?"S?<21>?1?<27>?G*?<25>?X9?<25>
.ASCII	?K?<124>?:?<21>?9DIT?<27>?:Q1"E-1EJ-5"EEN*.*?<27>?:EN?<27>?"SZJ.?
.ASCII	?U0G*Q0JS[?<27>?RQ0,.KFS.?<27>?]?<27>?Q0JS]?<27>?Q0,.X1Q0,ZK''''?
.ASCII	?:Q9"N:EI^EQ1^EQ9?<27>?"SQ1#2048-2048U1OYANK?<27>?'':EGLIB?<27>
.ASCII	?"SG*?<25>?X1?<25>?K?<124><21>?1?<27>?':Q1"E?<21>?1LB:[1,2]?<27>
.ASCII	?-1EJ-7"E?<21>?1SY:?<27>?'-1EJ-5"E?<21>?1SYS$LIBRARY:?<27>?'-1EJ?
.ASCII	?-4"E?<21>?1$?<27>?''Q1&64"N?<21>?9GTEDIT?<27><124><21>?9VTE?
.ASCII	?DIT?<27>?':Q1"N:EI^EQ1^EQ9?<27>?"SQ1#2048-2048U1OYANK?<27>?''?<1>
.ASCII	?%The ?<1>?:G9?<1>? macro is not available?<13><10><1>?!YANK?
.ASCII	?!Q1&2048"NY'JQ1&8"N?<1>?Finding position marker...?<13><10><1>
.ASCII	?EW?<27>?G*?<25>?X0?<25>?K-1?<24>?:Q0"N:FN?<126><126>?/\?<126>
.ASCII	<126><13><10><27><27>?U0?<124>?:F_?<126><126>?/\?<126>
.ASCII	<126><13><10><27><27>?U0'0?<24>?Q0"U?<1><63>?Positio?
.ASCII	?n marker not found?<63><13><10><1><3><3>?''Q1&128"NET?
.ASCII	?&512"E?<1>?%Your terminal is not an interactive scope?<13><10>
.ASCII	<1><124>?Q2"E2:W/4U2'Q2,7:W-Q2"N?<1>?%Your terminal doesn't ?
.ASCII	?support scrolling?<13><10><1>?'''!DONE!]1]0Q0ET]0Q0ES]0Q0EU?
.ASCII	?]0Q0ED]0Q0?<24>?]0Q0?<18>?]2]0]90,0XY?

DCDSIZ	==	.-DCDSRT	;SIZE OF INITIAL COMMAND DECODER

.RADIX	8
.LIST	BEX

.PSECT	MORBUF,RO,D,LCL,REL,OVR
	ORG	MORBUF

.PSECT	MORBFE,RO,D,LCL,REL,CON
	ORG	MORBFE

DCDEND::			;END OF THIS MODULE (DECODER + BUFFER SPACE)

.END