cdc:nos2.source:opl.opl871:deck:dayfile.001
Deck DAYFILE Part 001
24 Modifications
Listing Sections
- Deck DAYFILE Start
- Deck DAYFILE Part 1 (Line 1399)
- Deck DAYFILE Part 2 (Line 2980)
Source
Seq # *Modification Id* Act ----------------------------+ 01399 M00S00949.dayfile +++| NG X1,RDC9 IF EOF/EOI ENCOUNTERED 01400 M00S00950.dayfile +++| SX1 B6 SET EOR EXIT CONDITION 01401 M00S00951.dayfile +++| EQ RDC9 RETURN 01402 M00S00952.dayfile +++| 01403 M00S00953.dayfile +++|* CHECK SECTOR COUNT TO DETERMINE IF DATA SHOULD BE READ 01404 M00S00954.dayfile +++|* FROM THE DISK FILE OR FROM *CBUF*. 01405 M00S00955.dayfile +++| 01406 M00S00956.dayfile +++| RDC4 SA1 PRUS CHECK PRU COUNT 01407 M00S00957.dayfile +++| SX6 B1 01408 M00S00958.dayfile +++| IX6 X1-X6 01409 M00S00959.dayfile +++| NZ X1,RDC5 IF MORE PRU-S TO READ FROM DISK 01410 M00S00960.dayfile +++| RJ ICP INITIALIZE CM BUFFER PROCESSING 01411 M00S00961.dayfile +++| NG X1,RDCX IF EOF/EOI ENCOUNTERED 01412 M00S00962.dayfile +++| EQ RDC1 LOOP 01413 M00S00963.dayfile +++| 01414 M00S00964.dayfile +++| RDC5 SA6 A1 UPDATE SECTOR COUNT 01415 M00S00965.dayfile +++| 01416 M00S00966.dayfile +++|* PROCESS *CIO* HEADER CONTROL WORD. 01417 M00S00967.dayfile +++| 01418 M00S00968.dayfile +++| SB7 B1 READ CONTROL WORD 01419 M00S00969.dayfile +++| RJ RDW= 01420 M00S00970.dayfile +++| PL X1,RDC6 IF NOT EOF/EOI 01421 M00S00971.dayfile +++| SA3 INAM 01422 M00S00972.dayfile +++| NZ X3,RDCX IF EOF/EOI ON ALTERNATE INPUT FILE 01423 M00S00973.dayfile +++| SA0 =C* UNEXPECTED EOF/EOI ENCOUNTERED.* 01424 M00S00974.dayfile +++| EQ ERR PREMATURE EOF/EOI 01425 M00S00975.dayfile +++| 01426 M00S00976.dayfile +++| RDC6 SB6 B6-B1 BACK UP WORKING BUFFER 01427 M00S00977.dayfile +++| SA1 B6 SET BLOCK SIZE FROM CONTROL WORD 01428 M00S00978.dayfile +++| SX7 5 01429 M00S00979.dayfile +++| BX3 X1 01430 M00S00980.dayfile +++| SX4 X1+4 ROUND UP 01431 M00S00981.dayfile +++| AX1 36 01432 M00S00982.dayfile +++| SX6 X1 01433 M00S00983.dayfile +++| IX7 X4/X7 SET NUMBER OF WORDS BEFORE CONTROL WORD 01434 M00S00984.dayfile +++| IX6 X7-X6 SET EOR FLAG 01435 M00S00985.dayfile +++| SA7 X2-WRD 01436 M00S00986.dayfile +++| SA6 X2-ERF 01437 M00S00987.dayfile +++| PL X3,RDC8 IF NO ERRORS 01438 M00S00988.dayfile +++| 01439 M00S00989.dayfile +++|* THE READ ERROR PROCESS IGNORES ALL MESSAGES WHICH MAY 01440 M00S00990.dayfile +++|* CONSIST OF ANY BAD SECTOR DATA. 01441 M00S00991.dayfile +++| 01442 M00S00992.dayfile +++| SX7 X7+B1 01443 M00S00993.dayfile +++| RJ UOP UPDATE OUT POINTER 01444 M00S00994.dayfile +++| MX6 1 SET NEW READ FLAGS 01445 M00S00995.dayfile +++| SA6 X2-ERF 01446 M00S00996.dayfile +++| SA6 A6+B1 01447 M00S00997.dayfile +++| SA6 RDCE FLAG READ ERROR 01448 M00S00998.dayfile +++| SB2 REMC *DATA LOST.* 01449 M00S00999.dayfile +++| RJ GEM GENERATE ERROR MESSAGE 01450 M00S01000.dayfile +++| RDC7 SA1 RDCC RESET FWA OF WORKING STORAGE BUFFER 01451 M00S01001.dayfile +++| SA3 RDCD SET LENGTH OF REQUESTED TRANSFER 01452 M00S01002.dayfile +++| SB6 X1 01453 M00S01003.dayfile +++| BX6 X3 01454 M00S01004.dayfile +++| SA6 RDCA 01455 M00S01005.dayfile +++| RDC8 SA1 RDCA RESET WORDS NEEDED 01456 M00S01006.dayfile +++| SB7 X1 01457 M00S01007.dayfile +++| EQ RDC1 LOOP 01458 M00S01008.dayfile +++| 01459 M00S01009.dayfile +++| 01460 M00S01010.dayfile +++| RDCA CON 0 NUMBER OF WORDS LEFT TO TRANSFER 01461 M00S01011.dayfile +++| RDCB CON 0 UPDATE WORKING STORAGE BUFFER 01462 M00S01012.dayfile +++| RDCC CON 0 FWA OF WORKING STORAGE BUFFER 01463 M00S01013.dayfile +++| RDCD CON 0 LENGTH OF REQUESTED TRANSFER 01464 M00S01014.dayfile +++| RDCE CON 0 READ ERROR ENCOUNTERED 01465 M00S01015.dayfile +++| RDW SPACE 4,20 01466 M00S01016.dayfile +++|** RDW - READ DATA. 01467 M00S01017.dayfile +++|* 01468 M00S01018.dayfile +++|* PROCESSES CALLS THAT ARE FOR READ WORDS (*RDW=*). 01469 M00S01019.dayfile +++|* DEBLOCKS DATA THAT ARE IN CONTROL WORD READS. 01470 M00S01020.dayfile +++|* 01471 M00S01021.dayfile +++|* ENTRY (X2) = FET ADDRESS. 01472 M00S01022.dayfile +++|* (B6) = FWA OF WORKING STORAGE BUFFER. 01473 M00S01023.dayfile +++|* (B7) = WORKING STORAGE BUFFER LENGTH. 01474 M00S01024.dayfile +++|* (INAM) = .NE. 0, IF READING ALTERNATE INPUT FILE. 01475 M00S01025.dayfile +++|* (PRUS) = NUMBER OF SECTORS REMAINING TO BE READ. 01476 M00S01026.dayfile +++|* 01477 M00S01027.dayfile +++|* EXIT (X1) = STATUS RETURNED FROM RDW=. 01478 M00S01028.dayfile +++|* (X2-LWP) = LWA+1 OF DATA TRANSFERRED. 01479 M00S01029.dayfile +++|* (B6) = LWA+1 OF DATA TRANSFERRED. 01480 M00S01030.dayfile +++|* 01481 M00S01031.dayfile +++|* USES X - 0, 1, 3, 4, 5, 6, 7. 01482 M00S01032.dayfile +++|* A - 0, 1, 3, 4, 5, 6, 7. 01483 M00S01033.dayfile +++|* B - 2, 6, 7. 01484 M00S01034.dayfile +++|* 01485 M00S01035.dayfile +++|* CALLS GEM, ICP, RDW=, UOP. 01486 M00S01036.dayfile +++| 01487 M00S01037.dayfile +++| 01488 M00S01038.dayfile +++| RDW10 SA6 A1 UPDATE WORDS LEFT IN PRU 01489 M00S01039.dayfile +++| RJ RDW= READ WORDS 01490 M00S01040.dayfile +++| 01491 M00S01041.dayfile +++| RDW SUBR ENTRY/EXIT 01492 M00S01042.dayfile +++| SX6 B6 SAVE FWA OF WORKING STORAGE BUFFER 01493 M00S01043.dayfile +++| SX7 B7 SAVE LENGTH OF WORKING STORAGE BUFFER 01494 M00S01044.dayfile +++| SA6 RDWB 01495 M00S01045.dayfile +++| SA7 RDWC 01496 M00S01046.dayfile +++| RDW1 SA1 X2-WRD GET NUMBER OF WORDS BEFORE CONTROL WORD 01497 M00S01047.dayfile +++| ZR X1,RDW3 IF LAST WORD OF BLOCK 01498 M00S01048.dayfile +++| PL X1,RDW2 IF NOT FIRST READ 01499 M00S01049.dayfile +++| SX7 B7 SET WORDS LEFT IN WORKING STORAGE BUFFER 01500 M00S01050.dayfile +++| SA7 RDWA 01501 M00S01051.dayfile +++| EQ RDW4 CHECK DISK COUNT 01502 M00S01052.dayfile +++| 01503 M00S01053.dayfile +++|* DETERMINE SIZE OF NEXT BML MESSAGE. 01504 M00S01054.dayfile +++| 01505 M00S01055.dayfile +++| RDW2 SB7 B1 SET WORDS TO READ 01506 M00S01056.dayfile +++| RJ RDW= READ WORDS 01507 M00S01057.dayfile +++| SA3 B6-B1 LWA (BML MESSAGE HEADER WORD) 01508 M00S01058.dayfile +++| MX0 12 GET MESSAGE LENGTH 01509 M00S01059.dayfile +++| BX6 X0*X3 01510 M00S01060.dayfile +++| LX6 11-59 01511 M00S01061.dayfile +++| SB7 X6-1 01512 M00S01062.dayfile +++| SA6 RDWD SAVE FOR ERROR RECOVERY 01513 M00S01063.dayfile +++| BX4 X6 01514 M00S01064.dayfile +++| SA1 X2-WRD 01515 M00S01065.dayfile +++| IX6 X1-X6 01516 M00S01066.dayfile +++| PL X6,RDW10 IF ENOUGH WORDS LEFT IN BLOCK 01517 M00S01067.dayfile +++| IX6 X4-X1 SET WORDS LEFT TO TRANSFER 01518 M00S01068.dayfile +++| BX7 X7-X7 CLEAR WORDS LEFT IN PRU 01519 M00S01069.dayfile +++| SA6 X2-LWP 01520 M00S01070.dayfile +++| SA7 A1 01521 M00S01071.dayfile +++| SX1 X1-1 REMOVE FIRST WORD READ 01522 M00S01072.dayfile +++| 01523 M00S01073.dayfile +++|* READ FIRST PART OF MESSAGE IN CURRENT BLOCK AND 01524 M00S01074.dayfile +++|* PROCESS *CIO* TRAILING CONTROL WORD. 01525 M00S01075.dayfile +++| 01526 M00S01076.dayfile +++| RDW3 SB7 X1+B1 01527 M00S01077.dayfile +++| RJ RDW= READ WORDS 01528 M00S01078.dayfile +++| SB6 B6-1 BACK UP OVER LAST CONTROL WORD 01529 M00S01079.dayfile +++| 01530 M00S01080.dayfile +++|* CHECK SECTOR COUNT TO DETERMINE IF DATA SHOULD BE READ 01531 M00S01081.dayfile +++|* FROM THE DISK FILE OR FROM *CBUF*. 01532 M00S01082.dayfile +++| 01533 M00S01083.dayfile +++| RDW4 SA1 PRUS 01534 M00S01084.dayfile +++| SX6 B1 01535 M00S01085.dayfile +++| IX6 X1-X6 01536 M00S01086.dayfile +++| NZ X1,RDW5 IF MORE PRUS TO READ 01537 M00S01087.dayfile +++| RJ ICP INITIALIZE CM BUFFER PROCESSING 01538 M00S01088.dayfile +++| NG X1,RDWX IF EOF/EOI ENCOUNTERED - NO DATA LEFT 01539 M00S01089.dayfile +++| RDW5 SB7 2 READ CONTROL WORDS 01540 M00S01090.dayfile +++| SA6 A1+ 01541 M00S01091.dayfile +++| RJ RDW= 01542 M00S01092.dayfile +++| PL X1,RDW6 IF NOT EOF/EOI 01543 M00S01093.dayfile +++| SA3 INAM 01544 M00S01094.dayfile +++| NZ X3,RDWX IF EOF/EOI ON ALTERNATE INPUT FILE 01545 M00S01095.dayfile +++| SA0 =C* UNEXPECTED EOF/EOI ENCOUNTERED.* 01546 M00S01096.dayfile +++| EQ ERR PREMATURE EOF/EOI 01547 M00S01097.dayfile +++| 01548 M00S01098.dayfile +++| RDW6 SB6 B6-2 BACK UP WORKING BUFFER 01549 M00S01099.dayfile +++| SA1 B6 SET BLOCK SIZE FROM *CIO* CONTROL WORD 01550 M00S01100.dayfile +++| BX3 X1 01551 M00S01101.dayfile +++| SX7 5 01552 M00S01102.dayfile +++| SX4 X1+4 ROUND UP 01553 M00S01103.dayfile +++| AX1 36 01554 M00S01104.dayfile +++| SX6 X1 01555 M00S01105.dayfile +++| IX7 X4/X7 SET NUMBER OF WORDS BEFORE CONTROL WORD 01556 M00S01106.dayfile +++| IX6 X7-X6 SET EOR FLAG 01557 M00S01107.dayfile +++| SX7 X7-1 CONTROL WORDS 01558 M00S01108.dayfile +++| SA4 A1+B1 01559 M00S01109.dayfile +++| SA7 X2-WRD SAVE PRU CONTROL WORD 01560 M00S01110.dayfile +++| SA5 X2-LWP 01561 M00S01111.dayfile +++| SA6 X2-ERF 01562 M00S01112.dayfile +++| BX6 X6-X6 CLEAR WORDS LEFT FROM PREVIOUS PRU 01563 M00S01113.dayfile +++| BX7 X4 01564 M00S01114.dayfile +++| SA6 A5 01565 M00S01115.dayfile +++| NG X3,RDW9 IF READ ERRORS 01566 M00S01116.dayfile +++| SA7 RDWF 01567 M00S01117.dayfile +++| NG X7,RDW7 IF RECOVERY SECTOR 01568 M00S01118.dayfile +++| SA1 EFFG 01569 M00S01119.dayfile +++| NZ X1,RDW8 IF RECOVERING AN ERROR ON PREVIOUS PRU 01570 M00S01120.dayfile +++| SA1 RDWA 01571 M00S01121.dayfile +++| SB7 X1 01572 M00S01122.dayfile +++| ZR X5,RDW1 IF NO WORDS TO DEBLOCK FROM LAST PRU 01573 M00S01123.dayfile +++| SA1 X2-WRD WORDS IN BLOCK 01574 M00S01124.dayfile +++| IX6 X1-X5 01575 M00S01125.dayfile +++| SB7 X5 RESET WORDS NEEDED 01576 M00S01126.dayfile +++| EQ RDW10 COMPLETE MESSAGE 01577 M00S01127.dayfile +++| 01578 M00S01128.dayfile +++|* PROCESS READ ERRORS BY IGNORING THE BEGINNING OF AN 01579 M00S01129.dayfile +++|* INCOMPLETE MESSAGE, THE SECTOR WITH THE READ 01580 M00S01130.dayfile +++|* ERROR AND THE END OF A MESSAGE WHICH STARTS IN THE 01581 M00S01131.dayfile +++|* BAD SECTOR. 01582 M00S01132.dayfile +++| 01583 M00S01133.dayfile +++|* PROCESS A RECOVERY SECTOR. 01584 M00S01134.dayfile +++| 01585 M00S01135.dayfile +++| RDW7 SA1 RDWE 01586 M00S01136.dayfile +++| SB2 RSMC *RECOVERY SECTOR.* 01587 M00S01137.dayfile +++| BX7 X7-X7 01588 M00S01138.dayfile +++| SA7 A1 01589 M00S01139.dayfile +++| NZ X1,RDW8 IF BEGINNING SECTOR 01590 M00S01140.dayfile +++| RJ GEM GENERATE ERROR MESSAGE 01591 M00S01141.dayfile +++| RDW8 SA1 RDWF RESET POINTERS TO FIRST MESSAGE 01592 M00S01142.dayfile +++| BX7 X7-X7 CLEAR READ ERROR FLAG 01593 M00S01143.dayfile +++| MX0 12
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | dayfil5 |
Seq # *Modification Id* Act ----------------------------+ 01594 M01S00005.dayfil5 +++| BX3 X0*X1 CHECK RECOVERY WORD FORMAT 01595 M01S00006.dayfil5 +++| LX3 12 01596 M01S00007.dayfil5 +++| SA0 =C$ MAINLOG - *BML* FORMAT INCORRECT.$ 01597 M01S00008.dayfil5 +++| SX3 X3-4000B 01598 M01S00009.dayfil5 +++| NZ X3,ERR IF FORMAT INCORRECT 01599 M00S01144.dayfile +++| SA7 EFFG 01600 M00S01145.dayfile +++| LX0 12 DECREMENT WORD COUNT 01601 M00S01146.dayfile +++| SA5 X2-WRD 01602 M00S01147.dayfile +++| BX3 X0*X1 01603 M00S01148.dayfile +++| SX7 X3-1 01604 M00S01149.dayfile +++| IX6 X5-X7 01605 M00S01150.dayfile +++| SA6 A5 01606 M00S01151.dayfile +++| RJ UOP 01607 M00S01152.dayfile +++| SA1 RDWB RESET START CONDITIONS 01608 M00S01153.dayfile +++| SA5 RDWC 01609 M00S01154.dayfile +++| SB6 X1 01610 M00S01155.dayfile +++| SB7 X5 01611 M00S01156.dayfile +++| EQ RDW1 START NEW MESSAGE 01612 M00S01157.dayfile +++| 01613 M00S01158.dayfile +++|* PROCESS READ ERROR. 01614 M00S01159.dayfile +++| 01615 M00S01160.dayfile +++| RDW9 SX7 B1 SET READ ERROR FLAG 01616 M00S01161.dayfile +++| SA3 RDWC RESET WORKING BUFFER 01617 M00S01162.dayfile +++| SA7 EFFG 01618 M00S01163.dayfile +++| SB7 X3 01619 M00S01164.dayfile +++| SA1 X2-WRD 01620 M00S01165.dayfile +++| SX7 X1+B1 01621 M00S01166.dayfile +++| RJ UOP UPDATE OUT POINTER 01622 M00S01167.dayfile +++| SB2 REMC *DATA LOST.* 01623 M00S01168.dayfile +++| RJ GEM GENERATE ERROR MESSAGE 01624 M00S01169.dayfile +++| EQ RDW4 RETRY 01625 M00S01170.dayfile +++| 01626 M00S01171.dayfile +++| 01627 M00S01172.dayfile +++| RDWA CON 0 NUMBER OF WORDS LEFT TO TRANSFER 01628 M00S01173.dayfile +++| RDWB CON 0 FWA OF WORKING STORAGE BUFFER 01629 M00S01174.dayfile +++| RDWC CON 0 LENGTH OF WORKING STORAGE BUFFER 01630 M00S01175.dayfile +++| RDWD CON 0 MESSAGE WORD LENGTH 01631 M00S01176.dayfile +++| RDWE CON 1 SKIP FIRST RECOVERY SECTOR 01632 M00S01177.dayfile +++| RDWF CON 0 PRU LINKAGE WORD 01633 M00S01178.dayfile +++| RIF SPACE 4,15 01634 M00S01179.dayfile +++|** RIF - READ INPUT FILE FOR NEXT MESSAGE. 01635 M00S01180.dayfile +++|* 01636 M00S01181.dayfile +++|* ENTRY (DFTY) = DAYFILE TYPE. 01637 M00S01182.dayfile +++|* 01638 M00S01183.dayfile +++|* EXIT (X1) = 0, IF MESSAGE READ. 01639 M00S01184.dayfile +++|* (X1) .LT. 0, IF EOF/EOI ENCOUNTERED. 01640 M00S01185.dayfile +++|* (B6) = FWA OF MESSAGE READ. 01641 M00S01186.dayfile +++|* (B7) = LENGTH OF MESSAGE READ. 01642 M00S01187.dayfile +++|* 01643 M00S01188.dayfile +++|* USES X - 2. 01644 M00S01189.dayfile +++|* A - 2. 01645 M00S01190.dayfile +++|* B - 6, 7. 01646 M00S01191.dayfile +++|* 01647 M00S01192.dayfile +++|* MACROS INPUTC, INPUTW. 01648 M00S01193.dayfile +++| 01649 M00S01194.dayfile +++| 01650 M00S01195.dayfile +++| RIF SUBR ENTRY/EXIT 01651 M00S01196.dayfile +++| SA2 DFTY CHECK MESSAGE TYPE 01652 M00S01197.dayfile +++| SX2 X2-MLTY 01653 M00S01198.dayfile +++| ZR X2,RIF1 IF PROCESSING BML 01654 M00S01199.dayfile +++| INPUTC I,WBUF,WBUFL READ ONE CODED MESSAGE 01655 M00S01200.dayfile +++| EQ RIF2 SET EXIT CONDITIONS 01656 M00S01201.dayfile +++| 01657 M00S01202.dayfile +++| RIF1 INPUTW I,WBUF,WBUFL READ ONE BML MESSAGE 01658 M00S01203.dayfile +++| RIF2 SB7 B6-WBUF SET MESSAGE LENGTH 01659 M00S01204.dayfile +++| SB6 WBUF SET FWA OF MESSAGE 01660 M00S01205.dayfile +++| EQ RIFX EXIT 01661 M00S01206.dayfile +++| SRM SPACE 4,20 01662 M00S01207.dayfile +++|** SRM - SEARCH FOR MESSAGE. 01663 M00S01208.dayfile +++|* THREE WORDS ARE EXAMINED. 01664 M00S01209.dayfile +++|* 01665 M00S01210.dayfile +++|* ENTRY CURRENT MESSAGE IN WORKING BUFFER. 01666 M00S01211.dayfile +++|* (WBUF) = FWA OF CURRENT MESSAGE. 01667 M00S01212.dayfile +++|* (SEMS - SEMS+2) = CRITERION MESSAGE. 01668 M00S01213.dayfile +++|* (SEMA - SEMA+2) = CRITERION MESSAGE MASK. 01669 M00S01214.dayfile +++|* (SEWI) = STARTING MESSAGE SEARCH WORD INDEX. 01670 M00S01215.dayfile +++|* I = IN FET. 01671 M00S01216.dayfile +++|* 01672 M00S01217.dayfile +++|* EXIT (X4) = 0, IF MESSAGE FOUND. 01673 M00S01218.dayfile +++|* .NE. 0, IF NOT FOUND. 01674 M00S01219.dayfile +++|* 01675 M00S01220.dayfile +++|* USES X - 1, 2, 3, 4, 6. 01676 M00S01221.dayfile +++|* A - 1, 2, 3. 01677 M00S01222.dayfile +++| 01678 M00S01223.dayfile +++| 01679 M00S01224.dayfile +++| SRM SUBR ENTRY/EXIT 01680 M00S01225.dayfile +++| SA1 SEWI READ STARTING SEARCH INDEX 01681 M00S01226.dayfile +++| SA1 X1+WBUF COMPARE LINE 01682 M00S01227.dayfile +++| SA2 SEMS 01683 M00S01228.dayfile +++| SA3 SEMA 01684 M00S01229.dayfile +++| BX1 X1-X2 01685 M00S01230.dayfile +++| BX4 X3*X1 01686 M00S01231.dayfile +++| SA1 A1+B1 01687 M00S01232.dayfile +++| SA2 A2+B1 01688 M00S01233.dayfile +++| NZ X4,SRMX IF NO COMPARE 01689 M00S01234.dayfile +++| ZR X2,SRM1 IF END OF MESSAGE 01690 M00S01235.dayfile +++| SA3 A3+B1 01691 M00S01236.dayfile +++| BX1 X1-X2 01692 M00S01237.dayfile +++| BX4 X3*X1 01693 M00S01238.dayfile +++| SA1 A1+B1 01694 M00S01239.dayfile +++| NZ X4,SRMX IF NO COMPARE 01695 M00S01240.dayfile +++| SA2 A2+B1 01696 M00S01241.dayfile +++| SA3 A3+B1 01697 M00S01242.dayfile +++| ZR X2,SRM1 IF END OF MESSAGE 01698 M00S01243.dayfile +++| BX1 X1-X2 01699 M00S01244.dayfile +++| BX4 X3*X1 01700 M00S01245.dayfile +++| NZ X4,SRMX IF NO COMPARE 01701 M00S01246.dayfile +++| SRM1 SA1 SEJN CHECK JOB NAME 01702 M00S01247.dayfile +++| ZR X1,SRMX IF NO JOB NAME SET 01703 M00S01248.dayfile +++| SA2 WBUF+1 CHECK JOBNAME FIELD OF DAYFILE 01704 M00S01249.dayfile +++| MX6 24 01705 M00S01250.dayfile +++| LX6 48 01706 M00S01251.dayfile +++| BX3 X1-X2 01707 M00S01252.dayfile +++| BX4 X6*X3 01708 M00S01253.dayfile +++| ZR X4,SRMX IF NAMES MATCH 01709 M00S01254.dayfile +++| SX4 B1 INDICATE MESSAGE NOT FOUND 01710 M00S01255.dayfile +++| EQ SRMX RETURN 01711 M00S01256.dayfile +++| TSF SPACE 4,15 01712 M00S01257.dayfile +++|** TSF - TERMINATE SEARCH FILE. 01713 M00S01258.dayfile +++|* 01714 M00S01259.dayfile +++|* SET PROPER PAGINATION FLAG, ISSUE MESSAGE IF *FROM NOT 01715 M00S01260.dayfile +++|* FOUND*, DUMP TO OUTPUT FILE FROM *SCR1*. 01716 M00S01261.dayfile +++|* 01717 M00S01262.dayfile +++|* USES X - 1, 2, 5. 01718 M00S01263.dayfile +++|* A - 1. 01719 M00S01264.dayfile +++|* B - 7. 01720 M00S01265.dayfile +++|*
| Line S01266 Modification History | |
|---|---|
M01 (Removed by) | dayfil9 |
Seq # *Modification Id* Act ----------------------------+ 01721 M01S01266.dayfil9 ---|* MACROS READEI, READW, REWIND, WRITEW, WRITER.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dayfil9 |
Seq # *Modification Id* Act ----------------------------+ 01722 M01S00001.dayfil9 +++|* MACROS READEI, READW, REWIND, WRITEC, WRITER, WRITEW. 01723 M00S01267.dayfile +++| 01724 M00S01268.dayfile +++| 01725 M00S01269.dayfile +++| TSF SUBR ENTRY/EXIT 01726 M00S01270.dayfile +++| WRITER S INITIATE SEARCH FILE READ PROCESSING 01727 M00S01271.dayfile +++| REWIND X2 01728 M00S01272.dayfile +++| TSF1 SA1 DFTY
| Line S01273 Modification History | |
|---|---|
M01 (Removed by) | dayfil9 |
Seq # *Modification Id* Act ----------------------------+ 01729 M01S01273.dayfil9 ---| SX5 O
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | dayfil9 |
Seq # *Modification Id* Act ----------------------------+ 01730 M01S00002.dayfil9 +++| SX5 B 01731 M00S01274.dayfile +++| SX1 X1-MLTY
| Line S01275 Modification History | |
|---|---|
M01 (Removed by) | dayfil9 |
Seq # *Modification Id* Act ----------------------------+ 01732 M01S01275.dayfil9 ---| NZ X1,TSF2 IF NOT BINARY FILE 01733 M01S01276.dayfil9 ---| SX5 B
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | dayfil9 |
Seq # *Modification Id* Act ----------------------------+ 01734 M01S00003.dayfil9 +++| ZR X1,TSF2 IF BINARY FILE 01735 M01S00004.dayfil9 +++| SX5 O 01736 M01S00005.dayfil9 +++| SA1 JTOP 01737 M01S00006.dayfil9 +++| NZ X1,TSF2 IF JOB TERMINATION SPECIFIED 01738 M01S00007.dayfil9 +++| SA1 SFOP DETERMINE IF OP=I SPECIFIED 01739 M01S00008.dayfil9 +++| SA2 =1LI 01740 M01S00009.dayfil9 +++| BX2 X1-X2 01741 M01S00010.dayfil9 +++| ZR X2,TSF2 IF OP=I SPECIFIED 01742 M01S00011.dayfil9 +++| SA1 FRFO 01743 M01S00012.dayfil9 +++| NZ X1,TSF2 IF *FR* FOUND 01744 M01S00013.dayfil9 +++| SA1 IOUT 01745 M01S00014.dayfil9 +++| NZ X1,TSFX IF NOT TERMINAL OUTPUT 01746 M01S00015.dayfil9 +++| WRITEC X5,(=C/ *FR* NOT FOUND./) 01747 M00S01277.dayfile +++| TSF2 READEI S
| Line S01278 Modification History | |
|---|---|
M01 (Removed by) | dayfil6 |
Seq # *Modification Id* Act ----------------------------+ 01748 M01S01278.dayfil6 ---| SA1 INTR
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dayfil6 |
Seq # *Modification Id* Act ----------------------------+ 01749 M01S00001.dayfil6 +++| 01750 M01S00002.dayfil6 +++| TSF2.1 SA1 INTR 01751 M00S01279.dayfile +++| NZ X1,DAF5 IF TERMINAL INTERRUPT
| Line S01280 Modification History | |
|---|---|
M01 (Removed by) | dayfil6 |
Seq # *Modification Id* Act ----------------------------+ 01752 M01S01280.dayfil6 ---| READW X2,WBUF,WBUFL
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | dayfil6 |
Seq # *Modification Id* Act ----------------------------+ 01753 M01S00003.dayfil6 +++| READW S,WBUF,WBUFL 01754 M00S01281.dayfile +++| NG X1,TSF3 IF EOF 01755 M00S01282.dayfile +++| WRITEW X5,WBUF,WBUFL
| Line S01283 Modification History | |
|---|---|
M01 (Removed by) | dayfil6 |
Seq # *Modification Id* Act ----------------------------+ 01756 M01S01283.dayfil6 ---| EQ TSF2 COMPLETE READ
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | dayfil6 |
Seq # *Modification Id* Act ----------------------------+ 01757 M01S00004.dayfil6 +++| EQ TSF2.1 CONTINUE READING 01758 M00S01284.dayfile +++| 01759 M00S01285.dayfile +++| TSF3 SB7 B6-WBUF 01760 M00S01286.dayfile +++| WRITEW X5,WBUF,B7 01761 M00S01287.dayfile +++| EQ TSFX RETURN 01762 M00S01288.dayfile +++| UOP SPACE 4,20 01763 M00S01289.dayfile +++|** UOP - UPDATE OUT POINTER. 01764 M00S01290.dayfile +++|* 01765 M00S01291.dayfile +++|* ENTRY (X7) = NUMBER OF WORDS TO UPDATE OUT POINTER BY. 01766 M00S01292.dayfile +++|* (X2) = FET ADDRESS. 01767 M00S01293.dayfile +++|* 01768 M00S01294.dayfile +++|* EXIT OUT POINTER IN FET UPDATED. 01769 M00S01295.dayfile +++|* 01770 M00S01296.dayfile +++|* USES X - 0, 1, 3, 6. 01771 M00S01297.dayfile +++|* A - 1, 3, 6. 01772 M00S01298.dayfile +++| 01773 M00S01299.dayfile +++| 01774 M00S01300.dayfile +++| UOP SUBR ENTRY/EXIT 01775 M00S01301.dayfile +++| MX0 18 01776 M00S01302.dayfile +++| SA1 X2+3 READ OUT POINTER 01777 M00S01303.dayfile +++| LX0 18 01778 M00S01304.dayfile +++| SA3 A1+B1 READ LIMIT 01779 M00S01305.dayfile +++| IX6 X1+X7 01780 M00S01306.dayfile +++| BX3 X0*X3
| Line S01307 Modification History | |
|---|---|
M01 (Removed by) | dayfil2 |
Seq # *Modification Id* Act ----------------------------+ 01781 M01S01307.dayfil2 ---| IX3 X6-X3 01782 M01S01308.dayfil2 ---| NG X3,UOP1 IF NO WRAP AROUND
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dayfil2 |
Seq # *Modification Id* Act ----------------------------+ 01783 M01S00001.dayfil2 +++| IX1 X6-X3 01784 M01S00002.dayfil2 +++| NG X1,UOP1 IF NO WRAP AROUND 01785 M00S01309.dayfile +++| SA3 X2+B1 READ FIRST 01786 M00S01310.dayfile +++| BX3 X0*X3 01787 M00S01311.dayfile +++| IX6 X3+X1 01788 M00S01312.dayfile +++| UOP1 SA6 A1 01789 M00S01313.dayfile +++| EQ UOPX RETURN 01790 M00S01314.dayfile +++| WBF SPACE 4,15 01791 M00S01315.dayfile +++|** WBF - WRITE BINARY FILE. 01792 M00S01316.dayfile +++|* 01793 M00S01317.dayfile +++|* ENTRY (X0) = NUMBER OF WORDS IN BINARY MESSAGE. 01794 M00S01318.dayfile +++|* (X5) = FET ADDRESS. 01795 M00S01319.dayfile +++|* 01796 M00S01320.dayfile +++|* EXIT BINARY MESSAGE WRITTEN TO INDICATED FILE. 01797 M00S01321.dayfile +++|* CYBER RECORD MANAGER *W-WORD* PREFIXED TO MESSAGE, 01798 M00S01322.dayfile +++|* IF NOT WRITTEN TO SEARCH FILE. 01799 M00S01323.dayfile +++|* 01800 M00S01324.dayfile +++|* USES X - 1, 2, 3, 6. 01801 M00S01325.dayfile +++|* A - 1, 6. 01802 M00S01326.dayfile +++|* 01803 M00S01327.dayfile +++|* MACROS WRITEW. 01804 M00S01328.dayfile +++| 01805 M00S01329.dayfile +++| 01806 M00S01330.dayfile +++| WBF SUBR ENTRY/EXIT 01807 M00S01331.dayfile +++| 01808 M00S01332.dayfile +++|* BUILD *W-WORD*. 01809 M00S01333.dayfile +++| 01810 M00S01334.dayfile +++| SA1 WCWD SET BACKWARD LINK = OLD FORWARD LINK + 1 01811 M00S01335.dayfile +++| SX2 X1+B1 01812 M00S01336.dayfile +++| LX2 41-17 01813 M00S01337.dayfile +++| SA1 WBUF SET FORWARD LINK = LENGTH FROM HEADER WORD 01814 M00S01338.dayfile +++| MX3 12 01815 M00S01339.dayfile +++| BX6 X3*X1 01816 M00S01340.dayfile +++| LX6 11-59 01817 M00S01341.dayfile +++| BX6 X2+X6 01818 M00S01342.dayfile +++| CX1 X6 SET PARITY BIT 01819 M00S01343.dayfile +++| MX3 1 01820 M00S01344.dayfile +++| LX1 59-0 01821 M00S01345.dayfile +++| BX1 X3*X1 01822 M00S01346.dayfile +++| BX1 X3-X1 01823 M00S01347.dayfile +++| BX6 X1+X6 01824 M00S01348.dayfile +++| SA6 WCWD INCLUDE NEW *W-WORD* IN RECORD WRITTEN 01825 M00S01349.dayfile +++| 01826 M00S01350.dayfile +++|* WRITE BINARY MESSAGE. 01827 M00S01351.dayfile +++| 01828 M00S01352.dayfile +++| WRITEW X5,WBUF-1,B7+1 01829 M00S01353.dayfile +++| EQ WBFX RETURN 01830 M00S01354.dayfile +++| WCF SPACE 4,15 01831 M00S01355.dayfile +++|** WCF - WRITE CODED FILE. 01832 M00S01356.dayfile +++|* 01833 M00S01357.dayfile +++|* ENTRY (X5) = FET ADDRESS. 01834 M00S01358.dayfile +++|* 01835 M00S01359.dayfile +++|* EXIT CODED LINE WRITTEN TO INDICATED FILE. 01836 M00S01360.dayfile +++|* PAGINATION SUPPLIED IF NEEDED. 01837 M00S01361.dayfile +++|* 01838 M00S01362.dayfile +++|* USES X - 0, 1, 2, 3, 6, 7. 01839 M00S01363.dayfile +++|* A - 1, 2, 3, 6, 7. 01840 M00S01364.dayfile +++|* 01841 M00S01365.dayfile +++|* CALLS CDD, SFN. 01842 M00S01366.dayfile +++|* 01843 M00S01367.dayfile +++|* MACROS WRITEC, WRITEW. 01844 M00S01368.dayfile +++| 01845 M00S01369.dayfile +++| 01846 M00S01370.dayfile +++| WCF SUBR ENTRY/EXIT 01847 M00S01371.dayfile +++| 01848 M00S01372.dayfile +++|* PROCESS DOUBLE SPACE CONTROL. 01849 M00S01373.dayfile +++|
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | dayfil9 |
Seq # *Modification Id* Act ----------------------------+ 01850 M01S00016.dayfil9 +++| SA1 JTOP 01851 M01S00017.dayfil9 +++| NZ X1,WCF2 IF JOB TERMINATION SPECIFIED 01852 M00S01374.dayfile +++| SA1 LISF 01853 M00S01375.dayfile +++| NZ X1,WCF2 IF OUTPUT NOT PAGINATED
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dayfi14 |
Seq # *Modification Id* Act ----------------------------+ 01854 M01S00001.dayfi14 +++| SA1 SFOP CHECK FOR *OP=I* 01855 M01S00002.dayfi14 +++| SA2 =1LI 01856 M01S00003.dayfi14 +++| BX2 X1-X2 01857 M01S00004.dayfi14 +++| ZR X2,WCF0 IF *OP=I*
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | dayfil9 |
Seq # *Modification Id* Act ----------------------------+ 01858 M01S00018.dayfil9 +++| SA1 FRFO 01859 M01S00019.dayfil9 +++| ZR X1,WCFX IF *FR* NOT FOUND
| Line S01376 Modification History | |
|---|---|
M01 (Removed by) | dayfi14 |
Seq # *Modification Id* Act ----------------------------+ 01860 M01S01376.dayfi14 ---| SA1 PLPP
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | dayfi14 |
Seq # *Modification Id* Act ----------------------------+ 01861 M01S00005.dayfi14 +++| WCF0 SA1 PLPP 01862 M00S01377.dayfile +++| PL X1,WCF1 IF SPACE CONTROL NOT REQUIRED 01863 M00S01378.dayfile +++| SA2 WBUF INSERT DOUBLE SPACE 01864 M00S01379.dayfile +++| SA3 WCFA 01865 M00S01380.dayfile +++| MX0 6 01866 M00S01381.dayfile +++| BX6 -X0*X2 01867 M00S01382.dayfile +++| BX6 X6+X3 01868 M00S01383.dayfile +++| SA6 A2 01869 M00S01384.dayfile +++| 01870 M00S01385.dayfile +++|* PROCESS PAGE EJECT. 01871 M00S01386.dayfile +++| 01872 M00S01387.dayfile +++| WCF1 SA2 LINE ADVANCE LINE NUMBER 01873 M00S01388.dayfile +++| SX3 X1 LINE LIMIT 01874 M00S01389.dayfile +++| SX6 X2+B1 01875 M00S01390.dayfile +++| IX7 X3-X6 01876 M00S01391.dayfile +++| SA6 A2 01877 M00S01392.dayfile +++| PL X7,WCF2 IF NOT END OF PAGE
| Line S01393 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01878 M01S01393.ns22000 ---| LX1 59-35 SET DENSITY CONTROL 01879 M01S01394.ns22000 ---| MX0 2*6 01880 M00S01395.dayfile +++| SX6 3 RESET LINE NUMBER
| Line S01396 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01881 M01S01396.ns22000 ---| BX7 X0*X1 01882 M00S01397.dayfile +++| SA1 PAGE ADVANCE PAGE NUMBER 01883 M00S01398.dayfile +++| SA6 A2
| Line S01399 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01884 M01S01399.ns22000 ---| SA7 DENF 01885 M00S01400.dayfile +++| SX6 X1+B1 01886 M00S01401.dayfile +++| SX1 X1+B1 01887 M00S01402.dayfile +++| SA6 PAGE 01888 M00S01403.dayfile +++| RJ CDD CONVERT PAGE NUMBER 01889 M00S01404.dayfile +++| SA2 WCFB 01890 M00S01405.dayfile +++| SA1 WBUF SET PAGE INDEX 01891 M00S01406.dayfile +++| MX0 2*6 01892 M00S01407.dayfile +++| BX6 X2-X6 01893 M00S01408.dayfile +++| SA2 INDX 01894 M00S01409.dayfile +++| LX0 6 01895 M00S01410.dayfile +++| SA6 PGNO 01896 M00S01411.dayfile +++| BX7 -X0*X1 01897 M00S01412.dayfile +++| BX2 X0*X2 01898 M00S01413.dayfile +++| BX1 X7+X2 01899 M00S01414.dayfile +++| RJ SFN 01900 M00S01415.dayfile +++| SA6 INDX
| Line S00386 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01901 M01S00386.ns22000 +++| SA3 DENC 01902 M01S00387.ns22000 +++| BX6 X6-X6 01903 M01S00388.ns22000 +++| SA1 PLPP 01904 M01S00389.ns22000 +++| LX1 59-35 SET DENSITY CONTROL 01905 M01S00390.ns22000 +++| SA6 A3 DISABLE USE OF PRINT DENSITY 01906 M01S00391.ns22000 +++| MX0 2*6 01907 M01S00392.ns22000 +++| BX7 X0*X1 01908 M01S00393.ns22000 +++| SA7 DENF 01909 M01S00394.ns22000 +++| WRITEW X5,DENF,X3 CONDITIONALLY WRITE PRINT DENSITY 01910 M00S01416.dayfile +++| WRITEW X5,HEDR,HEDRL WRITE TITLE 01911 M00S01417.dayfile +++| 01912 M00S01418.dayfile +++|* LIST DAYFILE LINE. 01913 M00S01419.dayfile +++| 01914 M00S01420.dayfile +++| WCF2 WRITEC X5,WBUF WRITE CODED LINE 01915 M00S01421.dayfile +++| EQ WCFX RETURN 01916 M00S01422.dayfile +++| 01917 M00S01423.dayfile +++| WCFA CON 1L0 01918 M00S01424.dayfile +++| WCFB CON 6L PAGE &6L 01919 M00S01425.dayfile +++| WOF SPACE 4,30 01920 M00S01426.dayfile +++|** WOF - WRITE MESSAGE TO OUTPUT FILE. 01921 M00S01427.dayfile +++|* 01922 M00S01428.dayfile +++|* ENTRY (B6) = FWA OF MESSAGE. 01923 M00S01429.dayfile +++|* (B7) = LENGTH OF MESSAGE. 01924 M00S01430.dayfile +++|* (DFTY) = DAYFILE TYPE. 01925 M00S01431.dayfile +++|* (FROM) .EQ. 0 IF FULL DUMP BEING PROCESSED. 01926 M00S01432.dayfile +++|* (FROM) .NE. 0 IF PARTIAL DUMP. (SEARCH MESSAGE FOR 01927 M00S01433.dayfile +++|* MESSAGE STRING.) 01928 M00S01434.dayfile +++|* 01929 M00S01435.dayfile +++|* EXIT MESSAGE WRITTEN TO OUTPUT FILE. 01930 M00S01436.dayfile +++|* (FRFO) = 1, IF MESSAGE SEARCH STRING FOUND IN CURRENT 01931 M00S01437.dayfile +++|* MESSAGE. OTHERWISE, (FRFO) IS UNCHANGED 01932 M00S01438.dayfile +++|* FROM ENTRY. 01933 M00S01439.dayfile +++|* 01934 M00S01440.dayfile +++|* USES X - 1, 4, 5, 6, 7. 01935 M00S01441.dayfile +++|* A - 1, 4, 6, 7. 01936 M00S01442.dayfile +++|* 01937 M00S01443.dayfile +++|* CALLS SRM, WBF, WCF. 01938 M00S01444.dayfile +++|* 01939 M00S01445.dayfile +++|* MACROS REWIND. 01940 M00S01446.dayfile +++| 01941 M00S01447.dayfile +++| 01942 M00S01448.dayfile +++| WOF SUBR ENTRY/EXIT 01943 M00S01449.dayfile +++| SA1 INTR 01944 M00S01450.dayfile +++| NZ X1,DAF5 IF TERMINAL INTERRUPT 01945 M00S01451.dayfile +++| ZR B7,WOFX IF NO MESSAGE 01946 M00S01452.dayfile +++| SA1 DFTY 01947 M00S01453.dayfile +++| SX1 X1-MLTY 01948 M00S01454.dayfile +++| SX5 O SET FET = CODED OUT-FILE 01949 M00S01455.dayfile +++| NZ X1,WOF1 IF NOT BINARY FILE 01950 M00S01456.dayfile +++| SX5 B SET FET = BINARY OUT-FILE 01951 M00S01457.dayfile +++| WOF1 SA1 FROM 01952 M00S01458.dayfile +++| ZR X1,WOF3 IF SEARCH NOT NEEDED 01953 M00S01459.dayfile +++| RJ SRM SEARCH FOR MESSAGE 01954 M00S01460.dayfile +++| SX5 S SET FET = SEARCH FILE 01955 M00S01461.dayfile +++| NZ X4,WOF3 IF SEARCH FILE NOT FOUND 01956 M00S01462.dayfile +++| SA1 CMFG 01957 M00S01463.dayfile +++| SA4 I-WRD 01958 M00S01464.dayfile +++| ZR X1,WOF2 IF NOT PROCESSING CM BUFFER 01959 M00S01465.dayfile +++| ZR X4,WOF3 IF NO MORE DATA IN BUFFER 01960 M00S01466.dayfile +++| WOF2 REWIND X5,R 01961 M00S01467.dayfile +++| SA1 LISV RESTORE LIST FLAG 01962 M00S01468.dayfile +++| SX6 B1 SET *FOUND* 01963 M00S01469.dayfile +++| BX7 X1
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | dayfi11 |
Seq # *Modification Id* Act ----------------------------+ 01964 M01S00002.dayfi11 +++| SA6 DENC 01965 M00S01470.dayfile +++| SA6 FRFO 01966 M00S01471.dayfile +++| SA1 WCWC BML LINK RECOVERY 01967 M00S01472.dayfile +++| SA7 LISF 01968 M00S01473.dayfile +++| SX6 PLEN RESET LINE COUNT 01969 M00S01474.dayfile +++| BX7 X7-X7 RESET PAGE COUNT 01970 M00S01475.dayfile +++| SA6 LINE 01971 M00S01476.dayfile +++| SA7 PAGE 01972 M00S01477.dayfile +++| BX6 X1 01973 M00S01478.dayfile +++| SA6 WCWD 01974 M00S01479.dayfile +++| WOF3 SA1 DFTY 01975 M00S01480.dayfile +++| SX1 X1-MLTY 01976 M00S01481.dayfile +++| NZ X1,WOF4 IF NOT BINARY FILE 01977 M00S01482.dayfile +++| RJ WBF WRITE BINARY FILE 01978 M00S01483.dayfile +++| EQ WOFX RETURN 01979 M00S01484.dayfile +++| 01980 M00S01485.dayfile +++| WOF4 RJ WCF WRITE CODED FILE 01981 M00S01486.dayfile +++| EQ WOFX RETURN 01982 M00S01487.dayfile +++| WUP SPACE 4,20 01983 M00S01488.dayfile +++|** WUP - WRAP UP PROCESSING. 01984 M00S01489.dayfile +++|*
| Line S01490 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01985 M01S01490.ns22000 ---|* ENTRY (DFTY) = DAYFILE TYPE. 01986 M01S01491.ns22000 ---|* (EMSG) = ADDRESS OF *DAYFILE DUMPED* MESSAGE.
| Line S00395 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01987 M01S00395.ns22000 +++|* ENTRY (INAM) = 0, IF PROCESSING ACTIVE DAYFILE. 01988 M01S00396.ns22000 +++|* .NE. 0, IF PROCESSING LOCAL FILE. 01989 M00S01492.dayfile +++|* (FRFO) = 0, IF *FR* MESSAGE NOT FOUND. 01990 M00S01493.dayfile +++|* .NE. 0, IF FOUND. 01991 M00S01494.dayfile +++|* (INAM) = 0, IF PROCESSING ACTIVE DAYFILE. 01992 M00S01495.dayfile +++|* .NE. 0, IF PROCESSING LOCAL COPY OF DAYFILE.
| Line S01496 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01993 M01S01496.ns22000 ---|* (NTAB) = FWA OF ENTRY POINT NAME TABLE. 01994 M01S01497.ns22000 ---|* (SFOP) = SEARCH FIELD OPTION (*OP=*). 01995 M01S01498.ns22000 ---|* 01996 M01S01499.ns22000 ---|* EXIT TERMINATION MESSAGES ISSUED. 01997 M01S01500.ns22000 ---|* FILES RETURNED.
| Line S00397 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01998 M01S00397.ns22000 +++|* 01999 M01S00398.ns22000 +++|* EXIT FILES RETURNED. 02000 M01S00399.ns22000 +++|* *NOT FOUND* MESSAGE ISSUED IF NECESSARY. 02001 M00S01501.dayfile +++|* 02002 M00S01502.dayfile +++|* USES X - 1, 2, 5, 6. 02003 M00S01503.dayfile +++|* A - 1, 2, 5, 6. 02004 M00S01504.dayfile +++|* B - 7. 02005 M00S01505.dayfile +++|*
| Line S01506 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02006 M01S01506.ns22000 ---|* MACROS MESSAGE, RETURN. 02007 M01S01507.ns22000 ---|* 02008 M01S01508.ns22000 ---|* DEFINE (B7) = DAYFILE MESSAGE CODE. 02009 M01S01509.ns22000 ---|* 0 = PLACE MESSAGE IN SYSTEM AND USER DAYFILES, 02010 M01S01510.ns22000 ---|* AND DISPLAY AT LINE 1 OF CONTROL POINT. 02011 M01S01511.ns22000 ---|* 3 = PLACE MESSAGE IN USER DAYFILE AND DISPLAY 02012 M01S01512.ns22000 ---|* AT LINE 1 OF CONTROL POINT.
| Line S00400 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02013 M01S00400.ns22000 +++|* MACROS RETURN. 02014 M00S01513.dayfile +++| 02015 M00S01514.dayfile +++| 02016 M00S01515.dayfile +++| WUP SUBR ENTRY/EXIT
| Line S01516 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02017 M01S01516.ns22000 ---| SA5 EMSG ISSUE *END* MESSAGE 02018 M01S01517.ns22000 ---| UX5,B7 X5 02019 M01S01518.ns22000 ---| SA1 INAM 02020 M01S01519.ns22000 ---| ZR X1,WUP0 IF PROCESSING ACTIVE DAYFILE 02021 M01S01520.ns22000 ---| SA1 DFTY ADD ENTRY POINT NAME TO MESSAGE 02022 M01S01521.ns22000 ---| SA2 NTAB+X1 02023 M01S01522.ns22000 ---| BX6 X2 02024 M01S01523.ns22000 ---| SA6 WUPA 02025 M01S01524.ns22000 ---| SX5 A6 RESET ADDRESS OF END MESSAGE 02026 M01S01525.ns22000 ---| SB7 0 RESET MESSAGE CODE 02027 M01S01526.ns22000 ---| WUP0 MESSAGE X5,B7 02028 M00S01527.dayfile +++| SA1 FRFO 02029 M00S01528.dayfile +++| NZ X1,WUP1 IF STRING FOUND 02030 M00S01529.dayfile +++| SA1 SFOP SUPPRESS *NOT FOUND* MESSAGE IF OP=I SET 02031 M00S01530.dayfile +++| LX1 5-59 02032 M00S01531.dayfile +++| SX1 X1-1RI 02033 M00S01532.dayfile +++| ZR X1,WUP1 IF OP=I SET 02034 M00S01533.dayfile +++| MESSAGE (=C/ *FR* NOT FOUND./) 02035 M00S01534.dayfile +++| WUP1 RETURN S 02036 M00S01535.dayfile +++| SA1 INAM 02037 M00S01536.dayfile +++| NZ X1,WUPX IF I=LFN SPECIFIED 02038 M00S01537.dayfile +++| RETURN I 02039 M00S01538.dayfile +++| EQ WUPX RETURN
| Line S01539 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02040 M01S01539.ns22000 ---| 02041 M01S01540.ns22000 ---| WUPA DATA 40C XXXXXXX - LOCAL DAYFILE PROCESSED. 02042 M01S01541.ns22000 ---| TSF SPACE 4,15
| Line S01542 Modification History | |
|---|---|
M01 (Removed by) | dayfil7 |
Seq # *Modification Id* Act ----------------------------+ 02043 M01S01542.dayfil7 ---| SPACE 4
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | dayfil7 |
Seq # *Modification Id* Act ----------------------------+ 02044 M01S00013.dayfil7 +++| SPACE 4,10
| Line S01543 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02045 M01S01543.ns22000 ---|* COMMON DECKS.
| Line S00401 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02046 M01S00401.ns22000 +++|** COMMON DECKS. 02047 M00S01544.dayfile +++| 02048 M00S01545.dayfile +++| 02049 M00S01546.dayfile +++|*CALL COMCCDD 02050 M00S01547.dayfile +++|*CALL COMCCIO 02051 M00S01548.dayfile +++|*CALL COMCLFM 02052 M00S01549.dayfile +++|*CALL COMCMVE 02053 M00S01550.dayfile +++|*CALL COMCRDC 02054 M00S01551.dayfile +++|*CALL COMCRDO 02055 M00S01552.dayfile +++|*CALL COMCRDW 02056 M00S01553.dayfile +++|*CALL COMCSFM 02057 M00S01554.dayfile +++|*CALL COMCSFN
| Line S00402 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02058 M01S00402.ns22000 +++|*CALL COMCSTF 02059 M00S01555.dayfile +++|*CALL COMCSYS 02060 M00S01556.dayfile +++|*CALL COMCWTC 02061 M00S01557.dayfile +++|*CALL COMCWTO 02062 M00S01558.dayfile +++|*CALL COMCWTW 02063 M00S01559.dayfile +++| TITLE SPECIAL ENTRIES AND BUFFERS. 02064 M00S01560.dayfile +++|* SPECIAL ENTRY POINTS. 02065 M00S01561.dayfile +++| 02066 M00S01562.dayfile +++| 02067 M00S01563.dayfile +++| ARG= BSS 0 DISABLE ARGUMENT CRACKING 02068 M00S01564.dayfile +++| 02069 M00S01565.dayfile +++|* BUFFERS. 02070 M00S01566.dayfile +++| 02071 M00S01567.dayfile +++| USE BUFFERS 02072 M00S01568.dayfile +++| SEG 02073 M00S01569.dayfile +++| SPACE 4,15 02074 M00S01570.dayfile +++|** *W* CONTROL WORD. 02075 M00S01571.dayfile +++|* 02076 M00S01572.dayfile +++|*T W-WORD 1/P,1/F,1/D,13/,2/C,18/ B-LINK,6/,18/ F-LINK
Figure W-WORD
02077 M00S01573.dayfile +++|* 02078 M00S01574.dayfile +++|* P = PARITY BIT (MAINTAINS ODD PARITY OF WORD). 02079 M00S01575.dayfile +++|* F = RECORD FLAG (0 = NORMAL RECORD). 02080 M00S01576.dayfile +++|* D = DELETE BIT (0 = ACTIVE RECORD). 02081 M00S01577.dayfile +++|* C = CONTINUATION FLAGS (0 = COMPLETE RECORD). 02082 M00S01578.dayfile +++|* B-LINK = BACKWARD LINK (WORD COUNT OF PREVIOUS RECORD + 1). 02083 M00S01579.dayfile +++|* F-LINK = FORWARD LINK (WORD COUNT NOT INCLUDING *W* WORD). 02084 M00S01580.dayfile +++| 02085 M00S01581.dayfile +++| WCWC VFD 1/0,1/0,1/0,13/0,2/0,18/0,6/0,18/-1 RECOVERY 02086 M00S01582.dayfile +++| WCWD VFD 1/0,1/0,1/0,13/0,2/0,18/0,6/0,18/-1 02087 M00S01583.dayfile +++| 02088 M00S01584.dayfile +++| WBUF EQU WCWD+1 WORKING BUFFER (MUST FOLLOW W-WORD) 02089 M00S01585.dayfile +++| SBUF EQU WBUF+WBUFL SCRATCH BUFFER 02090 M00S01586.dayfile +++| RBUF EQU SBUF+SBUFL REMAINDER CONCATINATION BUFFER 02091 M00S01587.dayfile +++| BCWD EQU RBUF+WBUFL CIO CONTROL WORD FOR BML PRU-S 02092 M00S01588.dayfile +++| CBUF EQU BCWD+1 BUFFER FOR CM PORTION OF DAYFILE 02093 M00S01589.dayfile +++| IBUF EQU CBUF+CBUFL IN BUFFER 02094 M00S01590.dayfile +++| OBUF EQU IBUF+IBUFL OUTPUT BUFFER
| Line S00403 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02095 M01S00403.ns22000 +++| EBUF EQU OBUF EST BUFFER - USED IN PRESET ONLY 02096 M00S01591.dayfile +++| 02097 M00S01592.dayfile +++|
| Line S01593 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02098 M01S01593.ns22000 ---| RFL= EQU OBUF+OBUFL RUNNING FIELD LENGTH
| Line S00404 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02099 M01S00404.ns22000 +++| .RFL MAX OBUF+OBUFL,EBUF+EBUFL 02100 M01S00405.ns22000 +++| RFL= EQU .RFL REQUIRED FIELD LENGTH 02101 M00S01594.dayfile +++| SPACE 4,10 02102 M00S01595.dayfile +++| ERRNG JTFL*100B-RFL= IF OVERFLOW MAXIMUM JOB TERMINATION FL 02103 M00S01596.dayfile +++| PRS TITLE PRESET. 02104 M00S01597.dayfile +++|** PRS - PRESET. 02105 M00S01598.dayfile +++|* 1. SET TERMINATION MESSAGE, PAGE TITLE. 02106 M00S01599.dayfile +++|* 2. VALIDATE ACCESS TO DAYFILE.
| Line S01600 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02107 M01S01600.v23l617 ---|* 3. PROCESS CONTROL CARD ARGUMENTS.
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02108 M01S00023.v23l617 +++|* 3. PROCESS THE COMMAND ARGUMENTS. 02109 M00S01601.dayfile +++|* 4. DISABLE TERMINAL CONTROL IF NEEDED. 02110 M00S01602.dayfile +++|* 5. SET PAGE TITLE INFORMATION IF NEEDED.
| Line S01603 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02111 M01S01603.ns22000 ---|* 6. RESPECTIVE DAYFILE ACCESSED. 02112 M00S01604.dayfile +++|*
| Line S01605 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02113 M01S01605.ns22000 ---|* ENTRY (X1) = 10H DAYFILE TYPE FOR PAGE TITLE. 02114 M01S01606.ns22000 ---|* (X4) = ADDRESS OF TERMINATION MESSAGE. 02115 M01S01607.ns22000 ---|* (X6) = ADDRESS OF DAYFILE MESSAGE. 02116 M01S01608.ns22000 ---|* (B7) = DAYFILE MESSAGE CODE. 02117 M01S01609.ns22000 ---|* 0 = PLACE MESSAGE IN SYSTEM AND USER DAYFILES, 02118 M01S01610.ns22000 ---|* AND DISPLAY AT LINE 1 OF CONTROL POINT. 02119 M01S01611.ns22000 ---|* 3 = PLACE MESSAGE IN USER DAYFILE AND DISPLAY 02120 M01S01612.ns22000 ---|* AT LINE 1 OF CONTROL POINT. 02121 M01S01613.ns22000 ---|* (DFTY) = DAYFILE TYPE.
| Line S00406 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02122 M01S00406.ns22000 +++|* ENTRY (X4) = ADDRESS OF SEARCH STRING FOR PARTIAL DUMP. 02123 M01S00407.ns22000 +++|* (DFTY) = DAYFILE TYPE.
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | dayfil7 |
Seq # *Modification Id* Act ----------------------------+ 02124 M01S00014.dayfil7 +++|* (ENPT) = ENTRY POINT NAME. 02125 M00S01614.dayfile +++|* 02126 M00S01615.dayfile +++|* EXIT TO *ERR* IF ARGUMENT OR FORMAT ERROR. 02127 M00S01616.dayfile +++|* 02128 M00S01617.dayfile +++|* USES X - ALL. 02129 M00S01618.dayfile +++|* A - 0, 1, 2, 3, 5, 6, 7. 02130 M00S01619.dayfile +++|* B - 1, 2, 3, 4, 6, 7. 02131 M00S01620.dayfile +++|*
| Line S01621 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02132 M01S01621.ns22000 ---|* CALLS ARM, CPA, CRN, DXB, FNB, OPN, PDR, SDO, SSM, STF, USB.
| Line S00408 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02133 M01S00408.ns22000 +++|* CALLS ARM, CPA, CRN, DXB, FNB, IPP, OPN, PDR, SDO, 02134 M01S00409.ns22000 +++|* SSM, STF, USB. 02135 M00S01622.dayfile +++|*
| Line S01623 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02136 M01S01623.ns22000 ---|* MACROS CLOCK, DATE, DISTC, EVICT, MOVE.
| Line S00410 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02137 M01S00410.ns22000 +++|* MACROS CLOCK, DATE, DISTC, EVICT, GETJN, MOVE, SYSTEM, 02138 M01S00411.ns22000 +++|* WRITEW. 02139 M00S01624.dayfile +++| 02140 M00S01625.dayfile +++| 02141 M00S01626.dayfile +++| PRS SUBR ENTRY/EXIT
| Line S01627 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02142 M01S01627.ns22000 ---| 02143 M01S01628.ns22000 ---|* SET TEXT DEPENDING UPON WHICH ENTRY WAS CALLED. 02144 M01S01629.ns22000 ---| 02145 M00S01630.dayfile +++| SB1 1 SET CONSTANT
| Line S01631 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02146 M01S01631.ns22000 ---| PX7 X6,B7 SET MESSAGE ADDRESS, DESTINATION 02147 M01S01632.ns22000 ---| BX6 X1 SET TITLE 02148 M01S01633.ns22000 ---| SA7 EMSG 02149 M01S01634.ns22000 ---| SA6 TYPE 02150 M01S01635.ns22000 ---| SA6 DAFA+1 02151 M00S01636.dayfile +++| MOVE 3,X4,IBUF
| Line S00412 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02152 M01S00412.ns22000 +++| 02153 M01S00413.ns22000 +++|* GET PAGE PARAMETERS. 02154 M01S00414.ns22000 +++| 02155 M01S00415.ns22000 +++| RJ IPP 02156 M00S01637.dayfile +++| 02157 M00S01638.dayfile +++|* PROCESS ARGUMENTS. 02158 M00S01639.dayfile +++|
| Line S01640 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02159 M01S01640.v23l617 ---| PRS1 SB2 CCDR UNPACK CONTROL CARD
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02160 M01S00024.v23l617 +++| PRS1 SB2 CCDR UNPACK COMMAND 02161 M00S01641.dayfile +++| RJ USB 02162 M00S01642.dayfile +++| SA1 A6+ ASSURE TERMINATION 02163 M00S01643.dayfile +++| SX6 1R.
| Line S01644 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02164 M01S01644.v23l617 ---| SA3 B6 CHECK STATEMENT LABEL PRESENT
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02165 M01S00025.v23l617 +++| SA3 B6 CHECK COMMAND LABEL PRESENT 02166 M00S01645.dayfile +++| SA6 X1+B1 02167 M00S01646.dayfile +++| SA0 =C* ARGUMENT ERROR.* 02168 M00S01647.dayfile +++| SA2 PRSB SET SEPARATOR MASK 02169 M00S01648.dayfile +++| SB2 60 SET MAXIMUM NON-DELIMITER DISPLAY CODE 02170 M00S01649.dayfile +++| SB7 ERR SET EXIT FOR TERMINATOR CHARACTER 02171 M00S01650.dayfile +++| RJ FNB FIND NON-BLANK CHARACTER 02172 M00S01651.dayfile +++| SX4 X1-1R0 02173 M00S01652.dayfile +++| MI X4,PRS3 IF NON-NUMERIC CHARACTER 02174 M00S01653.dayfile +++| SX4 X1-1R9-1 02175 M00S01654.dayfile +++| PL X4,PRS3 IF NON-NUMERIC CHARACTER 02176 M00S01655.dayfile +++| 02177 M00S01656.dayfile +++|* SKIP *KCL* TAG. 02178 M00S01657.dayfile +++| 02179 M00S01658.dayfile +++| PRS2 RJ FNB FIND NON-BLANK CHARACTER 02180 M00S01659.dayfile +++| SB4 B5-B2 02181 M00S01660.dayfile +++| LX4 X2,B5 02182 M00S01661.dayfile +++| PL B4,PRS3 IF SEPARATOR CHARACTER 02183 M00S01662.dayfile +++| PL X4,PRS2 IF NOT SEPARATOR CHARACTER 02184 M00S01663.dayfile +++| 02185 M00S01664.dayfile +++|* SKIP POSSIBLE INITIAL SPECIAL CHARACTER OR DELIMITER. 02186 M00S01665.dayfile +++| 02187 M00S01666.dayfile +++| PRS3 RJ FNB FIND NON-BLANK CHARACTER 02188 M00S01667.dayfile +++| 02189 M00S01668.dayfile +++|* SKIP PROGRAM NAME. 02190 M00S01669.dayfile +++| 02191 M00S01670.dayfile +++| SB7 PRS8 SET EXIT FOR TERMINATOR CHARACTER 02192 M00S01671.dayfile +++| PRS4 RJ FNB FIND NON-BLANK CHARACTER 02193 M00S01672.dayfile +++| SB4 B5-B2 02194 M00S01673.dayfile +++| LX4 X2,B5 02195 M00S01674.dayfile +++| PL B4,PRS5 IF SEPARATOR CHARACTER 02196 M00S01675.dayfile +++| PL X4,PRS4 IF NOT SEPARATOR CHARACTER 02197 M00S01676.dayfile +++| 02198 M00S01677.dayfile +++|* PROCESS ARGUMENTS. 02199 M00S01678.dayfile +++|
| Line S01679 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02200 M01S01679.ns22000 ---| PRS5 SB3 TARG PROCESS ARGUMENTS 02201 M01S01680.ns22000 ---| SA1 DFTY 02202 M01S01681.ns22000 ---| SB2 TARGL 02203 M01S01682.ns22000 ---| SX1 X1-MLTY 02204 M01S01683.ns22000 ---| SX6 1L CLEAR ARGUMENTS 02205 M01S01684.ns22000 ---| NZ X1,PRS6 IF NOT MAINLOG 02206 M01S01685.ns22000 ---| SA6 TARG CLEAR OUTPUT ARGUMENT 02207 M01S01686.ns22000 ---| SA6 TARGA CLEAR PRINT DENSITY 02208 M01S01687.ns22000 ---| SA6 A6+B1 CLEAR PAGE LENGTH 02209 M01S01688.ns22000 ---| EQ PRS7 CONVERT ARGUMENTS 02210 M01S01689.ns22000 ---| 02211 M01S01690.ns22000 ---| PRS6 SA6 TARGB CLEAR BML ARGUMENT 02212 M01S01691.ns22000 ---| PRS7 SB4 PRSA CONVERT POSITIONAL ARGUMENTS
| Line S00416 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | dayfil7 |
Seq # *Modification Id* Act ----------------------------+ 02213 M02S00416.dayfil7 ---| PRS5 SA1 DFTY SET ARGUMENT TABLE ADDRESS AND LENGTH
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | dayfil7 |
Seq # *Modification Id* Act ----------------------------+ 02214 M01S00015.dayfil7 +++| PRS5 SA1 ENPT SET ARGUMENT TABLE ADDRESS AND LENGTH
| Line S00417 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02215 M01S00417.ns22000 +++| SA1 PRSD+X1-GLTY 02216 M01S00418.ns22000 +++| UX1,B2 X1 UNPACK ARGUMENT TABLE VALUES 02217 M01S00419.ns22000 +++| SB3 X1 02218 M01S00420.ns22000 +++| SB4 PRSA CONVERT POSITIONAL ARGUMENTS 02219 M00S01692.dayfile +++| RJ CPA 02220 M00S01693.dayfile +++| SA0 =C* ARGUMENT ERROR.* 02221 M00S01694.dayfile +++| NG B5,ERR IF ERROR 02222 M00S01695.dayfile +++| PL X1,PRS8 IF NO ARGUMENTS PROCESSED 02223 M00S01696.dayfile +++| SX6 B5 SET LWA OF ARGUMENTS 02224 M00S01697.dayfile +++| SB6 PRSA SET FWA OF ARGUMENTS 02225 M00S01698.dayfile +++| SA6 USBC 02226 M00S01699.dayfile +++| RJ ARM PROCESS ARGUMENTS 02227 M00S01700.dayfile +++| NZ X1,ERR IF ERROR 02228 M00S01701.dayfile +++| MX0 42 CHECK FOR RESERVED FILE 02229 M00S01702.dayfile +++| SA0 =C* RESERVED FILE NAME.* 02230 M00S01703.dayfile +++| SA3 O 02231 M00S01704.dayfile +++| BX4 X3*X0 02232 M00S01705.dayfile +++| RJ CRN 02233 M00S01706.dayfile +++| ZR X7,ERR IF RESERVED FILE NAME 02234 M00S01707.dayfile +++| 02235 M00S01708.dayfile +++|* SET DEFAULT *OP*. 02236 M00S01709.dayfile +++|
| Line S01710 Modification History | |
|---|---|
M01 (Removed by) | dayfi12 |
Seq # *Modification Id* Act ----------------------------+ 02237 M01S01710.dayfi12 ---| PRS8 SX2 O CHECK FOR TERMINAL OUTPUT FILE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dayfi12 |
Seq # *Modification Id* Act ----------------------------+ 02238 M01S00001.dayfi12 +++| PRS8 SA1 JTOP 02239 M01S00002.dayfi12 +++| NZ X1,PRS9 IF JOB TERMINATION OPTION SPECIFIED 02240 M01S00003.dayfi12 +++| SX2 O CHECK FOR TERMINAL OUTPUT FILE 02241 M00S01711.dayfile +++| RJ STF 02242 M00S01712.dayfile +++| SA6 IOUT SAVE OUTPUT FILE TYPE 02243 M00S01713.dayfile +++| SX7 B1 02244 M00S01714.dayfile +++| NZ X6,PRS9 IF NOT TERMINAL OUTPUT FILE 02245 M00S01715.dayfile +++| SA7 LISF SET NON-PAGINATED OUTPUT FLAG 02246 M00S01716.dayfile +++| SA7 PLPP SET PAGE SIZE 02247 M00S01717.dayfile +++| SA1 SEMS 02248 M00S01718.dayfile +++| NZ X1,PRS9 IF *FR* OPTION SPECIFIED 02249 M00S01719.dayfile +++| SA1 SFOP 02250 M00S01720.dayfile +++| LX1 59-0 02251 M00S01721.dayfile +++| PL X1,PRS9 IF *OP* OPTION SPECIFIED 02252 M00S01722.dayfile +++| SX6 1RI SET *OP=I* AS DEFAULT 02253 M00S01723.dayfile +++| LX6 -6 02254 M00S01724.dayfile +++| SA6 A1 02255 M00S01725.dayfile +++| 02256 M00S01726.dayfile +++|* PROCESS SEARCH OPTION. 02257 M00S01727.dayfile +++| 02258 M00S01728.dayfile +++| PRS9 RJ SDO SET DUMP OPTIONS 02259 M00S01729.dayfile +++| ZR X5,PRS12 IF NOT PARTIAL DUMP 02260 M00S01730.dayfile +++| SX6 B1 SET PARTIAL DUMP 02261 M00S01731.dayfile +++| AX5 1 CHECK FOR INCREMENTAL DUMP 02262 M00S01732.dayfile +++| SA6 FROM 02263 M00S01733.dayfile +++| NZ X5,PRS11 IF NOT INCREMENTAL DUMP 02264 M00S01734.dayfile +++| SA1 DFTY 02265 M00S01735.dayfile +++| SX1 X1-MLTY 02266 M00S01736.dayfile +++| ZR X1,PRS10 IF PROCESSING MAINTENANCE LOG 02267 M00S01737.dayfile +++| MOVE 3,IBUF,SEMS SET SEARCH MESSAGE 02268 M00S01738.dayfile +++| EQ PRS11 SET SEARCH MASK 02269 M00S01739.dayfile +++| 02270 M00S01740.dayfile +++| PRS10 SA1 IBUF+1 SET MAINTENANCE LOG SEARCH MESSAGE 02271 M00S01741.dayfile +++| BX6 X1 02272 M00S01742.dayfile +++| SA6 SEMS 02273 M00S01743.dayfile +++| PRS11 RJ SSM SET SEARCH MASK 02274 M00S01744.dayfile +++| SA1 SFOP DETERMINE IF OP=J SPECIFIED 02275 M00S01745.dayfile +++| SA2 =1LJ 02276 M00S01746.dayfile +++| BX2 X1-X2 02277 M00S01747.dayfile +++| NZ X2,PRS12 IF NOT SPECIFIED 02278 M00S01748.dayfile +++| SA1 SEMA ADJUST MASK 02279 M00S01749.dayfile +++| LX1 48 02280 M00S01750.dayfile +++| BX6 X1 02281 M00S01751.dayfile +++| SA6 A1 02282 M00S01752.dayfile +++| SA1 SEMS ADJUST SEARCH STRING 02283 M00S01753.dayfile +++| LX1 48 02284 M00S01754.dayfile +++| RJ SFN 02285 M00S01755.dayfile +++| SA6 A1 02286 M00S01756.dayfile +++| 02287 M00S01757.dayfile +++|* DISABLE TERMINAL CONTROL. 02288 M00S01758.dayfile +++| 02289 M00S01759.dayfile +++| PRS12 SA5 JOPR CHECK JOB ORIGIN 02290 M00S01760.dayfile +++| MX0 -12 02291 M00S01761.dayfile +++| LX5 -24 02292 M00S01762.dayfile +++| BX5 -X0*X5
| Line S01763 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02293 M01S01763.242l642 ---| SB7 X5-TXOT
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02294 M01S00004.242l642 +++| SB7 X5-IAOT 02295 M00S01764.dayfile +++| NZ B7,PRS13 IF NOT TERMINAL ORIGIN 02296 M00S01765.dayfile +++| DISTC ON,INTR 02297 M00S01766.dayfile +++| PRS13 SA1 IOUT
| Line S01767 Modification History | |
|---|---|
M01 (Removed by) | dayfil1 |
Seq # *Modification Id* Act ----------------------------+ 02298 M01S01767.dayfil1 ---| ZR X1,PSR17 IF INTERACTIVE TERMINAL OUTPUT
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | dayfil1 |
Seq # *Modification Id* Act ----------------------------+ 02299 M01S00003.dayfil1 +++| ZR X1,PRS17 IF INTERACTIVE TERMINAL OUTPUT 02300 M00S01768.dayfile +++| 02301 M00S01769.dayfile +++|* PROCESS PAGINATION ARGUMENTS. 02302 M00S01770.dayfile +++| 02303 M00S01771.dayfile +++| SA5 PDEN CONVERT PRINT DENSITY 02304 M00S01772.dayfile +++| SB7 B1 ASSUME DECIMAL BASE 02305 M00S01773.dayfile +++| SX6 X5 SAVE *ARGUMENT GIVEN* FLAG 02306 M00S01774.dayfile +++| BX5 X5-X6 02307 M00S01775.dayfile +++| SB6 X6 02308 M00S01776.dayfile +++| RJ DXB
| Line S01777 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02309 M01S01777.v23l617 ---| SA0 =C* ILLEGAL PRINT DENSITY FORMAT.*
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02310 M01S00026.v23l617 +++| SA0 =C* INCORRECT PRINT DENSITY FORMAT.* 02311 M00S01778.dayfile +++| NZ X4,ERR IF FORMAT ERROR
| Line S01779 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02312 M01S01779.v23l617 ---| SA0 =C* ILLEGAL PRINT DENSITY.*
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02313 M01S00027.v23l617 +++| SA0 =C* INCORRECT PRINT DENSITY.* 02314 M00S01780.dayfile +++| SB2 X6-3 02315 M00S01781.dayfile +++| SB3 X6-4 02316 M00S01782.dayfile +++| ZR B2,PRS14 IF 3 LPI 02317 M00S01783.dayfile +++| SB2 X6-6 02318 M00S01784.dayfile +++| ZR B3,PRS14 IF 4 LPI 02319 M00S01785.dayfile +++| SB3 X6-8 02320 M00S01786.dayfile +++| ZR B2,PRS14 IF 6 LPI 02321 M00S01787.dayfile +++| NZ B3,ERR IF NOT 8 LPI 02322 M00S01788.dayfile +++| PRS14 SA5 PLPP CONVERT PAGE SIZE 02323 M00S01789.dayfile +++| SA6 PDEN STORE PRINT DENSITY 02324 M00S01790.dayfile +++| SX7 X5+ UPDATE *ARGUMENT GIVEN* FLAG 02325 M00S01791.dayfile +++| BX5 X5-X7 02326 M00S01792.dayfile +++| SB6 B6+X7 02327 M00S01793.dayfile +++| RJ DXB 02328 M00S01794.dayfile +++| SA1 PDEN FIND SPACING CHARACTERISTICS
| Line S01795 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02329 M01S01795.v23l617 ---| SA0 =C* ILLEGAL PAGE SIZE FORMAT.*
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02330 M01S00028.v23l617 +++| SA0 =C* INCORRECT PAGE SIZE FORMAT.* 02331 M00S01796.dayfile +++| SA2 TPAS-1+X1 02332 M00S01797.dayfile +++| NZ X4,ERR IF FORMAT ERROR 02333 M00S01798.dayfile +++| BX7 X2 02334 M00S01799.dayfile +++| ZR X6,PRS15 IF PAGE SIZE NOT SPECIFIED 02335 M00S01800.dayfile +++| MX1 -17 02336 M00S01801.dayfile +++| BX6 -X1*X6 REPLACE PAGE SIZE 02337 M00S01802.dayfile +++| BX7 X1*X7
| Line S01803 Modification History | |
|---|---|
M01 (Removed by) | dayfil4 |
Seq # *Modification Id* Act ----------------------------+ 02338 M01S01803.dayfil4 ---| BX7 X6+X7
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | dayfil4 |
Seq # *Modification Id* Act ----------------------------+ 02339 M01S00003.dayfil4 +++| PL X7,PRS14.1 IF NOT DOUBLE SPACE 02340 M01S00004.dayfil4 +++| AX6 1 DIVIDE PAGE SIZE BY 2 FOR DOUBLE SPACE 02341 M01S00005.dayfil4 +++| PRS14.1 BX7 X6+X7 02342 M00S01804.dayfile +++| PRS15 SA7 PLPP SET PAGE SIZE 02343 M00S01805.dayfile +++| SB6 B6-2 CHECK *PD* OR *PL* SPECIFIED 02344 M00S01806.dayfile +++| ZR B6,PRS16 IF NEITHER *PD* NOR *PL* SPECIFIED 02345 M00S01807.dayfile +++| SX6 0 SET PAGINATION 02346 M00S01808.dayfile +++| SA6 LISF
| Line S01809 Modification History | |
|---|---|
M01 (Removed by) | dayfil1 |
Seq # *Modification Id* Act ----------------------------+ 02347 M01S01809.dayfil1 ---| EQ PSR17 SET UP TITLE INFORMATION
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | dayfil1 |
Seq # *Modification Id* Act ----------------------------+ 02348 M01S00004.dayfil1 +++| EQ PRS17 SET UP TITLE INFORMATION 02349 M00S01810.dayfile +++| 02350 M00S01811.dayfile +++| PRS16 SA1 O CHECK IF OUTPUT 02351 M00S01812.dayfile +++| SA2 =0LOUTPUT 02352 M00S01813.dayfile +++| MX0 42 02353 M00S01814.dayfile +++| BX6 X1-X2 02354 M00S01815.dayfile +++| BX7 X0*X6 02355 M00S01816.dayfile +++| SA7 LISF SET LIST FLAG 02356 M00S01817.dayfile +++| 02357 M00S01818.dayfile +++|* SET PAGE TITLE INFORMATION. 02358 M00S01819.dayfile +++|
| Line S01820 Modification History | |
|---|---|
M01 (Removed by) | dayfil1 |
Seq # *Modification Id* Act ----------------------------+ 02359 M01S01820.dayfil1 ---| PSR17 SA1 FROM SET DUMP MODE 02360 M01S01821.dayfil1 ---| ZR X1,PSR18 IF FULL DUMP
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | dayfil1 |
Seq # *Modification Id* Act ----------------------------+ 02361 M01S00005.dayfil1 +++| PRS17 SA1 FROM SET DUMP MODE 02362 M01S00006.dayfil1 +++| ZR X1,PRS18 IF FULL DUMP 02363 M00S01822.dayfile +++| SA1 =10H1 PARTIAL 02364 M00S01823.dayfile +++| SA2 LISF SAVE LIST FLAG 02365 M00S01824.dayfile +++| BX6 X1 02366 M00S01825.dayfile +++| BX7 X2 02367 M00S01826.dayfile +++| SA6 MODE 02368 M00S01827.dayfile +++| SA7 LISV 02369 M00S01828.dayfile +++| BX7 X7-X7 SET *NOT FOUND* 02370 M00S01829.dayfile +++| SA7 FRFO
| Line S01830 Modification History | |
|---|---|
M01 (Removed by) | dayfil1 |
Seq # *Modification Id* Act ----------------------------+ 02371 M01S01830.dayfil1 ---| PSR18 DATE DATE SET DATE
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | dayfil1 |
Seq # *Modification Id* Act ----------------------------+ 02372 M01S00007.dayfil1 +++| PRS18 DATE DATE SET DATE 02373 M00S01831.dayfile +++| CLOCK TIME SET TIME 02374 M00S01832.dayfile +++| EVICT S EVICT SCRATCH FILES 02375 M00S01833.dayfile +++| SA1 INAM 02376 M00S01834.dayfile +++| NZ X1,PRS19 IF I=LFN SPECIFIED 02377 M00S01835.dayfile +++| EVICT I,R
| Line S01836 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02378 M01S01836.ns22000 ---| PRS19 RJ OPN OPEN RESPECTIVE DAYFILE 02379 M00S01837.dayfile +++| 02380 M00S01838.dayfile +++|* PROCESS JOB TERMINATION OPTION. 02381 M00S01839.dayfile +++|
| Line S01840 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02382 M01S01840.ns22000 ---| SA1 JTOP CHECK IF OPTION ENTERED 02383 M01S01841.ns22000 ---| ZR X1,PRSX IF NOT ENTERED, RETURN
| Line S00421 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02384 M01S00421.ns22000 +++| PRS19 SA1 JTOP CHECK JOB TERMINATION FLAG 02385 M01S00422.ns22000 +++| ZR X1,PRS21 IF NOT ENTERED
| Line S01842 Modification History | |
|---|---|
M01 (Removed by) | ns2257 |
Seq # *Modification Id* Act ----------------------------+ 02386 M01S01842.ns2257 ---| GETJN JSNP SET JSN IN END OF JOB HEADER
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2257 |
Seq # *Modification Id* Act ----------------------------+ 02387 M01S00001.ns2257 +++| FILINFO PRSE CHECK FILE TYPE OF *OUTPUT* 02388 M01S00002.ns2257 +++| SA1 PRSE+1 02389 M01S00003.ns2257 +++| MX0 -6 02390 M01S00004.ns2257 +++| BX1 -X0*X1 02391 M01S00005.ns2257 +++| ZR X1,PRS19.3 IF LOCAL FILE TYPE 02392 M01S00006.ns2257 +++| SX2 X1-2 02393 M01S00007.ns2257 +++| ZR X2,PRS19.3 IF QUEUED FILE TYPE 02394 M01S00008.ns2257 +++| SX2 X1-6 02395 M01S00009.ns2257 +++| ZR X2,PRS19.3 IF PRIMARY FILE TYPE 02396 M01S00010.ns2257 +++| RETURN O,R RETURN *OUTPUT* 02397 M01S00011.ns2257 +++| PRS19.3 GETJN JSNP SET JSN IN END OF JOB HEADER
| Line S01843 Modification History | |
|---|---|
M01 (Removed by) | ns2271 |
Seq # *Modification Id* Act ----------------------------+ 02398 M01S01843.ns2271 ---| SYSTEM RSB,R,PRSC SET TITLE AND VERSION IN END OF JOB HEADER
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2271 |
Seq # *Modification Id* Act ----------------------------+ 02399 M01S00001.ns2271 +++| SX2 O 02400 M01S00002.ns2271 +++| RJ STF CHECK RESIDENCY OF OUTPUT FILE 02401 M01S00003.ns2271 +++| NZ X6,PRS19.5 IF NOT TERMINAL FILE 02402 M01S00004.ns2271 +++| RETURN X2,R 02403 M01S00005.ns2271 +++| SETFET X2,(DTY==2ROT) 02404 M01S00006.ns2271 +++| REQUEST X2,U,N MAKE SURE OUTPUT GOES TO DISK 02405 M01S00007.ns2271 +++| 02406 M01S00008.ns2271 +++| PRS19.5 SYSTEM RSB,R,PRSC SET TITLE AND VERSION IN END OF JOB HEADER 02407 M00S01844.dayfile +++| SA1 JSNP 02408 M00S01845.dayfile +++| SA2 =2L1 02409 M00S01846.dayfile +++| LX1 60D-12D 02410 M00S01847.dayfile +++| RJ SFN 02411 M00S01848.dayfile +++| BX6 X6+X2 02412 M00S01849.dayfile +++| SA6 JSNP 02413 M00S01850.dayfile +++| DATE DAT2 PUT DATE IN END OF JOB HEADER
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | dayfi10 |
Seq # *Modification Id* Act ----------------------------+ 02414 M01S00003.dayfi10 +++| CLOCK TIM2 SET END OF JOB TIME 02415 M00S01851.dayfile +++| SX0 TITL SPACE FILL TITLE AND VERSION DATA 02416 M00S01852.dayfile +++| SX5 6 02417 M00S01853.dayfile +++| PRS20 SA1 X0 READ NEXT WORD OF TITLE 02418 M00S01854.dayfile +++| RJ SFN SPACE FILL WORD 02419 M00S01855.dayfile +++| SX0 X0+B1 02420 M00S01856.dayfile +++| SA6 A1 02421 M00S01857.dayfile +++| SX5 X5-1 02422 M00S01858.dayfile +++| NZ X5,PRS20 IF NOT ALL WORDS SPACE FILLED YET 02423 M00S01859.dayfile +++| WRITEW O,HDR2,HDR2L WRITE END OF JOB HEADER 02424 M00S01860.dayfile +++| SA1 JTOP RESTORE *JT* OPTION TO REGISTER 02425 M00S01861.dayfile +++| RJ PDR PROCESS DEFERRED ROUTE
| Line S00423 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02426 M01S00423.ns22000 +++| 02427 M01S00424.ns22000 +++|* WRITE *EST* FILE, IF *GETLOG* RUN. 02428 M01S00425.ns22000 +++| 02429 M01S00426.ns22000 +++| PRS21 SA1 ENPT CHECK ENTRY POINT 02430 M01S00427.ns22000 +++| SX1 X1-GLTY 02431 M01S00428.ns22000 +++| NZ X1,PRS22 IF NOT *GETLOG* 02432 M01S00429.ns22000 +++| RJ WEF WRITE EST TO FILE 02433 M01S00430.ns22000 +++| PRS22 EQ PRSX RETURN
| Line S01862 Modification History | |
|---|---|
M01 (Removed by) | dayfil9 |
Seq # *Modification Id* Act ----------------------------+ 02434 M01S01862.dayfil9 ---| EQ PRSX RETURN 02435 M00S01863.dayfile +++| 02436 M00S01864.dayfile +++| PRSA BSS 200 02437 M00S01865.dayfile +++| 02438 M00S01866.dayfile +++| PRSB CON 40000000000033127777B SEPARATOR CHARACTER MASK 02439 M00S01867.dayfile +++| PRSC VFD 12/0,12/6,18/SYTL,18/TITL PARAMETERS FOR RSB CALL
| Line S01868 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02440 M01S01868.ns22000 ---| TARG SPACE 4 02441 M01S01869.ns22000 ---|** TARG - TABLE OF OPTION ARGUMENTS. 02442 M01S01870.ns22000 ---|* SEE *COMCMAC* MACRO *ARG* FOR FORMAT. 02443 M01S01871.ns22000 ---| 02444 M01S01872.ns22000 ---| 02445 M01S01873.ns22000 ---| TARG BSS 0 02446 M01S01874.ns22000 ---| L ARG ST,O,0,0 OUTPUT FILE NAME 02447 M01S01875.ns22000 ---| FR ARG 0,SEMS,400B,3 SEARCH FROM 02448 M01S01876.ns22000 ---| OP ARG 0,SFOP,0,1 SEARCH FIELD OPTION 02449 M01S01877.ns22000 ---| TARGA BSS 0 02450 M01S01878.ns22000 ---| PD ARG 0,PDEN,0,1 PRINT DENSITY 02451 M01S01879.ns22000 ---| PL ARG 0,PLPP,400B,1 PAGE LENGTH 02452 M01S01880.ns22000 ---| I ARG ST,INAM,0,0 IN FILE NAME 02453 M01S01881.ns22000 ---| TARGB BSS 0 02454 M01S01882.ns22000 ---| B ARG ST,BNAM,0,0 BINARY FILE NAME 02455 M01S01883.ns22000 ---| JT ARG JTOP,JTOP,0,0 JOB TERMINATION OPTION 02456 M01S01884.ns22000 ---| ARG TABLE TERMINATOR 02457 M01S01885.ns22000 ---| TARGL EQU *-TARG-1 ARGUMENT TABLE LENGTH
| Line S00431 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02458 M01S00431.ns22000 +++| PRSD BSS 0 ARGUMENT TABLE PARAMETERS 02459 M01S00432.ns22000 +++| LOC GLTY 02460 M01S00433.ns22000 +++| GLTY VFD 12/2000B+TGTLL,48/TGTL *GETLOG* 02461 M01S00434.ns22000 +++| ACTY VFD 12/2000B+TCODL,48/TCOD *AFD* 02462 M01S00435.ns22000 +++| UDTY VFD 12/2000B+TCODL,48/TCOD *DAYFILE* 02463 M01S00436.ns22000 +++| SDTY VFD 12/2000B+TCODL,48/TCOD *DFD* 02464 M01S00437.ns22000 +++| ELTY VFD 12/2000B+TCODL,48/TCOD *ELD* 02465 M01S00438.ns22000 +++| MLTY VFD 12/2000B+TMLGL,48/TMLG *MAINLOG* 02466 M01S00439.ns22000 +++| LOC *O
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2257 |
Seq # *Modification Id* Act ----------------------------+ 02467 M01S00012.ns2257 +++| PRSE VFD 42/6LOUTPUT,6/5,11/0,1/1 02468 M01S00013.ns2257 +++| BSS 4
| Line S00440 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02469 M01S00440.ns22000 +++| TGTL SPACE 4,10 02470 M01S00441.ns22000 +++|** TGTL - *GETLOG* PARAMETERS. 02471 M01S00442.ns22000 +++| 02472 M01S00443.ns22000 +++| 02473 M01S00444.ns22000 +++| TGTL BSS 0
| Line S00445 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2586 |
Seq # *Modification Id* Act ----------------------------+ 02474 M02S00445.ns2586 ---| E ARG ST,E,0,0 *EST* FILENAME 02475 M02S00446.ns2586 ---| B ARG ST,BNAM,0,0 *BML* FILENAME
| Line S00447 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02476 M01S00447.ns22000 +++| L ARG ST,O,0,0 *ERRLOG* FILENAME 02477 M01S00448.ns22000 +++| OP ARG 0,SFOP,0,1 OPTIONS 02478 M01S00449.ns22000 +++| I ARG ST,INAM,0,0 *BML* INPUT FILENAME
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2586 |
Seq # *Modification Id* Act ----------------------------+ 02479 M01S00001.ns2586 +++| B ARG ST,BNAM,0,0 *BML* FILENAME 02480 M01S00002.ns2586 +++| E ARG ST,E,0,0 *EST* FILENAME
| Line S00450 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02481 M01S00450.ns22000 +++| ARG TERMINATOR
| Line S00451 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2586 |
Seq # *Modification Id* Act ----------------------------+ 02482 M02S00451.ns2586 ---| TGTLL EQU *-TGTL
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2586 |
Seq # *Modification Id* Act ----------------------------+ 02483 M01S00003.ns2586 +++| TGTLL EQU *-TGTL-1 LENGTH OF ARGUMENT TABLE
| Line S00452 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02484 M01S00452.ns22000 +++| TMLG SPACE 4,10 02485 M01S00453.ns22000 +++|** TMLG - *MAINLOG* PARAMETERS. 02486 M01S00454.ns22000 +++| 02487 M01S00455.ns22000 +++| 02488 M01S00456.ns22000 +++| TMLG BSS 0 02489 M01S00457.ns22000 +++| VFD 6/1R ,54/ NO ARGUMENT - PLACE HOLDER 02490 M01S00458.ns22000 +++| FR ARG 0,SEMS,400B,3 *FROM* OPTION 02491 M01S00459.ns22000 +++| OP ARG 0,SFOP,0,1 OPTIONS 02492 M01S00460.ns22000 +++| VFD 6/1R ,54/0 NO ARGUMENT - PLACE HOLDER 02493 M01S00461.ns22000 +++| VFD 6/1R ,54/0 NO ARGUMENT - PLACE HOLDER 02494 M01S00462.ns22000 +++| I ARG ST,INAM,0,0 *BML* INPUT FILENAME 02495 M01S00463.ns22000 +++| B ARG ST,BNAM,0,0 *BML* FILENAME 02496 M01S00464.ns22000 +++| ARG TERMINATOR
| Line S00465 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2586 |
Seq # *Modification Id* Act ----------------------------+ 02497 M02S00465.ns2586 ---| TMLGL EQU *-TMLG
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2586 |
Seq # *Modification Id* Act ----------------------------+ 02498 M01S00004.ns2586 +++| TMLGL EQU *-TMLG-1 LENGTH OF ARGUMENT TABLE
| Line S00466 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02499 M01S00466.ns22000 +++| TCOM SPACE 4,10 02500 M01S00467.ns22000 +++|** TCOD - CODED PARAMETERS. 02501 M01S00468.ns22000 +++|* 02502 M01S00469.ns22000 +++|* THIS TABLE IS USED BY THE CODED DAYFILE PROCESSORS. 02503 M01S00470.ns22000 +++| 02504 M01S00471.ns22000 +++| 02505 M01S00472.ns22000 +++| TCOD BSS 0 02506 M01S00473.ns22000 +++| L ARG ST,O,0,0 OUTPUT FILENAME 02507 M01S00474.ns22000 +++| FR ARG 0,SEMS,400B,3 *FROM* OPTION 02508 M01S00475.ns22000 +++| OP ARG 0,SFOP,0,1 OPTIONS 02509 M01S00476.ns22000 +++| PD ARG 0,PDEN,0,1 PRINT DENSITY 02510 M01S00477.ns22000 +++| PL ARG 0,PLPP,400B,1 PAGE LENGTH 02511 M01S00478.ns22000 +++| I ARG ST,INAM,0,0 INPUT FILENAME 02512 M01S00479.ns22000 +++| JT ARG JTOP,JTOP,0,0 JOB TERMINATION OPTION 02513 M01S00480.ns22000 +++| ARG TERMINATOR
| Line S00481 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2586 |
Seq # *Modification Id* Act ----------------------------+ 02514 M02S00481.ns2586 ---| TCODL EQU *-TCOD
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2586 |
Seq # *Modification Id* Act ----------------------------+ 02515 M01S00005.ns2586 +++| TCODL EQU *-TCOD-1 LENGTH OF ARGUMENT TABLE 02516 M00S01886.dayfile +++| 02517 M00S01887.dayfile +++| ST CON 3 DEFAULT FET STATUS 02518 M00S01888.dayfile +++| TPAS SPACE 4,10 02519 M00S01889.dayfile +++|** TPAS - TABLE OF PAGE SIZE PARAMETERS. 02520 M00S01890.dayfile +++|* INDEXED BY PRINT DENSITY VALUE. 02521 M00S01891.dayfile +++|* ONE WORD ENTRY IN FORM -
| Line S00482 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02522 M01S00482.ns22000 +++|* 02523 M01S00483.ns22000 +++|*T 1/A,23/ ,18/ FMT,18/ DIV INITIAL FORM
Figure
02524 M00S01892.dayfile +++|*
| Line S01893 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02525 M01S01893.ns22000 ---|*T 1/A,23/ ,18/ FMT,18/ PAGE
Figure
| Line S00484 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02526 M01S00484.ns22000 +++|*T 1/A,23/ ,18/ FMT,18/ PAGE FINAL FORM
Figure
02527 M00S01894.dayfile +++|* 02528 M00S01895.dayfile +++|* WHERE A = 1 IF DOUBLE SPACING IS NEEDED. 02529 M00S01896.dayfile +++|* FMT = PRINT DENSITY FORMAT CONTROL CHARACTER. 02530 M00S01897.dayfile +++|* PAGE = NUMBER OF LINES PER PAGE FOR THIS DENSITY.
| Line S00485 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02531 M01S00485.ns22000 +++|* DIV = DIVISOR FOR JOB DEFAULT PAGE SIZE. 02532 M00S01898.dayfile +++| 02533 M00S01899.dayfile +++| 02534 M00S01900.dayfile +++| TPAS BSS 0 02535 M00S01901.dayfile +++| LOC 1 02536 M00S01902.dayfile +++| CON 0 02537 M00S01903.dayfile +++| CON 0
| Line S01904 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02538 M01S01904.ns22000 ---| VFD 1/1,23/0,18/2LS ,18/LINP/2 02539 M01S01905.ns22000 ---| VFD 1/1,23/0,18/2LT ,18/LPRP/2
| Line S00486 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02540 M01S00486.ns22000 +++| VFD 1/1,23/0,18/2LS ,18/2 02541 M01S00487.ns22000 +++| VFD 1/1,23/0,18/2LT ,18/2 02542 M00S01906.dayfile +++| CON 0
| Line S01907 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02543 M01S01907.ns22000 ---| VFD 1/0,23/0,18/2LS ,18/LINP
| Line S00488 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02544 M01S00488.ns22000 +++| VFD 1/0,23/0,18/2LS ,18/1 02545 M00S01908.dayfile +++| CON 0
| Line S01909 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02546 M01S01909.ns22000 ---| VFD 1/0,23/0,18/2LT ,18/LPRP
| Line S00489 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02547 M01S00489.ns22000 +++| VFD 1/0,23/0,18/2LT ,18/1 02548 M00S01910.dayfile +++| LOC *O
| Line S00490 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02549 M01S00490.ns22000 +++| CON -0 END OF LIST 02550 M00S01911.dayfile +++| CDP SPACE 4,15 02551 M00S01912.dayfile +++|** CDP - CONVERT DISPLAY TIME TO PACKED TIME. 02552 M00S01913.dayfile +++|* 02553 M00S01914.dayfile +++|* ENTRY (SEMS) = DISPLAY TIME (10H HH.MM.SS.). 02554 M00S01915.dayfile +++|* 02555 M00S01916.dayfile +++|* EXIT (SEMS) = PACKED TIME (VFD 42/0,18/HHMMSS). 02556 M00S01917.dayfile +++|* TO *ERR* IF CONVERSION ERROR. 02557 M00S01918.dayfile +++|* 02558 M00S01919.dayfile +++|* USES X - 1, 2, 3, 5, 6. 02559 M00S01920.dayfile +++|* A - 0, 1, 2, 3, 6. 02560 M00S01921.dayfile +++|* B - 4, 6, 7. 02561 M00S01922.dayfile +++|* 02562 M00S01923.dayfile +++|* CALLS DXB. 02563 M00S01924.dayfile +++| 02564 M00S01925.dayfile +++| 02565 M00S01926.dayfile +++| CDP SUBR ENTRY/EXIT 02566 M00S01927.dayfile +++| SB6 3 INITIALIZE TABLE INDEX 02567 M00S01928.dayfile +++| SB7 1 SET DECIMAL CONVERSION FLAG 02568 M00S01929.dayfile +++| CDP1 SB6 B6-1 EXTRACT 2 DISPLAY DIGITS 02569 M00S01930.dayfile +++| SA1 SEMS 02570 M00S01931.dayfile +++| SA2 CDPA+B6 02571 M00S01932.dayfile +++| SA3 CDPB+B6 02572 M00S01933.dayfile +++| BX5 X2*X1 02573 M00S01934.dayfile +++| SB4 X3+ 02574 M00S01935.dayfile +++| LX5 B4,X5 02575 M00S01936.dayfile +++| RJ DXB CONVERT DISPLAY CODE TO BINARY
| Line S01937 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02576 M01S01937.v23l617 ---| SA0 =C/ FR TIME VALUE ILLEGAL./
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02577 M01S00029.v23l617 +++| SA0 =C/ *FR* TIME VALUE INCORRECT./ 02578 M00S01938.dayfile +++| NZ X4,ERR IF CONVERSION ERROR 02579 M00S01939.dayfile +++| SA1 CDPC MERGE CONVERTED DIGITS 02580 M00S01940.dayfile +++| LX1 6 02581 M00S01941.dayfile +++| BX6 X1+X6 02582 M00S01942.dayfile +++| SA6 A1+ 02583 M00S01943.dayfile +++| NZ B6,CDP1 IF MORE 02584 M00S01944.dayfile +++| SA6 SEMS SET PACKED TIME 02585 M00S01945.dayfile +++| EQ CDPX RETURN 02586 M00S01946.dayfile +++| 02587 M00S01947.dayfile +++| 02588 M00S01948.dayfile +++| CDPA VFD 42/0,12/7777B,6/0 MASK TABLE 02589 M00S01949.dayfile +++| VFD 24/0,12/7777B,24/0 02590 M00S01950.dayfile +++| VFD 6/0,12/7777B,42/0 02591 M00S01951.dayfile +++| 02592 M00S01952.dayfile +++| CDPB CON 42D SHIFT TABLE 02593 M00S01953.dayfile +++| CON 24D 02594 M00S01954.dayfile +++| CON 6D 02595 M00S01955.dayfile +++| 02596 M00S01956.dayfile +++| CDPC BSSZ 1 CONVERSION AREA 02597 M00S01957.dayfile +++| CRN SPACE 4,15 02598 M00S01958.dayfile +++|** CRN - CHECK RESERVED NAME. 02599 M00S01959.dayfile +++|* 02600 M00S01960.dayfile +++|* ENTRY (X4) = LEFT JUSTIFIED FILE NAME. 02601 M00S01961.dayfile +++|* (A3) = FET ADDRESS OF FILE BEING CHECKED. 02602 M00S01962.dayfile +++|* 02603 M00S01963.dayfile +++|* EXIT (X7) = 0, IF RESERVED NAME. 02604 M00S01964.dayfile +++|* 02605 M00S01965.dayfile +++|* USES X - 1, 2, 3, 7. 02606 M00S01966.dayfile +++|* A - 1. 02607 M00S01967.dayfile +++|* B - 2, 3, 5. 02608 M00S01968.dayfile +++| 02609 M00S01969.dayfile +++| 02610 M00S01970.dayfile +++| CRN SUBR 02611 M00S01971.dayfile +++| SB2 I-FETL 02612 M00S01972.dayfile +++| SB5 A3 02613 M00S01973.dayfile +++| SB3 S 02614 M00S01974.dayfile +++| MX3 42 02615 M00S01975.dayfile +++| SX7 B1 INDICATE NOT RESERVED 02616 M00S01976.dayfile +++| BX4 X3*X4 02617 M00S01977.dayfile +++| ZR X4,CRNX IF ZERO FILE NAME SPECIFIED 02618 M00S01978.dayfile +++| CRN1 SB2 B2+FETL INCREMENT FET ADDRESS 02619 M00S01979.dayfile +++| EQ B2,B5,CRN1 IF FET BEING CHECKED 02620 M00S01980.dayfile +++| GT B2,B3,CRNX IF SEARCH COMPLETE 02621 M00S01981.dayfile +++| SA1 B2 SET FET FILENAME 02622 M00S01982.dayfile +++| BX2 X3*X1 02623 M00S01983.dayfile +++| BX7 X2-X4 02624 M00S01984.dayfile +++| NZ X7,CRN1 IF NOT A MATCH 02625 M00S01985.dayfile +++| EQ CRNX RETURN 02626 M00S01986.dayfile +++| FNB SPACE 4,20 02627 M00S01987.dayfile +++|** FNB - FIND NON-BLANK CHARACTER. 02628 M00S01988.dayfile +++|* 02629 M00S01989.dayfile +++|* ENTRY (B6) = NEXT CHARACTER ADDRESS. 02630 M00S01990.dayfile +++|* (B7) = EXIT ADDRESS, IF TERMINATOR ENCOUNTERED. 02631 M00S01991.dayfile +++|* 02632 M00S01992.dayfile +++|* EXIT (X1) = (B5) = NEXT NON-BLANK CHARACTER. 02633 M00S01993.dayfile +++|* (B6) = NEXT CHARACTER ADDRESS (UPDATED). 02634 M00S01994.dayfile +++|* EXIT IS MADE TO (B7), IF TERMINATOR ENCOUNTERED. 02635 M00S01995.dayfile +++|* 02636 M00S01996.dayfile +++|* USES X - 1, 4. 02637 M00S01997.dayfile +++|* A - 1. 02638 M00S01998.dayfile +++|* B - 5, 6. 02639 M00S01999.dayfile +++| 02640 M00S02000.dayfile +++| 02641 M00S02001.dayfile +++| FNB SUBR ENTRY/EXIT 02642 M00S02002.dayfile +++| FNB1 SA1 B6 GET NEXT CHARACTER 02643 M00S02003.dayfile +++| SB6 B6+B1 02644 M00S02004.dayfile +++| SX4 X1-1R 02645 M00S02005.dayfile +++| ZR X4,FNB1 IF BLANK CHARACTER 02646 M00S02006.dayfile +++| SB5 X1+ 02647 M00S02007.dayfile +++| SX4 X1-1R. 02648 M00S02008.dayfile +++| ZR X4,FNB2 IF TERMINATOR CHARACTER 02649 M00S02009.dayfile +++| SX4 X1-1R) 02650 M00S02010.dayfile +++| NZ X4,FNBX IF NOT TERMINATOR CHARACTER, RETURN 02651 M00S02011.dayfile +++| FNB2 JP B7 TERMINATOR CHARACTER
| Line S00491 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02652 M01S00491.ns22000 +++|IPP SPACE 4,20 02653 M01S00492.ns22000 +++|** IPP - INITIALIZE PAGE PARAMETERS. 02654 M01S00493.ns22000 +++|* 02655 M01S00494.ns22000 +++|* ENTRY NONE. 02656 M01S00495.ns22000 +++|* 02657 M01S00496.ns22000 +++|* EXIT TABLE *TPAS* SET UP WITH JOB PAGE SIZE. 02658 M01S00497.ns22000 +++|* (PDEN) = JOB DEFAULT PRINT DENSITY. 02659 M01S00498.ns22000 +++|* (RFMT) = JOB DEFAULT PRINT DENSITY. 02660 M01S00499.ns22000 +++|* 02661 M01S00500.ns22000 +++|* USES A - 1, 2, 6, 7. 02662 M01S00501.ns22000 +++|* B - 6. 02663 M01S00502.ns22000 +++|* X - 0, 1, 2, 6, 7. 02664 M01S00503.ns22000 +++|* 02665 M01S00504.ns22000 +++|* MACROS GETPP. 02666 M01S00505.ns22000 +++| 02667 M01S00506.ns22000 +++| 02668 M01S00507.ns22000 +++| IPP SUBR ENTRY/EXIT 02669 M01S00508.ns22000 +++| GETPP IPPA,IPPB,PDEN GET PAGE PARAMETERS 02670 M01S00509.ns22000 +++| SA1 PDEN PRINT DENSITY SYMBOL 02671 M01S00510.ns22000 +++| SX6 1R 02672 M01S00511.ns22000 +++| LX6 54-6 02673 M01S00512.ns22000 +++| BX6 X1+X6 02674 M01S00513.ns22000 +++| SA6 RFMT SET RESTORE DENSITY 02675 M01S00514.ns22000 +++| LX1 6 02676 M01S00515.ns22000 +++| SX1 X1-1RS+6/2 NUMERIC PRINT DENSITY 02677 M01S00516.ns22000 +++| LX1 1 02678 M01S00517.ns22000 +++| SX7 X1+1BS6+1R6-6 FORM DISPLAY CODE EQUIVALENT 02679 M01S00518.ns22000 +++| LX7 59-5 02680 M01S00519.ns22000 +++| SA7 A1 02681 M01S00520.ns22000 +++| SA2 IPPB GET JOB PAGE SIZE 02682 M01S00521.ns22000 +++| SA1 TPAS SET UP PAGE SIZE TABLE 02683 M01S00522.ns22000 +++| MX0 42 02684 M01S00523.ns22000 +++| IPP1 SB6 X1-1 DIVISOR - 1 = SHIFT COUNT 02685 M01S00524.ns22000 +++| NG B6,IPP2 IF UNUSED WORD 02686 M01S00525.ns22000 +++| BX1 X0*X1 02687 M01S00526.ns22000 +++| AX6 B6,X2 02688 M01S00527.ns22000 +++| BX6 X1+X6 02689 M01S00528.ns22000 +++| SA6 A1 STORE ACTUAL LINE COUNT 02690 M01S00529.ns22000 +++| IPP2 SA1 A1+B1 GET NEXT WORD IN TABLE 02691 M01S00530.ns22000 +++| NZ X1,IPP1 IF WORD IN USE 02692 M01S00531.ns22000 +++| PL X1,IPP2 IF UNUSED WORD 02693 M01S00532.ns22000 +++| EQ IPPX RETURN 02694 M01S00533.ns22000 +++| 02695 M01S00534.ns22000 +++| IPPA BSSZ 2 GETPAGE RESPONSE BLOCK 02696 M01S00535.ns22000 +++| IPPB CON 0 TEMPORARY STORAGE FOR PAGE SIZE
| Line S02012 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02697 M01S02012.ns22000 ---| OPN SPACE 4,20 02698 M01S02013.ns22000 ---|** OPN - OPEN RESPECTIVE DAYFILE. 02699 M01S02014.ns22000 ---|* 02700 M01S02015.ns22000 ---|* ENTRY (BNAM) = 0, IF BINARY OUT-FILE NAME DEFAULTED. 02701 M01S02016.ns22000 ---|* .NE. 0, IF NAME SPECIFIED. 02702 M01S02017.ns22000 ---|* (DFTY) = DAYFILE TYPE. 02703 M01S02018.ns22000 ---|* 02704 M01S02019.ns22000 ---|* EXIT RESPECTIVE DAYFILE ACCESSED. 02705 M01S02020.ns22000 ---|* BINARY FILE OPENED, IF MAINTENANCE LOG ACCESSED. 02706 M01S02021.ns22000 ---|* (BFCW) = BINARY FILE CONTROL WORD. 02707 M01S02022.ns22000 ---|* (WCDF) = DISK FILE WORD COUNT. 02708 M01S02023.ns22000 ---|* (WCCM) = CM BUFFER WORD COUNT. 02709 M01S02024.ns22000 ---|* EXITS TO SUBROUTINE *ERR*, IF ERROR DETECTED. 02710 M01S02025.ns22000 ---|* 02711 M01S02026.ns22000 ---|* USES X - 0, 1, 2, 5, 6, 7. 02712 M01S02027.ns22000 ---|* A - 0, 1, 2, 6, 7. 02713 M01S02028.ns22000 ---|* B - 4. 02714 M01S02029.ns22000 ---|* 02715 M01S02030.ns22000 ---|* CALLS STF. 02716 M01S02031.ns22000 ---|*
| Line S02032 Modification History | |
|---|---|
M01 (Removed by) | dayfil1 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02717 M02S02032.ns22000 ---|* MACROS DAYFILE, MESSAGE, READCW, READW, RECALL.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | dayfil1 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02718 M02S00008.ns22000 ---|* MACROS DAYFILE, GETJN, MESSAGE, PDATE, READCW, READW 02719 M02S00009.ns22000 ---|* RECALL.
| Line S02033 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02720 M01S02033.ns22000 ---| 02721 M01S02034.ns22000 ---| 02722 M01S02035.ns22000 ---| OPN SUBR ENTRY/EXIT 02723 M01S02036.ns22000 ---| OPN1 SA1 INAM 02724 M01S02037.ns22000 ---| ZR X1,OPN2 IF IN-FILE DEFAULTED 02725 M01S02038.ns22000 ---| 02726 M01S02039.ns22000 ---|* CHECK INPUT FILE FILE NAME. 02727 M01S02040.ns22000 ---| 02728 M01S02041.ns22000 ---| MX0 42 02729 M01S02042.ns22000 ---| SA2 OPNB SET FILE NAME IN *FILINFO* BLOCK 02730 M01S02043.ns22000 ---| BX5 X0*X1 02731 M01S02044.ns22000 ---| BX2 -X0*X2 02732 M01S02045.ns22000 ---| BX6 X5+X2 02733 M01S02046.ns22000 ---| SA6 A2+ 02734 M01S02047.ns22000 ---| FILINFO OPNB GET INFORMATION ON INPUT FILE 02735 M01S02048.ns22000 ---| SA2 OPNB+1 02736 M01S02049.ns22000 ---| MX1 -6 02737 M01S02050.ns22000 ---| AX2 6 02738 M01S02051.ns22000 ---| SA0 =C* INPUT FILE CANNOT BE EXECUTE ONLY.* 02739 M01S02052.ns22000 ---| BX2 -X1*X2 02740 M01S02053.ns22000 ---| ZR X2,ERR IF INPUT FILE IS EXECUTE ONLY 02741 M01S02054.ns22000 ---| 02742 M01S02055.ns22000 ---|* SET SPECIFIED IN-FILE FILE NAME. 02743 M01S02056.ns22000 ---| 02744 M01S02057.ns22000 ---| SA2 I 02745 M01S02058.ns22000 ---| BX2 -X0*X2 02746 M01S02059.ns22000 ---| BX6 X5+X2 02747 M01S02060.ns22000 ---| SA6 A2+ 02748 M01S02061.ns22000 ---| SX2 I 02749 M01S02062.ns22000 ---| RJ STF SET TERMINAL FILE 02750 M01S02063.ns22000 ---| SA0 =C* TTY INPUT FILE NOT ALLOWED.* 02751 M01S02064.ns22000 ---| ZR X6,ERR IF TERMINAL FILE 02752 M01S02065.ns22000 ---| EQ OPN11 INITIATE READ 02753 M01S02066.ns22000 ---| 02754 M01S02067.ns22000 ---|* ACCESS RESPECTIVE DAYFILE. 02755 M01S02068.ns22000 ---| 02756 M01S02069.ns22000 ---| OPN2 SA1 DFTY 02757 M01S02070.ns22000 ---| SB4 X1-ACTY 02758 M01S02071.ns22000 ---| NZ B4,OPN3 IF NOT ACCOUNT 02759 M01S02072.ns22000 ---| DAYFILE I,ACCOUNT 02760 M01S02073.ns22000 ---| EQ OPN7 CHECK CM BUFFER 02761 M01S02074.ns22000 ---| 02762 M01S02075.ns22000 ---| OPN3 SB4 X1-UDTY 02763 M01S02076.ns22000 ---| NZ B4,OPN4 IF NOT USER DAYFILE 02764 M01S02077.ns22000 ---| DAYFILE I,USER 02765 M01S02078.ns22000 ---| EQ OPN7 CHECK CM BUFFER 02766 M01S02079.ns22000 ---| 02767 M01S02080.ns22000 ---| OPN4 SB4 X1-SDTY 02768 M01S02081.ns22000 ---| NZ B4,OPN5 IF NOT SYSTEM DAYFILE 02769 M01S02082.ns22000 ---| DAYFILE I,DAYFILE 02770 M01S02083.ns22000 ---| EQ OPN7 CHECK CM BUFFER 02771 M01S02084.ns22000 ---| 02772 M01S02085.ns22000 ---| OPN5 SB4 X1-ELTY 02773 M01S02086.ns22000 ---| NZ B4,OPN6 IF NOT ERROR LOG 02774 M01S02087.ns22000 ---| DAYFILE I,ERRLOG 02775 M01S02088.ns22000 ---| EQ OPN7 CHECK CM BUFFER 02776 M01S02089.ns22000 ---| 02777 M01S02090.ns22000 ---| OPN6 DAYFILE I,MAINLOG 02778 M01S02091.ns22000 ---| OPN7 SA1 X2 CHECK ERROR STATUS 02779 M01S02092.ns22000 ---| MX0 -4 02780 M01S02093.ns22000 ---| LX1 -10 02781 M01S02094.ns22000 ---| BX2 -X0*X1 02782 M01S02095.ns22000 ---| ZR X2,OPN8 IF DAYFILE ATTACHED 02783 M01S02096.ns22000 ---| SX2 X2-DFB 02784 M01S02097.ns22000 ---| SA0 =C* UNABLE TO ACCESS DAYFILE.* 02785 M01S02098.ns22000 ---| NZ X2,ERR IF NOT *DAYFILE BUSY* ERROR 02786 M01S02099.ns22000 ---| RECALL 02787 M01S02100.ns22000 ---| MESSAGE OPNA,2 *WAITING FOR DAYFILE.* 02788 M01S02101.ns22000 ---| EQ OPN2 LOOP FOR RETRY 02789 M01S02102.ns22000 ---| 02790 M01S02103.ns22000 ---| OPN8 SA1 I+2 DETERMINE AMOUNT OF DATA IN CM BUFFER 02791 M01S02104.ns22000 ---| SA2 A1+B1 02792 M01S02105.ns22000 ---| IX6 X1-X2 02793 M01S02106.ns22000 ---| SA6 WCCM 02794 M01S02107.ns22000 ---| SA2 I+6 DETERMINE AMOUNT IN DISK FILE 02795 M01S02108.ns22000 ---| BX7 X2 02796 M01S02109.ns22000 ---| SA7 PRUS 02797 M01S02110.ns22000 ---| SX1 X6-CBUFL-1 02798 M01S02111.ns22000 ---| ZR X6,OPN10 IF CM BUFFER EMPTY 02799 M01S02112.ns22000 ---| NG X1,OPN9 IF CM BUFFER WILL FIT IN HOLD AREA 02800 M01S02113.ns22000 ---| SA0 =C* BUFFER TOO SMALL.* 02801 M01S02114.ns22000 ---| EQ ERR PROCESS ERROR 02802 M01S02115.ns22000 ---| 02803 M01S02116.ns22000 ---| OPN9 SX5 X6+ SAVE CM BUFFER LENGTH 02804 M01S02117.ns22000 ---| READW I,CBUF,X5 SAVE CM BUFFER IMAGE 02805 M01S02118.ns22000 ---| OPN10 SA1 PRUS 02806 M01S02119.ns22000 ---| ZR X1,OPN12 IF DISK FILE EMPTY 02807 M01S02120.ns22000 ---| OPN11 READCW I INITIATE DISK FILE READ 02808 M01S02121.ns22000 ---| OPN12 SA1 DFTY 02809 M01S02122.ns22000 ---| SX1 X1-MLTY 02810 M01S02123.ns22000 ---| NZ X1,OPNX IF NOT MAINTENANCE LOG
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | dayfil1 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02811 M02S00010.ns22000 ---| 02812 M02S00011.ns22000 ---|* OBTAIN THE CURRENT PACKED DATE/TIME AND THIS JOB-S JSN, AND 02813 M02S00012.ns22000 ---|* MERGE THESE FIELDS INTO THE BML ERROR MESSAGES, SHOULD AN 02814 M02S00013.ns22000 ---|* ERROR BE DETECTED. 02815 M02S00014.ns22000 ---| 02816 M02S00015.ns22000 ---| PDATE OPNC GET PACKED DATE/TIME 02817 M02S00016.ns22000 ---| GETJN OPND GET JSN 02818 M02S00017.ns22000 ---| SA1 OPNC MERGE PACKED DATE/TIME INTO MESSAGES 02819 M02S00018.ns22000 ---| SA2 BFRE 02820 M02S00019.ns22000 ---| BX6 X1+X2 02821 M02S00020.ns22000 ---| SA6 A2 02822 M02S00021.ns22000 ---| SA6 BFRS 02823 M02S00022.ns22000 ---| ERRNZ BREL-BRSL ERROR IF MESSAGE LENGTHS DIFFER 02824 M02S00023.ns22000 ---| SA1 A1+B1 JSN 02825 M02S00024.ns22000 ---| ERRNZ OPND-OPNC-1 ERROR IF FIELDS NOT ADJACENT 02826 M02S00025.ns22000 ---| MX0 24 02827 M02S00026.ns22000 ---| SA2 BFRE+1 02828 M02S00027.ns22000 ---| BX1 X0*X1 02829 M02S00028.ns22000 ---| LX1 -12 POSITION JSN 02830 M02S00029.ns22000 ---| BX6 X2+X1 MERGE JSN INTO MESSAGE 02831 M02S00030.ns22000 ---| SA6 A2 02832 M02S00031.ns22000 ---| SA6 BFRS+1
| Line S02124 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02833 M01S02124.ns22000 ---| 02834 M01S02125.ns22000 ---|* INITIATE BINARY FILE WRITE. 02835 M01S02126.ns22000 ---| 02836 M01S02127.ns22000 ---| SA1 BNAM 02837 M01S02128.ns22000 ---| ZR X1,OPN13 IF FILE NAME DEFAULTED
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | dayfil1 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02838 M02S00032.ns22000 ---| SA2 B
| Line S02129 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02839 M01S02129.ns22000 ---| MX0 42 SET FILE NAME
| Line S02130 Modification History | |
|---|---|
M01 (Removed by) | dayfil1 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02840 M02S02130.ns22000 ---| SA2 B
| Line S02131 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02841 M01S02131.ns22000 ---| BX1 X0*X1 02842 M01S02132.ns22000 ---| BX2 -X0*X2 02843 M01S02133.ns22000 ---| BX6 X1+X2 02844 M01S02134.ns22000 ---| SA6 A2+ 02845 M01S02135.ns22000 ---| OPN13 SX2 B 02846 M01S02136.ns22000 ---| RJ STF SET TERMINAL FILE 02847 M01S02137.ns22000 ---| SA0 =C* TTY BINARY OUT-FILE NOT ALLOWED.* 02848 M01S02138.ns22000 ---| ZR X6,ERR IF TERMINAL FILE 02849 M01S02139.ns22000 ---| EQ OPNX RETURN 02850 M01S02140.ns22000 ---| 02851 M01S02141.ns22000 ---| 02852 M01S02142.ns22000 ---| OPNA DATA C* WAITING FOR DAYFILE.* 02853 M01S02143.ns22000 ---| OPNB VFD 42/0,6/5,11/0,1/1 BUFFER FOR *FILINFO* CALL 02854 M01S02144.ns22000 ---| BSS 4
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | dayfil1 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02855 M02S00033.ns22000 ---| OPNC VFD 60/0 PACKED DATE/TIME 02856 M02S00034.ns22000 ---| OPND VFD 60/0 JSN 02857 M00S02145.dayfile +++| PDR SPACE 4,20 02858 M00S02146.dayfile +++|** PDR - PROCESS DEFERRED ROUTE OF FILE. 02859 M00S02147.dayfile +++|* 02860 M00S02148.dayfile +++|* POSITIONS FILE TO *EOI* IF JOB TERMINATION IN 02861 M00S02149.dayfile +++|* PROGRESS. SETS RANDOM ADDRESS IN *DSP* PARAMETER 02862 M00S02150.dayfile +++|* BLOCK. 02863 M00S02151.dayfile +++|* 02864 M00S02152.dayfile +++|* ENTRY (X1) = *JT* PARAMETER OPTION. 02865 M00S02153.dayfile +++|* 02866 M00S02154.dayfile +++|* EXIT TO ERR IF PARAMETER ERROR. 02867 M00S02155.dayfile +++|* 02868 M00S02156.dayfile +++|* USES X - 1, 2, 6. 02869 M00S02157.dayfile +++|* A - 0, 1, 2, 6. 02870 M00S02158.dayfile +++|* 02871 M00S02159.dayfile +++|* MACROS GETEOJS, SKIPEI. 02872 M00S02160.dayfile +++| 02873 M00S02161.dayfile +++| 02874 M00S02162.dayfile +++| PDR SUBR ENTRY/EXIT 02875 M00S02163.dayfile +++| SA2 DFTY GET DAYFILE PROGRAM CALL CODE 02876 M00S02164.dayfile +++| SA0 =C* ARGUMENT ERROR.* PRESET ERROR MESSAGE 02877 M00S02165.dayfile +++| SX2 X2-UDTY 02878 M00S02166.dayfile +++| NZ X2,ERR IF NOT USER DAYFILE CALL 02879 M00S02167.dayfile +++| LX1 6 02880 M00S02168.dayfile +++| SX2 1RD CHECK OPTION DEFINED 02881 M00S02169.dayfile +++| BX2 X2-X1
| Line S02170 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02882 M01S02170.v23l617 ---| SA0 =C* INVALID JOB TERMINATION OPTION.*
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02883 M01S00030.v23l617 +++| SA0 =C* INCORRECT JOB TERMINATION OPTION.* 02884 M00S02171.dayfile +++| NZ X2,ERR IF NOT *D* OPTION 02885 M00S02172.dayfile +++| 02886 M00S02173.dayfile +++|* CHECK IF END OF JOB PROCESSING. 02887 M00S02174.dayfile +++| 02888 M00S02175.dayfile +++| GETEOJS PDRB GET END OF JOB STATUS 02889 M00S02176.dayfile +++| SA1 PDRB READ REPLY WORD 02890 M00S02177.dayfile +++| SA2 PDRA+1
| Line S02178 Modification History | |
|---|---|
M01 (Removed by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02891 M01S02178.ns2635 ---| SX6 X1-40B CHECK FOR TERMINATION IN PROGRESS
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02892 M01S00002.ns2635 +++| SX6 X1-100B CHECK FOR TERMINATION IN PROGRESS 02893 M00S02179.dayfile +++| NG X6,PDR1 IF TERMINATION NOT IN PROGRESS 02894 M00S02180.dayfile +++| MX6 -12 CLEAR DISPOSITION CODE AND ASSOCIATED BIT 02895 M00S02181.dayfile +++| SX1 21B 02896 M00S02182.dayfile +++| LX6 24 02897 M00S02183.dayfile +++| BX6 X6*X2 02898 M00S02184.dayfile +++| BX6 X6-X1 02899 M00S02185.dayfile +++| SA6 A2 RESET ROUTING INFORMATION 02900 M00S02186.dayfile +++|
| Line S02187 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02901 M01S02187.ns21000 ---|* ISSUE *DSP* REQUEST TO DEFERRED ROUTE FILE.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02902 M01S00003.ns21000 +++|* SET UP *DSP* BLOCK FOR *ROUTE* REQUEST. 02903 M00S02188.dayfile +++| 02904 M00S02189.dayfile +++| PDR1 SA1 O GET FILE NAME 02905 M00S02190.dayfile +++| MX6 -18 SET NAME IN PARAMETER BLOCK 02906 M00S02191.dayfile +++| BX6 X6*X1 02907 M00S02192.dayfile +++| SA6 PDRA 02908 M00S02193.dayfile +++| SKIPEI O,R SKIP TO END OF INFORMATION 02909 M00S02194.dayfile +++| SA1 O+6 SET CURRENT RANDOM INDEX IN *DSP* BLOCK 02910 M00S02195.dayfile +++| MX0 30 02911 M00S02196.dayfile +++| BX6 X0*X1
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02912 M01S00004.ns21000 +++| LX6 -6 02913 M00S02197.dayfile +++| SA6 PDRA+7 02914 M00S02198.dayfile +++| 02915 M00S02199.dayfile +++|* CLEAR PAGINATION AS DEFAULT. 02916 M00S02200.dayfile +++| 02917 M00S02201.dayfile +++| SX6 -1 CLEAR PAGINATION 02918 M00S02202.dayfile +++| SA6 LISF 02919 M00S02203.dayfile +++| EQ PDRX RETURN 02920 M00S02204.dayfile +++| 02921 M00S02205.dayfile +++| PDRB CON 0 *GETEOJS* REPLY WORD
| Line S02206 Modification History | |
|---|---|
M01 (Removed by) | dayfil7 |
Seq # *Modification Id* Act ----------------------------+ 02922 M01S02206.dayfil7 ---| SDO SPACE 4
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | dayfil7 |
Seq # *Modification Id* Act ----------------------------+ 02923 M01S00016.dayfil7 +++| SDO SPACE 4,25 02924 M00S02207.dayfile +++|** SDO - SET DUMP OPTIONS. 02925 M00S02208.dayfile +++|* 02926 M00S02209.dayfile +++|* ENTRY (SFOP) = OPTION. 02927 M00S02210.dayfile +++|* (DFTY) = DAYFILE TYPE. 02928 M00S02211.dayfile +++|* (EMSG) = SET WITH DAYFILE CODE. 02929 M00S02212.dayfile +++|* (SEWI) = WORD INDEX OF MESSAGE FIELD FOR THIS DAYFILE. 02930 M00S02213.dayfile +++|* (SEMS) = SEARCH MESSAGE OPTION. 02931 M00S02214.dayfile +++|* 02932 M00S02215.dayfile +++|* EXIT (SEWI) = SEARCH WORD INDEX. 02933 M00S02216.dayfile +++|* (SFOP) = DUMP OPTION. 02934 M00S02217.dayfile +++|* (X5) .EQ. 0, IF FULL DUMP. 02935 M00S02218.dayfile +++|* .EQ. 1, IF INCREMENTAL DUMP. 02936 M00S02219.dayfile +++|* .GT. 1, IF PARTIAL DUMP. 02937 M00S02220.dayfile +++|* TO ERR IF DUMP OPTION ERRORS. 02938 M00S02221.dayfile +++|* 02939 M00S02222.dayfile +++|* USES X - 0, 1, 2, 5, 6. 02940 M00S02223.dayfile +++|* A - 0, 1, 2, 5, 6. 02941 M00S02224.dayfile +++|* B - 7. 02942 M00S02225.dayfile +++|* 02943 M00S02226.dayfile +++|* MACROS GETJN. 02944 M00S02227.dayfile +++| 02945 M00S02228.dayfile +++| 02946 M00S02229.dayfile +++| SDO SUBR ENTRY/EXIT 02947 M00S02230.dayfile +++| SA1 SFOP CHECK ENTRERED OPTION 02948 M00S02231.dayfile +++| SA0 =C/ UNKNOWN *OP* FIELD./ 02949 M00S02232.dayfile +++| MX0 42
| Line S02233 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02950 M01S02233.ns22000 ---| SA2 DFTY
| Line S00536 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02951 M01S00536.ns22000 +++| SA2 ENPT 02952 M01S00537.ns22000 +++| SX6 X2-GLTY 02953 M01S00538.ns22000 +++| ZR X6,SDO0.1 IF *GETLOG* 02954 M00S02234.dayfile +++| SX2 X2-MLTY 02955 M00S02235.dayfile +++| NZ X2,SDO0 IF PROCESSING CODED FILE 02956 M00S02236.dayfile +++| SA5 SDOB-1 SET INDEX FOR BINARY FILE OPTION TABLE 02957 M00S02237.dayfile +++| EQ SDO1 SEARCH TABLE 02958 M00S02238.dayfile +++| 02959 M00S02239.dayfile +++| SDO0 SA5 SDOA-1 SET INDEX FOR CODED FILE OPTION TABLE
| Line S00539 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02960 M01S00539.ns22000 +++| EQ SDO1 CONTINUE 02961 M01S00540.ns22000 +++| 02962 M01S00541.ns22000 +++| SDO0.1 SA5 SDOC-1 SET INDEX FOR *GETLOG* OPTION TABLE 02963 M00S02240.dayfile +++| SDO1 SA5 A5+B1 SEARCH TABLE 02964 M00S02241.dayfile +++| BX6 X5-X1
| Line S02242 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02965 M01S02242.v23l617 ---| ZR X5,ERR IF ILLEGAL OPTION
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02966 M01S00031.v23l617 +++| ZR X5,ERR IF INCORRECT OPTION 02967 M00S02243.dayfile +++| BX6 X0*X6 02968 M00S02244.dayfile +++| NZ X6,SDO1 IF NO COMPARE 02969 M00S02245.dayfile +++| BX6 -X0*X5 SET PROCESSOR ADDRESS 02970 M00S02246.dayfile +++| SB7 X6+
| Line S02247 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02971 M01S02247.v23l617 ---| SA5 SEMS SET FR OPTION
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02972 M01S00032.v23l617 +++| SA5 SEMS SET *FR* OPTION 02973 M00S02248.dayfile +++| JP B7 JUMP TO PROCESSOR 02974 M00S02249.dayfile +++| 02975 M00S02250.dayfile +++| SDO2 SX6 B0+ PROCESS T OPTION 02976 M00S02251.dayfile +++| SA6 SEWI SET SEARCH WORD INDEX 02977 M00S02252.dayfile +++| EQ SDO4 02978 M00S02253.dayfile +++| 02979 M00S02254.dayfile +++| SDO3 SA1 SEWI PROCESS J OPTION
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/dayfile.001.txt · Last modified: by 127.0.0.1