si pudieras mandarme a mi correo tu readaptación (con algunas explicaciones tecnicas de como lo usas tu) te lo agredecería.
Buenas lobogris.
Aquí tienes un buen "ladrillo".
[code]La dirección $0400 es la que he usado para La carretera.
.C:0400 A9 03 LDA #$03
.C:0402 85 31 STA $31
.C:0404 20 46 01 JSR $0146
.C:0407 AD 6D 02 LDA $026D
.C:040a 0D 00 1C ORA $1C00
.C:040d 8D 00 1C STA $1C00
.C:0410 A9 04 LDA #$04
.C:0412 2C 00 18 BIT $1800
.C:0415 D0 5B BNE $0472
.C:0417 10 F9 BPL $0412
.C:0419 B1 30 LDA ($30),Y
.C:041b 48 PHA
.C:041c 4A LSR A
.C:041d 4A LSR A
.C:041e 4A LSR A
.C:041f 4A LSR A
.C:0420 AA TAX
.C:0421 BD F0 05 LDA $05F0,X
.C:0424 85 70 STA $70
.C:0426 68 PLA
.C:0427 29 0F AND #$0F
.C:0429 AA TAX
.C:042a A9 18 LDA #$18
.C:042c 8D 00 18 STA $1800
.C:042f 2C 00 18 BIT $1800
.C:0432 30 FB BMI $042F
.C:0434 BD F0 05 LDA $05F0,X
.C:0437 8D 00 18 STA $1800
.C:043a 0A ASL A
.C:043b 29 0F AND #$0F
.C:043d 8D 00 18 STA $1800
.C:0440 AD 70 00 LDA $0070
.C:0443 8D 00 18 STA $1800
.C:0446 0A ASL A
.C:0447 29 0F AND #$0F
.C:0449 8D 00 18 STA $1800
.C:044c EA NOP
.C:044d A9 00 LDA #$00
.C:044f 8D 00 18 STA $1800
.C:0452 C8 INY
.C:0453 D0 BB BNE $0410
.C:0455 B1 30 LDA ($30),Y
.C:0457 F0 19 BEQ $0472
.C:0459 A9 02 LDA #$02
.C:045b 85 8D STA $8D
.C:045d A5 F9 LDA $F9
.C:045f 0A ASL A
.C:0460 AA TAX
.C:0461 C8 INY
.C:0462 B1 30 LDA ($30),Y
.C:0464 95 07 STA $07,X
.C:0466 88 DEY
.C:0467 B1 30 LDA ($30),Y
.C:0469 D5 06 CMP $06,X
.C:046b 95 06 STA $06,X
.C:046d F0 91 BEQ $0400
.C:046f A9 00 LDA #$00
.C:0471 2C A9 01 BIT $01A9
.C:0474 4C 69 F9 JMP $F969
.C:0477 00 BRK
.C:0478 00 BRK
.C:0479 00 BRK
.C:047a 00 BRK
.C:047b 00 BRK
.C:047c 00 BRK
.C:047d 00 BRK
.C:047e 00 BRK
.C:047f 00 BRK
.C:0480 A0 38 LDY #$38
.C:0482 B9 D1 F4 LDA $F4D1,Y
.C:0485 99 46 01 STA $0146,Y
.C:0488 88 DEY
.C:0489 10 F7 BPL $0482
.C:048b A0 36 LDY #$36
.C:048d B9 F8 D5 LDA $D5F8,Y
.C:0490 99 80 01 STA $0180,Y
.C:0493 88 DEY
.C:0494 10 F7 BPL $048D
.C:0496 A9 60 LDA #$60
.C:0498 8D 7A 01 STA $017A
.C:049b 8D B7 01 STA $01B7
.C:049e A6 7F LDX $7F
.C:04a0 BD CA FE LDA $FECA,X
.C:04a3 8D 6D 02 STA $026D
.C:04a6 A9 01 LDA #$01
.C:04a8 95 1C STA $1C,X
.C:04aa A9 10 LDA #$10
.C:04ac 8D 07 1C STA $1C07
.C:04af A9 02 LDA #$02
.C:04b1 85 F9 STA $F9
.C:04b3 0A ASL A
.C:04b4 AA TAX
.C:04b5 A5 18 LDA $18
.C:04b7 C9 12 CMP #$12
.C:04b9 F0 32 BEQ $04ED
.C:04bb 95 06 STA $06,X
.C:04bd A5 19 LDA $19
.C:04bf 95 07 STA $07,X
.C:04c1 A9 02 LDA #$02
.C:04c3 85 8D STA $8D
.C:04c5 A6 F9 LDX $F9
.C:04c7 A9 E0 LDA #$E0
.C:04c9 20 7D D5 JSR $D57D
.C:04cc B5 00 LDA $00,X
.C:04ce 30 FC BMI $04CC
.C:04d0 C9 00 CMP #$00
.C:04d2 F0 ED BEQ $04C1
.C:04d4 C9 01 CMP #$01
.C:04d6 F0 15 BEQ $04ED
.C:04d8 20 80 01 JSR $0180
.C:04db 90 F3 BCC $04D0
.C:04dd C6 8D DEC $8D
.C:04df F0 07 BEQ $04E8
.C:04e1 A9 C0 LDA #$C0
.C:04e3 20 8C D5 JSR $D58C
.C:04e6 D0 DD BNE $04C5
.C:04e8 A6 F9 LDX $F9
.C:04ea 4C 0A E6 JMP $E60A
.C:04ed 4C 08 D0 JMP $D008
.C:04f0 0F 07 0D SLO $0D07
.C:04f3 05 0B ORA $0B
.C:04f5 03 09 SLO ($09,X)
.C:04f7 01 0E ORA ($0E,X)
.C:04f9 06 0C ASL $0C
.C:04fb 04 0A NOOP $0A
.C:04fd 02 JAM
.C:04fe 08 PHP
.C:04ff 00 BRK
.C:0500 A9 FC LDA #$FC
.C:0502 2C A9 FE BIT $FEA9
.C:0505 85 A5 STA $A5
.C:0507 78 SEI
.C:0508 20 C0 03 JSR $03C0
.C:050b B0 3E BCS $054B
.C:050d 85 A4 STA $A4
.C:050f 20 C0 03 JSR $03C0
.C:0512 B0 37 BCS $054B
.C:0514 38 SEC
.C:0515 65 A5 ADC $A5
.C:0517 A4 A4 LDY $A4
.C:0519 D0 02 BNE $051D
.C:051b 85 A5 STA $A5
.C:051d 4C A0 03 JMP $03A0
.C:0520 A2 27 LDX #$27
.C:0522 20 C0 03 JSR $03C0
.C:0525 B0 24 BCS $054B
.C:0527 A0 00 LDY #$00
.C:0529 84 01 STY $01
.C:052b 91 AE STA ($AE),Y
.C:052d 86 01 STX $01
.C:052f D0 1A BNE $054B
.C:0531 E6 AE INC $AE
.C:0533 D0 02 BNE $0537
.C:0535 E6 AF INC $AF
.C:0537 C6 A5 DEC $A5
.C:0539 D0 E7 BNE $0522
.C:053b 58 CLI
.C:053c 20 E1 FF JSR $FFE1
.C:053f F0 07 BEQ $0548
.C:0541 A5 A4 LDA $A4
.C:0543 D0 BE BNE $0503
.C:0545 A2 80 LDX #$80
.C:0547 2C A2 00 BIT $00A2
.C:054a 2C A2 1D BIT $1DA2
.C:054d A9 97 LDA #$97
.C:054f 8D 00 DD STA $DD00
.C:0552 20 B3 EE JSR $EEB3
.C:0555 58 CLI
.C:0556 8A TXA
.C:0557 30 02 BMI $055B
.C:0559 38 SEC
.C:055a 60 RTS
.C:055b A9 00 LDA #$00
.C:055d 4C A9 F5 JMP $F5A9
.C:0560 20 C0 03 JSR $03C0
.C:0563 B0 E6 BCS $054B
.C:0565 85 AE STA $AE
.C:0567 20 C0 03 JSR $03C0
.C:056a B0 DF BCS $054B
.C:056c A4 AF LDY $AF
.C:056e D0 06 BNE $0576
.C:0570 A5 C3 LDA $C3
.C:0572 85 AE STA $AE
.C:0574 A5 C4 LDA $C4
.C:0576 85 AF STA $AF
.C:0578 A9 2C LDA #$2C
.C:057a 8D 5D 03 STA $035D
.C:057d 4C 60 03 JMP $0360
.C:0580 A9 0F LDA #$0F
.C:0582 8D 00 DD STA $DD00
.C:0585 2C 00 DD BIT $DD00
.C:0588 10 FB BPL $0585
.C:058a 70 30 BVS $05BC
.C:058c AD 12 D0 LDA $D012
.C:058f C9 31 CMP #$31
.C:0591 90 06 BCC $0599
.C:0593 29 06 AND #$06
.C:0595 C9 02 CMP #$02
.C:0597 F0 F3 BEQ $058C
.C:0599 A9 07 LDA #$07
.C:059b 8D 00 DD STA $DD00
.C:059e EA NOP
.C:059f EA NOP
.C:05a0 EA NOP
.C:05a1 EA NOP
.C:05a2 EA NOP
.C:05a3 EA NOP
.C:05a4 EA NOP
.C:05a5 AD 00 DD LDA $DD00
.C:05a8 4A LSR A
.C:05a9 4A LSR A
.C:05aa 4D 00 DD EOR $DD00
.C:05ad 4A LSR A
.C:05ae 4A LSR A
.C:05af 4D 00 DD EOR $DD00
.C:05b2 4A LSR A
.C:05b3 4A LSR A
.C:05b4 4D 00 DD EOR $DD00
.C:05b7 49 06 EOR #$06
.C:05b9 18 CLC
.C:05ba 60 RTS
.C:05bb 00 BRK
.C:05bc A9 00 LDA #$00
.C:05be 38 SEC
.C:05bf 60 RTS
.C:05c0 85 93 STA $93
.C:05c2 A5 B9 LDA $B9
.C:05c4 85 AF STA $AF
.C:05c6 A9 60 LDA #$60
.C:05c8 85 B9 STA $B9
.C:05ca 20 D5 F3 JSR $F3D5
.C:05cd A5 90 LDA $90
.C:05cf 10 03 BPL $05D4
.C:05d1 4C 07 F7 JMP $F707
.C:05d4 A5 BA LDA $BA
.C:05d6 20 B4 FF JSR $FFB4
.C:05d9 A5 B9 LDA $B9
.C:05db 20 96 FF JSR $FF96
.C:05de 20 A5 FF JSR $FFA5
.C:05e1 A5 90 LDA $90
.C:05e3 F0 03 BEQ $05E8
.C:05e5 4C 04 F7 JMP $F704
.C:05e8 A0 00 LDY #$00
.C:05ea A2 05 LDX #$05
.C:05ec A9 57 LDA #$57
.C:05ee 20 2C 06 JSR $062C
.C:05f1 85 A4 STA $A4
.C:05f3 B9 00 04 LDA $0400,Y
.C:05f6 20 A8 FF JSR $FFA8
.C:05f9 C8 INY
.C:05fa C6 A4 DEC $A4
.C:05fc D0 F5 BNE $05F3
.C:05fe 20 AE FF JSR $FFAE
.C:0601 98 TYA
.C:0602 D0 E6 BNE $05EA
.C:0604 A0 80 LDY #$80
.C:0606 A2 05 LDX #$05
.C:0608 A9 45 LDA #$45
.C:060a 20 2C 06 JSR $062C
.C:060d 20 AE FF JSR $FFAE
.C:0610 A0 40 LDY #$40
.C:0612 B9 C0 04 LDA $04C0,Y
.C:0615 99 00 03 STA $0300,Y
.C:0618 C8 INY
.C:0619 D0 F7 BNE $0612
.C:061b A5 93 LDA $93
.C:061d F0 0A BEQ $0629
.C:061f A9 D1 LDA #$D1
.C:0621 8D 6B 03 STA $036B
.C:0624 A9 1C LDA #$1C
.C:0626 8D 8C 03 STA $038C
.C:0629 4C 40 03 JMP $0340
.C:062c 48 PHA
.C:062d A5 BA LDA $BA
.C:062f 20 B1 FF JSR $FFB1
.C:0632 A9 6F LDA #$6F
.C:0634 20 93 FF JSR $FF93
.C:0637 A9 4D LDA #$4D
.C:0639 20 A8 FF JSR $FFA8
.C:063c A9 2D LDA #$2D
.C:063e 20 A8 FF JSR $FFA8
.C:0641 68 PLA
.C:0642 20 A8 FF JSR $FFA8
.C:0645 98 TYA
.C:0646 20 A8 FF JSR $FFA8
.C:0649 8A TXA
.C:064a 20 A8 FF JSR $FFA8
.C:064d A9 20 LDA #$20
.C:064f 4C A8 FF JMP $FFA8
DIRECCIONES IMPORTANTES
• $0400 - $04FF: Rutina que se transfiere, a través del puerto IEC, a la memoria de la unidad de disco.
• $0500 - $05BF: Rutina que se mueve a la dirección $0340 y después se salta a ella para ponerse en contacto con la unidad de disco. La rutina anterior y ésta corren altamente sincronizadas entre sí.
• $05C0: Entrada al fast loader.
• $062C: Subrutina que se encarga de transferir datos por el puerto IEC. Es usada para transferir algunos datos a la memoria de la unidad de disco.
Para mover el fast loader a otro sitio hay que cambiar las direcciones siguientes a la nueva ubicación:
• $05EE: JSR $062C
• $05F3: LDA $0400,Y
• $060A: JSR $062C
• $0612: LDA $04C0,Y[/quote]
Para llamarla yo hago lo siguiente:
[code].C:0736 A6 BA LDX $BA
.C:0738 A0 01 LDY #$01
.C:073a 20 BA FF JSR $FFBA
.C:073d A9 aa LDA #$AA (longitud nombre fichero)
.C:073f A2 xx LDX #$XX (Byte bajo dirección nombre fichero)
.C:0741 A0 yy LDY #$YY (Byte alto dirección nombre fichero)
.C:0743 20 BD FF JSR $FFBD
.C:0746 A9 00 LDA #$00
.C:0748 4C zz zz JMP $ZZZZ (dirección entrada al fast loader)
Probablemente las instrucciones LDX $BA, LDY #$01 y JSR $FFBA no hagan falta si nuestro programa va a cargar algún fichero desde la misma unidad, pero yo las he dejado ya que no molestan.[/quote]
Sólo hay un par de problemas con el Star turbo, no funciona en máquinas NTSC y no funciona si hay más de una unidad de disco conectada.
¡¡¡¡A disfrutar y feliz año a todos!!!!