A83: Problem with directinput routine
[Prev][Next][Index][Thread]
A83: Problem with directinput routine
I am using the direct input routine:
#define kbtrigger(xxxx) ld a,keyreset \ out (1),a \ ld a,xxxx \ out (1),a \ in a, (1)
...Keydefines and stuff...
getkeyloop1:
kbtrigger(keygroup3)
cp key3
jp z,log1
kbtrigger(keygroup4)
cp key2
jp z,rijen1
cp keyStat
jp z,help
kbtrigger(keygroup5)
cp key1
jp z,gonio1
cp key4
jp z,algebra1
kbtrigger(keygroup7)
cp keyMode
jp z,exit
jp getkeyloop1
...more program code...
exit:
bcall(_clrlcdfull)
bcall(_grbufclr)
bcall(_homeup)
ld hl,0000h
ld (CURCOL),hl
ld hl,exittext
bcall(_puts)
ld hl,0409h
ld (CURCOL),hl
ld hl,done
bcall(_puts)
ret
...rest of program...
but when I press mode to quit, the program does quit, but directly afterwards the TIOS
Mode-screen is being displayed.
I tried resetting the keyboard with ld a, 0FFh \ out (1),a
but that didn't work.
Anyone any ideas???
Peter Martijn
begin 600 WINMAIL.DAT
M>)\^(BH-`0:0" `$```````!``$``0>0!@`(````Y 0```````#H``$(@ <`
M& ```$E032Y-:6-R;W-O9G0@36%I;"Y.;W1E`#$(`0V ! `"`````@`"``$$
MD 8`Z $```$````0`````P``, (````+``\.``````(!_P\!````5P``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&%S<V5M8FQY+3@S0&QI<W1S+G1I8V%L
M8RYO<F<`4TU44 !A<W-E;6)L>2TX,T!L:7-T<RYT:6-A;&,N;W)G```>``(P
M`0````4```!33510`````!X``S !````'0```&%S<V5M8FQY+3@S0&QI<W1S
M+G1I8V%L8RYO<F<``````P`5# $````#`/X/!@```!X``3 !````'P```"=A
M<W-E;6)L>2TX,T!L:7-T<RYT:6-A;&,N;W)G)P```@$+, $````B````4TU4
M4#I!4U-%34),62TX,T!,25-44RY424-!3$,N3U)'`````P``.0`````+`$ Z
M`0```!X`]E\!````'0```&%S<V5M8FQY+3@S0&QI<W1S+G1I8V%L8RYO<F<`
M`````@'W7P$```!7`````````($K'Z2^HQ 9G6X`W0$/5 (`````87-S96UB
M;'DM.#- ;&ES=',N=&EC86QC+F]R9P!33510`&%S<V5M8FQY+3@S0&QI<W1S
M+G1I8V%L8RYO<F<```,`_5\!`````P#_7P`````"`?8/`0````0````````"
MN6T!!( !`"$```!0<F]B;&5M('=I=&@@9&ER96-T:6YP=70@<F]U=&EN90">
M# $%@ ,`#@```- '"0`=``\`.P`I``4`=0$!(( #``X```#0!PD`'0`/`#,`
M. `%`'P!`0F `0`A````0C(S134P,C8R,#DV1#0Q,3A%-34P,$,P,C8R-# V
M-#@`O@8!`Y &``P'```B````"P`"``$````+`",```````,`)@``````"P`I
M``$````#`"X```````(!,0`!````T0```%!#1$9%0C Y``$``@!+````````
M`#BANQ %Y1 :H;L(`"LJ5L(``&US<'-T+F1L; ``````3DE40?F_N $`J@`W
MV6X```!#.EQ%+4UA:6Q<3W5T;&]O:RYP<W0`& `````````&&=^]36G4$8Y5
M`, F) 9(HH ````````8``````````89W[U-:=01CE4`P"8D!DC"@ ``$ ``
M`+(^4"8@EM01CE4`P"8D!D@A````4')O8FQE;2!W:71H(&1I<F5C=&EN<'5T
M(')O=71I;F4``````P`V``````! `#D`(.I9@QTJP $>`' ``0```"$```!0
M<F]B;&5M('=I=&@@9&ER96-T:6YP=70@<F]U=&EN90`````"`7$``0```!8`
M```!P"H=@S\F4#ZSEB 1U(Y5`, F) 9(```>`!X,`0````4```!33510````
M`!X`'PP!````%P```&-E;G1R86Q :'EP97)F:65L9"YC;VT```,`!A "NKA%
M`P`'$*0"```>``@0`0```&4```!)04U54TE.1U1(141)4D5#5$E.4%544D]5
M5$E.13HC1$5&24Y%2T)44DE'1T52*%A86%@I3$1!+$M%65)%4T543U54*#$I
M+$%,1$$L6%A86$]55"@Q*2Q!24Y!+"@Q*4M%641%``````(!"1 !````!0,`
M``$#``!(!@``3%I&=>T]_&4_``H!`P'W`J0#XP(`8VC!"L!S970P( <3`H._
M`% "\@])"%4'L@* ?0J B0C((#L);S(U-0* )0J!=@B0=VL+@&0T;0Q@8P!0
M"P-C`$$+8&X@9S$P,S,+IB!)8"!A;2!U`) 6@"! =&AE(&1I"7!C\P5 "X!P
M=05 `V 9``N _&4Z"J(*A!GW%B !0!9D8C06T3$@(P$!&7$@2&MB= 409V<$
MD"A">!T!*2!L9!> +#AK97D)< ^A`S!<(($902 H,2DL81XR?QUC'0(>/PN
M'8$>HAFT+GTAT$L=P!OT!" `<!UP<[QT=0$@(=$9M!S =!VQT0D`;W Q&:L@
M)54<:&<=L0G "&!P,R%E)59C7G <4!W %M E"VHH`'K>+ D`%I D_R8--"</
M*!+N,BAO*7 %$&H)\"G-)_0Z4P&0="U/*7 8,&QP>RG?)@TU*^\H$BG-*4-G
M^0(@:6\NSR@2%7 U3Q[@8FP<P&)R82G/)?XW.S/?*!)-!'$X'REP97CZ:3!/
M("/9&;HAT01@"7#\(' #8 G %Y$%H $`(T?_%A\:CQN3/I(9I3HF))\Z(01B
M8P= ;"A?8VS <FQC9&9U2# [W7M(!0G 8B,02'%)'T@C:!T#<&4FT#O='6%H
M;"P*,$X!:$S/*$-54OA#3TP>T$W03E]-T3Z2WG0^D#[-2 48\7-,OTW#N#0P
M.4Y/3U]-'60"(/\]75*_).T)<#[%(=$=X05 ?&]F0<9"F!G#2I %0'?_&# #
MH!=P0= 'D 0@!&(8$/!O('%U/K A(!@B0=:?6 `'D5]47<(89&QY%X [`8 $
MD'<+$00@&")42>Q/4QFT/2(M!/$)X1C 600@8F47XAA@<PM1>?\)@%S[%W <
M@0F 6Q$/H1EAOQ@$';$&X L17? ^L&@=5/ @,$9&:% >2EUH&"!C,# 8461N
M)UWA!;!K\5S[06YY6!$BH6'0:N P96%S/VU0&;\*4-L/L!'Q30K &6!J"Y!#
M/PL9V!)Q`'%P`````P`0$ `````#`!$0``````,`@!#_____0 `',""O<VX<
M*L !0 `(,""O<VX<*L !"P``@ @@!@``````P ```````$8``````X4`````
M```#``* "" &``````# ````````1@`````0A0````````,`!8 (( 8`````
M`, ```````!&`````%*%``"W#0```P`*@ @@!@``````P ```````$8`````
M`84````````>`!. "" &``````# ````````1@````!4A0```0````0````X
M+C `"P`7@ @@!@``````P ```````$8`````#H4````````#`!B "" &````
M``# ````````1@`````1A0````````,`&H (( 8``````, ```````!&````
M`!B%````````'@`I@ @@!@``````P ```````$8`````-H4```$````!````
M`````!X`*H (( 8``````, ```````!&`````#>%```!`````0`````````>
M`"N "" &``````# ````````1@`````XA0```0````$`````````'@`]``$`
4```!``````````,`#33]-P``AZ$`
`
end