Chip 1998 July/Chip_1998-07_cd.bin/ctenari/Labyrint/DATA/FREE/SVATEK.RAR/SVATEK.O3

Text File | 1994-09-12 | 20KB | 802 lines

.model tiny
.code
org 100h

start:
       mov ah,2ah                 ; cti systemove datum
       int 21h
                                   ; ulozeni soucasneho data
       mov sden,dl                ; den
       mov smesic,dh              ; mesic
       mov srok,cx                ; rok
                                   ; datum na zjisteni svatku
       mov ndent,al               ; den v tydnu
       mov nden,dl                ; den
       mov nmesic,dh              ; mesic
       mov nrok,cx                ; rok

       mov ah,2fh                 ; cti pocatek DTA
       int 21h

       mov al,byte ptr es:[bx]    ; al - delka parametru
       cmp al,0                   ; zjisti je-li parametr
       je  preved                  ; neni-li jdi az na prevod

                                   ; je-li,tak ho preved na datum
mezery:
       inc bx                      ; posun na prvni znak parametru
       mov dl,byte ptr es:[bx]    ; je-li znak mezera,tak jeste nejsem na datumu
       cmp dl,20h
       je  mezery

       sub dl,30h                 ; Ord(znak v dl)
       cmp byte ptr es:[bx+1],'0' ; je-li nasledujici znak >= "0" pak mame den
       jae den2
mesic:
       mov nden,dl                ; nyni mame v nden den
       inc bx
       inc bx                      ; posun na 1 znak mesice


       mov dh,byte ptr es:[bx]    ; do dh znak na pozici es:[bx]
       sub dh,30h                 ; Ord(znak v dh)
       cmp byte ptr es:[bx+1],'0' ; je-li nasledujici znak >= "0" pak mame mesic
       jae mesic2
rok:
       mov nmesic,dh              ; nyni mame v nmesic mesic
       inc bx
       inc bx                      ; posun na 1 znak roku

       and word ptr es:[bx],0CFCFh
       and word ptr es:[bx+2],0CFCFh

       mov cl,byte ptr es:[bx]
       xor ch,ch
       mov bp,dx
       mov ax,3e8h
       mul cx                      ; * 1000
       mov cx,ax                  ; v cx nyni prvni cifra roku * 1000
       mov ax,64h
       mul byte ptr es:[bx+1]      ; * 100
       add cx,ax                  ; do cx nyni pridana 2. cifra roku * 100
       mov ax,0ah
       mul byte ptr es:[bx+2]      ; * 10
       add cx,ax                  ; do cx nyni pridana 3. cifra roku * 10
       mov al,byte ptr es:[bx+3]
       xor ah,ah
       add cx,ax                  ; a konecne i posledni cifra
       mov nrok,cx

       mov dx,bp
       mov ah,2bh                 ; nastavime systemove datum,
       int 21h                     ; abychom zjistili den v tydnu

       cmp al,0ffh
       jne zjisti
       jmp errdat

preved:                            ; at ten bordel vali
       mov al,'V'
       call wr_char

       mov al,ndent
       cmp al,3
       je  ve
       cmp al,4
       je  ve
       jmp v

den2:                              ; neprehledno, ale jump by nebyl near
       mov al,0ah
       mul dl                      ; * 10
       mov dl,al

       mov cl,byte ptr es:[bx+1]  ; do cl znak na pozici es:[bx+1]
       sub cl,30h                 ; Ord(znak v cl)
       add dl,cl                  ; 1. cifra * 10 + 2. cifra
       inc bx
       jmp mesic

mesic2:
       mov al,0ah
       mul dh                      ; * 10
       mov dh,al

       mov cl,byte ptr es:[bx+1]  ; do cl znak na pozici es:[bx+1]
       sub cl,30h                 ; Ord(znak v cl)
       add dh,cl
       inc bx
       jmp rok
zjisti:
       dec ah
       int 21h                     ; zjistime den v tydnu
       mov byte ptr ndent,al      ; a ulozime ho do ndent

       jmp zpet

ve:
       mov al,'e'
       call wr_char
v:
       mov al,' '
       call wr_char

       mov al,ndent
       cmp al,6                   ; sobota
       jl d1
       mov si,offset sobo
       jmp den



