- 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
; Assign standard procedure (PChar)
AssignFileC:
DB 0BAH ;MOV DX,immed
; Assign standard procedure (String)
AssignFile:
XOR DX,DX
MOV BX,SP
PUSH DS
LES DI,SS:[BX+8]
LDS SI,SS:[BX+4]
CLD
XOR AX,AX
STOSW
MOV AX,fmClosed
STOSW
XOR AX,AX
MOV CX,(fName-fBufSize)/2
REP STOSW
IF WindowsVersion
PUSH ES
PUSH DI
PUSH ES
PUSH DI
ENDIF
MOV CX,79
OR DX,DX
JNE @@1
LODSB
CMP CL,AL
JBE @@1
MOV CL,AL
JCXZ @@2
@@1: LODSB
OR AL,AL
JE @@2
STOSB
LOOP @@1
@@2: XOR AL,AL
STOSB
IF WindowsVersion
CALL AnsiToOem
ENDIF
POP DS
RETF 8
Угадайте с первых строк автора и как выполнится инструкция DB 0BAH; XOR DX, DX.
XOR EDX, EDX ? (не думал, сказал что первое в голову пришло. У префикса 32хбит другой код)
Здесь нужен зелёный цвет или и так нормально?
А на RISC-процессорах так нельзя!