@@ -251,7 +251,7 @@ ARRAY_SIZE_LOOP:
251
251
pop namespace
252
252
#line 67 "arch/zx48k/local_float_array0.bas"
253
253
#line 1 "/zxbasic/src/lib/arch/zx48k/runtime/array/arrayalloc.asm"
254
- #line 1 "/zxbasic/src/lib/arch/zx48k/runtime/calloc.asm"
254
+ #line 1 "/zxbasic/src/lib/arch/zx48k/runtime/mem/ calloc.asm"
255
255
; vim: ts=4:et:sw=4:
256
256
; Copyleft (K) by Jose M. Rodriguez de la Rosa
257
257
; (a.k.a. Boriel)
@@ -262,7 +262,7 @@ ARRAY_SIZE_LOOP:
262
262
; closed source programs).
263
263
;
264
264
; Please read the MIT license on the internet
265
- #line 1 "/zxbasic/src/lib/arch/zx48k/runtime/alloc.asm"
265
+ #line 1 "/zxbasic/src/lib/arch/zx48k/runtime/mem/ alloc.asm"
266
266
; vim: ts=4:et:sw=4:
267
267
; Copyleft (K) by Jose M. Rodriguez de la Rosa
268
268
; (a.k.a. Boriel)
@@ -356,8 +356,8 @@ __STOP:
356
356
ld (ERR_NR) , a
357
357
ret
358
358
pop namespace
359
- #line 69 "/zxbasic/src/lib/arch/zx48k/runtime/alloc.asm"
360
- #line 1 "/zxbasic/src/lib/arch/zx48k/runtime/heapinit.asm"
359
+ #line 69 "/zxbasic/src/lib/arch/zx48k/runtime/mem/ alloc.asm"
360
+ #line 1 "/zxbasic/src/lib/arch/zx48k/runtime/mem/ heapinit.asm"
361
361
; vim: ts=4:et:sw=4:
362
362
; Copyleft (K) by Jose M. Rodriguez de la Rosa
363
363
; (a.k.a. Boriel)
@@ -464,7 +464,7 @@ __MEM_INIT2:
464
464
ret
465
465
ENDP
466
466
pop namespace
467
- #line 70 "/zxbasic/src/lib/arch/zx48k/runtime/alloc.asm"
467
+ #line 70 "/zxbasic/src/lib/arch/zx48k/runtime/mem/ alloc.asm"
468
468
; ---------------------------------------------------------------------
469
469
; MEM_ALLOC
470
470
; Allocates a block of memory in the heap.
@@ -495,9 +495,9 @@ __MEM_START:
495
495
__MEM_LOOP: ; Loads lengh at (HL, HL+). If Lenght >= BC, jump to __MEM_DONE
496
496
ld a , h ; HL = NULL (No memory available?)
497
497
or l
498
- #line 113 "/zxbasic/src/lib/arch/zx48k/runtime/alloc.asm"
498
+ #line 113 "/zxbasic/src/lib/arch/zx48k/runtime/mem/ alloc.asm"
499
499
ret z ; NULL
500
- #line 115 "/zxbasic/src/lib/arch/zx48k/runtime/alloc.asm"
500
+ #line 115 "/zxbasic/src/lib/arch/zx48k/runtime/mem/ alloc.asm"
501
501
; HL = Pointer to Free block
502
502
ld e , (hl)
503
503
inc hl
@@ -562,7 +562,7 @@ __MEM_SUBTRACT:
562
562
ret
563
563
ENDP
564
564
pop namespace
565
- #line 13 "/zxbasic/src/lib/arch/zx48k/runtime/calloc.asm"
565
+ #line 13 "/zxbasic/src/lib/arch/zx48k/runtime/mem/ calloc.asm"
566
566
; ---------------------------------------------------------------------
567
567
; MEM_CALLOC
568
568
; Allocates a block of memory in the heap, and clears it filling it
@@ -663,7 +663,35 @@ __ALLOC_INITIALIZED_LOCAL_ARRAY:
663
663
#line 142 "/zxbasic/src/lib/arch/zx48k/runtime/array/arrayalloc.asm"
664
664
pop namespace
665
665
#line 68 "arch/zx48k/local_float_array0.bas"
666
- #line 1 "/zxbasic/src/lib/arch/zx48k/runtime/free.asm"
666
+ #line 1 "/zxbasic/src/lib/arch/zx48k/runtime/iloadf.asm"
667
+ ; __FASTCALL__ routine which
668
+ ; loads a 40 bits floating point into A ED CB
669
+ ; stored at position pointed by POINTER HL
670
+ ;A DE, BC <-- ((HL))
671
+ push namespace core
672
+ __ILOADF:
673
+ ld a , (hl)
674
+ inc hl
675
+ ld h , (hl)
676
+ ld l , a
677
+ ; __FASTCALL__ routine which
678
+ ; loads a 40 bits floating point into A ED CB
679
+ ; stored at position pointed by POINTER HL
680
+ ;A DE, BC <-- (HL)
681
+ __LOADF: ; Loads a 40 bits FP number from address pointed by HL
682
+ ld a , (hl)
683
+ inc hl
684
+ ld e , (hl)
685
+ inc hl
686
+ ld d , (hl)
687
+ inc hl
688
+ ld c , (hl)
689
+ inc hl
690
+ ld b , (hl)
691
+ ret
692
+ pop namespace
693
+ #line 69 "arch/zx48k/local_float_array0.bas"
694
+ #line 1 "/zxbasic/src/lib/arch/zx48k/runtime/mem/free.asm"
667
695
; vim: ts=4:et:sw=4:
668
696
; Copyleft (K) by Jose M. Rodriguez de la Rosa
669
697
; (a.k.a. Boriel)
@@ -821,34 +849,6 @@ __MEM_BLOCK_JOIN: ; Joins current block (pointed by HL) with next one (pointed
821
849
ret
822
850
ENDP
823
851
pop namespace
824
- #line 69 "arch/zx48k/local_float_array0.bas"
825
- #line 1 "/zxbasic/src/lib/arch/zx48k/runtime/iloadf.asm"
826
- ; __FASTCALL__ routine which
827
- ; loads a 40 bits floating point into A ED CB
828
- ; stored at position pointed by POINTER HL
829
- ;A DE, BC <-- ((HL))
830
- push namespace core
831
- __ILOADF:
832
- ld a , (hl)
833
- inc hl
834
- ld h , (hl)
835
- ld l , a
836
- ; __FASTCALL__ routine which
837
- ; loads a 40 bits floating point into A ED CB
838
- ; stored at position pointed by POINTER HL
839
- ;A DE, BC <-- (HL)
840
- __LOADF: ; Loads a 40 bits FP number from address pointed by HL
841
- ld a , (hl)
842
- inc hl
843
- ld e , (hl)
844
- inc hl
845
- ld d , (hl)
846
- inc hl
847
- ld c , (hl)
848
- inc hl
849
- ld b , (hl)
850
- ret
851
- pop namespace
852
852
#line 70 "arch/zx48k/local_float_array0.bas"
853
853
#line 1 "/zxbasic/src/lib/arch/zx48k/runtime/storef.asm"
854
854
push namespace core
0 commit comments