fix/cache_github_action

Author: jedeoric

src/functions/XOP.asm

@@ -24,7 +24,7 @@ XOP0_ROUTINE:
     rts
 
 skip129:
-    ldy     #(KERNEL_SIZE_IOTAB-1)
+    ldy     #(KERNEL_SIZE_IOTAB - 1)
 
 @loop:
     cmp     IOTAB,y

src/functions/XWRx.asm

@@ -39,8 +39,8 @@ XWSTR0_re_enter_from_XDECAL:
 	tax                     ;
 	lda     KERNEL_ADIOB,x  ; GET vectors
 	sta     ADIODB_VECTOR+1
-	lda     KERNEL_ADIOB+1,x
-	sta     ADIODB_VECTOR+2 ;
+	lda     KERNEL_ADIOB + 1,x
+	sta     ADIODB_VECTOR + 2 ;
 	lda     i_o_save        ; Get Byte to write
 @loop:
 	bit     @loop

src/functions/XWSTRx.asm

@@ -19,21 +19,21 @@
    .out     .sprintf("|MODIFY:FLGSCR:XWR0") ; IOTAB
 
     ldx     #$00
-	stx     i_o_save+1
+	stx     i_o_save + 1
 	sta     ADDRESS_READ_BETWEEN_BANK
-	sty     ADDRESS_READ_BETWEEN_BANK+1
+	sty     ADDRESS_READ_BETWEEN_BANK + 1
 
 @loop:
-	lda     i_o_save+1
+	lda     i_o_save + 1
 	sta     work_channel
 
 	ldy     #$00
 	jsr     ORIX_VECTOR_READ_VALUE_INTO_RAM_OVERLAY
 	beq     Lc7a7
 
-	jsr     XWSTR0_re_enter_from_XDECAL
+   jsr     XWSTR0_re_enter_from_XDECAL
 	inc     ADDRESS_READ_BETWEEN_BANK
 	bne     @loop
-	inc     ADDRESS_READ_BETWEEN_BANK+1
+	inc     ADDRESS_READ_BETWEEN_BANK + 1
 	bne     @loop
 .endproc

src/functions/bank_mng/search_free_bank.s

@@ -30,39 +30,39 @@
     ldx     #$00
 
     ldy     #KERNEL_FIRST_FREE_RAM_BANK  ; First bank
-    sty     RES+1
+    sty     RES + 1
 
 	lda     #<KERNEL_BANK_MANAGEMENT
 	ldy     #>KERNEL_BANK_MANAGEMENT
 
     sta     ADDRESS_READ_BETWEEN_BANK_DOUBLON
-    sty     ADDRESS_READ_BETWEEN_BANK_DOUBLON+1
+    sty     ADDRESS_READ_BETWEEN_BANK_DOUBLON + 1
 
 @not_found:
 
-    ldy     RES+1
+    ldy     RES + 1
 
-    cpy     #(KERNEL_LAST_RAM_BANK+1)
+    cpy     #(KERNEL_LAST_RAM_BANK + 1)
     beq     @oob ; Out Of Bank
 
     MEMORY_GET_VALUE_FROM_BANK ; A contains the value
 
     cmp     #$00
     beq     @found
 
-    inc     RES+1
+    inc     RES + 1
     bne     @not_found
 
 
 @found:
     ; Set busy flag
     lda     #$01 ; Type
-    ldy     RES+1 ; Offset
+    ldy     RES + 1 ; Offset
     ldx     #$00  ; BANK
 
     MEMORY_PUT_VALUE_TO_BANK KERNEL_BANK_MANAGEMENT
 
-    lda     RES+1 ; Offset
+    lda     RES + 1 ; Offset
     clc
     adc     #kernel_bank_management_struct::KERNEL_BANK_PROCESS_ID
     tay

src/functions/exe/ori2.asm

@@ -13,13 +13,20 @@
 ;	04-05	: 00 00
 ;	06	    : Inchangé
 .proc compute_all_offset_ORI2
