Simtel MSDOS - Coast to Coast/simteldosarchivecoasttocoast.iso/pcmag/vol5n13.zip/DSTRIP.INP

Text File | 1987-12-13 | 4KB | 105 lines

N DSTRIP.COM
A
CLD
MOV    BL,01
XOR    DX,DX
PUSH    BX
PUSH    DX
MOV    DX,01CE
MOV    CX,FA00
XOR    BX,BX
MOV    AH,3F
INT    21
POP    DX
POP    BX
OR    AX,AX
JNZ    011C
JMP    01A4
MOV    CX,AX
MOV    SI,01CE
MOV    DI,01CE
LODSB
CMP    AL,1A
JZ    0184
TEST    BL,40
JZ    013F
OR    BL,01
AND    BL,BF
TEST    BL,80
JNZ    013C
AND    BL,FD
AND    BL,7F
CMP    AL,3B
JNZ    0148
OR    BL,80
JMP    0171
CMP    AL,20
JZ    0150
CMP    AL,09
JNZ    0158
TEST    BL,03
JNZ    0185
INC    DX
JMP    0184
CMP    AL,0D
JZ    0176
CMP    AL,0A
JNZ    0165
OR    BL,40
JMP    0176
TEST    BL,01
JZ    0174
CMP    AL,2A
JNZ    0171
OR    BL,02
AND    BL,FE
XOR    DX,DX
TEST    BL,03
JNZ    0185
SUB    DI,DX
XOR    DX,DX
AND    BL,7F
JMP    01A6
STOSB
CMP    AL,1A
LOOPNZ    0124
PUSH    AX
PUSH    BX
PUSH    DX
MOV    DX,01CE
MOV    CX,DI
SUB    CX,DX
MOV    BX,0001
MOV    AH,40
INT    21
POP    DX
POP    BX
POP    AX
CMP    AL,1A
JZ    01A4
JMP    0105
INT    20
CMP    AL,27
JNZ    01B4
TEST    BL,20
JNZ    0184
XOR    BL,10
JMP    0184
CMP    AL,22
JNZ    01BD
XOR    BL,20
JMP    0184
TEST    BL,30
JNZ    0184
CMP    AL,61
JB    0184
CMP    AL,7A
JA    0184
AND    AL,5F
JMP    0184

RCX
0CE
W
Q