Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-26 02:49:18 +00:00
Code Issues Projects Releases Wiki Activity

MGTK: Correct some bad disassembly

Browse Source
This commit is contained in:
Joshua Bell 2018-03-25 21:04:15 -07:00
parent 6d9e05f7f7
commit 2dbeadc5b2
1 changed files with 12 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
desktop/mgtk.s
View File

@ -503,8 +503,10 @@ param_lengths:
PARAM_DEFN 5, $82, 0 ; $4A TrackThumb PARAM_DEFN 5, $82, 0 ; $4A TrackThumb
PARAM_DEFN 3, $8C, 0 ; $4B UpdateThumb PARAM_DEFN 3, $8C, 0 ; $4B UpdateThumb
PARAM_DEFN 2, $8C, 0 ; $4C ActivateCtl PARAM_DEFN 2, $8C, 0 ; $4C ActivateCtl
PARAM_DEFN 16, $8A, 0 ; $4D
PARAM_DEFN 2, $82, 0 ; $4E ;; Extra Calls
PARAM_DEFN 16, $8A, 0 ; $4D ???
PARAM_DEFN 2, $82, 0 ; $4E SetMenuSelection
;;; ============================================================ ;;; ============================================================
;;; Pre-Shift Tables ;;; Pre-Shift Tables
@ -4496,19 +4498,12 @@ L6573: lda ($82),y
bpl L6573 bpl L6573
jmp prepare_port jmp prepare_port
L657E: lda L6586 L657E: ldax L6586
ldx L6587
bne L6567 bne L6567
L6586: L6586: .addr standard_port
L6587 := * + 1
L6588 := * + 2
asl $205F,x ; this looks like incorrect disassembly ???
ror $2065,x
.byte 0
rti
.byte $06 L6588: jsr L657E
.addr L6592 MGTK_CALL MGTK::SetPortBits, L6592
rts rts
L6592: .byte $00,$00 L6592: .byte $00,$00
@ -8357,11 +8352,11 @@ L839A: lda kbd_mouse_state
cmp #$04 cmp #$04
beq L83B3 beq L83B3
bit drag_resize_flag bit drag_resize_flag
.byte $30 ; bmi ... bmi L83B3
ora $75AD lda kbd_mouse_x
adc $2FE9,x sbc #<(screen_width-1)
lda kbd_mouse_x+1 lda kbd_mouse_x+1
sbc #$02 sbc #>(screen_width-1)
beq L83B5 beq L83B5
sec sec
L83B3: sec L83B3: sec