الدماغ ذات المستوى المنخفض

كتابة مترجم Brainfuck (مترجم) في TurboAssembler.

بادئ ذي بدء ، دعنا نبني المترجم بلغة عالية المستوى ، على سبيل المثال ، في باسكال.

للبدء ، اكتب برنامجًا سيخرج حرفًا باستخدام مجموع + كرمز ascii خاص بك.

لذا ، نحن بحاجة فقط إلى أوامر bf + و .

var data_mem: array[1..10] of integer; // data array command_mem: string; // command array i: integer; // index of command array j: integer; // index of data array begin j:=1; readln(command_mem); for i:=1 to length(command_mem) do begin // in the cycle we process the string if (command_mem[i]='+') then data_mem[j]:= data_mem[j]+1; if (command_mem[i]='.') then write(chr(data_mem[j])); end; end. 

bf-code +++++++++++++++++++++++++++++++++++++. ستصدر !
(رمز ascii للرمز هو 33 ).

يمكنك التأكد من صحة البرنامج عبر الرابط .

بعد ذلك ، استبدل المشغل بعامل goto وأضف أوامر bf - <> .

  LABEL prev,next; var data_mem: array[1..10] of integer; command_mem: string; i,j,k: integer; begin j:=1; i:=1; readln(command_mem); prev: if i>length(command_mem) then goto next; if (command_mem[i]='+') then data_mem[j]:= data_mem[j]+1; if (command_mem[i]='-') then data_mem[j]:= data_mem[j]-1; if (command_mem[i]='>') then j:=j+1; if (command_mem[i]='<') then j:=j-1; if (command_mem[i]='.') then write(chr(data_mem[j])); i:=i+1; goto prev; next: for k:=1 to 10 do begin write(data_mem[k]); write(' '); end; end. 

ideone.com

بعد ذلك ، دعنا نضيف [ و ]

إضافة متغير آخر i_stor للحلقة [] قوس.

