Previous File | Previous Page | Single Page | Next Page | Next File |
* NAME BASIC-INIT-A DOC. 70181909000 REV. A PAGE 7
0259 * 0260 * 0261 * DELETE LIBRARY FUNCTION ROUTINE 0262 * 0263 * CALLING SEQUENCE: 0264 * 0265 * JST DFUA ADDRESS OF MESSAGE COANTAINING FUNCTION 0266 * NAME(S) IN THE A REGISTER 0267 * ......RETURN IF YES ANSWER 0268 * 0269 * 0270 * A MESSAGE IS PRINTED ASKING THE USER IF HE WOULD LIKE TO 0271 * DELETE THE LIBRARY FUNCTION(S) WHOSE NAME(S) IS CONTAINED IN THE 0272 * MESSAGE. A LINE IS INPUTED FROM THE ASR, AND THE FIRST NON-BLANK 0273 * CHARACTER IS TESTED. IF IT IS A Y, RETURN IS MADE. IF IT IS A N, 0274 * THE ROUTINE JUMPS INTO INIT T0 SET SIT. IF THE FIRST NON-BLANK 0275 * CHARACTER IS OTHER THAN A Y OR A N, A MESSAGE IS PRINTED REQUESTING 0276 * A YES OR A NO ANSWER. 0277 * 0278 * 0279 00161 0 000000 DFUA DAC ** ENTRY 0280 00162 0 04 00166 STA DFID STORE FUNCTION NAME MESSAGE 0281 00163 0 10 00000 JST TYPE OUTPUT QUESTION PREFIX 0282 00164 0 000000 XAC DFQ X 0283 00165 0 10 00000 JST TYPE PRINT FUNCTION NAME 0284 00166 0 000000 DFID DAC ** X 0285 00167 0 10 00000 JST LFCR OUTPUT C/R, LINE FEED 0286 00170 0 02 00000 DF02 LDA C241 OUTPUT AN EXCAMATION POINT 0287 00171 0 10 00000 JST IPUT INPUT FROM THE ASR UNTIL A C/R 0288 00172 0 000000 XAC SBUF INPUT BUFFER 0289 00173 0 10 00000 JST GNBC GET THE FIRST NON-BLANK CHARACTER 0290 00174 0 11 00213 CAS C331 IS IT A 'Y' 0291 00175 0 01 00202 JMP DF01 NO-REQUEST A YES OR A NO 0292 00176 -0 01 00161 JMP* DFUA Y-ASSUME YES ANSWER-EXIT TO RESET LOW 0293 * POINTER 0294 00177 0 11 00212 CAS C316 IS IT A 'N' 0295 00200 100000 SKP NO-REQUEST A YES OR NO ANSWER 0296 00201 0 01 00047 JMP IN01 N-ASSUME ANSWER-JUMP TO SET HIGH POINTER 0297 00202 0 10 00000 DF01 JST TYPE NO-REQUEST A YES OR NO ANSWER 0298 00203 0 000000 XAC AYON X 0299 00204 0 01 00170 JMP DF02 LOOP TO INPUT ANSWER 0300 EJCT
Previous File | Previous Page | Single Page | Next Page | Next File |