Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-09-30 07:54:48 +00:00
Code Issues Projects Releases Wiki Activity
31fba26439
a2d/desktop/s5.s

943 lines
19 KiB
ArmAsm
Raw Normal View History

DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
.setcpu "6502"
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
.include "apple2.inc"
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
.include "../inc/apple2.inc"
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
.include "../inc/auxmem.inc"
.include "../inc/prodos.inc"
.include "../a2d.inc"
.include "../desktop.inc"
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
L0006 := $0006
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
L4AFD := $4AFD
L4B3A := $4B3A
L6365 := $6365
L66A2 := $66A2
L670C := $670C
L678A := $678A
L7254 := $7254
L86A7 := $86A7
L86C1 := $86C1
L86E3 := $86E3
L879C := $879C
L87BA := $87BA
L87F6 := $87F6
L8813 := $8813
L89B6 := $89B6
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
LD05E := $D05E
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
LD29C := $D29C ; machine type byte stash
LD29D := $D29D
LD2AB := $D2AB ; gets a machine flag of sorts
DESKTOP_DEVICELIST := $E196
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
MLI_RELAY := $46BA
.macro MLI_RELAY_CALL call, addr
ldy #(call)
lda #<(addr)
ldx #>(addr)
jsr MLI_RELAY
.endmacro
.org $800
start:
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
;; Detect machine type
;; See Apple II Miscellaneous #7: Apple II Family Identification
lda #0
sta iigs_flag
lda $FBC0 ; 0 = IIc or IIc+
beq :+
sec ; Follow detection protocol
jsr $FE1F ; RTS on pre-IIgs
bcs :+ ; carry clear = IIgs
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
lda #$80
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
sta iigs_flag
: ldx $FBB3
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
ldy $FBC0
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
cpx #$06 ; Ensure a IIe or later
beq :+
brk ; Otherwise (][, ][+, ///), just crash
: sta ALTZPON
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
lda LCBANK1
lda LCBANK1
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
sta SET80COL
stx LD29C ; Stash so DeskTop can check machine bytes
sty LD29D ; when ROM is banked out.
cpy #0
beq is_iic ; Now identify/store specific machine type.
bit iigs_flag
bpl is_iie
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
lda #$FD
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
sta LD2AB
jmp done_machine_id
is_iie: lda #$96
sta LD2AB
jmp done_machine_id
is_iic: lda #$FA
sta LD2AB
jmp done_machine_id
iigs_flag: ; High bit set if IIgs detected.
.byte 0
done_machine_id:
sta CLR80VID
sta DHIRESON
sta DHIRESOFF
sta DHIRESON ; For good measure???
sta DHIRESOFF
sta SET80VID
sta DHIRESON
sta $C0B5 ; ??? IIgs video of some sort
sta $C0B7 ; ???
bit iigs_flag
bpl :+
;; Force B&W mode on the IIgs
lda NEWVIDEO
ora #(1<<5) ; B&W
sta NEWVIDEO
;; Look for /RAM
: ldx DEVCNT
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
inx
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
: lda DEVLST-1,x
sta DESKTOP_DEVICELIST,x
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
dex
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
bpl :-
ldx DEVCNT
: lda DEVLST,x
cmp #(1<<7 | 3<<4 | DT_RAM) ; unit_num for /RAM is Slot 3, Drive 2
beq found_ram
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
dex
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
bpl :-
bmi :+
found_ram:
jsr remove_device
: A2D_RELAY_CALL A2D_INIT_SCREEN_AND_MOUSE, $D29C
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
A2D_RELAY_CALL A2D_SET_MENU, $E672
A2D_RELAY_CALL A2D_CONFIGURE_ZP_USE, $D2A7
A2D_RELAY_CALL A2D_SET_CURSOR, $D311
A2D_RELAY_CALL A2D_SHOW_CURSOR, $0000
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
jsr L87F6
lda #$63
sta L0006
lda #$EC
sta $07
ldx #$01
L08D5: cpx #$7F
bne L08DF
jsr L8813
jmp L0909
L08DF: txa
pha
asl a
tax
lda L0006
sta $DD9F,x
lda $07
sta $DDA0,x
pla
pha
ldy #$00
sta (L0006),y
iny
lda #$00
sta (L0006),y
lda L0006
clc
adc #$1B
sta L0006
bcc L0903
inc $07
L0903: pla
tax
inx
jmp L08D5
L0909: sta RAMWRTON
lda #$00
tax
L090F: sta $1F00,x
sta $1E00,x
sta $1D00,x
sta $1C00,x
sta $1B00,x
inx
bne L090F
sta RAMWRTOFF
jmp L092F
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0927: PASCAL_STRING " Trash "
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
L092F: lda #$00
sta $DE9F
lda #$01
sta $DEA0
sta $DD9E
jsr LD05E
sta $EBFB
sta $DEA1
jsr L86E3
sta L0006
stx $07
ldy #$02
lda #$70
sta (L0006),y
ldy #$07
lda #$AC
sta (L0006),y
iny
lda #$AA
sta (L0006),y
iny
ldx #$00
L0960: lda L0927,x
sta (L0006),y
iny
inx
cpx L0927
bne L0960
lda L0927,x
sta (L0006),y
lda $BF31
sta L0A01
inc L0A01
ldx #$00
L097C: lda $BF32,x
and #$8F
cmp #$8B
beq L098E
inx
cpx L0A01
bne L097C
jmp L09F5
L098E: lda $BF32,x
stx L09F8
sta L0A02
ldx #$11
lda L0A02
and #$80
beq L09A2
ldx #$21
L09A2: stx L09B5
lda L0A02
and #$70
lsr a
lsr a
lsr a
clc
adc L09B5
sta L09B5
.byte $AD
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L09B5: .byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
.byte $BF
sta $07
lda #$00
sta L0006
ldy #$07
lda (L0006),y
bne L09F5
ldy #$FB
lda (L0006),y
and #$7F
bne L09F5
ldy #$FF
lda (L0006),y
clc
adc #$03
sta L0006
jsr L09F9
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
.byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
.byte $FC
ora #$B0
ora $AD,y
.byte $1F
cmp #$02
bcs L09F5
ldx L09F8
L09E6: lda $BF33,x
sta $BF32,x
inx
cpx L0A01
bne L09E6
dec $BF31
L09F5: jmp L0A03
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L09F8: .byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
L09F9: jmp (L0006)
.byte $03
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
.byte 0
.byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
.byte $1F
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
.byte 0
L0A01: .byte 0
L0A02: .byte 0
L0A03: A2D_RELAY_CALL $29, $0000
MLI_RELAY_CALL GET_PREFIX, $8AF1
A2D_RELAY_CALL $29, $0000
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
lda #$00
sta L0A92
jsr L0AE7
lda $1400
clc
adc $1401
sta $D343
lda #$00
sta $D344
lda $1400
sta L0A93
L0A3B: lda L0A92
cmp L0A93
beq L0A8F
jsr L0A95
sta L0006
stx $07
lda L0A92
jsr L0AA2
sta $08
stx $09
ldy #$00
lda (L0006),y
tay
L0A59: lda (L0006),y
sta ($08),y
dey
bpl L0A59
ldy #$0F
lda (L0006),y
sta ($08),y
lda L0A92
jsr L0ABC
sta L0006
stx $07
lda L0A92
jsr L0AAF
sta $08
stx $09
ldy #$00
lda (L0006),y
tay
L0A7F: lda (L0006),y
sta ($08),y
dey
bpl L0A7F
inc L0A92
inc $E4F2
jmp L0A3B
L0A8F: jmp L0B09
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0A92: .byte 0
L0A93: .byte 0
.byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
L0A95: jsr L86A7
clc
adc #$02
tay
txa
adc #$14
tax
tya
rts
L0AA2: jsr L86A7
clc
adc #$1E
tay
txa
adc #$DB
tax
tya
rts
L0AAF: jsr L86C1
clc
adc #$9E
tay
txa
adc #$DB
tax
tya
rts
L0ABC: jsr L86C1
clc
adc #$82
tay
txa
adc #$15
tax
tya
rts
.byte $03
.byte $CF
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
.byte $0A
.byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
.byte $10
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0ACE: .byte 0
L0ACF: PASCAL_STRING "Selector.List"
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
.byte $04
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0ADE: .byte 0
.byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
.byte $14
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
.byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
.byte $04
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
.byte 0
.byte 0
.byte 1,0
L0AE7: MLI_RELAY_CALL OPEN, $0AC9
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
lda L0ACE
sta L0ADE
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
MLI_RELAY_CALL READ, $0ADD
MLI_RELAY_CALL CLOSE, $0AE5
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
rts
L0B09: lda #$DC
ldx #$EB
jsr L879C
sta L0BA0
stx L0BA1
lda #$B3
ldx #$EB
jsr L879C
clc
adc L0BA0
sta $EBF3
txa
adc L0BA1
sta $EBF4
lda #$C6
ldx #$EB
jsr L879C
clc
adc L0BA0
sta $EBF5
txa
adc L0BA1
sta $EBF6
lda #$D0
ldx #$EB
jsr L879C
clc
adc L0BA0
sta $EBF7
txa
adc L0BA1
sta $EBF8
lda $EBF5
clc
adc $EBF7
sta $EBF9
lda $EBF6
adc $EBF8
sta $EBFA
lda $EBF3
clc
adc #$05
sta $EBE3
lda $EBF4
adc #$00
sta $EBE4
lda $EBE3
clc
adc $EBF5
sta $EBE7
lda $EBE4
adc $EBF6
sta $EBE8
lda $EBE7
clc
adc #$03
sta $EBE7
lda $EBE8
adc #$00
sta $EBE8
jmp L0BA2
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0BA0: .byte 0
L0BA1: .byte 0
L0BA2: A2D_RELAY_CALL $29, $0000
MLI_RELAY_CALL GET_FILE_INFO, $0CE5
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
beq L0BB9
jmp L0D0A
L0BB9: lda L0CE9
cmp #$0F
beq L0BC3
jmp L0D0A
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0BC3: MLI_RELAY_CALL OPEN, $0CD7
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
lda L0CDC
sta L0CDE
sta L0CF9
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
MLI_RELAY_CALL READ, $0CDD
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
lda #$00
sta L0D04
sta L0D05
lda #$01
sta L0D08
lda $1425
and #$7F
sta L0D03
lda #$02
sta $E594
lda $1424
sta L0D07
lda $1423
sta L0D06
lda #$2B
sta L0006
lda #$14
sta $07
L0C0C: ldy #$00
lda (L0006),y
and #$0F
bne L0C17
jmp L0C81
L0C17: inc L0D04
ldy #$10
lda (L0006),y
cmp #$F1
beq L0C25
jmp L0C81
L0C25: inc L0D05
lda #$F2
sta $08
lda #$E5
sta $09
lda #$00
sta L0D09
lda $E594
sec
sbc #$02
asl a
rol L0D09
asl a
rol L0D09
asl a
rol L0D09
asl a
rol L0D09
clc
adc $08
sta $08
lda L0D09
adc $09
sta $09
ldy #$00
lda (L0006),y
and #$0F
sta ($08),y
tay
L0C60: lda (L0006),y
sta ($08),y
dey
bne L0C60
lda $08
ldx $09
jsr L87BA
lda ($08),y
tay
L0C71: lda ($08),y
cmp #$2E
bne L0C7B
lda #$20
sta ($08),y
L0C7B: dey
bne L0C71
inc $E594
L0C81: lda L0D05
cmp #$08
bcc L0C8B
jmp L0CCB
L0C8B: lda L0D04
cmp L0D03
bne L0C96
jmp L0CCB
L0C96: inc L0D08
lda L0D08
cmp L0D07
bne L0CBA
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
MLI_RELAY_CALL READ, $0CDD
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
lda #$04
sta L0006
lda #$14
sta $07
lda #$00
sta L0D08
jmp L0C0C
L0CBA: lda L0006
clc
adc L0D06
sta L0006
lda $07
adc #$00
sta $07
jmp L0C0C
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0CCB: MLI_RELAY_CALL CLOSE, $0CF8
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
jmp L0D0A
.byte $03
.byte $FA
.byte $0C
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
.byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
.byte $10
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0CDC: .byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
.byte $04
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0CDE: .byte 0
.byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
.byte $14
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
.byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
.byte $02
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
.byte 0
.byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
asl a
.byte $FA
.byte $0C
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
.byte 0
L0CE9: .byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
.byte $01
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0CF9: .byte 0
PASCAL_STRING "Desk.acc"
L0D03: .byte 0
L0D04: .byte 0
L0D05: .byte 0
L0D06: .byte 0
L0D07: .byte 0
L0D08: .byte 0
L0D09: .byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
L0D0A: ldy #$00
sty $599F
sty L0E33
L0D12: lda L0E33
asl a
tay
lda $DB00,y
sta $08
lda $DB01,y
sta $09
ldy L0E33
lda $BF32,y
pha
txa
pha
tya
pha
inc $DEA0
inc $DD9E
lda $BF32,y
jsr L89B6
sta L0E34
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
A2D_RELAY_CALL $29, $0000
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
pla
tay
pla
tax
pla
pha
lda L0E34
cmp #$28
bne L0D64
ldy L0E33
lda $BF32,y
and #$0F
beq L0D6D
ldx L0E33
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
jsr remove_device
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
jmp L0E25
L0D64: cmp #$57
bne L0D6D
lda #$F9
sta $599F
L0D6D: pla
pha
and #$0F
sta L0E32
cmp #$00
bne L0D7F
lda #$DD
ldx #$E4
jmp L0DAD
L0D7F: cmp #$0B
beq L0DA9
cmp #$04
bne L0DC2
pla
pha
and #$70
lsr a
lsr a
lsr a
lsr a
ora #$C0
sta L0D96
.byte $AD
.byte $FB
L0D96: .byte $C7
and #$01
bne L0DA2
lda #$A0
ldx #$E4
jmp L0DAD
L0DA2: lda #$C8
ldx #$E4
jmp L0DAD
L0DA9: lda #$B4
ldx #$E4
L0DAD: sta L0006
stx $07
ldy #$00
lda (L0006),y
sta L0DBE
L0DB8: iny
lda (L0006),y
sta ($08),y
.byte $C0
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0DBE: .byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
bne L0DB8
tay
L0DC2: pla
pha
and #$70
lsr a
lsr a
lsr a
lsr a
ora #$30
tax
lda L0E32
cmp #$04
bne L0DF0
pla
pha
and #$70
lsr a
lsr a
lsr a
lsr a
ora #$C0
sta L0DE3
.byte $AD
.byte $FB
L0DE3: .byte $C7
and #$01
bne L0DEC
ldy #$0E
bne L0DFA
L0DEC: ldy #$0E
bne L0DFA
L0DF0: cmp #$0B
bne L0DF8
ldy #$0F
bne L0DFA
L0DF8: ldy #$06
L0DFA: txa
sta ($08),y
lda L0E32
and #$0F
cmp #$04
beq L0E21
pla
pha
rol a
lda #$00
adc #$01
ora #$30
pha
lda L0E32
and #$0F
bne L0E1C
ldy #$10
pla
bne L0E1F
L0E1C: ldy #$11
pla
L0E1F: sta ($08),y
L0E21: pla
inc L0E33
L0E25: lda L0E33
cmp $BF31
beq L0E2F
bcs L0E4C
L0E2F: jmp L0D12
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0E32: .byte 0
L0E33: .byte 0
L0E34: .byte 0
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
;; Remove device num in X from devices list
.proc remove_device
dex
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
L0E36: inx
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
lda DEVLST+1,x
sta DEVLST,x
lda $E1A0+1,x
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
sta $E1A0,x
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
cpx DEVCNT
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
bne L0E36
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
dec DEVCNT
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
rts
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
.endproc
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
L0E4C: lda DEVCNT
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
clc
adc #$03
sta $E270
lda #$00
sta L0EAF
tay
tax
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
L0E5C: lda DEVLST,y
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
and #$70
beq L0EA8
lsr a
lsr a
lsr a
lsr a
cmp L0EAF
beq L0E70
cmp #$02
bne L0E79
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
L0E70: cpy DEVCNT
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
beq L0EA8
iny
jmp L0E5C
L0E79: sta L0EAF
clc
adc #$30
sta L0EAE
txa
pha
asl a
tax
lda L0EB0,x
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
sta sta_addr
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
lda L0EB0+1,x
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
sta sta_addr+1
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
ldx $E44C
dex
lda L0EAE
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
sta_addr := *+1
sta $1234,x
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
pla
tax
inx
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
cpy DEVCNT
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
beq L0EA8
iny
jmp L0E5C
L0EA8: stx $E2D6
jmp L0EE1
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0EAE: .byte 0
L0EAF: .byte 0
DeskTop: Progress on s5/s6
2018-01-06 05:03:10 +00:00
L0EB0: .addr $E44C,$E454,$E45C,$E464,$E46C,$E474,$E47C
.byte $0A,$62,$48
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
ora ($62,x)
pha
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0ED4: PASCAL_STRING "System/Start"
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
L0EE1: lda #$00
sta $4861
jsr L4AFD
cmp #$80
beq L0EFE
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
MLI_RELAY_CALL GET_PREFIX, $0ED1
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
bne L0F34
dec $4862
jmp L0F05
L0EFE: lda #$62
ldx #$48
jsr L4B3A
L0F05: ldx $4862
L0F08: lda $4862,x
cmp #$2F
beq L0F12
dex
bne L0F08
L0F12: ldy #$00
L0F14: inx
iny
lda L0ED4,y
sta $4862,x
cpy L0ED4
bne L0F14
stx $4862
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
MLI_RELAY_CALL GET_FILE_INFO, $0EBE
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
bne L0F34
lda #$80
sta $4861
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
L0F34: A2D_RELAY_CALL $29, $0000
A2D_RELAY_CALL A2D_SET_MENU, $AC44
A2D_RELAY_CALL A2D_SET_CURSOR, $D2AD
DeskTop: Initial disassembly of segments 5/6
2018-01-05 17:42:32 +00:00
lda #$00
sta $EC25
jsr L66A2
jsr L678A
jsr L670C
jmp A2D
DeskTop: Init segment
2018-01-05 18:24:27 +00:00
;; Pad out to $800
.res $800 - (* - start), 0
Reference in New Issue Copy Permalink