Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-02 04:41:28 +00:00
Code Issues Projects Releases Wiki Activity

DeskTop: More overlay resource identifiers

Browse Source
This commit is contained in:
Joshua Bell 2018-05-03 09:01:57 -07:00
parent 40bf0db1d3
commit 9ea7ac1a4e
8 changed files with 174 additions and 162 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
desktop/ovl1c.s
View File

@ -18,24 +18,6 @@ LE6FD := $E6FD
LE766 := $E766
LE7A8 := $E7A8
;;; Disk II / IWM I/O locations ($C0nX, n = slot + 8)
;;; c/o http://archive.li/ewHUL
PHASE0 := $C080 ; Stepper motor phase 0
PHASE1 := $C082 ; Stepper motor phase 1
PHASE2 := $C084 ; Stepper motor phase 2
PHASE3 := $C086 ; Stepper motor phase 3
DISABLE := $C088 ; Turn disk drive off
ENABLE := $C089 ; Turn disk drive on
SELECT := $C08A ; Select drive 1 or 2
SELECT1 := $C08A ; Select drive 1
SELECT2 := $C08B ; Select drive 1
XMIT := $C08C ; Get/set bits to/from disk
TESTWP := $C08D ; Test WP mode (then WPRES has result)
DATA := $C08D ; Write data to buffer (then XMIT to send)
WPRES := $C08E ; WP mode test result
RDMODE := $C08E ; Turn off write mode
WRMODE := $C08F ; Turn on write mode
.org $800
@ -1366,8 +1348,8 @@ L11C1: jsr L12AF
lda LCBANK1
return #$80
L11D8: lda $C083
lda $C083
L11D8: lda LCBANK2
lda LCBANK2
ldy #$FF
iny
L11E1: lda $1C00,y
@ -1411,8 +1393,8 @@ L1230: jsr L12A5
bpl L1230
L123E: rts
L123F: bit $C083
bit $C083
L123F: bit LCBANK2
bit LCBANK2
sta L0006
sta $08
stx $07

98
desktop/ovl2.s
View File

