a2d/desktop/ovl7.s

        .setcpu "6502"

;;; NB: Compiled as part of ovl34567.s

;;; ============================================================
;;; Overlay for Selector (part of it, anyway)
;;; ============================================================

        .org $7000
.proc selector_overlay

L7000:  stx     L73A9
        sty     L73AA
        jsr     common_overlay::L5CF7
        jsr     L7101
        jsr     L70AD
        jsr     common_overlay::L5E87
        lda     path_buf0
        beq     L7056
        addr_call common_overlay::L6129, path_buf0
        ldy     path_buf0
L7021:  lda     path_buf0,y
        sta     $5028,y
        dey
        bpl     L7021
        jsr     common_overlay::L5F49
        ldy     path_buf0
L7030:  lda     path_buf0,y
        cmp     #$2F
        beq     L7044
        dey
        cpy     #$01
        bne     L7030
        lda     #$00
        sta     path_buf0
        jmp     L7056

L7044:  ldx     #$00
L7046:  iny
        inx
        lda     path_buf0,y
        sta     L709D,x
        cpy     path_buf0
        bne     L7046
        stx     L709D
L7056:  jsr     common_overlay::L5F5B
        lda     #$00
        bcs     L706A
        addr_call common_overlay::L6516, $709D
        sta     $D920
        jsr     common_overlay::L6586
L706A:  jsr     common_overlay::L6163
        jsr     common_overlay::L61B1
        jsr     common_overlay::L606D
        lda     path_buf0
        bne     L707B
        jsr     common_overlay::L6D30
L707B:  copy16  #$2001, $D484
        jsr     common_overlay::L6D27
        jsr     common_overlay::L6693
        copy16  #$2001, $D484
        lda     #$FF
        sta     $D8EC
        jmp     common_overlay::L5106

;;; ============================================================

L709D:  .res 16, 0

;;; ============================================================


L70AD:  ldx     L7207
L70B0:  lda     L7207+1,x
        sta     $6D1E,x
        dex
        lda     L7207+1,x
        sta     $6D1E,x
        dex
        dex
        bpl     L70B0
        lda     #$00
        sta     $51AE
        lda     #$80
        sta     $5104
        copy16  #$0601, $D484
        lda     winfo12
        jsr     common_overlay::L62C8
        lda     L73A9
        jsr     L7467
        lda     L73AA
        jsr     L747B
        lda     #$80
        sta     $5103
        lda     #$AB
        sta     $531C
        lda     #$73
        sta     $531D
        lda     #$F4
        sta     $5B24
        lda     #$74
        sta     $5B25
        rts

L7101:  lda     winfo12
        jsr     common_overlay::L62C8
        lda     path_buf0
        beq     L7116
        addr_call common_overlay::L5E0A, $D729
        jmp     L711D

L7116:  addr_call common_overlay::L5E0A, $D718
L711D:  addr_call common_overlay::L5E6F, $D849
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; penXOR
        MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
        MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect2
        addr_call common_overlay::L5E57, $D769
        addr_call common_overlay::L5E6F, $D797
        MGTK_RELAY_CALL MGTK::MoveTo, $D922
        addr_call common_overlay::L5DED, $D7DE
        MGTK_RELAY_CALL MGTK::MoveTo, $D926
        addr_call common_overlay::L5DED, $D7F6
        MGTK_RELAY_CALL MGTK::MoveTo, $D92A
        addr_call common_overlay::L5DED, $D802
        MGTK_RELAY_CALL MGTK::MoveTo, $D92E
        addr_call common_overlay::L5DED, $D814
        MGTK_RELAY_CALL MGTK::MoveTo, $D932
        addr_call common_overlay::L5DED, $D81F
        MGTK_RELAY_CALL MGTK::MoveTo, $D936
        addr_call common_overlay::L5DED, $D830
        MGTK_RELAY_CALL MGTK::MoveTo, $D93A
        addr_call common_overlay::L5DED, $D840
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::FrameRect, $D93E
        MGTK_RELAY_CALL MGTK::FrameRect, $D946
        MGTK_RELAY_CALL MGTK::FrameRect, $D94E
        MGTK_RELAY_CALL MGTK::FrameRect, $D956
        MGTK_RELAY_CALL MGTK::FrameRect, $D95E
        MGTK_RELAY_CALL MGTK::InitPort, grafport3
        MGTK_RELAY_CALL MGTK::SetPort, grafport3
        rts

