Siemens Simatic S5 PG 730 Systemhandbuch Seite 55

Systemhandbuch
; **** von Binär- in ASCII-Code
;
binasc proc xor ah, ah
mov cl, 10
div cl
mov cl, 4
sal al, cl
or al, ah
call bcdasc
ret
;
binasc endp ;
;
; **** Unterprogramm zum Wandeln
; **** von BCD- in ASCII-Code
;
bcdasc proc
mov cl, 4
xor ah, ah
shl ax, cl
shr al, cl
or ax, 3030h
xchg ah, al
ret
;
bcdasc endp clock
;
daten segment
hwusel equ
sekreg equ
minreg equ
stureg equ
starega equ
staregb equ
;
dos equ
msg db 0dh, 0ah, 0ah
db
stunde db
C79000-B8500-C073-01
****
;ah=0
;ax durch 10 dividieren
;Quotient mit 16 multiplizieren
;Quotient H-Nibble rest L-Nibble
;BCD-ASCII-Umwandlung
****
****
;ah=0
;H-Nibble in ah
;L-Nibble in al
;umsetzen in ascii
;Stellen tauschen
ends
70h
00
02
04
0ah
0bh
21h
;String
'Echtzeituhr'
0, 0
Grundplatine
2 - 35