KolibriOS/kolibrios
13
14
Fork 12
Code Issues 113 Pull Requests 16 Actions Projects 1 Releases Wiki Activity

programs: Fix post-SVN tidying
Some checks failed
Build system / Check kernel codestyle (pull_request) Successful in 28s
Details
Build system / Build (pull_request) Failing after 56s
Details

Browse Source 
- Fix include paths after moving files up a level, from old SVN trunk subdirs. e.g. `include '../../macros.inc’`.
- Add SPDX placeholder.
- Translated a few RU comments to en_US.
- Note: Line endings standardised from `CRLF` > `LF`, so best to view diffs with whitespace changes hidden.
This commit is contained in:
Andrew
2025-05-19 14:32:32 +01:00
parent f9ef36d154
commit 177c6817e5
3 changed files with 2107 additions and 2097 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
programs/other/calc/calc.asm
View File

@@ -1,3 +1,6 @@
; SPDX-License-Identifier: NOASSERTION
;
;; Calculator for MenuetOS (c) Ville Turjanmaa
;;
;; Compile with FASM
@@ -31,9 +34,9 @@ use32
dd E_END ; esp
dd 0x0,0x0 ; I_Param , I_Icon
include '../../../macros.inc'
include '../../../gui_patterns.inc'
include '../../../KOSfuncs.inc'
include '../../macros.inc'
include '../../gui_patterns.inc'
include '../../KOSfuncs.inc'
hotkeys_count equ 26
asci: db 49, 50, 51, 52, 53, 54, 55, 56, 57, 48, 43, 61, 13, 45, 42, 47, 44, 46, 27, 182, \

156
programs/other/period/period.asm
View File

