)²Â
 \ VIDITEL COMPROC 2.0 /  PRINT $12"********************************COMMAND PROCESSOR SOURCE        "( PRINT "                     (C) TH-SOFT********************************"2 PRINT '"ATTENTIE: DE PROGRAMMA'S"''"        vVDU1.1 EN vMN6.0"''"MOETEN EERST GE'RUN'D WORDEN!!"'"       ====="''< F *LOAD D:MNSYMP *LOAD C:vMNZ *DIRd n FOR N=0 TO 1x PASS N‚ Œ ASM-CONT–  .OPT :0101 0000ª.CDE #A000´.RAM #9000¾.XTRN #8200,#9000È Ò:VDU'DFLT=#70Ü:BAUD'DFLT=VDU'DFLT+1æ:GEN'DFLT=VDU'DFLT+2ð ú.DB#40BF :COM'ENTRY LDX@255":NEXT'COM, LDY#5E;DEY6:NEXT'CHAR@ INY;INXJ LDA COM'TAB,XT BMI COM'FND^ CMP(5),Yh BEQ NEXT'CHARr:COM'SKIP| INX;LDA COM'TAB,X† BPL COM'SKIP;INX LDA(5),Y;CMP@CH"."š BNE NEXT'COM;DEX¤ DEX;BNE NEXT'CHAR®:COM'FND¸ STY#3Â STA TMP1+1Ì LDA COM'TAB+1,XÖ STA TMP1à JMP(TMP1)ê:COM'TABô.AS \VIDITEL\þ.DB(VIDI'ENTRY).AS \VDU\.DB(VDU'ENTRY).DB(#C558)& 0:VIDI'ENTRY: LDA@('LOG'START)/256D STA TMP1+1;LDY@0N STY TMP1X:NXT'RAMb LDA(TMP1),Y;EOR@255l STA(TMP1),Y;CMP(TMP1),Yv BNE RAM'RDY;EOR@255€ STA(TMP1),Y;INC TMP1+1Š BPL NXT'RAM”:RAM'RDYž LDA TMP1+1;STA 'LOG'END¨ LDA@96;STA VDU'DFLT² LDA@1;STA BAUD'DFLT¼ LDA@0;STA GEN'DFLTÆ LDX@5Ð:INIT'NAMEÚ LDA DFLT'NAME,X;STA#140,Xä DEX;BPL INIT'NAMEî:NXT'PARø JSR#F291;LDX@5:NXT'TRY DEX BMI GO  CMP PAR'TAB,X* BNE NXT'TRY4 TXA;ASLA;TAX> LDA PAR'ADR,XH STA TMP1+1R LDA PAR'ADR+1,X\ STA TMP1f JSR PAR'EXp JMP NXT'PARz:PAR'EX„ JSR 'GET'CLNŽ JMP(TMP1)˜:GO¢ DEC#3;JSR#C4E4¬ LDA VDU'DFLT;STA VDU'STS¶ LDA GEN'DFLT;STA GEN'STSÀ LDX BAUD'DFLTÊ JSR SET'BAUD'RATEÔ JMP MAIN'ENTRYÞ:'GET'CLNè JSR#F291;CMP@CH":"ò BNE ERR;JMP#F291ü:PAR'ADR.DB(PAR'S).DB(PAR'D).DB(PAR'P)$.DB(PAR'B)..DB(PAR'N)8:PAR'TABB.AS \SDPBN\L:PAR'SV CMP@CH"A";BNE NASCII` LDA@64;STA VDU'DFLTj RTSt:NASCII~ CMP@CH"V";BNE ERRˆ LDA@96;STA VDU'DFLT’ RTSœ:PAR'D¦ CMP@CH"7";BNE NOT7° LDA GEN'DFLT;AND@191º STA GEN'DFLT;RTSÄ:NOT7Î CMP@CH"8";BNE ERRØ LDA GEN'DFLT;ORA@64â STA GEN'DFLT;RTSì:PAR'Pö LDX@4:NXT'PARG
 DEX BMI ERR CMP PTAB,X( BNE NXT'PARG2 LDA GEN'DFLT< AND@222F ORA PCOD,XP STA GEN'DFLTZ RTSd:PTABn.AS \MSEO\x:PCOD‚.BY 33,32,0,1Œ:ERR=PCOD+2–:PAR'B  LDX@2ª CMP@CH"3";BNE NOT300´:NXT300¾ JSR#F291;CMP@CH"0"È BNE ERR;DEX;BNE NXT300Ò LDY@0Ü:PAR'B'EXITæ STY BAUD'DFLT;RTSð:NOT300ú DEX:NXT12 CMP STR12,X;BNE ERR JSR#F291;DEX;BPL NXT12" CMP@CH"7";BNE NOT1275, JSR#F291;CMP@CH"5"6 BNE ERR;LDY@1@ BNE PAR'B'EXITJ:NOT1275T CMP@CH"0";BNE ERR^ JSR#F291;CMP@CH"0"h BNE ERR;LDY@2r BNE PAR'B'EXIT|:STR12†.AS \21\:PAR'Nš CMP@CH"""";BNE ERR¤ INY;JMP#CEBF®:VDU'ENTRY¸ JSR#F291;CMP@CH"V"Â BEQ GOV+2;CMP@CH"A"Ì BNE GOV;LDA@64Ö BNE GOV+4à:GOVê DEC#3ô LDA@96;STA VDU'DFLTþ JSR#C4E4;LDA VDU'DFLT STA VDU'STS JSR INIT'VDU JMP#C55B&:DFLT'NAME0.AS \aPAGE\,13::INTRO'VERVOLGD JSR TEXTN.ASC \Cursor aan/uit\,10,13X.ASC \2 Tekst zwart/wit\,10,13b.ASC \3 Start LOG\,10,13l.ASC \4 Stop LOG\,10,13v.ASC \5 Start AUTO-TX\,10,13€.ASC \6 Bewaar scherm\,10,13Š.ASC \7 Bewaar LOG\,10,13”.ASC \0 Ext. functie\,10,13ž NOP;RTS¨.END² ¼ NEXT NÆ *SAVE D:ROMSYM 8200 9000Ð *SAVE C:vROM 9000 9B00Ú ENDÿADÿE ÿlN JMP 'AUTO'TX'DATAX:NO'AUTO'TXb JSR KEY'SCANl BCC KEY'PRESSEDv LDA GEN'STS;AND@127€ STA GEN'STSŠ RTS”:KEY'PRESSEDž BIT pia'C¨ BVC REPT² BIT GEN'STS¼ BMI RTS