@ -564,11 +564,11 @@ L0E3A: tax
lda #$00
rol a
bne L0E50
lda $C08A,x
lda SELECT,x
jmp L0E53
L0E50: lda LCBANK1,x
L0E53: lda $C089,x
L0E53: lda ENABLE,x
lda #$D7
sta $DA
lda #$50
@ -594,11 +594,11 @@ L0E82: lda $D1
ldx L1223
jsr L0E23
ldx L1223
lda $C08D,x
lda $C08E,x
lda DATA,x
lda RDMODE,x
tay
lda $C08E,x
lda $C08C,x
lda RDMODE,x
lda XMIT,x
tya
bpl L0EA2
lda #$02
@ -646,7 +646,7 @@ L0EDB: ldx L1223
lda #$00
L0EF9: pha
ldx L1223
lda $C088,x
lda DISABLE,x
lda #$00
jsr L0E23
pla
@ -655,47 +655,47 @@ L0EF9: pha
L0F07: ldy #$20
L0F09: dey
beq L0F68
L0F0C: lda $C08C,x
L0F0C: lda XMIT,x
bpl L0F0C
L0F11: eor #$D5
bne L0F09
nop
L0F16: lda $C08C,x
L0F16: lda XMIT,x
bpl L0F16
cmp #$AA
bne L0F11
ldy #$56
L0F21: lda $C08C,x
L0F21: lda XMIT,x
bpl L0F21
cmp #$AD
bne L0F11
lda #$00
L0F2C: dey
sty $D5
L0F2F: lda $C08C,x
L0F2F: lda XMIT,x
bpl L0F2F
cmp #$96
bne L0F68
ldy $D5
bne L0F2C
L0F3C: sty $D5
L0F3E: lda $C08C,x
L0F3E: lda XMIT,x
bpl L0F3E
cmp #$96
bne L0F68
ldy $D5
iny
bne L0F3C
L0F4C: lda $C08C,x
L0F4C: lda XMIT,x
bpl L0F4C
cmp #$96
bne L0F68
L0F55: lda $C08C,x
L0F55: lda XMIT,x
bpl L0F55
cmp #$DE
bne L0F68
nop
L0F5F: lda $C08C,x
L0F5F: lda XMIT,x
bpl L0F5F
cmp #$AA
beq L0FC4
@ -708,27 +708,27 @@ L0F6E: iny
bne L0F75
inc $DC
beq L0F68
L0F75: lda $C08C,x
L0F75: lda XMIT,x
bpl L0F75
L0F7A: cmp #$D5
bne L0F6E
nop
L0F7F: lda $C08C,x
L0F7F: lda XMIT,x
bpl L0F7F
cmp #$AA
bne L0F7A
ldy #$03
L0F8A: lda $C08C,x
L0F8A: lda XMIT,x
bpl L0F8A
cmp #$96
bne L0F7A
lda #$00
L0F95: sta $DB
L0F97: lda $C08C,x
L0F97: lda XMIT,x
bpl L0F97
rol a
sta $DD
L0F9F: lda $C08C,x
L0F9F: lda XMIT,x
bpl L0F9F
and $DD
sta $D7,y
@ -737,12 +737,12 @@ L0F9F: lda $C08C,x
bpl L0F95
tay
bne L0F68
L0FB1: lda $C08C,x
L0FB1: lda XMIT,x
bpl L0FB1
cmp #$DE
bne L0F68
nop
L0FBB: lda $C08C,x
L0FBB: lda XMIT,x
bpl L0FBB
cmp #$AA
bne L0F68
@ -790,16 +790,16 @@ L1020: and #$03
rol a
ora L1237
tax
lda $C080,x
lda PHASE0,x
ldx L1237
L102D: rts
L102E: jsr L120E
lda $C08D,x
lda $C08E,x
lda DATA,x
lda RDMODE,x
lda #$FF
sta $C08F,x
cmp $C08C,x
sta WRMODE,x
cmp XMIT,x
pha
pla
nop
@ -824,16 +824,16 @@ L1062: jsr L120E
L1065: nop
nop
lda #$96
sta $C08D,x
cmp $C08C,x
sta DATA,x
cmp XMIT,x
dey
bne L1062
bit $00
nop
L1075: jsr L120E
lda #$96
sta $C08D,x
cmp $C08C,x
sta DATA,x
cmp XMIT,x
lda #$96
nop
iny
@ -847,30 +847,30 @@ L1075: jsr L120E
jsr L10A4
lda #$FF
jsr L10A4
lda $C08E,x
lda $C08C,x
lda RDMODE,x
lda XMIT,x
rts
L10A4: nop
L10A5: pha
pla
sta $C08D,x
cmp $C08C,x
sta DATA,x
cmp XMIT,x
rts
L10AE: sec
lda $C08D,x
lda $C08E,x
lda DATA,x
lda RDMODE,x
bmi L1115
lda #$FF
sta $C08F,x
cmp $C08C,x
sta WRMODE,x
cmp XMIT,x
pha
pla
L10C1: jsr L111B
jsr L111B
sta $C08D,x
cmp $C08C,x
sta DATA,x
cmp XMIT,x
nop
dey
bne L10C1
@ -892,8 +892,8 @@ L10C1: jsr L111B
pha
lsr a
ora $D0
sta $C08D,x
lda $C08C,x
sta DATA,x
lda XMIT,x
pla
ora #$AA
jsr L112C
@ -904,15 +904,15 @@ L10C1: jsr L111B
lda #$EB
jsr L112D
clc
L1115: lda $C08E,x
lda $C08C,x
L1115: lda RDMODE,x
lda XMIT,x
L111B: rts
L111C: pha
lsr a
ora $D0
sta $C08D,x
cmp $C08C,x
sta DATA,x
cmp XMIT,x
pla
nop
nop
@ -922,8 +922,8 @@ L112C: nop
L112D: nop
pha
pla
sta $C08D,x
cmp $C08C,x
sta DATA,x
cmp XMIT,x
rts
.byte 0

52
desktop/ovl3.s
View File

