BASIC-16A

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

2963 * FLOATING POINT ACCUMULATOR LOAD AND STORE ROUTINES 2964 * 2965 * 2966 * LCVL - LOAD A+B FROM FLOATING POINT ACCUMULATOR 2967 * 2968 * 2969 * CALLING SEQUENCE: 2970 * 2971 * JST LCVL 2972 * ......RETURN CONTENTS OF CVAL IN A+B 2973 * 2974 * 2975 03203 0 000000 LCVL DAC ** 2976 03204 0 10 00000 JST L$22 LOAD A+B FROM 2977 03205 0 000041 DAC CVAL X 2978 03206 -0 01 03203 JMP* LCVL RETURN 2979 * 2980 * 2981 * SCVL - STORE A+B IN FLOATING POINT ACCUMULATOR 2982 * 2983 * 2984 * CALLING SEQUENCE: 2985 * 2986 * JST SCVL 2987 * ......RETURN CVAL SET TO CONTENTS OF A+B 2988 * 2989 * 2990 03207 0 000000 SCVL DAC ** 2991 03210 0 10 00000 JST H$22 STORE A+B IN CVAL 2992 03211 0 000041 DAC CVAL X 2993 03212 -0 01 03207 JMP* SCVL RETURN 2994 * 2995 * 2996 * 2997 EJCT NOT MUCH TO THESE ROUTINES, IS THERE ?