INHALT

* NAME: LDR-APM DOC. 70180005000 REV. E PAGE 54

2552 02572 000201 IAB GET BASE SECTOR LOCATION. 2553 02573 140600 SCB CHECK FOR DDP-416 CPU. 2554 02574 101001 SSC C-BIT NEVER OFF IN DDP-416. 2555 02575 000000 HLT HA - ITS A 416 SET THE BASE 2556 02576 101040 SNZ * 2557 02577 0 01 02602 JMP *+3 2558 02600 0 10 02667 JST MRG2 2559 02601 0 10 02015 JST SETB 2560 02602 0 01 00323 JMP BLOK 2561 * 2562 * 2563 * 2564 * 2565 * RSTR HERE TO SET PROGRAM BREAK. 2566 * 2567 02603 14 0004 RSTR OCP '0004 SET THE ASR TO INPUT MODE 2568 02604 101040 SNZ CHECK FOR DEFAULT REQUEST. 2569 02605 0 02 03670 LDA PBRK YES. GET PRESENT VALUE. 2570 02606 0 07 02721 SUB ='177777 THE PROGRAM BREAK MUST BE EVEN 2571 02607 0 03 02703 ANA ='077776 WIPE IT DOWN TO SIZE. 2572 02610 0 04 03777 STA WORD SET THE LOCATION COUNTER. 2573 02611 0 10 03060 JST CLEN PERFORM INTER-PROGRAM CLEAN-UP. 2574 02612 0 01 03443 JMP APM 2575 * 2576 * 2577 * 2578 02613 0 000000 FITS DAC ** HERE TO TEST FOR CORE OVERFLOW. 2579 02614 0 02 03664 LDA FLAG GET THE 'BLOCK-DATA' FLAG. 2580 02615 101400 SMI IF ON, WE ARE LOADING COMMON. 2581 02616 0 01 02635 JMP FITK SO DO NOT UPDATE 'HIGH'. 2582 02617 0 02 03777 LDA WORD CURRENT LOCATION COUNTER 2583 02620 100400 SPL SKIP IF WORD IS A CREDIBLE VALUE 2584 02621 -0 01 02613 JMP* FITS LEAVE HASTILY TO AVOID COMPLICATIONS 2585 02622 0 07 03333 SUB LOW SUBTRACT LOWES LOCATION LOADED INTO 2586 02623 101400 SMI IS NEW LOCATION LOWER THAN CURRENT LOW 2587 02624 0 01 02627 JMP *+3 NO 2588 02625 0 02 03777 LDA WORD YES, SET NEW LOW LOCATION 2589 02626 0 04 03333 STA LOW DO IT . . . 2590 02627 0 02 03777 LDA WORD NOT BLOCK DATA, CHECK THE 2591 02630 0 07 03345 SUB HIGH LOCATION COUNTER AGAINST THE 2592 02631 100400 SPL HIGHEST LOCATION LOADED SO FAR. 2593 02632 0 01 02635 JMP FITK NOT EXCEEDED. 2594 02633 0 02 03777 LDA WORD EXCEEDED. 2595 02634 0 04 03345 STA HIGH UPDATE HIGH COUNTER. 2596 02635 0 02 03345 FITK LDA HIGH CHECK FOR OVERLAP OF 2597 02636 0 07 03357 SUB COMN PROGRAM AND COMMON. 2598 02637 101400 SMI SKIP IF OK. 2599 02640 0 10 02652 JST MO OVERLAP. GO GRIPE. 2600 02641 0 02 03777 LDA WORD COMMON OK. CHECK FOR OVERLAP 2601 02642 0 07 03352 SUB SYM OF PROGRAM AND LOADER.