@ -33,9 +33,9 @@ L9016: rts
L9017: lda $0C00
clc
adc $0C01
sta $D343
sta LD343
lda #$00
sta $D344
sta LD343+1
jsr L9DED
cmp #$80
bne L9015
@ -333,7 +333,7 @@ L9282: lda L938D
lda ($06),y
tay
L92C1: lda ($06),y
sta $D355,y
sta LD355,y
dey
bpl L92C1
lda #$FF
@ -349,7 +349,7 @@ L92D6: lda L938D
lda ($06),y
tay
L92E5: lda ($06),y
sta $D355,y
sta LD355,y
dey
bpl L92E5
jmp L9307
@ -361,11 +361,11 @@ L92F0: lda L938D
lda ($06),y
tay
L92FF: lda ($06),y
sta $D355,y
sta LD355,y
dey
bpl L92FF
L9307: ldy $D355
L930A: lda $D355,y
L9307: ldy LD355
L930A: lda LD355,y
cmp #$2F
beq L9314
dey
@ -376,13 +376,13 @@ L9314: dey
ldx #$00
L931B: iny
inx
lda $D355,y
sta $D345,x
cpy $D355
lda LD355,y
sta buf_filename2,x
cpy LD355
bne L931B
stx $D345
stx buf_filename2
lda L938A
sta $D355
sta LD355
jsr JUMP_TABLE_LAUNCH_FILE
jsr set_cursor_pointer
lda #$FF
@ -519,7 +519,7 @@ L94CB: stax $06
lda ($06),y
tay
L94D4: lda ($06),y
sta $D486,y
sta path_buf2+2,y
dey
bpl L94D4
copy16 #$D487, path_buf2
@ -1268,8 +1268,8 @@ L9BFC: jsr L9DA7
tya
rts
L9C09: sta $D2AC
yax_call launch_dialog, $0C, $D2AC
L9C09: sta warning_dialog_num
yax_call launch_dialog, $0C, warning_dialog_num
rts
DEFINE_OPEN_PARAMS open_params, $1C00, $800
@ -1464,9 +1464,9 @@ params: .addr 0
;;; ============================================================
L9DED: sta ALTZPOFF
lda $C083
lda $C083
lda $D3FF
lda LCBANK2
lda LCBANK2
lda LD3FF
tax
sta ALTZPON
lda LCBANK1
@ -1476,10 +1476,10 @@ L9DED: sta ALTZPOFF
L9E05: stax L9E1B
sta ALTZPOFF
lda $C083
lda $C083
ldx $D3EE
L9E17: lda $D3EE,x
lda LCBANK2
lda LCBANK2
ldx LD3EE
L9E17: lda LD3EE,x
.byte $9D
L9E1B: .addr $1234
dex
@ -1491,10 +1491,10 @@ L9E1B: .addr $1234
L9E2A: stax L9E40
sta ALTZPOFF
lda $C083
lda $C083
ldx $D3AD
L9E3C: lda $D3AD,x
lda LCBANK2
lda LCBANK2
ldx LD3AD
L9E3C: lda LD3AD,x
.byte $9D
L9E40: .addr $1234
dex

116
desktop/ovl4.s
View File

