From: notsaying@nospicedham.127.0.0.1
On Wed, 11 Nov 2020 11:11:24 GMT, "Kerr-Mudd,John"
wrote:
> On Wed, 11 Nov 2020 11:08:16 GMT, wolfgang kern
> wrote:
>
>> On 08.11.2020 23:21, Kerr-Mudd,John wrote:
>>> On Sun, 01 Nov 2020 16:21:58 GMT, "Kerr-Mudd,John"
>>> wrote:
>>>
>>>> On Sun, 01 Nov 2020 13:39:27 GMT, Bogus@Embarq.com (Steve) wrote:
>>>>
>>>>> "Kerr-Mudd,John" writes:
>>>>>>
>>>>>> 512 bytes ; OK to y31k (I think). (oh, I also managed to keep the
>>>>>> 'accepts "monthname"' code).
>>>>>>
>>>>>> Am I talking to myself?
>>>>
>>>> Yes you are; it's a 9999 limit actually, mostly because the year
>>>> print is limited to 4 chars (but to print 5 would blow my
>>>> self=imposed 512 limit).
>>>>
>>>
>>> Ah well; if Wolfgang (or anyone else) is bored, here's my best to
>>> date; I had hoped to squeeze it down enough to allow e.g." Monday" as
>>> a start of week; sadly only "+1" style is allowed.
>>
>> Sorry since "retired" I have much lesser time for such games, there
>> are so many unsolved lines on my ToDo which I wanted to do after
>> active era. Much more than a single oldie could do within 2..3 decades
>> :)
>>
>>> Full calendar if just year input otherwise just the month for the
>>> year specified or current month of current year if no parameters.
>>>
>>> Relies in DOS fn 2A for default date and fn 9 for print.
>>>
>>>
>>> 31EDBE8100AC3C20726077F94EAC3C20725874F93C40773A3C2B7503B780464E
>>> BF0A0031C931C09199F7E701C1AC3C3A7730982C3073F0E3299108FF79083C07
>>> 732088C7EBC683F80C770488C3EBBD95EBBAAD0D2020BF9902B10C4347AFE0FB
>>> 74A3BABD02B409CD21C3BF24095757B228B020B94C00F3AAB80D0AAB4E75F25F
>>> B42ACD2108DB750609ED751E88F309ED750289CD83C706E8E000E8BD0083C740
>>> E839005A89D0AACD21C383C725E8AA0083C775B3004380FB0C77E8535783C709
>>> E8B70083C74155E812005D5F83C71A5B88D8D403750481C77002EBD988F89893
>>> 8DB78B0201DEB10738E17503BE8B02A547E2F583C739F7DB982C0277034D040C
>>> BE6A1D91D1EE83D302E2F9954301C3D1F8D1F801C352B11999F7F129C3D1F8D1
>>> F801D8B10799F7F128D101D701D701D75A95D1EE750580D60228F480D41E4038
>>> C4724750D40A08E47502B410E824004758E2EBB10783C739EBE489E8B9640099
>>> F7F15208D2750288C280E2034AE8010058D40A86E0353030ABC3BE990288D898
>>> 4801C601C601C6A5A447C353754D6F547557655468467253614A616E4665624D
>>> 61724170724D61794A756E4A756C4175675365704F63744E6F76446563557361
>>> 6765206973202263616C207B6D74686E756D7C6D74686E616D657D207B796561
>>> 727D207B2B317374646F777D2224
>>>
>>> Clues in the text at the end:
>>>
>>> SuMoTuWeThFrSa
>>> JanFebMarAprMayJunJulAugSepOctNovDec
>>> Usage is "cal {mthnum|mthname} {year} {+1stdow}"$
>>
>> Yeah, with an extreme magnification I can read it. perhaps later.
>> __
>> wolfgang
>>
>>
>
> Well, there's no obligation to play. Glad you're keeping busy in your
> retirement!
>
IIRC you have to manually enter the hex into your system; if it helps
here's (a later) debug dump; it's 518 with the day code added. (just 6 to
save!)
162F:0100 31 ED xor bp,bp
162F:0102 BE 81 00 mov si,0081
162F:0105 AC lodsb
162F:0106 3C 20 cmp al,20
162F:0108 72 78 jb 0182
162F:010A 77 F9 ja 0105
162F:010C 4E dec si
162F:010D AC lodsb
162F:010E 3C 20 cmp al,20
162F:0110 72 70 jb 0182
162F:0112 74 F9 jz 010D
162F:0114 3C 40 cmp al,40
162F:0116 77 3A ja 0152
162F:0118 3C 2B cmp al,2B
162F:011A 75 03 jnz 011F
162F:011C B7 80 mov bh,80
162F:011E 46 inc si
162F:011F 4E dec si
162F:0120 BF 0A 00 mov di,000A
162F:0123 31 C9 xor cx,cx
162F:0125 31 C0 xor ax,ax
162F:0127 91 xchg ax,cx
162F:0128 99 cwd
162F:0129 F7 E7 mul di
162F:012B 01 C1 add cx,ax
162F:012D AC lodsb
162F:012E 3C 3A cmp al,3A
162F:0130 77 48 ja 017A
162F:0132 98 cbw
162F:0133 2C 30 sub al,30
162F:0135 73 F0 jnb 0127
162F:0137 E3 41 jcxzw 017A
162F:0139 91 xchg ax,cx
162F:013A 08 FF or bh,bh
162F:013C 79 08 jns 0146
162F:013E 3C 07 cmp al,07
162F:0140 73 38 jnb 017A
162F:0142 88 C7 mov bh,al
162F:0144 EB C6 jmp 010C
162F:0146 83 F8 0C cmp ax,000C
162F:0149 77 04 ja 014F
162F:014B 88 C3 mov bl,al
162F:014D EB BD jmp 010C
162F:014F 95 xchg ax,bp
162F:0150 EB BA jmp 010C
162F:0152 BF A3 02 mov di,02A3
162F:0155 B1 0C mov cl,0C
162F:0157 8B 04 mov ax,[si]
162F:0159 0D 20 20 or ax,2020
162F:015C 99 cwd
162F:015D 42 inc dx
162F:015E 47 inc di
162F:015F AF scasw
162F:0160 E0 FB loopnzw 015D
162F:0162 75 04 jnz 0168
162F:0164 88 D3 mov bl,dl
162F:0166 EB 9D jmp 0105
162F:0168 B1 07 mov cl,07
162F:016A 4E dec si
162F:016B AD lodsw
162F:016C 24 DF and al,DF
162F:016E 99 cwd
162F:016F 4A dec dx
162F:0170 42 inc dx
162F:0171 AF scasw
162F:0172 E0 FC loopnzw 0170
162F:0174 75 04 jnz 017A
162F:0176 88 D7 mov bh,dl
162F:0178 EB 8B jmp 0105
162F:017A BA D5 02 mov dx,02D5
162F:017D B4 09 mov ah,09
162F:017F CD 21 int 21
162F:0181 C3 ret
162F:0182 BF 24 09 mov di,0924
162F:0185 57 push di
162F:0186 57 push di
162F:0187 B2 28 mov dl,28
162F:0189 B0 20 mov al,20
162F:018B B9 4C 00 mov cx,004C
162F:018E F3 AA repz stosb
162F:0190 B8 0D 0A mov ax,0A0D
162F:0193 AB stosw
162F:0194 4E dec si
162F:0195 75 F2 jnz 0189
162F:0197 5F pop di
162F:0198 B4 2A mov ah,2A
162F:019A CD 21 int 21
162F:019C 08 DB or bl,bl
162F:019E 75 06 jnz 01A6
[continued in next message]
--- SoupGate-Win32 v1.05
* Origin: you cannot sedate... all the things you hate (1:229/2)
|
