*Математика и программирование

[balky_03]

Скачиваешь архив, распаковываешь всё содержимое, запускаешь основной файл //meh.com.

mnashe!
Прошу прощения за свою бестолковость. Для меня указанная на картинке ссылка: закрыта!

The topic or board you are looking for appears to be either missing or off limits to you.

Прошу, пожалуйста, перенесите ссылку на архив  Multi-Edit в эту тему: *Математика и программирование.

Вот тут она выложена: 6 уровней диалога с Богом (Reply #1on: July 4, 2014, 00:39)
"6 уровней диалога с Богом", страница 3

[mnashe]

The topic or board you are looking for appears to be either missing or off limits to you.

Sorry Надо присоединиться к группе Религия (потом можно отписаться, тоже через свой профиль)'

[balky_03]

Sorry Надо присоединиться к группе Религия (потом можно отписаться, тоже через свой профиль)'

mnashe!
Огромное спасибо за внимание и радушие!

Вступил в  группу "Религия". Затем скачал оба файла, буду разбираться:
1)  MULTEDIT.RAR (989.02 kB - downloaded 4 times.)
2)  screenshot.png (22.22 kB, 1132x617 - viewed 7 times.)

Два этапа:

[balky_03]

буду разбираться

mnashe!
Спасибо, получилось очень легко и без заморочек. Программа практически всё сама делает, кроме MULTEDIT ничего не потребовалось. Почти напрямую в Windows. Поразительно!! 

Всего 38568 комбинаций, смотрите картинку ниже от Notepad++
Правда, у меня слабый процессор, поэтому он считал 6 мин. 34 секунды.

mnashe, последний раз уточняю для себя: это действительно язык Ассемблер?

Ниже картинки о последовательности моих действий:

Перед компиляцией


Общее время, затраченное на подсчёт


Файл OUTPUT.TXT (829 Kb)

[mnashe]

mnashe, последний раз уточняю для себя: это действительно язык Ассемблер?

Нет, конечно!
Это скриптовый язык Multi-Edit'а. Он в чём-то похож на C, в чём-то на Pascal, в чём-то ещё на что-то... на Аду, что ли...
Сильно упрощённый при этом, даже функций и процедур нет, только подпрограммы.
На ассемблере написано ядро Multi-Edit'а.
Вот как выглядит фрагмент ассемблерного ядра Multi-Edit'а (это раздел, отвечающий за пересчёт дат, времени и т.п.)

Код Выделить Развернуть

