0 Members and 1 Guest are viewing this topic.
:ASM(prgmPRGMNAME:If K=101 //Or whatever the keystroke is for [ON] in the program; Can it be stored to K instead of Ans?:___
:.KEY:Repeat getKey //only use this if you want it to loop:End:getKey->Ans
AsmPrgmDB03E608EE0820033A3F84EF8C47EFBF4AC9
ld a, $98 ld ($9900), a inc a ld i, a ld h, a ld d, h ld bc, $100 ld l, c ld e, b ldir ld a, e ; e is 1 bcall(_setXXOp1) bcall(_decO1Exp) ld hl, data ld de, $9898 ld bc, dataEnd-data ldir im 2 bcall($4744) ; basic getkey, stores it in op2 in a, (04) and 8 jr z, isOn bcall(_zeroOp1)isOn: bcall(_fpAdd) bcall(_stoAns) ret data: ex af, af' bit 1, (iy + 8) jr nz, $+4 im 1;$$: in a, (04) and 1 jr z, noProblemHere xor a out (03), a ld a, %00001011 out (03), anoProblemHere: ex af, af' rst 38h retdataEnd: