Groups | Search | Server Info | Login | Register


Groups > comp.lang.asm.x86 > #8324

Re: Calendar program

From "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1>
Newsgroups comp.lang.asm.x86
Subject Re: Calendar program
Date 2021-01-11 20:15 +0000
Organization dis
Message-ID <XnsACAFCE068BF3Eadmin127001@144.76.35.252> (permalink)
References (16 earlier) <rpah23$qa6$1@gioia.aioe.org> <XnsAC7CCEFB7670Cadmin127001@144.76.35.198> <XnsAC8064AB64634admin127001@144.76.35.198> <XnsAC8E9CB41689Badmin127001@144.76.35.252> <XnsAC97738D7C199admin127001@144.76.35.252>

Show all headers | View raw


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.

Back to comp.lang.asm.x86 | Previous | NextPrevious in thread | Next in thread | Find similar


Thread

Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-10-08 11:19 +0000
  Re: Calendar program wolfgang kern <nowhere@nospicedham.never.at> - 2020-10-08 14:11 +0200
  Re: Calendar program Terje Mathisen <terje.mathisen@nospicedham.tmsw.no> - 2020-10-08 17:10 +0200
  Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-10-09 16:08 +0000
    Re: Calendar program Terje Mathisen <terje.mathisen@nospicedham.tmsw.no> - 2020-10-09 18:51 +0200
      Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-10-09 19:24 +0000
        Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-10-10 10:24 +0000
          Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-10-24 11:45 +0000
            Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-11-01 11:51 +0000
              Re: Calendar program Bogus@Embarq.com (Steve) - 2020-11-01 13:39 +0000
                Re: Calendar program Terje Mathisen <terje.mathisen@nospicedham.tmsw.no> - 2020-11-01 15:37 +0100
                Re: Calendar program wolfgang kern <nowhere@nospicedham.never.at> - 2020-11-02 09:10 +0100
                Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-11-01 16:21 +0000
                Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-11-08 22:21 +0000
                Re: Calendar program wolfgang kern <nowhere@nospicedham.never.at> - 2020-11-11 12:08 +0100
                Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-11-11 11:11 +0000
                Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-11-11 11:37 +0000
                Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-11-11 17:03 +0000
                Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-11-20 13:30 +0000
                Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-11-20 13:56 +0000
                Re: Calendar program wolfgang kern <nowhere@nospicedham.never.at> - 2020-11-21 08:53 +0100
                Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-11-21 20:20 +0000
                Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-11-25 09:53 +0000
                Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-12-09 15:24 +0000
                Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-12-18 11:21 +0000
                Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2021-01-11 20:15 +0000
              Re: Calendar program (revisited) "Kerr-Mudd, John" <admin@nospicedham.127.0.0.1> - 2023-08-01 16:45 +0100
                Re: Calendar program (revisited) Terje Mathisen <terje.mathisen@nospicedham.tmsw.no> - 2023-08-01 20:55 +0200
                Re: Calendar program (revisited) "Kerr-Mudd, John" <admin@nospicedham.127.0.0.1> - 2023-08-02 07:19 +0100
                Re: Calendar program (revisited) Mateusz Viste <mateusz@nospicedham.x.invalid> - 2023-08-03 10:16 +0200
                Re: Calendar program (revisited) "Kerr-Mudd, John" <admin@nospicedham.127.0.0.1> - 2023-08-03 19:29 +0100
      Re: Calendar program "Kerr-Mudd,John" <notsaying@nospicedham.127.0.0.1> - 2020-10-09 19:24 +0000

csiph-web