@ -43,7 +43,7 @@ routine_table: .addr $7000, $7000, $7000
sta $D8F0
sta $D8F1
sta $D8F2
sta L5606
sta cursor_ip_flag
sta L5104
sta L5103
sta L5105
@ -114,12 +114,12 @@ L5151: lda winfo_entrydlg
L5183: MGTK_RELAY_CALL MGTK::InRect, dialog_rect2
cmp #MGTK::inrect_inside
bne L5196
L5190: jsr L55E0
L5190: jsr set_cursor_insertion
jmp L5199
L5196: jsr L55BA
L5199: MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D239
L5196: jsr set_cursor_pointer
L5199: MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
jmp L5106
L51AE: .byte 0
@ -232,7 +232,7 @@ L52FA: bit L5103
L5304: jsr L6D45
rts
L5308: MGTK_RELAY_CALL MGTK::InitPort, $D239
L5308: MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport2
rts
@ -246,7 +246,7 @@ L531F: bit L5105
beq L5341
cmp #MGTK::ctl_vertical_scroll_bar
bne L5340
lda $D5F6
lda winfo_entrydlg_file_picker + MGTK::winfo_offset_vscroll
and #$01
beq L5340
jmp L5469
@ -314,7 +314,7 @@ L53B5: and #$7F
jsr L6227
jsr L61B1
jsr L606D
MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport2
rts
@ -378,7 +378,7 @@ L5488: lda #MGTK::ctl_vertical_scroll_bar
jsr L606D
rts
L54BA: lda $D5FA
L54BA: lda winfo_entrydlg_file_picker + MGTK::winfo_offset_vthumbpos
sec
sbc #$09
bpl L54C4
@ -392,7 +392,7 @@ L54C4: sta updatethumb_thumbpos
jsr L606D
rts
L54DF: lda $D5FA
L54DF: lda winfo_entrydlg_file_picker + MGTK::winfo_offset_vthumbpos
clc
adc #$09
cmp $177F
@ -408,7 +408,7 @@ L54EF: sta updatethumb_thumbpos
jsr L606D
rts
L550A: lda $D5FA
L550A: lda winfo_entrydlg_file_picker + MGTK::winfo_offset_vthumbpos
bne L5510
rts
@ -424,8 +424,8 @@ L5510: sec
jsr L555F
jmp L550A
L5533: lda $D5FA
cmp $D5F9
L5533: lda winfo_entrydlg_file_picker + MGTK::winfo_offset_vthumbpos
cmp winfo_entrydlg_file_picker + MGTK::winfo_offset_vthumbmax
bne L553C
rts
@ -484,25 +484,33 @@ L55B9: rts
;;; ============================================================
L55BA: bit L5606
bpl L55DF
.proc set_cursor_pointer
bit cursor_ip_flag
bpl done
MGTK_RELAY_CALL MGTK::HideCursor
MGTK_RELAY_CALL MGTK::SetCursor, $D2AD
MGTK_RELAY_CALL MGTK::SetCursor, pointer_cursor
MGTK_RELAY_CALL MGTK::ShowCursor
lda #$00
sta L5606
L55DF: rts
sta cursor_ip_flag
done: rts
.endproc
L55E0: bit L5606
bmi L5605
.proc set_cursor_insertion
bit cursor_ip_flag
bmi done
MGTK_RELAY_CALL MGTK::HideCursor
MGTK_RELAY_CALL MGTK::SetCursor, $D2DF
MGTK_RELAY_CALL MGTK::SetCursor, insertion_point_cursor
MGTK_RELAY_CALL MGTK::ShowCursor
lda #$80
sta L5606
L5605: rts
sta cursor_ip_flag
done: rts
.endproc
cursor_ip_flag: ; high bit set when cursor is IP
.byte 0
;;; ============================================================
L5606: .byte 0
L5607: ldx $D920
lda $1780,x
and #$7F
@ -600,8 +608,8 @@ L56DC: lda #$FF
L56E1: rts
L56E2: .byte 0
L56E3: MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D239
L56E3: MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
rts
L56F6: lda #$00
@ -1099,7 +1107,7 @@ L5C51: lda $D209,x
sta L5CF0,x
dex
bpl L5C51
lda $D2AB
lda machine_type
sta L5CEF
L5C60: dec L5CEF
beq L5CA6
@ -1185,8 +1193,8 @@ L5CF7: MGTK_RELAY_CALL MGTK::OpenWindow, winfo_entrydlg
jsr L5DC6
MGTK_RELAY_CALL MGTK::MoveTo, $D9F8
MGTK_RELAY_CALL MGTK::LineTo, $D9FC
MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D239
MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
rts
L5D82: MGTK_RELAY_CALL MGTK::MoveTo, ok_button_pos
@ -1498,8 +1506,8 @@ L606D: lda winfo_entrydlg_file_picker
L608E: lda L6128
cmp $177F
bne L60A9
MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D239
MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
rts
L60A9: MGTK_RELAY_CALL MGTK::MoveTo, $D917
@ -1598,7 +1606,7 @@ L6163: sta L61B0
rts
L6181: lda $177F
sta $D5F9
sta winfo_entrydlg_file_picker + MGTK::winfo_offset_vthumbmax
.assert MGTK::ctl_vertical_scroll_bar = MGTK::activatectl_activate, error, "need to match"
lda #MGTK::ctl_vertical_scroll_bar
sta activatectl_which_ctl
@ -1646,8 +1654,8 @@ L61E6: inx
MGTK_RELAY_CALL MGTK::MoveTo, $DA51
addr_call L5DED, disk_label
addr_call L5DED, $0220
MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D239
MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
rts
L6226: .byte 0
@ -1712,16 +1720,16 @@ L6274: ldx #$00
jsr L62C8
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, $D90F
MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D239
MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
rts
L62C7: .byte 0
;;; ============================================================
L62C8: sta $D212
MGTK_RELAY_CALL MGTK::GetWinPort, $D212
L62C8: sta getwinport_params2 ; window_id
MGTK_RELAY_CALL MGTK::GetWinPort, getwinport_params2
MGTK_RELAY_CALL MGTK::SetPort, grafport2
rts
@ -2376,13 +2384,13 @@ L6A59: ldx path_buf2
cpx #$01
beq L6A6B
L6A60: lda path_buf2,x
sta $D485,x
sta path_buf2+1,x
dex
cpx #$01
bne L6A60
L6A6B: ldx path_buf0
lda path_buf0,x
sta $D486
sta path_buf2+2
dec path_buf0
inc path_buf2
jsr L6E45
@ -2403,14 +2411,14 @@ L6A6B: ldx path_buf0
L6AB4: ldx path_buf0
inx
lda $D486
lda path_buf2+2
sta path_buf0,x
inc path_buf0
ldx path_buf2
cpx #$03
bcc L6AD6
ldx #$02
L6ACA: lda $D485,x
L6ACA: lda path_buf2+1,x
sta path_buf2,x
inx
cpx path_buf2
@ -2442,14 +2450,14 @@ L6B13: iny
bne L6B13
L6B20: sty path_buf0
L6B23: lda path_buf0,y
sta $D485,y
sta path_buf2+1,y
dey
bne L6B23
ldx path_buf0
inx
stx path_buf2
lda #$06
sta $D485
sta path_buf2+1
lda #$00
sta path_buf0
jsr L6D27
@ -2525,13 +2533,13 @@ L6C05: ldx path_buf2
cpx #$01
beq L6C17
L6C0C: lda path_buf2,x
sta $D485,x
sta path_buf2+1,x
dex
cpx #$01
bne L6C0C
L6C17: ldx path_buf1
lda path_buf1,x
sta $D486
sta path_buf2+2
dec path_buf1
inc path_buf2
jsr L6E72
@ -2552,14 +2560,14 @@ L6C17: ldx path_buf1
L6C60: ldx path_buf1
inx
lda $D486
lda path_buf2+2
sta path_buf1,x
inc path_buf1
ldx path_buf2
cpx #$03
bcc L6C82
ldx #$02
L6C76: lda $D485,x
L6C76: lda path_buf2+1,x
sta path_buf2,x
inx
cpx path_buf2
@ -2591,14 +2599,14 @@ L6CBF: iny
bne L6CBF
L6CCC: sty path_buf1
L6CCF: lda path_buf1,y
sta $D485,y
sta path_buf2+1,y
dey
bne L6CCF
ldx path_buf1
inx
stx path_buf2
lda #$06
sta $D485
sta path_buf2+1
lda #$00
sta path_buf1
jsr L6D27
@ -2642,7 +2650,7 @@ L6D45: jmp 0
L6D48: stax $06
ldx path_buf0
lda #$2F
sta $D403,x
sta path_buf0+1,x
inc path_buf0
ldy #$00
lda ($06),y
@ -2664,7 +2672,7 @@ L6D62: lda ($06),y
L6D73: stax $06
ldx path_buf1
lda #$2F
sta $D444,x
sta path_buf1+1,x
inc path_buf1
ldy #$00
lda ($06),y
@ -2767,7 +2775,7 @@ L6E45: lda #$00
lda path_buf0
beq L6E63
sta $08
copy16 #$D403, $06
copy16 #path_buf0+1, $06
MGTK_RELAY_CALL MGTK::TextWidth, $06
L6E63: lda $09
clc
@ -2785,7 +2793,7 @@ L6E72: lda #$00
lda path_buf1
beq L6E90
sta $08
copy16 #$D444, $06
copy16 #path_buf1+1, $06
MGTK_RELAY_CALL MGTK::TextWidth, $06
L6E90: lda $09
clc

