1 line
1.7 KiB
NASM
1 line
1.7 KiB
NASM
|
keep MENU
****************************************************************
* ChemiGS *
****************************************************************
* A Drawing Program for Chemical Structures *
* (c) 1992-93 by Urs Hochstrasser *
* Buendtenweg 6 *
* 5105 AUENSTEIN (SWITZERLAND) *
****************************************************************
* Module MENU
****************************************************************
*
* USES ...
*
mcopy Menu.macros
copy equates.asm
****************************************************************
*
* SUBROUTINES
*
HandleMenu start
using Globals
lda gTaskDta get Menu Item ID
sec turn into index by substracting 250
sbc #250
asl a and multiplying by 2
tax
jsr (menuTable,x) call the routine
~HiliteMenu #0,gTaskDta+2 hilite the selected menu
rts
menuTable dc i2'Ignore' Undo (250)
dc i2'Ignore' Cut (251)
dc i2'Ignore' Copy (252)
dc i2'Ignore' Paste (253)
dc i2'Ignore' Clear (254)
dc i2'DoClose' Close (255)
dc i2'DoAbout' About... (256)
dc i2'DoQuit' Quit (257)
dc i2'DoNew' New (258)
dc i2'DoOpen' Open (259)
dc i2'DoSave' Save (260)
dc i2'DoSaveAs' Save As... (261)
dc i2'DoRevert' Revert (262)
dc i2'DoPSetup' Page Setup... (263)
dc i2'DoPrint' Print... (264)
dc i2'Ignore' Select All (265) ???????
dc i2'Ignore' Bring To Front (266)
dc i2'Ignore' Choose Font (267)
dc i2'Ignore' Show Clipboard (268)
dc i2'Ignore' Send To Back (269)
dc i2'Ignore' Group (270)
dc i2'Ignore' Ungroup (271)
dc i2'Ignore' Size (272)
dc i2'DoPrefs' Preferences (273)
dc i2'Test' Grid (274)
dc i2'Test' Select All (275)
dc i2'DoHelp' Help (276)
dc i2'Test' Test Beep
end
|