winsys: dox cosmetix
[urasm.git] / libs / scr2attrhl.inc
blobb54c19eae95d6191a7a1a71083298fdabb7698a2
1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 ;; IN:
3 ;;   HL: scraddr
4 ;; OUT:
5 ;;   HL: attraddr
6 ;;   AF: dead
7   ld   a,h
8   rrca
9   rrca
10   rrca
11   and  #03
12   or   #58
13   ld   h,a