;
;  ___FILENAME___
;  ___PACKAGENAME___
;
; Created by ___FULLUSERNAME___ on ___DATE___.
; Copyright (c) ___YEAR___ ___ORGANIZATIONNAME___. All rights reserved.
;

        mcopy main.macros
        keep main

windowRes   gequ    1001

main    start
        dc i4'NDAOpen'          ; Open callback
        dc i4'NDAClose'         ; Close callback
        dc i4'NDAAction'        ; Action callback
        dc i4'NDAInit'          ; Init callback
        dc i2'$ffff'            ; Period
        dc i2'$03ff'            ; Event mask
        dc c'  ___PACKAGENAME___\\H**'   ; Menu line
        dc i1'0'
        
        end


NDAOpen start
        
        phb
        phk
        plb
        
        lda ndaActive
        beq doOpen
        plb
        rtl
        
doOpen  anop

        _getLevelGS levelDCB
        lda level
        sta oldLevel
        stz level
        _setLevelGS levelDCB
        
        _getSysPrefsGS prefsDCB
        lda prefs
        sta oldPrefs
        and #$1fff
        ora #$8000
        sta prefs
        _setSysPrefsGS prefsDCB
        
        pha
        ~OpenResourceFileByID #1,userId
        pl2 oldResApp

        pha
        pha
        ~NewWindow2 #winName,#0,#DrawContents,#0,#2,#windowRes,#$800E
        pl4 winPtr
        
        ~SetSysWindow winPtr
        ~ShowWindow winPtr
        ~SelectWindow winPtr
        
        lda #1
        sta ndaActive

        lda oldPrefs
        sta prefs
        _setSysPrefsGS prefsDCB
        lda oldLevel
        sta level
        _setLevelGS levelDCB
        
        ~SetCurResourceApp oldResApp
        
        lda winPtr
        sta 5,S
        lda winPtr+2
        sta 7,S
        
        plb
        
        rtl
        
DrawContents entry
        phb
        phk
        plb
        
        ~PenNormal
        ~MoveTo #7,#10
        ~DrawString #message
        
        plb
        
        rtl
        
NDAClose entry
        phb
        phk
        plb

        lda ndaActive
        beq closeNotActive
        
        ~CloseWindow winPtr
        
        stz winPtr
        stz winPtr+2
        stz ndaActive
        
closeNotActive anop
        ~CloseResourceFile resourceId
        ~ResourceShutdown
        
        plb
        rtl
        
NDAAction entry

        phb
        phk
        plb
        
        cmp #1
        bne notEvent
        jsl HandleEvent
        bra actionDone
        
notEvent anop
        cmp #2
        bne notRun
        jsl HandleRun
        bra actionDone
        
notRun  anop
        cmp #3
        bne notCursor
        jsl HandleCursor
        bra actionDone
        
notCursor anop
        cmp #5
        blt notEdit
        cmp #10
        bge notEdit
        jsl HandleEdit
        lda #1
        bra actionDone
        
notEdit anop
actionDone anop
        plb
        rtl
        
HandleEvent entry
; The X register has the low 16 bits of the address of the event record.
; We leave that there and use that in the memory move instruction to
; copy that event record into our local event.
;
; The Y register has the high 16 bits of the address of the event record.
; We need to get that into the upper 8 bits of the accumulator.
        tya
        xba
; Now we need to or in the current bank register into the lower 8 bits
; of the accumulator for the move instruction
        pea $0
        phb
        ora 1,S
; We have the source and destination banks in the accumulator now.  Modify
; the move instruction to have these banks and clean up the stack.
        sta moveIns+1
        plb
        pla
        
; X is already setup for the move.  We need the low 16 bits of the destination
; in the Y register and the count of bytes to copy minus one in the accumulator.
        ldy #localEvent
        lda #15             ; Copy 16 bytes
moveIns mvn 0,0
        
; Set the wmTaskData field to $1fffff
        lda #$ffff
        sta localEvent+20
        lda #$001f
        sta localEvent+22
        
        pha
        ~TaskMasterDA 0,#localEvent
        pla
        
        cmp #$6
        bne notUpdate
        ~BeginUpdate winPtr
        jsl DrawContents
        ~EndUpdate winPtr
        bra eventDone
        
notUpdate anop
        cmp #$21
        bne notControl
        jsl HandleControl
        bra eventDone
        
notControl anop
        cmp #$3
        beq isKey
        cmp #$5
        beq isKey

eventDone anop
        rtl
        
isKey   anop
        jsl HandleKey
        bra eventDone
        
        
HandleControl entry
; Add code here if you need to handle controls in your NDA window
        rtl
        
HandleKey entry
; Add code here if you need to handle keypresses
        rtl
        
HandleRun entry
; Add code here if you need to execute something periodically from your NDA
        rtl
        
HandleCursor entry
; Add code here if you need to do something to the cursor when over the NDA window
        rtl
        
HandleEdit entry
; Add code here to handle undo, cut, copy, paste or clear.  The A register holds
; the action code.
        rtl
        
NDAInit entry
        cmp #$00
        beq toolShutdown
        
        stz ndaActive
        
        pha
        ~MMStartUp
        pla
        sta userId
        
        bra initReturn
        
toolShutdown anop
        lda ndaActive
        beq initReturn
        jsl NDAClose
        
initReturn anop
        rtl

; Global data
    
ndaActive   dc i2'0'
winPtr      dc i4'0'
userId      dc i2'0'
resourceId  dc i2'0'
winName     dw ' ___PACKAGENAME___ '
message     dw 'Hello, world!'

; Used by NDAOpen to access resources
oldResApp   dc i2'0'
oldLevel    dc i2'0'
oldPrefs    dc i2'0'

levelDCB    dc i2'2'    ; GSOS control block to get/set level
level       dc i2'0'
            dc i2'0'
            
prefsDCB    dc i2'1'    ; GSOS control block to get/set preferences
prefs       dc i2'0'

; Used by HandleEvent
localEvent  ds 46

        end