;;; ============================================================

        .byte   $00

L7207:  .byte   $29
        entry   0, $725D
        entry   0, $732F
        entry   0, $6593
        entry   0, $664E
        entry   0, $6DC2
        entry   0, $6DD0
        entry   0, $6E1D
        entry   0, $69C6
        entry   0, $6A18
        entry   0, $6A53
        entry   0, $6AAC
        entry   0, $6B01
        entry   0, $6B44
        entry   0, $66D8

L7232:  .byte   $29
        entry   0, $72CD
        entry   0, $736C
        entry   0, $65F0
        entry   0, $6693
        entry   0, $6DC9
        entry   0, $6DD4
        entry   0, $6E31
        entry   0, $6B72
        entry   0, $6BC4
        entry   0, $6BFF
        entry   0, $6C58
        entry   0, $6CAD
        entry   0, $6CF0
        entry   0, $684F

;;; ============================================================

        copy16  #$2001, $D484
        jsr     common_overlay::L6D27
        ldx     L7232
L726D:  lda     L7232+1,x
        sta     $6D1E,x
        dex
        lda     L7232+1,x
        sta     $6D1E,x
        dex
        dex
        bpl     L726D
        lda     #$80
        sta     $51AE
        sta     $5105
        lda     $D8F0
        sta     $D8F1
        lda     #$00
        sta     $D8F0
        lda     $D443
        bne     L72BF
        lda     #$00
        sta     $D443
        ldx     path_buf0
        beq     L72BF
L72A0:  lda     path_buf0,x
        cmp     #$2F
        beq     L72AD
        dex
        bne     L72A0
        jmp     L72BF

L72AD:  ldy     #$00
L72AF:  iny
        inx
        lda     path_buf0,x
        sta     $D443,y
        cpx     path_buf0
        bne     L72AF
        sty     $D443
L72BF:  copy16  #$0601, $D484
        jsr     common_overlay::L6D27
        rts

        addr_call common_overlay::L647C, path_buf0
        bne     L72E2
        lda     $D443
        beq     L72E7
        cmp     #$0F
        bcs     L72E8
        jmp     L72EE

L72E2:  lda     #$40
        jsr     JUMP_TABLE_ALERT_0
L72E7:  rts

L72E8:  lda     #$FB
        jsr     JUMP_TABLE_ALERT_0
        rts

L72EE:  MGTK_RELAY_CALL MGTK::InitPort, grafport3
        MGTK_RELAY_CALL MGTK::SetPort, grafport3
        MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
        MGTK_RELAY_CALL MGTK::CloseWindow, winfo12
        sta     $D8EC
        jsr     common_overlay::L55BA
        copy16  #$59B8, $5B24
        ldx     $50AA
        txs
        ldx     L73A9
        ldy     L73AA
        return  #$00

        MGTK_RELAY_CALL MGTK::InitPort, grafport3
        MGTK_RELAY_CALL MGTK::SetPort, grafport3
        MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
        MGTK_RELAY_CALL MGTK::CloseWindow, winfo12
        lda     #$00
        sta     $D8EC
        jsr     common_overlay::L55BA
        copy16  #$59B8, $5B24
        ldx     $50AA
        txs
        return  #$FF

        copy16  #$2001, $D484
        jsr     common_overlay::L6D27
        ldx     L7207
L737C:  lda     L7207+1,x
        sta     $6D1E,x
        dex
        lda     L7207+1,x
        sta     $6D1E,x
        dex
        dex
        bpl     L737C
        copy16  #$0601, $D484
        jsr     common_overlay::L6D27
        lda     #$00
        sta     $5105
        sta     $51AE
        lda     $D8F1
        sta     $D8F0
        rts

L73A9:  .byte   0
L73AA:  .byte   0

        MGTK_RELAY_CALL MGTK::InRect, $D966
        cmp     #MGTK::inrect_inside
        bne     L73BB
        jmp     L73FE

L73BB:  MGTK_RELAY_CALL MGTK::InRect, $D96E
        cmp     #MGTK::inrect_inside
        bne     L73CB
        jmp     L7413

L73CB:  MGTK_RELAY_CALL MGTK::InRect, $D976
        cmp     #MGTK::inrect_inside
        bne     L73DB
        jmp     L7428

L73DB:  MGTK_RELAY_CALL MGTK::InRect, $D97E
        cmp     #MGTK::inrect_inside
        bne     L73EB
        jmp     L743D

L73EB:  MGTK_RELAY_CALL MGTK::InRect, $D986
        cmp     #MGTK::inrect_inside
        bne     L73FB
        jmp     L7452

L73FB:  return  #$00

L73FE:  lda     L73A9
        cmp     #1
        beq     L7410
        jsr     L7467
        lda     #1
        sta     L73A9
        jsr     L7467
L7410:  return  #$FF

L7413:  lda     L73A9
        cmp     #2
        beq     L7425
        jsr     L7467
        lda     #2
        sta     L73A9
        jsr     L7467
L7425:  return  #$FF

L7428:  lda     L73AA
        cmp     #1
        beq     L743A
        jsr     L747B
        lda     #1
        sta     L73AA
        jsr     L747B
L743A:  return  #$FF

L743D:  lda     L73AA
        cmp     #2
        beq     L744F
        jsr     L747B
        lda     #2
        sta     L73AA
        jsr     L747B
L744F:  return  #$FF

L7452:  lda     L73AA
        cmp     #3
        beq     L7464
        jsr     L747B
        lda     #3
        sta     L73AA
        jsr     L747B
L7464:  return  #$FF

L7467:  cmp     #1
        bne     L7473
        addr_call L749B, $D93E
        rts

L7473:  addr_call L749B, $D946
        rts

L747B:  cmp     #1
        bne     L7487
        addr_call L749B, $D94E
        rts

L7487:  cmp     #2
        bne     L7493
        addr_call L749B, $D956
        rts

L7493:  addr_call L749B, $D95E
        rts

L749B:  stax    $06
        ldy     #7
L74A1:  lda     ($06),y
        sta     $D98E,y
        dey
        bpl     L74A1
        lda     $D98E
        clc
        adc     #2
        sta     $D98E
        bcc     L74B7
        inc     $D98F
L74B7:  lda     $D990
        clc
        adc     #2
        sta     $D990
        bcc     L74C5
        inc     $D991
L74C5:  lda     $D992
        sec
        sbc     #2
        sta     $D992
        bcs     L74D3
        dec     $D993
L74D3:  lda     $D994
        sec
        sbc     #2
        sta     $D994
        bcs     L74E1
        dec     $D995
L74E1:  MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, $D98E
        rts

        lda     winfo12
        jsr     common_overlay::L62C8
        lda     $D20A
        bne     L7500
        rts

L7500:  lda     $D209
        and     #$7F
        cmp     #'1'
        bne     L750C
        jmp     L73FE

L750C:  cmp     #'2'
        bne     L7513
        jmp     L7413

L7513:  cmp     #'3'
        bne     L751A
        jmp     L7428

L751A:  cmp     #'4'
        bne     L7521
        jmp     L743D

L7521:  cmp     #'5'
        bne     L7528
        jmp     L7452

L7528:  rts

;;; ============================================================

        PAD_TO $7800
