;Allgemeines SETVER für genau das Child-Programm
;NEU: Mit Vorgaukelei der TRUE VERSION (Int213306)
;Aufruf: term <DOS-Versionsnummer als x.y oder x> <programmname> <parameter>
;P.S.: Hiermit kann man auch Nicht-EXE-Programme mit MZ-Header
;ohne Umbenennung zum Abarbeiten bringen!
;Außer wenn im Stackinhalt des FAR-Calls Segment
;auf ein PSP mit COMMAND o.ä. zeigt!
include prolog.asm
mov [parseg],ds
;Kommandozeile abscannen
cld
mov si,81h
mov di,80h
mov cl,[di]
sk1: lodsb
dec cl
cmp al,0dh ;Ende?
jz help
cmp al,21h
jc sk1 ;Trennzeichen
cmp al,'?'
jz help
sub al,'0'
jc helpE
cmp al,0ah
jnc helpE
mov ah,al ;merken
lodsb
dec cl
sub al,' '
jz sk2 ;Nebenversionsnummer=0 annehmen
cmp al,'.'-' '
jnz helpE
lodsb
dec cl
sub al,'0'
jc helpE
cmp al,0ah
jnc helpE
mov bh,ah ;ah retten
mov bl,10
mul bl
mov ah,bh ;ah holen
cmp [byte si],' '
jz sk2 ;Eine Stelle bedeutet Zehner!!
mov bl,al
lodsb
dec cl
sub al,'0'
jc helpE
cmp al,0ah
jnc helpE
add al,bl ;Einerstelle aufaddieren
sk2: xchg al,ah
mov [GivVer],ax ;für die ISR
sk3: lodsb
dec cl
cmp al,' '
jz sk3
;Versionsnummer gelesen; si zeigt nun auf Dateiname
dec si
inc cl
jmp short sk4
helpE:
PRINT msgHE
help: PRINT msgH
xor ax,ax
jmp hlp
sk4: movsb ;um 1 Zeichen vorkopieren
dec cl ;immer restliche Zeichen mitzählen
cmp [byte si],21h
jnc sk4
;80h steht Dateiname
;SI= ^Parameter
;DI= ^Ende Dateiname+1
dec si
mov [si],cl ;Abschlußzeichen
;SI= ^Parameter MIT Anzahl Bytes
mov [by di],0 ;Endekennung
mov [parofs],si
mov sp,100h ;erst DEC, dann Schreiben! (wie Z80)
ResizeM ;Speicherblockgröße verändern
push es
DOS 3521h ;alten Vektor retten
ses <OldInt21>,bx
;Environment im Vorab absuchen:
mov es,[2ch] ;Segment Environment
xor di,di
xor ax,ax
cld
jmp short lp4
lp3: mov cx,8 ;Länge von COMSPEC=
mov si,offset comsp
repe cmpsb ;Vergleichen
je found ;gleich
dec di
lp1: scasb
jnz lp1
lp4: cmp [es:di],al
jnz lp3
jmp short notfnd ;kein COMSPEC gefunden!
found:
push es
pop ds ;EX DS,ES (fehlt selbst beim 386er!)
push cs
pop es
mov si,di
vorn: mov di,ofs commd ;ins Codesegment - Vorgabe überschreiben
mov cx,8
next: lodsb
cmp al,':'
jz vorn
cmp al,'\'
jz vorn
cmp al,'/'
jz vorn
cmp al,'.'
jz tail
or al,al
jnz ntail
tail: mov cl,1
xor al,al
ntail: stosb
loop next
notfnd:
pop es
push cs
pop ds
mov dx,offset NewInt21
DOS 2521h ;neuen Vektor setzen
mov dx,80h
mov bx,offset params
DOS 4b00h ;starten
mov bx,cs
mov ss,bx
mov sp,100h
mov ds,bx
mov bl,al ;Exit- oder Errorcode
jnc bye
PRINT msgE
call ahex
bye:
lds dx,[OldInt21]
DOS 2521h ;alte Vektoren rücksetzen
mov al,bl
hlp: DOS 4ch ;Programmende
NewInt21: ;DOS-Interrupt
mov [cs:fkt],ax
pushf
CALLF
OldInt21 dd ?
pushf
cmp [by cs:fkt+1],30h ;High-Teil
jz dos30
cmp [cs:fkt],3306h
jnz IntRet
dos30: push bp
mov bp,sp
push ds
push es
push si
push di
push cs
pop ds
mov di,[bp+6]
dec di ;MCB adressieren!!!
mov es,di
mov di,8
mov si,offset commd
cld
eql: cmp di,10h
je uneq ;fertig weil 8 Zeichen
cmpsb ;identisch? (allerdings ohne UpCase!)
jnz uneq
cmp [byte si-1],0 ;Ende-Null?
jnz eql
uneq: pop di
pop si
pop es
pop ds
pop bp
je Intret ;War command.com gewesen, nix gaukeln!
cmp [by cs:fkt+1],30h ;Wohin soll die Versionsnummer?
jz d30emu
mov bx,[cs:GivVer] ;nach BX bei Int213306
jr IntRet
d30emu: mov ax,[cs:GivVer] ;nach AX bei Int2130
Intret: popf
retf 2
;-------------- Allgemeine UP-Sammlung ----------
ahex: push ax ;Werte erhalten
mov cl,4 ;oberes Nibble auf Bit 3...0
shr al,cl ; schieben
call ahex1
pop ax
ahex1: and al,0fh
add al,90h ;Hex -> ASCII
daa
adc al,40h
daa
mov dl,al
mov ah,2
int 21h
ret
comsp db 'COMSPEC=' ;exakt 8 Zeichen
commd db 'COMMAND',0 ;exakt 8 Zeichen
alignv 2
params dw 0
parofs dw 80h
parseg dw ?
GivVer dw 0
fkt dw 0
msgE db 'DOS-Fehler $'
ResEnd: ;Ab hier von Tochter überschreibbar
msgHE db 'Fehler in Kommandozeile!',13,10,'$'
msgH db 'GiveVer - mehr als nur SETVER.EXE! NEU: Emuliert auch "Wahre DOS-Version"!',13,10
db 'Version 1.02 von haftmann#software +++ Public Domain +++',13,10,10
db 'Gebrauch: givever versionsnummer programmname [parameter]',13,10
db 'z.B. givever 5.1 geos.exe, also ganz einfach!',13,10
db '(Vollständiger Name mit Erweiterung notwendig!)',13,10
db '(Versionsnummernangabe als ''x.yy'', ''x.y'' oder als ''x'')',13,10
db 'In dieser Version bitte nur *ausführbare* Programme angeben, also z.B.',13,10
db 'KEINE Batch-Dateien!!!',13,10
db '(In Batch-Dateien ist ein Batch-Aufruf wie folgt möglich:',13,10
db ' givever 5 %comspec% /C beispiel.bat)',13,10,'$'
END COMentry
| Detected encoding: OEM (CP437) | 1
|
|
|