mirror of
https://github.com/mi57730/a2d.git
synced 2024-10-02 20:55:11 +00:00
fix disasm
This commit is contained in:
parent
5d09d459f4
commit
efc2b553d6
@ -522,7 +522,7 @@ L2974: rts
|
|||||||
L2997: lda $A425
|
L2997: lda $A425
|
||||||
cmp L2A10
|
cmp L2A10
|
||||||
bne L29B1
|
bne L29B1
|
||||||
L299F: MLI_CALL CLOSE, $2960
|
L299F: MLI_CALL CLOSE, L2960
|
||||||
beq L29AA
|
beq L29AA
|
||||||
jmp L28F4
|
jmp L28F4
|
||||||
|
|
||||||
@ -1045,7 +1045,7 @@ L33B8: inc L334A
|
|||||||
cmp L329B
|
cmp L329B
|
||||||
bcc L33E0
|
bcc L33E0
|
||||||
lda #$00
|
lda #$00
|
||||||
L33C5: sta L334A
|
sta L334A
|
||||||
lda L329D
|
lda L329D
|
||||||
sta L30D9
|
sta L30D9
|
||||||
MLI_CALL READ, $30D8
|
MLI_CALL READ, $30D8
|
||||||
@ -1155,30 +1155,26 @@ L34A1: iny
|
|||||||
bne L34A1
|
bne L34A1
|
||||||
stx L3188
|
stx L3188
|
||||||
MLI_CALL GET_FILE_INFO, $3139
|
MLI_CALL GET_FILE_INFO, $3139
|
||||||
|
cmp #$46
|
||||||
.byte $C9 ; RE-DISASM this!
|
beq L34C4
|
||||||
lsr $F0
|
cmp #$45
|
||||||
ora #$C9
|
beq L34C4
|
||||||
eor $F0
|
cmp #$44
|
||||||
ora $C9
|
|
||||||
.byte $44
|
|
||||||
beq L34C4
|
beq L34C4
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L34C4: MLI_CALL GET_FILE_INFO, $3126
|
L34C4: MLI_CALL GET_FILE_INFO, $3126
|
||||||
|
beq L34DD
|
||||||
.byte $F0 ; RE-DISASM this!
|
cmp #$45
|
||||||
ora ($C9),y
|
beq L34D4
|
||||||
eor $F0
|
|
||||||
.byte $04
|
|
||||||
cmp #$46
|
cmp #$46
|
||||||
bne L34DA
|
bne L34DA
|
||||||
jsr L3A0A
|
L34D4: jsr L3A0A
|
||||||
jmp L34C4
|
jmp L34C4
|
||||||
|
|
||||||
L34DA: jmp L3A43
|
L34DA: jmp L3A43
|
||||||
|
|
||||||
lda L312D
|
L34DD: lda L312D
|
||||||
cmp #$0F
|
cmp #$0F
|
||||||
beq L34EC
|
beq L34EC
|
||||||
cmp #$0D
|
cmp #$0D
|
||||||
@ -1233,17 +1229,15 @@ L3540: lda L3160
|
|||||||
jsr L36FB
|
jsr L36FB
|
||||||
jsr L39EE
|
jsr L39EE
|
||||||
MLI_CALL GET_FILE_INFO, $3126
|
MLI_CALL GET_FILE_INFO, $3126
|
||||||
.byte $F0 ; RE-DISASM THIS
|
beq L3566
|
||||||
ora ($4C),y
|
jmp L3A43
|
||||||
.byte $43
|
|
||||||
.byte $3A
|
|
||||||
L3558: jsr L375E
|
L3558: jsr L375E
|
||||||
jsr L3720
|
jsr L3720
|
||||||
lda #$FF
|
lda #$FF
|
||||||
sta L3467
|
sta L3467
|
||||||
jmp L35A4
|
jmp L35A4
|
||||||
|
|
||||||
jsr L3739
|
L3566: jsr L3739
|
||||||
jsr L36C1
|
jsr L36C1
|
||||||
bcs L3558
|
bcs L3558
|
||||||
jsr L3720
|
jsr L3720
|
||||||
@ -1354,8 +1348,8 @@ L366B: lda #0
|
|||||||
lda L310B
|
lda L310B
|
||||||
cmp #$0B
|
cmp #$0B
|
||||||
beq L366B
|
beq L366B
|
||||||
L36AE: MLI_CALL CLOSE, $30EB
|
L36AE: MLI_CALL CLOSE, L30EB
|
||||||
MLI_CALL CLOSE, $30E9
|
MLI_CALL CLOSE, L30E9
|
||||||
jsr L37AE
|
jsr L37AE
|
||||||
jsr L379D
|
jsr L379D
|
||||||
rts
|
rts
|
||||||
@ -1524,13 +1518,15 @@ L37E6: .byte $00
|
|||||||
PASCAL_STRING "Selector.List"
|
PASCAL_STRING "Selector.List"
|
||||||
.byte $04
|
.byte $04
|
||||||
L37F6: .byte $00,$00,$44,$00,$08,$00,$00
|
L37F6: .byte $00,$00,$44,$00,$08,$00,$00
|
||||||
L37FD: .byte $01,$00
|
|
||||||
|
DEFINE_CLOSE_PARAMS L37FD
|
||||||
|
|
||||||
L37FF: MLI_CALL OPEN, $37E1
|
L37FF: MLI_CALL OPEN, $37E1
|
||||||
bne L381B
|
bne L381B
|
||||||
lda L37E6
|
lda L37E6
|
||||||
sta L37F6
|
sta L37F6
|
||||||
MLI_CALL READ, $37F5
|
MLI_CALL READ, $37F5
|
||||||
MLI_CALL CLOSE, $37FD
|
MLI_CALL CLOSE, L37FD
|
||||||
lda #$00
|
lda #$00
|
||||||
L381B: rts
|
L381B: rts
|
||||||
|
|
||||||
@ -1569,11 +1565,11 @@ L3857: .byte $00,$03,$77,$38,$00,$50
|
|||||||
L385D: .byte $00,$03,$6E,$38,$00,$54
|
L385D: .byte $00,$03,$6E,$38,$00,$54
|
||||||
L3863: .byte $00,$04
|
L3863: .byte $00,$04
|
||||||
L3865: .byte $00,$00,$20,$00,$04,$00,$00
|
L3865: .byte $00,$00,$20,$00,$04,$00,$00
|
||||||
L386C: .byte $01,$00
|
DEFINE_CLOSE_PARAMS L386C
|
||||||
PASCAL_STRING "Selector"
|
PASCAL_STRING "Selector"
|
||||||
PASCAL_STRING "DeskTop2"
|
PASCAL_STRING "DeskTop2"
|
||||||
|
|
||||||
L3880: MLI_CALL CLOSE, $386C
|
L3880: MLI_CALL CLOSE, L386C
|
||||||
MLI_CALL OPEN, $385E
|
MLI_CALL OPEN, $385E
|
||||||
beq :+
|
beq :+
|
||||||
MLI_CALL OPEN, $3858
|
MLI_CALL OPEN, $3858
|
||||||
|
Loading…
Reference in New Issue
Block a user