INHALT

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

2502 02522 -0 04 03673 STA* T 2503 02523 0 02 03665 LDA KEY GET THE KEY FOR THIS NAME. 2504 02524 0 05 02704 ERA ='100006 CHECK FOR COMMON NAME. 2505 02525 100040 SZE SKIP IF SO. 2506 02526 -0 01 02446 JMP* DEFS NO. EXIT TO CALLER. 2507 02527 0 02 03677 LDA VALU YES. GET THIS ASSIGNMENT. 2508 02530 0 04 03357 STA COMN UPDATE THE COMMON COUNTER. 2509 02531 0 10 02613 JST FITS MAKE SURE CORE LOAD STILL FITS. 2510 02532 -0 01 02446 JMP* DEFS EXIT TO CALLER. 2511 * 2512 * 2513 * 2514 * ******************************************************************* 2515 * * MISCELLANEOUS ROUTINES * 2516 * ******************************************************************* 2517 * 2518 * 2519 * 2520 * STRT HERE TO COMPLETELY INITIALIZE LOADER. 2521 02533 0 04 00042 STRT STA BOT CLEAR OUT ADVANCE ENTRY 2522 02534 0 04 03671 STA SKIF SET TO LOAD NEXT SUBPROGRAM 2523 02535 0 04 03667 STA MODE SET MODE OF LOADING (ABS) 2524 02536 0 04 03345 STA HIGH SET HIGHEST LOC. LOADED 2525 02537 0 04 02674 STA BASE SET TO EQUAL ZERO 2526 02540 0 04 02652 STA MO 2527 02541 0 04 01662 STA R24S RESET THE EVEN-0DD SWITCH 2528 02542 0 02 02715 LDA ='77777 2529 02543 0 04 03333 STA LOW 2530 02544 0 02 02721 LDA =-1 SET LOC. COUNTER TO UNUSUAL VALUE 2531 02545 0 04 03777 STA WORD 2532 02546 0 02 02001 LDA DAC1 =(DAC BOT) INITIALIZE THE SYMBOL TABLE POINTER 2533 02547 0 04 03352 STA SYM TO POINT TO GERM OF SYMBOL TABLE. 2534 02550 0 04 03662 STA BACK SAVE ALSO FOR BACKUP (OLD SKIPPED). 2535 02551 0 02 03673 LDA T RECALL THE USER'S A-REGISTER. 2536 02552 101040 SNZ CLEAR REGISTER MEANS USE DEFAULT. 2537 02553 0 02 02713 LDA ='001000 DEFAULT PROGRAM BREAK. 2538 02554 0 07 02721 SUB ='177777 THE PROGRAM BREAK 2539 02555 0 03 02703 ANA ='077776 MUST BE EVEN. 2540 02556 0 04 03670 STA PBRK SET PROGRAM BREAK. 2541 02557 0 02 02000 LDA FIL7 SET THE COMMON ORIGIN. 2542 02560 0 04 03357 STA COMN 2543 02561 0 04 03663 STA BACK+1 SAVE IT ALSO FOR BACKUP. 2544 02562 0 02 02702 LDA ='101000 (NOP) RESET THE ENTRY SETTER AND THE MAP 2545 02563 0 04 03156 STA SENT+1 PRINTER. 2546 02564 0 04 03233 STA MAP 2547 02565 0 04 03664 STA FLAG ALSO THE 'BLOCK DATA' FLAG 2548 02566 0 04 00417 STA NSDS AND THE NEW DATA SWITCH. 2549 02567 14 0004 OCP 4 ENABLE ASR IN INPUT MODE 2550 02570 0 01 03443 JMP APM SELECT I/O OPTIONS AND RETURN TO (STRN) 2551 02571 140040 STRN CRA PREPARE FOR POSSIBLE HALT, IF DDP-416