14
desktop/ovl5.s
View File

@ -40,7 +40,7 @@ L7029: lda L709B+1,x
lda #$01
sta path_buf2
lda #$06
sta $D485
sta path_buf2+1
rts
L7052: lda winfo_entrydlg
@ -94,7 +94,7 @@ L70C6: .byte $29 ; length of following data block
L70F1: lda #1
sta path_buf2
lda #$20
sta $D485
sta path_buf2+1
jsr common_overlay::L6D27
ldx L70C6
@ -129,7 +129,7 @@ L7137: lda $5028,x
lda #$01
sta path_buf2 ; path_buf2
lda #$06
sta $D485
sta path_buf2+1
ldx path_buf0
beq L7178
L7156: lda path_buf0,x
@ -174,7 +174,7 @@ L7198: addr_call common_overlay::L647C, path_buf1
sta $50A8
lda #0
sta $D8EC
jsr common_overlay::L55BA
jsr common_overlay::set_cursor_pointer
copy16 #path_buf0, $6
copy16 #path_buf1, $8
ldx $50AA
@ -189,7 +189,7 @@ L71D8: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
lda #0
sta $D8EC
jsr common_overlay::L55BA
jsr common_overlay::set_cursor_pointer
ldx $50AA
txs
return #$FF
@ -199,7 +199,7 @@ L71D8: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
L71F9: lda #1
sta path_buf2
lda #' '
sta $D485
sta path_buf2+1
jsr common_overlay::L6D27
ldx L709B
L7209: lda L709B+1,x
@ -213,7 +213,7 @@ L7209: lda L709B+1,x
lda #$01
sta path_buf2
lda #$06
sta $D485
sta path_buf2+1
lda #$00
sta $50A8
lda #$FF