zpet:                              ; zase jeden bordel, ale zase kvuli jumpu
       inc ah
       mov dl,sden
       mov dh,smesic
       mov cx,srok
       int 21h                     ; a dame systemove datum pekne nazpet

       jmp preved
d1:
       cmp al,5                   ; patek
       jl d2
       mov si,offset pate
       jmp den
d2:
       cmp al,4                   ; ctvrtek
       jl d3
       mov si,offset ctvr
       jmp den
d3:
       cmp al,3                   ; streda
       jl d4
       mov si,offset stre
       jmp den
d4:
       cmp al,2                   ; utery
       jl d5
       mov si,offset uter
       jmp den
d5:
       cmp al,1                   ; pondeli
       jl d6
       mov si,offset pond
       jmp den
d6:
       mov si,offset nede         ; nedele
den:
       xor al,al
       call wr_str
       mov al,' '
       call wr_char

       mov dl,nden                ; v dl mame nas den
       mov al,dl
       mov dh,0ah
       xor ah,ah
       div dh                      ; / 10, v al jsou desitky dni
                                   ; v ah zbytek dni
       add ax,3030h               ; povisime z cisla na znak
       cmp al,30h                 ; byl-li den jednomistny piseme jen jednu cifru
       je  pisden
       call wr_char                ; vypis 1. znak dne
pisden:
       mov al,ah
       call wr_char                ; vypis 2. znaku dne

       mov al,'.'
       call wr_char                ; vypise tecku
       mov al,' '
       call wr_char                ; vypise tecku

       mov ah,9h
       mov al,nmesic              ; v al mam nas mesic
       cmp al,0ch                 ; prosinec
       jl  m1
       mov si,offset pros
       jmp mes
m1:
       cmp al,0bh                 ; listopad
       jl m2
       mov si,offset list
       jmp mes
m2:
       cmp al,0ah                 ; rijen
       jl m3
       mov si,offset rije
       jmp mes
m3:
       cmp al,9                   ; zari
       jl m4
       mov si,offset zari
       jmp mes
m4:
       cmp al,8                   ; srpen
       jl m5
       mov si,offset srpe
       jmp mes
m5:
       cmp al,7                   ; cervenec
       jl m6
       mov si,offset cnec
       jmp mes
m6:
       cmp al,6                   ; cerven
       jl m7
       mov si,offset cerv
       jmp mes
m7:
       cmp al,5                   ; kveten
       jl m8
       mov si,offset kvet
       jmp mes
m8:
       cmp al,4                   ; duben
       jl m9
       mov si,offset dube
       jmp mes
m9:
       cmp al,3                   ; brezen
       jl m10
       mov si,offset brez
       jmp mes
m10:
       cmp al,2                   ; unor
       jl m11
       mov si,offset unor
       jmp mes
m11:
       mov si,offset lede         ; leden
mes:
       mov bp,si
       mov al,[si]
       xor ah,ah
       add bp,ax
       xor al,al
       call wr_str                 ; vypise mesic
       mov al,20h
       call wr_char                ; pridame mezeru
       mov ax,nrok                ; trosku zmatku, ale rok vypsat musim
       mov cx,64h
       xor dx,dx
       div cx                      ; / 100, ziskame 1. a 2. dve cifry
       mov es,dx                  ; do es 1. dve cifry
       aam
       xchg al,ah
       or ax,3030h

       call wr_char
       mov  al,ah
       call wr_char                ; a konecne vypiseme

       mov ax,es
       aam
       xchg al,ah
       or ax,3030h

       call wr_char
       mov  al,ah
       call wr_char                ; a konecne vypiseme zbytek

       mov al,0ch
       xor ah,ah
       mov bl,nden
       dec bl
       mul bl                      ; v ax kolik pripocist k offsetu abych byl dobre

       mov si,bp
       inc ax
       add si,ax
       mov al,byte ptr ds:[si]

       cmp al,20h
       je  pis_nema                 ; nema nikdo svatek
       cmp al,'*'
       jne pis_ma
       mov si,word ptr ds:[si+10]   ; nepis svatek, ale vyznamny den
       jmp short pis_info
pis_ma:
       push si
       xor al,al
       mov si,offset txt
       call wr_str
       pop si
       mov bx,si
       add bx,0Bh
rtrim:
       cmp byte ptr ds:[bx],' '
       jne tecku
       dec bx
       jmp short rtrim
