update doc

docs/ADIODB_VECTOR.md

@@ -0,0 +1 @@
+# ADIODB_VECTOR

docs/RES.md

@@ -5,13 +5,15 @@
 * kernel_create_process
 * kernel_kill_process
 * kernel_kill_process via XFREE_ROUTINE
+* XDIVIS
 * XREADBYTES_ROUTINE
 * XPUTCWD_ROUTINE
 * XWRITEBYTES_ROUTINE
 * XFSEEK_ROUTINE
 * XMKDIR_ROUTINE
 * XRM_ROUTINE
 * XOPENDIR
+* XFILLM
 * _XEXEC
 * _XFORK
 * _XFORK via kernel_create_process

docs/RESB.md

@@ -1,16 +1,19 @@
 # RESB
 * checking_fp_exists
 * kernel_create_process
+* ZADCHA
+* XDIVIS
 * XCLOSE_ROUTINE
 * XGETCWD_ROUTINE
 * XPUTCWD_ROUTINE
 * XWRITEBYTES_ROUTINE
 * XFSEEK_ROUTINE
 * XOPENDIR
 * compute_path_relative
+* XFILLM
 * _XEXEC
 * _XFORK via kernel_create_process
-* _XEXEC
+* XGETARGV_ROUTINE
 * getFileLength
 * kernel_try_to_find_command_in_bin_path
 * XOPEN_ROUTINE

docs/TR0.md

@@ -1,4 +1,6 @@
 # TR0
+* XBINDX
+* XDIVIS
 * XREADBYTES_ROUTINE
 * XFSEEK_ROUTINE
 * XOPENDIR

docs/TR1.md

@@ -1,4 +1,6 @@
 # TR1
+* XBINDX
+* XDIVIS
 |MODIFY:KERNEL_XOPEN_PTR1:XFSEEK_ROUTINE
 * _XEXEC
 * _XFORK

docs/TR2.md

@@ -1,2 +1,3 @@
 # TR2
+* XBINDX
 * XMAINARGS_ROUTINE

docs/TR3.md

@@ -1,2 +1,3 @@
 # TR3
+* XBINDX
 * XMAINARGS_ROUTINE

docs/TR4.md

@@ -1,5 +1,7 @@
 # TR4
 * kernel_create_process
+* XBINDX
+* XDECIM
 * XFSEEK_ROUTINE
 * _XFORK via kernel_create_process
 * XMAINARGS_ROUTINE

docs/TR5.md

@@ -2,5 +2,7 @@
 * checking_fp_exists
 * kernel_create_process
 * kernel_kill_process via XFREE_ROUTINE
+* XBINDX
+* XDECIM
 * _XFORK via kernel_create_process
 * XOPEN_ROUTINE

docs/TR6.md

@@ -1,2 +1,3 @@
 # TR6
+* XDECIM
 * XFSEEK_ROUTINE

docs/i_o_counter.md

@@ -0,0 +1,3 @@
+# i_o_counter
+* XWR0
+* XRD0

docs/i_o_save.md

@@ -0,0 +1,3 @@
+# i_o_save
+* XWR0
+* XWSTR0

docs/memmap_ram.md

@@ -146,12 +146,12 @@
 ## Kernel bank 7
 | Type      | Name                         | Range   | Size |
 | :-------- |:---------------------------- |:------- |:-----|
-|ROM|<span style="color:green">FREE</span>                         |$fef4-$fff0|   252   |
+|ROM|<span style="color:green">FREE</span>                         |$fef5-$fff0|   251   |
 ##Bank 0
 | Type      | Name                         | Range   | Size |
 | --------  | ---------------------------- | ------- |-----|
 |BANK0|BUFBUF                        | $c080-$c0b6 |  54   |
 |BANK0|BUFROU                        | $c500-$c54e |     |
 |BANK0|TELEMON_KEYBOARD_BUFFER_BEGIN | $c5c4-$c680 |     |
