#   DEVPAC ASSEMBLER  .EDRC file
#
#

unmap f10
map c-tab   ``    ' left left left left'
map cs-tab  `del del del del'
map a-tab   `goto block while cb `c-tab down''
map as-tab  `goto block while cb `cs-tab down''
map c-up    top
map c-down  bottom
map s-up pageup
map s-down  pagedown
map enter `split first while c=32 `down ` ' up' down'
map a-del `while c=32 del'
map s-enter join
map c-d bdelete
map c-s `escimm `bsave ''
map c-c bcopy
map c-m bmove
map f6  saveold
map c-f10 `saveold quit'
map c-right wright
map c-left wleft
map a-right `wright while !c=32 right'
map a-left  `wleft left while c=32 left right'
map help ref
map s-help iconify

menuoff

menuadd Project Rename          (escimm (chfilename ))
menuadd Project Load            arpload
menuadd Project `Insert    f1'  f1
menuadd Project `NewWindow f3'  f3
menuadd Project `Save      f6'  f6
menuadd Project SaveAs          arpsave
menuadd Project Print           (saveas (PRT:))
menuadd Project `SaveQuit F10'  f10
menuadd Project Directory       (execute (dir))
menuadd Project Quit            quit
menuadd Convert LF->CRLF    (top repeat -1 (last tlate 13 down))
menuadd Convert CRLF->LF    (top repeat -1 (last left if c=13 del down))
menuadd Block   Indent       (goto block while cb (first (    ) down))
menuadd Block   Backdent    (goto block while cb (first repeat 4 (if c=32 del) down))
menuadd Block   `Save    C-s'   (escimm (bsave ))
menuadd Block   `Copy    C-c'   bcopy
menuadd Block   `Move    C-m'   bmove
menuadd Block   `Delete  C-d'   bdelete
menuadd Block   `Print   C-p'   (bsave (PRT:))
menuadd Block   `Mark    C-b'   block
menuadd Block   `Unmark  C-u'   unblock
menuadd Tabs ` 2' (tabstop 2)
menuadd Tabs ` 4' (tabstop 4)
menuadd Tabs ` 6' (tabstop 6)
menuadd Tabs ` 8' (tabstop 8)
menuadd Tabs `10' (tabstop 10)

# menuadd Program `Assemble ' `if m saveold top first execute `GenIm2 \$filename -D''
# menuadd Program `Asm -> .o' `if m saveold top first execute `GenIm2 \$filename -D -L''
# menuadd Program `Asm ->Nil' `if m saveold top first execute `GenIm2 \$filename -B''
# menuadd Program `Asm ->Lst' `if m saveold top first execute `GenIm2 \$filename -B -P''

menuadd Program `Assemble ' `if m saveold top first execute `DmeAsm \$filename''

menuon

