From bcc71999a76c39e3d5e2d18afc5e68253bfb3327 Mon Sep 17 00:00:00 2001 From: Paul Kimpel Date: Fri, 28 Sep 2012 12:00:12 +0000 Subject: [PATCH] Commit DCMCP transcription as of 2012-09-28. --- SYMBOL/DCMCP.esp_m | 71 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 71 insertions(+) diff --git a/SYMBOL/DCMCP.esp_m b/SYMBOL/DCMCP.esp_m index 775021c..b4e9ffe 100644 --- a/SYMBOL/DCMCP.esp_m +++ b/SYMBOL/DCMCP.esp_m @@ -12696,3 +12696,74 @@ PR: 16249000 RO: 16253000 CHANGEOPTION(KTR,TYPE=28); % RO=28,SO=29 16254000 GO TO EXIT; 16255000 +IT: 16256000 + IF NOT JAR[MIX,9].[4:1] THEN GO ERROR; 16257000 + JAR[MIX,9]~(*P(DUP)) & 1[5:47:1]; 16258000 + GO FORGET; 16259000 +WI: 16260000 + WHATINTRINSIC(BUFF-1); 16261000 + GO TO ERROR; 16262000 +RC: 16263000 + U ~ UNITIN(TINU,KTR); 16263100 + IF U > 15 THEN GO ERROR; 16263200 + IF (I~RDCTABLE[U].[8:6])=0 OR 16263300 + PRNTABLE[U].[15:15]=0 OR NOT PRNTABLE[U].[1:1] THEN GO ERROR; 16263350 + INDEPENDENTRUNNER(P(..REELCHANGER),U,204); 16263600 + GO FORGET; 16263700 +RXIT: 16343000 + REPLY[MIX] := TYPE&I[18:33:15]; 16343100 + IF I NEQ BUFF THEN 16343200 + BEGIN 16343300 +FORGET: 16343400 + STREAM(T:=BUFF-1); DS:= LIT "~"; 16343500 +ERROR: 16343600 + SPOUT((BUFF-1) INX (0&ZZSTA[9:9:9])); 16343700 + END; 16343800 +EXIT: 16343900 + IF(MIX>0)AND(MIX{MIXMAX)THEN TABCNT[MIX]~TABCNT[MIX]-1; %113-16343950 + END PROCEDURE KEYIN0; 16344000 +PROCEDURE KEYIN1(B,KTRX); VALUE B,KTRX; REAL B,KTRX; 16345000 + 16346000 + BEGIN 16347000 + INTEGER ZZSTA; 16348000 + REAL BUFF, KTR, TYPE, MIX, A, I, J, K; 16349000 + ARRAY BUFA = BUFF[*]; 16350000 + 16351000 + 16352000 + 16353000 + LABEL FORGET, ERROR, EXIT 16354000 + ,BO ,LI ,SS ,BS ,SC ,VQ ,RR ,CA ,DT ,WD 16355000 + ,TR ,WT ,WM ,CC ,OL ,PB ,RN ,LD ,RD ,ED 16356000 + ,SI ,LR ,OT ,IN ,FE ,OC ,SQ ,CS ,HS ,WK 16357000 + 16358000 + 16359000 + 16360000 + ; 16361000 + SWITCH S:= ERROR 16362000 + ,BO ,LI ,LI ,LI ,SS ,SS ,SS ,SS ,BS ,BS 16363000 + ,SC ,VQ ,RR ,CA ,CA ,DT ,WD ,TR ,WT ,WM 16364000 + ,CC ,OL ,PB ,RN ,LD ,RD ,RD ,ED ,SI ,LR 16365000 + ,OT ,IN ,FE ,OC ,SQ ,CS ,HS ,WK 16366000 + 16367000 + 16368000 + 16369000 + ; 16370000 + SUBROUTINE SPOIT; M[BUFF-2]:=B AND @7570000000000; 16371000 + 16372000 + BUFF :=KTRX.[15:15]; 16373000 + MIX :=KTRX.[ 9:6 ]; 16374000 + TYPE :=KTRX.[ 2:7 ]; 16375000 + KTR :=KTRX.[15:33]; 16376000 + ZZSTA :=0 & (M[BUFF-2])[9:9:9]; 16377000 + GO TO S[TYPE]; 16378000 +BO: 16379000 + $ SET OMIT = NOT(DCSPO AND DATACOM) 16380000 +LI: 16386000 + $ SET OMIT = NOT(DCSPO AND DATACOM) 16387000 + GO TO EXIT; 16390000 +SS: 16391000 + $ SET OMIT = NOT(DCSPO AND DATACOM) 16392000 + GO TO EXIT; 16394000 +BS: 16395000 + $ SET OMIT = NOT(DCSPO AND DATACOM) 16396000 + GO EXIT; 16406000