IDEAL
MODEL TINY
INCLUDE 'globals.inc'
SEGMENT CODE
PROC convert_seconds_to_ticks
mov EDX,001234DDh
mul EDX
shrd EAX,EDX,16
adc EAX,0
ret
ENDP
PROC convert_ticks_to_seconds
xor EDX,EDX
add EAX,6
shld EDX,EAX,16
shl EAX,16
mov ECX,001234DDh
div ECX
ret
ENDP
PROC reset_kbtime
xor AX,AX
mov [word ptr autosave_forbidden],AX
call get_system_timer
mov [last_checkey_time],AX
ret
ENDP
PROC get_system_timer
loadseg ES,0
mov EAX,[ES:046Ch]
ret
ENDP
PROC get_session_time
loadseg ES,0,CX
mov EAX,[ES:046Ch]
mov CL,[session_day_counter]
jcxz @@end
@@loop: add EAX,1573041
loop @@loop
@@end: ret
ENDP
PROC get_alarm_delay
call get_session_time
mov ECX,EAX
mov EAX,[alarm_time]
sub EAX,ECX
jnb @@
xor EAX,EAX
@@: ret
ENDP
PROC set_alarm_time
sub EAX,[last_system_time]
jnb set_alarm_delay
add eax,1573041
LABEL set_alarm_delay near
push EAX
call get_session_time
pop ECX
add EAX,ECX
mov [alarm_time],EAX
ret
ENDP
PROC time
mov AH,2Ch
int 21h
LABEL make_time_string near
pop BX
sub SP,9
mov DI,SP
loadseg ES,SS
cld
mov AL,8
stosb
mov AL,CH
call dstr2
mov AL,':'
stosb
mov AL,CL
call dstr2
mov AL,':'
stosb
mov AL,DH
call dstr2
jmp BX
ENDP
PROC tstr
sub EAX,360000
jnb tstr
add EAX,360000
split AX,DX
mov BX,60
div BX
div BL
mov DH,DL
mov CL,AH
mov CH,AL
jmp make_time_string
ENDP
PROC tsec
cld
mov BH,[ES:DI]
lea SI,[DI+1]
movzx ECX,AX
xor EDI,EDI
@@read: sub BL,1
adc BL,0
xor AH,AH
@@loop: dec BH
jl @@clr
segES
lodsb
sub AL,'0'
cmp AL,9
ja @@mul
aad
mov AH,AL
jmp @@loop
@@clr: xor BH,BH
@@mul: movzx EAX,AH
imul EDI,ECX
add EDI,EAX
or BX,BX
jnz @@read
mov EAX,EDI
ret
ENDP
PROC gdstr
mov CX,AX
cld
mov AL,10
stosb
mov AL,CL
call dstr2
mov AL,'/'
stosb
mov AL,CH
call dstr2
mov AL,'/'
stosb
shr EAX,16
@@year: sub AX,10000
jnb @@year
add AX,10000
mov DL,100
div DL
mov DL,AH
call dstr2
mov AL,DL
dstr2: aam
xchg AH,AL
or AX,'00'
stosw
ret
ENDP
PROC hdstr
LOCAL month:byte:1,day:byte:1,dest_ptr:dword
InitStack
push AX
push ES DI
shr EAX,16 ;year
call gstr
mov AL,' '
call st_lappend_char ;add char before
movzx BX,[month] ;month
shl BX,2
c_6D1C: dec BX
mov AL,[CS:BX+hebrew_months+1]
cmp AL,' '
jz c_6D1C
call st_lappend_char
test BL,3
jnz c_6D1C
movzx AX,[day] ;day
call gstr
call st_space_ladd_str
les DI,[dest_ptr]
push ES
mov CL,0Fh
call str_pop_sr
RestStack
ret
ENDP
PROC gdrec
LOCAL year,month,day
InitStack
movzx BX,[ES:DI]
lea SI,[DI+1]
mov AX,[word ptr greg_day]
xor DX,DX
xchg DL,AH
push [greg_year] DX AX
cld
xor DI,DI
@@read: xor DX,DX
xor CX,CX
@@loop: dec BX
js @@next
segES
lodsb
sub AL,'0'
jb @@next
cmp AL,9
ja @@next
xor AH,AH
MakeOfs DX,AX,DX,10
inc CX
jmp @@loop
@@next: jcxz @@inci
mov [day+DI],DX
@@inci: add DI,2
cmp DI,6
jb @@read
mov EAX,[dword ptr month]
mov AH,AL
mov AL,[byte ptr day]
@@end: RestStack
ret
ENDP
PROC hdrec
LOCAL month:byte:1,day:byte:1,mchar:byte:4
InitStack
movzx CX,[ES:DI]
lea SI,[DI+1]
cld
mov AL,[heb_day]
call @@readgemat
push AX
mov AX,'  '
push AX AX
xor DI,DI
jcxz @@rmcmp
@@rmon: segES
lodsb
cmp AL,'.'
jz @@rmset
cmp AL,':'
jz @@rmset
cmp AL,'א'
jb @@rmchk
cmp AL,'ת'
ja @@rmchk
@@rmset:cmp DI,4
jnb @@rmnxt
mov [mchar+DI],AL
@@rmnxt:inc DI
loop @@rmon
inc CX
@@rmchk:dec CX
@@rmcmp:mov AL,[heb_month]
mov AH,15
mov DI,offset(hebrew_months+57)
mov EDX,[dword ptr mchar]
@@scmon:dec AH
jz @@setm
sub DI,4
cmp EDX,[CS:DI]
jne @@scmon
mov AL,AH
@@setm: mov [month],AL
mov AX,[heb_year]
call @@readgemat
cmp AX,1000
jnb @@res
add AX,5000
@@res: shl EAX,16
mov AX,[word ptr day]
RestStack
ret
PROC @@readgemat
jcxz @@end
mov DI,AX
xor DX,DX
mov BX,offset(hfigvals)-11
@@loop: segES
lodsb
xor AH,AH
cmp AL,"'"
jz @@nextf
cmp AL,'"'
jz @@nextf
sub AL,'א'-1
jbe @@setn
cmp AL,10
jbe @@addf
cmp AL,27
ja @@setn
segCS
xlat
shl AX,1
@@addf: add DX,AX
@@nextf:loop @@loop
inc CX
@@setn: dec CX
mov AX,DI
or DX,DX
jz @@end
mov AX,DX
@@end: ret
ENDP
ENDP
PROC read_date
mov AH,2Ah
int 21h
mov [weekday],AL
regptr EAX,DX,CX
mov [dword ptr greg_day],EAX
loadadr DS,date
call gdstr
mov EAX,[dword ptr greg_day]
call day_on_gdate
call hdate_on_day
mov [dword ptr heb_day],EAX
loadadr DS,hdate
jmp hdstr
ENDP
PROC year_first_day
dec AX
cmp AX,7000
jbe @@div1
xor AX,AX
@@div1: xor DX,DX
mov CX,19
div CX
push DX ;מספר שנה בתוך מחזור
mov BX,AX
mov AX,309
mul DX
add AX,3
mov CL,25
div CL
xor AH,AH
xchg BX,AX ;((yearcount\19)*309+3)/25+
mov DX,235 ; (yearcount/19)*235=
mul DX ; מספר חדשים שעברו בין מולד תשרי
add AX,BX ;בשנת תהו למולד תשרי בשנה הנשאלת
adc DX,0
combine AX,DX
imul ESI,EAX,29 ;מספר ימים שלמים בחדש
mov EDX,13753 ;מספר חלקים מעל 92 יום בחדש
mul EDX
add EAX,5604 ;זמן המולד בשנת התהו
mov ECX,25920 ;מספר חלקים ביום
div ECX ;מספר ימים שלמים נקבצים מהחלקים
add EAX,ESI
inc EAX
mov DI,DX ;מספר חלקים עודפים על ימים שלמים
pop CX ;מספר שנה בתוך מחזור
push EAX ;עכשו חישוב דחיות
mov EBX,7
xor EDX,EDX
div EBX ;יום בשבוע
cmp DI,19440
mov BL,1
jnb @@cweek ;מולד זקן
cmp DL,1 ;'יום ב
jne @@thurs
cmp DI,16789
mov BL,0
jb @@cweek
mov EBX,24949h ;10 0100 1001 0100 1001 – שנים שלאחר מעוברות
jmp @@c19
@@thurs:cmp DL,2 ;'יום ג
mov BL,0
jne @@cweek
cmp DI,9924
jb @@cweek
mov EBX,2DB5Bh ;10 1101 1011 0101 1011 – שנים פשוטות
@@c19: shr EBX,CL
@@cweek:and EBX,1
mov CL,DL
add CL,BL
mov CH,10101001b
shr CH,CL
shr CH,1
pop EAX
adc EAX,EBX
ret
ENDP
PROC day_on_gdate
split AX,DI
movzx EBX,AX
xor CX,CX
xchg CL,BH ;month
sub CL,2 ;month
ja set_y
add CL,12 ;month
dec DI ;year
set_y: rol DI,1 ;CF:=sign
ror DI,1
adc DI,3760 ;year
mov AL,30
mul CL ;month
add BX,AX
mov AX,CX ;month
shl AX,1
add AX,CX
dec AX
mov CL,5
div CL ;(month*3-1)/5
xor AH,AH
add BX,AX
mov AX,DI
shr AX,2
add BX,AX
lea AX,[DI+240]
xor DX,DX
mov CX,100
div CX
sub BX,AX
shr AX,2
add BX,AX
mov AX,365
mul DI
combine AX,DX
add EAX,EBX
sub EAX,218
ret
ENDP
PROC gdate_on_day
add EAX,87847
mov ECX,146097
xor EDX,EDX
div ECX
shl AX,2
mov CX,AX
mov AX,DX
shr EDX,16
mov BX,36524;=100 years
cmp DX,BX
jnb @@end
div BX
cmp AL,4 ;29.02.1600 must be 300+100 instead of 400+0
je c_6B9F
mov BX,DX
inc AX
c_6B9F: dec AX
add AX,CX ;century
mov DX,100
mul DX
sub AX,4000
xchg BX,AX ;days from century beg.
xor DX,DX
mov CX,1461 ;=4 years
div CX ;div CX
shl AX,2
add BX,AX ;years
mov AX,DX ;days from 4-year beg.
xor DX,DX
mov CX,365
div CX ;div CX
cmp AL,4 ;29.02 must be 3+1 instead of 4+0
je c_6BC8
mov CX,DX
inc AX
c_6BC8: dec AX
add BX,AX ;years
mov DI,11010110101b ;JanDecNovOctSepAugJulJunMayAprMar
xor DX,DX
c_6BD0: inc DX ;month
xor AX,AX
shr DI,1 ;month_lenth:=bit+30
adc AL,30
sub CX,AX
jnb c_6BD0
add AX,CX
inc AX
mov AH,DL
sub AH,10 ;month
ja c_6BEB
add AH,12 ;month
dec BX ;year
c_6BEB: rol BX,1
ror BX,1
sbb BX,-1
combine AX,BX
@@end: ret
ENDP
PROC day_on_hdate
LOCAL monlen:byte:10
cmp AH,13 ;.אדר
jb @@beg
mov AH,6 ; אדר
je @@beg
add AL,30 ;:אדר
@@beg: push EAX
shr EAX,16 ;year
call year_first_day
pop BX CX
dec BH
jz @@addd
add BL,30
dec BH
jz @@addd
push BX EAX
mov AX,CX
inc AX
call year_first_day
mov CX,AX
pop EAX BX
sub CX,AX
InitStack
movlh SI,29,30
push SI SI SI SI
cmp CX,355
jbe @@idyr
mov [monlen+4],59 ;אדר
sub CX,30
@@idyr: cmp CX,354
je @@m2m3
movlh SI,29,29
jb @@m2m3
movlh SI,30,30
@@m2m3: push SI
xor DI,DI
xor CX,CX
xchg CL,BH ;month
@@addm: add BL,[monlen+DI]
adc BH,0
inc DI
loop @@addm
RestStack
@@addd: dec BX
movzx EBX,BX
add EAX,EBX
@@end: ret
ENDP
PROC hdate_on_day
LOCAL year,rosday,monlen:byte:12
InitStack 4
movlh BX,30,29
REPT 6
  push BX
ENDM
push AX
push EAX
add EAX,548 ;1.5 years
shl EAX,7
split AX,DX
mov CX,46751
div CX ;div CX
mov [year],AX
call year_first_day
mov [rosday],AX
pop ECX
sub ECX,EAX
jb @@prev
mov AX,[year]
inc AX
call year_first_day
jmp @@days
@@prev: mov AX,[year]
dec AX
mov [year],AX
call year_first_day
xchg AX,[rosday]
@@days: sub AX,[rosday]
cmp AX,355
jbe @@mlen
mov [monlen+5],59 ;אדר
sub AX,30
@@mlen: cmp AX,354
movlh BX,29,29
jb @@slen
mov BH,30
je @@slen
mov BL,30
@@slen: mov [word ptr monlen+1],BX
mov AX,[year]
shl EAX,16
pop AX ;curday
sub AX,[rosday]
xor DI,DI
xor BH,BH
@@loop: mov BL,[monlen+DI]
inc DI
sub AX,BX
jge @@loop
add AX,BX
inc AX
mov BX,DI
mov AH,BL
cmp AH,6
jne @@end
cmp [monlen+5],59 ;אדר
jne @@end
mov AH,13
cmp AL,30
jbe @@end
mov AH,14
sub AL,30
@@end: RestStack
ret
ENDP

