Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:o26.001
Deck O26 Part 001
26 Modifications
Listing Sections
- Deck O26 Start
- Deck O26 Part 1 (Line 1456)
- Deck O26 Part 2 (Line 3152)
- Deck O26 Part 3 (Line 5051)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S00404 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01456 M01S00404.241l630 +++| LDD HN SUBSTITUTE 100B FOR COLON 01457 M00S00936.o26 +++| KBC0 STM KBSA TURN OFF SKIP MODE 01458 M00S00937.o26 +++| KBC1 STM KBUF,KI 01459 M00S00938.o26 +++| AOD KI
| Line S00939 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01460 M01S00939.241l630 ---| ADC -KBUFL CHECK FOR END OF BUFFER
| Line S00405 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01461 M01S00405.241l630 +++| SBN 62D 01462 M01S00406.241l630 +++| NJN KBC3 IF NOT ADVANCE INTO DOUBLE DISPLAY LINE 01463 M01S00407.241l630 +++| AOD DR
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | o2613 |
Seq # *Modification Id* Act ----------------------------+ 01464 M01S00001.o2613 +++| LDN 0
| Line S00408 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01465 M01S00408.241l630 +++| KBC3 SBN KBUFL-62D 01466 M00S00940.o26 +++| PJN KBB IF BUFFER FULL 01467 M00S00941.o26 +++| LDN 0 CLEAR EXECUTE FLAG 01468 M00S00942.o26 +++| STD T5 01469 M00S00943.o26 +++| LJM INT INTERPRET KEYBOARD MESSAGE 01470 M00S00944.o26 +++| 01471 M00S00945.o26 +++|* PROCESS *BKSP*. 01472 M00S00946.o26 +++|
| Line S00947 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01473 M01S00947.241l630 ---| KBB SOD KI CLEAR PREVIOUS ENTRY 01474 M01S00948.241l630 ---| LDN 1R 01475 M01S00949.241l630 ---| STM KBUF,KI 01476 M01S00950.241l630 ---| LDD KI
| Line S00409 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01477 M01S00409.241l630 +++| KBB LDN 1R CLEAR PREVIOUS ENTRY 01478 M01S00410.241l630 +++| STM KBUF-1,KI 01479 M01S00411.241l630 +++| SOD KI 01480 M00S00951.o26 +++| SBN 2 01481 M00S00952.o26 +++| PJN KBB1 IF NOT BEFORE COLUMN 2 01482 M00S00953.o26 +++| LDN 0 CLEAR DISPLAY ALTERNATE BUFFER 01483 M00S00954.o26 +++| STM DKLA
| Line S00955 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01484 M01S00955.241l630 ---| KBB1 LDD KM 01485 M01S00956.241l630 ---| LMC ERRD 01486 M01S00957.241l630 ---| ZJN KBB2 IF REPEAT ENTRY RETURN
| Line S00412 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01487 M01S00412.241l630 +++| KBB1 SBN 61D-2 01488 M01S00413.241l630 +++| NJN KBB2 IF NOT BACKSPACE INTO SINGLE DISPLAY LINE 01489 M01S00414.241l630 +++| AOD DR 01490 M01S00415.241l630 +++| KBB2 LDD KM CHECK KEYBOARD MESSAGE 01491 M01S00416.241l630 +++| LMC ERRD 01492 M01S00417.241l630 +++| ZJN KBB3 IF REPEAT ENTRY RETURN 01493 M00S00958.o26 +++| LDN 0 01494 M00S00959.o26 +++| STD KM
| Line S00960 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01495 M01S00960.241l630 ---| KBB2 JMP KBIX RETURN
| Line S00418 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01496 M01S00418.241l630 +++| KBB3 JMP KBIX RETURN 01497 M00S00961.o26 +++| 01498 M00S00962.o26 +++| 01499 M00S00963.o26 +++|* PROCESS *.*. 01500 M00S00964.o26 +++| 01501 M00S00965.o26 +++| KBP LDD KI CHECK COLUMN 01502 M00S00966.o26 +++| SBN 1 01503 M00S00967.o26 +++| ZJN KBP1 IF COL. 2 01504 M00S00968.o26 +++| LJM KBC 01505 M00S00969.o26 +++| 01506 M00S00970.o26 +++| KBP1 STM KBSA SET SKIP FLAG 01507 M00S00971.o26 +++| LDM KBUF 01508 M00S00972.o26 +++| LMN 1RA 01509 M00S00973.o26 +++| ZJN KBP2 IF *A* 01510 M00S00974.o26 +++| LMN 1RD&1RA 01511 M00S00975.o26 +++| ZJN KBP3 IF *D* 01512 M00S00976.o26 +++| LMN 1RE&1RD 01513 M00S00977.o26 +++| ZJN KBP3 IF *E* 01514 M00S00978.o26 +++| LMN 1RL&1RE 01515 M00S00979.o26 +++| ZJN KBP2 IF *L* 01516 M00S00980.o26 +++| LMN 1RM&1RL 01517 M00S00981.o26 +++| ZJN KBP2 IF *M* 01518 M00S00982.o26 +++| LMN 1RN&1RM 01519 M00S00983.o26 +++| NJN KBP4 IF NOT *N* 01520 M00S00984.o26 +++| KBP2 LDD IF 01521 M00S00985.o26 +++| ZJN .KBIX IF NO INSERT
| Line S00419 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01522 M01S00419.241l630 +++| AOD DR 01523 M00S00986.o26 +++| LDC BUFM+2 SET CHARACTER ADDRESS 01524 M00S00987.o26 +++| STD CA 01525 M00S00988.o26 +++| LDN 0 CLEAR BUFFER 01526 M00S00989.o26 +++| STI CA 01527 M00S00990.o26 +++| RJM RDL READ NEXT LINE 01528 M00S00991.o26 +++| KBP3 LDC DBUF SET ALTERNATE LINE BUFFER 01529 M00S00992.o26 +++| STM DKLA 01530 M00S00993.o26 +++| KBP4 LDN 1R. 01531 M00S00994.o26 +++| JMP KBC1 01532 M00S00995.o26 +++|
| Line S00420 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01533 M01S00420.241l630 +++| DFIM (CON 1) 01534 M00S00996.o26 +++| KBID DATA 24 DELAY COUNT 01535 M00S00997.o26 +++| 01536 M00S00998.o26 +++| KBIE BSS 0 01537 M00S00999.o26 +++| LOC 53 01538 M00S01000.o26 +++| CON PLB 53 *LEFT BLANK* 01539 M00S01001.o26 +++| CON KBC 54 01540 M00S01002.o26 +++| CON PRT 55 *RIGHT BLANK* 01541 M00S01003.o26 +++| CON KBC 56 01542 M00S01004.o26 +++| CON KBP 57 *.* 01543 M00S01005.o26 +++| CON INT 60 *CR* 01544 M00S01006.o26 +++| CON KBB 61 *BKSP* 01545 M00S01007.o26 +++| CON KBS 62 * * 01546 M00S01008.o26 +++| LOC *O 01547 M00S01009.o26 +++| KBIEL EQU *-KBIE 01548 M00S01010.o26 +++| 01549 M00S01011.o26 +++| KBIF BSS 0 01550 M00S01012.o26 +++| CON 1LS+53 01551 M00S01013.o26 +++| CON 2R0# 60 01552 M00S01014.o26 +++| CON 2R1[ 61 01553 M00S01015.o26 +++| CON 2R2] 62 01554 M00S01016.o26 +++| CON 1L3+63 01555 M00S01017.o26 +++| CON 2R4" 64 01556 M00S01018.o26 +++| CON 1L5+65 65 01557 M00S01019.o26 +++| CON 2R6! 66 01558 M00S01020.o26 +++| CON 2R7& 67 01559 M00S01021.o26 +++| 01560 M00S01022.o26 +++| CON 2RQ' 70 01561 M00S01023.o26 +++| CON 2RW? 71 01562 M00S01024.o26 +++| CON 2RE< 72 01563 M00S01025.o26 +++| CON 2RR> 73 01564 M00S01026.o26 +++| CON 2RT; 74 01565 M00S01027.o26 +++| CON 2RY\ 75 01566 M00S01028.o26 +++| CON 2RU; 76 01567 M00S01029.o26 +++| CON 2RI; 77 01568 M00S01030.o26 +++| 01569 M00S01031.o26 +++| CON 2R=" 64 01570 M00S01032.o26 +++| CON 1L.+65 65 01571 M00S01033.o26 +++| CON 2RA& 67 01572 M00S01034.o26 +++| CON 2R(< 72 01573 M00S01035.o26 +++| CON 2R)> 73 01574 M00S01036.o26 +++| CON 2R+; 74 01575 M00S01037.o26 +++| CON 2R-\ 75 01576 M00S01038.o26 +++| CON 2R,; 77 01577 M00S01039.o26 +++| 01578 M00S01040.o26 +++| CON 6101 BKSP 01579 M00S01041.o26 +++| KBIG CON 2RZ0-1R0 00 ( 0, IF 63 CHARACTER SET) 01580 M00S01042.o26 +++| CON 0 TERMINATOR 01581 M00S01043.o26 +++| TITLE DISPLAY SUBROUTINES. 01582 M00S01044.o26 +++| CDA SPACE 4,15 01583 M00S01045.o26 +++|** CDA - CHECK DISPLAY ADDRESS.
| Line S00421 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01584 M01S00421.241l630 +++|* 01585 M01S00422.241l630 +++|* ENTRY (DA - DA+1) = CURRENT DISPLAY ADDRESS. 01586 M00S01046.o26 +++|* 01587 M00S01047.o26 +++|* EXIT (A) .LT. 0 IF BUFFER NOT EMPTY.
| Line S01048 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01588 M01S01048.241l630 ---|* CHANNEL DISCONNECTED IF EMPTY.
| Line S00423 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01589 M01S00423.241l630 +++|* = RESPONSE FROM *DLL* IF EMPTY. 01590 M00S01049.o26 +++|* 01591 M00S01050.o26 +++|* CALLS DLL. 01592 M00S01051.o26 +++| 01593 M00S01052.o26 +++| 01594 M00S01053.o26 +++| CDA SUBR ENTRY/EXIT
| Line S01054 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01595 M01S01054.241l630 ---| LDD T6 CHECK ADDRESS
| Line S00424 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01596 M01S00424.241l630 +++| LDD DA 01597 M00S01055.o26 +++| SBD IN 01598 M00S01056.o26 +++| SHN 14
| Line S01057 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01599 M01S01057.241l630 ---| ADD T7
| Line S00425 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01600 M01S00425.241l630 +++| ADD DA+1 01601 M00S01058.o26 +++| SBD IN+1 01602 M00S01059.o26 +++| MJN CDAX IF BUFFER NOT EMPTY 01603 M00S01060.o26 +++| RJM DLL DISPLAY LAST LINE
| Line S01061 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01604 M01S01061.241l630 ---| DCN CH+40 01605 M01S01062.241l630 ---| LDN 0 01606 M00S01063.o26 +++| UJN CDAX RETURN 01607 M00S01064.o26 +++| CFC SPACE 4,20 01608 M00S01065.o26 +++|** CFC - CHECK FIRST CHARACTER. 01609 M00S01066.o26 +++|* 01610 M00S01067.o26 +++|* ENTRY (KE) = FIRST CHARACTER.
| Line S01068 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01611 M01S01068.241l630 ---|* (T6 - T7) = ADDRESS OF LAST LINE + 1 OF DISPLAY.
| Line S00426 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01612 M01S00426.241l630 +++|* (DA - DA+1) = ADDRESS + 1 OF LAST LINE OF DISPLAY. 01613 M00S01069.o26 +++|* 01614 M00S01070.o26 +++|* USES T1, T2, KI, IN - IN+1, IP - IP+1, OT - OT+1. 01615 M00S01071.o26 +++|*
| Line S01072 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01616 M01S01072.241l630 ---|* CALLS HDC, SDA, SDS, SIL.
| Line S00427 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01617 M01S00427.241l630 +++|* CALLS DNL, RID, SDS, SFL, SIL. 01618 M00S01073.o26 +++| 01619 M00S01074.o26 +++| 01620 M00S01075.o26 +++| CFC SUBR ENTRY/EXIT 01621 M00S01076.o26 +++| LDD KE 01622 M00S01077.o26 +++| SBN 1R0 01623 M00S01078.o26 +++| MJN CFCX IF .LT. *0* 01624 M00S01079.o26 +++| SBN CFCAL 01625 M00S01080.o26 +++| PJN CFCX IF .GT. * * 01626 M00S01081.o26 +++| LDM CFCA-1R0,KE 01627 M00S01082.o26 +++| STD T2
| Line S00428 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01628 M01S00428.241l630 +++| AOD DR ENABLE DISPLAY REFRESH 01629 M01S00429.241l630 +++| LDN 0 01630 M00S01083.o26 +++| LJM 0,T2 01631 M00S01084.o26 +++| 01632 M00S01085.o26 +++| 01633 M00S01086.o26 +++|* *,* - FIND INSERT LINE. 01634 M00S01087.o26 +++| 01635 M00S01088.o26 +++| CFC1 LDD IF 01636 M00S01089.o26 +++| ZJN CFC4 IF NO INSERT 01637 M00S01090.o26 +++| LDD IP FIND INSERT LINE 01638 M00S01091.o26 +++| STD OT 01639 M00S01092.o26 +++| LDD IP+1 01640 M00S01093.o26 +++| STD OT+1 01641 M00S01094.o26 +++| JMP KBIX RETURN 01642 M00S01095.o26 +++| 01643 M00S01096.o26 +++| 01644 M00S01097.o26 +++|* *CR* - SET *REPEAT ENTRY.* 01645 M00S01098.o26 +++| 01646 M00S01099.o26 +++| CFC2 LDC ERRD ERROR = *REPEAT ENTRY.* 01647 M00S01100.o26 +++| STD KM 01648 M00S01101.o26 +++| JMP KBIX RETURN 01649 M00S01102.o26 +++| 01650 M00S01103.o26 +++| 01651 M00S01104.o26 +++|* *+* - INCREMENT DISPLAY BY ONE SCREEN. 01652 M00S01105.o26 +++|
| Line S01106 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01653 M01S01106.241l630 ---| CFC3 LDD T6 CHECK NEXT DISPLAY ADDRESS
| Line S00430 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01654 M01S00430.241l630 +++| CFC3 LDD DA CHECK NEXT DISPLAY ADDRESS 01655 M00S01107.o26 +++| LMD IN 01656 M00S01108.o26 +++| SHN 14
| Line S01109 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01657 M01S01109.241l630 ---| LMD T7
| Line S00431 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01658 M01S00431.241l630 +++| LMD DA+1 01659 M00S01110.o26 +++| LMD IN+1 01660 M00S01111.o26 +++| ZJN CFC4 IF *IN* REACHED RETURN
| Line S01112 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01661 M01S01112.241l630 ---| LDD T6 SET NEXT LINE ADDRESS 01662 M01S01113.241l630 ---| STD OT 01663 M01S01114.241l630 ---| LDD T7
| Line S00432 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01664 M01S00432.241l630 +++| LDD DA 01665 M01S00433.241l630 +++| STD OT 01666 M01S00434.241l630 +++| LDD DA+1 SET NEXT LINE ADDRESS 01667 M00S01115.o26 +++| STD OT+1 01668 M00S01116.o26 +++| CFC4 JMP KBIX RETURN 01669 M00S01117.o26 +++| 01670 M00S01118.o26 +++| 01671 M00S01119.o26 +++|* *-* - DISPLAY PREVIOUS 18 LINES. 01672 M00S01120.o26 +++| 01673 M00S01121.o26 +++| CFC5 LDD OT SET DISPLAY 01674 M00S01122.o26 +++| STD T2 01675 M00S01123.o26 +++| LDD OT+1 01676 M00S01124.o26 +++| STD T3 01677 M00S01125.o26 +++| LCN 18D 01678 M00S01126.o26 +++| RJM SFL SEARCH FOR LINE 01679 M00S01127.o26 +++| LDN T2 SET DISPLAY 01680 M00S01128.o26 +++| RJM SDS 01681 M00S01129.o26 +++| JMP KBIX RETURN 01682 M00S01130.o26 +++| 01683 M00S01131.o26 +++| 01684 M00S01132.o26 +++|* */* - TOGGLE HOLD FLAG. 01685 M00S01133.o26 +++| 01686 M00S01134.o26 +++| CFC6 LDD HF 01687 M00S01135.o26 +++| LMN 1 01688 M00S01136.o26 +++| STD HF 01689 M00S01137.o26 +++| JMP KBIX RETURN 01690 M00S01138.o26 +++| 01691 M00S01139.o26 +++| 01692 M00S01140.o26 +++|* *(* - ADVANCE INSERT. 01693 M00S01141.o26 +++| 01694 M00S01142.o26 +++| CFC7 LDD IF 01695 M00S01143.o26 +++| ZJN .KBIX IF NO INSERT 01696 M00S01144.o26 +++| LDN 1 ADVANCE INSERT 01697 M00S01145.o26 +++| UJN CFC10 01698 M00S01146.o26 +++| 01699 M00S01147.o26 +++| 01700 M00S01148.o26 +++|* *)* - DECREMENT INSERT. 01701 M00S01149.o26 +++| 01702 M00S01150.o26 +++| CFC8 LDD IF 01703 M00S01151.o26 +++| NJN CFC9 IF INSERT
| Line S01152 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01704 M01S01152.241l630 ---| LDD T6 SET INSERT AT LAST LINE 01705 M01S01153.241l630 ---| STD IP 01706 M01S01154.241l630 ---| LDD T7
| Line S00435 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01707 M01S00435.241l630 +++| LDD DA 01708 M01S00436.241l630 +++| STD IP 01709 M01S00437.241l630 +++| LDD DA+1 SET INSERT AT LAST LINE 01710 M00S01155.o26 +++| STD IP+1 01711 M00S01156.o26 +++| CFC9 LCN 1 DECREMENT INSERT 01712 M00S01157.o26 +++| CFC10 RJM SIL 01713 M00S01158.o26 +++| JMP KBIX RETURN 01714 M00S01159.o26 +++| 01715 M00S01160.o26 +++| 01716 M00S01161.o26 +++|* *=* - CLEAR INSERT. 01717 M00S01162.o26 +++|
| Line S01163 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01718 M01S01163.241l630 ---| CFC11 LDN 0 01719 M01S01164.241l630 ---| STD IF
| Line S00438 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01720 M01S00438.241l630 +++| CFC11 STD IF 01721 M00S01165.o26 +++| JMP KBIX RETURN 01722 M00S01166.o26 +++| 01723 M00S01167.o26 +++| 01724 M00S01168.o26 +++|* * * - SET *P.* IN BUFFER 01725 M00S01169.o26 +++| 01726 M00S01170.o26 +++| CFC12 LDN 2 01727 M00S01171.o26 +++| STD KI 01728 M00S01172.o26 +++| LDN 1RP 01729 M00S01173.o26 +++| STM KBUF 01730 M00S01174.o26 +++| LDN 1R. 01731 M00S01175.o26 +++| STM KBUF+1 01732 M00S01176.o26 +++| JMP KBIX RETURN 01733 M00S01177.o26 +++| 01734 M00S01178.o26 +++|* (*) - HOLD DISPLAY CHANNEL. 01735 M00S01179.o26 +++|
| Line S01180 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01736 M01S01180.241l630 ---| CFC13 RJM HDC HOLD DISPLAY CHANNEL
| Line S00439 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01737 M01S00439.241l630 +++| CFC13 RJM RID HOLD DISPLAY 01738 M00S01181.o26 +++| JMP KBIX RETURN 01739 M00S01182.o26 +++| 01740 M00S01183.o26 +++| 01741 M00S01184.o26 +++|* *0 - 7* - SET INSERT AT SCREEN START + 4*N LINES. 01742 M00S01185.o26 +++| 01743 M00S01186.o26 +++| CFC14 LDD OT 01744 M00S01187.o26 +++| STD IP 01745 M00S01188.o26 +++| LDD OT+1 01746 M00S01189.o26 +++| STD IP+1 01747 M00S01190.o26 +++| LDD KE 01748 M00S01191.o26 +++| SBN 1R0 01749 M00S01192.o26 +++| SHN 2 01750 M00S01193.o26 +++| RJM SIL SET INSERT LINE 01751 M00S01194.o26 +++| JMP KBIX RETURN 01752 M00S01195.o26 +++| 01753 M00S01196.o26 +++| 01754 M00S01197.o26 +++|* *8* - SET INSERT *8*. 01755 M00S01198.o26 +++|
| Line S01199 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01756 M01S01199.241l630 ---| CFC15 LDC CFCB 01757 M01S01200.241l630 ---| UJN CFC17
| Line S00440 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01758 M01S00440.241l630 +++| CFC15 LCN 2 01759 M01S00441.241l630 +++|* UJN CFC16 SET INSERT *8* 01760 M00S01201.o26 +++| 01761 M00S01202.o26 +++| 01762 M00S01203.o26 +++|* *9* - SET INSERT *9*. 01763 M00S01204.o26 +++|
| Line S01205 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01764 M01S01205.241l630 ---| CFC16 LDC CFCB+2 01765 M01S01206.241l630 ---| CFC17 STD T1
| Line S00442 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01766 M01S00442.241l630 +++| CFC16 ADC CFCB+2 01767 M01S00443.241l630 +++| STD T1 01768 M00S01207.o26 +++| LDD IF 01769 M00S01208.o26 +++| ZJN CFC18 IF NO INSERT 01770 M00S01209.o26 +++| LDD IP SET INSERT ADDRESS 01771 M00S01210.o26 +++| STI T1 01772 M00S01211.o26 +++| LDD IP+1
| Line S01212 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01773 M01S01212.241l630 ---| STM 1,T1
| Line S00444 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01774 M01S00444.241l630 +++| CFC17 STM 1,T1 01775 M00S01213.o26 +++| JMP KBIX RETURN 01776 M00S01214.o26 +++| 01777 M00S01215.o26 +++| CFC18 LDD IN SET INSERT ADDRESS 01778 M00S01216.o26 +++| STI T1 01779 M00S01217.o26 +++| LDD IN+1
| Line S01218 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01780 M01S01218.241l630 ---| STM 1,T1 01781 M01S01219.241l630 ---| JMP KBIX RETURN
| Line S00445 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01782 M01S00445.241l630 +++| UJN CFC17 RETURN 01783 M00S01220.o26 +++| 01784 M00S01221.o26 +++| 01785 M00S01222.o26 +++|* *.* - DELETE NEXT LINE. 01786 M00S01223.o26 +++| 01787 M00S01224.o26 +++| CFC19 RJM DNL DELETE NEXT LINE 01788 M00S01225.o26 +++| JMP KBIX RETURN 01789 M00S01226.o26 +++| 01790 M00S01227.o26 +++| 01791 M00S01228.o26 +++|* TABLE OF FIRST CHARACTER FORMATS. 01792 M00S01229.o26 +++| 01793 M00S01230.o26 +++| CFCA BSS 0 01794 M00S01231.o26 +++| LOC 1R0 01795 M00S01232.o26 +++| 01796 M00S01233.o26 +++| CON CFC14 0 01797 M00S01234.o26 +++| CON CFC14 1 01798 M00S01235.o26 +++| CON CFC14 2 01799 M00S01236.o26 +++| CON CFC14 3 01800 M00S01237.o26 +++| CON CFC14 4 01801 M00S01238.o26 +++| CON CFC14 5 01802 M00S01239.o26 +++| CON CFC14 6 01803 M00S01240.o26 +++| CON CFC14 7 01804 M00S01241.o26 +++| CON CFC15 8 01805 M00S01242.o26 +++| CON CFC16 9 01806 M00S01243.o26 +++| CON CFC3 + 01807 M00S01244.o26 +++| CON CFC5 - 01808 M00S01245.o26 +++| CON CFC13 * 01809 M00S01246.o26 +++| CON CFC6 01810 M00S01247.o26 +++| CON CFC7 ( 01811 M00S01248.o26 +++| CON CFC8 ) 01812 M00S01249.o26 +++| CON CFCX LEFT BLANK 01813 M00S01250.o26 +++| CON CFC11 = 01814 M00S01251.o26 +++| CON CFCX RIGHT BLANK 01815 M00S01252.o26 +++| CON CFC1 , 01816 M00S01253.o26 +++| CON CFC19 . 01817 M00S01254.o26 +++| CON CFC2 CR 01818 M00S01255.o26 +++| CON KBIX BKSP 01819 M00S01256.o26 +++| CON CFC12 SPACE 01820 M00S01257.o26 +++| 01821 M00S01258.o26 +++| LOC *O 01822 M00S01259.o26 +++| CFCAL EQU *-CFCA 01823 M00S01260.o26 +++| 01824 M00S01261.o26 +++| CFCB BSS 5 INSERT *8* AND *9* BUFFER
| Line S01262 Modification History | |
|---|---|
M01 (Removed by) | o2611 |
Seq # *Modification Id* Act ----------------------------+ 01825 M01S01262.o2611 ---| DDN SPACE 4,15 01826 M01S01263.o2611 ---|** DDN - DISPLAY DECIMAL NUMBER. 01827 M01S01264.o2611 ---|* 01828 M01S01265.o2611 ---|* ENTRY (A) = 2 DIGITS RIGHT JUSTIFIED. 01829 M01S01266.o2611 ---|*
| Line S01267 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
M02 (Removed by) | o2611 |
Seq # *Modification Id* Act ----------------------------+ 01830 M02S01267.o2611 ---|* USES T1 - T3.
| Line S00446 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | o2611 |
Seq # *Modification Id* Act ----------------------------+ 01831 M02S00446.o2611 ---|* USES T1, T3.
| Line S01268 Modification History | |
|---|---|
M01 (Removed by) | o2611 |
Seq # *Modification Id* Act ----------------------------+ 01832 M01S01268.o2611 ---| 01833 M01S01269.o2611 ---|
| Line S00447 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | o2611 |
Seq # *Modification Id* Act ----------------------------+ 01834 M02S00447.o2611 ---| DDN2 LDD T3 01835 M02S00448.o2611 ---| ZJN DDN3 IF LEADING ZERO 01836 M02S00449.o2611 ---| ADN 1R0 01837 M02S00450.o2611 ---| DDN3 OAN CH+40 01838 M02S00451.o2611 ---| LDD T1 01839 M02S00452.o2611 ---| SHN 6 01840 M02S00453.o2611 ---| ADC 2R0. 01841 M02S00454.o2611 ---| OAN CH+40 01842 M02S00455.o2611 ---|
| Line S01270 Modification History | |
|---|---|
M01 (Removed by) | o2611 |
Seq # *Modification Id* Act ----------------------------+ 01843 M01S01270.o2611 ---| DDN SUBR ENTRY/EXIT 01844 M01S01271.o2611 ---| STD T1 SAVE NUMBER 01845 M01S01272.o2611 ---| LDN 0 PRESET DIGITS 01846 M01S01273.o2611 ---| STD T3 01847 M01S01274.o2611 ---| DDN1 LDD T1 COUNT 10 01848 M01S01275.o2611 ---| SBN 10D 01849 M01S01276.o2611 ---| MJN DDN2 IF CONVERSION COMPLETE 01850 M01S01277.o2611 ---| STD T1 01851 M01S01278.o2611 ---| AOD T3 01852 M01S01279.o2611 ---| UJN DDN1
| Line S01280 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01853 M01S01280.241l630 ---| 01854 M01S01281.241l630 ---| DDN2 LDD T3 01855 M01S01282.241l630 ---| ZJN DDN3 IF LEADING ZERO 01856 M01S01283.241l630 ---| ADN 1R0 01857 M01S01284.241l630 ---| DDN3 OAN CH+40 01858 M01S01285.241l630 ---| LDD T1 01859 M01S01286.241l630 ---| SHN 6 01860 M01S01287.241l630 ---| ADC 2R0. 01861 M01S01288.241l630 ---| OAN CH+40 01862 M01S01289.241l630 ---| UJN DDNX RETURN 01863 M01S01290.241l630 ---| DIC SPACE 4,10
| Line S01291 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01864 M02S01291.241l630 ---|** DIC - DELETE INVALID CHARACTERS.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01865 M02S00006.241l630 ---|** DIC - DELETE INCORRECT CHARACTERS.
| Line S01292 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01866 M01S01292.241l630 ---|* 01867 M01S01293.241l630 ---|* ENTRY (CM - CM+4) = WORD TO BE DISPLAYED. 01868 M01S01294.241l630 ---|* 01869 M01S01295.241l630 ---|* EXIT (CM - CM+4) = COORDINATE CHARACTERS CLEARED.
| Line S01296 Modification History | |
|---|---|
M01 (Removed by) | o267 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01870 M02S01296.241l630 ---|* 01871 M02S01297.241l630 ---|* USES T2.
| Line S01298 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01872 M01S01298.241l630 ---| 01873 M01S01299.241l630 ---| 01874 M01S01300.241l630 ---| DIC SUBR ENTRY/EXIT
| Line S01301 Modification History | |
|---|---|
M01 (Removed by) | o267 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01875 M02S01301.241l630 ---| LDN 4 SET BYTE COUNT 01876 M02S01302.241l630 ---| STD T2 01877 M02S01303.241l630 ---| DIC1 LDM CM,T2 01878 M02S01304.241l630 ---| ADC -6000 01879 M02S01305.241l630 ---| MJN DIC2 IF BYTE CAN BE DISPLAYED 01880 M02S01306.241l630 ---| LPN 77 REMOVE COORDINATE CHARACTER 01881 M02S01307.241l630 ---| STM CM,T2 01882 M02S01308.241l630 ---| DIC2 SOD T2 DECREMENT BYTE COUNT 01883 M02S01309.241l630 ---| PJN DIC1 IF BYTES LEFT TO BE DISPLAYED
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | o267 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01884 M02S00003.241l630 ---| LDD CM GET BYTE 0 01885 M02S00004.241l630 ---| SBD XC 01886 M02S00005.241l630 ---| MJN DIC1 IF BYTE CAN BE DISPLAYED 01887 M02S00006.241l630 ---| LPN 77 REMOVE INVALID CHARACTER 01888 M02S00007.241l630 ---| STD CM 01889 M02S00008.241l630 ---| DIC1 LDD CM+1 GET BYTE 1 01890 M02S00009.241l630 ---| SBD XC 01891 M02S00010.241l630 ---| MJN DIC2 IF BYTE CAN BE DISPLAYED 01892 M02S00011.241l630 ---| LPN 77 REMOVE INVALID CHARACTER 01893 M02S00012.241l630 ---| STD CM+1 01894 M02S00013.241l630 ---| DIC2 LDD CM+2 GET BYTE 2 01895 M02S00014.241l630 ---| SBD XC 01896 M02S00015.241l630 ---| MJN DIC3 IF BYTE CAN BE DISPLAYED 01897 M02S00016.241l630 ---| LPN 77 REMOVE INVALID CHARACTER 01898 M02S00017.241l630 ---| STD CM+2 01899 M02S00018.241l630 ---| DIC3 LDD CM+3 GET BYTE 3 01900 M02S00019.241l630 ---| SBD XC 01901 M02S00020.241l630 ---| MJN DIC4 IF BYTE CAN BE DISPLAYED 01902 M02S00021.241l630 ---| LPN 77 REMOVE INVALID CHARACTER 01903 M02S00022.241l630 ---| STD CM+3 01904 M02S00023.241l630 ---| DIC4 LDD CM+4 GET BYTE 4 01905 M02S00024.241l630 ---| SBD XC 01906 M02S00025.241l630 ---| MJN DICX IF BYTE CAN BE DISPLAYED 01907 M02S00026.241l630 ---| LPN 77 REMOVE INVALID CHARACTER 01908 M02S00027.241l630 ---| NJN DIC5 IF NOT ONLY ZEROES REMAINING 01909 M02S00028.241l630 ---| LDN 1R LAST BYTE MAY NOT BE ZERO 01910 M02S00029.241l630 ---| DIC5 STD CM+4 STORE LAST BYTE
| Line S01310 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01911 M01S01310.241l630 ---| UJN DICX RETURN 01912 M00S01311.o26 +++| DIL SPACE 4,20 01913 M00S01312.o26 +++|** DIL - DISPLAY INSERT LINE. 01914 M00S01313.o26 +++|*
| Line S01314 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01915 M01S01314.241l630 ---|* ENTRY (T6, T7) = DISPLAY ADDRESS.
| Line S00456 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01916 M01S00456.241l630 +++|* ENTRY (DA - DA+1) = DISPLAY ADDRESS. 01917 M00S01315.o26 +++|* 01918 M00S01316.o26 +++|* CALLS DIM, DKL.
| Line S00457 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01919 M01S00457.241l630 +++|* 01920 M01S00458.241l630 +++|* MACROS DFIM. 01921 M00S01317.o26 +++| 01922 M00S01318.o26 +++| 01923 M00S01319.o26 +++| DIL SUBR ENTRY/EXIT 01924 M00S01320.o26 +++| LDM CFCB+1
| Line S01321 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01925 M01S01321.241l630 ---| LMD T7
| Line S00459 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01926 M01S00459.241l630 +++| LMD DA+1 01927 M00S01322.o26 +++| NJN DIL1 IF NOT AT INSERT *8* 01928 M00S01323.o26 +++| LDM CFCB
| Line S01324 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01929 M01S01324.241l630 ---| LMD T6
| Line S00460 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01930 M01S00460.241l630 +++| LMD DA 01931 M00S01325.o26 +++| NJN DIL1 IF NOT AT INSERT *8* 01932 M00S01326.o26 +++| LDN 1R8 01933 M00S01327.o26 +++| RJM DIM DISPLAY INSERT MARK 01934 M00S01328.o26 +++| DIL1 LDM CFCB+3
| Line S01329 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01935 M01S01329.241l630 ---| LMD T7
| Line S00461 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01936 M01S00461.241l630 +++| LMD DA+1 01937 M00S01330.o26 +++| NJN DIL2 IF NOT AT INSERT *9* 01938 M00S01331.o26 +++| LDM CFCB+2
| Line S01332 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01939 M01S01332.241l630 ---| LMD T6
| Line S00462 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01940 M01S00462.241l630 +++| LMD DA 01941 M00S01333.o26 +++| NJN DIL2 IF NOT AT INSERT *9* 01942 M00S01334.o26 +++| LDN 1R9 01943 M00S01335.o26 +++| RJM DIM DISPLAY INSERT MARK 01944 M00S01336.o26 +++| DIL2 LDD IF 01945 M00S01337.o26 +++| ZJN DILX IF NO INSERT 01946 M00S01338.o26 +++| LDD IP+1
| Line S01339 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01947 M01S01339.241l630 ---| LMD T7
| Line S00463 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01948 M01S00463.241l630 +++| LMD DA+1 01949 M00S01340.o26 +++| NJN DILX IF NOT HERE 01950 M00S01341.o26 +++| LDD IP
| Line S01342 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01951 M01S01342.241l630 ---| LMD T6
| Line S00464 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01952 M01S00464.241l630 +++| LMD DA 01953 M00S01343.o26 +++| NJN DILX IF INSERT NOT HERE 01954 M00S01344.o26 +++| RJM DKL DISPLAY KEYBOARD LINE 01955 M00S01345.o26 +++| LJM DILX RETURN 01956 M00S01346.o26 +++| DIM SPACE 4,15 01957 M00S01347.o26 +++|** DIM - DISPLAY INSERT MARK. 01958 M00S01348.o26 +++|* 01959 M00S01349.o26 +++|* ENTRY (A) = INSERT MARK. 01960 M00S01350.o26 +++|* 01961 M00S01351.o26 +++|* USES T1, T3.
| Line S00465 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01962 M01S00465.241l630 +++|* 01963 M01S00466.241l630 +++|* MACROS DFIM. 01964 M00S01352.o26 +++| 01965 M00S01353.o26 +++|
| Line S00467 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01966 M01S00467.241l630 +++| DFIM (LCN YINC) 01967 M01S00468.241l630 +++| DIM3 LCN 2*YINC DECREMENT Y-COORDINATE 01968 M01S00469.241l630 +++| RAD YC 01969 M01S00470.241l630 +++| 01970 M00S01354.o26 +++| DIM SUBR ENTRY/EXIT 01971 M00S01355.o26 +++| STD T3
| Line S00471 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01972 M01S00471.241l630 +++| LDM DBFC CHECK BUFFER REFRESH 01973 M01S00472.241l630 +++| DFIM (ZJN DIM3) 01974 M01S00473.241l630 +++| PSN (NO-OP ON CC545) 01975 M00S01356.o26 +++| LDN 0 01976 M00S01357.o26 +++| STD T1 01977 M00S01358.o26 +++| LDD YC OUTPUT Y COORDINATE 01978 M00S01359.o26 +++| OAN CH+40
| Line S01360 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01979 M01S01360.241l630 ---| LDC 6030 OUTPUT X COORDINATE
| Line S00474 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01980 M01S00474.241l630 +++| LDC CH04 OUTPUT X-COORDINATE 01981 M00S01361.o26 +++| OAN CH+40 01982 M00S01362.o26 +++| DIM1 LDC 2R-- DISPLAY *--* 01983 M00S01363.o26 +++| OAN CH+40 01984 M00S01364.o26 +++| AOD T1 01985 M00S01365.o26 +++| LMN 14 01986 M00S01366.o26 +++| NJN DIM1 IF NOT COMPLETE LOOP 01987 M00S01367.o26 +++| LDD T3 01988 M00S01368.o26 +++| OAN CH+40 01989 M00S01369.o26 +++| LDN 1R- DISPLAY * -* 01990 M00S01370.o26 +++| OAN CH+40 01991 M00S01371.o26 +++| DIM2 LDC 2R-- DISPLAY *--* 01992 M00S01372.o26 +++| OAN CH+40 01993 M00S01373.o26 +++| AOD T1 01994 M00S01374.o26 +++| LMN 27 01995 M00S01375.o26 +++| NJN DIM2 IF NOT COMPLETE LOOP 01996 M00S01376.o26 +++| LDC 2R- DISPLAY *- * 01997 M00S01377.o26 +++| OAN CH+40
| Line S01378 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01998 M01S01378.241l630 ---| LCN 24 ADVANCE Y COORDINATE 01999 M01S01379.241l630 ---| RAD YC 02000 M01S01380.241l630 ---| UJN DIMX
| Line S00475 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02001 M01S00475.241l630 +++| UJP DIM3 DECREMENT Y-COORDINATE 02002 M00S01381.o26 +++| DKL SPACE 4,15 02003 M00S01382.o26 +++|** DKL - DISPLAY KEYBOARD LINE. 02004 M00S01383.o26 +++|* 02005 M00S01384.o26 +++|* ENTRY (YC) = Y-COORDINATE.
| Line S01385 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02006 M01S01385.241l630 ---|* 02007 M01S01386.241l630 ---|* USES T1, T2, YC. 02008 M01S01387.241l630 ---|* 02009 M01S01388.241l630 ---|* CALLS DKS.
| Line S00476 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02010 M01S00476.241l630 +++|* (XC) = *CH01*. 02011 M01S00477.241l630 +++|* (KD) = 0. 02012 M01S00478.241l630 +++|* 02013 M01S00479.241l630 +++|* EXIT (A) = NEW Y-COORDINATE. 02014 M01S00480.241l630 +++|* (KD) = 1. 02015 M01S00481.241l630 +++|* (T1) = NUMBER OF CHARACTERS DISPLAYED. 02016 M01S00482.241l630 +++|* (XC) = *CH01*. 02017 M01S00483.241l630 +++|* (YC) = NEW Y-COORDINATE. 02018 M01S00484.241l630 +++|* 02019 M01S00485.241l630 +++|* USES T2, T5, XC, YC, CM - CM+4. 02020 M01S00486.241l630 +++|* 02021 M01S00487.241l630 +++|* CALLS DKP, DKS. 02022 M01S00488.241l630 +++|* 02023 M01S00489.241l630 +++|* MACROS DFIM. 02024 M00S01389.o26 +++| 02025 M00S01390.o26 +++|
| Line S01391 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02026 M01S01391.241l630 ---| DKL SUBR ENTRY/EXIT 02027 M01S01392.241l630 ---| LDC 6010 SET X 02028 M01S01393.241l630 ---| STD XC 02029 M01S01394.241l630 ---| LDN 0 SET DISPLAY INDEX
| Line S00490 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02030 M01S00490.241l630 +++| DKL3 LDC CH01 RESET X-COORDINATE 02031 M01S00491.241l630 +++| STD XC 02032 M01S00492.241l630 +++| AOD KD SET KEYBOARD LINE DISPLAYED 02033 M01S00493.241l630 +++| DFIM (LCN YINC) 02034 M01S00494.241l630 +++| LCN 2*YINC DECREMENT Y-COORDINATE 02035 M01S00495.241l630 +++| RAD YC 02036 M01S00496.241l630 +++| 02037 M01S00497.241l630 +++| DKL SUBR ENTRY/EXIT 02038 M01S00498.241l630 +++| LDN CH02-CH01 02039 M01S00499.241l630 +++| RAD XC 02040 M01S00500.241l630 +++| LDN 2 OUTPUT COORDINATES 02041 M01S00501.241l630 +++| OAM XC,CH 02042 M01S00502.241l630 +++|* LDN 0 SET DISPLAY INDEX 02043 M00S01395.o26 +++| STD T1 02044 M00S01396.o26 +++| LDC KBUF SET BUFFER ADDRESS 02045 M00S01397.o26 +++| STD T2 02046 M00S01398.o26 +++| LDD KI 02047 M00S01399.o26 +++| RJM DKS DISPLAY KEYBOARD STRING 02048 M00S01400.o26 +++| 02049 M00S01401.o26 +++|* DISPLAY ALTERNATE BUFFER. 02050 M00S01402.o26 +++| 02051 M00S01403.o26 +++| LDC ** 02052 M00S01404.o26 +++| DKLA EQU *-1 02053 M00S01405.o26 +++| ZJN DKL1 IF NO ALTERNATE BUFFER 02054 M00S01406.o26 +++| ADD KI 02055 M00S01407.o26 +++| STD T2
| Line S00503 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02056 M01S00503.241l630 +++| STD T5 02057 M01S00504.241l630 +++| LDD MA SAVE COORDINATES 02058 M01S00505.241l630 +++| CWD XC 02059 M01S00506.241l630 +++| CRD CM 02060 M01S00507.241l630 +++| LDN 2 RESET COORDINATES 02061 M01S00508.241l630 +++| OAM XC,CH 02062 M00S01408.o26 +++| LDC ** CHECK LENGTH OF ALTERNATE LINE 02063 M00S01409.o26 +++| DKLB EQU *-1 02064 M00S01410.o26 +++| SBD KI 02065 M00S01411.o26 +++| MJN DKL1 IF ALTERNATE LINE TOO SHORT 02066 M00S01412.o26 +++| ZJN DKL1 IF ALTERNATE LINE TOO SHORT 02067 M00S01413.o26 +++| RJM DKS DISPLAY KEYBOARD STRING
| Line S01414 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02068 M01S01414.241l630 ---| DKL1 LDC 6000 RESET X 02069 M01S01415.241l630 ---| STD XC 02070 M01S01416.241l630 ---| LCN 24 DECREASE Y 02071 M01S01417.241l630 ---| RAD YC 02072 M01S01418.241l630 ---| UJN DKLX RETURN
| Line S00509 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02073 M01S00509.241l630 +++| DFIM (LDN 2) 02074 M01S00510.241l630 +++| UJN DKL1 RESET COORDINATES 02075 M01S00511.241l630 +++| 02076 M01S00512.241l630 +++| OAM CM,CH 02077 M01S00513.241l630 +++| LDD T5 RESET KEYBOARD POINTER 02078 M01S00514.241l630 +++| STD T2 02079 M01S00515.241l630 +++| RJM DKP 02080 M01S00516.241l630 +++| DKL1 LJM DKL3 ADJUST COORDINATES 02081 M00S01419.o26 +++| DKP SPACE 4,15 02082 M00S01420.o26 +++|** DKP - DISPLAY KEYBOARD POINTER.
| Line S01421 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02083 M01S01421.241l630 ---|* 02084 M01S01422.241l630 ---|* ENTRY (XC) = DISPLAY X COORDINATE. 02085 M01S01423.241l630 ---|* (YC) = DISPLAY Y COORDINATE. 02086 M00S01424.o26 +++| 02087 M00S01425.o26 +++|
| Line S01426 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02088 M01S01426.241l630 ---| DKP SUBR ENTRY/EXIT 02089 M01S01427.241l630 ---| LDD YC OUTPUT COORDINATES 02090 M01S01428.241l630 ---| SBN 12 02091 M01S01429.241l630 ---| OAN CH+40 02092 M01S01430.241l630 ---| LDD XC 02093 M01S01431.241l630 ---| OAN CH+40 02094 M01S01432.241l630 ---| LDD UC 02095 M01S01433.241l630 ---| ZJN DKP1 IF NOT UPPER CASE 02096 M01S01434.241l630 ---| LDD YC UP Y 02097 M01S01435.241l630 ---| SBN 16 02098 M01S01436.241l630 ---| OAN CH+40 02099 M01S01437.241l630 ---| DKP1 LDN 1RA CURSOR = A*I 02100 M01S01438.241l630 ---| OAN CH+40 02101 M01S01439.241l630 ---| LDD XC 02102 M01S01440.241l630 ---| OAN CH+40 02103 M01S01441.241l630 ---| LDN 1RI 02104 M01S01442.241l630 ---| OAN CH+40 02105 M01S01443.241l630 ---| UJN DKPX RETURN
| Line S00517 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02106 M01S00517.241l630 +++| DKP DSUB 02107 M00S01444.o26 +++| DKS SPACE 4,20 02108 M00S01445.o26 +++|** DKS - DISPLAY KEYBOARD STRING. 02109 M00S01446.o26 +++|* 02110 M00S01447.o26 +++|* ENTRY (A) = CHARACTER COUNT. 02111 M00S01448.o26 +++|* (T1) = DISPLAY INDEX. 02112 M00S01449.o26 +++|* (T2) = BUFFER ADDRESS. 02113 M00S01450.o26 +++|* (XC, YC) = COORDINATES OF DISPLAY. 02114 M00S01451.o26 +++|* 02115 M00S01452.o26 +++|* EXIT (XC, YC) = UPDATED. 02116 M00S01453.o26 +++|* 02117 M00S01454.o26 +++|* CALLS DKP.
| Line S00518 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02118 M01S00518.241l630 +++|* 02119 M01S00519.241l630 +++|* MACROS CFNC, DFIM. 02120 M00S01455.o26 +++| 02121 M00S01456.o26 +++|
| Line S01457 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02122 M01S01457.241l630 ---| DKS6 NJN DKS2 IF NOT END OF STRING 02123 M01S01458.241l630 ---| DKS7 RJM DKP DISPLAY KEYBOARD POINTER
| Line S00520 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02124 M01S00520.241l630 +++| DKS8 NJN DKS2 IF NOT END OF STRING 02125 M01S00521.241l630 +++| DKS9 RJM DKP DISPLAY KEYBOARD POINTER 02126 M01S00522.241l630 +++| LDD T1 02127 M01S00523.241l630 +++| LMN 61D 02128 M01S00524.241l630 +++| ZJN DKSX IF POINTER AT END OF LINE 02129 M01S00525.241l630 +++| CFNC EELF 02130 M00S01459.o26 +++| 02131 M00S01460.o26 +++| DKS SUBR ENTRY/EXIT
| Line S01461 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02132 M01S01461.241l630 ---| ZJN DKS7 IF COUNT = 0
| Line S00526 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02133 M01S00526.241l630 +++| ZJN DKS9 IF NULL STRING 02134 M00S01462.o26 +++| ADD T2 SET END OF STRING 02135 M00S01463.o26 +++| STM DKSA 02136 M00S01464.o26 +++| DKSB LDI T2 02137 M00S01465.o26 +++|* UJN DKS2 (PRESET IF 63 CHARACTER SET SYSTEM) 02138 M00S01466.o26 +++| LMN 1RF 02139 M00S01467.o26 +++| ZJN DKS1 IF *F.* 02140 M00S01468.o26 +++| LMN 1RS&1RF 02141 M00S01469.o26 +++| ZJN DKS1 IF *S.* 02142 M00S01470.o26 +++| LDC ZJNI+DKS3-DKSC-PSNI
| Line S01471 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02143 M01S01471.241l630 ---| DKS1 ADC PSNI 02144 M01S01472.241l630 ---| STM DKSC 02145 M01S01473.241l630 ---| DKS2 LDN 2 02146 M01S01474.241l630 ---| OAM XC,CH 02147 M01S01475.241l630 ---| LDI T2 CHECK CHARACTER
| Line S00527 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02148 M01S00527.241l630 +++| DKS1 ADN PSNI 02149 M01S00528.241l630 +++| STM DKSC 02150 M01S00529.241l630 +++| DKS2 LDI T2 CHECK CHARACTER 02151 M00S01476.o26 +++| LPN 77 02152 M00S01477.o26 +++| STD T0 02153 M00S01478.o26 +++| DKSC ZJN DKS3 IF ZERO CHARACTER
| Line S00530 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02154 M01S00530.241l630 +++|* PSN (63 CHARACTER SET) 02155 M00S01479.o26 +++| SBN 53 02156 M00S01480.o26 +++| ZJN DKS3 IF 53 02157 M00S01481.o26 +++| SBN 60-53
| Line S01482 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02158 M01S01482.241l630 ---| MJN DKS4 IF LEGAL CODE
| Line S00531 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02159 M01S00531.241l630 +++| MJN DKS5 IF LEGAL CODE 02160 M01S00532.241l630 +++| DKSD DFIM (UJN DKS4) 02161 M01S00533.241l630 +++|* SBN 63-60 (63 CHARACTER SET ON CDC721) 02162 M01S00534.241l630 +++| DFIM (NJN DKS4) 02163 M01S00535.241l630 +++| DFIM (STD T0) 02164 M01S00536.241l630 +++| DKS4 DFIM (CFNC DSCF) 02165 M01S00537.241l630 +++| DFIM (LDD T0) 02166 M01S00538.241l630 +++| DFIM (UJN DKS6) 02167 M00S01483.o26 +++| DKS3 LDD YC UP Y 02168 M00S01484.o26 +++| SBN 4 02169 M00S01485.o26 +++| OAN CH+40
| Line S01486 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02170 M01S01486.241l630 ---| LDD T0 DISPLAY UPPER DIGIT
| Line S00539 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02171 M01S00539.241l630 +++| LDD T0 DISPLAY LOWER DIGIT 02172 M00S01487.o26 +++| LPN 7 02173 M00S01488.o26 +++| ADN 1R0 02174 M00S01489.o26 +++| OAN CH+40 02175 M00S01490.o26 +++| LDD XC OUTPUT COORDINATES 02176 M00S01491.o26 +++| OAN CH+40 02177 M00S01492.o26 +++| LDD YC 02178 M00S01493.o26 +++| ADN 4 02179 M00S01494.o26 +++| OAN CH+40
| Line S01495 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02180 M01S01495.241l630 ---| LDD T0 PREPARE LOWER DIGIT
| Line S00540 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02181 M01S00540.241l630 +++| LDD T0 PREPARE UPPER DIGIT 02182 M00S01496.o26 +++| SHN -3 02183 M00S01497.o26 +++| LPN 7
| Line S01498 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02184 M01S01498.241l630 ---| SBN 60-1R0 02185 M01S01499.241l630 ---| DKS4 ADN 60 DISPLAY CHARACTER 02186 M01S01500.241l630 ---| OAN CH+40 02187 M01S01501.241l630 ---| LDN 10 ADVANCE X 02188 M01S01502.241l630 ---| RAD XC
| Line S00541 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02189 M01S00541.241l630 +++| ADN 1R0 02190 M01S00542.241l630 +++| OAN CH+40 DISPLAY UPPER DIGIT 02191 M01S00543.241l630 +++| LDD YC 02192 M01S00544.241l630 +++| UJN DKS6 RESET Y-COORDINATE 02193 M01S00545.241l630 +++| 02194 M01S00546.241l630 +++| DKS5 ADN 60 DISPLAY CHARACTER 02195 M01S00547.241l630 +++| DKS6 OAN CH+40 02196 M00S01503.o26 +++| AOD T1 02197 M00S01504.o26 +++| LMN 62D
| Line S01505 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02198 M01S01505.241l630 ---| NJN DKS5 IF NOT END OF FIRST LINE 02199 M01S01506.241l630 ---| LDC 6030 RESET X 02200 M01S01507.241l630 ---| STD XC 02201 M01S01508.241l630 ---| LCN 24 DECREASE Y 02202 M01S01509.241l630 ---| RAD YC 02203 M01S01510.241l630 ---| DKS5 AOD T2 ADVANCE BUFFER
| Line S00548 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02204 M01S00548.241l630 +++| NJN DKS7 IF NOT END OF FIRST LINE 02205 M01S00549.241l630 +++| LDC CH03 02206 M01S00550.241l630 +++| STD XC 02207 M01S00551.241l630 +++| DFIM (LCN YINC) 02208 M01S00552.241l630 +++| LCN 2*YINC DECREMENT Y-COORDINATE 02209 M01S00553.241l630 +++| RAD YC 02210 M01S00554.241l630 +++| OAN CH+40 02211 M01S00555.241l630 +++| DKS7 LDN XINC ADVANCE X-COORDINATE 02212 M01S00556.241l630 +++| RAD XC 02213 M01S00557.241l630 +++| OAN CH+40 02214 M01S00558.241l630 +++| AOD T2 ADVANCE BUFFER 02215 M00S01511.o26 +++| LMC ** 02216 M00S01512.o26 +++| DKSA EQU *-1
| Line S01513 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02217 M01S01513.241l630 ---| LJM DKS6
| Line S00559 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02218 M01S00559.241l630 +++| LJM DKS8 CHECK END OF STRING 02219 M00S01514.o26 +++| 02220 M00S01515.o26 +++| ERRPL DKS3-DKSC-40
| Line S00560 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02221 M01S00560.241l630 +++| EDW SPACE 4,10 02222 M01S00561.241l630 +++|** EDW - EDIT AND DISPLAY WORD. 02223 M01S00562.241l630 +++| 02224 M01S00563.241l630 +++| 02225 M01S00564.241l630 +++| EDW DSUB 02226 M01S00565.241l630 +++| RID SPACE 4,10 02227 M01S00566.241l630 +++|** RID - REQUEST AND INITIALIZE DISPLAY. 02228 M01S00567.241l630 +++|* 02229 M01S00568.241l630 +++|* ENTRY (A) = 0 TO HOLD DISPLAY. 02230 M01S00569.241l630 +++|* = *RDSOS* TO REQUEST DISPLAY. 02231 M01S00570.241l630 +++|* 02232 M01S00571.241l630 +++|* USES T1. 02233 M01S00572.241l630 +++|* 02234 M01S00573.241l630 +++|* CALLS HDC, RDS. 02235 M01S00574.241l630 +++|* 02236 M01S00575.241l630 +++|* MACROS CFNC, DFIM. 02237 M01S00576.241l630 +++| 02238 M01S00577.241l630 +++| 02239 M01S00578.241l630 +++| RID1 LDM RIDA,T1 ISSUE FUNCTION 02240 M01S00579.241l630 +++| CFNC 02241 M01S00580.241l630 +++| SOD T1 02242 M01S00581.241l630 +++| PJN RID1 IF MORE FUNCTIONS 02243 M01S00582.241l630 +++| DCN CH+40 02244 M01S00583.241l630 +++| 02245 M01S00584.241l630 +++| RID SUBR ENTRY/EXIT 02246 M01S00585.241l630 +++| STD T1 02247 M01S00586.241l630 +++| RJM HDC,T1 HOLD / REQUEST DISPLAY 02248 M01S00587.241l630 +++| DFIM (LDN RIDAL-1) 02249 M01S00588.241l630 +++| UJN RIDX RETURN 02250 M01S00589.241l630 +++| 02251 M01S00590.241l630 +++| STD T1 02252 M01S00591.241l630 +++| UJN RID1 ISSUE CDC721 FUNCTIONS 02253 M01S00592.241l630 +++| 02254 M01S00593.241l630 +++| 02255 M01S00594.241l630 +++| RIDA BSS 0 FUNCTION LIST IN REVERSE ORDER 02256 M01S00595.241l630 +++| CON CHSF 02257 M01S00596.241l630 +++| CON RTPF 02258 M01S00597.241l630 +++| CON SRSF 02259 M01S00598.241l630 +++| CON RTPF 02260 M01S00599.241l630 +++| CON SLSF 02261 M01S00600.241l630 +++| RIDAL EQU *-RIDA LENGTH OF LIST 02262 M00S01516.o26 +++| TITLE MAIN PROGRAM SUBROUTINES.
| Line S01517 Modification History | |
|---|---|
M01 (Removed by) | ns2155 |
Seq # *Modification Id* Act ----------------------------+ 02263 M01S01517.ns2155 ---| MDC SPACE 4,10 02264 M01S01518.ns2155 ---|** MDC - MODIFY CHANNELS. 02265 M01S01519.ns2155 ---|* 02266 M01S01520.ns2155 ---|* ENTRY (CM+1) = CHANNEL. 02267 M01S01521.ns2155 ---|* 02268 M01S01522.ns2155 ---|* USES T1. 02269 M01S01523.ns2155 ---| 02270 M01S01524.ns2155 ---| 02271 M01S01525.ns2155 ---| MDCA EQU * 02272 M01S01526.ns2155 ---| MDC2 LDC FJMI 02273 M01S01527.ns2155 ---| ADD CM+1 02274 M01S01528.ns2155 ---| STM LPPB 02275 M01S01529.ns2155 ---| 02276 M01S01530.ns2155 ---| MDC SUBR ENTRY/EXIT 02277 M01S01531.ns2155 ---| LDM O26A CHECK CHANNEL 02278 M01S01532.ns2155 ---| LMD CM+1 02279 M01S01533.ns2155 ---| LPN 77 02280 M01S01534.ns2155 ---| ZJN MDCX IF CHANNEL OK RETURN 02281 M01S01535.ns2155 ---| LDC MSFW SET FIRST ADDRESS 02282 M01S01536.ns2155 ---| STD T1 02283 M01S01537.ns2155 ---| MDC1 AOD T1 ADVANCE ADDRESS 02284 M01S01538.ns2155 ---| ADC -MDCA 02285 M01S01539.ns2155 ---| ZJN MDC2 IF END OF MODIFICATION RETURN 02286 M01S01540.ns2155 ---| LDI T1 CHECK WORD 02287 M01S01541.ns2155 ---| LPC 7037 02288 M01S01542.ns2155 ---| LMC 7000+CH 02289 M01S01543.ns2155 ---| NJN MDC1 IF WORD .NE. 7XCH 02290 M01S01544.ns2155 ---| LDI T1 MODIFY CHANNEL 02291 M01S01545.ns2155 ---| SCN 37 02292 M01S01546.ns2155 ---| ADD CM+1 02293 M01S01547.ns2155 ---| STI T1 02294 M01S01548.ns2155 ---| UJN MDC1 LOOP 02295 M00S01549.o26 +++| PDS SPACE 4,15 02296 M00S01550.o26 +++|** PDS - PUSH DOWN I/O STACK. 02297 M00S01551.o26 +++|* 02298 M00S01552.o26 +++|* ENTRY (IO) = STACK INDEX. 02299 M00S01553.o26 +++|* 02300 M00S01554.o26 +++|* EXIT (A) = 0. 02301 M00S01555.o26 +++|* (IO) UPDATED. 02302 M00S01556.o26 +++|* 02303 M00S01557.o26 +++|* USES T2. 02304 M00S01558.o26 +++| 02305 M00S01559.o26 +++| 02306 M00S01560.o26 +++| PDS SUBR ENTRY/EXIT 02307 M00S01561.o26 +++| LDN 0 MOVE STACK DOWN 02308 M00S01562.o26 +++| STD T2 02309 M00S01563.o26 +++| SOD IO 02310 M00S01564.o26 +++| ZJN PDSX IF LAST ENTRY 02311 M00S01565.o26 +++| PDS1 LDM TIOB+1,T2 02312 M00S01566.o26 +++| STM TIOB,T2 02313 M00S01567.o26 +++| AOD T2 02314 M00S01568.o26 +++| SBD IO 02315 M00S01569.o26 +++| MJN PDS1 IF NOT COMPLETE LOOP 02316 M00S01570.o26 +++| UJN PDSX RETURN 02317 M00S01571.o26 +++| PRO SPACE 4,15 02318 M00S01572.o26 +++|** PRO - PROCESS ROLLOUT FLAG WHILE IN HOLD. 02319 M00S01573.o26 +++|* 02320 M00S01574.o26 +++|* USES IR+1, CM - CM+4. 02321 M00S01575.o26 +++|*
| Line S01576 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02322 M01S01576.241l630 ---|* CALLS DDS, DPP.
| Line S00601 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02323 M01S00601.241l630 +++|* CALLS DDS. 02324 M01S00602.241l630 +++|* 02325 M01S00603.241l630 +++|* MACROS MONITOR.
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | o2612 |
Seq # *Modification Id* Act ----------------------------+ 02326 M01S00021.o2612 +++|* 02327 M01S00022.o2612 +++|* NOTE THIS ROUTINE IS CALLED BY *COMDDSP* ROUTINE *ROF*. 02328 M00S01577.o26 +++| 02329 M00S01578.o26 +++| 02330 M00S01579.o26 +++| PRO LDD CP 02331 M00S01580.o26 +++| ADN STSW 02332 M00S01581.o26 +++| CRD CM 02333 M00S01582.o26 +++| LDD CM+1 02334 M00S01583.o26 +++| ZJN PRO1 IF ERROR FLAG NOT SET 02335 M00S01584.o26 +++| LJM /COMDDSP/ROFX 02336 M00S01585.o26 +++| 02337 M00S01586.o26 +++| PRO1 RJM DDS DROP DISPLAY 02338 M00S01587.o26 +++| LDD IR+4 SET ROLLOUT FLAG 02339 M00S01588.o26 +++| LPC 3777 02340 M00S01589.o26 +++| LMC 4000 02341 M00S01590.o26 +++| STD IR+4 02342 M00S01591.o26 +++| LDD MA WRITE REQUEST TO MESSAGE BUFFER 02343 M00S01592.o26 +++| CWD IR 02344 M00S01593.o26 +++| LDN ZERL REQUEST DEFAULT RECALL PARAMETERS 02345 M00S01594.o26 +++| CRD CM 02346 M00S01595.o26 +++| MONITOR RECM 02347 M00S01596.o26 +++| LJM PPR EXIT TO PP RESIDENT 02348 M00S01597.o26 +++| TIO SPACE 4,20 02349 M00S01598.o26 +++|** TIO - TRY I/O. 02350 M00S01599.o26 +++|* 02351 M00S01600.o26 +++|* ENTRY (IO) = I/O BUSY STATUS. 02352 M00S01601.o26 +++|* (SFSA) = NONZERO, IF RANDOM ADDRESS MAY BE INCORRECT. 02353 M00S01602.o26 +++|* 02354 M00S01603.o26 +++|* USES T1 - T5, AB - AB+4. 02355 M00S01604.o26 +++|* 02356 M00S01605.o26 +++|* CALLS MBD, PDS, RRR, SDS, SFR. 02357 M00S01606.o26 +++| 02358 M00S01607.o26 +++| 02359 M00S01608.o26 +++| TIO SUBR ENTRY/EXIT 02360 M00S01609.o26 +++| LDD IO 02361 M00S01610.o26 +++| ZJN TIOX IF I/O NOT BUSY 02362 M00S01611.o26 +++| LDD RA READ BUFFER STATUS 02363 M00S01612.o26 +++| SHN 6 02364 M00S01613.o26 +++| ADN FET 02365 M00S01614.o26 +++| CRD AB 02366 M00S01615.o26 +++| LDD AB+4 SAVE LAST STATUS 02367 M00S01616.o26 +++| STD T1 02368 M00S01617.o26 +++| LPN 1 02369 M00S01618.o26 +++| ZJN TIOX IF BUSY RETURN 02370 M00S01619.o26 +++| LDM TIOB CHECK CURRENT REQUEST 02371 M00S01620.o26 +++| STD AB+4 02372 M00S01621.o26 +++| SHN 17D 02373 M00S01622.o26 +++| STD T2 02374 M00S01623.o26 +++| PJN TIO3 IF NOT SPECIAL REQUEST 02375 M00S01624.o26 +++| LDM TIOA,T2 02376 M00S01625.o26 +++| STD T2 02377 M00S01626.o26 +++| LJM 0,T2
| Line S01627 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02378 M01S01627.241l630 ---| 02379 M00S01628.o26 +++| 02380 M00S01629.o26 +++|* SKIP TO END OF INFORMATION. 02381 M00S01630.o26 +++| 02382 M00S01631.o26 +++| TIO1 LDC 240 SKIP TO END OF INFORMATION 02383 M00S01632.o26 +++| STD AB+4 02384 M00S01633.o26 +++| LCN 0 02385 M00S01634.o26 +++| UJN TIO4
| Line S01635 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02386 M01S01635.241l630 ---| 02387 M00S01636.o26 +++| 02388 M00S01637.o26 +++|* SKIP RECORDS. 02389 M00S01638.o26 +++| 02390 M00S01639.o26 +++| TIO2 LDM TIOD+1 SKIP FUNCTION 02391 M00S01640.o26 +++| STD AB+4 02392 M00S01641.o26 +++| LDM TIOD RECORD COUNT 02393 M00S01642.o26 +++| UJN TIO4 02394 M00S01643.o26 +++| 02395 M00S01644.o26 +++|* CHECK ACCURACY OF RANDOM ADDRESS. 02396 M00S01645.o26 +++| 02397 M00S01646.o26 +++| TIO3 LDM SFSA 02398 M00S01647.o26 +++| ZJN TIO4.1 IF RANDOM ADDRESS CORRECT 02399 M00S01648.o26 +++| LDD AB+4 02400 M00S01649.o26 +++| LMC 600 02401 M00S01650.o26 +++| ZJN TIO3.1 IF *READEI* FUNCTION 02402 M00S01651.o26 +++| LMC 240&600 02403 M00S01652.o26 +++| ZJN TIO4.1 IF *SKIPF*, *SKIPFF*, OR *SKIPEI* FUNCTION 02404 M00S01653.o26 +++| LDD AB+4 02405 M00S01654.o26 +++| SBN 40 02406 M00S01655.o26 +++| MJN TIO3.1 IF SIMPLE READ OR WRITE FUNCTION 02407 M00S01656.o26 +++| ADN 40 RESTORE FUNCTION CODE 02408 M00S01657.o26 +++| SHN -6 02409 M00S01658.o26 +++| SBN 2 02410 M00S01659.o26 +++| NJN TIO3.2 IF NOT COMPLEX READ OR WRITE FUNCTION 02411 M00S01660.o26 +++| TIO3.1 LDD HN 02412 M00S01661.o26 +++| STD AB+4 ISSUE *OPEN/READNR* TO SET RANDOM ADDRESS 02413 M00S01662.o26 +++| 02414 M00S01663.o26 +++|* ISSUE NORMAL REQUEST. 02415 M00S01664.o26 +++| 02416 M00S01665.o26 +++| TIO3.2 LDN 0 SET SKIP COUNT 02417 M00S01666.o26 +++| TIO4 SHN 14 02418 M00S01667.o26 +++| TIO4.1 STM TIOC+2 02419 M00S01668.o26 +++| SHN -6 02420 M00S01669.o26 +++| SCN 77 02421 M00S01670.o26 +++| STM TIOC+3 02422 M00S01671.o26 +++| LDD AB+3 CLEAR LEVEL NUMBER 02423 M00S01672.o26 +++| SCN 77 02424 M00S01673.o26 +++| STD AB+3 02425 M00S01674.o26 +++| LDD AB+4 CHECK IF READ FUNCTION 02426 M00S01675.o26 +++| LMN 12 02427 M00S01676.o26 +++| NJN TIO5 IF NOT READ FUNCTION 02428 M00S01677.o26 +++| LDD RA SAVE RANDOM ADDRESS OF RECORD 02429 M00S01678.o26 +++| SHN 6 02430 M00S01679.o26 +++| ADN FET+6 02431 M00S01680.o26 +++| CRM TIOF,ON 02432 M00S01681.o26 +++| TIO5 LDD RA STORE BUFFER STATUS 02433 M00S01682.o26 +++| SHN 6 02434 M00S01683.o26 +++| ADN FET 02435 M00S01684.o26 +++| CWD AB 02436 M00S01685.o26 +++| LDN ZERL 02437 M00S01686.o26 +++| CRD CM 02438 M00S01687.o26 +++| LDD MA CALL *CIO* 02439 M00S01688.o26 +++| CWM TIOC,ON 02440 M00S01689.o26 +++| CWD CM 02441 M00S01690.o26 +++| MONITOR RPPM REQUEST PP 02442 M00S01691.o26 +++| LDD CM+1 02443 M00S01692.o26 +++| NJN TIO5.1 IF PP ASSIGNED 02444 M00S01693.o26 +++| LDD T1 RESTORE LAST STATUS 02445 M00S01694.o26 +++| STD AB+4 02446 M00S01695.o26 +++| LDD RA 02447 M00S01696.o26 +++| SHN 6 02448 M00S01697.o26 +++| ADN FET 02449 M00S01698.o26 +++| CWD AB 02450 M00S01699.o26 +++| UJN TIO7 RETURN 02451 M00S01700.o26 +++| 02452 M00S01701.o26 +++| TIO5.1 LDN 0 02453 M00S01702.o26 +++| STM SFSA CLEAR RANDOM ADDRESS 02454 M00S01703.o26 +++| LDD AB+4 02455 M00S01704.o26 +++| LMD HN 02456 M00S01705.o26 +++| ZJN TIO7 IF *OPEN/READNR* ISSUED 02457 M00S01706.o26 +++| TIO6 RJM PDS PUSH DOWN STACK 02458 M00S01707.o26 +++| TIO7 LJM TIOX RETURN
| Line S01708 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02459 M01S01708.241l630 ---| 02460 M00S01709.o26 +++| 02461 M00S01710.o26 +++|* READ IN POINTER. 02462 M00S01711.o26 +++| 02463 M00S01712.o26 +++| TIO8 LDD T1 CHECK READ STATUS 02464 M00S01713.o26 +++| SHN -3 02465 M00S01714.o26 +++| LMN 1 02466 M00S01715.o26 +++| STM CRSA SET/CLEAR RECORD READ NOT TOO LONG FLAG 02467 M00S01716.o26 +++| NJN TIO9 IF NOT BUFFER READ 02468 M00S01717.o26 +++| LDC ERRE *RECORD TOO LONG.* 02469 M00S01718.o26 +++| STD KM 02470 M00S01719.o26 +++| TIO9 LDD RA READ IN 02471 M00S01720.o26 +++| SHN 6 02472 M00S01721.o26 +++| ADN FET+2 02473 M00S01722.o26 +++| CRD CM
| Line S00604 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02474 M01S00604.241l630 +++| AOD DR 02475 M00S01723.o26 +++| LDD CM+3 SET IN 02476 M00S01724.o26 +++| STD IN
| Line S01725 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02477 M01S01725.241l630 ---| LDD CM+4 02478 M01S01726.241l630 ---| STD IN+1 02479 M01S01727.241l630 ---| RJM CBC CHECK BUFFER CONTENTS
| Line S00605 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02480 M01S00605.241l630 +++| SBD FT 02481 M01S00606.241l630 +++| SHN 14 02482 M01S00607.241l630 +++| LMD CM+4 02483 M01S00608.241l630 +++| STD IN+1 02484 M01S00609.241l630 +++| SBD FT+1 02485 M01S00610.241l630 +++| SHN -6 02486 M00S01728.o26 +++| STM TIOG STORE RECORD SIZE IN PRU-S 02487 M00S01729.o26 +++| LDD AB+4 02488 M00S01730.o26 +++| LMN 11 02489 M00S01731.o26 +++| ZJN TIO10 IF READ RANDOM RECORD 02490 M00S01732.o26 +++| LMN 15&11
| Line S01733 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02491 M01S01733.241l630 ---| NJN TIO6 IF NOT LIST INDEX 02492 M01S01734.241l630 ---|
| Line S00611 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02493 M01S00611.241l630 +++| NJN TIO13.1 IF NOT LIST INDEX 02494 M00S01735.o26 +++| LDC LST2&RRR LIST INDEX OF FILE 02495 M00S01736.o26 +++| TIO10 LMC SFR&RRR READ RANDOM RECORD 02496 M00S01737.o26 +++| TIO11 LMC SFR SEARCH FOR RECORD 02497 M00S01738.o26 +++| LJM LOV 02498 M00S01739.o26 +++| 02499 M00S01740.o26 +++|* SEARCH FOR RECORD. 02500 M00S01741.o26 +++| 02501 M00S01742.o26 +++| TIO12 RJM PDS PUSH DOWN STACK 02502 M00S01743.o26 +++|* LDN 0 02503 M00S01744.o26 +++| UJN TIO11 LOAD RECORD SEARCH OVERLAY 02504 M00S01745.o26 +++| 02505 M00S01746.o26 +++|* WRITEW REQUEST. 02506 M00S01747.o26 +++| 02507 M00S01748.o26 +++| TIO13 LDD FT SET FIRST 02508 M00S01749.o26 +++| STD T2 02509 M00S01750.o26 +++| LDD FT+1 02510 M00S01751.o26 +++| STD T3 02511 M00S01752.o26 +++| LDD IP SET INSERT ADDRESS 02512 M00S01753.o26 +++| STD T4 02513 M00S01754.o26 +++| LDD IP+1 02514 M00S01755.o26 +++| STD T5 02515 M00S01756.o26 +++| RJM MBD MOVE BUFFER DOWN 02516 M00S01757.o26 +++| LDN FT SET DISPLAY = LINE 0 02517 M00S01758.o26 +++| RJM SDS
| Line S01759 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02518 M01S01759.241l630 ---| JMP TIO6 RETURN
| Line S00612 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02519 M01S00612.241l630 +++| TIO13.1 LJM TIO6 PUSH DOWN STACK AND RETURN 02520 M00S01760.o26 +++| 02521 M00S01761.o26 +++|* REWIND POINTERS (IN = OUT = FIRST) AFTER WRITE. 02522 M00S01762.o26 +++|
| Line S01763 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02523 M01S01763.241l630 ---| TIO14 LDD RA READ FIRST 02524 M01S01764.241l630 ---| SHN 6 02525 M01S01765.241l630 ---| ADN FET+1 02526 M01S01766.241l630 ---| CRD CM 02527 M01S01767.241l630 ---| LDN 0 02528 M01S01768.241l630 ---| STD CM 02529 M01S01769.241l630 ---| STD CM+1 02530 M01S01770.241l630 ---| STD CM+2 02531 M01S01771.241l630 ---| LDD CM+3 02532 M01S01772.241l630 ---| LPN 37 02533 M01S01773.241l630 ---| STD CM+3
| Line S00613 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02534 M01S00613.241l630 +++| TIO14 LDN ZERL 02535 M01S00614.241l630 +++| CRD CM 02536 M01S00615.241l630 +++| LDC CBUF SET FIRST 02537 M01S00616.241l630 +++| STD CM+4 02538 M00S01774.o26 +++| LDD RA 02539 M00S01775.o26 +++| SHN 6 02540 M00S01776.o26 +++| ADN FET+2 WRITE IN 02541 M00S01777.o26 +++| CWD CM 02542 M00S01778.o26 +++| ADN 1 WRITE OUT 02543 M00S01779.o26 +++| CWD CM 02544 M00S01780.o26 +++| JMP TIO6 COMPLETE 02545 M00S01781.o26 +++| 02546 M00S01782.o26 +++|* TIO15 - REWRITE RECORD (MASS STORAGE ONLY) 02547 M00S01783.o26 +++| 02548 M00S01784.o26 +++| TIO15 LDD RA CHECK IF RANDOM FILE 02549 M00S01785.o26 +++| SHN 6 02550 M00S01786.o26 +++| ADN FET+1 02551 M00S01787.o26 +++| CRD CM READ FET+1 02552 M00S01788.o26 +++| LDD CM+1 02553 M00S01789.o26 +++| LPC 4000 02554 M00S01790.o26 +++| NJN TIO17 IF RANDOM BIT SET 02555 M00S01791.o26 +++|* LDN 0 CLEAR IO STACK 02556 M00S01792.o26 +++| STD IO 02557 M00S01793.o26 +++| LDC =C*FILE NOT ON MASS STORAGE.* 02558 M00S01794.o26 +++| TIO16 LJM ERR1 DISPLAY ERROR 02559 M00S01795.o26 +++| 02560 M00S01796.o26 +++| TIO17 LDN ZERL INITIALIZE RANDOM ADDRESS 02561 M00S01797.o26 +++| CRD CM 02562 M00S01798.o26 +++| LDM TIOF+2 CHECK IF RANDOM ADDRESS AVAILIABLE 02563 M00S01799.o26 +++| ADM TIOF+1 02564 M00S01800.o26 +++| NJN TIO18 IF .NE. 0 02565 M00S01801.o26 +++|* LDN 0 CLEAR IO STACK 02566 M00S01802.o26 +++| STD IO 02567 M00S01803.o26 +++| LDC =C*NO RANDOM ADDRESS.* 02568 M00S01804.o26 +++| UJN TIO16 DISPLAY ERROR MESSAGE 02569 M00S01805.o26 +++| 02570 M00S01806.o26 +++| TIO18 LDM TIOF+1 SET RANDOM ADDRESS 02571 M00S01807.o26 +++| SHN 14 02572 M00S01808.o26 +++| STD CM+3 02573 M00S01809.o26 +++| LMD CM+3 02574 M00S01810.o26 +++| ADM TIOF+2 02575 M00S01811.o26 +++| SHN -6 02576 M00S01812.o26 +++| STD CM+4 02577 M00S01813.o26 +++| LDC 224 SET CIO REWRITER FUNCTION 02578 M00S01814.o26 +++| STD AB+4 02579 M00S01815.o26 +++| LDD RA 02580 M00S01816.o26 +++| SHN 6 02581 M00S01817.o26 +++| ADN FET+6 02582 M00S01818.o26 +++| CWD CM 02583 M00S01819.o26 +++| LJM TIO3 CONTINUE NORMAL PROCESSING 02584 M00S01820.o26 +++| 02585 M00S01821.o26 +++| TIOA CON TIO8 1 - READ IN POINTER 02586 M00S01822.o26 +++| CON TIO1 3 - SKIP TO EOI 02587 M00S01823.o26 +++| CON TIO2 5 - SKIP RECORDS 02588 M00S01824.o26 +++| CON TIO12 7 - SEARCH FOR RECORD 02589 M00S01825.o26 +++| CON TIO8 11 - READ RANDOM RECORD 02590 M00S01826.o26 +++| CON TIO13 13 - WRITEW REQUEST 02591 M00S01827.o26 +++| CON TIO8 15 - LIST FILE INDEX 02592 M00S01828.o26 +++| CON TIO14 17 - SET FIRST = IN = OUT 02593 M00S01829.o26 +++| CON TIO15 21 - REWRITE RECORD(MASS STORAGE ONLY) 02594 M00S01830.o26 +++| 02595 M00S01831.o26 +++| TIOB BSSZ 10 02596 M00S01832.o26 +++| TIOC VFD 24/0LCIO,18/0,18/FET 02597 M00S01833.o26 +++| TIOD CON 0,0 COUNT AND SKIP CODE 02598 M00S01834.o26 +++| TIOE CON 0 TEXT RECORD FLAG 02599 M00S01835.o26 +++| TIOF VFD 60/0 FET+6 (RANDOM ADDRESS) 02600 M00S01836.o26 +++| 02601 M00S01837.o26 +++| TIOG CON 0 NUMBER OF PRU,S IN BUFFER 02602 M00S01838.o26 +++| WIO SPACE 4,15 02603 M00S01839.o26 +++|** WIO - WAIT I/O. 02604 M00S01840.o26 +++|* 02605 M00S01841.o26 +++|* ENTRY (IO) = I/O BUSY FLAG. 02606 M00S01842.o26 +++|* 02607 M00S01843.o26 +++|* CALLS PSS, TIO. 02608 M00S01844.o26 +++| 02609 M00S01845.o26 +++| 02610 M00S01846.o26 +++| WIO SUBR ENTRY/EXIT 02611 M00S01847.o26 +++| WIO1 RJM PSS PAUSE FOR SYSTEM 02612 M00S01848.o26 +++| LDD IO 02613 M00S01849.o26 +++| ZJN WIOX IF STACK EMPTY RETURN 02614 M00S01850.o26 +++| RJM TIO TRY I/O 02615 M00S01851.o26 +++| UJN WIO1 LOOP 02616 M00S01852.o26 +++| TITLE KEYBOARD ENTRY PROCESSING. 02617 M00S01853.o26 +++| INT SPACE 4,15 02618 M00S01854.o26 +++|** INT - INTERPRET KEYBOARD BUFFER. 02619 M00S01855.o26 +++|* 02620 M00S01856.o26 +++|* ENTRY (T5) = 0 IF INTERPRET ONLY. 02621 M00S01857.o26 +++|* (T5) .NE. 0 IF EXECUTE REQUESTED. 02622 M00S01858.o26 +++|* (KI) = END OF BUFFER POINTER. 02623 M00S01859.o26 +++|*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | o269 |
Seq # *Modification Id* Act ----------------------------+ 02624 M01S00001.o269 +++|* EXIT TO *LOV* TO LOAD SYNTAX OVERLAY IF SYNTAX NOT LOADED. 02625 M01S00002.o269 +++|* 02626 M00S01860.o26 +++|* USES T1 - T7. 02627 M00S01861.o26 +++|* 02628 M00S01862.o26 +++|* CALLS ENTRY PROCESSOR. 02629 M00S01863.o26 +++| 02630 M00S01864.o26 +++|
| Line S01865 Modification History | |
|---|---|
M01 (Removed by) | o269 |
Seq # *Modification Id* Act ----------------------------+ 02631 M01S01865.o269 ---| INT LDN TSFM-1 SET TABLE ADDRESS
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | o269 |
Seq # *Modification Id* Act ----------------------------+ 02632 M01S00003.o269 +++|* LOAD SYNTAX OVERLAY IF NOT ALREADY LOADED. 02633 M01S00004.o269 +++| 02634 M01S00005.o269 +++| INT13 LDC SCT 02635 M01S00006.o269 +++| LJM LOV LOAD COMMAND TABLE 02636 M01S00007.o269 +++| 02637 M01S00008.o269 +++| INT UJN INT13 LOAD SYNTAX OVERLAY IF NOT LOADED 02638 M01S00009.o269 +++|* LDN TSFM-1 SET TABLE ADDRESS 02639 M00S01866.o26 +++| STD T2 02640 M00S01867.o26 +++| LDN 0 SET TRIAL CHARACTER 02641 M00S01868.o26 +++| STD T1 02642 M00S01869.o26 +++| INT1 AOD T2 ADVANCE TABLE 02643 M00S01870.o26 +++| LDD RA 02644 M00S01871.o26 +++| SHN 6 02645 M00S01872.o26 +++| ADD T2 02646 M00S01873.o26 +++| CRD CM 02647 M00S01874.o26 +++| LDN CM 02648 M00S01875.o26 +++| STD T4 02649 M00S01876.o26 +++| LDI T4 02650 M00S01877.o26 +++| NJN INT2 IF NOT END OF TABLE 02651 M00S01878.o26 +++| LJM INT9 02652 M00S01879.o26 +++| 02653 M00S01880.o26 +++| INT2 LDC KBUF SET CHARACTER ADDRESS 02654 M00S01881.o26 +++| STD CA 02655 M00S01882.o26 +++| INT3 LDI T4 COMPARE UPPER 02656 M00S01883.o26 +++| SHN -6 02657 M00S01884.o26 +++| ZJN INT7 IF COMPARE COMPLETE 02658 M00S01885.o26 +++| STD T6 02659 M00S01886.o26 +++| LMI CA 02660 M00S01887.o26 +++| NJN INT4 IF NO MATCH 02661 M00S01888.o26 +++| AOD CA 02662 M00S01889.o26 +++| LDD T4 02663 M00S01890.o26 +++| LMN CM+3 02664 M00S01891.o26 +++| ZJN INT7 IF COMPARE COMPLETE 02665 M00S01892.o26 +++| LDI T4 COMPARE LOWER 02666 M00S01893.o26 +++| LPN 77 02667 M00S01894.o26 +++| ZJN INT7 IF COMPARE COMPLETE 02668 M00S01895.o26 +++| STD T6 02669 M00S01896.o26 +++| LMI CA 02670 M00S01897.o26 +++| NJN INT4 IF NO MATCH 02671 M00S01898.o26 +++| AOD CA 02672 M00S01899.o26 +++| AOD T4 02673 M00S01900.o26 +++| UJN INT3 LOOP 02674 M00S01901.o26 +++| 02675 M00S01902.o26 +++|* PROCESS NO HIT. 02676 M00S01903.o26 +++| 02677 M00S01904.o26 +++| INT4 LDD CA CHECK FOR END OF COMPARE 02678 M00S01905.o26 +++| ADC -KBUF 02679 M00S01906.o26 +++| LMD KI 02680 M00S01907.o26 +++| NJN INT5 IF NOT END OF KEYBOARD STRING 02681 M00S01908.o26 +++| LDD T1 02682 M00S01909.o26 +++| NJN INT6 IF NOT UNIQUE ENTRY 02683 M00S01910.o26 +++| LDD T6 SET NEXT CHARACTER 02684 M00S01911.o26 +++| STD T1 02685 M00S01912.o26 +++| INT5 LJM INT1 LOOP 02686 M00S01913.o26 +++| 02687 M00S01914.o26 +++| INT6 LMD T6 02688 M00S01915.o26 +++| ZJN INT5 IF SAME CHARACTER LOOP 02689 M00S01916.o26 +++| UJN INT10 02690 M00S01917.o26 +++| 02691 M00S01918.o26 +++|* PROCESS UNIQUE CHARACTER. 02692 M00S01919.o26 +++| 02693 M00S01920.o26 +++| INT7 LDD T5 02694 M00S01921.o26 +++| ZJN INT11 IF NO INTERPRET 02695 M00S01922.o26 +++| LDD CM+3 PROCESS ENTRY 02696 M00S01923.o26 +++| LPN 77 02697 M00S01924.o26 +++| SHN 14 02698 M00S01925.o26 +++| LMD CM+4 02699 M00S01926.o26 +++| LJM LOV 02700 M00S01927.o26 +++| 02701 M00S01928.o26 +++|* PROCESS END OF FORMAT SCAN. 02702 M00S01929.o26 +++| 02703 M00S01930.o26 +++| INT9 LDD T1 02704 M00S01931.o26 +++| NJN INT12 IF UNIQUE CHARACTER 02705 M00S01932.o26 +++| SOD KI BACKSPACE POINTER 02706 M00S01933.o26 +++| LDN 1R 02707 M00S01934.o26 +++| STM KBUF,KI 02708 M00S01935.o26 +++| INT10 LDD T5 02709 M00S01936.o26 +++| ZJN INT11 IF EXECUTE FLAG NOT SET 02710 M00S01937.o26 +++| LDC ERRD *REPEAT ENTRY.* 02711 M00S01938.o26 +++| STD KM 02712 M00S01939.o26 +++| INT11 LJM KBIX RETURN 02713 M00S01940.o26 +++| 02714 M00S01941.o26 +++| INT12 SBN 1R 02715 M00S01942.o26 +++| PJN INT10 IF SPECIAL CHARACTER 02716 M00S01943.o26 +++| LDD T1 FILL NEXT CHARACTER 02717 M00S01944.o26 +++| STM KBUF,KI 02718 M00S01945.o26 +++| AOD KI 02719 M00S01946.o26 +++| LJM INT LOOP 02720 M00S01947.o26 +++| CIF SPACE 4,10 02721 M00S01948.o26 +++|** CIF - CLEAR INSERT FLAG. 02722 M00S01949.o26 +++| 02723 M00S01950.o26 +++| 02724 M00S01951.o26 +++| CIF LDN 0 CLEAR INSERT FLAG 02725 M00S01952.o26 +++| STD IF 02726 M00S01953.o26 +++| LDN ZERL 02727 M00S01954.o26 +++| CRM CFCB,ON CLEAR INSERT *8* AND *9* 02728 M00S01955.o26 +++| UJN RET 02729 M00S01956.o26 +++| PLB SPACE 4,15 02730 M00S01957.o26 +++|** PLB - PROCESS *LEFT BLANK*. 02731 M00S01958.o26 +++| 02732 M00S01959.o26 +++| 02733 M00S01960.o26 +++| PLB LDN 0 CLEAR KEYBOARD MESSAGE 02734 M00S01961.o26 +++| STD KM 02735 M00S01962.o26 +++|* UJN RET PROCESS AS NORMAL RETURN 02736 M00S01963.o26 +++| RET SPACE 4,10 02737 M00S01964.o26 +++|** RET - NORMAL RETURN. 02738 M00S01965.o26 +++| 02739 M00S01966.o26 +++| 02740 M00S01967.o26 +++| RET LDN 0 CLEAR INDEX 02741 M00S01968.o26 +++| RET1 STD T1 SET CLEARING INDEX
| Line S00617 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02742 M01S00617.241l630 +++| AOD DR 02743 M00S01969.o26 +++| LDD KM 02744 M00S01970.o26 +++| NJN RET3 IF MESSAGE SET 02745 M00S01971.o26 +++| LDD T1 SET KEYBOARD INDEX 02746 M00S01972.o26 +++| STD KI 02747 M00S01973.o26 +++| RET2 LDN 1R CLEAR BUFFER 02748 M00S01974.o26 +++| STM KBUF,T1 02749 M00S01975.o26 +++| AOD T1 02750 M00S01976.o26 +++| ADC -KBUFL 02751 M00S01977.o26 +++| MJN RET2 IF NOT AT END OF BUFFER - LOOP 02752 M00S01978.o26 +++|* LDN 0 CLEAR ALTERNATE DISPLAY BUFFER 02753 M00S01979.o26 +++| STM DKLA 02754 M00S01980.o26 +++| STD LC CLEAR LAST CHARACTER POSITION 02755 M00S01981.o26 +++| RET3 JMP KBIX RETURN 02756 M00S01982.o26 +++| ABT SPACE 4,10 02757 M00S01983.o26 +++|** ABT - ABORT LOAD.
| Line S01984 Modification History | |
|---|---|
M01 (Removed by) | o261 |
Seq # *Modification Id* Act ----------------------------+ 02758 M01S01984.o261 ---|* 02759 M01S01985.o261 ---|* ENTRY (A) = 0 IF ENTRY AT *ABT*. 02760 M00S01986.o26 +++| 02761 M00S01987.o26 +++|
| Line S01988 Modification History | |
|---|---|
M01 (Removed by) | o261 |
Seq # *Modification Id* Act ----------------------------+ 02762 M01S01988.o261 ---| ABT STD KM CLEAR KEYBOARD MESSAGE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | o261 |
Seq # *Modification Id* Act ----------------------------+ 02763 M01S00001.o261 +++| ABT LDN 0 CLEAR KEYBOARD MESSAGE 02764 M01S00002.o261 +++| STD KM
| Line S01989 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02765 M01S01989.241l630 ---| ABT1 LDC OVL SET LOAD ADDRESS 02766 M01S01990.241l630 ---| STD LA 02767 M01S01991.241l630 ---| LDC KBI8 CLEAR OVERLAY LOAD
| Line S00618 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02768 M01S00618.241l630 +++| ABT1 LDC KBI8 CLEAR OVERLAY LOAD 02769 M00S01992.o26 +++| STM KBIA 02770 M00S01993.o26 +++| JMP KBIX RETURN 02771 M00S01994.o26 +++| KIC SPACE 4,10 02772 M00S01995.o26 +++|** KIC - INCOMPLETE RETURN. 02773 M00S01996.o26 +++|* 02774 M00S01997.o26 +++|* ENTRY (A) = MESSAGE ADDRESS. 02775 M00S01998.o26 +++|* 02776 M00S01999.o26 +++|* EXIT TO KBIX. 02777 M00S02000.o26 +++|* 02778 M00S02001.o26 +++|* USES T1. 02779 M00S02002.o26 +++| 02780 M00S02003.o26 +++| 02781 M00S02004.o26 +++| KIC STD T1 02782 M00S02005.o26 +++| LDD KE 02783 M00S02006.o26 +++| LMN 53 02784 M00S02007.o26 +++| ZJN ABT IF *LEFT BLANK* 02785 M00S02008.o26 +++| LDD KM 02786 M00S02009.o26 +++| NJN KIC1 IF MESSAGE 02787 M00S02010.o26 +++| LDD T1 02788 M00S02011.o26 +++| STD KM 02789 M00S02012.o26 +++| KIC1 JMP KBIX RETURN 02790 M00S02013.o26 +++| ERR SPACE 4,7 02791 M00S02014.o26 +++|** ERR - FORMAT ERROR RETURN. 02792 M00S02015.o26 +++| 02793 M00S02016.o26 +++| 02794 M00S02017.o26 +++| ERR LDC ERRA SET FORMAT ERROR 02795 M00S02018.o26 +++| ERR1 STD KM 02796 M00S02019.o26 +++| JMP KBIX RETURN 02797 M00S02020.o26 +++| ADD SPACE 4,20 02798 M00S02021.o26 +++|** ADD - ASSEMBLE DECIMAL DIGITS. 02799 M00S02022.o26 +++|* 02800 M00S02023.o26 +++|* ENTRY (A) = CHARACTER ADDRESS. 02801 M00S02024.o26 +++|* 02802 M00S02025.o26 +++|* EXIT (A) = SEPARATOR CHARACTER. 02803 M00S02026.o26 +++|* (AB - AB+4) = ASSEMBLED DIGITS RIGHT ADJUSTED. 02804 M00S02027.o26 +++|* (T1) = UPDATED CHARACTER ADDRESS. 02805 M00S02028.o26 +++|* 02806 M00S02029.o26 +++|* USES T0 - T2. 02807 M00S02030.o26 +++| 02808 M00S02031.o26 +++| 02809 M00S02032.o26 +++| ADD SUBR ENTRY/EXIT 02810 M00S02033.o26 +++| STD T1 SET CHARACTER ADDRESS 02811 M00S02034.o26 +++| LDN ZERL CLAR ASSMEBLY 02812 M00S02035.o26 +++| CRD AB 02813 M00S02036.o26 +++| ADD1 LDI T1 CHECK CHARACTER 02814 M00S02037.o26 +++| SBN 1R0 02815 M00S02038.o26 +++| MJN ADD2 IF ALPHA 02816 M00S02039.o26 +++| SBN 1R+-1R0 02817 M00S02040.o26 +++| MJN ADD3 IF DIGIT 02818 M00S02041.o26 +++| SBN 1R -1R+ 02819 M00S02042.o26 +++| ZJN ADD5 IF * * 02820 M00S02043.o26 +++| ADD2 LDI T1 RETURN WITH CHARACTER 02821 M00S02044.o26 +++| UJN ADDX 02822 M00S02045.o26 +++| 02823 M00S02046.o26 +++| ADD3 ADN 1R+-1R0 NEW DIGIT = CHARACTER 02824 M00S02047.o26 +++| STD T0 02825 M00S02048.o26 +++| LDN AB+4 SET BYTE ADDRESS 02826 M00S02049.o26 +++| STD T2 02827 M00S02050.o26 +++| ADD4 LDI T2 BYTE = BYTE * 10D 02828 M00S02051.o26 +++| SHN 2 02829 M00S02052.o26 +++| ADI T2 02830 M00S02053.o26 +++| SHN 1 02831 M00S02054.o26 +++| ADD T0 ADD NEW DIGIT 02832 M00S02055.o26 +++| STI T2 02833 M00S02056.o26 +++| SHN -14 NEW DIGIT = OVERFLOW 02834 M00S02057.o26 +++| STD T0 02835 M00S02058.o26 +++| SOD T2 DECREMENT BYTE ADDRESS 02836 M00S02059.o26 +++| LMN AB-1 02837 M00S02060.o26 +++| NJN ADD4 IF NOT END OF WORD LOOP 02838 M00S02061.o26 +++| ADD5 AOD T1 ADVANCE CHARACTER 02839 M00S02062.o26 +++| UJN ADD1 LOOP 02840 M00S02063.o26 +++| ASN SPACE 4,20 02841 M00S02064.o26 +++|** ASN - ASSEMBLE NAME. 02842 M00S02065.o26 +++|* 02843 M00S02066.o26 +++|* ENTRY (A) = CHARACTER ADDRESS. 02844 M00S02067.o26 +++|*
| Line S02068 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02845 M01S02068.241l630 ---|* EXIT (AB - AB+4) = NAME ASSEMBLED LEFT JUSTIFIED, 02846 M01S02069.241l630 ---|* (A) = NON-ALPHANUMERIC CHARACTER FOUND, (T1) = CHARACTER 02847 M01S02070.241l630 ---|* ADDRESS.
| Line S00619 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02848 M01S00619.241l630 +++|* EXIT (A) = SEPARATOR CHARACTER. 02849 M01S00620.241l630 +++|* (T1) = CHARACTER ADDRESS. 02850 M01S00621.241l630 +++|* (AB - AB+4) = LEFT JUSTIFIED ASSEMBLY. 02851 M00S02071.o26 +++|* 02852 M00S02072.o26 +++|* USES T1, T2. 02853 M00S02073.o26 +++| 02854 M00S02074.o26 +++| 02855 M00S02075.o26 +++| ASN SUBR ENTRY/EXIT 02856 M00S02076.o26 +++| STD T1 STORE CHARACTER ADDRESS 02857 M00S02077.o26 +++| LDN ZERL CLEAR ASSEMBLY 02858 M00S02078.o26 +++| CRD AB 02859 M00S02079.o26 +++| LDN AB SET BYTE ADDRESS 02860 M00S02080.o26 +++| STD T2 02861 M00S02081.o26 +++| ASN1 LDI T1 CHECK UPPER 02862 M00S02082.o26 +++| SBN 1R+ 02863 M00S02083.o26 +++| PJN ASN2 IF SEPARATOR 02864 M00S02084.o26 +++| ADN 1R+ STORE CHARACTER 02865 M00S02085.o26 +++| SHN 6 02866 M00S02086.o26 +++| STI T2 02867 M00S02087.o26 +++| AOD T1 CHECK LOWER 02868 M00S02088.o26 +++| LDI T1 02869 M00S02089.o26 +++| SBN 1R+ 02870 M00S02090.o26 +++| PJN ASN2 IF SEPARATOR 02871 M00S02091.o26 +++| ADN 1R+ STORE CHARACTER 02872 M00S02092.o26 +++| RAI T2 02873 M00S02093.o26 +++| AOD T1 02874 M00S02094.o26 +++| AOD T2 02875 M00S02095.o26 +++| LMN AB+4 02876 M00S02096.o26 +++| NJN ASN1 IF NOT 7 CHARACTERS LOOP 02877 M00S02097.o26 +++| ASN2 LDI T1 RETURN 02878 M00S02098.o26 +++| UJN ASNX
| Line S02099 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02879 M01S02099.241l630 ---| CBC SPACE 4 02880 M01S02100.241l630 ---|** CBC - CHECK CM BUFFER CONTENTS. 02881 M01S02101.241l630 ---|* 02882 M01S02102.241l630 ---|* EXIT (A) = NUMBER OF PRU,S IN BUFFER. 02883 M01S02103.241l630 ---| 02884 M01S02104.241l630 ---| 02885 M01S02105.241l630 ---| CBC SUBR ENTRY/EXIT 02886 M01S02106.241l630 ---| LDD IN 02887 M01S02107.241l630 ---| SBD FT 02888 M01S02108.241l630 ---| SHN 14 02889 M01S02109.241l630 ---| ADD IN+1 02890 M01S02110.241l630 ---| SBD FT+1 02891 M01S02111.241l630 ---| SHN -6 GET NUMBER OF PRU,S 02892 M01S02112.241l630 ---| UJN CBCX RETURN WITH NUMBER OF PRU,S 02893 M00S02113.o26 +++| CIO SPACE 4,10 02894 M00S02114.o26 +++|** CIO - CALL CIO. 02895 M00S02115.o26 +++|* 02896 M00S02116.o26 +++|* ENTRY (A) = REQUEST. 02897 M00S02117.o26 +++|* 02898 M00S02118.o26 +++|* EXIT STACK ENTRY MADE. 02899 M00S02119.o26 +++| 02900 M00S02120.o26 +++| 02901 M00S02121.o26 +++| CIO SUBR ENTRY/EXIT 02902 M00S02122.o26 +++| STM TIOB,IO ENTER REQUEST
| Line S02123 Modification History | |
|---|---|
M01 (Removed by) | ns2735 |
Seq # *Modification Id* Act ----------------------------+ 02903 M01S02123.ns2735 ---| AOD IO
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2735 |
Seq # *Modification Id* Act ----------------------------+ 02904 M01S00003.ns2735 +++| LDC * 02905 M01S00004.ns2735 +++| CIOA EQU *-1 TERMINAL TYPE FLAG 02906 M01S00005.ns2735 +++| NJN CIO1 IF NOT TERMINAL TYPE 02907 M01S00006.ns2735 +++| LDC ERRF
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2735 |
M02 (Removed by) | o2615 |
Seq # *Modification Id* Act ----------------------------+ 02908 M02S00007.o2615 ---| LJM ERR1 PROCESS ERROR
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | o2615 |
Seq # *Modification Id* Act ----------------------------+ 02909 M01S00001.o2615 +++| JMP ERR1 PROCESS ERROR
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2735 |
Seq # *Modification Id* Act ----------------------------+ 02910 M01S00008.ns2735 +++| 02911 M01S00009.ns2735 +++| CIO1 AOD IO 02912 M00S02124.o26 +++| LMN 10 02913 M00S02125.o26 +++| NJN CIOX IF STACK NOT FULL 02914 M00S02126.o26 +++| SOD IO 02915 M00S02127.o26 +++| UJN CIOX RETURN 02916 M00S02128.o26 +++| CRS SPACE 4,10 02917 M00S02129.o26 +++|** CRS - CHECK RECORD STATUS. 02918 M00S02130.o26 +++|* 02919 M00S02131.o26 +++|* EXIT TO *ERR1*, IF WRITE ATTEMPTED ON READ-ONLY FILE, 02920 M00S02132.o26 +++|* OR THE RECORD READ WAS TOO LONG. 02921 M00S02133.o26 +++| 02922 M00S02134.o26 +++| 02923 M00S02135.o26 +++| CRS SUBR ENTRY/EXIT 02924 M00S02136.o26 +++| LDC * 02925 M00S02137.o26 +++| CRSA EQU *-1 (RECORD READ NOT TOO LONG FLAG) 02926 M00S02138.o26 +++| ZJN CRS1 IF RECORD READ WAS TOO LONG 02927 M00S02139.o26 +++| LDC ** 02928 M00S02140.o26 +++| CRSB EQU *-1 (WRITE LOCKOUT FLAG) 02929 M00S02141.o26 +++| ZJN CRSX IF WRITE IS ALLOWED 02930 M00S02142.o26 +++| LDN ERRF-ERRE *WRITE ON READ-ONLY FILE.* 02931 M00S02143.o26 +++| CRS1 ADC ERRE *RECORD TOO LONG.*
| Line S02144 Modification History | |
|---|---|
M01 (Removed by) | o2615 |
Seq # *Modification Id* Act ----------------------------+ 02932 M01S02144.o2615 ---| LJM ERR1
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | o2615 |
Seq # *Modification Id* Act ----------------------------+ 02933 M01S00002.o2615 +++| JMP ERR1 PROCESS ERROR 02934 M00S02145.o26 +++| DNL SPACE 4,20 02935 M00S02146.o26 +++|** DNL - DELETE NEXT LINE. 02936 M00S02147.o26 +++|* 02937 M00S02148.o26 +++|* USES T2 - T5, CM - CM+4. 02938 M00S02149.o26 +++|* 02939 M00S02150.o26 +++|* CALLS MBD, SFL. 02940 M00S02151.o26 +++| 02941 M00S02152.o26 +++| 02942 M00S02153.o26 +++| DNL3 STD IF CLEAR INSERT FLAG 02943 M00S02154.o26 +++| LDD IP DELETE LAST LINE 02944 M00S02155.o26 +++| STD IN 02945 M00S02156.o26 +++| LDD IP+1 02946 M00S02157.o26 +++| STD IN+1 02947 M00S02158.o26 +++| 02948 M00S02159.o26 +++| DNL SUBR ENTRY/EXIT 02949 M00S02160.o26 +++| LDD IF 02950 M00S02161.o26 +++| ZJN DNLX IF INSERT FLAG NOT SET 02951 M00S02162.o26 +++| LDD IP SET FIRST ADDRESS 02952 M00S02163.o26 +++| STD T2 02953 M00S02164.o26 +++| STD T4 02954 M00S02165.o26 +++| LDD IP+1 02955 M00S02166.o26 +++| STD T3 02956 M00S02167.o26 +++| STD T5 02957 M00S02168.o26 +++| DNL1 LDD T4 CHECK ADDRESS 02958 M00S02169.o26 +++| LMD IN 02959 M00S02170.o26 +++| NJN DNL2 IF *IN* NOT REACHED 02960 M00S02171.o26 +++| LDD T5 02961 M00S02172.o26 +++| LMD IN+1 02962 M00S02173.o26 +++| ZJN DNL3 IF *IN* REACHED RETURN 02963 M00S02174.o26 +++| DNL2 LDD T4 READ WORD 02964 M00S02175.o26 +++| SHN 6 02965 M00S02176.o26 +++| ADD RA 02966 M00S02177.o26 +++| SHN 6 02967 M00S02178.o26 +++| ADD T5 02968 M00S02179.o26 +++| CRD CM 02969 M00S02180.o26 +++| AOD T5 ADVANCE ADDRESS 02970 M00S02181.o26 +++| SHN -14 02971 M00S02182.o26 +++| RAD T4 02972 M00S02183.o26 +++| LDD CM+4 02973 M00S02184.o26 +++| NJN DNL1 IF NOT END OF LINE LOOP 02974 M00S02185.o26 +++| LDN ZERL CLEAR INSERT *8* AND *9* 02975 M00S02186.o26 +++| CRM CFCB,ON 02976 M00S02187.o26 +++| RJM MBD MOVE BUFFER DOWN 02977 M00S02188.o26 +++| LJM DNLX RETURN
| Line S02189 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02978 M01S02189.241l630 ---| IOF SPACE 4 02979 M01S02190.241l630 ---|** IOF - I/O FUNCTION PROCESSOR. 02980 M01S02191.241l630 ---|* 02981 M01S02192.241l630 ---|* ENTRY (A) - CIO FUNCTION TO ISSUE. 02982 M01S02193.241l630 ---|* 02983 M01S02194.241l630 ---|* EXIT TO *RET*. 02984 M01S02195.241l630 ---|* 02985 M01S02196.241l630 ---|* CALLS CIO. 02986 M01S02197.241l630 ---| 02987 M01S02198.241l630 ---| 02988 M01S02199.241l630 ---| IOF STM IOFA SET FUNCTION 02989 M01S02200.241l630 ---| RJM SFN SET FILE NAME 02990 M01S02201.241l630 ---| LDC ** 02991 M01S02202.241l630 ---| IOFA EQU *-1 FUNCTION TO ISSUE 02992 M01S02203.241l630 ---| RJM CIO 02993 M01S02204.241l630 ---| JMP RET EXIT 02994 M00S02205.o26 +++| MBD SPACE 4,20 02995 M00S02206.o26 +++|** MBD - MOVE BUFFER DOWN. 02996 M00S02207.o26 +++|* 02997 M00S02208.o26 +++|* ENTRY (T2 - T3) = TARGET ADDRESS. 02998 M00S02209.o26 +++|* (T4 - T5) = FWA OF DATA. 02999 M00S02210.o26 +++|* (IN - IN+1) = LWA+1 OF DATA. 03000 M00S02211.o26 +++|* 03001 M00S02212.o26 +++|* USES T1. 03002 M00S02213.o26 +++|* 03003 M00S02214.o26 +++|* CALLS SDB, SIP. 03004 M00S02215.o26 +++| 03005 M00S02216.o26 +++| 03006 M00S02217.o26 +++| MBD SUBR ENTRY/EXIT 03007 M00S02218.o26 +++| LDD T2 SET INCREMENT 03008 M00S02219.o26 +++| SBD T4 03009 M00S02220.o26 +++| SHN 14 03010 M00S02221.o26 +++| ADD T3 03011 M00S02222.o26 +++| SBD T5 03012 M00S02223.o26 +++| STM MBDA+1 03013 M00S02224.o26 +++| STM SDBA+1 03014 M00S02225.o26 +++| SHN -14 03015 M00S02226.o26 +++| LMC ADCI 03016 M00S02227.o26 +++| STM MBDA 03017 M00S02228.o26 +++| STM SDBA 03018 M00S02229.o26 +++| LDD IN COMPUTE MOVE WORD COUNT 03019 M00S02230.o26 +++| SBD T4 03020 M00S02231.o26 +++| SHN 14 03021 M00S02232.o26 +++| ADD IN+1 03022 M00S02233.o26 +++| SBD T5 03023 M00S02234.o26 +++| SHN 13D SET BLOCK COUNT 03024 M00S02235.o26 +++| STD T1 03025 M00S02236.o26 +++| SHN -13D SET ODD SIZE 03026 M00S02237.o26 +++| STD T2 03027 M00S02238.o26 +++| LDN 0 CLEAR CURRENT BLOCK COUNT 03028 M00S02239.o26 +++| STD T3 03029 M00S02240.o26 +++| LDD T1 03030 M00S02241.o26 +++| ZJN MBD2 IF NO FULL BLOCKS 03031 M00S02242.o26 +++| 03032 M00S02243.o26 +++|* MOVE COMPLETE BLOCKS. 03033 M00S02244.o26 +++|
| Line S02245 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03034 M01S02245.241l630 ---| MBD1 LDD FR
| Line S00622 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03035 M01S00622.241l630 +++| MBD1 LDN 40 03036 M00S02246.o26 +++| RJM SDB SHIFT 40 WORDS OF DATA 03037 M00S02247.o26 +++| AOD T3 03038 M00S02248.o26 +++| LMD T1 03039 M00S02249.o26 +++| NJN MBD1 IF ALL BLOCKS NOT COMPLETE LOOP 03040 M00S02250.o26 +++| 03041 M00S02251.o26 +++|* MOVE LAST ODD BLOCK. 03042 M00S02252.o26 +++| 03043 M00S02253.o26 +++| MBD2 LDD T2 03044 M00S02254.o26 +++| ZJN MBD3 IF NO ODD BLOCK 03045 M00S02255.o26 +++| RJM SDB SHIFT ODD DATA BLOCK 03046 M00S02256.o26 +++| MBD3 LDD IN SET NEW IN 03047 M00S02257.o26 +++| SHN 14 03048 M00S02258.o26 +++| LMD IN+1 03049 M00S02259.o26 +++| MBDA ADC -* (DISTANCE DATA IS BEING MOVED) 03050 M00S02260.o26 +++| STD IN+1 03051 M00S02261.o26 +++| SHN -14 03052 M00S02262.o26 +++| STD IN 03053 M00S02263.o26 +++| RJM SIP SET IN POINTER 03054 M00S02264.o26 +++| LJM MBDX RETURN 03055 M00S02265.o26 +++| PKL SPACE 4,20 03056 M00S02266.o26 +++|** PKL - PACK LINE INTO BUFFER BUF. 03057 M00S02267.o26 +++|* 03058 M00S02268.o26 +++|* ENTRY (CA) = CHARACTER ADDRESS. 03059 M00S02269.o26 +++|* 03060 M00S02270.o26 +++|* EXIT (T7) = LENGTH OF LINE IN CM WORDS. 03061 M00S02271.o26 +++|* 03062 M00S02272.o26 +++|* USES T1 - T3, T5, BUF - BUF+50. 03063 M00S02273.o26 +++| 03064 M00S02274.o26 +++| 03065 M00S02275.o26 +++| PKL SUBR ENTRY/EXIT 03066 M00S02276.o26 +++| LDN 0 CLEAR WORD COUNT 03067 M00S02277.o26 +++| STD T7 03068 M00S02278.o26 +++| LDD CA FORM CHARACTER LWA 03069 M00S02279.o26 +++| ADC KBUFL/10D*10D ROUND BUFFER TO CM WORD BOUNDARY 03070 M00S02280.o26 +++| STM PKLA 03071 M00S02281.o26 +++| LDN ZERL 03072 M00S02282.o26 +++| CRM CFCB,ON CLEAR INSERT *8* AND *9* 03073 M00S02283.o26 +++| LDC BUF SET BYTE ADDRESS 03074 M00S02284.o26 +++| STD T1
| Line S02285 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03075 M01S02285.241l630 ---| ADC KBUFL/10D*5D FORM LWA OF BUFFER BUF
| Line S00623 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03076 M01S00623.241l630 +++| ADN KBUFL/10D*5D FORM LWA OF BUFFER 03077 M00S02286.o26 +++| STM PKLB 03078 M00S02287.o26 +++| PKL1 LDN 5 SET BYTE COUNT 03079 M00S02288.o26 +++| STD T2 03080 M00S02289.o26 +++| PKL2 LDI CA UPPER CHARACTER
| Line S02290 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03081 M01S02290.241l630 ---| LPN 77 03082 M01S02291.241l630 ---| SHN 6 03083 M01S02292.241l630 ---| STD T5
| Line S00624 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03084 M01S00624.241l630 +++| SHN 6 03085 M01S00625.241l630 +++| STI T1 03086 M00S02293.o26 +++| AOD CA 03087 M00S02294.o26 +++| LDI CA LOWER CHARACTER 03088 M00S02295.o26 +++| LPN 77
| Line S02296 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03089 M01S02296.241l630 ---| LMD T5 03090 M01S02297.241l630 ---| STI T1
| Line S00626 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03091 M01S00626.241l630 +++| RAI T1 03092 M00S02298.o26 +++| AOD CA ADVANCE CHARACTER ADDRESS 03093 M00S02299.o26 +++| AOD T1 ADVANCE BYTE ADDRESS 03094 M00S02300.o26 +++| SOD T2 DECREMENT BYTE COUNT 03095 M00S02301.o26 +++| NJN PKL2 IF NOT FULL WORD LOOP 03096 M00S02302.o26 +++| AOD T7 ADVANCE CM WORD COUNT 03097 M00S02303.o26 +++| LDD CA CHECK FOR END OF BUFFER 03098 M00S02304.o26 +++| LMC * 03099 M00S02305.o26 +++| PKLA EQU *-1 (LWA OF CHARACTER BUFFER) 03100 M00S02306.o26 +++| NJN PKL1 IF NOT END OF BUFFER 03101 M00S02307.o26 +++| 03102 M00S02308.o26 +++|* DELETE TRAILING BLANK BYTES. 03103 M00S02309.o26 +++| 03104 M00S02310.o26 +++| LDN 5 03105 M00S02311.o26 +++| PKL3 STD T2 SET BYTE COUNTER 03106 M00S02312.o26 +++| PKL4 SOD T1 DECREMENT BYTE ADDRESS 03107 M00S02313.o26 +++| LMC BUF 03108 M00S02314.o26 +++| ZJN PKL7 IF AT BEGINNING OF BUFFER 03109 M00S02315.o26 +++| LDI T1 CHECK FOR BLANK BYTES 03110 M00S02316.o26 +++| LMC 2R 03111 M00S02317.o26 +++| NJN PKL5 IF NOT BLANK BYTE 03112 M00S02318.o26 +++| STI T1 CLEAR BYTE 03113 M00S02319.o26 +++| SOD T2 DECREMENT BYTE COUNTER 03114 M00S02320.o26 +++| PJN PKL4 IF MORE BYTES IN WORD 03115 M00S02321.o26 +++| SOD T7 DECREMENT CM WORD COUNT 03116 M00S02322.o26 +++| LDN 4 RESET BYTE COUNTER 03117 M00S02323.o26 +++| UJN PKL3 CHECK NEXT BYTE 03118 M00S02324.o26 +++| 03119 M00S02325.o26 +++| PKL5 LPN 77 03120 M00S02326.o26 +++| NJN PKL6 IF EVEN NUMBER OF BLANKS 03121 M00S02327.o26 +++| LDI T1 CLEAR ODD-NUMBERED BLANK 03122 M00S02328.o26 +++| SCN 77 03123 M00S02329.o26 +++| STI T1 03124 M00S02330.o26 +++| 03125 M00S02331.o26 +++|* CHECK FOR END OF LINE. 03126 M00S02332.o26 +++|
| Line S02333 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03127 M01S02333.241l630 ---| PKL6 LDD T1 03128 M01S02334.241l630 ---| ADN 1
| Line S00627 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03129 M01S00627.241l630 +++| PKL6 AOD T1 03130 M00S02335.o26 +++| LMM PKLB 03131 M00S02336.o26 +++| NJN PKL7 IF TRAILING BLANKS ZEROED 03132 M00S02337.o26 +++| AOD T7 INCREMENT CM WORD COUNT 03133 M00S02338.o26 +++| LDN ZERL WRITE END OF LINE 03134 M00S02339.o26 +++| CRM *,ON 03135 M00S02340.o26 +++| PKLB EQU *-1 (LWA OF BUFFER BUF) 03136 M00S02341.o26 +++| PKL7 LJM PKLX RETURN 03137 M00S02342.o26 +++| PRT SPACE 4,20 03138 M00S02343.o26 +++|** PRT - PROCESS TAB. 03139 M00S02344.o26 +++|* 03140 M00S02345.o26 +++|* USES T1, KI. 03141 M00S02346.o26 +++| 03142 M00S02347.o26 +++| 03143 M00S02348.o26 +++| PRT LDM KBUF+1 03144 M00S02349.o26 +++| LMN 1R. 03145 M00S02350.o26 +++| ZJN PRT2 IF 2ND CHARACTER = *.* 03146 M00S02351.o26 +++| LDD SF 03147 M00S02352.o26 +++| ZJN PRT1 IF NO SCAN NOT REQUESTED RETURN 03148 M00S02353.o26 +++| AOD SI SET NEXT SCAN 03149 M00S02354.o26 +++| LDM TSCN-1,SI 03150 M00S02355.o26 +++| STD SC 03151 M00S02356.o26 +++| NJN PRT1 IF NOT END OF TABLE RETURN
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/o26.001.txt · Last modified: by 127.0.0.1