repo.or.cz
/
urasm.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
UrForth: updated from the standalone version
[urasm.git]
/
libs
/
downhl.zas
blob
a69a711079ff980b1188452b53674127fd3b1517
1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;; IN:
3
;; HL: scraddr
4
;; OUT:
5
;; HL: scraddrnext -- next y line
6
;; AF: dead
7
; inc h
8
; ld a,h
9
; and #07
10
; ret nz
11
; ld a,l
12
; sub #E0
13
; ld l,a
14
; sbc a,a
15
; and #F8
16
; add a,h
17
; ld h,a
18
; ret
19
20
21
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
22
;; IN:
23
;; HL: scraddr
24
;; OUT:
25
;; HL: scraddrnext -- next y line
26
;; AF: dead
27
inc h
28
ld a,h
29
and #07
30
ret nz
31
ld a,l
32
add a,32
33
ld l,a
34
ret c
35
ld a,h
36
sub 8
37
ld h,a
38
ret