home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
assemblr
/
library
/
lib4a86
/
lib
/
assign.lib
< prev
next >
Wrap
Text File
|
1992-02-02
|
993b
|
89 lines
#IF !LIB4A86
#ELSE
#IF !INTERN_LIB4A86_S
INTERN_LIB4A86_S EQU 01
JMP START
#ENDIF
#ENDIF
ASSIGN? MACRO
MOV AX,0600H
INT 02FH
CMP AL,0FFH
#EM
ASSIGNLW:
PUSH ES,BX
CALL INTERN_GETASSIGNTABLE
JC >L8
MOV AX,BX
XOR BH,BH
XCHG ES:[BX+0102H],AH
JMP >L9
ASSIGNLW?:
PUSH ES,BX
MOV AH,AL
CALL INTERN_GETASSIGNTABLE
JC >L8
XOR BH,BH
MOV AL,ES:[BX+0102H]
CMP AL,BL
CLC
JMP >L9
L8:
STC
L9:
POP BX,ES
RET
INTERN_GETASSIGNTABLE:
MOV BX,AX
ASSIGN?
STC
JNZ >L8
INC AL
INC AL
OR BL,BL
JZ >L8
CMP BL,26XD
JA >L8
INC AL
OR BH,BH
JZ >L8
CMP BH,26XD
JA >L8
MOV AX,0601H
INT 02FH
CLC
RET
L8:
STC
RET
#IF !INTERN_CMARK0
INTERN_CMARK0 EQU 01H
INTERN_CMARK1:
PUSH BP
MOV BP,SP
MOV BX,06H
SUB CH,[BP+SI]
SUB AH,[BX+SI]
DEC SP
DEC CX
INC DX
XOR AL,041H
CMP B[02820H],DH
INC BX
SUB W[BX+SI],SP
INC DX
CS AND B[BP+DI+043H],DL
DEC AX
INC BP
DEC BP
DEC BP
INC BP
PUSH DX
AND B[BP+SI],CH
SUB CH,[BP+SI]
POP DX
MOV SP,BP
POP BP
RET
#ENDIF