+    .out     .sprintf("|MODIFY:KERNEL_CREATE_PROCESS_PTR1:compute_all_offset_ORI2")
+    .out     .sprintf("|MODIFY:RESD:compute_all_offset_ORI2")
+    .out     .sprintf("|MODIFY:RESE:compute_all_offset_ORI2")
+    .out     .sprintf("|MODIFY:PTR_READ_DEST:compute_all_offset_ORI2")
+
+
+    ; RESD contains header
 
     ; Set the adress in the kernel struct
-    ldx     kernel_process+kernel_process_struct::kernel_current_process
-    lda     kernel_process+kernel_process_struct::kernel_one_process_struct_ptr_low,x
+    ldx     kernel_process + kernel_process_struct::kernel_current_process
+    lda     kernel_process + kernel_process_struct::kernel_one_process_struct_ptr_low,x
     sta     KERNEL_CREATE_PROCESS_PTR1
-    lda     kernel_process+kernel_process_struct::kernel_one_process_struct_ptr_high,x
-    sta     KERNEL_CREATE_PROCESS_PTR1+1
+    lda     kernel_process + kernel_process_struct::kernel_one_process_struct_ptr_high,x
+    sta     KERNEL_CREATE_PROCESS_PTR1 + 1
 
 
     ; Get execution address low
@@ -44,24 +51,24 @@
     sta     RESE
 
 
-    ldy     #kernel_one_process_struct::kernel_process_addr+1
+    ldy     #kernel_one_process_struct::kernel_process_addr + 1
 
-    ldx     RESD+1
+    ldx     RESD + 1
     inx
     txa
     clc
     adc     RESE
     sta     (KERNEL_CREATE_PROCESS_PTR1),y
 
 
-    ldy     RESD+1	; the ptr of the address allocated
+    ldy     RESD + 1	; the ptr of the address allocated
     iny
 
-    sty     ORI2_PROGRAM_ADRESS+1 ; addr $62: $0B
-    sty     ORI2_MAP_ADRESS+1          ; Prepare adresse map but does not compute yet ; $0B
-    sty     RESE+1                     ; Set address execution   ; 0B
-    sty     PTR_READ_DEST+1            ; Set address to load the next part of the program
-    sty     ORI2_PROGRAM_ADRESS+1
+    sty     ORI2_PROGRAM_ADRESS + 1 ; addr $62: $0B
+    sty     ORI2_MAP_ADRESS + 1     ; Prepare adresse map but does not compute yet ; $0B
+    sty     RESE + 1                ; Set address execution   ; 0B
+    sty     PTR_READ_DEST + 1       ; Set address to load the next part of the program
+    sty     ORI2_PROGRAM_ADRESS + 1
 ;
 
 .IFPC02
@@ -70,7 +77,7 @@
     stz     ORI2_MAP_ADRESS
     stz     RESE             ; Set address execution
     stz     PTR_READ_DEST
-    stz     ORI2_PAGE_LOAD  ; Set to 0 for instance before compute
+    stz     ORI2_PAGE_LOAD   ; Set to 0 for instance before compute
 .p02
 .else
     lda     #$00
@@ -83,7 +90,7 @@
 
 
     ldy     #15              ; High start adress
-    lda     RESD+1      ; Align
+    lda     RESD + 1      ; Align
     clc
     adc     #$01
     cmp     (RESD),y
@@ -101,145 +108,25 @@
 
     ldy     #$08
     lda     (RESD),y
-    sta     ORI2_LENGTH_MAP+1
+    sta     ORI2_LENGTH_MAP + 1
 
     ldy     #12
     lda     (RESD),y
     clc
     adc     ORI2_MAP_ADRESS
     bcc     @S2
-    inc     ORI2_MAP_ADRESS+1
+    inc     ORI2_MAP_ADRESS + 1
 @S2:
     sta     ORI2_MAP_ADRESS
 
     ldy     #13
     lda     (RESD),y ; fixme 65c02
     clc
