Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-10-01 14:55:28 +00:00
Code Issues Projects Releases Wiki Activity

fix disasm

Browse Source
This commit is contained in:
Joshua Bell 2018-03-03 08:26:04 -08:00
parent 5d09d459f4
commit efc2b553d6
1 changed files with 23 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
desktop/sys.s
View File

@ -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