even
ENDS CODE
END

А вот сердце виртуальной машины:

[Bhudh]

Всего 38568 комбинаций, смотрите картинку ниже от Notepad++
Правда, у меня слабый процессор, поэтому он считал 6 мин. 34 секунды.

А Вы уверены, что это из-за процессора?
Мне кажется, это из-за создания файла OUTPUT.TXT, в который записывается каждый результат.
Если открыть консоль браузера и пустить какой-нибудь цикл с выводом в консоль, витков эдак на 100k... Тоже исполнения долго ждать придётся.
Попробуйте вместо файла вывода сделать в скрипте простую переменную-счётчик результатов.

[mnashe]

А Вы уверены, что это из-за процессора?
Мне кажется, это из-за создания файла OUTPUT.TXT, в который записывается каждый результат.

Нет. Windows кэширует вывод, так что он существенной роли не играет. У меня, во всяком случае.
Без вывода была примерно та же скорость.

[Bhudh]

Это ещё от размера кэша зависит.
Сорок тыщ чисел не баран чихнул.
Я, кстати, вывод в консоль всегда стараюсь кэшировать, в строковой переменной или в массиве.

[mnashe]

Bhudh, кэширование же есть в программе.
Посмотри, я выделил всю работу с файлом:

$MACRO charlie from all trans;
  def_int(a,i,value,used,checked_cnt,match_cnt,links_num,neighbours,buf,buf_size,buf_ofs,handle);
  def_str(s,links_str);
  neighbours:=succ(str_adr('|1|2|3|4|0|6|7|8|9|5|4|0|1|2|3|9|5|6|7|8|7|9|6|8|5|4|2|0|3|1'));
  if_not buf:=allocate_memory(buf_size:=44000) then exit; end;
  links_num:=checked_cnt:=match_cnt:=handle:=0;
build_values:
  links_str:=recode(str(links_num,19,%'0',3),'012','|0|10|20');
  value:=0; i:=19; used:=1;
  repeat
    a:=1 shl double(value:=memb[neighbours+links_str[20-i]+value]);
    if used & double(a) then
      a:=1;
power3:
      --i;
      if i then a*=3; goto power3; end;
      links_num+=a;
      goto next_links;
    end;
    used+=a;
    --i;
  until_not i;
  ++checked_cnt;
  if_not pred(value)\3 then
    ++match_cnt;
    value:=0; i:=19; s:='0';
    repeat
      s+=char(%'0'+(value:=memb[neighbours+links_str[20-i]+value]));
      --i;
    until_not i;
    make_message(tstr(seconds(macro_timer))+str(links_num,11)+' '+str(match_cnt)+' of '+str(checked_cnt)+' match. |0|10'+s);
    if buf_ofs>=buf_size then call flush; end;
    mems[buf+buf_ofs]:=s+'|13|10'; buf_ofs+=22;
  end;
inc_links:
  ++links_num;
next_links:
  if links_num>=1162261467 then
    write('Finished.',71,2,%back,%stat);
    goto close_file;
  end;
  if_not key_pressed then goto build_values; end;
  read_key;
  if_not key=<Esc> then goto build_values; end;
  write('Aborted.',71,2,%back,%stat);
close_file:
  if handle then
    call flush;
    r_bx:=handle; r_ah:=$3E; intr($21);
  end;
  exit;

flush:
  if_not handle then
    r_edx:=succ(str_adr('OUTPUT.TXT|0'));
    r_ds:=word1(r_edx);
    r_cx:=0;
    r_ah:=$3C;
    intr($21);
    if r_flags&1 then make_message('Cannot create output file.'); exit; end;
    handle:=r_ax; buf_ofs:=0;
  end;
  r_dx:=buf; r_ds:=word1(buf); r_cx:=buf_ofs;
  r_bx:=handle; r_ah:=$40; intr($21);
  if r_flags&1 or (r_ax < buf_ofs) then
    make_message('Write error.');
    goto close_file;
  end;
  buf_ofs:=0;
  ret;
END_MACRO;

[Bhudh]

Посыпаю главу пеплом, скрипт не смотрел (на телефоне проблематично).
Тогда интересно, что же там за процессор.

[mnashe]

Покажу ещё один ассемблер. Для 8-битных микроконтроллеров фирмы Microchip.
Это программа, по которой работает мой палаточный фонарик на микроконтроллере PIC12F683 стоимостью меньше полудоллара:

Код Выделить Развернуть

;     ┌───v───┐
;4V───┤Vdd Gnd├───0V
;btn1>┤GP5 GP0├>ledBY
;boos<┤GP4 GP1├>ledGR
;btn0>┤GP3 GP2├>PWM
;     └───────┘
;  PIC12F683
;

    list    p=12F683
    radix   dec
    include "p12f683.inc"

    errorlevel -302 ; Don't complain about BANK 1 Registers

    __CONFIG _FCMEN_ON & _BOREN_OFF & _IESO_OFF & _MCLRE_OFF & _CP_OFF & _CPD_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT

pinBY equ 0
pinGR equ 1
pinPWM equ 2
pinBoost equ 4
pinBtn0 equ 3
pinBtn1 equ 5

mode equ 0x20
brightness equ 0x21
mode_brightness equ 0x22
mode_timer equ 0x23
switchtimeL equ 0x24
switchtimeH equ 0x25
buttons_state equ 0x26
last_buttons_state equ 0x27
start_debounce_state equ 0x28
start_debounce_time equ 0x29
key_event_timeL equ 0x2A
key_event_timeH equ 0x2B
last_key_repeat_time equ 0x2C
last_blink_state equ 0x2D
settings_timeout equ 0x2E
keys equ 0x30
key_stat equ 0x31
btn_pr     equ 0
btn_step    equ 1
btns_long   equ 2
btn1_first  equ 3
btns_pr     equ 4
before_repeating equ 0
now_repeating equ 1
after_repeating  equ 2

AL    equ 0x34
AH    equ 0x35
BL    equ 0x36
BH    equ 0x37

time0 equ 0x70
time1 equ 0x71
time2 equ 0x72

;****************************************************************
;Beginning of program
;****************************************************************
org 0
goto SetUp

org 4
btfsc INTCON,T0IF
goto t0int
retfie

t0int bcf INTCON,T0IF
incfsz time0,f ;counts 4.096 ms periods (244 Hz)
retfie
incfsz time1,f ;counts seconds
retfie
incfsz time2,f ;counts 4:28 min periods
retfie
retfie

exptime movf mode_timer,w
andlw 7
addwf PCL,f
dt 23,31,41,54,72,97,129,172

set_timer
clrf time0
clrf time1
clrf time2
clrf switchtimeL
clrf switchtimeH
add_timer
clrf AH
movf mode_timer,w
call exptime
btfsc mode_timer,3
goto mul5d2
addlw 3
movwf AL
rrf AL,f
clrc
rrf AL,f
goto mul60
mul5d2 movwf AL
clrc
rlf AL,f
rlf AH,f
addlw 1
movwf BL
rrf BL,w
addwf AL,f
skpnc
incf AH,f
mul60 movf mode,f
bnz addtime
swapf AH,w ;AH<=1, so swap is *16
movwf BH
swapf AL,w
andlw 0x0F ;high nibble becomes low nibble of *16H
iorwf BH
swapf AL,w
andlw 0xF0 ;low nibble becomes high nibble of *16L
movwf BL
movf AL,w
subwf BL,w
movwf AL
skpc
incf AH
movf AH,w
subwf BH,w
movwf AH
clrc
rlf AL,f
rlf AH,f
rlf AL,f
rlf AH,f
addtime movf AL,w
addwf switchtimeL,f
skpnc
incf AH,f
movf AH,w
addwf switchtimeH,f
return

