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
/
uphl.zas
blob
2f0fcab2e41f2aab797b7a76b8e635d33b57bc7e
1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;; IN:
3
;; HL: scraddr
4
;; OUT:
5
;; HL: scraddrnext -- prev y line
6
;; AF: dead
7
; ld a,h
8
; dec h
9
; and #07
10
; ret nz
11
; ld a,l
12
; add a,#E0
13
; ld l,a
14
; sbc a,a
15
; and #08
16
; add a,h
17
; ld h,a
18
; ret
19
20
21
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
22
;; IN:
23
;; HL: scraddr
24
;; OUT:
25
;; HL: scraddrnext -- prev y line
26
;; AF: dead
27
ld a,h
28
dec h
29
and #07
30
ret nz
31
ld a,l
32
sub 32
33
ld l,a
34
ret c
35
ld a,h
36
add a,8
37
ld h,a
38
ret