tecku:
       sub bx,si
       xchg bx,ax
       inc ax
       call wr_str
       mov al,'.'
       call wr_char
       jmp short pis_vse
pis_nema:
       mov si,offset nema
pis_info:
       xor al,al
       call wr_str
pis_vse:
       call wr_line
konec:
       mov ax,4c00h
       int 21h

errdat:
       mov si,offset error
       xor al,al
       call wr_str
       jmp short pis_vse

sden   db ?
smesic db ?
srok   dw ?
ndent  db ?
nden   db ?
nmesic db ?
nrok   dw ?
nema   db 19,' nemá nikdo svátek.'
txt    db 11,' má svátek '
error  db 69,13,'Chybn╪ zadané datum (má b∞t nap². 24.2.1994 nebo t²eba 24/06/1994) !'
nede   db 6,'ned╪li'
pond   db 7,'pond╪lí'
uter   db 5,'úter∞'
stre   db 6,'st²edu'
ctvr   db 7,'ƒtvrtek'
pate   db 5,'pátek'
sobo   db 6,'sobotu'

lede   db 5,'ledna'

       db '*         '   ; novy rok
          dw offset dv_novy
       db 'Karina      '
       db 'Radmila     '
       db 'Diana       '
       db 'Dalimil     '
       db '*         '   ; tri kralove
          dw offset dv_trik
       db 'Vilma       '
       db '¼estmír     '
       db 'Vladan      '
       db 'B²etislav   '
       db 'Bohdana     '
       db 'Pravoslav   '
       db 'Edita       '
       db 'Radovan     '
       db 'Alice       '
       db 'Ctirad      '
       db 'Drahoslav   '
       db 'Vladislav   '
       db 'Doubravka   '
       db 'Ilona       '
       db 'Bela        '
       db 'Slavomír    '
       db 'Zden╪k      '
       db 'Milena      '
       db 'Miloτ       '
       db 'Zora        '
       db 'Ingrid      '
       db 'Ot∞lie      '
       db 'Zdislava    '
       db 'Robin       '
       db 'Marika      '

unor   db 5,'února'

       db 'Hynek       '
       db 'Nela        '
       db 'Blaºej      '
       db 'Jarmila     '
       db 'Dobromila   '
       db 'Vanda       '
       db 'Veronika    '
       db 'Milada      '
       db 'Apolena     '
       db 'Mojmír      '
       db 'Boºena      '
       db 'Slav╪na     '
       db 'V╪nceslav   '
       db 'Valent∞n    '
       db 'Ji²ina      '
       db 'Ljuba       '
       db 'Miloslava   '
       db 'Gizela      '
       db 'Patrik      '
       db 'Old²ich     '
       db 'Lenka       '
       db 'Petr        '
       db 'Svatopluk   '
       db 'Mat╪j       '
       db '            '
       db 'Dora        '
       db 'Alexandr    '
       db 'Lumír       '
       db 'Albín       '

brez   db 6,'b²ezna'

       db 'Bed²ich     '
       db 'Aneºka      '
       db 'Kamil       '
       db 'Stela       '
       db 'Kazimír     '
       db 'Miroslav    '
       db 'Tomáτ       '
       db 'Gabriela    '
       db 'Frantiτka   '
       db 'Viktorie    '
       db 'And╪la      '
       db 'Rehor       '
       db 'Ràºena      '
       db 'Matylda     '
       db 'Ida         '
       db 'Amos        '
       db 'Vlastimil   '
       db 'Eduard      '
       db 'Josef       '
       db 'Sv╪tlana    '
       db 'Radek       '
       db 'Leona       '
       db 'Ivona       '
       db 'Gabriel     '
       db 'Marian      '
       db 'Emanuel     '
       db 'Dita        '
       db 'Soσa        '
       db 'Ta£ána      '
       db 'Arnoτt      '
       db 'Kvído       '

