GR

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

0001 * 0078-001-H102 (G$DR) DRAWING NO. 41285543-001-03 0002 * 0003 * 0004 * 0005 * COMPUTER: H316, H516 0006 * 0007 * 0008 * PROGRAM CATEGORY: INPUT-OUTPUT 0009 * 0010 * 0011 * PROGRAM TITLE: G$DR 0012 * GENERIC DUMMY ROUTINE 0013 * 0014 * 0015 * 0016 * 0017 * 0018 * 0019 * 0020 * 0021 * 0022 * 0023 * 0024 * APPROVAL DATE 0025 * 0026 * 0027 * 0028 * PROG---------------------- ------------ 0029 * 0030 * 0031 * SUPR---------------------- ------------ 0032 * 0033 * 0034 * QUAL---------------------- ------------ 0035 * 0036 * 0037 * NO. OF PAGES ------------ 0038 * 0039 * 0040 * AUTHOR 0041 * 0042 * HONEYWELL INFORMATION SYSTEMS LTD. 0043 * 0044 * 0045 * PURPOSE 0046 * 0047 * 1 TO DETERMINE THE ADDRESS AND SIZE OF THE FREE CORE AREA 0048 * AVAILABLE TO THE CALLING PROGRAM FOR WORKSPACE, AND ENABLE 0049 * EXTENDED ADDRESSING IF APPROPRIATE. 0050 *
* 0078-001-H102 (G$DR) DRAWING NO. 41285543-001-03 PAGE 2

0051 * 2 TO SATISFY ANY OUTSTANDING CALLS ON INPUT-OUTPUT LIBRARY 0052 * ROUTINES AND IGNORE OR ABORT ANY ATTEMPT TO USE THEM AT RUN 0053 * TIME. 0054 * 0055 * 0056 * RESTRICTIONS 0057 * 0058 * THIS PROGRAM WILL WORK ON ANY H316 OR H516 COMPUTER, WITH UP TO 0059 * 32 768 WORDS OF CORE STORE. IT IS WRITTEN IN UNIVERSAL MODE, 0060 * I.E. IT WILL WORK EQUALLY WELL WHETHER EXTENDED ADDRESSING IS 0061 * ENABLED OR NOT (SEE 'USE' BELOW). 0062 * 0063 * IF G$DR IS REQUIRED FOR PURPOSE 1 ABOVE, IT MUST BE LOADED AFTER 0064 * ALL OTHER SUBROUTINES. IN THIS CASE, CARE MUST BE TAKEN THAT 0065 * NEITHER WORD '42 NOR WORD '43 OF G$DR LIES IN THE FIRST LOCATION 0066 * OF A 4K MEMORY MODULE (I.E. IN LOCATION '10000, '20000, ETC.), 0067 * AS THIS WILL CAUSE A HALT ON THE FIRST G$DR CALL. ALSO FOR THIS 0068 * PURPOSE G$DR MUST NOT LIE IN SECTOR O OR SECTOR 1. 0069 * 0070 * IT SHOULD ALSO BE NOTED THAT G$DR ALTERS THE CURRENT BASE SECTOR. 0071 * 0072 * 0073 * STORAGE 0074 * 0075 * 56 (OCTAL) 0076 * 46 (DECIMAL) 0077 * 0078 * ALL BUT THE FIRST '26 (22) LOCATIONS ARE FREED WHEN G$DR IS FIRST 0079 * CALLED. IF THE PROGRAM IS NOT REQUIRED FOR PURPOSE 1 ABOVE, THE 0080 * LAST '30 (24) LOCATIONS MAY BE OVERWRITTEN AT LOAD-TIME. 0081 * 0082 * 0083 * TIMING 0084 * 0085 * G$DR: 11 CORE STORE CYCLES (EXCEPT THE FIRST TIME IT IS CALLED) 0086 * TABS ENTRIES: 16 CYCLES 0087 * SKP ENTRIES: 8 CYCLES 0088 * NOP ENTRIES: 5 CYCLES 0089 * ERNA ENTRIES: NOT APPLICABLE 0090 * INCLUDING THE CALL, ASSUMING NO DESECTORING TO BE NECESSARY. 0091 * 0092 * 0093 * USE 0094 * 0095 * LOADING PROCEDURE 0096 * 0097 * EXACT DETAILS CANNOT BE GIVEN HERE, BUT THE FOLLOWING 0098 * OBJECT MODULES SHOULD BE LOADED, IN ORDER, USING LDR-APM OR A 0099 * SIMILAR LOADER FOR A TYPICAL CASE: 0100 *
* 0078-001-H102 (G$DR) DRAWING NO. 41285543-001-03 PAGE 3

