МС1201.2018

[Hunta]

что не доделано ? и что значит "качество" ?

То и значит, что его код надо ещё вылизать по размеру и скорости работы

.ENABLE SUBSTITUTION
.PARSE <FILSPC> "[" $DR $DR
.PARSE $DR "]" $DR
.SETS $DR "['$DR']"
.GOSUB GEN MW
.EXIT
.GEN:
.SETS P1 COMMAN
MAC '$DR''P1'TAB;1,'$DR''P1'TAB;1=LB:[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,SY:'$DR''P1'TAB
MAC '$DR''P1'DRV;1,'$DR''P1'DRV;1=LB:[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,SY:'$DR''P1'DRV
.OPEN '$DR'TMP.BLD;1
.DATA '$DR''P1'DRV;1/-HD/-MM,'$DR''P1'DRV;1/-SP/CR,'$DR''P1'DRV;1='$DR''P1'DRV,'
$DR''P1'TAB
.DATA LB:[3,54]RSXVEC.STB/SS
.DATA LB:[1,1]EXELIB/LB
.DATA /
.DATA STACK=0
.DATA UNITS=0
.DATA PAR=DRVPAR:120000:20000
.DATA //
.CLOSE
TKB @'$DR'TMP.BLD;1
.RETURN