- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
: ENUM> ( -- ) ;
: <ENUM ( xt n -- )
BEGIN
BEGIN
>IN @ BL WORD DUP C@ 0=
WHILE
2DROP REFILL 0= IF EXIT THEN
REPEAT
FIND SWAP ['] ENUM> = AND IF DROP 2DROP EXIT THEN
>IN !
2DUP SWAP EXECUTE
1+
AGAIN
;
WORDLIST CONSTANT ASSEMBLER
GET-ORDER ASSEMBLER SWAP 1+ SET-ORDER DEFINITIONS
HEX
VARIABLE 'BYTES
: B, ( c -- ) C, 1 'BYTES @ +! ;
: W, ( u -- ) DUP B, 8 RSHIFT B, ;
: DB" ( "ccc<quote>" -- c-addr u )
[CHAR] " PARSE SWAP OVER HERE >R HERE SWAP DUP ALLOT CMOVE
R> SWAP DUP 'BYTES @ +!
;
: W! ( u addr -- ) 2DUP C! SWAP 8 RSHIFT SWAP 1+ C! ;
' CONSTANT 0 <ENUM AX CX DX BX SP BP SI DI ENUM>
' CONSTANT 0 <ENUM AL CL DL BL AH CH DH BH ENUM>
: MEM ( u "<spaces>name" -- ) DUP 18 AND 3 RSHIFT >R 7 AND R> 2CONSTANT ;
' MEM 0 <ENUM
[BX+SI] [BX+DI] [BP+SI] [BP+DI] [SI] [DI] [W] [BX]
[BX+SI]+B [BX+DI]+B [BP+SI]+B [BP+DI]+B [SI]+B [DI]+B [BP]+B [BX]+B
[BX+SI]+W [BX+DI]+W [BP+SI]+W [BP+DI]+W [SI]+W [DI]+W [BP]+W [BX]+W
ENUM>
:NONAME ( reg1 reg2 -- ) 3 LSHIFT OR B, ;
:NONAME ( reg off u -- ) ROT 3 LSHIFT OR B, W, ;
:NONAME ( reg off u -- ) ROT 3 LSHIFT OR B, B, ;
:NONAME ( reg off 6 | reg u -- )
DUP 6 = IF
ROT 3 LSHIFT OR B, W,
ELSE
SWAP 3 LSHIFT OR B,
THEN
;
CREATE MOD , , , ,
3 CONSTANT REG
: -- ( opcode "<spaces>name" -- ) CREATE C, DOES> C@ B, CELLS MOD + @ EXECUTE ;
' -- 0 <ENUM ADD<B ADD<W ADD>B ADD>W ENUM>
' -- 8 <ENUM OR<B OR<W OR>B OR>W ENUM>
' -- 10 <ENUM ADC<B ADC<W ADC>B ADC>W ENUM>
' -- 18 <ENUM SBB<B SBB<W SBB>B SBB>W ENUM>
' -- 20 <ENUM AND<B AND<W AND>B AND>W ENUM>
' -- 28 <ENUM SUB<B SUB<W SUB>B SUB>W ENUM>
' -- 30 <ENUM XOR<B XOR<W XOR>B XOR>W ENUM>
' -- 38 <ENUM CMP<B CMP<W CMP>B CMP>W ENUM>
' -- 85 <ENUM TESTB TESTW XCHGB XCHGW
MOV<B MOV<W MOV>B MOV>W ENUM>
8D -- LEA 0C4 -- LES 0C5 -- LDS
: -- ( opcode "<spaces>name" -- ) CREATE C, DOES> C@ B, B, ;
4 -- AL-ADD 0C -- AL-OR 14 -- AL-ADC 1C -- AL-SBB
24 -- AL-AND 2C -- AL-SUB 34 -- AL-XOR 3C -- AL-CMP
6B -- PUSHB 0A8 -- AL-TEST 0CD -- INT 0EB -- JMP-SHORT
' -- 70 <ENUM JO JNO JB JAE JZ JNZ JBE JA JS JNS JP JNP ENUM>
' -- 0B0 <ENUM AL-MOV CL-MOV DL-MOV BL-MOV
AH-MOV CH-MOV DH-MOV BH-MOV ENUM>
' -- 0E0 <ENUM LOOPNZ LOOPZ LOOP JCXZ
INB INW OUTB OUTW ENUM>
: -- ( opcode "<spaces>name" -- ) CREATE C, DOES> C@ B, W, ;
5 -- AX-ADD 0D -- AX-OR 15 -- AX-ADC 1D -- AX-SBB
25 -- AX-AND 2D -- AX-SUB 35 -- AX-XOR 3D -- AX-CMP
68 -- PUSHW 0A0 -- MEM>AL 0A1 -- MEM>AX 0A2 -- AL>MEM
0A3 -- AX>MEM 0A9 -- AX-TEST 0C2 -- RETW 0CA -- RETW-FAR
0E8 -- CALL 0E9 -- JMP
' -- 0B8 <ENUM AX-MOV CX-MOV DX-MOV BX-MOV
SP-MOV BP-MOV SI-MOV DI-MOV ENUM>
: -- ( opcode "<spaces>name" -- ) CREATE C, DOES> C@ B, ;
6 -- ES-PUSH 7 -- ES-POP 0E -- CS-PUSH 16 -- SS-PUSH
17 -- SS-POP 1E -- DS-PUSH 1F -- DS-POP 26 -- ES:
26 -- DAA 2E -- CS: 2F -- DAS 36 -- SS:
37 -- AAA 3E -- DS: 3F -- AAS 60 -- PUSHA
61 -- POPA 64 -- FS: 65 -- GS: 66 -- CHANGE-OP-SIZE
67 -- CHANGE-ADDR-SIZE 0C3 -- RET 0C9 -- LEAVE 0CB -- RET-FAR
0CC -- INT3 0CE -- INTO 0CF -- IRET 0F0 -- LOCK
' -- 40 <ENUM AX-INC CX-INC DX-INC BX-INC SP-INC BP-INC SI-INC DI-INC
AX-DEC CX-DEC DX-DEC BX-DEC SP-DEC BP-DEC SI-DEC DI-DEC
AX-PUSH CX-PUSH DX-PUSH BX-PUSH SP-PUSH BP-PUSH SI-PUSH DI-PUSH
AX-POP CX-POP DX-POP BX-POP SP-POP BP-POP SI-POP DI-POP
ENUM>
' -- 6C <ENUM INSB INSW OUTSB OUTSW ENUM>
' -- 80 <ENUM NOP CX-AX-XCHG DX-AX-XCHG BX-AX-XCHG
SP-AX-XCHG BP-AX-XCHG SI-AX-XCHG DI-AX-XCHG
CBW CWD ENUM>
' -- 9B <ENUM WAIT PUSHF POPF SAHF LAHF ENUM>
' -- 0A4 <ENUM MOVSB MOVSW CMPSB CMPSW ENUM>
' -- 0AA <ENUM STOSB STOSW LODSB LODSW SCASB SCASW ENUM>
' -- 0D4 <ENUM AAM AAD SALC XLAT ENUM>
' -- 0EC <ENUM DX-AL-IN DX-AX-IN AL-DX-OUT AX-DX-OUT ENUM>
' -- 0F2 <ENUM REPNZ REPZ HLT CMC ENUM>
' -- 0F8 <ENUM CLC STC CLI STI CLD STD ENUM>
another_fake 29.11.2018 20:29 # 0
guest8 10.12.2018 21:59 # −999
guest8 10.12.2018 22:59 # −999
guest8 17.12.2018 23:01 # −999
guest8 18.12.2018 00:56 # −999
guest8 18.12.2018 07:08 # −999
guest8 18.12.2018 10:26 # −999
guest8 18.12.2018 11:07 # −999
guest8 18.12.2018 12:04 # −999
guest8 18.12.2018 12:34 # −999
guest8 18.12.2018 13:07 # −999
guest8 18.12.2018 13:37 # −999
guest8 18.12.2018 14:05 # −999
guest8 18.12.2018 14:34 # −999
guest8 18.12.2018 15:03 # −999
guest8 18.12.2018 15:34 # −999
guest8 18.12.2018 16:03 # −999
guest8 18.12.2018 16:31 # −999
guest8 18.12.2018 17:00 # −999
guest8 18.12.2018 17:29 # −999
guest8 18.12.2018 17:59 # −999
guest8 18.12.2018 19:16 # −999
guest8 18.12.2018 19:04 # −999
guest8 18.12.2018 19:34 # −999
guest8 18.12.2018 20:05 # −999
guest8 18.12.2018 20:39 # −999
guest8 18.12.2018 21:07 # −999
guest8 18.12.2018 21:37 # −999
guest8 18.12.2018 22:05 # −999
guest8 18.12.2018 22:34 # −999
guest8 18.12.2018 23:02 # −999
guest8 18.12.2018 23:30 # −999
guest8 18.12.2018 23:48 # −999
guest8 19.12.2018 00:11 # −999
bormand 19.12.2018 00:12 # 0
guest8 19.12.2018 00:22 # −999
guest8 19.12.2018 00:25 # −999
guest8 19.12.2018 00:26 # −999
guest8 18.12.2018 23:59 # −999
guest8 19.12.2018 00:29 # −999
CnEPMOBOP 19.12.2018 01:46 # 0
guest8 10.12.2018 22:11 # −999
guest8 11.12.2018 22:27 # −999
guest8 14.12.2018 16:09 # −999
guest8 29.11.2018 23:09 # −999
OlegUP 30.11.2018 15:29 # 0
guest8 11.12.2018 22:13 # −999
guest8 18.12.2018 00:25 # −999
guest8 18.12.2018 06:10 # −999
guest8 18.12.2018 01:05 # −999
guest8 18.12.2018 04:00 # −999
guest8 10.12.2018 21:46 # −999
guest8 11.12.2018 16:22 # −999
bormand 29.11.2018 23:59 # 0
Когда-то тоже подобное хотел запилить, но переключился с форта на что-то другое и забил. Меня тогда хватило только на ядро с шитым кодом и набор основных слов.
З.Ы. Чувак, ты крейзи.
guest8 10.12.2018 22:35 # −999
guest8 10.12.2018 23:24 # −999
guest8 18.12.2018 03:19 # −999
guest8 08.12.2018 15:46 # −999
guest8 08.12.2018 16:53 # −999
guest8 10.12.2018 22:47 # −999
guest8 15.12.2018 20:11 # −999
guest8 15.12.2018 20:49 # −999
guest8 16.12.2018 23:38 # −999
guest8 10.12.2018 11:10 # −999
guest8 10.12.2018 11:50 # −999
guest8 10.12.2018 23:52 # −999
guest8 14.12.2018 01:55 # −999
guest8 10.12.2018 12:03 # −999
guest8 11.12.2018 15:16 # −999
guest8 10.12.2018 12:15 # −999
guest8 10.12.2018 12:44 # −999
guest8 10.12.2018 12:28 # −999
guest8 10.12.2018 12:39 # −999
guest8 10.12.2018 12:42 # −999
MasterJoda 10.12.2018 14:26 # 0
guest8 10.12.2018 21:59 # −999
guest8 10.12.2018 12:53 # −999
guest8 10.12.2018 13:05 # −999
guest8 10.12.2018 13:18 # −999
guest8 10.12.2018 13:30 # −999
guest8 10.12.2018 13:42 # −999
guest8 10.12.2018 13:54 # −999
guest8 10.12.2018 14:07 # −999
guest8 10.12.2018 14:20 # −999
MasterJoda 10.12.2018 14:25 # 0
Инхо приде, спамить запрете.
gost 10.12.2018 15:07 # 0
guest8 10.12.2018 18:06 # −999
bormand 12.12.2018 00:16 # 0
bormand 12.12.2018 00:33 # 0
1024-- 12.12.2018 20:40 # +1
bormand 12.12.2018 20:41 # 0
1024-- 12.12.2018 20:58 # 0
guest8 13.12.2018 00:14 # −999
guest8 13.12.2018 00:29 # −999
guest8 13.12.2018 00:30 # −999
guest8 13.12.2018 00:30 # −999
guest8 13.12.2018 00:32 # −999
guest8 13.12.2018 00:37 # −999
guest8 13.12.2018 00:39 # −999
guest8 13.12.2018 00:41 # −999
guest8 13.12.2018 00:44 # −999
guest8 13.12.2018 01:50 # −999
bormand 13.12.2018 07:58 # 0
666_N33D135 13.12.2018 08:31 # 0
guest8 13.12.2018 12:26 # −999
guest6 04.01.2022 21:43 # 0
guest8 10.12.2018 14:33 # −999
guest8 10.12.2018 14:45 # −999
guest8 10.12.2018 14:58 # −999
guest8 10.12.2018 15:11 # −999
guest8 10.12.2018 15:24 # −999
guest8 10.12.2018 15:36 # −999
guest8 10.12.2018 15:48 # −999
guest8 10.12.2018 16:38 # −999
guest8 10.12.2018 16:51 # −999
guest8 10.12.2018 17:03 # −999
guest8 10.12.2018 17:16 # −999
guest8 10.12.2018 17:28 # −999
guest8 10.12.2018 17:40 # −999
guest8 10.12.2018 17:52 # −999
guest8 10.12.2018 18:05 # −999
guest8 10.12.2018 18:17 # −999
guest8 10.12.2018 18:29 # −999
guest8 10.12.2018 18:41 # −999
guest8 10.12.2018 18:53 # −999
guest8 10.12.2018 19:07 # −999
guest8 10.12.2018 19:19 # −999
guest8 10.12.2018 19:34 # −999
guest8 10.12.2018 19:44 # −999
guest8 10.12.2018 19:56 # −999
guest8 10.12.2018 21:02 # −999
guest8 10.12.2018 20:09 # −999
guest8 10.12.2018 20:21 # −999
guest8 10.12.2018 20:33 # −999
guest8 10.12.2018 20:45 # −999
guest8 10.12.2018 20:58 # −999
guest8 10.12.2018 20:58 # −999
guest8 10.12.2018 21:10 # −999
guest8 10.12.2018 21:22 # −999
MasterJoda 10.12.2018 21:27 # 0
guest8 10.12.2018 21:43 # −999
MasterJoda 10.12.2018 22:08 # 0
guest8 10.12.2018 22:13 # −999
MasterJoda 10.12.2018 22:47 # 0
And I'm watching the late show in my flat all alone
How I hate to spend the evening on my own
Autumn winds
Blowing outside my window as I look around the room
And it makes me so depressed to see the gloom
There's not a soul out there
No one to hear my prayer
Gimme gimme gimme a man after midnight
Won't somebody help me chase the shadows away
Gimme gimme gimme a man after midnight
Take me through the darkness to the break of the day
Единственная поп-группа которую я слушаю. Ещё у Ингви Малмстина есть годный митол-кавер gimme your love after midnight.
guest8 10.12.2018 23:31 # −999
MasterJoda 10.12.2018 23:38 # 0
VZHUH 30.12.2018 07:29 # +1
[@]
КОМПЬЮТЕРЫ НАУЧИЛИСЬ ИСПОЛНЯТЬ ЖЕЛАНИЯ
[@]
СЛУЧАЙНО ЗАПУСТИЛ AUTOTOOLS В 0:30
[@]
ВЖУХ! ТЫ ПИДОР!
nemyx 11.12.2018 00:11 # 0
https://youtu.be/bg27x5mpP-0
Я ёбар нат, я ёбар до = я работаю ночью, я работаю днём.
guest8 11.12.2018 00:25 # −999
nemyx 11.12.2018 00:29 # 0
https://genius.com/Gunilla-backman-money-money-money-lyrics
Они не стали переводить название на "PHP".
guest8 11.12.2018 00:32 # −999
nemyx 11.12.2018 00:35 # 0
http://teksty-pesenok.ru/mamma-mia/tekst-pesni-tack-fr-alla-snger/6700310/
nemyx 11.12.2018 00:43 # 0
Есть такая книжка, проверь: Гильфердинг А. Ф. О сродстве языка славянского с санскритским. — СПб.: Тип. Императорской Академии Наук, 1853. — 288с.
После этого исследования языковеды поехали и стали искать сходства во всех европейских и в некоторых ближневосточных языках. Возникло целое направление –— индоевропеистика.
guest8 11.12.2018 00:47 # −999
nemyx 11.12.2018 00:55 # 0
Хотя только что обнаружил, что у голландцев есть предлог «op».
С другой стороны, у немцев есть суффикс «isch» (russisch = руссиш). Возможно, у этих sk и sch общее происхождение.
nemyx 11.12.2018 00:23 # 0
guest8 10.12.2018 21:34 # −999
guest8 16.12.2018 02:02 # −999
guest8 18.12.2018 07:46 # −999
guest8 26.12.2018 13:57 # −999
Sers 27.12.2018 02:21 # 0
Доставка по России. Анонимно.
[email protected]
6A9lHuCT 01.01.2019 01:00 # −102
guest6 14.12.2021 04:35 # 0
bormand 14.12.2021 12:34 # +1
guest6 04.01.2022 21:41 # 0
guest6 04.01.2022 21:37 # 0
guest6 09.01.2022 21:33 # 0
guest6 23.01.2022 03:38 # 0
Исключительно хорошо написано!
Мой сайт <A HREF='https://katyuhis-lavka.ru/2022/01/15/novye-videoroliki-s-krasotkami/'>порно профиль</A>
guest6 26.02.2022 12:42 # 0
Support 26.02.2022 17:12 # 0