initPWM clrf WDTCON ;disable WDT
clrf T2CON ;turn off Timer2; no prescaler, no postscaler: 977Hz PWM
clrf PIR1
clrf TMR2
clrf CCPR1L
bcf GPIO,pinPWM ;turn off the LED
movlw 0x0C ;turn on PWM
movwf CCP1CON
banksel PR2
movlw 0x3F ;8 bit PWM
movwf PR2
banksel T2CON
bsf T2CON,TMR2ON
return

increase_brightness
swapf brightness,w
movwf AL
rrf AL,w
andlw 7
addlw 1
addwf brightness,w
skpnc
movlw 0xFF
goto set_brightness
decrease_brightness
swapf brightness,w
movwf AL
rrf AL,w
andlw 7
addlw 1
subwf brightness,w
skpc
clrw
set_brightness
movwf brightness
movf brightness,w
bz turnoff
incf brightness,w
bz turnon
usepwm btfss CCP1CON,CCP1M3
call initPWM
rrf brightness,w
movwf AL
rrf AL,w
andlw 0x3F
movwf CCPR1L
swapf brightness,w
andlw 0x30
iorlw 0x0C
movwf CCP1CON
return

turnoff clrf T2CON ;turn off Timer2
clrf CCP1CON ;turn off CCP
bcf GPIO,pinPWM
return

turnon clrf T2CON ;turn off Timer2
clrf CCP1CON ;turn off CCP
bsf GPIO,pinPWM
return

;8 111 B  x1 11
;7 110 GB 11 11
;6 101 G  1x 10
;5 100 GY 10 10
;4 011 Y  x0 00
;3 010 YR 00 00
;2 001 R  0x 01
;1 000 RB 01 01
;0 --- -- xx --

display_mode
movlw 6
btfsc mode,0
movlw 4
btfsc mode,1
movlw 8
display_digit
addlw -1
bc swtris
bsf STATUS,RP0  ;Bank 1
bsf TRISIO,pinBY
bsf TRISIO,pinGR
bcf STATUS,RP0  ;Bank 0
return
swtris movwf AL
movlw 0 ;0,2,4,6: TRISIO=00
btfss AL,0
goto settris
movlw 1<<pinBY ;1,5: TRISIO=01
btfsc AL,1
movlw 1<<pinGR ;3,7: TRISIO=10
settris bsf STATUS,RP0  ;Bank 1
bcf TRISIO,pinBY
bcf TRISIO,pinGR
iorwf TRISIO,f
bcf STATUS,RP0  ;Bank 0
rrf AL,w
btfss AL,2
xorlw 1
andlw 3
bcf GPIO,pinBY
bcf GPIO,pinGR
iorwf GPIO,f
return

read_mode_settings
movlw mode_brightness
movwf FSR
clrc
rlf mode,w
bsf STATUS,RP0  ;Bank 1
movwf EEADR
EEread bsf EECON1,0    ;starts EEPROM read operation – result in EEDAT
movf EEDAT,w
movwf INDF
incf FSR,f
incf EEADR,f
bsf EECON1,0    ;starts EEPROM read operation – result in EEDAT
movf EEDAT,w
movwf INDF
bcf STATUS,RP0  ;Bank 0
goto display_mode

write_mode_settings
movlw mode_brightness
movwf FSR
clrc
rlf mode,w
bsf STATUS,RP0  ;Bank 1
movwf EEADR
EEwrite movf INDF,w
movwf EEDAT
bsf EECON1,WREN ;enable write
movlw 55h     ;unlock codes
movwf EECON2
movlw 0AAH
movwf EECON2
bsf EECON1,WR   ;write begins
bcf STATUS,RP0  ;select bank0
btfss PIR1,EEIF   ;wait for write to complete
goto $-1
bcf PIR1,EEIF
bsf STATUS,RP0  ;select bank1
incf FSR,f
incf EEADR,f
btfsc EEADR,0
goto EEwrite
bcf EECON1,WREN ;disable other writes
bcf STATUS,RP0  ;select bank0
return

delay4m addwf time0,w
movwf AL
waitz movf time0,w
xorwf AL,w
bnz waitz
return

readkey clrf keys
clrf buttons_state
btfsc GPIO,pinBtn0
bsf buttons_state,0
btfsc GPIO,pinBtn1
bsf buttons_state,1
movf buttons_state,w
xorwf start_debounce_state,w
bnz restart_debounce
movf start_debounce_time,w
subwf time0,w
addlw -10 ;debounce delay = 41 ms
skpc
return ;too litle time in new state
movf buttons_state,w
xorwf last_buttons_state,w
bnz btnchg
;if no physical event, then check for virtual
btfsc key_stat,before_repeating
goto check_first_repeat
btfsc key_stat,now_repeating
goto check_next_repeat
return ;neither physical nor virtual

check_first_repeat
movf key_event_timeL,w
subwf time0,w
addlw -195 ;0.8s
skpc
return
bcf key_stat,before_repeating
bsf key_stat,now_repeating
goto save_repeat_time
check_next_repeat
movf last_key_repeat_time,w
subwf time0,w
addlw -24    ;98ms
skpc
return
save_repeat_time
movf time0,w
movwf last_key_repeat_time
btfsc key_stat,btn1_first
bsf keys,btn1_first
bsf keys,btn_step
return

btnchg movf buttons_state,w
bz to00 ;isn't new state "none pressed"?
xorlw 3
bz to11 ;isn't new state "both pressed"?
;neither of them – new state is "only one pressed"
movf last_buttons_state,w
bz from00 ;wasn't previous state "none pressed"?
;no – it was "both pressed"
from11 btfss key_stat,after_repeating
goto endbtn
;if autorepeat still hasn't started;
;then ignore the 1st release
;and wait for complete release to report "shift-press ended"
;else report shift-press on every release as usual autorepeat
bsf keys,btn_step
comf key_stat,w
andlw 1<<btn1_first
iorwf keys,f
goto endbtn

;sequence start:
;transition from "none pressed" to "one pressed"
;just save the initial information
from00 clrf key_stat
btfsc buttons_state,1
bsf key_stat,btn1_first
bsf key_stat,before_repeating
bcf INTCON,GIE
movf time1,w
movwf key_event_timeH
movf time0,w
movwf key_event_timeL
bsf INTCON,GIE
endbtn movf buttons_state,w
movwf last_buttons_state
return

to00 btfsc key_stat,btns_pr
goto endbl
btfsc key_stat,now_repeating
goto endseq
btfsc key_stat,after_repeating
goto endseq
;neither shift-press nor repeating
;so report normal "single button press & release"
bsf keys,btn_pr
goto retkey

;shift-press sequence end (both released)
endbl bcf INTCON,GIE
movf key_event_timeL,w
subwf time0,w
skpc
incf key_event_timeH,f
movf key_event_timeH,w
subwf time1,w
bsf INTCON,GIE
skpz
bsf keys,btns_long ;long shift-press (>1 second)
bsf keys,btns_pr ;report "shift-press ended"
retkey btfsc key_stat,btn1_first
bsf keys,btn1_first
endseq clrf key_stat
goto endbtn

;shift-press
to11 btfss key_stat,now_repeating
goto double
;if the second button was pressed late (autorepeat already on)
;then end autorepeat and make sequential shift-presses work on release
bcf key_stat,now_repeating
bsf key_stat,after_repeating
goto endbtn
;else mark that both are pressed and wait until both released
double bcf key_stat,before_repeating
bsf key_stat,btns_pr
goto endbtn

restart_debounce
xorwf start_debounce_state,f
movf time0,w
movwf start_debounce_time
return

SetUp clrf time0
clrf time1
clrf time2
clrf last_buttons_state
clrf start_debounce_state
clrf mode ; 0 for m2, 1 for m1, 2 for m3
incf mode,f
clrf settings

