mirror of
https://github.com/mi57730/a2d.git
synced 2024-11-26 02:49:18 +00:00
Disk Copy Overlay disasm
This commit is contained in:
Joshua Bell
parent
8e2be989b1
commit
27fd1d1677
254
desktop/ovl1b.s
254
desktop/ovl1b.s
@ -1215,7 +1215,7 @@ LDE4D: cmp #$A5
|
|||||||
lsr a
|
lsr a
|
||||||
lsr a
|
lsr a
|
||||||
clc
|
clc
|
||||||
adc #$30
|
adc #'0'
|
||||||
ldx slot_char
|
ldx slot_char
|
||||||
sta str_dos33_s_d,x
|
sta str_dos33_s_d,x
|
||||||
lda $0C5A
|
lda $0C5A
|
||||||
@ -1310,7 +1310,7 @@ LDF25: cmp #$0A
|
|||||||
adc #$37
|
adc #$37
|
||||||
jmp LDF31
|
jmp LDF31
|
||||||
|
|
||||||
LDF2F: adc #$30
|
LDF2F: adc #'0'
|
||||||
LDF31: pha
|
LDF31: pha
|
||||||
lda #$80
|
lda #$80
|
||||||
sta LDF72
|
sta LDF72
|
||||||
@ -1334,7 +1334,7 @@ LDF45: inc LDF71
|
|||||||
jmp LDF09
|
jmp LDF09
|
||||||
|
|
||||||
LDF5E: lda LDF6F
|
LDF5E: lda LDF6F
|
||||||
ora #$30
|
ora #'0'
|
||||||
sta str_7_spaces+2,y
|
sta str_7_spaces+2,y
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@ -2208,138 +2208,44 @@ LE7D8: jsr L12A5
|
|||||||
bpl LE7D8
|
bpl LE7D8
|
||||||
LE7E6: rts
|
LE7E6: rts
|
||||||
|
|
||||||
bitmap: .byte 0
|
alert_bitmap:
|
||||||
.byte 0
|
.byte px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte PX(%0111111),px(%1111100),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte PX(%0111111),px(%1111100),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte PX(%0111111),px(%1111100),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte PX(%0111111),px(%1111100),px(%0000000),PX(%1111111),PX(%1111111),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte px(%0111100),px(%1111100),px(%0000001),px(%1110000),PX(%0000111),px(%0000000),px(%0000000)
|
||||||
.byte $FE, $1F, $00
|
.byte px(%0111100),px(%1111100),px(%0000011),px(%1100000),px(%0000011),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte PX(%0111111),px(%1111100),PX(%0000111),PX(%1100111),px(%1111001),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte PX(%0111111),px(%1111100),PX(%0001111),PX(%1100111),px(%1111001),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte PX(%0111111),px(%1111100),PX(%0011111),PX(%1111111),px(%1111001),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte PX(%0111111),px(%1111100),PX(%0011111),PX(%1111111),px(%1110011),px(%0000000),px(%0000000)
|
||||||
.byte $FE, $1F, $00
|
.byte PX(%0111111),px(%1111100),PX(%0011111),PX(%1111111),PX(%1100111),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte PX(%0111111),px(%1111100),PX(%0011111),PX(%1111111),PX(%1001111),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte PX(%0111111),px(%1111100),PX(%0011111),PX(%1111111),PX(%0011111),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte PX(%0111111),px(%1111100),PX(%0011111),px(%1111110),PX(%0111111),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte PX(%0111111),px(%1111100),PX(%0011111),px(%1111100),PX(%1111111),px(%0000000),px(%0000000)
|
||||||
.byte $FE, $1F, $00
|
.byte PX(%0111111),px(%1111100),PX(%0011111),px(%1111100),PX(%1111111),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte px(%0111110),px(%0000000),PX(%0111111),PX(%1111111),PX(%1111111),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte PX(%0111111),px(%1100000),PX(%1111111),px(%1111100),PX(%1111111),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte PX(%0111111),px(%1100001),PX(%1111111),PX(%1111111),PX(%1111111),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
.byte px(%0111000),px(%0000011),PX(%1111111),PX(%1111111),px(%1111110),px(%0000000),px(%0000000)
|
||||||
.byte $FE, $1F, $00
|
.byte PX(%0111111),px(%1100000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
||||||
.byte $FF
|
.byte PX(%0111111),px(%1100000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
||||||
.byte $FF
|
.byte px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte $1E, $1F, $40
|
|
||||||
.byte $07
|
|
||||||
.byte $F0, 00
|
|
||||||
.byte 0
|
|
||||||
.byte $1E, $1F, $60, $03, $60
|
|
||||||
|
|
||||||
.byte 0
|
.proc alert_bitmap_mapinfo
|
||||||
.byte 0
|
viewloc: DEFINE_POINT 20, 8
|
||||||
.byte $FE, $1f, $F0
|
mapbits: .addr alert_bitmap
|
||||||
.byte $F3
|
mapwidth: .byte 7
|
||||||
.byte $4F
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte $FE, $1F, $F8
|
|
||||||
.byte $F3
|
|
||||||
.byte $4F
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte $FE, $1F, $FC
|
|
||||||
.byte $FF
|
|
||||||
.byte $4F
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte $FE, $1F, $FC
|
|
||||||
.byte $FF
|
|
||||||
.byte $67
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte $FE, $1F, $FC
|
|
||||||
.byte $FF
|
|
||||||
.byte $F3
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte $FE, $1F, $FC
|
|
||||||
.byte $FF
|
|
||||||
.byte $F9, $00, $00
|
|
||||||
.byte $FE, $1F, $FC
|
|
||||||
.byte $FF
|
|
||||||
.byte $FC
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte $FE, $1F, $FC
|
|
||||||
.byte $3F
|
|
||||||
.byte $FE, $00, $00
|
|
||||||
.byte $FE, $1F, $FC
|
|
||||||
.byte $1F
|
|
||||||
.byte $FF
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte $FE, $1F, $FC
|
|
||||||
.byte $1F
|
|
||||||
.byte $FF
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte $3E, $00, $FE
|
|
||||||
.byte $FF
|
|
||||||
.byte $FF
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte $FE, $03, $FF
|
|
||||||
.byte $1F
|
|
||||||
.byte $FF
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte $FE, $43, $FF
|
|
||||||
.byte $FF
|
|
||||||
.byte $FF
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte $0E, $60, $FF
|
|
||||||
.byte $FF
|
|
||||||
.byte $3F
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte $FE, $03, $00
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte $FE, $03, $00
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
|
|
||||||
.proc bits_E88F
|
|
||||||
viewloc: DEFINE_POINT $14, $08
|
|
||||||
mapbits: .addr bitmap
|
|
||||||
mapwidth: .byte $07
|
|
||||||
reserved: .byte 0
|
reserved: .byte 0
|
||||||
maprect: DEFINE_RECT 0, 0, $24, $17
|
maprect: DEFINE_RECT 0, 0, 36, 23
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
rect_E89F: DEFINE_RECT 65, 45, 485, 100
|
rect_E89F: DEFINE_RECT 65, 45, 485, 100
|
||||||
rect_E8A7: DEFINE_RECT 4, 2, 416, 53
|
rect_E8A7: DEFINE_RECT 4, 2, 416, 53
|
||||||
rect_E8AF: DEFINE_RECT 5, 3, 415, 52
|
rect_E8AF: DEFINE_RECT 5, 3, 415, 52
|
||||||
|
|
||||||
|
|
||||||
.proc portbits1
|
.proc portbits1
|
||||||
viewloc: DEFINE_POINT 65, 45, viewloc
|
viewloc: DEFINE_POINT 65, 45, viewloc
|
||||||
mapbits: .addr MGTK::screen_mapbits
|
mapbits: .addr MGTK::screen_mapbits
|
||||||
@ -2353,7 +2259,7 @@ viewloc: DEFINE_POINT 0, 0
|
|||||||
mapbits: .addr MGTK::screen_mapbits
|
mapbits: .addr MGTK::screen_mapbits
|
||||||
mapwidth: .byte MGTK::screen_mapwidth
|
mapwidth: .byte MGTK::screen_mapwidth
|
||||||
reserved: .byte 0
|
reserved: .byte 0
|
||||||
maprect: DEFINE_RECT 0, 0, $22F, $BF
|
maprect: DEFINE_RECT 0, 0, 559, 191
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
str_ok_btn:
|
str_ok_btn:
|
||||||
@ -2389,59 +2295,51 @@ LE941: .byte 0
|
|||||||
LE942: .byte 0
|
LE942: .byte 0
|
||||||
LE943: .byte 0
|
LE943: .byte 0
|
||||||
|
|
||||||
PASCAL_STRING "Insert source disk and click OK."
|
LE944: PASCAL_STRING "Insert source disk and click OK."
|
||||||
PASCAL_STRING "Insert destination disk and click OK."
|
LE965: PASCAL_STRING "Insert destination disk and click OK."
|
||||||
LE98B: PASCAL_STRING "Do you want to erase "
|
LE98B: PASCAL_STRING "Do you want to erase "
|
||||||
LE9A0 := *-1
|
LE9A0 := *-1
|
||||||
.res 18, 0
|
.res 18, 0
|
||||||
PASCAL_STRING "The destination disk cannot be formated !"
|
LE9B3: PASCAL_STRING "The destination disk cannot be formated !"
|
||||||
PASCAL_STRING "Error during formating."
|
LE9DD: PASCAL_STRING "Error during formating."
|
||||||
PASCAL_STRING "The destination volume is write protected !"
|
LE9F5: PASCAL_STRING "The destination volume is write protected !"
|
||||||
PASCAL_STRING "Do you want to erase "
|
LEA21: PASCAL_STRING "Do you want to erase "
|
||||||
.res 18, 0
|
.res 18, 0
|
||||||
LEA49: PASCAL_STRING "Do you want to erase the disk in slot drive ?"
|
LEA49: PASCAL_STRING "Do you want to erase the disk in slot drive ?"
|
||||||
LEA7D: PASCAL_STRING "Do you want to erase the disk in slot drive ?"
|
LEA7D: PASCAL_STRING "Do you want to erase the disk in slot drive ?"
|
||||||
PASCAL_STRING "The copy was successful."
|
LEAAF: PASCAL_STRING "The copy was successful."
|
||||||
PASCAL_STRING "The copy was not completed."
|
LEAC8: PASCAL_STRING "The copy was not completed."
|
||||||
PASCAL_STRING "Insert source disk or press Escape to cancel."
|
LEAE4: PASCAL_STRING "Insert source disk or press Escape to cancel."
|
||||||
PASCAL_STRING "Insert destination disk or press Escape to cancel."
|
LEB12: PASCAL_STRING "Insert destination disk or press Escape to cancel."
|
||||||
|
|
||||||
LEB45: .byte $20
|
LEB45: .byte $20
|
||||||
LEB46: .byte $3F
|
LEB46: .byte $3F
|
||||||
LEB47: .byte $29
|
|
||||||
LEB48: .byte $31
|
slot_char_LEA49: .byte $29
|
||||||
LEB49: .byte $27
|
drive_char_LEA49: .byte $31
|
||||||
LEB4A: .byte $2F
|
|
||||||
|
slot_char_LEA7D: .byte $27
|
||||||
|
drive_char_LEA7D: .byte $2F
|
||||||
|
|
||||||
LEB4B: .byte $17
|
LEB4B: .byte $17
|
||||||
LEB4C: .byte $15
|
LEB4C: .byte $15
|
||||||
|
|
||||||
LEB4D: .byte 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
|
LEB4D: .byte 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
|
||||||
LEB5A: .byte $44
|
|
||||||
LEB5B: sbc #$65
|
LEB5A: .addr LE944, LE965
|
||||||
sbc #$8B
|
.addr LE98B, LE9B3
|
||||||
sbc #$B3
|
.addr LE9DD, LE9F5
|
||||||
sbc #$DD
|
.addr LEA21, LEA49
|
||||||
sbc #$F5
|
.addr LEA7D, LEAAF
|
||||||
sbc #$21
|
.addr LEAC8, LEAE4
|
||||||
nop
|
.addr LEB12
|
||||||
eor #$EA
|
|
||||||
adc $AFEA,x
|
LEB74: .byte $C0, $C0, $81, $00, $80, $80, $81, $81
|
||||||
nop
|
.byte $81, $00, $00, $00, $00
|
||||||
iny
|
|
||||||
nop
|
LEB81: .addr 0
|
||||||
cpx $EA
|
|
||||||
.byte $12
|
|
||||||
.byte $EB
|
|
||||||
LEB74: cpy #$C0
|
|
||||||
sta ($0000,x)
|
|
||||||
.byte $80
|
|
||||||
.byte $80
|
|
||||||
sta ($81,x)
|
|
||||||
sta ($0000,x)
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
.byte 0
|
|
||||||
LEB81: .byte 0
|
|
||||||
LEB82: .byte 0
|
|
||||||
LEB83: .byte 0
|
LEB83: .byte 0
|
||||||
|
|
||||||
LEB84: stax LEB81
|
LEB84: stax LEB81
|
||||||
sty LEB83
|
sty LEB83
|
||||||
MGTK_RELAY_CALL2 MGTK::InitPort, grafport
|
MGTK_RELAY_CALL2 MGTK::InitPort, grafport
|
||||||
@ -2455,14 +2353,14 @@ LEB84: stax LEB81
|
|||||||
MGTK_RELAY_CALL2 MGTK::FrameRect, rect_E8AF
|
MGTK_RELAY_CALL2 MGTK::FrameRect, rect_E8AF
|
||||||
MGTK_RELAY_CALL2 MGTK::SetPenMode, pencopy
|
MGTK_RELAY_CALL2 MGTK::SetPenMode, pencopy
|
||||||
MGTK_RELAY_CALL2 MGTK::HideCursor
|
MGTK_RELAY_CALL2 MGTK::HideCursor
|
||||||
MGTK_RELAY_CALL2 MGTK::PaintBits, bits_E88F
|
MGTK_RELAY_CALL2 MGTK::PaintBits, alert_bitmap_mapinfo
|
||||||
MGTK_RELAY_CALL2 MGTK::ShowCursor
|
MGTK_RELAY_CALL2 MGTK::ShowCursor
|
||||||
lda #$00
|
lda #$00
|
||||||
sta LD41E
|
sta LD41E
|
||||||
lda LEB81
|
lda LEB81
|
||||||
jsr LF1CC
|
jsr LF1CC
|
||||||
ldy LEB83
|
ldy LEB83
|
||||||
ldx LEB82
|
ldx LEB81+1
|
||||||
lda LEB81
|
lda LEB81
|
||||||
bne LEC1F
|
bne LEC1F
|
||||||
cpx #$00
|
cpx #$00
|
||||||
@ -2512,7 +2410,7 @@ LEC6C: tya
|
|||||||
tay
|
tay
|
||||||
lda LEB5A,y
|
lda LEB5A,y
|
||||||
sta LE942
|
sta LE942
|
||||||
lda LEB5B,y
|
lda LEB5A+1,y
|
||||||
sta LE943
|
sta LE943
|
||||||
tya
|
tya
|
||||||
lsr a
|
lsr a
|
||||||
@ -2928,15 +2826,15 @@ LF149: txa
|
|||||||
lsr a
|
lsr a
|
||||||
lsr a
|
lsr a
|
||||||
clc
|
clc
|
||||||
adc #$30
|
adc #'0'
|
||||||
ldy LEB47
|
ldy slot_char_LEA49
|
||||||
sta LEA49,y
|
sta LEA49,y
|
||||||
txa
|
txa
|
||||||
and #$80
|
and #$80
|
||||||
asl a
|
asl a
|
||||||
rol a
|
rol a
|
||||||
adc #$31
|
adc #$31
|
||||||
ldy LEB48
|
ldy drive_char_LEA49
|
||||||
sta LEA49,y
|
sta LEA49,y
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@ -2947,15 +2845,15 @@ LF167: txa
|
|||||||
lsr a
|
lsr a
|
||||||
lsr a
|
lsr a
|
||||||
clc
|
clc
|
||||||
adc #$30
|
adc #'0'
|
||||||
ldy LEB49
|
ldy slot_char_LEA7D
|
||||||
sta LEA7D,y
|
sta LEA7D,y
|
||||||
txa
|
txa
|
||||||
and #$80
|
and #$80
|
||||||
asl a
|
asl a
|
||||||
rol a
|
rol a
|
||||||
adc #$31
|
adc #$31
|
||||||
ldy LEB4A
|
ldy drive_char_LEA7D
|
||||||
sta LEA7D,y
|
sta LEA7D,y
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user