Abdulov Timur MisterTimur
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /* | |
| * To change this license header, choose License Headers in Project Properties. | |
| * To change this template file, choose Tools | Templates | |
| * and open the template in the editor. | |
| */ | |
| package atr; | |
| /* author Abdulov Timur Rifovich 2015 | |
| // Site https://sites.google.com/site/timpascallib/atr */ | |
| public class ATR { | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // ATR.cpp : Defines the entry point for the console application. | |
| // AbdUlov Timur Rifovich 2015 programming language ATR | |
| // https://sites.google.com/site/timpascallib/atr | |
| #include "stdafx.h" | |
| #include <iostream> | |
| #include <string> | |
| using namespace std; | |
| string LN; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // AbdUlov Timur Rifovich 2015 programming language ATR | |
| // https://sites.google.com/site/timpascallib/atr | |
| program ATR; | |
| uses | |
| sysUtils; | |
| const | |
| Znak='+-*/=(){}|&:<>';// Знаки обрабатываемые знаки | |
| Ti_Ope=10; // Commands Function Оператор | |
| Ti_Cif=20; // Numbers Цифра | |
| Ti_Zna=30; // Знак ОДинарный например = + - / , |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // ATR.CS : . | |
| // AbdUlov Timur Rifovich 2015 programming language ATR | |
| // https://sites.google.com/site/timpascallib/atr | |
| using System; | |
| using System.Collections.Generic; | |
| using System.Linq; | |
| using System.Text; | |
| using System.Threading.Tasks; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;{ AbdUlov Timur Rifovich 2015 programming language ATR ------------------------ | |
| ; https://sites.google.com/site/timpascallib/atr | |
| ; Еще не доделан чуток осталося дописать | |
| ; in the development not completed | |
| ;} | |
| org 100h ;{ Стартовый адрес програмы ------------------------------------------- | |
| ;call InitMem; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit UCCATR; | |
| {Абдулов Тимур Рифович 2015 | |
| Кроссплатформенный компилятор широкого спектра применения | |
| Abdulov Timur Rifovich 2015 | |
| Cross-platform compiler wide range of applications | |
| Emails | |
| wsd2000@mail.ru | |
| hostingurifa@gmail.com |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ; Abdulov Timur 2015 Text processor Free Soft Текстовый процессор | |
| ;========================================================================================================== | |
| ORG 100h; | |
| Call INIT ; Инициализация установка в ES адреса начала видеопамяти | |
| .CIK: call CLEAR ; Очистка окна возможно и его вырисовка в будущем | |
| call SCRE ; Отображение редактируемого текста в окошке | |
| Call CUSROS ; Вывод курсора | |
| Call KLAV ; ОБработка нажатых кнопоук | |
| Jmp .CIK ; Повтор предыдущих действий операции в цикле | |
| ;========================================================================================================== |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ORG 100h;{Абдулов Тимур Рифович 2015 год Email hostingurifa@gmail.com . | |
| ;INFO Кодировка файла должна быть CP 866 | |
| ;Site https://sites.google.com/site/timpascallib/ | |
| ;Youtube https://www.youtube.com/channel/UCUhQNuTAQ933YBTy6awC0Pw | |
| ;Google+ https://plus.google.com/u/0/+%D0%A2%D0%B8%D0%BC%D1%83%D1%80%D0%90%D0%B1%D0%B4%D1%83%D0%BB%D0%BE%D0%B2/posts | |
| ;GIST https://gist.github.com/MisterTimur/37ca889200bc327a9566 | |
| ;------------------------------------------------------------------------------} | |
| use16; | |
| ;{ ОСНОВНОЕ ТЕЛО ПРОГРАММЫ . | |
| ;---------------------; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;---{ ЗАГРУЗЧИК | |
| ;---{ Описание | |
| ; В блоке ЗАГРУЗОЧНЫЙ_СЕКТОР устанавлвиаеться видеорежим в котром будет запущена программа | |
| ; Через ES достапна вся память [ES:0B8000h] Адрес видеопамяти | |
| ; DS и программа сама начинаеться с адреса 0 в блоке ЗАЩИЩЕННЫЙ_РЕЖИМ | |
| ; Все что ниже уже пишеться в 32 битном режиме сама программа | |
| ; Сама програмам распологаеться кажися по адресу 0x8000 | |
| ; Количество загружаемых секторов не забывем указывать в разделе ЗАГРУЗОЧНЫЙ_СЕКТОР | |
| ; НЕ азбываем конце программы ставить секцию ЗАВЕРШАЮЩАЯ ЧАСТЬ ПРОГРАММЫ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit UTiGr;{Абдулов Тимур Рифович 2015 год Email hostingurifa@gmail.com . | |
| ;INFO | |
| ;Site https://sites.google.com/site/timpascallib/ | |
| ;Youtube https://www.youtube.com/watch?v=N_PZVx062bo | |
| ;Google+ https://plus.google.com/u/0/+%D0%A2%D0%B8%D0%BC%D1%83%D1%80%D0%90%D0%B1%D0%B4%D1%83%D0%BB%D0%BE%D0%B2/posts | |
| ;GIST https://gist.github.com/MisterTimur/30a217abcefc812be744 | |
| ;------------------------------------------------------------------------------} | |
| {$mode objfpc}{$H+} | |
| interface | |
| uses Windows,Classes, SysUtils,Forms,Graphics; |
OlderNewer