movlw 0x07
movwf CMCON0 ;turn off Comparator
clrf INTCON

bsf STATUS,RP0  ;Bank 1
clrf ANSEL ;no analog inputs
movlw 0x67 ;4MHz HFINTOSC
movwf OSCCON
movlw b'00101011' ;CCP1=GP2->output; GP4->output; all other inputs
movwf TRISIO
movlw (1<<pinBtn0)|(1<<pinBtn1) ;enable interrupt by buttons change
movwf IOC
movlw b'11000011' ;pull-ups disabled; TMR0<-CLKOUT; TMR0:16
movwf OPTION_REG
bcf STATUS,RP0  ;Bank 0
bsf INTCON,T0IE
bsf INTCON,GIE
bcf GPIO,pinBoost

init_cur_mode
call read_mode_settings
clrf brightness
softst call increase_brightness
movlw 5
call delay4m
movf mode_brightness,w
subwf brightness,w
bnc softst ;brightness<mode_brightness
bz setimer
setmode movf mode_brightness,w
call set_brightness
setimer call set_timer

main_loop
call readkey
movf keys,f
bnz pkeys

check_timer
bcf INTCON,GIE
movf time2,w
movwf AH
movf time1,w
movwf AL
bsf INTCON,GIE
movf switchtimeH,w
subwf AH,w     ;time-switchtime
bnc main_loop   ;<0 => not reached
bnz switch_mode ;>0 => reached
movf switchtimeL,w
subwf AL,w
bnc main_loop
goto switch_mode

pkeys btfsc keys,btns_long
goto settings
btfsc keys,btns_pr
goto switch_to_boost
btfsc keys,btn_pr
goto buttons_norm
btfsc keys,btn_step
goto buttons_step
goto main_loop

buttons_norm
btfsc keys,btn1_first
goto pbtn1
pbtn0 movf mode,f
bnz cb0m1
incf mode,f     ;switch from m2 to m1
goto reinit_mode
cb0m1 btfss mode,0
goto switch_mode ;switch from m3 to m2
call add_timer   ;increase time in m1
movlw 5
call display_digit
goto main_loop

pbtn1 btfss mode,0
goto switch_mode ;turn off from m2 or switch to m2 from m3
goto reinit_main_mode;from m1

buttons_step
btfsc keys,btn1_first
goto sbtn1
call decrease_brightness
goto main_loop
sbtn1 call increase_brightness
goto main_loop

settings
btfsc keys,btn1_first
goto set_timer_start
set_brightness_start
call display_mode
movf mode_brightness,w
call set_brightness
movf time1,w
addlw 60
movwf settings_timeout
set_brightness_loop
movf time1,w
xorwf settings_timeout,w
bz save_settings
call readkey
movf keys,f
bz set_brightness_loop
set_brightness_keys
btfsc keys,btns_pr
goto save_settings
btfsc keys,btn1_first
goto incbrtn
call decrease_brightness
goto updbrtn
incbrtn call increase_brightness
updbrtn movf brightness,w
movwf mode_brightness
goto set_brightness_loop

set_timer_start
movlw 6
call set_brightness
movlw 32 ;animate digit from 1 to 8
movwf AH
animate decf AH,w
andlw 7
addlw 1
call display_digit
movlw 12
call delay4m
decfsz AH,f
goto animate
movf time1,w
addlw 60
movwf settings_timeout
clrf last_blink_state
set_timer_loop
btfss mode_timer,3
goto blinkon
rlf time0,w
addlw 51
movlw 0
skpnc ;0 for first 2/3 of each second
movlw 1 ;1 for last 1/3
xorwf last_blink_state,w
bz set_timer_timeout
xorwf last_blink_state,f
movlw 0
skpnz ;display 0 for last 1/3
blinkon incf mode_timer,w ;display current mode for first 2/3
call display_digit
set_timer_timeout
movf time1,w
xorwf settings_timeout,w
bz save_settings
call readkey
movf keys,f
bz set_timer_loop
set_timer_keys
btfsc keys,btns_pr
goto save_settings
decf mode_timer,w
btfsc keys,btn1_first
addlw 2
andlw 0x0F
movwf mode_timer
goto set_timer_loop

save_settings
call write_mode_settings
goto init_cur_mode

switch_to_boost
movlw 0
call set_brightness
bsf GPIO,pinBoost
movlw 2
movwf mode
call read_mode_settings
goto setmode

switch_mode
btfss mode,1
goto prepair_to_sleep
movlw 0
call set_brightness
bcf GPIO,pinBoost
reinit_main_mode
clrf mode
reinit_mode
call read_mode_settings
goto setmode
prepair_to_sleep
call decrease_brightness
movlw 5
call delay4m
movf brightness,f
bnz prepair_to_sleep
movlw 0
call display_digit
bcf INTCON,GIE
bcf GPIO,pinPWM
bcf INTCON,GPIF
bsf INTCON,GPIE
sleep
clrf mode
btfsc GPIO,pinBtn0
incf mode,f
bcf INTCON,GPIE
bcf INTCON,GPIF
bsf INTCON,GIE
wait_key_released
movlw 2
call delay4m
btfsc GPIO,pinBtn0
goto wait_key_released
btfsc GPIO,pinBtn1
goto wait_key_released
goto init_cur_mode

org 0x2100
de 80,8,40,8,160,5
    END

[Тайльнемер]

Это ещё от размера кэша зависит.
Сорок тыщ чисел не баран чихнул.

Это же где-то полмегабайта всего. Чтобы 6 минут писать полмегабайта на диск...

[Bhudh]

Файл OUTPUT.TXT (829 Kb)

Согласен, немного. Но каждое из чисел как-то там сложно вычисляется?
И шёл ли вывод только в файл?

[balky_03]

Покажу ещё один ассемблер. Для 8-битных микроконтроллеров фирмы Microchip.
Это программа, по которой работает мой палаточный фонарик на микроконтроллере PIC12F683 стоимостью меньше полудоллара:

Код Выделить Развернуть

;     ┌───v───┐
;4V───┤Vdd Gnd├───0V
;btn1>┤GP5 GP0├>ledBY
;boos<┤GP4 GP1├>ledGR
;btn0>┤GP3 GP2├>PWM
;     └───────┘
;  PIC12F683
;

    list    p=12F683
    radix   dec
    include "p12f683.inc"

    errorlevel -302 ; Don't complain about BANK 1 Registers

    __CONFIG _FCMEN_ON & _BOREN_OFF & _IESO_OFF & _MCLRE_OFF & _CP_OFF & _CPD_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT

pinBY equ 0
pinGR equ 1
pinPWM equ 2
pinBoost equ 4
pinBtn0 equ 3
pinBtn1 equ 5

mode equ 0x20
brightness equ 0x21
mode_brightness equ 0x22
mode_timer equ 0x23
switchtimeL equ 0x24
switchtimeH equ 0x25
buttons_state equ 0x26
last_buttons_state equ 0x27
start_debounce_state equ 0x28
start_debounce_time equ 0x29
key_event_timeL equ 0x2A
key_event_timeH equ 0x2B
last_key_repeat_time equ 0x2C
last_blink_state equ 0x2D
settings_timeout equ 0x2E
keys equ 0x30
key_stat equ 0x31
btn_pr     equ 0
btn_step    equ 1
btns_long   equ 2
btn1_first  equ 3
btns_pr     equ 4
before_repeating equ 0
now_repeating equ 1
after_repeating  equ 2

AL    equ 0x34
AH    equ 0x35
BL    equ 0x36
BH    equ 0x37

time0 equ 0x70
time1 equ 0x71
time2 equ 0x72

;****************************************************************
;Beginning of program
;****************************************************************
org 0
goto SetUp

org 4
btfsc INTCON,T0IF
goto t0int
retfie