.endproc ; selector_overlay
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`.setcpu "6502"`

Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`;;; NB: Compiled as part of ovl34567.s`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
wider block separator comment 2018-03-05 05:36:00 +00:00			`;;; ============================================================`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`;;; Overlay for Selector (part of it, anyway)`
wider block separator comment 2018-03-05 05:36:00 +00:00			`;;; ============================================================`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
			`.org $7000`
symbols and tidying 2018-02-25 23:19:38 +00:00			`.proc selector_overlay`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
			`L7000: stx L73A9`
			`sty L73AA`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L5CF7`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`jsr L7101`
			`jsr L70AD`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L5E87`
dialog rects 2018-02-22 05:28:13 +00:00			`lda path_buf0`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`beq L7056`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`addr_call common_overlay::L6129, path_buf0`
dialog rects 2018-02-22 05:28:13 +00:00			`ldy path_buf0`
			`L7021: lda path_buf0,y`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`sta $5028,y`
			`dey`
			`bpl L7021`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L5F49`
dialog rects 2018-02-22 05:28:13 +00:00			`ldy path_buf0`
			`L7030: lda path_buf0,y`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`cmp #$2F`
			`beq L7044`
			`dey`
			`cpy #$01`
			`bne L7030`
			`lda #$00`
dialog rects 2018-02-22 05:28:13 +00:00			`sta path_buf0`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`jmp L7056`

			`L7044: ldx #$00`
			`L7046: iny`
			`inx`
dialog rects 2018-02-22 05:28:13 +00:00			`lda path_buf0,y`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`sta L709D,x`
dialog rects 2018-02-22 05:28:13 +00:00			`cpy path_buf0`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`bne L7046`
			`stx L709D`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`L7056: jsr common_overlay::L5F5B`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`lda #$00`
			`bcs L706A`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`addr_call common_overlay::L6516, $709D`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`sta $D920`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L6586`
			`L706A: jsr common_overlay::L6163`
			`jsr common_overlay::L61B1`
			`jsr common_overlay::L606D`
dialog rects 2018-02-22 05:28:13 +00:00			`lda path_buf0`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`bne L707B`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L6D30`
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`L707B: copy16 #$2001, $D484`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L6D27`
			`jsr common_overlay::L6693`
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`copy16 #$2001, $D484`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`lda #$FF`
			`sta $D8EC`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jmp common_overlay::L5106`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
wider block separator comment 2018-03-05 05:36:00 +00:00			`;;; ============================================================`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
			`L709D: .res 16, 0`

wider block separator comment 2018-03-05 05:36:00 +00:00			`;;; ============================================================`
overlay 7 WIP 2018-02-22 03:20:13 +00:00

			`L70AD: ldx L7207`
			`L70B0: lda L7207+1,x`
			`sta $6D1E,x`
			`dex`
			`lda L7207+1,x`
			`sta $6D1E,x`
			`dex`
			`dex`
			`bpl L70B0`
			`lda #$00`
			`sta $51AE`
			`lda #$80`
			`sta $5104`
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`copy16 #$0601, $D484`
dialog rects 2018-02-22 05:28:13 +00:00			`lda winfo12`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L62C8`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`lda L73A9`
			`jsr L7467`
			`lda L73AA`
			`jsr L747B`
			`lda #$80`
			`sta $5103`
			`lda #$AB`
			`sta $531C`
			`lda #$73`
			`sta $531D`
			`lda #$F4`
			`sta $5B24`
			`lda #$74`
			`sta $5B25`
			`rts`

