Forever Young #01 21 июля 1998

Программирование

Programming - a procedure in Basic Calendar.

================================

    PROTSEDURKA "Calendar"
================================

             *

  In the journal "ZX-REVYU'97, 7 / 10" would
la article (C), Jessica Justice, in
he gives BASIC-process calendar and suggested "re
throw "it into the code. Since BASIC
I almost do not know, but the calculator will never understand,
I wrote a similar protsedurku in code, which does not use a 
calculator, or ROM. Actually, this can not be called 
protsedurku vat "graceful", and length (313

bytes excluding BC and DE) velikovata, but the year you can 
choose from 1 to 65535. At the entrance: D - month

E - number, BC - a year. At the exit of
A - number of days a week (1 - resurrection
Seigner, 2 - Monday, March - the second
nickname, etc).. If you need to know, NE
us to a leap year, or
No - it is possible to calculate, for
measures as follows:

           LD BC, # 0704

           LD A, (YEARS +1)

    YEAR0 CP # 1B

           JR Z, Leap

           ADD A, C

           DJNZ YEAR0

           ... Non-leap


  In other words, if the content (YEARS +1) = 3,7,11,15,19,23,
27, means a leap year. Please note that this "modern" calendar 
(and do not worry;) ... 

************************ TOP ***
YEARS LD A, # 17

      INC A

      CP # 1C

      JR NZ, YEAR1

      XOR A
YEAR1 LD (YEARS +1), A

      DEC BC

      LD A, B

      OR C

      JR NZ, YEARS

      LD HL, TABLE

      LD C, D

      DEC C

      ADD HL, BC

      LD C, # 0C

      LD D, # 11

      LD A, (YEARS +1)

      OR A

      JR Z, YEAR2

      CP # 06

      JR Z, YEAR2

      CP D

      JR Z, YEAR2

      ADD HL, BC

      DEC A

      JR Z, YEAR2

      CP # 0B

      JR Z, YEAR2

      CP D

      JR Z, YEAR2

      ADD HL, BC

      DEC A

      JR Z, YEAR2

      CP # 0B

      JR Z, YEAR2

      CP # 16

      JR Z, YEAR2

      ADD HL, BC

      DEC A

      JR Z, YEAR2

      ADD HL, BC

      DEC A

      JR Z, YEAR2

      CP # 06

      JR Z, YEAR2

      CP D

      JR Z, YEAR2

      ADD HL, BC

      DEC A

      JR Z, YEAR2

      CP # 0B

      JR Z, YEAR2

      CP D

      JR Z, YEAR2

      ADD HL, BC

      SUB # 02

      JR Z, YEAR2

      ADD HL, BC

      DEC A

      JR Z, YEAR2

      CP # 06

      JR Z, YEAR2

      CP D

      JR Z, YEAR2

      ADD HL, BC

      DEC A

      JR Z, YEAR2

      CP # 0B

      JR Z, YEAR2

      CP D

      JR Z, YEAR2

      ADD HL, BC

      SUB # 02

      JR Z, YEAR2

      ADD HL, BC

      SUB # 04

      JR Z, YEAR2

      ADD HL, BC

      SUB # 04

      JR Z, YEAR2

      ADD HL, BC

      SUB # 04

      JR Z, YEAR2

      ADD HL, BC
YEAR2 LD A, (HL)

      ADD A, E
YEAR3 CP # 08

      RET C

      SUB # 07

      JR YEAR3
TABLE DB 5,1,1,4,6,2,4,0,3,5,1,3

      DB 6,2,2,5,0,3,5,1,4,6,2,4

      DB 0,3,3,6,1,4,6,2,5,0,3,5

      DB 1,4,5,1,3,6,1,4,0,2,5,0

      DB 3,6,6,2,4,0,2,5,1,3,6,1

      DB 4,0,0,3,5,1,3,6,2,4,0,2

      DB 6,2,3,6,1,4,6,2,5,0,3,5

      DB 1,4,4,0,2,5,0,3,6,1,4,6

      DB 2,5,5,1,3,6,1,4,0,2,5,0

      DB 4,0,1,4,6,2,4,0,3,5,1,3

      DB 2,5,6,2,4,0,2,5,1,3,6,1

      DB 0,3,4,0,2,5,0,3,6,1,4,6

      DB 5,1,2,5,0,3,5,1,4,6,2,4

      DB 3,6,0,3,5,1,3,6,2,4,0,2
************************ END ***