BASIC-INIT-A

* NAME BASIC-INIT-A DOC. 70181909000 REV. A PAGE 3

0070 * 0071 * 0072 * INITIALIZATION ROUTINE 0073 * 0074 * CALLING SEQUENCE: 0075 * 0076 * JST INIT 0077 * RETURN IS MADE THROUGH JOB COMMAND PROCESSOR 0078 * 0079 * 0080 * THE PROGRAM TEXT TABLE BASE POINTER(PTB) IS INITIALIZED 0081 * TO THE LOWEST ADDRESS OF THE INITIALIZATION ROUTINE, AND AN 0082 * IDENTIFICATION MESSAGE IS PRINTED. IF THE IOS WAS LOADED AFTER 0083 * MTHPAK, OR IF MTHPAK WAS LOADED AFTER THE INITIALIZATION ROUTINE, 0084 * AN ILLEGAL CONFIGURATION MESSAGE IS PRINTED, AND THE PROGRAM HALTS. 0085 * IF ANYTHING WAS LOADED BETWEEN MTHPAK AND THE INITIALIZATION 0086 * ROUTINE, THERE IS A JUMP TO SET THE STATEMENT INDEX HIGH POINTER 0087 * (SIT). OTHERWISE THW USER IS ASKED IF HE WOULD LIKE TO DELETE ATN. 0088 * A NO ANSWER CAUSES A JUMP TO SET SIT. A YES ANSWER CAUSES PTB TO 0089 * BE SET TO THE FIRST WORD OF THE ROUTINE, AND THE POINTER TO THE 0090 * ROUTINE IS REPLACED BY A POINTER TO A ROUTINE WHICH FLAGS A DE- 0091 * LETED LIBRARY FUNCTION(DF) ERROR. THIS SEQUENCE IS THEN REPEATED 0092 * FOR SIN, COS, AND TAN, AND SQR. 0093 * SIT IS INITIALIZED TO THE HIGH CORE MEMORY ADDRESS, AND THE 0094 * USER IS ASKED IF IT IS ALL RIGHT TO USE ALL OF CORE. A YES ANSWER 0095 * CAUSES A JUMP TO CALCULATE THE AMOUNT OF USER SPACE. OTHERWISE THE 0096 * USER INPUT HIGH OCTAL ADDRESS IS FORMED. NON-OCTAL NUMBERS, OVER- 0097 * FLOW, OR AN ADDRESS GREATER THAN THE HIGH CORE ADDRESS CAUSES A 0098 * MESSAGE TO BE PRINTED REQUESTING A YES OR A HIGH OCTAL ADDRESS. 0099 * OTHERWISE SIT IS SET TO THE USER INPUT HIGH OCTAL ADDRESS. THE 0100 * AMOUNT OF USER SPACE IS CALCULATED BY SUBTRACTING PTB FROM SIT AND 0101 * ADDING ONE. IF THE RESULT IS LESS THAN ELEVEN, A MESSAGE IS 0102 * PRINTED TO FLAG INSUFFICIENT USER SPACE, AND THE ROUTINE LOOPS TO 0103 * RESET SIT. OTHERWISE THE AMOUNT OF USER SPACE IS PRINTED, THE CALL 0104 * TO THE INITIALIZATION ROUTINE IS REPLACED WITH A CRA INSTRUCTION, 0105 * AND THE ROUTINE EXITS THROUGH THE JOB COMMAND PROCESSOR. 0106 * 0107 * 0108 00000 0 000000 INTA DAC * ADDRESS OF FIRST WORD OF INITIALIZATION 0109 * ROUTINE 0110 00001 0 000000 INIT DAC ** ENTRY 0111 00002 0 02 00000 LDA INTA INITIALIZE LOW POINTER TO FIRST WORD 0112 00003 0 04 00000 STA PTB OF INITIALIZATION ROUTINE 0113 00004 0 04 00000 STA LODF SET FLAG FOR NO PAPER TAPE INPUT 0114 00005 0 10 00000 JST LFCR C/R, LINE FEED 0115 00006 0 10 00000 JST TYPE OUTPUT ID MESSAGE 0116 00007 0 000000 XAC IDMS X 0117 00010 0 10 00000 JST LFCR A COUPLE OF LINE FEEDS 0118 00011 0 10 00000 JST LFCR X 0119 *