dialog rects 2018-02-22 05:28:13 +00:00			`L7101: lda winfo12`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L62C8`
dialog rects 2018-02-22 05:28:13 +00:00			`lda path_buf0`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`beq L7116`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`addr_call common_overlay::L5E0A, $D729`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`jmp L711D`

Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`L7116: addr_call common_overlay::L5E0A, $D718`
			`L711D: addr_call common_overlay::L5E6F, $D849`
lc defs for overlays, macros for exit 2018-03-02 02:25:42 +00:00			`MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; penXOR`
dialog rects 2018-02-22 05:28:13 +00:00			`MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1`
			`MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect2`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`addr_call common_overlay::L5E57, $D769`
			`addr_call common_overlay::L5E6F, $D797`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`MGTK_RELAY_CALL MGTK::MoveTo, $D922`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`addr_call common_overlay::L5DED, $D7DE`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`MGTK_RELAY_CALL MGTK::MoveTo, $D926`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`addr_call common_overlay::L5DED, $D7F6`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`MGTK_RELAY_CALL MGTK::MoveTo, $D92A`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`addr_call common_overlay::L5DED, $D802`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`MGTK_RELAY_CALL MGTK::MoveTo, $D92E`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`addr_call common_overlay::L5DED, $D814`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`MGTK_RELAY_CALL MGTK::MoveTo, $D932`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`addr_call common_overlay::L5DED, $D81F`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`MGTK_RELAY_CALL MGTK::MoveTo, $D936`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`addr_call common_overlay::L5DED, $D830`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`MGTK_RELAY_CALL MGTK::MoveTo, $D93A`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`addr_call common_overlay::L5DED, $D840`
lc defs for overlays, macros for exit 2018-03-02 02:25:42 +00:00			`MGTK_RELAY_CALL MGTK::SetPenMode, penXOR`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`MGTK_RELAY_CALL MGTK::FrameRect, $D93E`
			`MGTK_RELAY_CALL MGTK::FrameRect, $D946`
			`MGTK_RELAY_CALL MGTK::FrameRect, $D94E`
			`MGTK_RELAY_CALL MGTK::FrameRect, $D956`
			`MGTK_RELAY_CALL MGTK::FrameRect, $D95E`
dialog rects 2018-02-22 05:28:13 +00:00			`MGTK_RELAY_CALL MGTK::InitPort, grafport3`
			`MGTK_RELAY_CALL MGTK::SetPort, grafport3`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`rts`

wider block separator comment 2018-03-05 05:36:00 +00:00			`;;; ============================================================`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
			`.byte $00`

			`L7207: .byte $29`
			`entry 0, $725D`
			`entry 0, $732F`
			`entry 0, $6593`
			`entry 0, $664E`
			`entry 0, $6DC2`
			`entry 0, $6DD0`
			`entry 0, $6E1D`
			`entry 0, $69C6`
			`entry 0, $6A18`
			`entry 0, $6A53`
			`entry 0, $6AAC`
			`entry 0, $6B01`
			`entry 0, $6B44`
			`entry 0, $66D8`

			`L7232: .byte $29`
Update stats tool 2018-02-27 03:59:33 +00:00			`entry 0, $72CD`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`entry 0, $736C`
			`entry 0, $65F0`
			`entry 0, $6693`
			`entry 0, $6DC9`
			`entry 0, $6DD4`
			`entry 0, $6E31`
			`entry 0, $6B72`
			`entry 0, $6BC4`
			`entry 0, $6BFF`
			`entry 0, $6C58`
			`entry 0, $6CAD`
			`entry 0, $6CF0`
			`entry 0, $684F`

wider block separator comment 2018-03-05 05:36:00 +00:00			`;;; ============================================================`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`copy16 #$2001, $D484`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L6D27`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`ldx L7232`
			`L726D: lda L7232+1,x`
			`sta $6D1E,x`
			`dex`
			`lda L7232+1,x`
			`sta $6D1E,x`
			`dex`
			`dex`
			`bpl L726D`
			`lda #$80`
			`sta $51AE`
			`sta $5105`
			`lda $D8F0`
			`sta $D8F1`
			`lda #$00`
			`sta $D8F0`
			`lda $D443`
			`bne L72BF`
			`lda #$00`
			`sta $D443`
