1 line
1.7 KiB
NASM
1 line
1.7 KiB
NASM
keep TEXT
|
|
|
|
****************************************************************
|
|
* ChemiGS *
|
|
****************************************************************
|
|
* A Drawing Program for Chemical Structures *
|
|
* (c) 1992-93 by Urs Hochstrasser *
|
|
* Buendtenweg 6 *
|
|
* 5105 AUENSTEIN (SWITZERLAND) *
|
|
****************************************************************
|
|
|
|
* Module TEXT
|
|
|
|
|
|
****************************************************************
|
|
*
|
|
* USES ...
|
|
*
|
|
mcopy text.macros
|
|
copy equates.asm
|
|
|
|
|
|
KeyFilter start
|
|
using Globals
|
|
|
|
oteH equ 8 Offset to the teH Input Parm
|
|
otype equ 4 Offset to the type Input Parm
|
|
|
|
phd save current DP
|
|
tsc
|
|
tcd switch to DP in stack
|
|
|
|
ldy #0 *** new: save InfoRect into gInfoRect
|
|
|
|
lda #0 ***
|
|
sta $E0C034 ***
|
|
|
|
lda [oteH],y
|
|
sta teH
|
|
iny
|
|
iny
|
|
lda [oteH],y
|
|
sta teH+2
|
|
lda [otype],y
|
|
sta type
|
|
|
|
* ------------------- individual routine -----------------
|
|
inc gaga ***
|
|
lda gaga ***
|
|
inc a ***
|
|
sta $E0C034 ***
|
|
lda $E0C030
|
|
|
|
~HandToPtr teH,#teRec,#$106
|
|
ldx #$D8
|
|
lda teRec,x
|
|
sta theChar
|
|
|
|
* do conversion stuff
|
|
lda theChar example...
|
|
and #$005F
|
|
sta outChar
|
|
~PtrToHand #outChar,outH,#2
|
|
ldx #$DC keyRecord.theInputHandle
|
|
lda outH
|
|
sta teRec,x
|
|
lda outH+2
|
|
sta teRec+2,x
|
|
ldx #$E4 keyRecord.theOpcode
|
|
stz teRec,x
|
|
|
|
~PtrToHand #teRec,teH,#106
|
|
|
|
* ------------------- Remove input parameters from stack
|
|
ply pull original DP, save in y
|
|
|
|
lda 2,s Move RTL addr down over inp parms
|
|
sta 8,s
|
|
lda 0,s
|
|
sta 6,s
|
|
|
|
tsc now move SP over inp parms
|
|
clc
|
|
adc #6 add number input parm bytes to SP
|
|
tcs and reset stack
|
|
|
|
tya restore original DP
|
|
tcd
|
|
|
|
* lda #2 ***
|
|
* sta $E0C034 ***
|
|
|
|
rtl back to Window Mgr
|
|
teH ds 4
|
|
type ds 2
|
|
|
|
tePtr ds 4
|
|
theChar ds 2
|
|
outChar ds 2
|
|
|
|
gaga ds 2
|
|
end
|