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
0 17 18 23 24 29 F-LINK B-LINK 30 41 42 43 44 56 57 58 59 B-LINK C D F P
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
0 17 18 29 DIV INITIAL FORM FMT 30 35 36 58 59 FMT A
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
0 17 18 29 PAGE FMT 30 35 36 58 59 FMT A
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
0 17 18 29 PAGE FINAL FORM FMT 30 35 36 58 59 FMT A
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