-|BANK0|XMALLOC (copy from kernel)    | $fba6-$fc52 |     |
-|BANK0|X<span style="color:green">FREE</span> (copy from kernel)      | $fc52-$fed7 |     |
+|BANK0|XMALLOC (copy from kernel)    | $fba7-$fc53 |     |
+|BANK0|X<span style="color:green">FREE</span> (copy from kernel)      | $fc53-$fed8 |     |

docs/work_channel.md

@@ -0,0 +1,4 @@
+# work_channel
+* XWR0
+* XWSTR0
+* XRD0

generate_memmap.sh

@@ -5,7 +5,7 @@ sed -i 's/FREE/<span style="color:green">FREE<\/span>/g' docs/memmap_ram.md
 sed -i 's/|#/#/g' docs/memmap_ram.md
 sed -i 's/MEMMAP://g' docs/memmap_ram.md
 
-LIST="RESB RES RESC RESD RESE RESF RESG RESH TR0 TR1 TR2 TR3 TR4 TR5 TR6 TR7"
+LIST="RESB RES RESC RESD RESE RESF RESG RESH TR0 TR1 TR2 TR3 TR4 TR5 TR6 TR7 work_channel i_o_save i_o_counter ADIODB_VECTOR"
 
 for I in $LIST; do
 

memmap.md

@@ -37,6 +37,16 @@ int MALLOC_FREE_BEGIN_LOW=0x525;
 int MALLOC_FREE_END_HIGH=0x534;
 int MALLOC_FREE_END_LOW=0x52f;
 int KERNEL_MALLOC_FREE_CHUNK_MAX=0x5;
+|CALL:XCRLF:XWR0
+|MODIFY:work_channel:XWR0
+|MODIFY:i_o_save:XWR0
+|MODIFY:i_o_counter:XWR0
+|MODIFY:i_o_save:XWSTR0
+|MODIFY:work_channel:XWSTR0
+|MODIFY:ADDRESS_READ_BETWEEN_BANK:XWSTR0
+|MODIFY:work_channel:XRD0
+|MODIFY:i_o_counter:XRD0
+|MODIFY:$1B:XRDW0
 |MODIFY:RES:_create_file_pointer
 |MODIFY:KERNEL_ERRNO:_create_file_pointer
 |CALL:XMALLOC:_create_file_pointer
@@ -54,6 +64,22 @@ int KERNEL_MALLOC_FREE_CHUNK_MAX=0x5;
 |MODIFY:RES:kernel_kill_process
 |MODIFY:TR5:kernel_kill_process via XFREE_ROUTINE
 |MODIFY:RES:kernel_kill_process via XFREE_ROUTINE
+|MODIFY:RESB:ZADCHA
+|MODIFY:TR0:XBINDX
+|MODIFY:TR1:XBINDX
+|MODIFY:TR2:XBINDX
+|MODIFY:TR3:XBINDX
+|MODIFY:TR4:XBINDX
+|MODIFY:TR5:XBINDX
+|CALL:XDECIM:XBINDX
+|CALL:XDECIM:XWR0
+|MODIFY:TR4:XDECIM
+|MODIFY:TR5:XDECIM
+|MODIFY:TR6:XDECIM
+|MODIFY:TR0:XDIVIS
+|MODIFY:TR1:XDIVIS
+|MODIFY:RES:XDIVIS
+|MODIFY:RESB:XDIVIS
 |MODIFY:RESB:XCLOSE_ROUTINE
 |MODIFY:TR7:XCLOSE_ROUTINE
 |MODIFY:PTR_READ_DEST:XREADBYTES_ROUTINE
@@ -89,6 +115,15 @@ CALL:XOPEN:XRM_ROUTINE
 |MODIFY:RESD:compute_path_relative
 |MODIFY:RESE:compute_path_relative
 |MODIFY:RESF:compute_path_relative
+|MODIFY:DECTRV:XDECAL
+|MODIFY:DECCIB:XDECAL
+|MODIFY:DECFIN:XDECAL
+|MODIFY:DECDEB:XDECAL
+|MODIFY:RES:XFILLM
+|MODIFY:RESB:XFILLM
+|MODIFY:HRSPAT:XHIRES
+|CALL:XTEXT:XCSSCR
+|MODIFY:FLGTEL:XTEXT
 |MODIFY:RES:_XEXEC
 |MODIFY:TR0:_XEXEC
 |MODIFY:TR1:_XEXEC