t0int bcf INTCON,T0IF
incfsz time0,f ;counts 4.096 ms periods (244 Hz)
retfie
incfsz time1,f ;counts seconds
retfie
incfsz time2,f ;counts 4:28 min periods
retfie
retfie

exptime movf mode_timer,w
andlw 7
addwf PCL,f
dt 23,31,41,54,72,97,129,172

set_timer
clrf time0
clrf time1
clrf time2
clrf switchtimeL
clrf switchtimeH
add_timer
clrf AH
movf mode_timer,w
call exptime
btfsc mode_timer,3
goto mul5d2
addlw 3
movwf AL
rrf AL,f
clrc
rrf AL,f
goto mul60
mul5d2 movwf AL
clrc
rlf AL,f
rlf AH,f
addlw 1
movwf BL
rrf BL,w
addwf AL,f
skpnc
incf AH,f
mul60 movf mode,f
bnz addtime
swapf AH,w ;AH<=1, so swap is *16
movwf BH
swapf AL,w
andlw 0x0F ;high nibble becomes low nibble of *16H
iorwf BH
swapf AL,w
andlw 0xF0 ;low nibble becomes high nibble of *16L
movwf BL
movf AL,w
subwf BL,w
movwf AL
skpc
incf AH
movf AH,w
subwf BH,w
movwf AH
clrc
rlf AL,f
rlf AH,f
rlf AL,f
rlf AH,f
addtime movf AL,w
addwf switchtimeL,f
skpnc
incf AH,f
movf AH,w
addwf switchtimeH,f
return

initPWM clrf WDTCON ;disable WDT
clrf T2CON ;turn off Timer2; no prescaler, no postscaler: 977Hz PWM
clrf PIR1
clrf TMR2
clrf CCPR1L
bcf GPIO,pinPWM ;turn off the LED
movlw 0x0C ;turn on PWM
movwf CCP1CON
banksel PR2
movlw 0x3F ;8 bit PWM
movwf PR2
banksel T2CON
bsf T2CON,TMR2ON
return

increase_brightness
swapf brightness,w
movwf AL
rrf AL,w
andlw 7
addlw 1
addwf brightness,w
skpnc
movlw 0xFF
goto set_brightness
decrease_brightness
swapf brightness,w
movwf AL
rrf AL,w
andlw 7
addlw 1
subwf brightness,w
skpc
clrw
set_brightness
movwf brightness
movf brightness,w
bz turnoff
incf brightness,w
bz turnon
usepwm btfss CCP1CON,CCP1M3
call initPWM
rrf brightness,w
movwf AL
rrf AL,w
andlw 0x3F
movwf CCPR1L
swapf brightness,w
andlw 0x30
iorlw 0x0C
movwf CCP1CON
return

turnoff clrf T2CON ;turn off Timer2
clrf CCP1CON ;turn off CCP
bcf GPIO,pinPWM
return

turnon clrf T2CON ;turn off Timer2
clrf CCP1CON ;turn off CCP
bsf GPIO,pinPWM
return

;8 111 B  x1 11
;7 110 GB 11 11
;6 101 G  1x 10
;5 100 GY 10 10
;4 011 Y  x0 00
;3 010 YR 00 00
;2 001 R  0x 01
;1 000 RB 01 01
;0 --- -- xx --

display_mode
movlw 6
btfsc mode,0
movlw 4
btfsc mode,1
movlw 8
display_digit
addlw -1
bc swtris
bsf STATUS,RP0  ;Bank 1
bsf TRISIO,pinBY
bsf TRISIO,pinGR
bcf STATUS,RP0  ;Bank 0
return
swtris movwf AL
movlw 0 ;0,2,4,6: TRISIO=00
btfss AL,0
goto settris
movlw 1<<pinBY ;1,5: TRISIO=01
btfsc AL,1
movlw 1<<pinGR ;3,7: TRISIO=10
settris bsf STATUS,RP0  ;Bank 1
bcf TRISIO,pinBY
bcf TRISIO,pinGR
iorwf TRISIO,f
bcf STATUS,RP0  ;Bank 0
rrf AL,w
btfss AL,2
xorlw 1
andlw 3
bcf GPIO,pinBY
bcf GPIO,pinGR
iorwf GPIO,f
return

read_mode_settings
movlw mode_brightness
movwf FSR
clrc
rlf mode,w
bsf STATUS,RP0  ;Bank 1
movwf EEADR
EEread bsf EECON1,0    ;starts EEPROM read operation – result in EEDAT
movf EEDAT,w
movwf INDF
incf FSR,f
incf EEADR,f
bsf EECON1,0    ;starts EEPROM read operation – result in EEDAT
movf EEDAT,w
movwf INDF
bcf STATUS,RP0  ;Bank 0
goto display_mode

write_mode_settings
movlw mode_brightness
movwf FSR
clrc
rlf mode,w
bsf STATUS,RP0  ;Bank 1
movwf EEADR
EEwrite movf INDF,w
movwf EEDAT
bsf EECON1,WREN ;enable write
movlw 55h     ;unlock codes
movwf EECON2
movlw 0AAH
movwf EECON2
bsf EECON1,WR   ;write begins
bcf STATUS,RP0  ;select bank0
btfss PIR1,EEIF   ;wait for write to complete
goto $-1
bcf PIR1,EEIF
bsf STATUS,RP0  ;select bank1
incf FSR,f
incf EEADR,f
btfsc EEADR,0
goto EEwrite
bcf EECON1,WREN ;disable other writes
bcf STATUS,RP0  ;select bank0
return

delay4m addwf time0,w
movwf AL
waitz movf time0,w
xorwf AL,w
bnz waitz
return

readkey clrf keys
clrf buttons_state
btfsc GPIO,pinBtn0
bsf buttons_state,0
btfsc GPIO,pinBtn1
bsf buttons_state,1
movf buttons_state,w
xorwf start_debounce_state,w
bnz restart_debounce
movf start_debounce_time,w
subwf time0,w
addlw -10 ;debounce delay = 41 ms
skpc
return ;too litle time in new state
movf buttons_state,w
xorwf last_buttons_state,w
bnz btnchg
;if no physical event, then check for virtual
btfsc key_stat,before_repeating
goto check_first_repeat
btfsc key_stat,now_repeating
goto check_next_repeat
return ;neither physical nor virtual

check_first_repeat
movf key_event_timeL,w
subwf time0,w
addlw -195 ;0.8s
skpc
return
bcf key_stat,before_repeating
bsf key_stat,now_repeating
goto save_repeat_time
check_next_repeat
movf last_key_repeat_time,w
subwf time0,w
addlw -24    ;98ms
skpc
return
save_repeat_time
movf time0,w
movwf last_key_repeat_time
btfsc key_stat,btn1_first
bsf keys,btn1_first
bsf keys,btn_step
return

btnchg movf buttons_state,w
bz to00 ;isn't new state "none pressed"?
xorlw 3
bz to11 ;isn't new state "both pressed"?
;neither of them – new state is "only one pressed"
movf last_buttons_state,w
bz from00 ;wasn't previous state "none pressed"?
;no – it was "both pressed"
from11 btfss key_stat,after_repeating
goto endbtn
;if autorepeat still hasn't started;
;then ignore the 1st release
;and wait for complete release to report "shift-press ended"
;else report shift-press on every release as usual autorepeat
bsf keys,btn_step
comf key_stat,w
andlw 1<<btn1_first
iorwf keys,f
goto endbtn

;sequence start:
;transition from "none pressed" to "one pressed"
;just save the initial information
from00 clrf key_stat
btfsc buttons_state,1
bsf key_stat,btn1_first
bsf key_stat,before_repeating
bcf INTCON,GIE
movf time1,w
movwf key_event_timeH
movf time0,w
movwf key_event_timeL
bsf INTCON,GIE
endbtn movf buttons_state,w
movwf last_buttons_state
return

