С днём программиста!

    Function  LY:Byte; Assembler;
    { Определение високосности
      Вход:
        CX      - год;
        AL      - месяц.
      Результат:
        AL      - количество дней, которое необходимо прибавить к
                  длительности февраля или к числу дней, прошедших с
                  начала года до начала месяца, без учета високосности
                  (0 или 1). }
      Asm
        MOV     BL, 0
        CMP     AL, 3
        JB      @Exit
        MOV     AX, 400
        XCHG    AX, CX
        TEST    AL, 03h
        JNZ     @Exit
        XOR     DX, DX
        DIV     CX
        XCHG    AX, DX
        OR      AX, AX
        MOV     BL, 1
        JZ      @Exit
        MOV     DL, 100
        DIV     DL
        MOV     AL, AH
        OR      AL, AL
        JZ      @End
@Exit:  MOV     AL, BL
@End: End;

> cat yeartest.lisp
(if (eq (mod (parse-integer (car (cdr sb-ext:*posix-argv*))) 4) 0)
        (format t "Год високосный~C" #\linefeed)
        (format t "Год не является високосным~C" #\linefeed))
> sbcl --script yeartest.lisp 2015
Год не является високосным
> sbcl --script yeartest.lisp 2016
Год високосный
> sbcl --script yeartest.lisp 2017
Год не является високосным

> cat yeartest.lisp
(defun xnor (a b) (and (or (not a) b) (or a (not b))))

(defvar fflg nil)
(defvar hflg nil)
(defvar fhflg nil)
(defvar ynum (parse-integer (car (cdr sb-ext:*posix-argv*))))
(if (eq (mod ynum 4) 0) (setq fflg t) (setq fflg nil))
(if (eq (mod ynum 100) 0) (setq hflg t) (setq hflg nil))
(if (eq (mod ynum 400) 0) (setq fhflg t) (setq fhflg nil))
(if (eq (and fflg (xnor hflg fhflg)) t)
        (format t "Год високосный~C" #\linefeed)
        (format t "Год не является високосным~C" #\linefeed))
> sbcl --script yeartest.lisp 1900
Год не является високосным
> sbcl --script yeartest.lisp 2015
Год не является високосным
> sbcl --script yeartest.lisp 2016
Год високосный
> sbcl --script yeartest.lisp 2017
Год не является високосным