0101 * 1 MAIN PROGRAM (USUALLY STARTING AT '1000) 0102 * 0103 * 2 APPROPRIATE INPUT-OUTPUT SUPERVISOR 0104 * 0105 * 3 AS MANY INDIVIDUAL INPUT-OUTPUT LIBRARY ROUTINES AS 0106 * REQUIRED, DEPENDING ON THE HARDWARE OPTIONS AVAILABLE 0107 * 0108 * 4 G$DR 0109 * 0110 * G$DR MUST BE LOADED LAST AS IT ASSUMES THAT THE REST OF THE 0111 * CORE STORE (STARTING AT LOCATION G$FF (FIRST FREE LOCATION) 0112 * CAN BE USED BY THE CALLING PROGRAM AS WORKSPACE AT RUN TIME. 0113 * 0114 * CARE SHOULD BE TAKEN TO SELECT THE CORRECT DESECTORING MODE. 0115 * IF THE PROGRAM IS TO WORK ON COMPUTERS HAVING NOT MORE THAN 0116 * 16 384 WORDS OF CORE STORE, OR IF ANY ONE OR MORE OF THE 0117 * CONSTITUENT MODULES IS RESTRICTED TO 16K WORKING BY, FOR 0118 * EXAMPLE, SIMULTANEOUS USE OF INDEXING AND INDIRECT, THEN ALL 0119 * LOADING SHOULD BE CARRIED OUT IN LXD MODE, E.G. BY ENTERING 0120 * LDR-APM AT 'XX000. CONVERSELY, IF THE PROGRAM WILL ONLY BE 0121 * USED ON COMPUTERS WITH MORE THAN 16 384 WORDS OF CORE STORE, 0122 * AND ALL MODULES ARE WRITTEN IN UNIVERSAL MODE, THE LOADING 0123 * MAY BE CARRIED OUT IN EXD MODE, E.G. BY ENTERING LDR-APM AT 0124 * 'XX006. 0125 * 0126 * IF DESECTORING IN THE CURRENT BASE SECTOR IS TO BE AVOIDED, 0127 * DO NOT LOAD G$DR ACROSS A SECTOR BOUNDARY. 0128 * 0129 * 0130 * GENERIC DUMMY ROUTINE 0131 * 0132 * THIS ENTRY MAY BE USED BY AN INPUT-OUTPUT SUPERVISOR PROGRAM 0133 * TO DETERMINE THE ADDRESS AND SIZE OF THE FREE CORE AREA 0134 * AVAILABLE FOR USE AS WORKSPACE SUCH AS A COMPILER SYMBOL 0135 * TABLE. THE CALLING SEQUENCE IS: 0136 * 0137 * CALL G$DR GENERIC DUMMY ROUTINE 0138 * NORMAL RETURN WITH THE A- 0139 * REGISTER CONTAINING THE 0140 * ADDRESS OF THE FIRST FREE 0141 * LOCATION, AND THE X-REGISTER 0142 * CONTAINING MINUS THE NUMBER OF 0143 * FREE LOCATIONS UP TO THE TOP 0144 * OF MEMORY ACTUALLY AVAILABLE 0145 * IN THE OBJECT COMPUTER. 0146 * EXTENDED ADDRESSING WILL HAVE 0147 * BEEN ENABLED OR DISABLED. 0148 * 0149 * 0150 * DEFAULT INPUT-OUTPUT ROUTINES
* 0078-001-H102 (G$DR) DRAWING NO. 41285543-001-03 PAGE 4

0151 * 0152 * THE FOUR ROUTINES TABS, SKP, NOP AND ERNA SATISFY ANY 0153 * OUTSTANDING CALLS FOR ANY OF THE 85 INPUT/OUTPUT LIBRARY 0154 * ROUTINES LISTED IN THE 'SUBR' SECTION AT THE BEGINNING OF 0155 * THE CODING BELOW. THE ROUTINES TABS, SKP AND NOP CAUSE THE 0156 * RELEVANT CALLS TO BE IGNORED AT RUN TIME, TOGETHER WITH ANY 0157 * ASSOCIATED PARAMETERS. HOWEVER ALL CALLS ASSOCIATED WITH 0158 * THE ROUTINE ERNA INDICATE AN ERROR CONDITION (SEE NEXT 0159 * PARAGRAPH). 0160 * 0161 * 0162 * ERRORS 0163 * 0164 * ANY CALLS ON INPUT-OUTPUT ROUTINES ASSOCIATED WITH THE DEFAULT 0165 * ROUTINE ERNA CAUSE THE EXTERNAL ROUTINE G$NA (DEVICE-NOT-AVAILABLE 0166 * ERROR ROUTINE) TO BE CALLED. NO RETURN IS POSSIBLE AFTER THIS 0167 * CALL. G$NA MUST BE PROVIDED AS AN ENTRY (SUBR) TO THE INPUT- 0168 * OUTPUT SUPERVISOR, WHICH MAY, FOR EXAMPLE, PRINT AN ERROR MESSAGE. 0169 * 0170 * 0171 * METHOD 0172 * 0173 * THE FIRST TIME G$DR (GENERIC DUMMY ROUTINE) IS CALLED, THE 0174 * APPROPRIATE ADDRESSING MODE - DXA OR EXA - IS DETERMINED, 0175 * ACCORDING TO THE MODE IN WHICH THE PROGRAM WAS DESECTORED ON 0176 * LOADING. THE ACTUAL CORE SIZE AVAILABLE IN THIS ADDRESSING 0177 * MODE IS DETERMINED, THE RESULTS ARE STORED FOR FUTURE 0178 * REFERENCE AND THE LOCATIONS CONTAINING THE ALGORITHM ARE 0179 * RELEASED TO FORM PART OF THE FREE CORE AREA. 0180 * 0181 * THE METHOD USED IS BASED ON THE FACT THAT WHEN ONE ATTEMPTS TO 0182 * WRITE A WORD INTO A LOCATION ONE ABOVE THE MAXIMUM CORE SIZE, 0183 * THE WORD IS EITHER LOST OR WRITTEN INTO LOCATION ZERO, 0184 * DEPENDING UPON THE ACTUAL CORE SIZE, WHEN ONE ATTEMPTS TO READ 0185 * THIS WORD BACK IN THE FORMER CASE A ZERO IS READ AND IN THE 0186 * LATTER CASE THE CONTENT OF LOCATION ZERO (THE X-REGISTER) IS 0187 * READ - THIS OF COURSE CAN BE CLEARED BEFOREHAND. IF THE PROGRAM 0188 * IS RUNNING IN DXA MODE IN A MACHINE WITH A CORE SIZE GREATER THAN 0189 * 16K, THE CORE SIZE WILL STILL APPEAR TO BE 16K - WHICH IS CORRECT 0190 * FOR THE MODE OF USE 0191 * 0192 * G$DR CONTAINS ONE INSTRUCTION WHICH MUST BE DESECTORED, AND TO 0193 * ENABLE THE USER TO AVOID MAKING USE OF THE NORMAL BASE SECTOR 0194 * FOR CERTAIN SPECIALISED APPLICATIONS, THE BASE SECTOR IS RESET 0195 * BEFORE THIS INSTRUCTION. 0196 * 0197 * 0198 ************************************************************************ 0199 * 0200 *
* 0078-001-H102 (G$DR) DRAWING NO. 41285543-001-03 PAGE 5

0201 SUBR G$DR GENERIC DUMMY ROUTINE 0202 * 0203 SUBR I$AI,TABS INITIALISE SOURCE ASR 0204 SUBR I$AIE,TABS INITIALISE SOURCE ASR 0205 SUBR I$AA,ERNA ASR INPUT SOURCE RECORD 0206 SUBR I$AAE,ERNA ASR INPUT SOURCE RECORD 0207 SUBR I$AB,ERNA ASR INPUT OBJECT LINK 0208 SUBR I$AO,ERNA ASR INPUT OBJECT 0209 * 0210 SUBR O$AI,TABS INITIALISE SOURCE ASR 0211 SUBR O$SAIE,TABS INITIALISE SOURCE ASR 0212 SUBR O$AA,ERNA ASR OUTPUT SOURCE RECORD 0213 SUBR O$AAE,ERNA ASR OUTPUT SOURCE RECORD 0214 SUBR O$AS,NOP ASR OUTPUT END OF TEXT 0215 SUBR O$SASE,NOP ASR OUTPUT SOURCE END OF TEXT 0216 SUBR O$ASS,NOP ASR OUTPUT SOURCE END OF TEXT 0217 SUBR O$AC,NOP ASR OUTPUT CARRIAGE RETURN 0218 SUBR O$AF,NOP ASR OUTPUT LINE FEED 0219 SUBR O$ALDR,NOP ASR PUNCH LEADER 0220 SUBR O$SAB,ERNA ASR OUTPUT OBJECT LINK 0221 SUBR O$AO,ERNA ASR OUTPUT OBJECT 0222 SUBR O$ASO,NOP ASR OUTPUT OBJECT END OF TEXT 0223 SUBR O$AH,SKP ASR HEADING ROUTINE 0224 SUBR O$AL,ERNA ASR LISTING ROUTINE 0225 SUBR O$HH,SKP ASR LIST HEADING 0226 SUBR O$LL,ERNA ASR LIST 0227 SUBR O$AE,NOP ASR LIST EJECT PAGE 0228 SUBR O$AP,ERNA ASR PRINT ROUTINE 0229 * 0230 SUBR I$PI,TABS INITIALISE SOURCE HSR 0231 SUBR I$PIE,TABS INITIALISE SOURCE HSR 0232 SUBR I$PA,ERNA HSR INPUT SOURCE RECORD 0233 SUBR I$SPAE,ERNA HSR INPUT SOURCE RECORD 0234 SUBR I$PB,ERNA HSR INPUT OBJECT LINK 0235 SUBR I$PO,ERNA HSR INPUT OBJECT 0236 * 0237 SUBR O$PI,TABS INITIALISE SOURCE HSP 0238 SUBR O$PIE,TABS INITIALISE SOURCE HSP 0239 SUBR O$PAS,ERNA HSP OUTPUT SOURCE RECORD 0240 SUBR O$PAE,ERNA HSP OUTPUT SOURCE RECORD 0241 SUBR O$PS,NOP HSP OUTPUT END OF TEXT 0242 SUBR O$PSE,NOP HSP OUTPUT SOURCE END OF TEXT 0243 SUBR O$PSS,NOP HSP OUTPUT SOURCE END OF TEXT 0244 SUBR O$PC,NOP HSP OUTPUT CARRIAGE RETURN 0245 SUBR O$PF,NOP HSP OUTPUT LINE FEED 0246 SUBR O$PLDR,NOP HSP PUNCH LEADER 0247 SUBR O$POFF,NOP HSP OFF 0248 SUBR O$PB,ERNA HSP OUTPUT OBJECT LINK 0249 SUBR O$PO,ERNA HSP OUTPUT OBJECT 0250 SUBR O$PSO,NOP HSP OUTPUT OBJECT END OF TEXT
* 0078-001-H102 (G$DR) DRAWING NO. 41285543-001-03 PAGE 6

0251 SUBR O$PH,SKP HSP LIST HEADING 0252 SUBR O$PL,ERNA HSP LIST 0253 SUBR O$PE,NOP HSP LIST EJECT PAGE 0254 SUBR O$PP,ERNA HSP PRINT ROUTINE 0255 * 0256 SUBR I$CA,ERNA CARD READER INPUT SOURCE RECORD 0257 SUBR I$CABL,NOP CARD READER SOURCE INPUT BUFFER LENGTH 0258 SUBR I$CO,NOP CARD READER OFFSET STACK CARD 0259 SUBR I$CB,ERNA CARD READER INPUT OBJECT LINK 0260 SUBR I$CBO,ERNA CARD READER INPUT OBJECT 0261 * 0262 SUBR O$CA,ERNA CARD READER OUTPUT SOURCE RECORD 0263 SUBR O$CABL,NOP CARD PUNCH SOURCE OUTPUT BUFFER LENGTH 0264 SUBR O$CO,NOP CARD PUNCH OFFSET STACK CARD 0265 SUBR O$CS,NOP CARD PUNCH OUTPUT END OF TEXT 0266 SUBR O$CSS,NOP CARD PUNCH OUTPUT SOURCE END OF TEXT 0267 SUBR O$CB,ERNA CARD PUNCH OUTPUT OBJECT LINK 0268 SUBR O$CBO,ERNA CARD PUNCH OUTPUT OBJECT 0269 * 0270 SUBR O$LH,SKP LINE PRINTER LIST HEADING 0271 SUBR O$LA,ERNA LINE PRINTER LIST LINE 0272 SUBR O$LE,NOP LINE PRINTER LIST EJECT PAGE 0273 SUBR O$LF,NOP LINE PRINTER ADVANCE ONE LINE 0274 SUBR O$LO,ERNA LINE PRINTER PRINT ONE LINE 0275 SUBR O$LP,NOP LINE PRINTER ADVANCE TO TOP OF FORM 0276 * 0277 SUBR I$MA,ERNA READ MAGNETIC TAPE BCD 0278 SUBR I$MB,ERNA READ MAGNETIC TAPE BINARY, 2 CH/WORD 0279 SUBR I$MC,ERNA READ MAGNETIC TAPE BINARY, 3 CH/WORD 0280 * 0281 SUBR O$MA,ERNA WRITE MAGNETIC TAPE BCD 0282 SUBR O$MB,ERNA WRITE MAGNETIC TAPE BINARY, 2 CH/WORD 0283 SUBR O$MC,ERNA WRITE MAGNETIC TAPE BINARY, 3 CH/WORD 0284 SUBR O$ME,SKP MAGNETIC TAPE WRITE FILE MARK 0285 * 0286 SUBR M$UNIT,NOP MAGNETIC TAPE UNIT NUMBER ROUTINE 0287 SUBR C$MR,SKP MAGNETIC TAPE REWIND 0288 SUBR C$FR,ERNA MAGNETIC TAPE FORWARD ONE RECORD 0289 SUBR C$BR,ERNA MAGNETIC TAPE BACKSPACE ONE RECORD 0290 SUBR C$FF,ERNA MAGNETIC TAPE FORWARD ONE FILE MARK 0291 SUBR C$BF,ERNA MAGNETIC TAPE BACKSPACE ONE FILE MARK 0292 * 0293 SUBR C$6TO8,ERNA CONVERT FROM SIX-BIT CODE TO ISO CODE 0294 SUBR C$8TO6,ERNA CONVERT FROM ISO CODE TO SIX-BIT CODE 0295 SUBR C$IS,ERNA CONVERT FROM INVISIBLE TO SIX-BIT CODE 0296 SUBR C$SI,ERNA CONVERT FROM SIX-BIT CODE TO INVISIBLE CODE 0297 SUBR C$IN,TABS INITIALISE SOURCE 0298 * 0299 SUBR G$FF FIRST FREE LOCATION 0300 *
* 0078-001-H102 (G$DR) DRAWING NO. 41285543-001-03 PAGE 7

0301 * 0302 CF5 H316 OR DDP=-516 0303 REL RELOCATABLE 0304 * 0305 * 0306 * GENERIC DUMMY ROUTINE 0307 * 0308 00000 0 000000 G$DR DAC ** GENERIC DUMMY ROUTINE 0309 * 0310 * THE NEXT INSTRUCTION IS CHANGED, ON FIRST ENTRY, TO EITHER DXA OR EXA 0311 00001 0 01 00026 MODE JMP DCS DETERMINE CORE SIZE 0312 00002 0 02 00024 LDA AFFL ADDRESS OF FIRST FREE LOCATION 0313 00003 0 35 00025 LDX MNFL MINUS NUMBER OF FREE LOCATIONS 0314 00004 -0 01 00000 JMP* G$DR EXIT 0315 * 0316 * 0317 * DEFAULT INPUT-OUTPUT ROUTINES 0318 * 0319 * IGNORE BUFFER SIZE, NUMBER OF TABS, AND TAB TABLE 0320 00005 0 000000 TABS DAC ** IGNORE BUFFER SIZE AND TABS 0321 00006 0 12 00005 IRS TABS TALLY RETURN ADDRESS (IGNORE BUFFER SIZE) 0322 00007 -0 02 00005 LDA* TABS NUMBER OF TABS (N) 0323 00010 0 06 00005 ADD TABS ADD (N+1) TO RETURN ADDRESS 0324 00011 141206 AOA 0325 00012 0 04 00005 STA TABS RETURN ADDRESS 0326 00013 -0 01 00005 JMP* TABS EXIT 0327 * 0328 * IGNORE HEADING ADDRESS (OR LOGICAL UNIT NUMBER) 0329 00014 0 000000 SKP DAC ** IGNORE HEADING ADDRESS 0330 00015 0 12 00014 IRS SKP TALLY RETURN ADDRESS (IGNORE HEADING ADDR) 0331 00016 -0 01 00014 JMP* SKP EXIT 0332 * 0333 * IGNORE CALL WITHOUT PARAMETERS 0334 00017 0 000000 NOP DAC ** IGNORE CALL WITHOUT PARAMETERS 0335 00020 -0 01 00017 JMP* NOP EXIT 0336 * 0337 * ERROR: DEVICE NOT AVAILABLE 0338 00021 0 000000 ERNA DAC ** ERROR: DEVICE NOT AVAILABLE 0339 00022 -0 10 00023 JST* G$NA DEVICE NOT AVAILABLE ERROR ROUTINE 0340 * 0341 * 0342 * CONSTANTS AND VARIABLES 1 0343 * 0344 00023 0 000000 G$NA XAC G$NA DEVICE NOT AVAILABLE ERROR ROUTINE 0345 00024 0 000026 AFFL DAC G$FF ADDRESS OF FIRST FREE LOCATION 0346 00025 MNFL BSS 1 MINUS NUMBER OF FREE LOCATIONS 0347 * 0348 * 0349 * FIRST FREE LOCATION (FROM HERE UPWARDS MAY BE OVERWRITTEN) 0350 *
* 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
* 0078-001-H102 (G$DR) DRAWING NO. 41285543-001-03 PAGE 9

MNFL 000025 MODE 000001 NOP 000017 SKP 000014 TABS 000005 TWO 000035 ZERO 000054 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71