4
desktop/ovl6.s
View File

@ -78,7 +78,7 @@ L70C0: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
lda #0
sta $D8EC
jsr common_overlay::L55BA
jsr common_overlay::set_cursor_pointer
copy16 #path_buf0, $6
ldx $50AA
txs
@ -91,7 +91,7 @@ L70EA: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
lda #0
sta $D8EC
jsr common_overlay::L55BA
jsr common_overlay::set_cursor_pointer
ldx $50AA
txs
return #$FF

4
desktop/ovl7.s
View File

@ -242,7 +242,7 @@ L72EE: MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
sta $D8EC
jsr common_overlay::L55BA
jsr common_overlay::set_cursor_pointer
copy16 #$59B8, $5B24
ldx $50AA
txs
@ -256,7 +256,7 @@ L72EE: MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
lda #$00
sta $D8EC
jsr common_overlay::L55BA
jsr common_overlay::set_cursor_pointer
copy16 #$59B8, $5B24
ldx $50AA
txs

22
inc/apple2.inc
View File

@ -180,6 +180,28 @@ XFERSTARTLO := $03ED
XFERSTARTHI := $03EE
;;; ============================================================
;;; Disk II / IWM I/O locations
;;; ============================================================
;;; $C0nX, n = slot + 8 -- c/o http://archive.li/ewHUL
PHASE0 := $C080 ; Stepper motor phase 0
PHASE1 := $C082 ; Stepper motor phase 1
PHASE2 := $C084 ; Stepper motor phase 2
PHASE3 := $C086 ; Stepper motor phase 3
DISABLE := $C088 ; Turn disk drive off
ENABLE := $C089 ; Turn disk drive on
SELECT := $C08A ; Select drive 1 or 2
SELECT1 := $C08A ; Select drive 1
SELECT2 := $C08B ; Select drive 2
XMIT := $C08C ; Get/set bits to/from disk
TESTWP := $C08D ; Test WP mode (then WPRES has result)
DATA := $C08D ; Write data to buffer (then XMIT to send)
WPRES := $C08E ; WP mode test result
RDMODE := $C08E ; Turn off write mode
WRMODE := $C08F ; Turn on write mode
;;; ============================================================
;;; Mouse Peripheral Card
;;; ============================================================