@@ -251,7 +251,7 @@ ARRAY_SIZE_LOOP:
251251 pop namespace
252252#line 67 "arch/zx48k/local_float_array0.bas"
253253#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"
255255; vim: ts=4:et:sw=4:
256256 ; Copyleft (K) by Jose M. Rodriguez de la Rosa
257257 ; (a.k.a. Boriel)
@@ -262,7 +262,7 @@ ARRAY_SIZE_LOOP:
262262 ; closed source programs).
263263 ;
264264 ; 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"
266266; vim: ts=4:et:sw=4:
267267 ; Copyleft (K) by Jose M. Rodriguez de la Rosa
268268 ; (a.k.a. Boriel)
@@ -356,8 +356,8 @@ __STOP:
356356 ld (ERR_NR) , a
357357 ret
358358 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"
361361; vim: ts=4:et:sw=4:
362362 ; Copyleft (K) by Jose M. Rodriguez de la Rosa
363363 ; (a.k.a. Boriel)
@@ -464,7 +464,7 @@ __MEM_INIT2:
464464 ret
465465 ENDP
466466 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"
468468 ; ---------------------------------------------------------------------
469469 ; MEM_ALLOC
470470 ; Allocates a block of memory in the heap.
@@ -495,9 +495,9 @@ __MEM_START:
495495__MEM_LOOP: ; Loads lengh at (HL, HL+). If Lenght >= BC, jump to __MEM_DONE
496496 ld a , h ; HL = NULL (No memory available?)
497497 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"
499499 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"
501501 ; HL = Pointer to Free block
502502 ld e , (hl)
503503 inc hl
@@ -562,7 +562,7 @@ __MEM_SUBTRACT:
562562 ret
563563 ENDP
564564 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"
566566 ; ---------------------------------------------------------------------
567567 ; MEM_CALLOC
568568 ; Allocates a block of memory in the heap, and clears it filling it
@@ -663,7 +663,35 @@ __ALLOC_INITIALIZED_LOCAL_ARRAY:
663663#line 142 "/zxbasic/src/lib/arch/zx48k/runtime/array/arrayalloc.asm"
664664 pop namespace
665665#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"
667695; vim: ts=4:et:sw=4:
668696 ; Copyleft (K) by Jose M. Rodriguez de la Rosa
669697 ; (a.k.a. Boriel)
@@ -821,34 +849,6 @@ __MEM_BLOCK_JOIN: ; Joins current block (pointed by HL) with next one (pointed
821849 ret
822850 ENDP
823851 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
852852#line 70 "arch/zx48k/local_float_array0.bas"
853853#line 1 "/zxbasic/src/lib/arch/zx48k/runtime/storef.asm"
854854 push namespace core
0 commit comments