@@ -1,15 +1,17 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Periodic Table for KolibriOS
;;
;; <20><>ਮ<EFBFBD><E0A8AE><EFBFBD><EFBFBD>᪠<EFBFBD> <20><><EFBFBD>⥬<EFBFBD> 娬<><E5A8AC><EFBFBD>᪨<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⮢
;; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
;; navanax [violetlab+rambler.ru]
;; Johnny_B [john+kolibrios.org]
;;
;; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> ᮧ<><E1AEA7><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ᨢ<EFBFBD> 㪠<><E3AAA0>⥫<EFBFBD><E2A5AB> <20><> ASCIIZ-<2D><>ப<EFBFBD>
; SPDX-License-Identifier: NOASSERTION
;
include '..\..\..\macros.inc'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Periodic Table of Chemical Elements for KolibriOS
;; Dmitry Ivanovich Mendeleyev
;; Authors:
;; navanax [violetlab+rambler.ru]
;; Johnny_B [john+kolibrios.org]
;; macro for creating an array of pointers to ASCIIZ strings
include '..\..macros.inc'
macro strtbl name,[string]
{
common
@@ -24,16 +26,18 @@ macro strtbl name,[string]
use32
org 0x0
db 'MENUET01' ; <EFBFBD>⠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 8-<2D><><EFBFBD>⮢<EFBFBD><E2AEA2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20>ᯮ<EFBFBD><E1AFAE>塞<EFBFBD><EFA5AC> 䠩<><E4A0A9><EFBFBD> MeOS
dd 0x01 ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
dd START ; 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <20><>砫<EFBFBD> <20>ᯮ<EFBFBD><E1AFAE>塞<EFBFBD><EFA5AC><EFBFBD> <20><><EFBFBD><EFBFBD>
dd I_END ; ࠧ<EFBFBD><EFBFBD><EFBFBD> <20><>ࠧ<EFBFBD>
dd I_END+0x1000 ; <EFBFBD>ॡ㥬<EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20>ਫ<EFBFBD><E0A8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
dd I_END+0x1000 ; 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <20><>砫<EFBFBD> <20>⥪<EFBFBD>
dd 0x0 , 0x0 ; I_Param , I_Icon
db 'MENUET01' ; standard 8-byte header for MeOS executables
dd 0x01 ; header version
dd START ; pointer to the start of the executable code
dd I_END ; image size
dd I_END+0x1000 ; required memory for the application
dd I_END+0x1000 ; pointer to the start of the stack
dd 0x0 , 0x0 ; I_Param , I_Icon
;GLOBAL VARIABLES AND CONSTANTS
re_ID dd 0x00000001 ;to store the number of the currently displayed element
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
re_ID dd 0x00000001 ;<3B><><EFBFBD> <20>࠭<EFBFBD><E0A0AD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⥪<>饣<EFBFBD> <20>뢮<EFBFBD><EBA2AE><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
START:
@@ -46,8 +50,8 @@ START:
red:
call draw_window
still: ;<EFBFBD>᭮<EFBFBD><EFBFBD><EFBFBD><EFBFBD> 横<> <20>ணࠬ<E0AEA3><E0A0AC>
push 10 ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᮡ<><E1AEA1><EFBFBD><EFBFBD>
still: ;main program loop
push 10 ;waiting for event
pop eax
mcall
@@ -62,11 +66,11 @@ key:
jmp still
button:
mov al,17 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD>砥<EFBFBD> ID <20><><EFBFBD><EFBFBD>⮩ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
mov al,17 ;get ID of the pressed button
mcall
shr eax,8 ; eax=24-<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ButtonID
shr eax,8 ; eax=24-bit ButtonID
cmp eax,1 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>" [x]
cmp eax,1 ; whether they are pressed "close" [x]
jne noclose
or eax,-1
mcall
@@ -98,14 +102,14 @@ draw_window:
mcall
text_in_window:
mov eax,4 ;<EFBFBD>뢮<EFBFBD> ⥪<><E2A5AA><EFBFBD>
mov ecx,0x80000000 ;asciiz, <EFBFBD><EFBFBD><EFBFBD><EFBFBD> !!!
mov eax,4 ;text output
mov ecx,0x80000000 ; asciz, color !!!
mov ebx,40*65536+200 ;<EFBFBD><EFBFBD><EFBFBD>⠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
mov ebx,40*65536+200 ;lanthanide
mov edx,Lantanoid_text
mcall
add ebx,20 ;<EFBFBD><EFBFBD>⨭<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
add ebx,20 ;actinide
mov edx,Actinoid_text
mcall
@@ -153,7 +157,7 @@ text_in_window:
mov edx,Otkrytie
mcall
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; The conclusion of the numbers
mov ebx,30*65536+43
mov edx,Period_text ;1
mcall
@@ -168,11 +172,11 @@ text_in_window:
@@:
add ebx,20
add edx,4 ;<EFBFBD>.<2E>. <20><>ப<EFBFBD> = 4 <20><><EFBFBD>⠬(<28> <20><><EFBFBD><EFBFBD><EFBFBD>)
add edx,4 ;since the string = 4 bytes (with zero)
mcall
ret
Table: ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD> ⠡<><E2A0A1><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>祪
Table: ;Drawing a table in the form of buttons
table_row_1:
shl eax,1
mov ebx,50*65536+25
@@ -545,7 +549,7 @@ text_on_buttons:
dec edi
jns text_row9_loop
;; <mistifi(ator> - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뭮ᨬ <20> <20>⤥<EFBFBD><E2A4A5><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD>
;; <mistifi(ator> - In short, we put it in a separate procedure
call draw_text
;; </mistifi(ator>
@@ -556,20 +560,20 @@ text_on_buttons:
ret
draw_text:
; 1 output serial number [optmzd-mem]
; 2 output Russian name [optmzd-mem]
; 3 output English name [optmzd-spd]
; 4 output atomic mass [optmzd-spd]
; 5 output density [optmzd-mem]
; 6 output oxidation state [optmzd-mem]
; 7 output electronegativity [optmzd-spd]
; 8 output melting point [optmzd-mem]
; 9 output boiling point [optmzd-mem]
;10 output distribution in the Earth's crust [optmzd-mem]
;11 output names of discoverers [optmzd-mem]
; 1 <20>뢮<EFBFBD> <20><><EFBFBD>浪<EFBFBD><EFA4AA><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [optmzd-mem]
; 2 <20>뢮<EFBFBD> <20><><EFBFBD>᪮<EFBFBD><E1AAAE> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [optmzd-mem]
; 3 <20>뢮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>᪮<EFBFBD><E1AAAE> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [optmzd-spd]
; 4 <20>뢮<EFBFBD> <20>⮬<EFBFBD><E2AEAC><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> [optmzd-spd]
; 5 <20>뢮<EFBFBD> <20><><EFBFBD>⭮<EFBFBD><E2ADAE><EFBFBD> [optmzd-mem]
; 6 <20>뢮<EFBFBD> <20>⥯<EFBFBD><E2A5AF><EFBFBD> <20><><EFBFBD>᫥<EFBFBD><E1ABA5><EFBFBD> [optmzd-mem]
; 7 <20>뢮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ம<EFBFBD><E0AEAE><EFBFBD><EFBFBD><EFBFBD>⥫쭮<E2A5AB><ECADAE><EFBFBD> [optmzd-spd]
; 8 <20>뢮<EFBFBD> ⥬<><E2A5AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [optmzd-mem]
; 9 <20>뢮<EFBFBD> ⥬<><E2A5AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [optmzd-mem]
;10 <20>뢮<EFBFBD> <20><><EFBFBD><EFBFBD>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> [optmzd-mem]
;11 <20>뢮<EFBFBD> <20><><EFBFBD><EFBFBD> <20><>ࢮ<EFBFBD><E0A2AE><EFBFBD><EFBFBD>뢠⥫<EBA2A0><E2A5AB> [optmzd-mem]
;; <mistifi(ator> - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>᪠, <20><><EFBFBD>-<2D><> <20><> <20>뫮 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> ⥪<><E2A5AA><EFBFBD>
;; <mistifi(ator> - coloring, so that there is no overlap when drawing text
mov eax,13
mov ebx,320*65536+210
mov ecx,255*65536+(15*11)
@@ -578,100 +582,100 @@ draw_text:
;; </mistifi(ator>
push edi ; <20>⮡<EFBFBD> <20><>⨬<EFBFBD><E2A8AC><EFBFBD>஢<EFBFBD><E0AEA2><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ebx
push edi ;To optimize EBX changes
; 1 <EFBFBD>뢮<EFBFBD> <20><><EFBFBD>浪<EFBFBD><EFA4AA><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [optmzd-mem]
mov ebx,0x30000 ;<EFBFBD>뢮<EFBFBD><EFBFBD><EFBFBD><EFBFBD> 3 <20><><EFBFBD><EFBFBD><EFBFBD>
; 1 output serial number [optmzd-mem]
mov ebx,0x30000 ;Display 3 digits
mov ecx,[re_ID]
mov edx,320*65536+255
xor esi,esi
mov eax,47
mcall
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>! <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>𒑟 <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>! [ᤥ<><E1A4A5><EFBFBD><EFBFBD> <20><><EFBFBD> ᮪<><E1AEAA>饭<EFBFBD><E9A5AD> <20><><EFBFBD><EFBFBD> <20><> 20 <20><><EFBFBD><EFBFBD> :)))]
mov ecx,[sc.work_text] ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;ATTENTION! HERE IS THE COLOR OF ALL THE REST OF THE TEXT! [done to reduce the code by 20 bytes :)]
mov ecx,[sc.work_text] ; Color
or ecx,0x80000000 ; asciiz
mov eax,4 ; <EFBFBD><EFBFBD><EFBFBD> <20>㭪<EFBFBD><E3ADAA><EFBFBD> <20><><EFBFBD>뢠<EFBFBD><EBA2A0><EFBFBD><EFBFBD> 10 ࠧ! ⠪ <20><><EFBFBD> <20><><EFBFBD><EFBFBD>襬 1 ࠧ
mov eax,4 ; this function is called 10 times! so we will write 1 time
; 2 <EFBFBD>뢮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [optmzd-mem]
mov edi,Rus_nazv ;㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <20><>砫<EFBFBD> <20><><EFBFBD>ᨢ<EFBFBD> 㪠<><E3AAA0>⥫<EFBFBD><E2A5AB> ;)
mov ebx,320*65536+255 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>㤥<EFBFBD> <20><><EFBFBD><EFBFBD> add ebx,15
; 2 output Russian name [optmzd-mem]
mov edi,Rus_nazv ;pointer to the beginning of an array of signs ;)
mov ebx,320*65536+255 ;Coordinates are introduced here, then there will be only Add EBX, 15
call out_asciiz_item
xor ecx,ecx ;color
; 3 <EFBFBD>뢮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>᪮<EFBFBD><E1AAAE> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [optmzd-spd]
; 3 output English name [optmzd-spd]
mov edx,Elements
mov edi,[re_ID]
dec edi
mov esi,12 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD>
imul edi,esi ;<EFBFBD><EFBFBD><EFBFBD>⠥<EFBFBD> 㪠<><E3AAA0>⥫<EFBFBD> <20><> <20>㦭<EFBFBD><E3A6AD> <20><>ப<EFBFBD>
mov esi,12 ; The length of the line
imul edi,esi ; we consider the pointer to the desired line
add edx,edi
add ebx,15 ; 㢥<EFBFBD><EFBFBD>稢<EFBFBD><EFBFBD><EFBFBD> y-<2D><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> ⥪<><E2A5AA><EFBFBD> <20><> 15 <20><><EFBFBD>ᥫ<EFBFBD><E1A5AB>
add ebx,15 ; We increase the text of the text by 15 pixels
mcall
; 4 <EFBFBD>뢮<EFBFBD> <20>⮬<EFBFBD><E2AEAC><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> [optmzd-spd]
; 4 output atomic mass [optmzd-spd]
mov edx,MassNo
mov edi,[re_ID]
dec edi
mov esi,7 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD>
imul edi,esi ;<EFBFBD><EFBFBD><EFBFBD>⠥<EFBFBD> 㪠<><E3AAA0>⥫<EFBFBD> <20><> <20>㦭<EFBFBD><E3A6AD> <20><>ப<EFBFBD>
mov esi,7 ; The length of the line
imul edi,esi ; we consider the pointer to the desired line
add edx,edi
add ebx,15
mcall
mov ecx,0x80000000 ;asciiz, <EFBFBD><EFBFBD><EFBFBD><EFBFBD> !!!
; 5 <EFBFBD>뢮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [optmzd-mem]
mov ecx,0x80000000 ; asciz, color !!!
; 5 output density [optmzd-mem]
mov edi,Plotnost
call out_asciiz_item
; 6 <EFBFBD>뢮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [optmzd-mem]
; 6 output oxidation state [optmzd-mem]
mov edi,Step_ok
call out_asciiz_item
xor ecx,ecx ;color
; 7 <EFBFBD>뢮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [optmzd-spd]
; 7 output electronegativity [optmzd-spd]
mov edx,Electr
mov edi,[re_ID]
dec edi
mov esi,4 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD>
mov esi,4 ;Line length
shl edi,2
add edx,edi
add ebx,15
mcall
mov ecx,0x80000000 ;asciiz, <EFBFBD><EFBFBD><EFBFBD><EFBFBD> !!!
; 8 <EFBFBD>뢮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [optmzd-mem]
mov ecx,0x80000000 ;asciz, color !!!
; 8 output melting point [optmzd-mem]
mov edi,T_plavl
call out_asciiz_item
; 9 <EFBFBD>뢮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [optmzd-mem]
; 9 output boiling point [optmzd-mem]
mov edi,T_kipen
call out_asciiz_item
;10 <EFBFBD>뢮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> [optmzd-mem]
;10 output distribution in the Earth's crust [optmzd-mem]
mov edi,Rasprostr
call out_asciiz_item
;11 <EFBFBD>뢮<EFBFBD> <20><><EFBFBD><EFBFBD> <20><>ࢮ<EFBFBD><E0A2AE><EFBFBD><EFBFBD>뢠⥫<EBA2A0><E2A5AB> [optmzd-mem]
;11 output names of discoverers [optmzd-mem]
mov edi,First_Explore
call out_asciiz_item
pop edi ; <EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>࠭<EFBFBD><E0A0AD> <20> <20><>砫<EFBFBD> :)
pop edi ; He was preserved at the beginning :)
ret
;<EFBFBD>㭪<EFBFBD><EFBFBD><EFBFBD> <20>믮<EFBFBD><EBAFAE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⢨<EFBFBD> <20><><EFBFBD> <20>뢮<EFBFBD><EBA2AE> <20><><EFBFBD><EFBFBD>ଠ樨
; the function performs a set of actions to display information
out_asciiz_item:
mov edx,[re_ID]
dec edx
shl edx,2 ;㬭<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 4 (ࠧ<><E0A0A7><EFBFBD> 㪠<><E3AAA0>⥫<EFBFBD>)
mov edx,[edx+edi] ;㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <20><>ப<EFBFBD> <20> edx
shl edx,2 ;multiply by 4 (pointer size)
mov edx,[edx+edi] ;pointer to a string in edx
add ebx,15
mcall
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;
;; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ;;
;; Data area ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;---- begin ---- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> --------------------------

15
programs/other/rtfread/rtfread.asm
View File

@@ -1,3 +1,6 @@
; SPDX-License-Identifier: NOASSERTION
;
; RTF READER FOR KOLIBRI >= 0.7.7.0
; Written in pure assembler by Ivushkin Andrey aka Willow
; Menu_bar and scroll_bar from box_lib provided by dunkaist
@@ -57,15 +60,15 @@ AR_OFFSET equ 10
dd fname_buf ; <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><>ࠬ<EFBFBD><E0A0AC>஢
dd cur_dir_path ; <20><><EFBFBD><EFBFBD> <20> <20>ணࠬ<E0AEA3><E0A0AC>
include '../../../config.inc' ;for nightbuild
include '../../../macros.inc' ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><>ᥬ<EFBFBD><E1A5AC><EFBFBD><EFBFBD>騪<EFBFBD><E9A8AA>!
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../../KOSfuncs.inc'
include '../../../load_lib.mac'
include '../../config.inc' ;for nightbuild
include '../../macros.inc' ; Macros facilitate the life of assemblers!
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../KOSfuncs.inc'
include '../../load_lib.mac'
@use_library
; include '../../../debug.inc'
; include '../../debug.inc'
TOP=TOP+4
include 'bgifont.inc'