0 Members and 4 Guests are viewing this topic.
768Asm(EFFD42ED62)If Disp "Not enough RAM!"ElseDisp "768 bytes available!"End
bcall(_EnoughMem) sbc HL, HL
GetCalc("appvA")->theta0Repeat1Asm(EFFD42ED62) ;check if there is one at least one byte of free ramIf ; if there is not1 ;1 is stored to hlElsethetaAsm(545D) ;ld d,h : ld e,lAsm(210100) ;ld hl,1Asm(EF42F7) ;bcall(_InsertMem){theta-2}r++ ;increase size bytes0:EndEnd
:GetCalc(E8478)+GDB3-E9D93->Q //Where E is the little E on calc (2ND + , )