File tree Expand file tree Collapse file tree
tests/functional/arch/zxnext Expand file tree Collapse file tree Original file line number Diff line number Diff line change 2828 sub h
2929 ccf
3030 sbc a , a
31+ neg
3132 ld (_l) , a
3233 ld a , (_level)
3334 ld hl , (_le - 1 )
3435 sub h
3536 ccf
3637 sbc a , a
38+ neg
3739 ld (_l) , a
3840 ld a , (_le)
3941 push af
4244 sub h
4345 ccf
4446 sbc a , a
47+ neg
4548 ld (_l) , a
4649 ld a , (_le)
4750 push af
5053 sub h
5154 ccf
5255 sbc a , a
56+ neg
5357 ld (_l) , a
5458 ld a , (_level)
5559 or a
5660 ccf
5761 sbc a , a
62+ neg
5863 ld (_l) , a
5964 ld hl , 0
6065 ld b , h
Original file line number Diff line number Diff line change 3131 or a
3232 sbc hl , de
3333 sbc a , a
34+ neg
3435 ld l , a
3536 ld h , 0
3637 ld (_l) , hl
3940 or a
4041 sbc hl , de
4142 sbc a , a
43+ neg
4244 ld l , a
4345 ld h , 0
4446 ld (_l) , hl
4951 or a
5052 sbc hl , de
5153 sbc a , a
54+ neg
5255 ld l , a
5356 ld h , 0
5457 ld (_l) , hl
6063 or a
6164 sbc hl , de
6265 sbc a , a
66+ neg
6367 ld l , a
6468 ld h , 0
6569 ld (_l) , hl
6973 or a
7074 sbc hl , de
7175 sbc a , a
76+ neg
7277 ld l , a
7378 ld h , 0
7479 ld (_l) , hl
Original file line number Diff line number Diff line change 3838 call .core.__SWAP32
3939 call .core.__SUB32
4040 sbc a , a
41+ neg
4142 ld l , a
4243 ld h , 0
4344 ld e , h
5253 ld de , (_level + 2 )
5354 call .core.__SUB32
5455 sbc a , a
56+ neg
5557 ld l , a
5658 ld h , 0
5759 ld e , h
6668 ld de , (_level + 2 )
6769 call .core.__SUB32
6870 sbc a , a
71+ neg
6972 ld l , a
7073 ld h , 0
7174 ld e , h
8083 ld de , (_level + 2 )
8184 call .core.__SUB32
8285 sbc a , a
86+ neg
8387 ld l , a
8488 ld h , 0
8589 ld e , h
9498 push bc
9599 call .core.__SUB32
96100 sbc a , a
101+ neg
97102 ld l , a
98103 ld h , 0
99104 ld e , h
@@ -137,7 +142,7 @@ __SUB32:
137142 exx
138143 ret
139144 pop namespace
140- #line 84 "arch/zxnext/ltu32.bas"
145+ #line 89 "arch/zxnext/ltu32.bas"
141146#line 1 "/zxbasic/src/lib/arch/zxnext/runtime/swap32.asm"
142147 ; Exchanges current DE HL with the
143148 ; ones in the stack
@@ -155,5 +160,5 @@ __SWAP32:
155160 push bc
156161 ret
157162 pop namespace
158- #line 85 "arch/zxnext/ltu32.bas"
163+ #line 90 "arch/zxnext/ltu32.bas"
159164 END
Original file line number Diff line number Diff line change 2828 ld a , (_le)
2929 cp h
3030 sbc a , a
31+ neg
3132 ld (_l) , a
3233 ld hl , (_level - 1 )
3334 ld a , (_le)
3435 cp h
3536 sbc a , a
37+ neg
3638 ld (_l) , a
3739 ld a , (_le)
3840 push af
3941 ld hl , (_level - 1 )
4042 pop af
4143 cp h
4244 sbc a , a
45+ neg
4346 ld (_l) , a
4447 ld a , (_le)
4548 ld hl , (_level - 1 )
4649 cp h
4750 sbc a , a
51+ neg
4852 ld (_l) , a
4953 ld a , (_level)
5054 ld h , a
5155 xor a
5256 cp h
5357 sbc a , a
58+ neg
5459 ld (_l) , a
5560 ld hl , 0
5661 ld b , h
Original file line number Diff line number Diff line change 2828 call .core.__EQ32
2929 sub 1
3030 sbc a , a
31+ neg
3132 ld ( 0 ) , a
3233 ld hl , 0
3334 ld b , h
@@ -65,5 +66,5 @@ __EQ32: ; Test if 32bit value HLDE equals top of the stack
6566 xor a
6667 ret
6768 pop namespace
68- #line 23 "arch/zxnext/nef16.bas"
69+ #line 24 "arch/zxnext/nef16.bas"
6970 END
Original file line number Diff line number Diff line change 2525 sbc hl , de
2626 ld a , h
2727 or l
28+ sub 1
29+ sbc a , a
30+ inc a
2831 ld ( 0 ) , a
2932 ld hl , 0
3033 ld b , h
Original file line number Diff line number Diff line change 2828 call .core.__EQ32
2929 sub 1
3030 sbc a , a
31+ neg
3132 ld ( 0 ) , a
3233 ld hl , 0
3334 ld b , h
@@ -65,5 +66,5 @@ __EQ32: ; Test if 32bit value HLDE equals top of the stack
6566 xor a
6667 ret
6768 pop namespace
68- #line 23 "arch/zxnext/nei32.bas"
69+ #line 24 "arch/zxnext/nei32.bas"
6970 END
Original file line number Diff line number Diff line change 2020.core.ZXBASIC_USER_DATA_END:
2121.core.__MAIN_PROGRAM__:
2222 ld a , (_t)
23+ sub 1
24+ sbc a , a
25+ inc a
2326 ld ( 0 ) , a
2427 ld hl , 0
2528 ld b , h
Original file line number Diff line number Diff line change 2525 sbc hl , de
2626 ld a , h
2727 or l
28+ sub 1
29+ sbc a , a
30+ inc a
2831 ld ( 0 ) , a
2932 ld hl , 0
3033 ld b , h
Original file line number Diff line number Diff line change 2828 call .core.__EQ32
2929 sub 1
3030 sbc a , a
31+ neg
3132 ld ( 0 ) , a
3233 ld hl , 0
3334 ld b , h
@@ -65,5 +66,5 @@ __EQ32: ; Test if 32bit value HLDE equals top of the stack
6566 xor a
6667 ret
6768 pop namespace
68- #line 23 "arch/zxnext/neu32.bas"
69+ #line 24 "arch/zxnext/neu32.bas"
6970 END
You can’t perform that action at this time.
0 commit comments