ברוכים הבאים לאתר תחרויות קודגורו! › פורומים › אקסטרים › Flower
- This topic has 6 תגובות, 2 משתתפים, and was last updated לפני 17 שנים, 9 חודשים by CodeGuru.
-
מאתתגובות
-
23 בפברואר 2006 בשעה 01:11 #77039CodeGuruמנהל בפורום
שלום,
למישהו יש עותק מהתוכנה לציור פרח שהייתה בתחרות אקסטרים הראשונה?
10 בינואר 2007 בשעה 02:49 #78414CodeGuruמנהל בפורוםמצאתי בסוף עותק. רצ"ב התוכנית
0E 07 BF 80 80 B9 7F 00-AA 81 C7 FF 00 E2 F9 B9
60 00 29 CF F3 AB BB 80-40 B9 50 00 53 51 E8 0A
00 59 49 5B 81 C3 00 01-E2 F2 F4 89 1E 5A 01 29
CB 03 C9 8B D1 81 C2 FF-00 33 C0 E8 20 00 E8 1D
00 38 D0 7C 09 FE C3 28-D0 80 EA 02 7C 0D 38 D0
7D 07 FE C7 00 F0 80 C6-02 E2 E0 C3 43 47 E8 0E
00 88 1F 50 A1 5A 01 03-C0 29 D8 8A D8 58 C3 88
1F 50 A1 5A 01 02 E4 28-FC 8A FC 58 C3 88 1F 2A
1E 5A 01 2A 3E 5B 01 86-DF 02 1E 5A 01 02 3E 5B
01 C3ולמי שקל יותר לקרוא אסמבלי מאשר שפת מכונה, רצ"ב עותק נוסף:
0000 0E PUSH CS
0001 07 POP ES
0002 BF8080 MOV DI,8080
0005 B97F00 MOV CX,007F
0008 AA STOSB
0009 81C7FF00 ADD DI,00FF
000D E2F9 LOOP 0008
000F B96000 MOV CX,0060
0012 29CF SUB DI,CX
0014 F3 REPZ
0015 AB STOSW
0016 BB8040 MOV BX,4080
0019 B95000 MOV CX,0050
001C 53 PUSH BX
001D 51 PUSH CX
001E E80A00 CALL 002B
0021 59 POP CX
0022 49 DEC CX
0023 5B POP BX
0024 81C30001 ADD BX,0100
0028 E2F2 LOOP 001C
002A F4 HLT
002B 891E5A01 MOV [015A],BX
002F 29CB SUB BX,CX
0031 03C9 ADD CX,CX
0033 8BD1 MOV DX,CX
0035 81C2FF00 ADD DX,00FF
0039 33C0 XOR AX,AX
003B E82000 CALL 005E
003E E81D00 CALL 005E
0041 38D0 CMP AL,DL
0043 7C09 JL 004E
0045 FEC3 INC BL
0047 28D0 SUB AL,DL
0049 80EA02 SUB DL,02
004C 7C0D JL 005B
004E 38D0 CMP AL,DL
0050 7D07 JGE 0059
0052 FEC7 INC BH
0054 00F0 ADD AL,DH
0056 80C602 ADD DH,02
0059 E2E0 LOOP 003B
005B C3 RET
005C 4347
005E E80E00 CALL 006F
0061 881F MOV [BX],BL
0063 50 PUSH AX
0064 A15A01 MOV AX,[015A]
0067 03C0 ADD AX,AX
0069 29D8 SUB AX,BX
006B 8AD8 MOV BL,AL
006D 58 POP AX
006E C3 RET
006F 881F MOV [BX],BL
0071 50 PUSH AX
0072 A15A01 MOV AX,[015A]
0075 02E4 ADD AH,AH
0077 28FC SUB AH,BH
0079 8AFC MOV BH,AH
007B 58 POP AX
007C C3 RET
007D 881F MOV [BX],BL
007F 2A1E5A01 SUB BL,[015A]
0083 2A3E5B01 SUB BH,[015B]
0087 86DF XCHG BL,BH
0089 021E5A01 ADD BL,[015A]
008D 023E5B01 ADD BH,[015B]
0091 C3 RET4 בפברואר 2007 בשעה 08:22 #78406ilum_shemמשתתףזה לא עובד, חסר התרגום בשורה 005C
ואם אפשר בבקשה, תרשום את זה שוב רק בשפת אסמבלר (בלי מס' שורה ואופקוד).
6 בפברואר 2007 בשעה 16:37 #78403CodeGuruמנהל בפורוםא. לא חסר תרגום לשורה
5C
מדובר במידע ולא בפקודה.
ב. רצ"ב התוכנית לבקשתך:
PUSH CS
POP ES
MOV DI,8080h
MOV CX,007Fh
line:
STOSB
ADD DI,00FFh
LOOP line
MOV CX,0060h
SUB DI,CX
REPZ
STOSW
MOV BX,4080h
MOV CX,0050h
cloop:
PUSH BX
PUSH CX
CALL Circ
POP CX
DEC CX
POP BX
ADD BX,0100h
LOOP cloop
HLT
Circ:
MOV,BX
SUB BX,CX
ADD CX,CX
MOV DX,CX
ADD DX,00FFh
XOR AX,AX
loopc:
CALL d2
CALL d2
CMP AL,DL
JL down
INC BL
SUB AL,DL
SUB DL,02
JL sof
down:
CMP AL,DL
JGE l
INC BH
ADD AL,DH
ADD DH,02
l:
LOOP loopc
sof:
RET
s:
DB 'CG'
d2:
CALL d1
MOV [BX],BL
PUSH AX
MOV AX,
ADD AX,AX
SUB AX,BX
MOV BL,AL
POP AX
RET
d1:
MOV [BX],BL
PUSH AX
MOV AX,
ADD AH,AH
SUB AH,BH
MOV BH,AH
POP AX
RET
d:
MOV [BX],BL
SUB BL,
SUB BH,[s+1]
XCHG BL,BH
ADD BL,
ADD BH,[s+1]
RET9 בפברואר 2007 בשעה 08:13 #78401ilum_shemמשתתףלא מתקמפל
10 בפברואר 2007 בשעה 15:00 #78400CodeGuruמנהל בפורוםהעתק את הפקודות הבאות לחלון
DOS
ותקבל קובץ
FLOWER.
שים לב שהשורה עם המספרים ההקסהדצימלים צריכה להיות שורה (ארוכה) אחת.
debug flower
e 100
0E 07 BF 80 80 B9 7F 00 AA 81 C7 FF 00 E2 F9 B9 60 00 29 CF F3 AB BB 80 40 B9 50 00 53 51 E8 0A 00 59 49 5B 81 C3 00 01 E2 F2 F4 89 1E 5A 01 29 CB 03 C9 8B D1 81 C2 FF 00 33 C0 E8 20 00 E8 1D 00 38 D0 7C 09 FE C3 28 D0 80 EA 02 7C 0D 38 D0 7D 07 FE C7 00 F0 80 C6 02 E2 E0 C3 43 47 E8 0E 00 88 1F 50 A1 5A 01 03 C0 29 D8 8A D8 58 C3 88 1F 50 A1 5A 01 02 E4 28 FC 8A FC 58 C3 88 1F 2A 1E 5A 01 2A 3E 5B 01 86 DF 02 1E 5A 01 02 3E 5B 01 C3
rcx92
w
q
17 בפברואר 2007 בשעה 16:18 #78394ilum_shemמשתתףתודה
-
מאתתגובות
- יש להתחבר למערכת על מנת להגיב.