-    adc     ORI2_MAP_ADRESS+1
-    sta     ORI2_MAP_ADRESS+1
+    adc     ORI2_MAP_ADRESS + 1
+    sta     ORI2_MAP_ADRESS + 1
 
 
 	rts
 .endproc
 
 
-.proc relocate_ORI2
-
-    ; On suppose que A = page de chargement du programme (chargé en début de page)
-    ; On suppose également que z02-z05 ont été mis à jour par l'appelant (adresse et longueur de la bitmap)
-    lda     ORI2_PAGE_LOAD            ; offset à appliquer
-    beq     rel_end
-
-	; Length map $47
-	ldy     #$00                      ; Au cas ou on parte directement vers "reste"
-	lda     ORI2_LENGTH_MAP+1
-
-	beq     reste
-
-boucle:
-	lda     (ORI2_MAP_ADRESS),y		  ; On prend un octet de la MAP
-	beq     skip8					  ; 0 -> On saute directement 8 octets du programme
-
-	tax								  ; Sauvegarde ACC
-	tya							      ; Sauvegarde Y
-	pha
-
-	ldy     #$07					  ; 8 Bits
-	txa							      ; Restaure ACC
-reloc:
-	lsr     a
-	bcc     next
-
-	tax								  ; Sauvegarde ACC
-	clc								  ; On ajuste l'adresse
-	lda     (ORI2_PROGRAM_ADRESS),y
-	adc     ORI2_PAGE_LOAD
-	sta     (ORI2_PROGRAM_ADRESS),y
-	txa								  ; Restaure ACC
-next:
-	dey
-	bpl     reloc
-	pla							      ; Restaure Y
-	tay
-	;
-	; On saute 8 octets
-	;
-skip8:
-	clc						        ; On saute 8 octets du programme
-	lda     ORI2_PROGRAM_ADRESS
-	adc     #$08
-	sta     ORI2_PROGRAM_ADRESS
-	bcc     *+4
-	inc     ORI2_PROGRAM_ADRESS+1
-suite:
-; $1248 don't relocate
-; $1268
-
-
-	iny
-	bne *+6
-	inc ORI2_MAP_ADRESS+1								; Page suivante dans la MAP
-	dec ORI2_LENGTH_MAP+1
-	bne boucle
-
-	;
-	; On a traité toutes les pages entières
-	; On traite les octets restants
-	;
-	; On arrive ici avec Y=0
-	;
-reste:
-	lda     ORI2_LENGTH_MAP
-	beq     rel_end
-
-boucle2:
-	lda     (ORI2_MAP_ADRESS),y								; On prend un octet de la MAP
-	beq     skip82								; 0 -> On saute directement 8 octets du programme
-
-	tax									; Sauvegarde ACC
-	tya									; Sauvegarde Y
-	pha
-
-
-	ldy     #$07								; 8 Bits
-	txa									; Restaure ACC
-reloc2:
-	lsr     a
-	bcc     next2
-
-	tax									; Sauvegarde ACC
-	clc									; On ajuste l'adresse
-	lda     (ORI2_PROGRAM_ADRESS),y
-	adc     ORI2_PAGE_LOAD
-	sta     (ORI2_PROGRAM_ADRESS),y
-	txa									; Restaure ACC
-next2:
-	dey
-	bpl     reloc2
-	pla									; Restaure Y
-	tay
-	;
-	; On saute 8 octets
-	;
-skip82:
-	clc									; On saute 8 octets du programme
-	lda     ORI2_PROGRAM_ADRESS
-	adc     #$08
-	sta     ORI2_PROGRAM_ADRESS
-	bcc     *+4
-	inc     ORI2_PROGRAM_ADRESS+1
-
-suite2:
-	iny
-
-	dec     ORI2_LENGTH_MAP
-	bne     boucle2
-
-rel_end:
-	inc     ORI2_PAGE_LOAD				; On remet la page de chargement à sa valeur initiale
-
-
-	rts									; Pour utilisation éventuelle par une autre routine
-.endproc
-
-