11 org 32768
2- __START_PROGRAM:
2+ core. __START_PROGRAM:
33 di
44 push ix
55 push iy
@@ -8,22 +8,22 @@ __START_PROGRAM:
88 exx
99 ld hl , 0
1010 add hl , sp
11- ld (__CALL_BACK__) , hl
11+ ld (core. __CALL_BACK__) , hl
1212 ei
13- jp __MAIN_PROGRAM__
14- __CALL_BACK__:
13+ jp core. __MAIN_PROGRAM__
14+ core. __CALL_BACK__:
1515 DEFW 0
16- ZXBASIC_USER_DATA:
16+ core. ZXBASIC_USER_DATA:
1717 ; Defines USER DATA Length in bytes
18- ZXBASIC_USER_DATA_LEN EQU ZXBASIC_USER_DATA_END - ZXBASIC_USER_DATA
19- . __LABEL__.ZXBASIC_USER_DATA_LEN EQU ZXBASIC_USER_DATA_LEN
20- . __LABEL__.ZXBASIC_USER_DATA EQU ZXBASIC_USER_DATA
18+ core. ZXBASIC_USER_DATA_LEN EQU core. ZXBASIC_USER_DATA_END - core. ZXBASIC_USER_DATA
19+ core.. __LABEL__.ZXBASIC_USER_DATA_LEN EQU core. ZXBASIC_USER_DATA_LEN
20+ core.. __LABEL__.ZXBASIC_USER_DATA EQU core. ZXBASIC_USER_DATA
2121_subeEgg:
2222 DEFB 00
2323_sail:
2424 DEFB 00
25- ZXBASIC_USER_DATA_END:
26- __MAIN_PROGRAM__:
25+ core. ZXBASIC_USER_DATA_END:
26+ core. __MAIN_PROGRAM__:
2727 ld a , (_sail)
2828 dec a
2929 jp nz , __LABEL1
@@ -37,21 +37,21 @@ __MAIN_PROGRAM__:
3737 ld a , ( 40044 )
3838 ld hl , ( 40012 - 1 )
3939 sub h
40- call __ABS8
40+ call core. __ABS8
4141 push af
4242 ld h , 16
4343 pop af
44- call __LTI8
44+ call core. __LTI8
4545 or a
4646 jp z , __LABEL7
4747 ld a , ( 40011 )
4848 ld hl , ( 40043 - 1 )
4949 sub h
50- call __ABS8
50+ call core. __ABS8
5151 push af
5252 ld h , 20
5353 pop af
54- call __LTI8
54+ call core. __LTI8
5555 or a
5656 jp nz , __LABEL__enddispara
5757__LABEL9:
@@ -60,9 +60,9 @@ __LABEL5:
6060__LABEL3:
6161__LABEL1:
6262 jp __LABEL__enddispara
63- __END_PROGRAM:
63+ core. __END_PROGRAM:
6464 di
65- ld hl , (__CALL_BACK__)
65+ ld hl , (core. __CALL_BACK__)
6666 ld sp , hl
6767 exx
6868 pop hl
@@ -75,21 +75,24 @@ __LABEL__enddispara:
7575 ld hl , 0
7676 ld b , h
7777 ld c , l
78- jp __END_PROGRAM
78+ jp core. __END_PROGRAM
7979 ;; --- end of user code ---
8080#line 1 "/zxbasic/src/arch/zx48k/library-asm/abs8.asm"
8181 ; Returns absolute value for 8 bit signed integer
8282 ;
83+ push namespace core
8384__ABS8:
84- or a
85- ret p
86- neg
87- ret
85+ or a
86+ ret p
87+ neg
88+ ret
89+ pop namespace
8890#line 55 "053opt.bas"
8991#line 1 "/zxbasic/src/arch/zx48k/library-asm/lti8.asm"
9092#line 1 "/zxbasic/src/arch/zx48k/library-asm/lei8.asm"
93+ push namespace core
9194__LEI8: ; Signed <= comparison for 8bit int
92- ; A <= H (registers)
95+ ; A <= H (registers)
9396 PROC
9497 LOCAL checkParity
9598 sub h
@@ -107,6 +110,7 @@ checkParity:
107110 inc a ; True
108111 ret
109112 ENDP
113+ pop namespace
110114#line 2 "/zxbasic/src/arch/zx48k/library-asm/lti8.asm"
111115#line 56 "053opt.bas"
112116 END
0 commit comments