home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol131 / weekday.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  567 b   |  48 lines
  1.     NAME    WEEKDAY#
  2.     ENTRY    WEEKDAY#
  3.     EXT    ZELLER
  4. WEEKDAY#
  5.     ENTR    D,2,4
  6.     STMT    D,4230
  7.     MOV    L,12(IX)
  8.     MOV    H,13(IX)
  9.     PUSH    H
  10.     MOV    L,10(IX)
  11.     MOV    H,11(IX)
  12.     PUSH    H
  13.     MOV    L,8(IX)
  14.     MOV    H,9(IX)
  15.     PUSH    H
  16.     PUSH    IY
  17.     POP    H
  18.     LXI    B,-13
  19.     DADD    B
  20.     PUSH    H
  21.     CALL    ZELLER
  22.     STMT    D,4231
  23.     MOV    L,-14(IY)
  24.     MOV    H,-13(IY)
  25.     DADD    C
  26.     MOV    0(IX),H
  27.     MOV    -1(IX),L
  28.     STMT    D,4232
  29.     MOV    L,-16(IY)
  30.     MOV    H,-15(IY)
  31.     LXI    D,7
  32.     MMOD    D,0
  33.     MOV    -2(IX),H
  34.     MOV    -3(IX),L
  35.     STMT    D,4233
  36.     MOV    L,-3(IX)
  37.     MOV    H,-2(IX)
  38.     MOV    E,-1(IX)
  39.     MOV    D,0(IX)
  40.     DADD    D,0
  41.     LXI    D,7
  42.     MMOD    D,0
  43.     MOV    3(IX),H
  44.     MOV    2(IX),L
  45.     STMT    D,4234
  46.     EXIT    D,6
  47.     END    WEEKDAY#
  48.