GR

* 0078-001-H102 (G$DR) DRAWING NO. 41285543-001-03 PAGE 8

0351 00026 G$FF BSS 0 FIRST FREE LOCATION 0352 * 0353 * 0354 * DETERMINE CORE SIZE (THIS CODE IS EXECUTED ONLY ONCE) 0355 * 0356 00026 0 02 00055 DCS LDA IPZE INDEXED PZE INSTRUCTION 0357 00027 0414 76 LGL 2 TAG BIT TO C 0358 00030 0 02 00052 LDA DXA DXA INSTRUCTION 0359 00031 100001 SRC CONVERT TO EXA INSTRUCTION.... 0360 00032 0 06 00035 ADD TWO ..IF PROGRAM DESECTORED IN EXD MODE 0361 00033 0 04 00001 STA MODE SET ADDRESSING MODE INSTRUCTION 0362 00034 0 04 00035 STA *+1 0363 00035 000002 TWO DEC 2 OVERWRITTEN BY MODE INSTRUCTION 0364 * 0365 * CALCULATE CORE SIZE 0366 00036 140040 CRA 0367 00037 0 06 00053 CLCS ADD 4K MEMORY MODULE SIZE 0368 00040 0 04 00025 STA CS UPDATE CORE SIZE 0369 00041 -0 13 00025 IMA* CS WRITE NON-ZERO WORD 0370 00042 0 35 00054 LDX ZERO CLEAR INDEX IN CASE OF WRAP-AROUND WRITE 0371 00043 -0 13 00025 IMA* CS ATTEMPT TO RETRIEVE NON-ZERO WORD 0372 00044 100040 SZE WORD LOST - CORE SIZE FOUND 0373 00045 0 01 00037 JMP CLCS WORD PRESERVED - TRY LARGER CORE SIZE 0374 * 0375 * CORE SIZE FOUND 0376 00046 0 02 00024 LDA AFFL ADDRESS OF FIRST FREE LOCATION 0377 00047 0 07 00025 SUB CS CORE SIZE 0378 00050 0 04 00025 STA MNFL MINUS NUMBER OF FREE LOCATIONS 0379 00051 0 01 00001 JMP MODE GO LOAD REGISTERS AND EXIT 0380 * 0381 * 0382 * CONSTANTS AND VARIABLES 2 (MAY BE OVERWRITTEN) 0383 * 0384 00052 000011 DXA DXA DISABLE EXTENDED ADDRESSING 0385 00053 010000 4K OCT 10000 MEMORY MODULE SIZE 0386 00054 000000 ZERO OCT 0 ZERO 0387 * 0388 000025 CS EQU MNFL CORE SIZE 0389 000025 BASE EQU MNFL SPACE TO DESECTOR IPZE INSTRUCTION BELOW 0390 * 0391 * SET BASE SECTOR 0392 SETB BASE 0393 00055 1 00 01000 IPZE PZE '1000,1 INDEXED PZE INSTRUCTION 0394 * 0395 * 0396 END END OF G$DR O4.MAR.71 G.STUARTSON LITTLE 4K 000053 AFFL 000024 BASE 000025 CLCS 000037 CS 000025 DCS 000026 DXA 000052 ERNA 000021 G$DR 000000 G$FF 000026 G$NA 000023 IPZE 000055