dube   db 5,'dubna'

       db 'Hugo        '
       db 'Erika       '
       db 'Richard     '
       db 'Ivana       '
       db 'Miroslava   '
       db 'Vendula     '
       db 'Herman      '
       db 'Ema         '
       db 'Duτan       '
       db 'Darja       '
       db 'Izabela     '
       db 'Julius      '
       db 'Aleτ        '
       db 'Vincenc     '
       db 'Anastázie   '
       db 'Irena       '
       db 'Rudolf      '
       db 'Valerie     '
       db '            '
       db '            '
       db 'Alexandra   '
       db 'Evºenie     '
       db 'Vojt╪ch     '
       db 'Ji²í        '
       db 'Marek       '
       db 'Oto         '
       db 'Jaroslav    '
       db 'Vlastislav  '
       db 'Robert      '
       db 'Blahoslav   '

kvet   db 6,'kv╪tna'

       db '            '
       db 'Zikmund     '
       db 'Alexej      '
       db 'Kv╪toslav   '
       db '            '
       db 'Radoslav    '
       db 'Stanislav   '
       db 'Ctibor      '
       db '            '
       db 'Blaºena     '
       db 'Svatava     '
       db 'Pankrác     '
       db 'Servác      '
       db 'Bonifác     '
       db 'ªofie       '
       db 'Premysl     '
       db 'Aneta       '
       db 'Nataτa      '
       db 'Ivo         '
       db 'Zbyτek      '
       db 'Monika      '
       db 'Emil        '
       db 'Vladimír    '
       db 'Jana        '
       db 'Viola       '
       db 'Filip       '
       db 'Valdemar    '
       db 'Vilém       '
       db 'Maxim       '
       db 'Ferdinand   '
       db 'Kamila      '

cerv   db 6,'ƒervna'

       db 'Laura       '
       db 'Jarmil      '
       db 'Tamara      '
       db 'Dalibor     '
       db 'Dobroslav   '
       db 'Norbert     '
       db 'Iveta       '
       db 'Medard      '
       db 'Stanislava  '
       db 'Gita        '
       db 'Flora       '
       db 'Antonie     '
       db 'Antonín     '
       db 'Vasil       '
       db 'Vít         '
       db 'Zbyn╪k      '
       db 'Adolf       '
       db 'Milan       '
       db 'Leoτ        '
       db 'Kv╪ta       '
       db 'Alois       '
       db 'Pavla       '
       db 'Zdeσka      '
       db 'Jan         '
       db 'Ivan        '
       db 'Adriana     '
       db 'Ladislav    '
       db 'Lubomír     '
       db 'Petr a Pavel'
       db 'µárka       '

cnec   db 8,'ƒervence'

       db 'Jaroslava   '
       db 'Patricie    '
       db 'Radomír     '
       db 'Prokop      '
       db 'Cyril       '
       db '            '
       db 'Bohuslava   '
       db 'Nora        '
       db 'Drahoslava  '
       db 'Libuτe      '
       db 'Olga        '
       db 'Borek       '
       db 'Markéta     '
       db 'Karolína    '
       db 'Jind²ich    '
       db 'Luboτ       '
       db 'Martina     '
       db 'Drahomíra   '
       db '¼enek       '
       db 'Ilja        '
       db 'Vít╪zslav   '
       db 'Magdalena   '
       db 'Libor       '
       db 'Krist∞na    '
       db 'Jakub       '
       db 'Anna        '
       db 'V╪roslav    '
       db 'Viktor      '
       db 'Marta       '
       db 'Bo²ivoj     '
       db 'Ignác       '

srpe   db 5,'srpna'

       db 'Oskar       '
       db 'Gustav      '
       db 'Miluτe      '
       db 'Dominik     '
       db 'Milivoj     '
       db 'Old²iτka    '
       db 'Lada        '
       db 'Sob╪slav    '
       db 'Roman       '
       db 'Vav²inec    '
       db 'Zuzana      '
       db 'Klára       '
       db 'Alena       '
       db 'Alan        '
       db 'Hana        '
       db 'Jáchym      '
       db 'Petra       '
       db 'Helena      '
       db 'Ludvík      '
       db 'Bernard     '
       db 'Johana      '
       db 'Bohuslav    '
       db 'Sandra      '
       db 'Bartolom╪j  '
       db 'Radim       '
       db 'Lud╪k       '
       db 'Otakar      '
       db 'August∞n    '
       db '            '
       db 'µt╪pán      '
       db 'Pavlína     '