to00 btfsc key_stat,btns_pr
goto endbl
btfsc key_stat,now_repeating
goto endseq
btfsc key_stat,after_repeating
goto endseq
;neither shift-press nor repeating
;so report normal "single button press & release"
bsf keys,btn_pr
goto retkey

;shift-press sequence end (both released)
endbl bcf INTCON,GIE
movf key_event_timeL,w
subwf time0,w
skpc
incf key_event_timeH,f
movf key_event_timeH,w
subwf time1,w
bsf INTCON,GIE
skpz
bsf keys,btns_long ;long shift-press (>1 second)
bsf keys,btns_pr ;report "shift-press ended"
retkey btfsc key_stat,btn1_first
bsf keys,btn1_first
endseq clrf key_stat
goto endbtn

;shift-press
to11 btfss key_stat,now_repeating
goto double
;if the second button was pressed late (autorepeat already on)
;then end autorepeat and make sequential shift-presses work on release
bcf key_stat,now_repeating
bsf key_stat,after_repeating
goto endbtn
;else mark that both are pressed and wait until both released
double bcf key_stat,before_repeating
bsf key_stat,btns_pr
goto endbtn

restart_debounce
xorwf start_debounce_state,f
movf time0,w
movwf start_debounce_time
return

SetUp clrf time0
clrf time1
clrf time2
clrf last_buttons_state
clrf start_debounce_state
clrf mode ; 0 for m2, 1 for m1, 2 for m3
incf mode,f
clrf settings

movlw 0x07
movwf CMCON0 ;turn off Comparator
clrf INTCON

bsf STATUS,RP0  ;Bank 1
clrf ANSEL ;no analog inputs
movlw 0x67 ;4MHz HFINTOSC
movwf OSCCON
movlw b'00101011' ;CCP1=GP2->output; GP4->output; all other inputs
movwf TRISIO
movlw (1<<pinBtn0)|(1<<pinBtn1) ;enable interrupt by buttons change
movwf IOC
movlw b'11000011' ;pull-ups disabled; TMR0<-CLKOUT; TMR0:16
movwf OPTION_REG
bcf STATUS,RP0  ;Bank 0
bsf INTCON,T0IE
bsf INTCON,GIE
bcf GPIO,pinBoost

init_cur_mode
call read_mode_settings
clrf brightness
softst call increase_brightness
movlw 5
call delay4m
movf mode_brightness,w
subwf brightness,w
bnc softst ;brightness<mode_brightness
bz setimer
setmode movf mode_brightness,w
call set_brightness
setimer call set_timer

main_loop
call readkey
movf keys,f
bnz pkeys

check_timer
bcf INTCON,GIE
movf time2,w
movwf AH
movf time1,w
movwf AL
bsf INTCON,GIE
movf switchtimeH,w
subwf AH,w     ;time-switchtime
bnc main_loop   ;<0 => not reached
bnz switch_mode ;>0 => reached
movf switchtimeL,w
subwf AL,w
bnc main_loop
goto switch_mode

pkeys btfsc keys,btns_long
goto settings
btfsc keys,btns_pr
goto switch_to_boost
btfsc keys,btn_pr
goto buttons_norm
btfsc keys,btn_step
goto buttons_step
goto main_loop

buttons_norm
btfsc keys,btn1_first
goto pbtn1
pbtn0 movf mode,f
bnz cb0m1
incf mode,f     ;switch from m2 to m1
goto reinit_mode
cb0m1 btfss mode,0
goto switch_mode ;switch from m3 to m2
call add_timer   ;increase time in m1
movlw 5
call display_digit
goto main_loop

pbtn1 btfss mode,0
goto switch_mode ;turn off from m2 or switch to m2 from m3
goto reinit_main_mode;from m1

buttons_step
btfsc keys,btn1_first
goto sbtn1
call decrease_brightness
goto main_loop
sbtn1 call increase_brightness
goto main_loop

settings
btfsc keys,btn1_first
goto set_timer_start
set_brightness_start
call display_mode
movf mode_brightness,w
call set_brightness
movf time1,w
addlw 60
movwf settings_timeout
set_brightness_loop
movf time1,w
xorwf settings_timeout,w
bz save_settings
call readkey
movf keys,f
bz set_brightness_loop
set_brightness_keys
btfsc keys,btns_pr
goto save_settings
btfsc keys,btn1_first
goto incbrtn
call decrease_brightness
goto updbrtn
incbrtn call increase_brightness
updbrtn movf brightness,w
movwf mode_brightness
goto set_brightness_loop

set_timer_start
movlw 6
call set_brightness
movlw 32 ;animate digit from 1 to 8
movwf AH
animate decf AH,w
andlw 7
addlw 1
call display_digit
movlw 12
call delay4m
decfsz AH,f
goto animate
movf time1,w
addlw 60
movwf settings_timeout
clrf last_blink_state
set_timer_loop
btfss mode_timer,3
goto blinkon
rlf time0,w
addlw 51
movlw 0
skpnc ;0 for first 2/3 of each second
movlw 1 ;1 for last 1/3
xorwf last_blink_state,w
bz set_timer_timeout
xorwf last_blink_state,f
movlw 0
skpnz ;display 0 for last 1/3
blinkon incf mode_timer,w ;display current mode for first 2/3
call display_digit
set_timer_timeout
movf time1,w
xorwf settings_timeout,w
bz save_settings
call readkey
movf keys,f
bz set_timer_loop
set_timer_keys
btfsc keys,btns_pr
goto save_settings
decf mode_timer,w
btfsc keys,btn1_first
addlw 2
andlw 0x0F
movwf mode_timer
goto set_timer_loop

save_settings
call write_mode_settings
goto init_cur_mode

switch_to_boost
movlw 0
call set_brightness
bsf GPIO,pinBoost
movlw 2
movwf mode
call read_mode_settings
goto setmode

switch_mode
btfss mode,1
goto prepair_to_sleep
movlw 0
call set_brightness
bcf GPIO,pinBoost
reinit_main_mode
clrf mode
reinit_mode
call read_mode_settings
goto setmode
prepair_to_sleep
call decrease_brightness
movlw 5
call delay4m
movf brightness,f
bnz prepair_to_sleep
movlw 0
call display_digit
bcf INTCON,GIE
bcf GPIO,pinPWM
bcf INTCON,GPIF
bsf INTCON,GPIE
sleep
clrf mode
btfsc GPIO,pinBtn0
incf mode,f
bcf INTCON,GPIE
bcf INTCON,GPIF
bsf INTCON,GIE
wait_key_released
movlw 2
call delay4m
btfsc GPIO,pinBtn0
goto wait_key_released
btfsc GPIO,pinBtn1
goto wait_key_released
goto init_cur_mode

org 0x2100
de 80,8,40,8,160,5
    END

mnashe!
Опять ничего не получается.
1) Код  не чисто Ассемблер, компиляция не проходит! Моему "flat assembler 1.71.54" не понравилась строка 12: include "p12f683.inc" — зарубил идею!



2) MULTEDIT тоже "рогом упёрся", не проходит компиляция. Как быть?
Multi-Edit V4.13  [Text Edit]   Insert             Mem[380k] ëÿÖÜ üë 10:31 ▌ä"ü▐
ERROR 28: $command expected
─L[00001]─C[007]─P[001]─────────────────────────────────────────────────────────
;     ┌───v───┐

[balky_03]

Тогда интересно, что же там за процессор.

Bhudh!
Мой процессор двухъядерный  1.66 GHz.

[Lodur]

Покажу ещё один ассемблер. Для 8-битных микроконтроллеров фирмы Microchip.

mnashe!
Опять ничего не получается.
1) Код  не чисто Ассемблер, компиляция не проходит! Моему "flat assembler 1.71.54" не понравилась строка 12: include "p12f683.inc" — зарубил идею!