إذا اجتاز العنصر الحالي بنجاح التحقق من [ ، فقم بتحميل i إلى i_stor (إذا كان العنصر الحالي أكبر من الصفر).

عن طريق معالجة قوس الإغلاق ] (إذا كانت قيمة data_mem لا تساوي الصفر ) ، قم بتحميل عنوان قوس الفتح [ في i من i_stor

  LABEL prev,next; var data_mem: array[1..10] of integer; command_mem: string; i,j,k: integer; i_stor: integer; begin j:=1; i:=1; readln(command_mem); prev: if i>length(command_mem) then goto next; if (command_mem[i]='+') then data_mem[j]:= data_mem[j]+1; if (command_mem[i]='-') then data_mem[j]:= data_mem[j]-1; if (command_mem[i]='>') then j:=j+1; if (command_mem[i]='<') then j:=j-1; if (command_mem[i]='.') then write(chr(data_mem[j])); if (command_mem[i]='[') then begin if data_mem[j]>0 then i_stor:=i; end; if (command_mem[i]=']') then begin if data_mem[j]>0 then begin i:=i_stor; end; end; i:=i+1; goto prev; next: for k:=1 to 10 do begin write(data_mem[k]); write(' '); end; end. 

bf-code +++++ [> + <-] ينقل الرقم 5 إلى الخلية المجاورة 0 5 0 0 0 0 0 0 0 0

ideone.com

"أهلاً بالعالم!" يبدو البرنامج مثل ideone.com

الانتقال إلى TASM

لتنظيم الحلقة ، ضع عدد مراحل الحلقة في سجل CX ، ثم ضع الملصق prev: (الذي سيتم فيه الانتقال) في نهاية المرحلة - عن طريق حلقة الأوامر

 mov CX, 28h ; count of the stages of the loop prev: ; label ; do stuff loop prev ; go back to label prev 

لنقم بإنشاء مصفوفة البيانات data_mem .
لنقم بإنشاء صفيف الأمر command_mem .
محتوى صفيف البيانات مع 1 للتوضيح كما تبدو العناصر.

في الحلقة ، قارن الرمز الحالي بالرمز + ، وإذا كانت الأحرف متساوية ، قم بزيادة قيمة الخلية الحالية

 text segment ; bf1.asm assume cs:text, ds:data, ss:stk begin: mov AX,data ; set the data segment mov DS,AX mov DL, command_mem ; load the 1st command in the DL mov CX, 0Ah ; 10 stages prev: cmp DL, '+' ; the cell contains + jne next ; no, go to the label next: mov BL, 00h ; load into BL the index of data_mem inc data_mem[BX] ; yes, we increase the value in the cell by 1 (inc means increment) next: inc i ; go to the next character in the array of commands mov BL, i mov DL, command_mem [BX] loop prev mov AX, 4c00h ; terminate the program int 21h text ends data segment command_mem DB '+', '+', '+', '$' data_mem DB 1,1,1,1,1,1,1,1,1,1,'$' i DB 0 ; command_mem index data ends stk segment stack db 100h dup (0) ; reserve 256 cells stk ends end begin 

يتم تنفيذ التجميع (الترجمة) بواسطة الأمر tasm.exe bf1.asm .

يتم إجراء الربط باستخدام الأمر tlink.exe bf1.obj .

عندما يتم التنفيذ ، هناك أوامر +++ تبدأ من العنوان 0130 ، ثم تأتي مجموعة البيانات data_mem ، ثم يأتي المتغير i يساوي 0Ah في TurboDebugger .



بعد ذلك ، أضف أوامر bf - <>.
استخدم الدالة 02h للمقاطعة int 21h لإخراج حرف واحد.
ضع رمز الحرف في تسجيل DL قبل استدعاء المقاطعة.

  mov AH,2 mov DL, character_code int 21h 

لنكتب البرنامج بالكامل

 text segment ; bf2.asm assume cs:text, ds:data, ss:stk begin: mov AX,data ; set the data segment mov DS,AX mov DL, command_mem mov CX, 0Ah prev: cmp DL, '+' jne next mov BL, j inc data_mem[BX] next: cmp DL, '-' jne next1 mov BL, j dec data_mem[BX] next1: cmp DL, '>' jne next2 inc j next2: cmp DL, '<' jne next3 dec j next3: cmp DL, '.' jne next4 mov AH,2 mov BL, j mov DL, data_mem[BX] int 21h next4: inc i mov BL, i mov DL, command_mem [BX] loop prev mov AX, 4c00h ; terminate the program int 21h text ends data segment command_mem DB '+', '>', '+', '+', '$' ; data_mem DB 0,0,0,0,0,0,0,0,0,0,'$' i DB 0 ; command_mem index j DB 0 ; data_mem index data ends stk segment stack db 100h dup (0) ; reserve 256 cells stk ends end begin 

تعمل الدورة على النحو التالي:

إذا كان العنصر الحالي لمذكرة الأوامر لا يساوي + فانتقل إلى التسمية التالية: (وإلا ، قم بإجراء + )
إذا كان العنصر الحالي لمذكرة الأوامر غير متساوٍ - فانتقل إلى التسمية next1:
إذا كان العنصر الحالي لمذكرة الأوامر غير متساوٍ > فانتقل إلى التسمية next2:
إذا كان العنصر الحالي لمذكرة الأوامر لا يساوي < ثم انتقل إلى التسمية next3:
إذا كان العنصر الحالي لمذكرة الأوامر لا يساوي . ثم القفز إلى الملصق next4:
بعد الملصق next4: قم بزيادة فهرس Command_mem وانتقل إلى الملصق prev: (بداية الدورة)

بعد ذلك ، أضف [ و ]
أضف المتغير i_stor
إذا نجح العنصر الحالي في اجتياز التحقق من [ ، تحقق من عنصر data_mem الحالي للصفر ، وإذا كان العنصر الحالي يساوي صفرًا ، فانتقل أكثر (على الملصق التالي) ؛ خلاف ذلك تحميل i إلى i_stor

 next4: cmp DL, '[' ; the cell contains [ jne next5 ; no, go to the label next5 mov BL, j mov DL, data_mem[BX] cmp DL, 00h ; yes, check current data_mem element for zero jz next5 ; if zero, jump further mov DL, i ; otherwise load i to i_stor mov i_stor, DL next5: 

عن طريق معالجة قوس الإغلاق ] (إذا كانت قيمة data_mem لا تساوي الصفر ) ، قم بتحميل عنوان قوس الفتح [ في i من i_stor

 next5: cmp DL, ']' ; the cell contains ] jne next6 ; no, go to the label next6 mov BL, j mov DL, data_arr[BX] cmp DL, 00h ; yes, check current data_mem element for zero jz next6 ; if zero, jump further mov DL, i_stor ; otherwise load i_stor to i mov i, DL next6: 

تحقق من bf-code ++++ [> + <-]

 text segment ; bf3.asm assume cs:text, ds:data, ss:stk begin: mov AX,data ; set the data segment mov DS,AX mov DL, command_mem mov CX, 50h prev: cmp DL, '+' jne next mov BL, j inc data_mem[BX] next: cmp DL, '-' jne next1 mov BL, j dec data_mem[BX] next1: cmp DL, '>' jne next2 inc j next2: cmp DL, '<' jne next3 dec j next3: cmp DL, '.' jne next4 mov AH,2 mov BL, j mov DL, data_mem[BX] int 21h next4: cmp DL, '[' ; the cell contains [ jne next5 ; no, go to the label next5 mov BL, j mov DL, data_mem[BX] cmp DL, 00 ; yes, check the current data_mem element for zero jz next5 ; if zero, jump further mov DL, i ; otherwise load i to i_stor mov i_stor, DL next5: cmp DL, ']' ; the cell contains ] jne next6 ; no, go to the label next6 mov BL, j mov DL, data_mem[BX] cmp DL, 00 ; yes, check current data_mem element for zero jz next6 ; if zero, jump further mov DL, i_stor ; otherwise load i_stor to i mov i, DL next6: inc i mov BL, i mov DL, command_mem[BX] loop prev mov AX, 4c00h ; terminate the program int 21h text ends data segment command_mem DB '+','+','+','+','[','>','+','<','-',']', '$' data_mem DB 0,0,0,0,0,0,0,0,0,0,'$' i DB 0 ; command_mem index j DB 0 ; data_mem index i_stor DB 0 data ends stk segment stack db 100h dup (0) ; reserve 256 cells stk ends end begin 

أضف وظيفة الإدخال 3fh المقاطعة 21 ساعة

 mov ah, 3fh ; input function mov cx, 100h ; the number of bytes you want to read from the input mov dx,OFFSET command_mem int 21h 

تنتهي الحلقة عندما يكون الحرف / الأمر الحالي هو '$'

 cmp DL, '$' je exit_loop 

تغيير الحلقة إلى jmp

 mov ah, 3fh ; input function mov cx, 100h ; the number of bytes you want to read from input mov dx,OFFSET command_mem int 21h mov DL, command_mem ; load the 1st command in the DL ;mov CX, 100h prev: cmp DL, '$' ; check the current command for '$' je exit_loop ; jump if the check has successfully passed 

قم بإضافة توجيه JUMPS .

يتيح توجيه JUMPS إمكانية القفز الشرطي التلقائي الممتد في TASM. إذا كان هدف القفزة المشروطة خارج النطاق ، فإن TASM تحول القفزة إلى زوج قفزة / JMP محلي. على سبيل المثال:

  JE EQUAL_PLACE becomes: JNE @@A JMP EQUAL_PLACE @@A: 

بعد كل شيء

 JUMPS ; bf4.asm text segment assume cs:text,ds:data, ss: stk begin: mov AX,data mov DS,AX ;;; mov ah, 3fh mov cx, 100h mov dx,OFFSET command_mem int 21h ;;; mov DL, command_mem ;mov CX, 100h prev: cmp DL, '$' je exit_loop cmp DL, '+' jne next mov BL, j inc data_mem[BX] next: cmp DL, '-' jne next1 mov BL, j dec data_mem[BX] next1: cmp DL, '>' jne next2 inc j next2: cmp DL, '<' jne next3 dec j next3: cmp DL, '.' jne next4 mov AH,2 mov BL, j mov DL, data_mem[BX] int 21h next4: cmp DL, '[' jne next5 mov BL, j mov DL, data_mem[BX] cmp DL, 00 jz next5 mov DL, i mov i_stor, DL next5: cmp DL, ']' jne next6 mov BL, j mov DL, data_mem[BX] cmp DL, 00 jz next6 mov DL, i_stor mov i, DL next6: inc i mov BL, i mov DL, command_mem[BX] jmp prev exit_loop: MOV AH,2 MOV DL,0Ah INT 21h mov AX, 4c00h int 21h text ends data segment command_mem DB 256h DUP('$') data_mem DB 0,0,0,0,0,0,0,0,0,0,'$' i DB 0,'$' j DB 0,'$' i_stor DB 0,'$' data ends stk segment para stack db 100h dup (0) stk ends end begin 

جيثب.كوم