File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 4444 inc sp
4545 ld a , (ix - 1 )
4646 or 1
47- jp z , __LABEL1
47+ jp z , _x__leave
4848 inc (ix - 1 )
49- __LABEL1:
5049_x__leave:
5150 ld sp , ix
5251 pop ix
5352 ret
53+ #line 8
54+ ;; --- end of user code ---
55+ #line 9
5456 END
Original file line number Diff line number Diff line change @@ -72,10 +72,12 @@ __LABEL3:
7272 push af
7373 call _MultiKeys
7474 or a
75- jp z , __LABEL5
75+ jp z , _mainRoom__leave
7676 xor a
7777 ld ( 2 ) , a
78- __LABEL5:
7978_mainRoom__leave:
8079 ret
80+ #line 26
81+ ;; --- end of user code ---
82+ #line 27
8183 END
Original file line number Diff line number Diff line change @@ -29,7 +29,7 @@ __MAIN_PROGRAM__:
2929 ld a , (_i)
3030 push af
3131 ld hl , (_dw1)
32- call _putTile10x8Box
32+ call _putTile10x8Box__leave
3333 ld bc , 0
3434__END_PROGRAM:
3535 di
@@ -47,4 +47,7 @@ __CALL_BACK__:
4747_putTile10x8Box:
4848_putTile10x8Box__leave:
4949 ret
50+ #line 8
51+ ;; --- end of user code ---
52+ #line 9
5053 END
Original file line number Diff line number Diff line change 5555 xor a
5656 call __PRINTSTR
5757 call PRINT_EOL
58- jp __LABEL1
58+ jp _x2__leave
5959__LABEL0:
6060 ld hl , __LABEL3
6161 xor a
6262 call __PRINTSTR
6363 call PRINT_EOL
64- __LABEL1:
6564_x2__leave:
6665 ld sp , ix
6766 pop ix
@@ -75,6 +74,9 @@ __LABEL3:
7574 DEFW 0002h
7675 DEFB 4Fh
7776 DEFB 4Bh
77+ #line 14
78+ ;; --- end of user code ---
79+ #line 15
7880#line 1 "/zxbasic/src/arch/zx48k/library-asm/print.asm"
7981; vim:ts=4:sw=4:et:
8082; vim:ts=4:sw=4:et:
@@ -1007,7 +1009,7 @@ __PRINT_TABLE: ; Jump table for 0 .. 22 codes
10071009 DW __PRINT_ AT ; 22 AT
10081010 DW __PRINT_TAB ; 23 TAB
10091011 ENDP
1010- #line 53 "opt3_einar.bas"
1012+ #line 55 "opt3_einar.bas"
10111013#line 1 "/zxbasic/src/arch/zx48k/library-asm/printstr.asm"
10121014#line 1 "/zxbasic/src/arch/zx48k/library-asm/free.asm"
10131015; vim: ts=4:et:sw=4:
@@ -1312,5 +1314,5 @@ __PRINT_STR:
13121314 ld d , a ; Saves a FLAG
13131315 jp __PRINT_STR_LOOP
13141316 ENDP
1315- #line 54 "opt3_einar.bas"
1317+ #line 56 "opt3_einar.bas"
13161318 END
Original file line number Diff line number Diff line change @@ -18,7 +18,11 @@ ZXBASIC_USER_DATA_LEN EQU ZXBASIC_USER_DATA_END - ZXBASIC_USER_DATA
1818 .__LABEL__.ZXBASIC_USER_DATA EQU ZXBASIC_USER_DATA
1919ZXBASIC_USER_DATA_END:
2020__MAIN_PROGRAM__:
21- jp __LABEL__10
21+ __LABEL__10:
22+ __LABEL__20:
23+ jp __LABEL__20
24+ __LABEL__30:
25+ jp __LABEL__20
2226__END_PROGRAM:
2327 di
2428 ld hl , (__CALL_BACK__)
@@ -32,9 +36,7 @@ __END_PROGRAM:
3236 ret
3337__CALL_BACK__:
3438 DEFW 0
35- __LABEL__10:
36- __LABEL__20:
37- jp __LABEL__10
38- __LABEL__30:
39- jp __LABEL__10
39+ #line 11
40+ ;; --- end of user code ---
41+ #line 12
4042 END
Original file line number Diff line number Diff line change @@ -46,14 +46,17 @@ _Drawscreen:
4646 inc sp
4747 ld (ix - 1 ) , 0
4848 jp __LABEL0
49- __LABEL3 :
49+ __LABEL4 :
5050 inc (ix - 1 )
5151__LABEL0:
5252 ld a , 21
5353 cp (ix - 1 )
54- jp nc , __LABEL3
54+ jp nc , __LABEL4
5555_Drawscreen__leave:
5656 ld sp , ix
5757 pop ix
5858 ret
59+ #line 19
60+ ;; --- end of user code ---
61+ #line 20
5962 END
Original file line number Diff line number Diff line change @@ -38,11 +38,10 @@ __LABEL__inicio:
3838 inc hl
3939 ld a , (hl)
4040 sub 12
41- jp nz , __LABEL5
41+ jp nz , __LABEL3
4242 ld a , 3
4343 ld (_sobando) , a
4444 jp __LABEL__inicio
45- __LABEL5:
4645__LABEL3:
4746 ld a , (_sobando)
4847 or a
@@ -59,10 +58,6 @@ __LABEL3:
5958 ld a , 1
6059 ld (_sobando) , a
6160__LABEL__pontolosobando:
62- __LABEL11:
63- __LABEL9:
64- __LABEL7:
65- __LABEL1:
6661 jp __LABEL__inicio
6762__END_PROGRAM:
6863 di
@@ -77,13 +72,16 @@ __END_PROGRAM:
7772 ret
7873__CALL_BACK__:
7974 DEFW 0
80- #line 1 "eq16.asm"
75+ #line 27
76+ ;; --- end of user code ---
77+ #line 28
78+ #line 1 "/zxbasic/src/arch/zx48k/library-asm/eq16.asm"
8179__EQ16: ; Test if 16bit values HL == DE
8280 ; Returns result in A: 0 = False, FF = True
8381 xor a ; Reset carry flag
8482 sbc hl , de
8583 ret nz
8684 inc a
8785 ret
88- #line 55 "opt3_tolosob.bas"
86+ #line 53 "opt3_tolosob.bas"
8987 END
Original file line number Diff line number Diff line change @@ -24,14 +24,13 @@ _paso:
2424 DEFB 00
2525ZXBASIC_USER_DATA_END:
2626__MAIN_PROGRAM__:
27- __LABEL0:
2827__LABEL__looproom:
2928 xor a
3029 ld (_push) , a
3130 ld (_suck) , a
3231 ld a , 4
3332 ld (_paso) , a
34- jp __LABEL0
33+ jp __LABEL__looproom
3534__END_PROGRAM:
3635 di
3736 ld hl , (__CALL_BACK__)
@@ -45,4 +44,7 @@ __END_PROGRAM:
4544 ret
4645__CALL_BACK__:
4746 DEFW 0
47+ #line 15
48+ ;; --- end of user code ---
49+ #line 16
4850 END
Original file line number Diff line number Diff line change @@ -46,13 +46,8 @@ __MAIN_PROGRAM__:
4646 call __ABS8
4747 ld h , 20
4848 call __LTI8
49- or a
50- jp nz , __LABEL__enddispara
51- __LABEL7:
52- __LABEL5:
53- __LABEL3:
54- __LABEL1:
55- jp __LABEL__enddispara
49+ __LABEL__enddispara:
50+ ld bc , 0
5651__END_PROGRAM:
5752 di
5853 ld hl , (__CALL_BACK__)
@@ -66,20 +61,20 @@ __END_PROGRAM:
6661 ret
6762__CALL_BACK__:
6863 DEFW 0
69- __LABEL__enddispara:
70- ld bc , 0
71- jp __END_PROGRAM
72- #line 1 "abs8.asm"
64+ #line 30
65+ ;; --- end of user code ---
66+ #line 31
67+ #line 1 "/zxbasic/src/arch/zx48k/library-asm/ abs8.asm"
7368 ; Returns absolute value for 8 bit signed integer
7469 ;
7570__ABS8:
7671 or a
7772 ret p
7873 neg
7974 ret
80- #line 49 "opt4_053opt.bas"
81- #line 1 "lti8.asm"
82- #line 1 "lei8.asm"
75+ #line 44 "opt4_053opt.bas"
76+ #line 1 "/zxbasic/src/arch/zx48k/library-asm/ lti8.asm"
77+ #line 1 "/zxbasic/src/arch/zx48k/library-asm/ lei8.asm"
8378__LEI8: ; Signed <= comparison for 8bit int
8479 ; A <= H (registers)
8580 PROC
@@ -99,6 +94,6 @@ checkParity:
9994 inc a ; True
10095 ret
10196 ENDP
102- #line 2 "lti8.asm"
103- #line 50 "opt4_053opt.bas"
97+ #line 2 "/zxbasic/src/arch/zx48k/library-asm/ lti8.asm"
98+ #line 45 "opt4_053opt.bas"
10499 END
Original file line number Diff line number Diff line change @@ -28,7 +28,7 @@ __MAIN_PROGRAM__:
2828 push af
2929 ld a , (_i)
3030 push af
31- call _putTile10x8Box
31+ call _putTile10x8Box__leave
3232 ld bc , 0
3333__END_PROGRAM:
3434 di
@@ -46,4 +46,7 @@ __CALL_BACK__:
4646_putTile10x8Box:
4747_putTile10x8Box__leave:
4848 ret
49+ #line 8
50+ ;; --- end of user code ---
51+ #line 9
4952 END
You can’t perform that action at this time.
0 commit comments