Понастальгируем ?

Dmitry67 · Post by **Dmitry67** » 09 Sep 2003 09:19

Вот отрыл свою прогармку...
Почитал. Уронил скупую мужскую слезу...

Публикуются отрывки

      decr += strlen(adder);
      strcat(obuf, adder);
      strcat(obuf, ebuf);
      strcpy(buf, obuf);
      }
    strcpy(obuf, buf);
    fprintf(OUT, "%s", obuf);
    // read
    if (! fgets(buf, BUFSIZE, IN)) return NULL;
    ....
    // () level
    if (! strcmp(A, "(")) lev++;
    if (! strcmp(A, ")")) lev--;

Hamster · Post by **Hamster** » 09 Sep 2003 09:25

Переменные ibuf и ybuf там тоже были?

OleZenit · Post by **OleZenit** » 09 Sep 2003 10:30

Судя по счетчикам скобок - это парсинг арифметического выражения ? Угадал ?

Dmitry67 · Post by **Dmitry67** » 09 Sep 2003 10:32

OleZenit wrote:Судя по счетчикам скобок - это парсинг арифметического выражения ? Угадал ?

Почти
Текста stored proc

Romeo · Post by **Romeo** » 16 Sep 2003 22:03

Хе хе хе
А вот это ?

...
MOV AX, DSEG
MOV DS, AX
MOV ES, AX

; print prompt
LEA DX, msg
MOV AH, 09h
INT 21h

; terminate
MOV AH, 4Ch
INT 21h
...

А может у кого-то есть кусочек на таком крутом языке Фокал? Помните, был такой интерпритатор, прошитый в БК-0010?
Вот уж душу согреете.

Helmsman · Post by **Helmsman** » 16 Sep 2003 22:53

Focala нету, но если хорошо порыться в старых запасах, то можно накопать немножко Assemblera с ЕС и даже автокода с БЭСМ-4...

Dmitry67 · Post by **Dmitry67** » 17 Sep 2003 07:58

Code: Select all


//FORT SYSIN.DD
//PARM LKED=XREF

AA · Post by AA » 17 Sep 2003 09:10

Так и не вспомнил, что это было в 1991г.

Code: Select all

q____    = 0
a____   = 0
b____   = 0
c____   = 0
d____   = 0
; ------------------------------
labgen3   MACRO   a
end&a:
   ENDM
;--------------------------------
labgen   MACRO   cond,a
local   mm1
   j&cond   mm1
   jmp   m0000&a
mm1:
   ENDM
;--------------------------------
labgen4   MACRO   a
m0000&a:
   ENDM
;-------------------------------
labgen2   MACRO   a
   jmp   end&a
m0000&a:
   ENDM
;-------------------------------
@ifne   MACRO
   genentry
   labgen      ne,%q____
   ENDM
;-------------------------------
@ifc   MACRO
   genentry
   labgen      c,%q____
   ENDM
;-------------------------------

@ife   MACRO
   genentry
   labgen      e,%q____
   ENDM
;-------------------------------

@ifa   MACRO
   genentry
   labgen      a,%q____
   ENDM
;-------------------------------
@ifb   MACRO
   genentry
   labgen      b,%q____
   ENDM
;-------------------------------


@ifl   MACRO
   genentry
   labgen      l,%q____
   ENDM
;-------------------------------
@ifg   MACRO
   genentry
   labgen      g,%q____
   ENDM
;-------------------------------

@else   MACRO   
   labgen2   %q____
   ENDM
;--------------------------------
@endif   MACRO
   labgen3 %q____
a____    =   a____ - 1
@fromstack   <q____>
   ENDM
;--------------------------------
@endif_   MACRO
   labgen4 %q____
a____    =   a____ - 1
@fromstack   <q____>
   ENDM
;--------------------------------
genentry   MACRO
c____   =   c____+1
@tostack   <q____>
q____   =   c____
a____   =   a____+1

   ENDM   
;--------------------------------
@out   macro   a,b,c
%out   a,b,c
endm
stack1____=0
stack2____=0
stack3____=0
stack4____=0
stack5____=0
stack6____=0
stack7____=0
stack8____=0
stack9____=0
stack10____=0
@tostack     MACRO   zzz
stack10____=stack9____
stack9____=stack8____
stack8____=stack7____
stack7____=stack6____
stack6____=stack5____
stack5____=stack4____
stack4____=stack3____
stack3____=stack2____
stack2____=stack1____
stack1____=zzz
   ENDM
@fromstack   MACRO   zzz
zzz=stack1____
stack1____=stack2____
stack2____=stack3____
stack3____=stack4____
stack4____=stack5____
stack5____=stack6____
stack6____=stack7____
stack7____=stack8____
stack8____=stack9____
stack9____=stack10____
   ENDM

awaken · Post by **awaken** » 23 Sep 2003 11:39

Dmitry67 wrote:
Code: Select all
//FORT SYSIN.DD
//PARM LKED=XREF

JCL ?

ну прям "настоящие программисты" собрались :mrgreen:

Romeo · Post by **Romeo** » 23 Sep 2003 22:22

а вот это?
...
sister(X,Y):-
female(X),
sibling(X,Y).

brother(X,Y):-
male(X),
sibling(X,Y).

parent(X,Y):-
father(X,Y).
...

Отмирает не развившись. Только в универах на нем и пишут.

DP · Post by DP » 23 Sep 2003 22:29

самым экзотическим языком на котором мне приходилось писать (конец 80-х) был GPSS (General Purpose Simulation System)

можно например посмотреть http://www.minutemansoftware.com/tutori ... manual.htm

Palych · Post by **Palych** » 23 Sep 2003 22:50

DP wrote:самым экзотическим языком на котором мне приходилось писать (конец 80-х) был GPSS (General Purpose Simulation System)

можно например посмотреть http://www.minutemansoftware.com/tutori ... manual.htm

My na nem laboratorki delali.
Modelirovali seti i multiprocessornye systemy...

Ot sebya dobavlyu:
YaMB (Yazyk Mashin Buhgalterskih)
Rabotal na sovershenno uragannyh PC - s vstroennoy klaviaturoj, monitorom i ...printerom!!!
Portable solution - mashiny mozhno bylo perenosit'. Vdvoem. Nedaleko. Dazhe soft mozhno bylo perenesti na druguyu mashinu, bez vstroennogo printera.