' UNiX-Routinen
' Last Modified: 08/12/96
' Written By: Martin Kiewitz

Function Unix_LeapYear(byval Year??) as INTEGER
   ! mov bx, Year??  ; Ausgangsjahr
   ! mov ax, bx
   ! test ax, &b11
   ! jnz Unix_LeapYearASM.NoLeapYear
   ! mov cl, 100
   ! div cl
   ! test ah, &h0FF
   ! jz Unix_LeapYearASM.NoLeapYear
   ! mov ax, bx
   ! xor dx, dx
   ! mov cl, 400
   ! div cx
   ! test dx, &hFFFF
   ! jz Unix_LeapYearASM.NoLeapYear
   ! mov FUNCTION, -1
   Unix_LeapYearASM.NoLeapYear:
End Function