home *** CD-ROM | disk | FTP | other *** search
- #IF !LIB4A86
- #ELSE
- #IF !INTERN_LIB4A86_S
- INTERN_LIB4A86_S EQU 01
- JMP START
- #ENDIF
- #ENDIF
- OLDDOSFLUSHBUFFER MACRO
- MOV AX,0C00H
- INT 021H
- #EM
- OLDDOSKEYPRESSED MACRO
- MOV AH,0BH
- INT 021H
- OR AL,AL
- #EM
- OLDDOSREADSTRING:
- OR SI,SI
- JNZ >L1
- STC
- RET
- L1:
- PUSH DX
- MOV DX,SI
- DEC DX
- XCHG AL,DS:[SI-1]
- PUSH AX
- MOV AH,0AH
- INT 021H
- POP DX
- MOV [SI-1],DL
- POP DX
- RET
- OLDDOSREADKEY:
- MOV AH,07H
- JMP >L1
- OLDDOSREADCHAR:
- MOV AH,01H
- L1:
- PUSH BX
- PUSH AX
- INT 021H
- MOV BL,AL
- XOR BH,BH
- POP AX
- OR BL,BL
- JNE >L1
- INT 021H
- MOV BH,AL
- L1:
- MOV AX,BX
- POP BX
- RET
- OLDDOSWRITELNCHAR:
- XOR AH,AH
- INC AH
- JMP >L1
- OLDDOSWRITECHAR:
- XOR AH,AH
- L1:
- PUSH DX,AX
- MOV DL,AL
- MOV AH,02
- INT 021H
- POP AX
- OR AH,AH
- JE >L9
- L0:
- MOV DL,0DH
- MOV AH,02H
- INT 021H
- MOV DL,0AH
- MOV AH,02H
- INT 021H
- L9:
- POP DX
- RET
- OLDDOSWRITELNSTRING:
- MOV AL,01
- JMP >L1
- OLDDOSWRITESTRING:
- MOV AL,0
- L1:
- PUSH DX,SI,AX
- CLD
- LODSB
- MOV DX,SI
- XOR AH,AH
- ADD SI,AX
- MOV AL,'$'
- XCHG AL,B[SI]
- PUSH AX
- MOV AH,09H
- INT 021H
- POP AX
- MOV B[SI],AL
- POP AX,SI
- OR AL,AL
- JNE L0
- L9:
- POP DX
- 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
-