zari   db 4,'zá²í'

       db 'Linda       '
       db 'Adela       '
       db 'Bronislav   '
       db 'Jind²iska   '
       db 'Boris       '
       db 'Boleslav    '
       db 'Regina      '
       db 'Mariana     '
       db 'Daniela     '
       db 'Irma        '
       db 'Denisa      '
       db 'Marie       '
       db 'Lubor       '
       db 'Radka       '
       db 'Jolana      '
       db 'Ludmil      '
       db 'Nadeºda     '
       db 'Kryτtof     '
       db 'Zita        '
       db 'Oleg        '
       db 'Matouτ      '
       db 'Darina      '
       db 'Berta       '
       db 'Jaromír     '
       db 'Zlata       '
       db 'Andrea      '
       db 'Jonas       '
       db 'Václav      '
       db 'Michal      '
       db 'Jeron∞m     '

rije   db 5,'²íjna'

       db 'Igor        '
       db 'Galina      '
       db 'Bohumil     '
       db 'Frantiτek   '
       db 'Eliτka      '
       db 'Hanus       '
       db 'Sergej      '
       db 'V╪ra        '
       db 'µtefan      '
       db 'Marina      '
       db 'Andrej      '
       db 'Marcel      '
       db 'Renata      '
       db '            '
       db 'Tereza      '
       db 'Havel       '
       db 'Hedvika     '
       db 'Lukáτ       '
       db 'Michaela    '
       db 'Vendelín    '
       db 'Brigita     '
       db 'Sabina      '
       db 'Teodor      '
       db 'Nina        '
       db 'Beata       '
       db 'Erik        '
       db 'Zoja        '
       db '            '
       db 'Silvie      '
       db 'Tadeáτ      '
       db 'µt╪pánka    '

list   db 9,'listopadu'

       db 'Felix       '
       db '            '
       db 'Hubert      '
       db 'Karel       '
       db 'Miriam      '
       db 'Libena      '
       db '            '
       db 'Bohumir     '
       db 'Bohdan      '
       db 'Evºen       '
       db 'Martin      '
       db 'Benedikt    '
       db 'Tibor       '
       db 'Sava        '
       db 'Leopold     '
       db 'Otmar       '
       db 'Mahulena    '
       db 'Romana      '
       db 'Alºb╪ta     '
       db 'Nikola      '
       db 'Albert      '
       db 'Cecílie     '
       db 'Klement     '
       db 'Emilie      '
       db 'Kate²ina    '
       db 'Artur       '
       db 'Xénie       '
       db 'René        '
       db 'Zina        '
       db 'Ond²ej      '

pros   db 8,'prosince'

       db 'Iva         '
       db 'Blanka      '
       db 'Svatoslav   '
       db 'Barbora     '
       db 'Jitka       '
       db 'Mikuláτ     '
       db 'Anbroz      '
       db 'Kv╪toslava  '
       db 'Vratislav   '
       db 'Julie       '
       db 'Dana        '
       db 'Simona      '
       db 'Lucie       '
       db 'Lydie       '
       db 'Radana      '
       db 'Albina      '
       db 'Daniel      '
       db 'Miloslav    '
       db 'Ester       '
       db 'Dagmar      '
       db 'Natálie     '
       db 'Simon       '
       db 'Vlasta      '
       db 'Adam a Eva  '
       db '*         '          ; 1.svatek vanocni
          dw offset dv_1vano
       db '*         '          ; 2.svatek vanocni
          dw offset dv_2vano
       db 'Zaneta      '
       db 'Bohumila    '
       db 'Judita      '
       db 'David       '
       db 'Silvestr    '

dv_novy   db 13,' je Nov∞ rok.'
dv_trik   db 18,' jsou T²i králové.'
dv_1vano  db 22,' je 1. svátek vánoƒní.'
dv_2vano  db 22,' je 2. svátek vánoƒní.'

wr_char:
  mov  di,col
  mov  radka[di],al
  inc  di
  mov  col,di
  retn

wr_str:
  cld
  or   al,al
  jnz  wr01
  lodsb
wr01:
  xor  ah,ah
  xchg ax,cx
wr02:
  lodsb
  call wr_char
  loop wr02
  retn

wr_line:
  mov  al,13
  call wr_char
  mov  al,10
  call wr_char
  mov  al,'$'
  call wr_char
  mov  ah,9
  mov  dx,offset radka
  int  21h
  retn

col    dw 0
radka  db 0

end start