ZELLER

FILE INFORMATION

FILENAME(S): ZELLER

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-10-20 14:31:49

APPEARS ON: 1 disk(s)

FILE HASH

c2cd7a91520ceeda20c3129b8d7e2a8d98c69afd67afa52f20581531ac6d0401

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
KEYDOS ROM DISK	ZELLER	PRG	Treasure Chest - Klaus Der Suhler	16	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 37 1C 0A 00 8F 20  22 8D 91 12 CB 45 59 C4  |..7.... "....EY.|
00000010: CF D3 20 D2 CF CD 20 D6  45 52 53 49 4F 4E 20 C3  |.. ... .ERSION .|
00000020: 20 54 49 4D 45 2F 44 41  54 45 20 44 49 53 50 4C  | TIME/DATE DISPL|
00000030: 41 59 20 44 45 4D 4F 00  64 1C 14 00 8F 20 22 8D  |AY DEMO.d.... ".|
00000040: 91 12 C3 4F 50 59 52 49  47 48 54 20 31 39 39 31  |...OPYRIGHT 1991|
00000050: 20 42 59 20 D2 41 4E 44  59 20 D7 49 4E 43 48 45  | BY .ANDY .INCHE|
00000060: 53 54 45 52 00 9C 1C 1E  00 8F 20 22 8D 91 12 44  |STER...... "...D|
00000070: 41 59 20 4F 46 20 57 45  45 4B 20 44 45 54 45 52  |AY OF WEEK DETER|
00000080: 4D 49 4E 45 44 20 42 59  20 DA 45 4C 4C 45 52 27  |MINED BY .ELLER'|
00000090: 53 20 C3 4F 4E 47 52 55  45 4E 43 45 00 AC 1C 28  |S .ONGRUENCE...(|
000000A0: 00 8F 22 8D 91 A0 A0 A0  A0 A0 A0 A0 00 D4 1C 32  |.."............2|
000000B0: 00 8F 22 8D 91 12 49 4E  49 54 49 41 4C 49 5A 45  |.."...INITIALIZE|
000000C0: 20 49 4D 50 4F 52 54 41  4E 54 20 56 41 52 49 41  | IMPORTANT VARIA|
000000D0: 42 4C 45 53 00 F6 1C 3C  00 86 20 4D 4F 24 28 31  |BLES...<.. MO$(1|
000000E0: 32 29 3A 20 8F 20 41 52  52 41 59 20 46 4F 52 20  |2): . ARRAY FOR |
000000F0: 4D 4F 4E 54 48 53 00 1E  1D 46 00 44 4C B2 34 38  |MONTHS...F.DL.48|
00000100: 38 32 3A 20 20 20 20 20  8F 20 44 41 54 45 20 4C  |82:     . DATE L|
00000110: 4F 43 41 54 49 4F 4E 20  49 4E 20 52 41 4D 00 46  |OCATION IN RAM.F|
00000120: 1D 50 00 54 4C B2 34 39  30 33 3A 20 20 20 20 20  |.P.TL.4903:     |
00000130: 8F 20 54 49 4D 45 20 4C  4F 43 41 54 49 4F 4E 20  |. TIME LOCATION |
00000140: 49 4E 20 52 41 4D 00 6D  1D 5A 00 43 24 B2 22 3A  |IN RAM.m.Z.C$.":|
00000150: 22 3A 20 20 20 20 20 20  8F 20 46 4F 52 20 44 49  |":      . FOR DI|
00000160: 53 50 4C 41 59 20 52 4F  55 54 49 4E 45 00 7E 1D  |SPLAY ROUTINE.~.|
00000170: 64 00 8F 22 8D 91 A0 A0  A0 A0 A0 A0 A0 A0 00 AB  |d.."............|
00000180: 1D 6E 00 8F 22 8D 91 12  52 45 41 44 20 44 41 59  |.n.."...READ DAY|
00000190: 20 41 4E 44 20 4D 4F 4E  54 48 20 44 41 54 41 20  | AND MONTH DATA |
000001A0: 49 4E 54 4F 20 41 52 52  41 59 53 00 F8 1D 78 00  |INTO ARRAYS...x.|
000001B0: 83 20 22 D3 55 4E 44 41  59 22 2C 22 CD 4F 4E 44  |. ".UNDAY",".OND|
000001C0: 41 59 22 2C 22 D4 55 45  53 44 41 59 22 2C 22 D7  |AY",".UESDAY",".|
000001D0: 45 44 4E 45 53 44 41 59  22 2C 22 D4 48 55 52 53  |EDNESDAY",".HURS|
000001E0: 44 41 59 22 2C 22 C6 52  49 44 41 59 22 2C 22 D3  |DAY",".RIDAY",".|
000001F0: 41 54 55 52 44 41 59 22  00 6C 1E 82 00 83 20 22  |ATURDAY".l.... "|
00000200: CA 41 4E 55 41 52 59 22  2C 22 C6 45 42 52 55 41  |.ANUARY",".EBRUA|
00000210: 52 59 22 2C 22 CD 41 52  43 48 22 2C 22 C1 50 52  |RY",".ARCH",".PR|
00000220: 49 4C 22 2C 22 CD 41 59  22 2C 22 CA 55 4E 45 22  |IL",".AY",".UNE"|
00000230: 2C 22 CA 55 4C 59 22 2C  22 C1 55 47 55 53 54 22  |,".ULY",".UGUST"|
00000240: 2C 22 D3 45 50 54 45 4D  42 45 52 22 2C 22 CF 43  |,".EPTEMBER",".C|
00000250: 54 4F 42 45 52 22 2C 22  CE 4F 56 45 4D 42 45 52  |TOBER",".OVEMBER|
00000260: 22 2C 22 C4 45 43 45 4D  42 45 52 22 00 9A 1E 8C  |",".ECEMBER"....|
00000270: 00 81 20 4A B2 30 20 A4  20 36 3A 87 20 44 24 28  |.. J.0 . 6:. D$(|
00000280: 4A 29 3A 82 3A 81 20 4A  B2 31 20 A4 20 31 32 3A  |J):.:. J.1 . 12:|
00000290: 87 20 4D 4F 24 28 4A 29  3A 82 00 AB 1E 96 00 8F  |. MO$(J):.......|
000002A0: 22 8D 91 A0 A0 A0 A0 A0  A0 A0 A0 00 F3 1E A0 00  |"...............|
000002B0: 8F 20 22 8D 91 12 44 4F  57 4E 4C 4F 41 44 20 D3  |. "...DOWNLOAD .|
000002C0: 4D 41 52 54 D7 41 54 43  48 20 52 45 41 44 20 52  |MART.ATCH READ R|
000002D0: 4F 55 54 49 4E 45 20 46  52 4F 4D 20 CB 45 59 C4  |OUTINE FROM .EY.|
000002E0: CF D3 20 D2 CF CD 20 41  4E 44 20 41 43 54 49 56  |.. ... AND ACTIV|
000002F0: 41 54 45 00 0A 1F AA 00  99 20 C7 28 32 37 29 C7  |ATE...... .(27).|
00000300: 28 34 29 3A 9E 20 35 36  33 32 00 1B 1F B4 00 8F  |(4):. 5632......|
00000310: 22 8D 91 A0 A0 A0 A0 A0  A0 A0 A0 00 30 1F BE 00  |"...........0...|
00000320: 8F 20 22 8D 91 12 52 45  41 44 20 4D 4F 4E 54 48  |. "...READ MONTH|
00000330: 00 52 1F C8 00 4D 24 B2  CA 28 D2 28 C2 28 44 4C  |.R...M$..(.(.(DL|
00000340: 29 29 2C 33 29 3A 4D B2  C5 28 4D 24 29 3A 4D 4F  |)),3):M..(M$):MO|
00000350: B2 4D 00 63 1F D2 00 8F  22 8D 91 A0 A0 A0 A0 A0  |.M.c....".......|
00000360: A0 A0 A0 00 77 1F DC 00  8F 20 22 8D 91 12 52 45  |....w.... "...RE|
00000370: 41 44 20 44 41 54 45 00  B2 1F E6 00 44 54 24 B2  |AD DATE.....DT$.|
00000380: CA 28 D2 28 C2 28 44 4C  AA 31 29 29 2C 33 29 3A  |.(.(.(DL.1)),3):|
00000390: 44 B2 C5 28 44 54 24 29  3A 8B 20 44 B3 31 30 20  |D..(DT$):. D.10 |
000003A0: A7 20 CA 28 44 54 24 2C  31 2C 31 29 B2 C7 28 33  |. .(DT$,1,1)..(3|
000003B0: 32 29 00 C3 1F F0 00 8F  22 8D 91 A0 A0 A0 A0 A0  |2)......".......|
000003C0: A0 A0 A0 00 D6 1F FA 00  8F 22 8D 91 12 52 45 41  |........."...REA|
000003D0: 44 20 59 45 41 52 00 F5  1F 04 01 59 24 B2 CA 28  |D YEAR.....Y$..(|
000003E0: D2 28 C2 28 44 4C AA 32  29 29 2C 33 29 3A 59 B2  |.(.(DL.2)),3):Y.|
000003F0: C5 28 59 24 29 00 06 20  0E 01 8F 22 8D 91 A0 A0  |.(Y$).. ..."....|
00000400: A0 A0 A0 A0 A0 A0 00 3D  20 18 01 8F 22 8D 91 12  |.......= ..."...|
00000410: 52 45 41 44 20 48 4F 55  52 20 41 4E 44 20 49 46  |READ HOUR AND IF|
00000420: 20 50 4D 20 53 45 54 20  50 3D 31 20 41 4E 44 20  | PM SET P=1 AND |
00000430: 43 4C 45 41 52 20 50 4D  20 46 4C 41 47 00 64 20  |CLEAR PM FLAG.d |
00000440: 22 01 48 B2 C2 28 54 4C  AA 32 29 3A 8B 20 48 20  |".H..(TL.2):. H |
00000450: AF 20 31 32 38 20 A7 20  50 B2 31 3A 48 B2 48 20  |. 128 . P.1:H.H |
00000460: AF 20 36 33 00 75 20 2C  01 8F 22 8D 91 A0 A0 A0  |. 63.u ,..".....|
00000470: A0 A0 A0 A0 A0 00 8F 20  36 01 8F 22 8D 91 12 53  |....... 6.."...S|
00000480: 54 4F 52 45 20 48 4F 55  52 20 49 4E 20 48 24 00  |TORE HOUR IN H$.|
00000490: BD 20 40 01 48 24 B2 CA  28 D2 28 48 29 2C 33 29  |. @.H$..(.(H),3)|
000004A0: 3A 8B 20 C5 28 48 24 29  B3 31 30 20 A7 20 CA 28  |:. .(H$).10 . .(|
000004B0: 48 24 2C 31 2C 31 29 B2  C7 28 33 32 29 00 CE 20  |H$,1,1)..(32).. |
000004C0: 4A 01 8F 22 8D 91 A0 A0  A0 A0 A0 A0 A0 A0 00 E4  |J.."............|
000004D0: 20 54 01 8F 22 8D 91 12  52 45 41 44 20 4D 49 4E  | T.."...READ MIN|
000004E0: 55 54 45 53 00 FC 20 5E  01 4D 49 24 B2 CA 28 D2  |UTES.. ^.MI$..(.|
000004F0: 28 C2 28 54 4C AA 31 29  29 2C 33 29 00 0D 21 68  |(.(TL.1)),3)..!h|
00000500: 01 8F 22 8D 91 A0 A0 A0  A0 A0 A0 A0 A0 00 23 21  |.."...........#!|
00000510: 72 01 8F 22 8D 91 12 52  45 41 44 20 53 45 43 4F  |r.."...READ SECO|
00000520: 4E 44 53 00 38 21 7C 01  53 24 B2 CA 28 D2 28 C2  |NDS.8!|.S$..(.(.|
00000530: 28 54 4C 29 29 2C 33 29  00 49 21 86 01 8F 22 8D  |(TL)),3).I!...".|
00000540: 91 A0 A0 A0 A0 A0 A0 A0  A0 00 83 21 90 01 8F 22  |...........!..."|
00000550: 8D 91 12 55 53 45 20 DA  45 4C 4C 45 52 27 53 20  |...USE .ELLER'S |
00000560: C3 4F 4E 47 52 55 45 4E  43 45 20 54 4F 20 44 45  |.ONGRUENCE TO DE|
00000570: 54 45 52 4D 49 4E 45 20  44 41 59 20 4F 46 20 57  |TERMINE DAY OF W|
00000580: 45 45 4B 00 A2 21 9A 01  4D B2 4D AB 32 3A 8B 20  |EEK..!..M.M.2:. |
00000590: 4D B3 31 20 A7 20 4D B2  4D AA 31 32 3A 59 B2 59  |M.1 . M.M.12:Y.Y|
000005A0: AB 31 00 CD 21 A4 01 4A  B2 B5 28 32 2E 36 AC 4D  |.1..!..J..(2.6.M|
000005B0: AB 2E 31 39 29 AA 44 AA  59 AA B5 28 59 AD 34 29  |..19).D.Y..(Y.4)|
000005C0: AA B5 28 31 39 AD 34 29  AB 32 AC 31 39 00 DE 21  |..(19.4).2.19..!|
000005D0: AE 01 4A B2 4A AB B5 28  4A AD 37 29 AC 37 00 F0  |..J.J..(J.7).7..|
000005E0: 21 B8 01 8F 22 8D 91 A0  A0 A0 A0 A0 A0 A0 A0 A0  |!..."...........|
000005F0: 00 09 22 C2 01 8F 22 8D  91 12 44 49 53 50 4C 41  |.."..."...DISPLA|
00000600: 59 20 52 45 53 55 4C 54  53 00 26 22 CC 01 99 20  |Y RESULTS.&"... |
00000610: 22 93 0E DA 45 4C 4C 45  52 27 53 20 C3 4F 4E 47  |"...ELLER'S .ONG|
00000620: 52 55 45 4E 43 45 00 45  22 D6 01 99 20 22 C4 41  |RUENCE.E"... ".A|
00000630: 59 20 4F 46 20 57 45 45  4B 20 43 41 4C 43 55 4C  |Y OF WEEK CALCUL|
00000640: 41 54 49 4F 4E 00 6C 22  E0 01 99 20 22 CB 45 59  |ATION.l"... ".EY|
00000650: C4 CF D3 20 D2 CF CD 20  D6 32 2E C3 20 D3 4D 41  |... ... .2.. .MA|
00000660: 52 54 D7 41 54 43 48 20  C4 45 4D 4F 00 93 22 EA  |RT.ATCH .EMO..".|
00000670: 01 99 20 22 C3 4F 50 59  52 49 47 48 54 20 31 39  |.. ".OPYRIGHT 19|
00000680: 39 32 20 42 59 20 D2 2E  20 D7 49 4E 43 48 45 53  |92 BY .. .INCHES|
00000690: 54 45 52 00 C5 22 F4 01  99 20 22 CC 49 53 54 20  |TER.."... ".IST |
000006A0: 54 48 49 53 20 50 52 4F  47 52 41 4D 20 46 4F 52  |THIS PROGRAM FOR|
000006B0: 20 4D 4F 52 45 20 49 4E  46 4F 52 4D 41 54 49 4F  | MORE INFORMATIO|
000006C0: 4E 2E 22 3A 99 00 E4 22  FE 01 99 20 22 12 C3 55  |N.":..."... "..U|
000006D0: 52 52 45 4E 54 20 44 41  54 45 20 41 4E 44 20 54  |RRENT DATE AND T|
000006E0: 49 4D 45 3A 00 0C 23 08  02 99 20 22 12 22 44 24  |IME:..#... "."D$|
000006F0: 28 4A 29 22 2C 20 22 4D  4F 24 28 4D 4F 29 22 20  |(J)", "MO$(MO)" |
00000700: 22 44 54 24 22 2C 20 31  39 22 59 24 00 3B 23 12  |"DT$", 19"Y$.;#.|
00000710: 02 99 20 22 12 22 48 24  43 24 4D 49 24 43 24 53  |.. "."H$C$MI$C$S|
00000720: 24 22 20 22 3B 3A 8B 20  50 20 A7 20 99 20 22 50  |$" ";:. P . . "P|
00000730: 4D 22 3A D5 20 99 20 22  41 4D 22 00 00 00        |M":. . "AM"...  |

..7.... "...KEYDOS ROM VERSION C TIME/DA
TE DISPLAY DEMO.D.... "...COPYRIGHT 1991
 BY RANDY WINCHESTER...... "...DAY OF WE
EK DETERMINED BY ZELLER'S CONGRUENCE...(
.."..       .T.2.."...INITIALIZE IMPORTA
NT VARIABLES...<.. MO$(12): . ARRAY FOR 
MONTHS...F.DL.4882:     . DATE LOCATION 
IN RAM.F.P.TL.4903:     . TIME LOCATION 
IN RAM.M.Z.C$.":":      . FOR DISPLAY RO
UTINE.~.D.."..        ...N.."...READ DAY
 AND MONTH DATA INTO ARRAYS...X.. "SUNDA
Y","MONDAY","TUESDAY","WEDNESDAY","THURS
DAY","FRIDAY","SATURDAY".L.... "JANUARY"
,"FEBRUARY","MARCH","APRIL","MAY","JUNE"
,"JULY","AUGUST","SEPTEMBER","OCTOBER","
NOVEMBER","DECEMBER"...... J.0 . 6:. D$(
J):.:. J.1 . 12:. MO$(J):......."..     
   ... .. "...DOWNLOAD SMARTWATCH READ R
