Ahora tengo dos funciones que parece que llaman al firm que no se como substituir:
$this->bbcode_second_pass_code('', '* .border_clr EQU $0')
En el phaser directamente lo borrais y añadis un "xor a"
Pero en el savage por ejemplo añaden:
$this->bbcode_second_pass_code('', '.vector_table_loc EQU $FE00')
Que usan aqui:
$this->bbcode_second_pass_code('', '.musicstart
PUSH AF
LD HL,VECTOR_TABLE_LOC
LD DE,VECTOR_TABLE_LOC + 1
LD BC,257 ; Length of vector table = 257 bytes
LD (HL),$FF ; Point vector table at address $FFFF
LDIR
LD HL,$FFFF
LD (HL),$18 ; Copy in a JR instruction for JR FFF4
LD HL,$FFF4
LD (HL),$C3 ; Copy in a JP instruction
INC HL
LD (HL),ISR_0
LD A,VECTOR_TABLE_LOC / 256
LD I,A
IM 2
EI ; Enable IM2 routine at $F0F0
POP AF
CALL INIT_MUSIC
CALL PLAY_MUSIC
IM 1
LD IY,$5C3A ; Set up IY and
LD HL,$2758 ; HL with sensible values for
EXX ; returning to BASIC
EI
RET
')
Luego hay otras más como:
$this->bbcode_second_pass_code('', 'intvec_adr EQU $FFF5
...
.chan_data EQU 0
.chan_patt_tbl_adr EQU 2
.chan_curpos EQU 4
.chan_endpos EQU 5
.chan_songlooppos EQU 6
.chan_transpose EQU 7
.chan_note_len_remain EQU 8
.chan_note_len_total EQU 9
.CHAN_GENFX EQU 10
.CHAN_SKEW_PARAM EQU 11
.CHAN_CHANNEL_ON EQU 12
.CHAN_ORN_BASE EQU 13
.CHAN_ORN_COUNT EQU 14
.CHAN_NOTE EQU 15
.CHAN_SKEW_XORING EQU 16
')
Podría coger VECTOR_TABLE_LOC y substituirlo por su valor pero para los otros labels no se si me vale esa solucion o si es correcta
Bueno a ver si me puedes echar un cable aquí, que ahora si que estoy perdido
Un Saludo!
). Siempre hay que darle vueltas a como implementar estas cosas sobre todo de cara al código generado: el msc genera, además del bytecode, el intérprete que lo ejecuta, y este intérprete debe ser lo más compacto posible. Eso me condiciona mucho el como implementar las cosas en el lenguaje. Tengo que pensarme bien cómo implementar el bitwise para que el código generado del intérprete de las condiciones/comandos implicados sea mínimo.
