GR

* 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 *