Прочтите уже что-нибудь по языкам программирования.
«Как и сам язык, ассемблеры, как правило, специфичны для конкретной архитектуры, операционной системы и варианта синтаксиса языка».
Было бы станно, если бы у вас скомпилировалась эта программа - у вас ведь, как я понимаю, такого контроллера (Microchip P12F683) нет? Скорее всего, нужный файл "инклюд" (include) распространяется вместе с контроллером, и представляет собой набор рутин (то бишь, стандартных подпрограмм) для работы с оным. У вас же, как я понимаю, этого файла просто нет, поэтому компилятор ругается.

[balky_03]

Прочтите уже что-нибудь по языкам программирования...
Было бы станно, если бы у вас скомпилировалась эта программа - у вас ведь, как я понимаю, такого контроллера (Microchip P12F683) нет?.. поэтому компилятор ругается.

Lodur!
Осилил только ограничения: 3 и 8! С Ассемблером вижусь раз в полгода, редко.  Шапочное знакомство.

Хорошо, вот он — "p12f683.inc", скачал его (13 Кб) https://class.ee.washington.edu/475/peckol/code/Microchip/microchipExamples/mpasm/P12F683.INC



Что с ним делать, чтобы "код mnashe" сработал? Куда его вставить? Подскажите, пожалуйста.

[balky_03]

Что с ним делать, чтобы "код mnashe" сработал? Куда его вставить? Подскажите, пожалуйста.

Чем дальше в лес, тем больше дров!!
Прописываю "p12f683.inc" по адресу: C:\FASM\INCLUDE\P12F683.INC


Запускаю "flat assembler 1.71.54"! Теперь ему не нравится "строка 103" в самом " //p12f683.inc", где он  сомневается в СТАТУСЕ:  RP1                          EQU     H'0006'


"Строка 103" выглядит так (на общем фоне)

[mnashe]

И шёл ли вывод только в файл?

Да.

Что с ним делать, чтобы "код mnashe" сработал?

1. Нарисовать схему и развести печатную плату фонарика (или воспользоваться моими).
2. Придумать конструкцию корпуса и собрать корпус (моей конструкцией лучше не пользоваться, она мне не понравилась, слишком много возни).
3. Купить все нужные детали:

   
• микроконтроллер PIC12F683 в формате SO8
• светодиодный драйвер AP3031 в формате SOT23-6
• 4 светодиода разных цветов (RYGB) в формате 1206 и ещё три таких любых цветов (у меня два оранжевых и синий)
• две микросхемы ёмкостного датчика касания ttp223 в формате SOT23-6
• два полевых транзистора AO3400 или SI2300 в формате SOT23
• диод Шоттки SS24 или SS34
• пара резисторов на 100–300Ω в формате 1206 или 0805
• пара резисторов на ≈1kΩ в формате 1206 или 0805
• резистор на 47–0200Ω в формате 1206 или 0805
• катушка индуктивности с ферритовым сердечником (то есть предназначенная для высоких частот) на 4,7μH 2A
• керамический или танталовый конденсатор на 10μF 6,3V (или больше)
• керамический или танталовый конденсатор на 0,47μF 20V (или больше)
• пара керамических конденсаторов 25-35 pF
• держатель литиевого аккумулятора или разъём для подключения
• светодиодная матрица (COB) на цепочках из двух или трёх светодиодов в каждой
• несколько разъёмов и проводков

4. Спаять плату.
5. Приклеить (на термопроводящий клей) или прикрутить (через термопасту) светодиодную матрицу на подходящий радиатор (в зависимости от мощности матрицы и конструкции корпуса).
6. Купить программатор (оптимальный вариант — PICkit3, цена порядка $12, точно не знаю сколько сейчас).
7. Загрузить с сайта Microchip и установить среду разработки MPLabX.
8. Подключить программатор к USB, а разъём программирования микроконтроллера на плате — к программатору (5 проводов, включая питание).
9. Запустить MPLabX.
10. Создать новый проект.
11. Добавить туда мой исходный код (файл tentlamp.asm).
12. Откомпилировать и залить в мк.
13. Отсоединить плату от программатора.
14. Перебросить перемычки или разъёмы на плате из режима программирования в рабочий режим.
15. Собрать весь фонарик: корпус, плату, держатель батарейки, радиатор с матрицей.

Я ничего не забыл?

[balky_03]

        ...
       

• диод Шоттки SS24 или SS34
• пара резисторов на 100–300Ω в формате 1206 или 0805
• пара резисторов на ≈1kΩ в формате 1206 или 0805

   ...
13. Отсоединить плату от программатора.
14. Перебросить перемычки или разъёмы на плате из режима программирования в рабочий режим.
15. Собрать весь фонарик: корпус, плату, держатель батарейки, радиатор с матрицей.

Я ничего не забыл?

mnashe!
Нет! И так впечатляюще! 
Спасибо, что вовремя меня предупредили (остановили). Хватит мне, выше крыши — сильных потрясений на сегодня.

mnashe,  давайте земные (детские) задачи решать. Например, на оптимизацию ниже:

Условия
1)   После переработки сырья M получаем:  16a + 12b + 10c + 7d + 3e;
2)   Перерабатывая сырья N:  20a + 15b + 13c + 4d + 5e;
3)   Сырьё K:  11a + 10b + 9c + 5d + 4e.

Какое надо оптимальное соотношение (пропорция) между частями M, N и K — если общая потребность:  575a +  458b + 371c +  178d + 142e?

[balky_03]

Неужели никто не знает? Вроде ещё не ночь, спать рановато. Америка не в счёт.

Предполагаю:  вокруг иностранцы, поскольку в России такие задачи под силу ребёнку.
Смотрите моё решение, затратил 2-3 минуты — возможно у кого-нибудь получится лучше.

[balky_03]

Имеется четыре агрегата (автомата) для изготовления  однотипных изделий.

Таблица. Вид и длительность операций на единицу продукции, в минутах
___________Штамповка_____Сборка_____Покраска_____Упаковка
Агрегат 1______0,51__________1,25_________0,25________0,20
Агрегат 2______0,43__________1,44_________0,35________0,18
Агрегат 3______0,35__________1,52_________0,34________0,16
Агрегат 4______0,41__________1,39_________0,33________0,17

Как правильно разделить операции между агрегатами, чтобы часовой выпуск готовой продукции был максимальным?

За что люблю программирование? Достаточно предложить любую детскую, но конкретную задачу, как математики тут же замолкают. Как бы теряют дар мышления.

[balky_03]

Как правильно разделить операции между агрегатами, чтобы часовой выпуск готовой продукции был максимальным?

В Интернете аналогов подобных задач нет.

Затратил 5-7 минут  на решение — чисто умозрительное, чтобы каждый агрегат занимался делом, которое у него получается лучше. Никакое программирование не потребовалось.

Узкое место "сборка", поэтому максимальный часовой выпуск — 111 штук готовых изделий.

[Yougi]

 Программирование<>математике по одной простой причине
- не существует идеального компьютера с идеальным компилятором, как не существует идеального газа, сферического коня в ваккууме и прочих удобных для манипуляций, но отсутствующих в реальной жизни объектов.
"Мы живём в суровом аналоговом мире" (с) СтивенсОн.
Когда берут программера на работу, первое, о чём его спрашивают - знает ли он конкретный компилятор А, редактор В этсетера. Потому что часто А=B даёт в результате иной код, чем В=А. И всё это надо знать...
Лет 20 назад Дейкстра носился с идеей универсального верификатора программ... Ну и чем это кончилось? А ничем, собственно. По прежнему практика - критерий истины. Тестеры не нашли ошибок - и ладушки.

[balky_03]

Никакое программирование не потребовалось.

Поправка компьютера, ниже, заметил мою описку.

Правильно: максимальный часовой выпуск — 112 штук готовых изделий.

У меня счётная ошибка по сборке  из-за рассеянности,  считал в уме — вроде всё просто.
Проверить на калькуляторе поленился [26 + 41 + 2 + 42(??) = 111] <—> [59,77/1,39 = 43!!].
Напоролся, споткнулся на ровном месте.