• Calendar program

    From Kerr-Mudd,John@21:1/5 to notsaying@nospicedham.127.0.0.1 on Fri Dec 18 11:21:33 2020
    On Wed, 09 Dec 2020 15:24:16 GMT, "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> wrote:

    On Wed, 25 Nov 2020 09:53:46 GMT, "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> wrote:

    On Sat, 21 Nov 2020 20:20:49 GMT, "Kerr-Mudd,John"
    <notsaying@nospicedham.127.0.0.1> wrote:

    On Sat, 21 Nov 2020 07:53:04 GMT, wolfgang kern
    <nowhere@nospicedham.never.at> wrote:

    On 20.11.2020 14:56, Kerr-Mudd,John wrote:
    ...
    [382]

    []

    This second one is purely cursor driven, no other user input;
    362 bytes now. I think that's as good as I'm gonig to get, but I'll
    ponder it for a day or 2 more and then post a hexdump or debug
    listing, if you like.


    350 - still with an "unnecessary" halfway jump for a "too big for a
    short jump" loop.


    If anyone wants a look:

    grdb dump [minus the seg]

    345: yellow on blue, w/e at end of week:


    d 100 l200
    :0100 B7 B8 8E C3-B4 2A CD 21-88 F3 4B 91-95 B7 1E E8 .....*.!..K.....
    :0110 34 00 BE 20-02 BF 46 02-B1 07 A4 47-A4 47 A4 47 4.. ..F....G.G.G
    :0120 AF E3 6C E2-F5 B7 00 01-DE 01 DE 01-DE BF 1A 01 ..l.............
    :0130 EB E8 43 80-FB 0B 76 D5-B3 00 45 B8-0F 27 39 C5 ..C...v...E..'9.
    :0140 76 CB B3 0B-EB C6 B8 00-06 B9 31 00-BA 4F 0A CD v.........1..O..
    :0150 10 C3 CD 16-86 C4 98 48-74 EC 2C 46-74 A6 48 74 .......Ht.,Ft.Ht
    :0160 D9 48 74 21-2C 04 74 CA-2C 03 74 0D-48 74 1B 3C .Ht!,.t.,.t.Ht.<
    :0170 FA 75 DF FE-CB 79 96 B3-0B 4D B8 2E-06 39 C5 73 .u...y...M...9.s
    :0180 8C B3 00 EB-87 83 C5 64-EB B1 83 ED-64 EB EB E8 .......d....d...
    :0190 70 00 BF E6-02 53 55 31-C0 93 31 C9-2C 01 77 03 p....SU1..1.,.w.
    :01A0 4D 04 0C BE-6A 1D 91 D1-EE 83 D3 02-E2 F9 95 01 M...j...........
    :01B0 C3 D1 F8 D1-F8 01 C3 52-B1 19 99 F7-F1 29 C3 D1 .......R.....)..
    :01C0 F8 D1 F8 01-D8 B1 07 99-F7 F1 28 D1-01 D2 01 D2 ..........(.....
    :01D0 01 D2 01 D7-58 99 D1 EE-75 06 4A 24-03 74 01 4A ....X...u.J$.t.J
    :01E0 83 D2 1E 95-5D 5B 40 4A-78 87 50 D4-0A 08 E4 75 ....][@Jx.P....u
    :01F0 02 B4 10 E8-20 00 AF AF-58 E2 EB B1-07 83 C7 68 .... ...X......h
    :0200 EB E4 89 E8-B1 64 99 F7-F1 52 08 D2-75 02 88 C2 .....d...R..u...
    :0210 E8 01 00 58-D4 0A E8 00-00 86 E0 34-30 AA 47 C3 ...X.......40.G.
    :0220 4D 6F 6E 54-75 65 57 65-64 54 68 72-46 72 69 53 MonTueWedThrFriS
    :0230 61 74 53 75-6E 4A 61 6E-46 65 62 4D-61 72 41 70 atSunJanFebMarAp
    :0240 72 4D 61 79-4A 75 6E 4A-75 6C 41 75-67 53 65 70 rMayJunJulAugSep
    :0250 4F 63 74 4E-6F 76 44 65-63 00 00 00-00 00 00 00 OctNovDec.......

    --
    Bah, and indeed, Humbug.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Kerr-Mudd,John@21:1/5 to notsaying@nospicedham.127.0.0.1 on Mon Jan 11 20:15:11 2021
    On Fri, 18 Dec 2020 11:21:33 GMT, "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> wrote:

    On Wed, 09 Dec 2020 15:24:16 GMT, "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> wrote:

    On Wed, 25 Nov 2020 09:53:46 GMT, "Kerr-Mudd,John"
    <notsaying@nospicedham.127.0.0.1> wrote:

    On Sat, 21 Nov 2020 20:20:49 GMT, "Kerr-Mudd,John"
    <notsaying@nospicedham.127.0.0.1> wrote:

    On Sat, 21 Nov 2020 07:53:04 GMT, wolfgang kern
    <nowhere@nospicedham.never.at> wrote:

    On 20.11.2020 14:56, Kerr-Mudd,John wrote:
    ...
    [382]

    []

    This second one is purely cursor driven, no other user input;
    362 bytes now. I think that's as good as I'm gonig to get, but I'll
    ponder it for a day or 2 more and then post a hexdump or debug
    listing, if you like.


    350 - still with an "unnecessary" halfway jump for a "too big for a
    short jump" loop.

    sorted.

    If anyone wants a look:

    grdb dump [minus the seg]

    345: yellow on blue, w/e at end of week:



    341:

    u 100 l11c
    16A2:0100 B7 B8 mov bh,B8
    16A2:0102 8E C3 mov es,bx
    16A2:0104 B4 2A mov ah,2A
    16A2:0106 CD 21 int 21
    16A2:0108 88 F3 mov bl,dh
    16A2:010A 4B dec bx
    16A2:010B 91 xchg ax,cx
    16A2:010C 95 xchg ax,bp
    16A2:010D B7 1E mov bh,1E
    16A2:010F B8 00 06 mov ax,0600
    16A2:0112 B9 31 00 mov cx,0031
    16A2:0115 BA 4F 0A mov dx,0A4F
    16A2:0118 CD 10 int 10
    16A2:011A BE 1C 02 mov si,021C
    16A2:011D BF 46 02 mov di,0246
    16A2:0120 B1 07 mov cl,07
    16A2:0122 A4 movsb
    16A2:0123 47 inc di
    16A2:0124 A4 movsb
    16A2:0125 47 inc di
    16A2:0126 A4 movsb
    16A2:0127 47 inc di
    16A2:0128 AF scasw
    16A2:0129 E3 61 jcxzw 018C
    16A2:012B E2 F5 loopw 0122
    16A2:012D B7 00 mov bh,00
    16A2:012F 01 DE add si,bx
    16A2:0131 01 DE add si,bx
    16A2:0133 01 DE add si,bx
    16A2:0135 BF 1A 01 mov di,011A
    16A2:0138 EB E8 jmp 0122
    16A2:013A 43 inc bx
    16A2:013B 80 FB 0B cmp bl,0B
    16A2:013E 76 CD jbe 010D
    16A2:0140 B3 00 mov bl,00
    16A2:0142 45 inc bp
    16A2:0143 B8 0F 27 mov ax,270F
    16A2:0146 39 C5 cmp bp,ax
    16A2:0148 76 C3 jbe 010D
    16A2:014A B3 0B mov bl,0B
    16A2:014C EB BE jmp 010C
    16A2:014E CD 16 int 16
    16A2:0150 86 C4 xchg al,ah
    16A2:0152 98 cbw
    16A2:0153 48 dec ax
    16A2:0154 75 01 jnz 0157
    16A2:0156 C3 ret
    16A2:0157 2C 46 sub al,46
    16A2:0159 74 A9 jz 0104
    16A2:015B 48 dec ax
    16A2:015C 74 E4 jz 0142
    16A2:015E 48 dec ax
    16A2:015F 74 21 jz 0182
    16A2:0161 2C 04 sub al,04
    16A2:0163 74 D5 jz 013A
    16A2:0165 2C 03 sub al,03
    16A2:0167 74 0D jz 0176
    16A2:0169 48 dec ax
    16A2:016A 74 1B jz 0187
    16A2:016C 3C FA cmp al,FA
    16A2:016E 75 DE jnz 014E
    16A2:0170 FE CB dec bl
    16A2:0172 79 99 jns 010D
    16A2:0174 B3 0B mov bl,0B
    16A2:0176 4D dec bp
    16A2:0177 B8 2E 06 mov ax,062E
    16A2:017A 39 C5 cmp bp,ax
    16A2:017C 73 8F jnb 010D
    16A2:017E B3 00 mov bl,00
    16A2:0180 EB 8A jmp 010C
    16A2:0182 83 C5 64 add bp,0064
    16A2:0185 EB BC jmp 0143
    16A2:0187 83 ED 64 sub bp,0064
    16A2:018A EB EB jmp 0177
    16A2:018C E8 6F 00 call 01FE
    16A2:018F BF E6 02 mov di,02E6
    16A2:0192 53 push bx
    16A2:0193 55 push bp
    16A2:0194 52 push dx
    16A2:0195 31 C0 xor ax,ax
    16A2:0197 93 xchg ax,bx
    16A2:0198 31 C9 xor cx,cx
    16A2:019A 2C 01 sub al,01
    16A2:019C 77 03 ja 01A1
    16A2:019E 4D dec bp
    16A2:019F 04 0C add al,0C
    16A2:01A1 BE 6A 1D mov si,1D6A
    16A2:01A4 91 xchg ax,cx
    16A2:01A5 D1 EE shr si,1
    16A2:01A7 83 D3 02 adc bx,0002
    16A2:01AA E2 F9 loopw 01A5
    16A2:01AC 95 xchg ax,bp
    16A2:01AD B1 1A mov cl,1A
    16A2:01AF 01 C3 add bx,ax
    16A2:01B1 D1 F8 sar ax,1
    16A2:01B3 D1 F8 sar ax,1
    16A2:01B5 99 cwd
    16A2:01B6 01 C3 add bx,ax
    16A2:01B8 49 dec cx
    16A2:01B9 7A 06 jp 01C1
    16A2:01BB F7 F1 div cx
    16A2:01BD 29 C3 sub bx,ax
    16A2:01BF EB F0 jmp 01B1
    16A2:01C1 B1 07 mov cl,07
    16A2:01C3 93 xchg ax,bx
    16A2:01C4 F7 F1 div cx
    16A2:01C6 28 D1 sub cl,dl
    16A2:01C8 01 D2 add dx,dx
    16A2:01CA 01 D2 add dx,dx
    16A2:01CC 01 D2 add dx,dx
    16A2:01CE 01 D7 add di,dx
    16A2:01D0 58 pop ax
    16A2:01D1 99 cwd
    16A2:01D2 D1 EE shr si,1
    16A2:01D4 75 06 jnz 01DC
    16A2:01D6 4A dec dx
    16A2:01D7 24 03 and al,03
    16A2:01D9 74 01 jz 01DC
    16A2:01DB 4A dec dx
    16A2:01DC 83 D2 1E adc dx,001E
    16A2:01DF 95 xchg ax,bp
    16A2:01E0 5D pop bp
    16A2:01E1 5B pop bx
    16A2:01E2 40 inc ax
    16A2:01E3 4A dec dx
    16A2:01E4 78 88 js 016E
    16A2:01E6 50 push ax
    16A2:01E7 D4 0A aam 0A
    16A2:01E9 08 E4 or ah,ah
    16A2:01EB 75 02 jnz 01EF
    16A2:01ED B4 10 mov ah,10
    16A2:01EF E8 20 00 call 0212
    16A2:01F2 AF scasw
    16A2:01F3 AF scasw
    16A2:01F4 58 pop ax
    16A2:01F5 E2 EB loopw 01E2
    16A2:01F7 B1 07 mov cl,07
    16A2:01F9 83 C7 68 add di,0068
    16A2:01FC EB E4 jmp 01E2
    16A2:01FE 89 E8 mov ax,bp
    16A2:0200 B1 64 mov cl,64
    16A2:0202 99 cwd
    16A2:0203 F7 F1 div cx
    16A2:0205 52 push dx
    16A2:0206 08 D2 or dl,dl
    16A2:0208 75 02 jnz 020C
    16A2:020A 88 C2 mov dl,al
    16A2:020C E8 01 00 call 0210
    16A2:020F 58 pop ax
    16A2:0210 D4 0A aam 0A
    16A2:0212 E8 00 00 call 0215
    16A2:0215 86 E0 xchg ah,al
    16A2:0217 34 30 xor al,30
    16A2:0219 AA stosb
    16A2:021A 47 inc di
    16A2:021B C3 ret
    d 21c
    16A2:021C 4D 6F 6E 54-75 65 57 65-64 54 68 72-46 72 69 53 MonTueWedThrFriS 16A2:022C 61 74 53 75-6E 4A 61 6E-46 65 62 4D-61 72 41 70 atSunJanFebMarAp 16A2:023C 72 4D 61 79-4A 75 6E 4A-75 6C 41 75-67 53 65 70 rMayJunJulAugSep 16A2:024C 4F 63 74 4E-6F 76 44 65-63 00 00 00-00 00 00 00 OctNovDec.......


    --
    Bah, and indeed, Humbug.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)