@@ -117,8 +152,14 @@ CALL:XOPEN:XRM_ROUTINE
 |MODIFY:REB:XMAINARGS_ROUTINE
 |MODIFY:KERNEL_ERRNO:XMAINARGS_ROUTINE
 |MODIFY:RES:XGETARGV_ROUTINE
-|MODIFY:RESB:_XEXEC
+|MODIFY:RESB:XGETARGV_ROUTINE
 |MODIFY:RESB:getFileLength
+|MODIFY:ADHRS:XHRSCB
+|MODIFY:ADHRS:XHRSCH
+|MODIFY:HRSX40:XHRSCD
+|MODIFY:HRSX6:XHRSCD
+|MODIFY:HRSX40:XHRSCG
+|MODIFY:HRSX6:XHRSCG
 |MODIFY:RES:kernel_try_to_find_command_in_bin_path
 |MODIFY:RESB:kernel_try_to_find_command_in_bin_path
 |MODIFY:RESC:kernel_try_to_find_command_in_bin_path

src/build.inc

@@ -1 +1 @@
-.define __DATE__ "2023-06-20 02:17"
+.define __DATE__ "2023-11-23 20:52"

src/functions/XOP.asm

@@ -21,7 +21,8 @@ XOP0_ROUTINE:
 skip129:
 
     ldy     #(KERNEL_SIZE_IOTAB-1)
-  @loop:
+
+@loop:
     cmp     IOTAB,y
     beq     @skip2
     dey

src/functions/XRDW.asm

@@ -1,5 +1,8 @@
 XRD0_ROUTINE:
 	lda     #$00
+   .out     .sprintf("|MODIFY:work_channel:XRD0")
+   .out     .sprintf("|MODIFY:i_o_counter:XRD0")
+
 Lc7da:
 	sta     work_channel   ; Save the channel
 	lda     #$04
@@ -8,6 +11,7 @@ Lc7da:
 	pha
 	tya
 	pha
+
 @loop:
 	ldx     work_channel
 	lda     IOTAB,x
@@ -25,6 +29,7 @@ Lc7da:
 	inc     work_channel
 	dec     i_o_counter
 	bne     @loop
+
 @skip2:
 	pla
 	tay

src/functions/XWRD.asm

@@ -1,11 +1,14 @@
 XRDW0_ROUTINE:
-	lda     #$00
+   .out     .sprintf("|MODIFY:$1B:XRDW0")
 
+	lda     #$00
 	sta     $1B
+
 @loop:
 	lda     $1B
 	jsr     Lc7da
 	bcs     @loop
+
 ROUTINE_I_O_NOTHING:
 	sec
 	rts

src/functions/XWRx.asm

@@ -1,8 +1,14 @@
 XWR0_ROUTINE:
+   .out     .sprintf("|MODIFY:work_channel:XWR0")
+   .out     .sprintf("|MODIFY:i_o_save:XWR0")
+   .out     .sprintf("|MODIFY:i_o_counter:XWR0")
+   .out     .sprintf("|MODIFY:ADIODB_VECTOR:XWR0")
+
 	pha                      ; Push byte to write
 	lda     #$00
 	sta     work_channel
 	pla                      ; Get byte to write
+
 XWSTR0_re_enter_from_XDECAL:
 	sta     i_o_save         ; save the byte to write in I_O_save
 	lda     #$04

src/functions/XWSTRx.asm

@@ -2,11 +2,16 @@
 ; i_o_save
 ; ADDRESS_READ_BETWEEN_BANK
 
-XWSTR0_ROUTINE:
+.proc XWSTR0_ROUTINE
+   .out     .sprintf("|MODIFY:i_o_save:XWSTR0")
+   .out     .sprintf("|MODIFY:work_channel:XWSTR0")
+   .out     .sprintf("|MODIFY:ADDRESS_READ_BETWEEN_BANK:XWSTR0")
+
     ldx     #$00
 	stx     i_o_save+1
 	sta     ADDRESS_READ_BETWEEN_BANK
 	sty     ADDRESS_READ_BETWEEN_BANK+1
