BASIC-INIT-A

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

0120 * CHECK FOR ILLEGAL CONFIGURATION 0121 * 0122 00012 0 02 00205 LDA HMPK LOAD HIGH ADDRESS OF MTHPAK 0123 00013 0 07 00206 SUB IOSA SUBTRACT ADDRESS IN IOS 0124 00014 100400 SPL SKIP IF POSITIVE 0125 00015 0 01 00156 JMP IN06 JUMP TO FLAG ILLEGAL CONFIGURATION IF 0126 * NEGATIVE 0127 00016 0 02 00205 LDA HMPK LOAD THE LAST ADDRESS OF THE MTHPAK 0128 00017 101100 SLN SKIP IF THE ADDRESS IS ODD 0129 00020 141206 AOA IF IT'S EVEN ADD ONE SINCE LOADING STARTS 0130 * ON AN EVEN LOCATION 0131 00021 141206 AOA ADD ONE AND 0132 00022 0 11 00000 CAS INTA COMPARE WITH THE ADDRESS OF THE FIRST WORD 0133 * OF THE INITIALIZATION ROUTINE 0134 00023 0 01 00156 JMP IN06 IF THE MTHPAK WAS LOADED AFTER THE INITIAL- 0135 * IZATION ROUTINE THEN JUMP TO FLAG AN 0136 * ILLEGAL CONFIGURATION 0137 00024 100000 SKP IF MTHPAK WAS LOADED JUST BEFORE THE 0138 * INITIALIZATION ROUTINE THEN JUMP TO 0139 * ASK USER IF HE WISHES TO DELETE ANY OF 0140 * LIBRARY FUNCTION ROUTINES 0141 00025 0 01 00047 JMP IN01 IF ANYTHING WAS LOADED BETWEEN THE MTHPAK 0142 * AND THE INITIALIZATION ROUTINE THEN 0143 * JUMP TO SET THE HIGH POINTER (SIT) 0144 * 0145 * SET LOW POINTER, PTB 0146 * 0147 00026 0 02 00214 IN02 LDA ATQD LOAD ADDRESS OF ATN MESSAGE 0148 00027 0 10 00161 JST DFUA DELETE ARCTANGENT FUCTION 0149 00030 0 02 00000 LDA DELT YES-REPLACE POINTER TO ATN WITH A 0150 00031 0 13 00000 IMA ATND POINTER TO ROUTINE TO FLAG ERROR DF 0151 00032 0 04 00000 STA PTB AND SET LOW POINTER TO FIRST WORD OF ATN 0152 00033 0 02 00216 LDA SCQD LOAD ADDRESS OF SIN, COS, TAN MESSAGE 0153 00034 0 10 00161 JST DFUA DELETE SIN, COS, TAN FUNCTIONS 0154 00035 0 02 00000 LDA DELT YES- REPLACE POINTER TO THOSE FUNCTIONS 0155 00036 0 04 00000 STA TAND WITH POINTER TO FLAG ERROR DF 0156 00037 0 04 00000 STA SIND X 0157 00040 0 13 00000 IMA COSD X 0158 00041 0 04 00000 STA PTB SET LOW POINTER TO FIRST WORD OF COS 0159 00042 0 02 00215 LDA SQQD LOAD ADDRESS OE SQUARE ROOT MESSAGE 0160 00043 0 10 00161 JST DFUA DELETE SQUARE ROOT FUNCTION 0161 00044 0 02 00000 LDA DELT YES-REPLACE POINTER TO SQUARE ROOT FUNCTION 0162 00045 0 13 00000 IMA SQRD WITH POINTER TO ROUTINE TO FLAG ERROR DF 0163 00046 0 04 00000 STA PTB AND SET LOW POINTER TO FIRST WORD OF SQR 0164 * 0165 * NOW SET HIGH POINTER, SIT 0166 * 0167 00047 0 02 00211 IN01 LDA C16K LOAD HIGHEST POSSIBLE ADDRESS (16K) 0168 00050 0 04 00000 IN10 STA SIT STORE ADDRESS IN HIGH POINTER 0169 00051 -0 13 00000 IMA* SIT CHECK IF ADDRESS EXISTS BY STORING,