File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -50,12 +50,22 @@ _r_ulong:
5050 ld de , (_var_neg + 2 )
5151 ex de , hl
5252 ld de , 0
53+ ld a , h
54+ add a , a
55+ sbc a , a
56+ ld e , a
57+ ld d , a
5358 ld (_r_long) , hl
5459 ld (_r_long + 2 ) , de
5560 ld hl , (_var_neg)
5661 ld de , (_var_neg + 2 )
5762 ex de , hl
5863 ld de , 0
64+ ld a , h
65+ add a , a
66+ sbc a , a
67+ ld e , a
68+ ld d , a
5969 ld (_r_ulong) , hl
6070 ld (_r_ulong + 2 ) , de
6171 ld hl , (_var)
@@ -68,12 +78,22 @@ _r_ulong:
6878 ld de , (_var + 2 )
6979 ex de , hl
7080 ld de , 0
81+ ld a , h
82+ add a , a
83+ sbc a , a
84+ ld e , a
85+ ld d , a
7186 ld (_r_long) , hl
7287 ld (_r_long + 2 ) , de
7388 ld hl , (_var)
7489 ld de , (_var + 2 )
7590 ex de , hl
7691 ld de , 0
92+ ld a , h
93+ add a , a
94+ sbc a , a
95+ ld e , a
96+ ld d , a
7797 ld (_r_ulong) , hl
7898 ld (_r_ulong + 2 ) , de
7999 ld a , (_var_neg_fl)
@@ -208,5 +228,5 @@ __FTOU8: ; Converts float in C ED LH to Unsigned byte in A
208228 ld a , l
209229 ret
210230 pop namespace
211- #line 72 "arch/zx48k/cast_const_to_int.bas"
231+ #line 92 "arch/zx48k/cast_const_to_int.bas"
212232 END
Original file line number Diff line number Diff line change 2929 ld de , (_v1 + 2 )
3030 ex de , hl
3131 ld de , 0
32+ ld a , h
33+ add a , a
34+ sbc a , a
35+ ld e , a
36+ ld d , a
3237 ld (_v2) , hl
3338 ld (_v2 + 2 ) , de
3439 ld hl , 0
Original file line number Diff line number Diff line change 2929 ld de , (_v1 + 2 )
3030 ex de , hl
3131 ld de , 0
32+ ld a , h
33+ add a , a
34+ sbc a , a
35+ ld e , a
36+ ld d , a
3237 ld (_v2) , hl
3338 ld (_v2 + 2 ) , de
3439 ld hl , 0
Original file line number Diff line number Diff line change @@ -47,12 +47,22 @@ _r_ulong:
4747 ld de , (_var_neg + 2 )
4848 ex de , hl
4949 ld de , 0
50+ ld a , h
51+ add a , a
52+ sbc a , a
53+ ld e , a
54+ ld d , a
5055 ld (_r_long) , hl
5156 ld (_r_long + 2 ) , de
5257 ld hl , (_var_neg)
5358 ld de , (_var_neg + 2 )
5459 ex de , hl
5560 ld de , 0
61+ ld a , h
62+ add a , a
63+ sbc a , a
64+ ld e , a
65+ ld d , a
5666 ld (_r_ulong) , hl
5767 ld (_r_ulong + 2 ) , de
5868 ld hl , (_var)
@@ -65,12 +75,22 @@ _r_ulong:
6575 ld de , (_var + 2 )
6676 ex de , hl
6777 ld de , 0
78+ ld a , h
79+ add a , a
80+ sbc a , a
81+ ld e , a
82+ ld d , a
6883 ld (_r_long) , hl
6984 ld (_r_long + 2 ) , de
7085 ld hl , (_var)
7186 ld de , (_var + 2 )
7287 ex de , hl
7388 ld de , 0
89+ ld a , h
90+ add a , a
91+ sbc a , a
92+ ld e , a
93+ ld d , a
7494 ld (_r_ulong) , hl
7595 ld (_r_ulong + 2 ) , de
7696 ld a , (_var_neg_fl)
@@ -201,5 +221,5 @@ __FTOU8: ; Converts float in C ED LH to Unsigned byte in A
201221 ld a , l
202222 ret
203223 pop namespace
204- #line 68 "arch/zxnext/cast_const_to_int.bas"
224+ #line 88 "arch/zxnext/cast_const_to_int.bas"
205225 END
Original file line number Diff line number Diff line change 2626 ld de , (_v1 + 2 )
2727 ex de , hl
2828 ld de , 0
29+ ld a , h
30+ add a , a
31+ sbc a , a
32+ ld e , a
33+ ld d , a
2934 ld (_v2) , hl
3035 ld (_v2 + 2 ) , de
3136 ld hl , 0
Original file line number Diff line number Diff line change 2626 ld de , (_v1 + 2 )
2727 ex de , hl
2828 ld de , 0
29+ ld a , h
30+ add a , a
31+ sbc a , a
32+ ld e , a
33+ ld d , a
2934 ld (_v2) , hl
3035 ld (_v2 + 2 ) , de
3136 ld hl , 0
You can’t perform that action at this time.
0 commit comments