+
 @loop:
 	lda     i_o_save+1
 	sta     work_channel
@@ -20,3 +25,4 @@ XWSTR0_ROUTINE:
 	bne     @loop
 	inc     ADDRESS_READ_BETWEEN_BANK+1
 	bne     @loop
+.endproc

src/functions/getargv.asm

@@ -8,7 +8,7 @@
 ; X Contain the id of the argument
 
 .out     .sprintf("|MODIFY:RES:XGETARGV_ROUTINE")
-.out     .sprintf("|MODIFY:RESB:_XEXEC")
+.out     .sprintf("|MODIFY:RESB:XGETARGV_ROUTINE")
 
 .proc XGETARGV_ROUTINE
 

src/functions/xbindx.asm

@@ -1,5 +1,12 @@
 ; AY contains the number
 ; X ...
+.out     .sprintf("|MODIFY:TR0:XBINDX")
+.out     .sprintf("|MODIFY:TR1:XBINDX")
+.out     .sprintf("|MODIFY:TR2:XBINDX")
+.out     .sprintf("|MODIFY:TR3:XBINDX")
+.out     .sprintf("|MODIFY:TR4:XBINDX")
+.out     .sprintf("|MODIFY:TR5:XBINDX")
+
 	sta     TR1
 	sty     TR2
 
@@ -29,6 +36,7 @@
 	beq     @L2
 	sta     TR3
 	bne     @L3+1
+
 @L2:
 	ldy     TR3
 	bne     @L3+1
@@ -42,6 +50,7 @@
 	bpl     @L5
 	lda     TR1
 	ora     #$30
+
 @L1:
 	ldy     TR4
 

src/functions/xcrlf.asm

@@ -1,3 +1,4 @@
+  .out     .sprintf("|CALL:XCRLF:XWR0")
 .proc     XCRLF_ROUTINE
 ; Attention, parfois, il y a des tests bne/beq dans le shell (voir commande cat) pour faire des branchements et eviter le jmp.
 ; modifier en consequence cette routine

src/functions/xdecal.asm

@@ -8,6 +8,11 @@
 ; DOC_MEMORY_WRITE_1=DECTRV
 
 ; This routine could be replace with a simple routine in 65C816 mode
+
+.out     .sprintf("|MODIFY:DECTRV:XDECAL")
+.out     .sprintf("|MODIFY:DECCIB:XDECAL")
+.out     .sprintf("|MODIFY:DECFIN:XDECAL")
+.out     .sprintf("|MODIFY:DECDEB:XDECAL")
 	pha
 	txa
 	pha

src/functions/xdecim.asm

@@ -1,4 +1,9 @@
 .proc XDECIM_ROUTINE
+   .out     .sprintf("|CALL:XDECIM:XBINDX")
+   .out     .sprintf("|CALL:XDECIM:XWR0")
+   .out     .sprintf("|MODIFY:TR4:XDECIM")
+   .out     .sprintf("|MODIFY:TR5:XDECIM")
+   .out     .sprintf("|MODIFY:TR6:XDECIM")
 	pha
 	lda     #$00 ; 65c02
 	sta     TR5

src/functions/xdivis.asm

@@ -1,9 +1,14 @@
+   .out     .sprintf("|MODIFY:TR0:XDIVIS")
+   .out     .sprintf("|MODIFY:TR1:XDIVIS")
+   .out     .sprintf("|MODIFY:RES:XDIVIS")
+   .out     .sprintf("|MODIFY:RESB:XDIVIS")
 	sta     TR0
 	sty     TR1
 	ldx     #$00
 	stx     RESB
 	stx     RESB+1
 	ldx     #$10
+
 @loop:
 	asl     RES
 	rol     RES+1
@@ -20,6 +25,7 @@
 	sty     RESB
 	sta     RESB+1
 	inc     RES
+
 @skip:
 	dex
 	bne     @loop