From: notsaying@nospicedham.127.0.0.1   
      
   On Fri, 04 Sep 2020 12:56:20 GMT, "Kerr-Mudd,John"   
    wrote:   
   [Print "Monday"]   
      
      
   I'm now glacially coding  "umpteenth"   
      
   Sadly I've got bit twiddling down to a mere 2 more that the plain jmp   
   version!   
      
   (This is my testing code; obviously I'll only print today's date in the   
   full prog) - the "put nth part is the one to concentrate on.   
      
      
   cpu 8086 ;nth2g l 88 works!   
   org 0x100 ; use cwd  & cbw   
   ; via bl   
      
   blank equ 0x20   
   %define crlf 0x0D0A   
   start:    mov di,prtarea   
            push di             ; for prt at end   
             mov ax,0x4C00   
             mov bp,ax          ; setup exit   
             mov cx,031d        ; full mth test   
   nextday:   
             inc ax   
           push ax   
             call put2dec       ;' dD'  ; cx=0 flag for noldz   
   ; put nth                   ;      ah     |        al   
             mov si,thstrs      ; 30 31 32 33 | 30 31 32 33 34 35-39   
             xor ax,0x3130      ;  1  0  3  2 |  0  1  2  3  4 05-09   
             mov bl,al          ; save ix (bh=0)   
             add ax,0x7FFC      ; 80 7F 82 81 | FC FD FE FF  0 01-05   
             cwd                ; flag non-teen in dx   
             cbw                ; flag 0-3 in ah   
             and bl,dl          ; scrap teens   
             and bl,ah          ; scrap 4-9   
             shl bx,1           ; *2   
             add si,bx          ; pt to 'st' etc   
             movsw              ; 'th/st/nd/rd'   
   ; end put nth   
             mov al,blank       ; space it out   
             stosb   
            pop ax              ; get bin day num   
            push ax   
             aam 10             ; every 10th   
             jne nocrlf   
             mov ax,crlf        ; new line   
             stosw   
   nocrlf:   
           pop ax   
             loop nextday   
      
            pop dx              ; prt   
             mov ax,0x0924   
             stosb              ; put eos chr   
             int 0x21           ; prtstr   
             xchg ax,bp         ; exit   
             int 21h   
      
   ;Data   
   thstrs    db  'thstndrd'   
      
   ;Subrtns   
   put2dec:   ; I: al=2dig num; uses ax, cl di inc by 1 or 2   
             aam           ; zr if al=0, not ah, bah.   
             add cl,ah     ; cl=0 ==> no ld zr   
             jz noldz1   
             or ax,0x3030   
             cmp ah,0x30   
             jz noldz1   
             mov [di],ah   
             inc di   
   noldz1:   
             stosb   
   do_ret:   ret   
      
   prtarea equ $   
      
      
   >   
      
      
      
   --   
   Bah, and indeed, Humbug.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)