OUTINE FROM KEYDOS ROM AND ACTIVATE.....
. G(27)G(4):. 5632......"..        .0...
. "...READ MONTH.R.H.M$.J(R(B(DL)),3):M.
E(M$):MO.M.C.R.."..        .W.... "...RE
AD DATE.....DT$.J(R(B(DL.1)),3):D.E(DT$)
:. D.10 . J(DT$,1,1).G(32).C...."..     
   .V...."...READ YEAR.....Y$.J(R(B(DL.2
)),3):Y.E(Y$).. ..."..        .= ..."...
READ HOUR AND IF PM SET P=1 AND CLEAR PM
 FLAG.D ".H.B(TL.2):. H . 128 . P.1:H.H 
. 63.U ,.."..        .. 6.."...STORE HOU
R IN H$.. @.H$.J(R(H),3):. E(H$).10 . J(
H$,1,1).G(32).N J.."..        .. T.."...
READ MINUTES.. ^.MI$.J(R(B(TL.1)),3)..!H
.."..        .#!R.."...READ SECONDS.8!|.
S$.J(R(B(TL)),3).I!..."..        ..!..."
...USE ZELLER'S CONGRUENCE TO DETERMINE 
DAY OF WEEK..!..M.M.2:. M.1 . M.M.12:Y.Y
.1.M!..J..(2.6.M..19).D.Y..(Y.4)..(19.4)
.2.19..!..J.J..(J.7).7..!..."..         
.."B.."...DISPLAY RESULTS.&"L.. "..ZELLE
R'S CONGRUENCE.E"V.. "DAY OF WEEK CALCUL
ATION.L"... "KEYDOS ROM V2.C SMARTWATCH 
DEMO.."... "COPYRIGHT 1992 BY R. WINCHES
TER.E"... "LIST THIS PROGRAM FOR MORE IN
FORMATION.":..."... ".CURRENT DATE AND T
IME:..#... "."D$(J)", "MO$(MO)" "DT$", 1
9"Y$.;#... "."H$C$MI$C$S$" ";:. P . . "P
M":U . "AM"...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL