digi_clock.asm

;****************************************************************************
;* DIGI_CLOCK.ASM                                                           *
;* - Piirtää ruutuun kellon, joka lukee ajan DOS-funktiolla 2Ch             *
;* - Käy ja kukkuu nykien mutta kuitenkin toimii, lopetus hankalaa          *
;* Author: Kimmo Fonsell                                                    *
;* Target compiler: TASM v5.0 running in MS-DOS                             *
;*                                                                          *
;****************************************************************************

;*******************************************
;*                                         *
;*            Näyttötilan vaihto           *
;*                                         *
;*******************************************

vaihdatila MACRO tila
   mov ah,00h
   mov al,tila
   int 10h
ENDM

GRAFIIKKATILA equ 18

;*******************************************
;*                                         *
;*      Lukujen vaakaviivojen piirto       *
;*                                         *
;*******************************************

vaakaviiva MACRO rivi,vasen,pituus
local alku
   mov ah,12
   mov cx,pituus
   mov dx,rivi
   alku:
     push cx
     add cx,vasen
     int 10h
     pop cx
   loop alku
ENDM

;*******************************************
;*                                         *
;*      Lukujen pystyviivojen piirto       *
;*                                         *
;*******************************************

pystyviiva MACRO sarake,ylin,pituus
local alku
   mov ah,12
   mov cx,pituus
   mov dx,ylin
   alku:
     push cx
     push dx
     add dx,cx
     mov cx,sarake
     int 10h
     pop dx
     pop cx
   loop alku
ENDM


.MODEL small
.386
.STACK 1000
.DATA
   tunti 	db (?)
   minuutti 	db (?)
   sekuntti  	db (?)
   sadasosa	db (?)

.CODE
start:
mov ax,@data
mov ds,ax

alku:

call aika

cmp dl,55h                          ;verrataan vaihtuuko sekuntti
jle alku

vaihdatila GRAFIIKKATILA            ;vaihdetaan grafiikka tila 640x480 16 väri
mov al,1                            ;lukujen väritys onpi nyt sininen

;*******************************************
;*                                         *
;*         kellonäytön kehykset            *
;*                                         *
;*******************************************

pystyviiva 40,80,40
pystyviiva 120,80,40
vaakaviiva 80,40,80
vaakaviiva 120,40,80

;*******************************************
;*                                         *
;*         sekunnit 00:sta 59:ään          *
;*                                         *
;*******************************************

se00:

cmp sekuntti,00h
jne se01

pystyviiva 95,99,3
pystyviiva 95,102,3
pystyviiva 90,99,3			;0
pystyviiva 90,102,3
vaakaviiva 99,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;0
pystyviiva 100,102,3
vaakaviiva 99,99,6
vaakaviiva 105,99,6
jmp mi00

se01:
cmp sekuntti,01h
jne se02

pystyviiva 95,99,3
pystyviiva 95,102,3
pystyviiva 90,99,3			;0
pystyviiva 90,102,3
vaakaviiva 99,89,6
vaakaviiva 105,89,6

pystyviiva 105,98,7			;1
jmp mi00

se02:
cmp sekuntti,02h
jne se03

pystyviiva 95,99,3
pystyviiva 95,102,3
pystyviiva 90,99,3			;0
pystyviiva 90,102,3
vaakaviiva 99,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 100,102,3 		;2
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se03:
cmp sekuntti,03h
jne se04

pystyviiva 95,99,3
pystyviiva 95,102,3
pystyviiva 90,99,3			;0
pystyviiva 90,102,3
vaakaviiva 99,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3		;3
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se04:
cmp sekuntti,04h
jne se05

pystyviiva 95,99,3
pystyviiva 95,102,3
pystyviiva 90,99,3			;0
pystyviiva 90,102,3
vaakaviiva 99,89,6
vaakaviiva 105,89,6

pystyviiva 100,98,4
pystyviiva 105,102,3		;4
pystyviiva 105,98,4
vaakaviiva 102,99,6
jmp mi00

se05:
cmp sekuntti,05h
jne se06

pystyviiva 95,99,3
pystyviiva 95,102,3
pystyviiva 90,99,3			;0
pystyviiva 90,102,3
vaakaviiva 99,89,6
vaakaviiva 105,89,6

pystyviiva 105,102,3
pystyviiva 100,99,3 		;5
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se06:
cmp sekuntti,06h
jne se07

pystyviiva 95,99,3
pystyviiva 95,102,3
pystyviiva 90,99,3			;0
pystyviiva 90,102,3
vaakaviiva 99,89,6
vaakaviiva 105,89,6

pystyviiva 105,102,3
pystyviiva 100,98,4 		;6
pystyviiva 100,102,3
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se07:
cmp sekuntti,07h
jne se08

pystyviiva 95,99,3
pystyviiva 95,102,3
pystyviiva 90,99,3			;0
pystyviiva 90,102,3
vaakaviiva 99,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3		;7
vaakaviiva 99,99,6
jmp mi00

se08:
cmp sekuntti,08h
jne se09

pystyviiva 95,99,3
pystyviiva 95,102,3
pystyviiva 90,99,3			;0
pystyviiva 90,102,3
vaakaviiva 99,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;8
pystyviiva 100,102,3
vaakaviiva 99,99,6
vaakaviiva 105,99,6
vaakaviiva 102,99,6
jmp mi00

se09:
cmp sekuntti,09h
jne se10

pystyviiva 95,99,3
pystyviiva 95,102,3
pystyviiva 90,99,3			;0
pystyviiva 90,102,3
vaakaviiva 99,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;9
vaakaviiva 99,99,6
vaakaviiva 102,99,6
jmp mi00

se10:
cmp sekuntti,0Ah
jne se11

pystyviiva 95,98,7			;1

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;0
pystyviiva 100,102,3
vaakaviiva 99,99,6
vaakaviiva 105,99,6
jmp mi00

se11:
cmp sekuntti,0Bh
jne se12

pystyviiva 95,98,7			;1

pystyviiva 105,98,7			;1
jmp mi00

se12:
cmp sekuntti,0Ch
jne se13

pystyviiva 95,98,7			;1

pystyviiva 105,99,3
pystyviiva 100,102,3 		;2
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se13:
cmp sekuntti,0Dh
jne se14

pystyviiva 95,98,7			;1


pystyviiva 105,99,3
pystyviiva 105,102,3		;3
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se14:
cmp sekuntti,0Eh
jne se15

pystyviiva 95,98,7			;1

pystyviiva 100,98,4
pystyviiva 105,102,3		;4
pystyviiva 105,98,4
vaakaviiva 102,99,6
jmp mi00

se15:
cmp sekuntti,0Fh
jne se16

pystyviiva 95,98,7			;1

pystyviiva 105,102,3
pystyviiva 100,99,3 		;5
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se16:
cmp sekuntti,10h
jne se17

pystyviiva 95,98,7			;1

pystyviiva 105,102,3
pystyviiva 100,98,4 		;6
pystyviiva 100,102,3
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se17:
cmp sekuntti,11h
jne se18

pystyviiva 95,98,7			;1

pystyviiva 105,99,3
pystyviiva 105,102,3		;7
vaakaviiva 99,99,6
jmp mi00

se18:
cmp sekuntti,12h
jne se19

pystyviiva 95,98,7			;1

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;8
pystyviiva 100,102,3
vaakaviiva 99,99,6
vaakaviiva 105,99,6
vaakaviiva 102,99,6
jmp mi00

se19:
cmp sekuntti,13h
jne se20

pystyviiva 95,98,7			;1

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;9
vaakaviiva 99,99,6
vaakaviiva 102,99,6
jmp mi00

se20:
cmp sekuntti,14h
jne se21

pystyviiva 95,99,3
pystyviiva 90,102,3 		;2
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;0
pystyviiva 100,102,3
vaakaviiva 99,99,6
vaakaviiva 105,99,6
jmp mi00

se21:
cmp sekuntti,15h
jne se22

pystyviiva 95,99,3
pystyviiva 90,102,3 		;2
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,98,7			;1

jmp mi00

se22:
cmp sekuntti,16h
jne se23

pystyviiva 95,99,3
pystyviiva 90,102,3 		;2
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 100,102,3 		;2
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se23:
cmp sekuntti,17h
jne se24

pystyviiva 95,99,3
pystyviiva 90,102,3 		;2
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3		;3
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se24:
cmp sekuntti,18h
jne se25
pystyviiva 95,99,3
pystyviiva 90,102,3 		;2
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 100,98,4
pystyviiva 105,102,3		;4
pystyviiva 105,98,4
vaakaviiva 102,99,6
jmp mi00

se25:
cmp sekuntti,19h
jne se26
pystyviiva 95,99,3
pystyviiva 90,102,3 		;2
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,102,3
pystyviiva 100,99,3 		;5
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se26:
cmp sekuntti,1Ah
jne se27
pystyviiva 95,99,3
pystyviiva 90,102,3 		;2
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,102,3
pystyviiva 100,98,4 		;6
pystyviiva 100,102,3
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se27:
cmp sekuntti,1Bh
jne se28
pystyviiva 95,99,3
pystyviiva 90,102,3 		;2
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3		;7
vaakaviiva 99,99,6
jmp mi00

se28:
cmp sekuntti,1Ch
jne se29
pystyviiva 95,99,3
pystyviiva 90,102,3 		;2
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;8
pystyviiva 100,102,3
vaakaviiva 99,99,6
vaakaviiva 105,99,6
vaakaviiva 102,99,6
jmp mi00

se29:
cmp sekuntti,1Dh
jne se30
pystyviiva 95,99,3
pystyviiva 90,102,3 		;2
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;9
vaakaviiva 99,99,6
vaakaviiva 102,99,6
jmp mi00

se30:
cmp sekuntti,1Eh
jne se31

pystyviiva 95,99,3
pystyviiva 95,102,3			;3
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;0
pystyviiva 100,102,3
vaakaviiva 99,99,6
vaakaviiva 105,99,6
jmp mi00

se31:
cmp sekuntti,1Fh
jne se32

pystyviiva 95,99,3
pystyviiva 95,102,3			;3
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,98,7			;1
jmp mi00

se32:
cmp sekuntti,20h
jne se33

pystyviiva 95,99,3
pystyviiva 95,102,3			;3
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 100,102,3 		;2
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se33:
cmp sekuntti,21h
jne se34

pystyviiva 95,99,3
pystyviiva 95,102,3			;3
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3		;3
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se34:
cmp sekuntti,22h
jne se35

pystyviiva 95,99,3
pystyviiva 95,102,3			;3
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 100,98,4
pystyviiva 105,102,3		;4
pystyviiva 105,98,4
vaakaviiva 102,99,6
jmp mi00

se35:
cmp sekuntti,23h
jne se36

pystyviiva 95,99,3
pystyviiva 95,102,3			;3
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,102,3
pystyviiva 100,99,3 		;5
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se36:
cmp sekuntti,24h
jne se37
pystyviiva 95,99,3
pystyviiva 95,102,3			;3
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,102,3
pystyviiva 100,98,4 		;6
pystyviiva 100,102,3
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se37:
cmp sekuntti,25h
jne se38
pystyviiva 95,99,3
pystyviiva 95,102,3			;3
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3		;7
vaakaviiva 99,99,6
jmp mi00

se38:
cmp sekuntti,26h
jne se39
pystyviiva 95,99,3
pystyviiva 95,102,3			;3
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;8
pystyviiva 100,102,3
vaakaviiva 99,99,6
vaakaviiva 105,99,6
vaakaviiva 102,99,6
jmp mi00

se39:
cmp sekuntti,27h
jne se40
pystyviiva 95,99,3
pystyviiva 95,102,3			;3
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;9
vaakaviiva 99,99,6
vaakaviiva 102,99,6
jmp mi00

se40:
cmp sekuntti,28h
jne se41

pystyviiva 90,98,4
pystyviiva 95,102,3			;4
pystyviiva 95,98,4
vaakaviiva 102,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;0
pystyviiva 100,102,3
vaakaviiva 99,99,6
vaakaviiva 105,99,6
jmp mi00

se41:
cmp sekuntti,29h
jne se42

pystyviiva 90,98,4
pystyviiva 95,102,3			;4
pystyviiva 95,98,4
vaakaviiva 102,89,6

pystyviiva 105,98,7			;1
jmp mi00

se42:
cmp sekuntti,2Ah
jne se43
pystyviiva 90,98,4
pystyviiva 95,102,3			;4
pystyviiva 95,98,4
vaakaviiva 102,89,6

pystyviiva 105,99,3
pystyviiva 100,102,3 		;2
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se43:
cmp sekuntti,2Bh
jne se44
pystyviiva 90,98,4
pystyviiva 95,102,3			;4
pystyviiva 95,98,4
vaakaviiva 102,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3		;3
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se44:
cmp sekuntti,2Ch
jne se45

pystyviiva 90,98,4
pystyviiva 95,102,3			;4
pystyviiva 95,98,4
vaakaviiva 102,89,6

pystyviiva 100,98,4
pystyviiva 105,102,3		;4
pystyviiva 105,98,4
vaakaviiva 102,99,6
jmp mi00

se45:
cmp sekuntti,2Dh
jne se46
pystyviiva 90,98,4
pystyviiva 95,102,3			;4
pystyviiva 95,98,4
vaakaviiva 102,89,6

pystyviiva 105,102,3
pystyviiva 100,99,3 		;5
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se46:
cmp sekuntti,2Eh
jne se47
pystyviiva 90,98,4
pystyviiva 95,102,3			;4
pystyviiva 95,98,4
vaakaviiva 102,89,6

pystyviiva 105,102,3
pystyviiva 100,98,4 		;6
pystyviiva 100,102,3
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se47:
cmp sekuntti,2Fh
jne se48

pystyviiva 90,98,4
pystyviiva 95,102,3			;4
pystyviiva 95,98,4
vaakaviiva 102,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3		;7
vaakaviiva 99,99,6
jmp mi00

se48:
cmp sekuntti,30h
jne se49
pystyviiva 90,98,4
pystyviiva 95,102,3			;4
pystyviiva 95,98,4
vaakaviiva 102,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;8
pystyviiva 100,102,3
vaakaviiva 99,99,6
vaakaviiva 105,99,6
vaakaviiva 102,99,6
jmp mi00

se49:
cmp sekuntti,31h
jne se50
pystyviiva 90,98,4
pystyviiva 95,102,3			;4
pystyviiva 95,98,4
vaakaviiva 102,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;9
vaakaviiva 99,99,6
vaakaviiva 102,99,6
jmp mi00

se50:
cmp sekuntti,32h
jne se51
pystyviiva 95,102,3
pystyviiva 90,99,3 			;5
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;0
pystyviiva 100,102,3
vaakaviiva 99,99,6
vaakaviiva 105,99,6
jmp mi00

se51:
cmp sekuntti,33h
jne se52
pystyviiva 95,102,3
pystyviiva 90,99,3 			;5
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,98,7			;1
jmp mi00

se52:
cmp sekuntti,34h
jne se53
pystyviiva 95,102,3
pystyviiva 90,99,3 			;5
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 100,102,3 		;2
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se53:
cmp sekuntti,35h
jne se54

pystyviiva 95,102,3
pystyviiva 90,99,3 			;5
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3		;3
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se54:
cmp sekuntti,36h
jne se55
pystyviiva 95,102,3
pystyviiva 90,99,3 			;5
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 100,98,4
pystyviiva 105,102,3		;4
pystyviiva 105,98,4
vaakaviiva 102,99,6
jmp mi00

se55:
cmp sekuntti,37h
jne se56
pystyviiva 95,102,3
pystyviiva 90,99,3 			;5
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,102,3
pystyviiva 100,99,3 		;5
vaakaviiva 99,99,6
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se56:
cmp sekuntti,38h
jne se57

pystyviiva 95,102,3
pystyviiva 90,99,3 			;5
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,102,3
pystyviiva 100,98,4 		;6
pystyviiva 100,102,3
vaakaviiva 102,99,6
vaakaviiva 105,99,6
jmp mi00

se57:
cmp sekuntti,39h
jne se58
pystyviiva 95,102,3
pystyviiva 90,99,3 			;5
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3		;7
vaakaviiva 99,99,6
jmp mi00

se58:
cmp sekuntti,3Ah
jne se59
pystyviiva 95,102,3
pystyviiva 90,99,3 			;5
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;8
pystyviiva 100,102,3
vaakaviiva 99,99,6
vaakaviiva 105,99,6
vaakaviiva 102,99,6
jmp mi00

se59:
cmp sekuntti,3Bh
jne se00
pystyviiva 95,102,3
pystyviiva 90,99,3 			;5
vaakaviiva 99,89,6
vaakaviiva 102,89,6
vaakaviiva 105,89,6

pystyviiva 105,99,3
pystyviiva 105,102,3
pystyviiva 100,99,3			;9
vaakaviiva 99,99,6
vaakaviiva 102,99,6
jmp mi00

;*******************************************
;*                                         *
;*         minuutit 00:sta 59:ään          *
;*                                         *
;*******************************************

mi00:

;cmp minuutti,00h
jne mi01

pystyviiva 75,99,3
pystyviiva 75,102,3
pystyviiva 70,99,3			;0
pystyviiva 70,102,3
vaakaviiva 99,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;0
pystyviiva 80,102,3
vaakaviiva 99,79,6
vaakaviiva 105,79,6
jmp tu00


mi01:
cmp minuutti,01h
jne mi02

pystyviiva 75,99,3
pystyviiva 75,102,3
pystyviiva 70,99,3			;0
pystyviiva 70,102,3
vaakaviiva 99,69,6
vaakaviiva 105,69,6

pystyviiva 85,98,7			;1
jmp tu00

mi02:
cmp minuutti,02h
jne mi03

pystyviiva 75,99,3
pystyviiva 75,102,3
pystyviiva 70,99,3			;0
pystyviiva 70,102,3
vaakaviiva 99,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 80,102,3 		;2
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi03:
cmp minuutti,03h
jne mi04

pystyviiva 75,99,3
pystyviiva 75,102,3
pystyviiva 70,99,3			;0
pystyviiva 70,102,3
vaakaviiva 99,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3			;3
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi04:
cmp minuutti,04h
jne mi05

pystyviiva 75,99,3
pystyviiva 75,102,3
pystyviiva 70,99,3			;0
pystyviiva 70,102,3
vaakaviiva 99,69,6
vaakaviiva 105,69,6

pystyviiva 85,98,4
pystyviiva 85,102,3			;4
pystyviiva 85,98,4
vaakaviiva 102,79,6
jmp tu00

mi05:
cmp minuutti,05h
jne mi06

pystyviiva 75,99,3
pystyviiva 75,102,3
pystyviiva 70,99,3			;0
pystyviiva 70,102,3
vaakaviiva 99,69,6
vaakaviiva 105,69,6

pystyviiva 85,102,3
pystyviiva 80,99,3 			;5
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi06:
cmp minuutti,06h
jne mi07

pystyviiva 75,99,3
pystyviiva 75,102,3
pystyviiva 70,99,3			;0
pystyviiva 70,102,3
vaakaviiva 99,69,6
vaakaviiva 105,69,6

pystyviiva 85,102,3
pystyviiva 80,98,4 			;6
pystyviiva 80,102,3
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi07:
cmp minuutti,07h
jne mi08

pystyviiva 75,99,3
pystyviiva 75,102,3
pystyviiva 70,99,3			;0
pystyviiva 70,102,3
vaakaviiva 99,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3			;7
vaakaviiva 99,79,6
jmp tu00

mi08:
cmp minuutti,08h
jne mi09

pystyviiva 75,99,3
pystyviiva 75,102,3
pystyviiva 70,99,3			;0
pystyviiva 70,102,3
vaakaviiva 99,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;8
pystyviiva 80,102,3
vaakaviiva 99,79,6
vaakaviiva 105,79,6
vaakaviiva 102,79,6
jmp tu00

mi09:
cmp minuutti,09h
jne mi10

pystyviiva 75,99,3
pystyviiva 75,102,3
pystyviiva 70,99,3			;0
pystyviiva 70,102,3
vaakaviiva 99,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;9
vaakaviiva 99,79,6
vaakaviiva 102,79,6
jmp tu00

mi10:
cmp minuutti,0Ah
jne mi11

pystyviiva 75,98,7			;1

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;0
pystyviiva 80,102,3
vaakaviiva 99,79,6
vaakaviiva 105,79,6
jmp tu00

mi11:
cmp minuutti,0Bh
jne mi12

pystyviiva 75,98,7			;1

pystyviiva 85,98,7			;1

jmp tu00

mi12:
cmp minuutti,0Ch
jne mi13

pystyviiva 75,98,7			;1

pystyviiva 85,99,3
pystyviiva 80,102,3 		;2
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi13:
cmp minuutti,0Dh
jne mi14

pystyviiva 75,98,7			;1

pystyviiva 85,99,3
pystyviiva 85,102,3			;3
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi14:
cmp minuutti,0Eh
jne mi15

pystyviiva 75,98,7			;1

pystyviiva 85,98,4
pystyviiva 85,102,3			;4
pystyviiva 80,98,4
vaakaviiva 102,79,6
jmp tu00

mi15:
cmp minuutti,0Fh
jne mi16

pystyviiva 75,98,7			;1

pystyviiva 85,102,3
pystyviiva 80,99,3 			;5
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi16:
cmp minuutti,10h
jne mi17

pystyviiva 75,98,7			;1

pystyviiva 85,102,3
pystyviiva 80,98,4 			;6
pystyviiva 80,102,3
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi17:
cmp minuutti,11h
jne mi18

pystyviiva 75,98,7			;1

pystyviiva 85,99,3
pystyviiva 85,102,3			;7
vaakaviiva 99,79,6
jmp tu00

mi18:
cmp minuutti,12h
jne mi19

pystyviiva 75,98,7			;1

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;8
pystyviiva 80,102,3
vaakaviiva 99,79,6
vaakaviiva 105,79,6
vaakaviiva 102,79,6
jmp tu00

mi19:
cmp minuutti,13h
jne mi20

pystyviiva 75,98,7			;1

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;9
vaakaviiva 99,79,6
vaakaviiva 102,79,6
jmp tu00

mi20:
cmp minuutti,14h
jne mi21

pystyviiva 75,99,3
pystyviiva 70,102,3 		;2
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;0
pystyviiva 80,102,3
vaakaviiva 99,79,6
vaakaviiva 105,79,6
jmp tu00

mi21:
cmp minuutti,15h
jne mi22

pystyviiva 75,99,3
pystyviiva 70,102,3 		;2
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,98,7			;1
jmp tu00

mi22:
cmp minuutti,16h
jne mi23

pystyviiva 75,99,3
pystyviiva 70,102,3 		;2
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 80,102,3 		;2
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi23:
cmp minuutti,17h
jne mi24

pystyviiva 75,99,3
pystyviiva 70,102,3 		;2
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3			;3
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi24:
cmp minuutti,18h
jne mi25
pystyviiva 75,99,3
pystyviiva 70,102,3 		;2
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,98,4
pystyviiva 85,102,3			;4
pystyviiva 80,98,4
vaakaviiva 102,79,6
jmp tu00

mi25:
cmp minuutti,19h
jne mi26
pystyviiva 75,99,3
pystyviiva 70,102,3 		;2
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,102,3
pystyviiva 80,99,3 			;5
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi26:
cmp minuutti,1Ah
jne mi27
pystyviiva 75,99,3
pystyviiva 70,102,3 		;2
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,102,3
pystyviiva 80,98,4 			;6
pystyviiva 80,102,3
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi27:
cmp minuutti,1Bh
jne mi28
pystyviiva 75,99,3
pystyviiva 70,102,3 		;2
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3			;7
vaakaviiva 99,79,6
jmp tu00

mi28:
cmp minuutti,1Ch
jne mi29
pystyviiva 75,99,3
pystyviiva 70,102,3 		;2
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;8
pystyviiva 80,102,3
vaakaviiva 99,79,6
vaakaviiva 105,79,6
vaakaviiva 102,79,6
jmp tu00

mi29:
cmp minuutti,1Dh
jne mi30
pystyviiva 75,99,3
pystyviiva 70,102,3 		;2
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;9
vaakaviiva 99,79,6
vaakaviiva 102,79,6
jmp tu00

mi30:
cmp minuutti,1Eh
jne mi31

pystyviiva 75,99,3
pystyviiva 75,102,3			;3
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;0
pystyviiva 80,102,3
vaakaviiva 99,79,6
vaakaviiva 105,79,6
jmp tu00

mi31:
cmp minuutti,1Fh
jne mi32

pystyviiva 75,99,3
pystyviiva 75,102,3			;3
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,98,7			;1
jmp tu00

mi32:
cmp minuutti,20h
jne mi33

pystyviiva 75,99,3
pystyviiva 75,102,3			;3
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 80,102,3 		;2
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi33:
cmp minuutti,21h
jne mi34

pystyviiva 75,99,3
pystyviiva 75,102,3			;3
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3			;3
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi34:
cmp minuutti,22h
jne mi35

pystyviiva 75,99,3
pystyviiva 75,102,3			;3
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,98,4
pystyviiva 85,102,3			;4
pystyviiva 80,98,4
vaakaviiva 102,79,6
jmp tu00

mi35:
cmp minuutti,23h
jne mi36

pystyviiva 75,99,3
pystyviiva 75,102,3			;3
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,102,3
pystyviiva 80,99,3 			;5
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi36:
cmp minuutti,24h
jne mi37
pystyviiva 75,99,3
pystyviiva 75,102,3			;3
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,102,3
pystyviiva 80,98,4 			;6
pystyviiva 80,102,3
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi37:
cmp minuutti,25h
jne mi38
pystyviiva 75,99,3
pystyviiva 75,102,3			;3
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3			;7
vaakaviiva 99,79,6
jmp tu00

mi38:
cmp minuutti,26h
jne mi39
pystyviiva 75,99,3
pystyviiva 75,102,3			;3
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;8
pystyviiva 80,102,3
vaakaviiva 99,79,6
vaakaviiva 105,79,6
vaakaviiva 102,79,6
jmp tu00

mi39:
cmp minuutti,27h
jne mi40
pystyviiva 75,99,3
pystyviiva 75,102,3			;3
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;9
vaakaviiva 99,79,6
vaakaviiva 102,79,6
jmp tu00

mi40:
cmp minuutti,28h
jne mi41

pystyviiva 75,98,4
pystyviiva 75,102,3			;4
pystyviiva 70,98,4
vaakaviiva 102,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;0
pystyviiva 80,102,3
vaakaviiva 99,79,6
vaakaviiva 105,79,6
jmp tu00

mi41:
cmp minuutti,29h
jne mi42

pystyviiva 75,98,4
pystyviiva 75,102,3			;4
pystyviiva 70,98,4
vaakaviiva 102,69,6

pystyviiva 85,98,7			;1
jmp tu00

mi42:
cmp minuutti,2Ah
jne mi43
pystyviiva 75,98,4
pystyviiva 75,102,3			;4
pystyviiva 70,98,4
vaakaviiva 102,69,6

pystyviiva 85,99,3
pystyviiva 80,102,3 		;2
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi43:
cmp minuutti,2Bh
jne mi44
pystyviiva 75,98,4
pystyviiva 75,102,3			;4
pystyviiva 70,98,4
vaakaviiva 102,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3			;3
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi44:
cmp minuutti,2Ch
jne mi45

pystyviiva 75,98,4
pystyviiva 75,102,3			;4
pystyviiva 70,98,4
vaakaviiva 102,69,6

pystyviiva 80,98,4
pystyviiva 85,102,3			;4
pystyviiva 85,98,4
vaakaviiva 102,79,6
jmp tu00

mi45:
cmp minuutti,2Dh
jne mi46
pystyviiva 75,98,4
pystyviiva 75,102,3			;4
pystyviiva 70,98,4
vaakaviiva 102,69,6

pystyviiva 85,102,3
pystyviiva 80,99,3 			;5
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi46:
cmp minuutti,2Eh
jne mi47
pystyviiva 75,98,4
pystyviiva 75,102,3			;4
pystyviiva 70,98,4
vaakaviiva 102,69,6

pystyviiva 85,102,3
pystyviiva 80,98,4 			;6
pystyviiva 80,102,3
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi47:
cmp minuutti,2Fh
jne mi48

pystyviiva 75,98,4
pystyviiva 75,102,3			;4
pystyviiva 70,98,4
vaakaviiva 102,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3			;7
vaakaviiva 99,79,6
jmp tu00

mi48:
cmp minuutti,30h
jne mi49
pystyviiva 75,98,4
pystyviiva 75,102,3			;4
pystyviiva 70,98,4
vaakaviiva 102,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;8
pystyviiva 80,102,3
vaakaviiva 99,79,6
vaakaviiva 105,79,6
vaakaviiva 102,79,6
jmp tu00

mi49:
cmp minuutti,31h
jne mi50
pystyviiva 75,98,4
pystyviiva 75,102,3			;4
pystyviiva 70,98,4
vaakaviiva 102,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;9
vaakaviiva 99,79,6
vaakaviiva 102,79,6
jmp tu00

mi50:
cmp minuutti,32h
jne mi51
pystyviiva 75,102,3
pystyviiva 70,99,3 			;5
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;0
pystyviiva 80,102,3
vaakaviiva 99,79,6
vaakaviiva 105,79,6
jmp tu00

mi51:
cmp minuutti,33h
jne mi52
pystyviiva 75,102,3
pystyviiva 70,99,3 			;5
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,98,7			;1
jmp tu00

mi52:
cmp minuutti,34h
jne mi53
pystyviiva 75,102,3
pystyviiva 70,99,3 			;5
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 80,102,3 		;2
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi53:
cmp minuutti,35h
jne mi54
pystyviiva 75,102,3
pystyviiva 70,99,3 			;5
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 80,102,3 		;3
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi54:
cmp minuutti,36h
jne mi56
pystyviiva 75,102,3
pystyviiva 70,99,3 			;5
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,98,4
pystyviiva 85,102,3			;4
pystyviiva 80,98,4
vaakaviiva 102,79,6
jmp tu00

mi55:
cmp minuutti,37h
jne mi56
pystyviiva 75,102,3
pystyviiva 70,99,3 			;5
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,102,3
pystyviiva 80,99,3 			;5
vaakaviiva 99,79,6
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi56:
cmp minuutti,38h
jne mi57

pystyviiva 75,102,3
pystyviiva 70,99,3 			;5
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,102,3
pystyviiva 80,98,4 			;6
pystyviiva 80,102,3
vaakaviiva 102,79,6
vaakaviiva 105,79,6
jmp tu00

mi57:
cmp minuutti,39h
jne mi58
pystyviiva 75,102,3
pystyviiva 70,99,3 			;5
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3			;7
vaakaviiva 99,79,6
jmp tu00

mi58:
cmp minuutti,3Ah
jne mi59
pystyviiva 75,102,3
pystyviiva 70,99,3 			;5
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;8
pystyviiva 80,102,3
vaakaviiva 99,79,6
vaakaviiva 105,79,6
vaakaviiva 102,79,6
jmp tu00

mi59:
cmp minuutti,3Bh
jne mi00
pystyviiva 75,102,3
pystyviiva 70,99,3 			;5
vaakaviiva 99,69,6
vaakaviiva 102,69,6
vaakaviiva 105,69,6

pystyviiva 85,99,3
pystyviiva 85,102,3
pystyviiva 80,99,3			;9
vaakaviiva 99,79,6
vaakaviiva 102,79,6
jmp tu00

;*******************************************
;*                                         *
;*          tunnit 00:sta 23:een           *
;*                                         *
;*******************************************

tu00:
cmp tunti,00h
jne tu01

pystyviiva 55,99,3
pystyviiva 55,102,3
pystyviiva 50,99,3			;0
pystyviiva 50,102,3
vaakaviiva 99,49,6
vaakaviiva 105,49,6

pystyviiva 65,99,3
pystyviiva 65,102,3
pystyviiva 60,99,3			;0
pystyviiva 60,102,3
vaakaviiva 99,59,6
vaakaviiva 105,59,6
jmp lop

tu01:
cmp tunti,01h
jne tu02

pystyviiva 55,99,3
pystyviiva 55,102,3
pystyviiva 50,99,3			;0
pystyviiva 50,102,3
vaakaviiva 99,49,6
vaakaviiva 105,49,6

pystyviiva 65,98,7			;1
jmp lop

tu02:
cmp tunti,02h
jne tu03

pystyviiva 55,99,3
pystyviiva 55,102,3
pystyviiva 50,99,3			;0
pystyviiva 50,102,3
vaakaviiva 99,49,6
vaakaviiva 105,49,6

pystyviiva 65,99,3
pystyviiva 60,102,3 		;2
vaakaviiva 99,59,6
vaakaviiva 102,59,6
vaakaviiva 105,59,6
jmp lop

tu03:
cmp tunti,03h
jne tu04

pystyviiva 55,99,3
pystyviiva 55,102,3
pystyviiva 50,99,3			;0
pystyviiva 50,102,3
vaakaviiva 99,49,6
vaakaviiva 105,49,6

pystyviiva 65,99,3
pystyviiva 65,102,3			;3
vaakaviiva 99,59,6
vaakaviiva 102,59,6
vaakaviiva 105,59,6
jmp lop

tu04:
cmp tunti,04h
jne tu05

pystyviiva 55,99,3
pystyviiva 55,102,3
pystyviiva 50,99,3			;0
pystyviiva 50,102,3
vaakaviiva 99,49,6
vaakaviiva 105,49,6

pystyviiva 60,98,4
pystyviiva 65,102,3			;4
pystyviiva 65,98,4
vaakaviiva 102,59,6
jmp lop

tu05:
cmp tunti,05h
jne tu06

pystyviiva 55,99,3
pystyviiva 55,102,3
pystyviiva 50,99,3			;0
pystyviiva 50,102,3
vaakaviiva 99,49,6
vaakaviiva 105,49,6

pystyviiva 65,102,3
pystyviiva 60,99,3 			;5
vaakaviiva 99,59,6
vaakaviiva 102,59,6
vaakaviiva 105,59,6
jmp lop

tu06:
cmp tunti,06h
jne tu07

pystyviiva 55,99,3
pystyviiva 55,102,3
pystyviiva 50,99,3			;0
pystyviiva 50,102,3
vaakaviiva 99,49,6
vaakaviiva 105,49,6

pystyviiva 65,102,3
pystyviiva 60,98,4 			;6
pystyviiva 60,102,3
vaakaviiva 102,59,6
vaakaviiva 105,59,6
jmp lop

tu07:
cmp tunti,07h
jne tu08

pystyviiva 55,99,3
pystyviiva 55,102,3
pystyviiva 50,99,3			;0
pystyviiva 50,102,3
vaakaviiva 99,49,6
vaakaviiva 105,49,6

pystyviiva 65,99,3
pystyviiva 65,102,3			;7
vaakaviiva 99,59,6
jmp lop

tu08:
cmp tunti,08h
jne tu09

pystyviiva 55,99,3
pystyviiva 55,102,3
pystyviiva 50,99,3			;0
pystyviiva 50,102,3
vaakaviiva 99,49,6
vaakaviiva 105,49,6

pystyviiva 65,99,3
pystyviiva 65,102,3
pystyviiva 60,99,3			;8
pystyviiva 60,102,3
vaakaviiva 99,59,6
vaakaviiva 105,59,6
vaakaviiva 102,59,6
jmp lop

tu09:
cmp tunti,09h
jne tu10

pystyviiva 55,99,3
pystyviiva 55,102,3
pystyviiva 50,99,3			;0
pystyviiva 50,102,3
vaakaviiva 99,49,6
vaakaviiva 105,49,6

pystyviiva 65,99,3
pystyviiva 65,102,3
pystyviiva 60,99,3			;9
vaakaviiva 99,59,6
vaakaviiva 102,59,6
jmp lop

tu10:
cmp tunti,0Ah
jne tu11

pystyviiva 55,98,7			;1

pystyviiva 65,99,3
pystyviiva 65,102,3
pystyviiva 60,99,3			;0
pystyviiva 60,102,3
vaakaviiva 99,59,6
vaakaviiva 105,59,6
jmp lop

tu11:
cmp tunti,0Bh
jne tu12

pystyviiva 55,98,7			;1

pystyviiva 65,98,7			;1
jmp lop

tu12:
cmp tunti,0Ch
jne tu13

pystyviiva 55,98,7			;1

pystyviiva 65,99,3
pystyviiva 60,102,3 		;2
vaakaviiva 99,59,6
vaakaviiva 102,59,6
vaakaviiva 105,59,6
jmp lop

tu13:
cmp tunti,0Dh
jne tu14

pystyviiva 55,98,7			;1

pystyviiva 65,99,3
pystyviiva 65,102,3			;3
vaakaviiva 99,59,6
vaakaviiva 102,59,6
vaakaviiva 105,59,6
jmp lop

tu14:
cmp tunti,0Eh
jne tu15

pystyviiva 55,98,7			;1

pystyviiva 60,98,4
pystyviiva 65,102,3			;4
pystyviiva 65,98,4
vaakaviiva 102,59,6
jmp lop

tu15:
cmp tunti,0Fh
jne tu16

pystyviiva 55,98,7			;1

pystyviiva 65,102,3
pystyviiva 60,99,3 			;5
vaakaviiva 99,59,6
vaakaviiva 102,59,6
vaakaviiva 105,59,6
jmp lop

tu16:
cmp tunti,10h
jne tu17

pystyviiva 55,98,7			;1

pystyviiva 65,102,3
pystyviiva 60,98,4 			;6
pystyviiva 60,102,3
vaakaviiva 102,59,6
vaakaviiva 105,59,6
jmp lop

tu17:
cmp tunti,11h
jne tu18

pystyviiva 55,98,7			;1

pystyviiva 65,102,3
pystyviiva 65,102,3			;7
vaakaviiva 99,59,6
jmp lop

tu18:
cmp tunti,12h
jne tu19

pystyviiva 55,98,7			;1

pystyviiva 65,99,3
pystyviiva 65,102,3
pystyviiva 60,99,3			;8
pystyviiva 60,102,3
vaakaviiva 99,59,6
vaakaviiva 105,59,6
vaakaviiva 102,59,6
jmp lop

tu19:
cmp tunti,13h
jne tu20

pystyviiva 55,98,7			;1

pystyviiva 65,99,3
pystyviiva 65,102,3
pystyviiva 60,99,3			;9
vaakaviiva 99,59,6
vaakaviiva 102,59,6
jmp lop

tu20:
cmp tunti,14h
jne tu21

pystyviiva 55,99,3
pystyviiva 50,102,3 		;2
vaakaviiva 99,49,6
vaakaviiva 102,49,6
vaakaviiva 105,49,6

pystyviiva 65,99,3
pystyviiva 65,102,3
pystyviiva 60,99,3			;0
pystyviiva 60,102,3
vaakaviiva 99,59,6
vaakaviiva 105,59,6
jmp lop

tu21:
cmp tunti,15h
jne tu22

pystyviiva 55,99,3
pystyviiva 50,102,3 		;2
vaakaviiva 99,49,6
vaakaviiva 102,49,6
vaakaviiva 105,49,6

pystyviiva 60,98,7			;1
jmp lop

tu22:
cmp tunti,16h
jne tu23

pystyviiva 55,99,3
pystyviiva 50,102,3 		;2
vaakaviiva 99,49,6
vaakaviiva 102,49,6
vaakaviiva 105,49,6

pystyviiva 65,99,3
pystyviiva 60,102,3 		;2
vaakaviiva 99,59,6
vaakaviiva 102,59,6
vaakaviiva 105,59,6
jmp lop

tu23:
cmp tunti,17h
jne tu00

pystyviiva 55,99,3
pystyviiva 50,102,3 		;2
vaakaviiva 99,49,6
vaakaviiva 102,49,6
vaakaviiva 105,49,6

pystyviiva 65,99,3
pystyviiva 65,102,3			;3
vaakaviiva 99,59,6
vaakaviiva 102,59,6
vaakaviiva 105,59,6
jmp lop

lop:

;*******************************************
;*                                         *
;*	  kaksoispisteet lukujen väliin        *
;*                                         *
;*******************************************


mov ah,12           ;1
mov cx,88
mov dx,99
int 10h

mov ah,12           ;2
mov cx,88
mov dx,105
int 10h

mov ah,12           ;3
mov cx,68
mov dx,99
int 10h

mov ah,12           ;4
mov cx,68
mov dx,105
int 10h

jmp alku

;***************************************************************************
;* käytettäessä järjestelmä ajan lukua, seuraaviin rekistereihin saadaan:  *
;* CH = tunnit  CL = minuutit    DH = sekuntit   DL = sek. sadasosat       *
;*                                                                         *
;***************************************************************************

aika proc
mov ah,2Ch          ;luetaan aika
int 21h
mov tunti, CH       ;ch => tunnit
mov minuutti, CL    ;cl => minuutit
mov sekuntti, DH    ;dh => sekunnit
mov sadasosa, DL    ;dl => sek. sadasosat
ret                 ;palataan pääohjelmaan
aika endp

loppu:
mov ah,4ch
int 21h
END start