github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-05-02 22:23:07 +00:00
Code Issues Releases Wiki Activity

Commit DCMCP transcription as of 2012-09-28.

Browse Source
This commit is contained in:
Paul Kimpel
2012-09-28 12:00:12 +00:00
parent 0bea3d90ca
commit bcc71999a7
1 changed files with 71 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
SYMBOL/DCMCP.esp_m
View File

@@ -12696,3 +12696,74 @@ PR: 16249000
RO: 16253000 RO: 16253000
CHANGEOPTION(KTR,TYPE=28); % RO=28,SO=29 16254000 CHANGEOPTION(KTR,TYPE=28); % RO=28,SO=29 16254000
GO TO EXIT; 16255000 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