dialog rects 2018-02-22 05:28:13 +00:00			`ldx path_buf0`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`beq L72BF`
dialog rects 2018-02-22 05:28:13 +00:00			`L72A0: lda path_buf0,x`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`cmp #$2F`
			`beq L72AD`
			`dex`
			`bne L72A0`
			`jmp L72BF`

			`L72AD: ldy #$00`
			`L72AF: iny`
			`inx`
dialog rects 2018-02-22 05:28:13 +00:00			`lda path_buf0,x`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`sta $D443,y`
dialog rects 2018-02-22 05:28:13 +00:00			`cpx path_buf0`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`bne L72AF`
			`sty $D443`
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`L72BF: copy16 #$0601, $D484`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L6D27`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`rts`

Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`addr_call common_overlay::L647C, path_buf0`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`bne L72E2`
			`lda $D443`
			`beq L72E7`
			`cmp #$0F`
			`bcs L72E8`
			`jmp L72EE`

			`L72E2: lda #$40`
ovl2 wrangling 2018-02-25 07:19:29 +00:00			`jsr JUMP_TABLE_ALERT_0`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`L72E7: rts`

			`L72E8: lda #$FB`
ovl2 wrangling 2018-02-25 07:19:29 +00:00			`jsr JUMP_TABLE_ALERT_0`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`rts`

dialog rects 2018-02-22 05:28:13 +00:00			`L72EE: MGTK_RELAY_CALL MGTK::InitPort, grafport3`
			`MGTK_RELAY_CALL MGTK::SetPort, grafport3`
			`MGTK_RELAY_CALL MGTK::CloseWindow, winfo15`
			`MGTK_RELAY_CALL MGTK::CloseWindow, winfo12`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`sta $D8EC`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L55BA`
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`copy16 #$59B8, $5B24`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`ldx $50AA`
			`txs`
			`ldx L73A9`
			`ldy L73AA`
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`return #$00`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
dialog rects 2018-02-22 05:28:13 +00:00			`MGTK_RELAY_CALL MGTK::InitPort, grafport3`
			`MGTK_RELAY_CALL MGTK::SetPort, grafport3`
			`MGTK_RELAY_CALL MGTK::CloseWindow, winfo15`
			`MGTK_RELAY_CALL MGTK::CloseWindow, winfo12`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`lda #$00`
			`sta $D8EC`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L55BA`
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`copy16 #$59B8, $5B24`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`ldx $50AA`
			`txs`
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`return #$FF`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`copy16 #$2001, $D484`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L6D27`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`ldx L7207`
			`L737C: lda L7207+1,x`
			`sta $6D1E,x`
			`dex`
			`lda L7207+1,x`
			`sta $6D1E,x`
			`dex`
			`dex`
			`bpl L737C`
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`copy16 #$0601, $D484`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L6D27`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`lda #$00`
			`sta $5105`
			`sta $51AE`
			`lda $D8F1`
			`sta $D8F0`
			`rts`

			`L73A9: .byte 0`
			`L73AA: .byte 0`

			`MGTK_RELAY_CALL MGTK::InRect, $D966`
tidying 2018-02-25 21:47:06 +00:00			`cmp #MGTK::inrect_inside`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`bne L73BB`
			`jmp L73FE`

			`L73BB: MGTK_RELAY_CALL MGTK::InRect, $D96E`
tidying 2018-02-25 21:47:06 +00:00			`cmp #MGTK::inrect_inside`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`bne L73CB`
			`jmp L7413`

			`L73CB: MGTK_RELAY_CALL MGTK::InRect, $D976`
tidying 2018-02-25 21:47:06 +00:00			`cmp #MGTK::inrect_inside`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`bne L73DB`
			`jmp L7428`

			`L73DB: MGTK_RELAY_CALL MGTK::InRect, $D97E`
tidying 2018-02-25 21:47:06 +00:00			`cmp #MGTK::inrect_inside`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`bne L73EB`
			`jmp L743D`

			`L73EB: MGTK_RELAY_CALL MGTK::InRect, $D986`
tidying 2018-02-25 21:47:06 +00:00			`cmp #MGTK::inrect_inside`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`bne L73FB`
			`jmp L7452`

apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`L73FB: return #$00`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
			`L73FE: lda L73A9`
			`cmp #1`
			`beq L7410`
			`jsr L7467`
			`lda #1`
			`sta L73A9`
			`jsr L7467`
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`L7410: return #$FF`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
			`L7413: lda L73A9`
			`cmp #2`
			`beq L7425`
			`jsr L7467`
			`lda #2`
			`sta L73A9`
			`jsr L7467`
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`L7425: return #$FF`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
			`L7428: lda L73AA`
			`cmp #1`
			`beq L743A`
			`jsr L747B`
			`lda #1`
			`sta L73AA`
			`jsr L747B`
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`L743A: return #$FF`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
			`L743D: lda L73AA`
			`cmp #2`
			`beq L744F`
			`jsr L747B`
			`lda #2`
			`sta L73AA`
			`jsr L747B`
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`L744F: return #$FF`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
			`L7452: lda L73AA`
			`cmp #3`
			`beq L7464`
			`jsr L747B`
			`lda #3`
			`sta L73AA`
			`jsr L747B`
apply refactor tool to ovl5/6/7 2018-02-24 05:11:20 +00:00			`L7464: return #$FF`
overlay 7 WIP 2018-02-22 03:20:13 +00:00
			`L7467: cmp #1`
			`bne L7473`
			`addr_call L749B, $D93E`
			`rts`

			`L7473: addr_call L749B, $D946`
			`rts`

			`L747B: cmp #1`
			`bne L7487`
			`addr_call L749B, $D94E`
			`rts`

			`L7487: cmp #2`
			`bne L7493`
			`addr_call L749B, $D956`
			`rts`

			`L7493: addr_call L749B, $D95E`
			`rts`

			`L749B: stax $06`
			`ldy #7`
			`L74A1: lda ($06),y`
			`sta $D98E,y`
			`dey`
			`bpl L74A1`
			`lda $D98E`
			`clc`
			`adc #2`
			`sta $D98E`
			`bcc L74B7`
			`inc $D98F`
			`L74B7: lda $D990`
			`clc`
			`adc #2`
			`sta $D990`
			`bcc L74C5`
			`inc $D991`
			`L74C5: lda $D992`
			`sec`
			`sbc #2`
			`sta $D992`
			`bcs L74D3`
			`dec $D993`
			`L74D3: lda $D994`
			`sec`
			`sbc #2`
			`sta $D994`
			`bcs L74E1`
			`dec $D995`
lc defs for overlays, macros for exit 2018-03-02 02:25:42 +00:00			`L74E1: MGTK_RELAY_CALL MGTK::SetPenMode, penXOR`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`MGTK_RELAY_CALL MGTK::PaintRect, $D98E`
			`rts`

dialog rects 2018-02-22 05:28:13 +00:00			`lda winfo12`
Use combo build for overlays 3+ 2018-02-26 03:02:34 +00:00			`jsr common_overlay::L62C8`
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`lda $D20A`
			`bne L7500`
			`rts`

			`L7500: lda $D209`
			`and #$7F`
			`cmp #'1'`
			`bne L750C`
			`jmp L73FE`

			`L750C: cmp #'2'`
			`bne L7513`
			`jmp L7413`

			`L7513: cmp #'3'`
			`bne L751A`
			`jmp L7428`

			`L751A: cmp #'4'`
			`bne L7521`
			`jmp L743D`

			`L7521: cmp #'5'`
			`bne L7528`
			`jmp L7452`

			`L7528: rts`

wider block separator comment 2018-03-05 05:36:00 +00:00			`;;; ============================================================`
symbols and tidying 2018-02-25 23:19:38 +00:00
overlay 7 WIP 2018-02-22 03:20:13 +00:00			`PAD_TO $7800`
symbols and tidying 2018-02-25 23:19:38 +00:00			`.endproc ; selector_overlay`