home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
bp_1_94
/
power
/
datum.bas
next >
Wrap
BASIC Source File
|
1994-03-02
|
2KB
|
59 lines
'-----------------------------------------------------------------------
'
' DATUM.BAS
'
' Programm zur Demonstration des integrierten INLINE-Assemblers
' von PowerBASIC 3.0
'
' 16.10.93
'
'-----------------------------------------------------------------------
shared ergebnis%, tag%, monat%, jahr%
function setdate%(tag%,monat%,jahr%)
local returnwert%
returnwert% = 0
! push di ; Register di sichern
! les di,tag% ; es: segment tag, di: offset tag
! mov dl,es:[di] ; Tag: Variable -> Register dl
! les di,monat% ; es: segment monat, di: offset monat
! mov dh,es:[di] ; Monat: Variable -> Register dh
! les di,jahr% ; es: segment jahr, di: offset jahr
! mov cx,es:[di] ; Jahr: Variable -> Register cx
! mov ah,&H2b ; Dos-Funktion Datum setzen
! int &H21 ; Dos-Funktion ausführen
! ; Returncode wird in AL-Register abgelegt
! ; 00 : uebergebenes Datum OK
! ; FF : uebergebenes Datum nicht OK
! xor ah,ah ; alten AH-Inhalt loeschen
! mov returnwert%,ax ; Return-Code in Variable returnwert%
! pop di ; Register di restaurieren
setdate% = returnwert%
end function
cls
' Versuch ein ungültiges Systemdatum zu setzen
' und Anzeige des Return-Wertes
ergebnis% = setdate%(30,2,1994)
print "setdate (0 bei OK, 255 bei Error): ", ergebnis%
' Gültiges Systemdatum setzen und Anzeige des Return-Wertes
ergebnis%= setdate%(28,2,1994)
print "setdate (0 bei OK, 255 bei Error): ", ergebnis%
end