BASIC-16A

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 71

2659 * UPDATE FREE STORAGE COUNT 2660 * 2661 * 2662 * CALLING SEQUENCE: 2663 * 2664 * LDA NWRD A CONTAINS NO. OF WORDS REQUIRED 2665 * JST UFSC 2666 * ......RETURN IF REQUIRED NO. OF WORDS ARE AVAILABLE 2667 * 2668 * THIS ROUTINE MAY BE USED TO REMOVE WORDS FROM THE 2669 * FREE STORAGE AREA (IF A IS +) OR TO RELEASE WORDS TO 2670 * THE FREE STORAGE AREA (IF A IS -). 2671 * 2672 * 2673 03041 0 000000 UFSC DAC ** 2674 03042 0 06 00047 ADD FSC UPDATE THE FREE STORAGE COUNT 2675 03043 101400 SMI TEST FOR MEMORY OVERFLOW 2676 03044 0 01 03027 JMP MEMO YES...GO TELL THE USER 2677 03045 0 04 00047 STA FSC NO....SAVE THE UPDATED COUNT 2678 03046 -0 01 03041 JMP* UFSC AND RETURN 2679 * 2680 * 2681 * 2682 EJCT