RTAKE ergänzt TAKE und LTAKE

RTAKE.DEB wirkt genau wie TAKE, startet jedoch genau wie RSKIP für jede Zeile eines Ausgabetextes neu.

Name: RTAKE.DEB
Funktion: Gibt nur die ersten # Zeichen jeder Zeile aus.
Übersetzung: DEBUG <RTAKE.DEB
Prüfsumme: 7FD6
Anwendung: RTAKE # <Datei # = Anzahl der Zeichen.
Einschränkungen: ./.
A
CLD                 ;100
MOV SI,82           ;101
XOR AX,AX           ;104
AAD                 ;106
MOV AH,AL           ;108
LODSB               ;10A
SUB AL,30           ;10B
JNB 106             ;10D
MOV CL,AH           ;10F
MOV CH,0            ;111
MOV AH,6            ;113
MOV DL,FF           ;115
INT 21              ;117
JZ 130              ;119
CMP AL,D            ;11B
JNZ 122             ;11D 
MOV CX,2            ;11F
JCXZ 113            ;122
DEC CX              ;124
MOV DL,AL           ;125
INT 21              ;127
CMP DL,A            ;129
JZ 101              ;12C
JMP 113             ;12E
RET                 ;130

RCX
31
NRTAKE.COM
W
Q

Quelle: 200 Utilities für PC-/MS-DOS von Gerhard Schild und Thomas Jannot