Seq # *Modification Id* Act
----------------------------+
01475 M00S01188.qload +++| SA5 TARA+ARFC CHECK IF *OUT* REQUEST
01476 M00S01189.qload +++| SB7 B0
01477 M00S01190.qload +++| SX5 X5-3
01478 M00S01191.qload +++| ZR X5,PRSX IF *OUT* REQUEST
01479 M00S01192.qload +++|
01480 M00S01193.qload +++|* PROCESS LOAD FILE AND CHECK FILE NAMES.
01481 M00S01194.qload +++|
01482 M00S01195.qload +++| SA3 NIQ COMPARE FILE NAMES
01483 M00S01196.qload +++| SA5 TARA+ARFN SET LOAD FILE NAME
01484 M00S01197.qload +++| MX0 42
01485 M00S01198.qload +++| SX4 B1 CLEAR BUSY STATUS
01486 M00S01199.qload +++| BX1 X6-X5
01487 M00S01200.qload +++| BX2 X6-X3
01488 M00S01201.qload +++| BX3 X5-X3
01489 M00S01202.qload +++| BX6 X4+X5
01490 M00S01203.qload +++| BX1 X0*X1
01491 M00S01204.qload +++| BX2 X0*X2
01492 M00S01205.qload +++| BX3 X0*X3
01493 M00S01206.qload +++| SA6 T
01494 M00S01207.qload +++| SB7 MES9 * FILE NAME CONFLICT.*
01495 M00S01208.qload +++| ZR X1,PRSX IF OUTPUT AND LOAD MATCH
01496 M00S01209.qload +++| ZR X2,PRSX IF OUTPUT AND *IQFT* MATCH
01497 M00S01210.qload +++| ZR X3,PRSX IF LOAD AND *IQFT* MATCH
01498 M00S01211.qload +++|
01499 M00S01212.qload +++|* SET FIELD LENGTH, TIME AND DATE.
01500 M00S01213.qload +++|
01501 M00S01214.qload +++| SA1 T+1 RESET ERROR PROCESSING BIT
01502 M00S01215.qload +++| SX6 B1
01503 M00S01216.qload +++| LX6 44
01504 M00S01217.qload +++| BX7 X6+X1
01505 M00S01218.qload +++| SA7 A1
01506 M00S01219.qload +++| DATE WPHC SET DATE IN OUTPUT HEADER
01507 M00S01220.qload +++| CLOCK WPHD SET TIME IN OUTPUT HEADER
01508 M00S01221.qload +++| SA1 PRSA CHECK IF ASSIGNED
01509 M00S01222.qload +++| NZ X1,PRS4 IF *FL* ASSIGNED
01510 M00S01223.qload +++| MEMORY CM,PRSA,R,RFL=
01511 M00S01224.qload +++|
01512 M00S01225.qload +++| PRS4 SA1 TARA+AROP CHECK FOR ACTIVE LOAD
01513 M00S01226.qload +++| SA5 LIST CHECK FOR LIST OPTION
01514 M00S01227.qload +++| SA2 TARA+ARDF CHECK DESTINATION DEVICE
01515 M00S01228.qload +++| SA3 TARA+ARDD CHECK DEVICE
01516 M00S01229.qload +++| SB7 B0+
01517 M00S01230.qload +++| NZ X5,PRSX IF LIST OPTION
| Line S01231 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01518 M01S01231.ns21000 ---| NZ X1,PRS9 IF ACTIVE LOAD
| Line S00058 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01519 M01S00058.ns21000 +++| NZ X1,PRS5 IF ACTIVE LOAD
01520 M00S01232.qload +++| SB7 MES8 * DESTINATION DEVICE REQUIRED.*
01521 M00S01233.qload +++| ZR X2,PRSX IF DESTINATION = *ALL*
01522 M00S01234.qload +++| RJ PIQ PROCESS *IQFT* FILE
01523 M00S01235.qload +++| JP PRSX RETURN
01524 M00S01236.qload +++|
01525 M00S01237.qload +++|
01526 M00S01238.qload +++| PRSA CON 0 MEMORY REQUEST WORD
01527 M00S01239.qload +++| SQF SPACE 4,20
01528 M00S01240.qload +++|** SQF - SKIP QUEUED FILE.
01529 M00S01241.qload +++|*
01530 M00S01242.qload +++|* ENTRY (NTCW) = WORDS TO NEXT CONTROL WORD.
01531 M00S01243.qload +++|* (EOR) = NON-ZERO IF EOR BLOCK.
01532 M00S01244.qload +++|*
01533 M00S01245.qload +++|* EXIT LOAD FILE POSITIONED TO NEXT RECORD.
01534 M00S01246.qload +++|* (B7) = ADDRESS OF ERROR MESSAGE IF ERROR OCCURED.
01535 M00S01247.qload +++|* (B7) = 0 IF NO ERRORS.
01536 M00S01248.qload +++|*
01537 M00S01249.qload +++|* USES A - 5, 6.
01538 M00S01250.qload +++|* B - 7.
01539 M00S01251.qload +++|* X - 1, 5, 6.
01540 M00S01252.qload +++|*
01541 M00S01253.qload +++|* CALLS PCW.
01542 M00S01254.qload +++|
01543 M00S01255.qload +++|
01544 M00S01256.qload +++| SQF SUBR ENTRY/EXIT
01545 M00S01257.qload +++| SQF1 SA5 NTCW DECREMENT WORD COUNT
01546 M00S01258.qload +++| SX1 100B
01547 M00S01259.qload +++| IX6 X5-X1
01548 M00S01260.qload +++| SA6 A5
01549 M00S01261.qload +++| MI X6,SQF2 IF .LT. 100 WORDS
01550 M00S01262.qload +++| READW T,BTB,X1 SKIP BLOCK
01551 M00S01263.qload +++| EQ SQF1 LOOP
01552 M00S01264.qload +++|
01553 M00S01265.qload +++| SQF2 ZR X5,SQF3 IF NO DATA IN BLOCK
01554 M00S01266.qload +++| READW T,BTB,X5 SKIP REMAINDER OF BLOCK
01555 M00S01267.qload +++| SQF3 READO T READ LEVEL NUMBER
01556 M00S01268.qload +++| SA5 EOR
01557 M00S01269.qload +++| SB7 B0+ CLEAR ERROR INDICATION
01558 M00S01270.qload +++| NZ X5,SQFX IF *EOR* ENCOUNTERED
01559 M00S01271.qload +++| RJ PCW PROCESS NEXT CONTROL WORD
01560 M00S01272.qload +++| PL X1,SQF1 IF NOT *EOF*
01561 M00S01273.qload +++| SB7 MES20 * PREMATURE *EOF* ENCOUNTERED.*
01562 M00S01274.qload +++| JP SQFX RETURN
01563 M00S01275.qload +++| WIQ SPACE 4,20
01564 M00S01276.qload +++|** WIQ - WRITE ENTRY TO *IQFT* FILE.
01565 M00S01277.qload +++|*
01566 M00S01278.qload +++|* ENTRY (IQFE) = *IQFT* ENTRY.
01567 M00S01279.qload +++|* (ERRF) = 0 IF FILE NOT TO BE IGNORED.
01568 M00S01280.qload +++|*
01569 M00S01281.qload +++|* EXIT ENTRY COPIED TO THE *IQFT* FILE IF INACTIVE LOAD.
01570 M00S01282.qload +++|* (X4) = 0 IF FILE NOT TO BE IGNORED.
01571 M00S01283.qload +++|*
01572 M00S01284.qload +++|* USES A - 4, 5, 6.
01573 M00S01285.qload +++|* X - 4, 5, 6.
| Line S00004 Modification History |
M01 (Added by) | ns2127 |
Seq # *Modification Id* Act
----------------------------+
01574 M01S00004.ns2127 +++|*
01575 M01S00005.ns2127 +++|* MACROS WRITEW.
01576 M01S00006.ns2127 +++|
01577 M01S00007.ns2127 +++|
01578 M00S01286.qload +++| WIQ SUBR ENTRY/EXIT
01579 M00S01287.qload +++| SA4 ERRF CHECK IF FILE IGNORED
01580 M00S01288.qload +++| SA5 TARA+AROP CHECK OPTION
01581 M00S01289.qload +++| NZ X4,WIQX IF FILE IGNORED
01582 M00S01290.qload +++| NZ X5,WIQX IF NOT INACTIVE LOAD
01583 M00S01291.qload +++| WRITEW NIQ,IQFE,QFEWL
01584 M00S01292.qload +++| SX6 B1 INDICATE DATA WRITTEN TO *IQFT* FILE
01585 M00S01293.qload +++| BX4 X4-X4 SET FILE NOT IGNORED
01586 M00S01294.qload +++| SA6 DWIQ
01587 M00S01295.qload +++| EQ WIQX RETURN
01588 M00S01296.qload +++| WOL SPACE 4,20
01589 M00S01297.qload +++|** WOL - WRITE OUTPUT LINE.
01590 M00S01298.qload +++|*
01591 M00S01299.qload +++|* ENTRY (FILE) = QUEUE FILE COUNT.
01592 M00S01300.qload +++|* (LINE) = LINE NUMBER.
01593 M00S01301.qload +++|* (IQFE)= *IQFT* ENTRY.
01594 M00S01302.qload +++|* (DSPC) = DISPOSITION CODE.
01595 M00S01303.qload +++|* (DEVN) = DEVICE NUMBER.
01596 M00S01304.qload +++|* (ERTP) = ERROR TYPE, 0 = NO ERROR.
01597 M00S01305.qload +++|* (OLDN) = OLD QUEUE FILE NAME.
01598 M00S01306.qload +++|*
01599 M00S01307.qload +++|* EXIT LINE WRITTEN TO OUTPUT FILE.
01600 M00S01308.qload +++|* FILE DISPOSITION COUNTS UPDATED.
01601 M00S01309.qload +++|*
01602 M00S01310.qload +++|* USES A - 1, 2, 3, 4, 5, 6, 7.
01603 M00S01311.qload +++|* B - 4, 7.
01604 M00S01312.qload +++|* X - ALL.
01605 M00S01313.qload +++|*
01606 M00S01314.qload +++|* CALLS FQO, WPH.
| Line S00053 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01607 M01S00053.ns22000 +++|*
01608 M01S00054.ns22000 +++|* MACROS WRITEW.
01609 M00S01315.qload +++|
01610 M00S01316.qload +++|
01611 M00S01317.qload +++| WOL SUBR ENTRY/EXIT
01612 M00S01318.qload +++| SA5 LINE
| Line S01319 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01613 M01S01319.ns22000 ---| MI X5,WOL1 IF INTIAL CALL
01614 M01S01320.ns22000 ---| SX6 X5+B1 BUMP LINE COUNT
01615 M01S01321.ns22000 ---| SX5 X5-LINP+4
01616 M01S01322.ns22000 ---| SA6 A5
01617 M01S01323.ns22000 ---| NZ X5,WOL2 IF NOT FULL PAGE
01618 M01S01324.ns22000 ---| WOL1 RJ WPH WRITE PAGE HEADER
01619 M01S01325.ns22000 ---| WOL2 SA1 FILE SET QUEUE FILE NUMBER
| Line S00055 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01620 M01S00055.ns22000 +++| SX6 X5+B1 BUMP LINE COUNT
01621 M01S00056.ns22000 +++| SA6 A5
01622 M01S00057.ns22000 +++| SA1 A5+B1
01623 M01S00058.ns22000 +++| IX7 X6-X1
01624 M01S00059.ns22000 +++| NG X7,WOL1 IF NOT FULL PAGE
01625 M01S00060.ns22000 +++| RJ WPH WRITE PAGE HEADER
01626 M01S00061.ns22000 +++| WOL1 SA1 FILE
01627 M00S01326.qload +++| SA2 OLDN SET OLD FILE NAME
01628 M00S01327.qload +++| SX6 X1+B1 INCREMENT FILE COUNT
01629 M00S01328.qload +++| MX0 24
01630 M00S01329.qload +++| BX7 X0*X2
01631 M00S01330.qload +++| SX2 IQFE SET ADDRESS OF *IQFT* ENTRY
01632 M00S01331.qload +++| SA3 DSPC GET DISPOSITION CODE
01633 M00S01332.qload +++| SB7 WOLG ADDRESS OF NULL FAMILY/DEVICE
01634 M00S01333.qload +++| SX4 X3-IGDP
01635 M00S01334.qload +++| ZR X4,WOL2.1 IF IGNORED
01636 M00S01335.qload +++| SX4 X3-LSDP
01637 M00S01336.qload +++| ZR X4,WOL2.1 IF LISTED
01638 M00S01337.qload +++| SB7 DEVN SET ADDRESS OF ASSIGNED FAMILY/DEVICE
01639 M00S01338.qload +++| WOL2.1 SA4 FLDS-1+X3 UPDATE DISPOSITION COUNT
01640 M00S01339.qload +++| SA3 X3+WOLA-1 GET DISPOSITION FIELD
01641 M00S01340.qload +++| SA5 X2
01642 M00S01341.qload +++| MX0 -36
01643 M00S01342.qload +++| BX1 -X0*X5
01644 M00S01343.qload +++| BX7 X1+X7
01645 M00S01344.qload +++| SA7 X2
01646 M00S01345.qload +++| SA6 A1
01647 M00S01346.qload +++| SX7 X4+B1
01648 M00S01347.qload +++| BX1 X6 SET LINE NUMBER
01649 M00S01348.qload +++| SA7 A4
| Line S00062 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01650 M01S00062.ns22000 +++| SX5 IQFE
01651 M00S01349.qload +++| RJ FQO FORMAT OUTPUT LINE
01652 M00S01350.qload +++| SA5 ERTP CHECK FOR ERRORS
01653 M00S01351.qload +++| NZ X5,WOL3 IF ERRORS ON FILE
01654 M00S01352.qload +++| WRITEW O,B3,B2 WRITE LINE TO OUTPUT FILE
01655 M00S01353.qload +++| BX6 X6-X6
01656 M00S01354.qload +++| SA6 ERRF
01657 M00S01355.qload +++| JP WOLX
01658 M00S01356.qload +++|
01659 M00S01357.qload +++| WOL3 SB4 B2-B1 SKIP MESSAGE TERMINATOR
01660 M00S01358.qload +++| WRITEW O,B3,B4 WRITE OUT LINE
01661 M00S01359.qload +++| SA5 ERTP APPEND ERROR MESSAGE
01662 M00S01360.qload +++| SA5 WOLB+X5-1
01663 M00S01361.qload +++| WRITEW O,X5,4
01664 M00S01362.qload +++| SX6 B0+ CLEAR ERROR MESSAGE INDICATION
01665 M00S01363.qload +++| SA6 ERTP
01666 M00S01364.qload +++| SA6 ERRF
01667 M00S01365.qload +++| JP WOLX RETURN
01668 M00S01366.qload +++|
01669 M00S01367.qload +++| WOLA BSS 0
01670 M00S01368.qload +++| LOC 1
01671 M00S01369.qload +++| IGDP DATA H*IGNORED*
01672 M00S01370.qload +++| ACDP DATA H*ACTIVE*
01673 M00S01371.qload +++| INDP DATA H*INACTIVE*
01674 M00S01372.qload +++| LSDP DATA H*LISTED*
01675 M00S01373.qload +++| LOC *O
01676 M00S01374.qload +++|
01677 M00S01375.qload +++| WOLB BSS 0
01678 M00S01376.qload +++| LOC 1
| Line S01377 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
01679 M01S01377.241l630 ---| MSER CON WOLC
| Line S00004 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
01680 M01S00004.241l630 +++| DMER CON WOLC
01681 M00S01378.qload +++| RPER CON WOLD
01682 M00S01379.qload +++| FMER CON WOLE
| Line S00006 Modification History |
M01 (Added by) | qload1 |
Seq # *Modification Id* Act
----------------------------+
01683 M01S00006.qload1 +++| VOER CON WOLF
| Line S00063 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01684 M01S00063.ns22000 +++| ALER CON WOLH
01685 M00S01380.qload +++| LOC *O
01686 M00S01381.qload +++|
01687 M00S01382.qload +++| WOLC DATA C* MASS STORAGE ERROR DURING DUMP.*
01688 M00S01383.qload +++| WOLD DATA C* READ PARITY ERROR ON LOAD FILE.*
01689 M00S01384.qload +++| WOLE DATA C* LOAD RECORD FORMAT IN ERROR. *
| Line S00007 Modification History |
M01 (Added by) | qload1 |
Seq # *Modification Id* Act
----------------------------+
01690 M01S00007.qload1 +++| WOLF DATA C* UNABLE TO LOAD VERSION 1 FILE. *
| Line S00064 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01691 M01S00064.ns22000 +++| WOLH DATA C* FILE NOT ALLOWED ON EQUIPMENT. *
01692 M00S01385.qload +++|
01693 M00S01386.qload +++| WOLG DATA 7L NULL FAMILY/DEVICE
01694 M00S01387.qload +++| TITLE SUBROUTINES.
01695 M00S01388.qload +++| ASF SPACE 4
01696 M00S01389.qload +++|** ASSIGN FILE TO MASS STORAGE.
01697 M00S01390.qload +++|*
01698 M00S01391.qload +++|* ENTRY (WBUF+1) = FIRST BLOCK OF FILE.
01699 M00S01392.qload +++|* (SSBF) = SYSTEM SECTOR FOR FILE.
01700 M00S01393.qload +++|* (ROTB) = ROUTE BLOCK FOR FILE.
01701 M00S01394.qload +++|*
01702 M00S01395.qload +++|* EXIT FILE ASSIGNED TO MASS STORAGE.
01703 M00S01396.qload +++|* NAME OF FILE CHANGED IF ACTIVATE REQUEST.
01704 M00S01397.qload +++|* (DEVN) = *TEQA* ENTRY OF ASSIGNED EQUIPMENT.
01705 M00S01398.qload +++|* (B7) = 0 IF NO ERRORS.
01706 M00S01399.qload +++|* (B7) = ADDRESS OF ERROR MESSAGE IF ERROR OCCURED.
| Line S00065 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01707 M01S00065.ns22000 +++|* (ALEF) = 1, IF INVALID ACCESS LEVEL FOR DEVICE.
01708 M00S01400.qload +++|*
01709 M00S01401.qload +++|* USES A - 2, 3, 4, 5, 6, 7.
01710 M00S01402.qload +++|* B - 6, 7.
01711 M00S01403.qload +++|* X - 0, 2, 3, 4, 5, 6, 7.
01712 M00S01404.qload +++|*
01713 M00S01405.qload +++|* CALLS GSF, WSF, *QFM*.
01714 M00S01406.qload +++|*
| Line S01407 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01715 M01S01407.ns22000 ---|* MACROS QCALL, WRITECW.
| Line S00066 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01716 M01S00066.ns22000 +++|* MACROS QCALL, STATUS, WRITECW.
01717 M00S01408.qload +++|
01718 M00S01409.qload +++|
01719 M00S01410.qload +++| ASF4 SA2 TARA+AROP
01720 M00S01411.qload +++| ZR X2,ASF6 IF INACTIVATE REQUEST
01721 M00S01412.qload +++| SA5 C SET NEW JSN
01722 M00S01413.qload +++| SX3 B1+
01723 M00S01414.qload +++| MX0 24
01724 M00S01415.qload +++| BX5 X0*X5
01725 M00S01416.qload +++| BX6 X3+X5
01726 M00S01417.qload +++| SA6 S
01727 M00S01418.qload +++| SA3 IQFE CHANGE *IQFT* ENTRY NAME
01728 M00S01419.qload +++| SA2 ROTB CHANGE NAME IN ROUTE BLOCK
01729 M00S01420.qload +++| MX0 -18
01730 M00S01421.qload +++| BX2 -X0*X2
01731 M00S01422.qload +++| MX0 -36
01732 M00S01423.qload +++| BX3 -X0*X3
01733 M00S01424.qload +++| BX7 X3+X5
01734 M00S01425.qload +++| BX6 X2+X5
01735 M00S01426.qload +++| SA7 A3
01736 M00S01427.qload +++| SA6 A2
01737 M00S01428.qload +++| ASF6 STATUS S,P CHECK EQUIPMENT ASSIGMENT
01738 M00S01429.qload +++| SA5 S+6
01739 M00S01430.qload +++| MX0 -6
01740 M00S01431.qload +++| LX5 12
01741 M00S01432.qload +++| BX6 -X0*X5
01742 M00S01433.qload +++| SA5 TEQA+X6
01743 M00S01434.qload +++| BX6 X5
01744 M00S01435.qload +++| SA6 DEVN
| Line S01436 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01745 M01S01436.ns22000 ---| MX7 1 INDICATE FILE ASSIGNED TO MASS STORAGE
| Line S00067 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01746 M01S00067.ns22000 +++| SX4 X4-NSEE
01747 M01S00068.ns22000 +++| NZ X4,ASF7 IF NOT ACCESS LEVEL ERROR
01748 M01S00069.ns22000 +++| SX6 B1+ SET ERROR FLAGS
01749 M01S00070.ns22000 +++| SA6 ALEF
01750 M01S00071.ns22000 +++| SX6 ALER
01751 M01S00072.ns22000 +++| SA6 ERTP
01752 M01S00073.ns22000 +++| EQ ASFX RETURN
01753 M01S00074.ns22000 +++|
01754 M01S00075.ns22000 +++| ASF7 MX7 1 INDICATE FILE ASSIGNED TO MASS STORAGE
01755 M00S01437.qload +++| SA7 ASSF
| Line S01438 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01756 M01S01438.ns22000 ---| SB7 B0+ CLEAR ERROR INDICATOR
| Line S00076 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01757 M01S00076.ns22000 +++| SB7 B0 CLEAR ERROR INDICATOR
01758 M00S01439.qload +++| WRITECW S,* PRESET WRITE FUNCTION
01759 M00S01440.qload +++|
01760 M00S01441.qload +++| ASF SUBR ENTRY/EXIT
01761 M00S01442.qload +++| SA5 TARA+ARDF CHECK IF DESTINATION DEFINED
01762 M00S01443.qload +++| SX6 NEEQ
01763 M00S01444.qload +++| ZR X5,ASF1 IF DESTINATION NOT DEFINED
01764 M00S01445.qload +++| SA5 TARA+ARDD GET DESTINATION DEVICE
01765 M00S01446.qload +++| SX6 X5
01766 M00S01447.qload +++| ASF1 SX5 EQSS SET EQUIPMENT IN SYSTEM SECTOR
| Line S01448 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01767 M01S01448.ns22000 ---| LX6 -12 POSITION EQUIPMENT NUMBER
| Line S00077 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01768 M01S00077.ns22000 +++| LX6 -12 POSITION EST ORDINAL
01769 M00S01449.qload +++| MX4 12
01770 M00S01450.qload +++| SB6 SSBF
01771 M00S01451.qload +++| RJ WSF WRITE SYSTEM SECTOR FIELD
01772 M00S01452.qload +++| SA1 TARA+AROP SET ACTIVATE/INACTIVATE REQUEST
01773 M00S01453.qload +++| SX6 B1
01774 M00S01454.qload +++| BX6 X1-X6
01775 M00S01455.qload +++| LX6 -11
01776 M00S01456.qload +++| SX5 GQSS
01777 M00S01457.qload +++| SB6 SSBF
01778 M00S01458.qload +++| MX4 12
01779 M00S01459.qload +++| RJ WSF WRITE SYSTEM SECTOR FIELD
01780 M00S01460.qload +++| SA1 S
01781 M00S01461.qload +++| SA2 C+1
01782 M00S01462.qload +++| BX6 X1
01783 M00S01463.qload +++| SX7 400B SET ERROR PROCESSING BIT
01784 M00S01464.qload +++| LX7 36
01785 M00S01465.qload +++| BX7 X2+X7
01786 M00S01466.qload +++| SA6 C
01787 M00S01467.qload +++| SA7 C+1
| Line S01468 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01788 M01S01468.ns21000 ---| SX7 X2+SSBFL
| Line S00059 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01789 M01S00059.ns21000 +++| SX7 X2+100B
01790 M00S01469.qload +++| SA7 C+2
01791 M00S01470.qload +++| QCALL CQFF,C CREATE FILE
01792 M00S01471.qload +++| SA5 C CHECK FOR ERRORS
01793 M00S01472.qload +++| MX0 -4
01794 M00S01473.qload +++| AX5 10
01795 M00S01474.qload +++| BX4 -X0*X5
01796 M00S01475.qload +++| ZR X4,ASF4 IF NO ERROR
01797 M00S01476.qload +++| SB7 B1 INDICATE ERROR
01798 M00S01477.qload +++| SX6 IGDP SET FILE *IGNORED*
01799 M00S01478.qload +++| SA6 DSPC
01800 M00S01479.qload +++| SA6 ERRF SET FILE ERROR FLAG
| Line S00078 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01801 M01S00078.ns22000 +++| SX2 X4-NSEE
01802 M01S00079.ns22000 +++| ZR X2,ASF4 IF ACCESS LEVEL ERROR
01803 M00S01480.qload +++| SX6 MES13 * QFT FULL DETECTED BY *QFM*.*
01804 M00S01481.qload +++| ASF3 SA6 TRMM SET TERMINATION MESSAGE
01805 M00S01482.qload +++| SX6 LSDP SET TO LIST FILES
01806 M00S01483.qload +++| SA6 LIST
01807 M00S01484.qload +++| SA6 DSPC
01808 M00S01485.qload +++| EQ ASF4 RETURN
01809 M00S01486.qload +++| SPACE 4,15
01810 M00S01487.qload +++|** CFN - CHANGE FILE NAME.
01811 M00S01488.qload +++|*
01812 M00S01489.qload +++|* EXIT (B7) = 0 IF NO ERRORS.
01813 M00S01490.qload +++|* (B7) = ADDRESS OF ERROR MESSAGE IF AN ERROR OCCURED.
01814 M00S01491.qload +++|* FILE CONVERTED TO LOCKED COMMON FILE *ERRNNN*.
01815 M00S01492.qload +++|* (ERCT) ERROR FILE COUNT UPDATED.
01816 M00S01493.qload +++|*
01817 M00S01494.qload +++|* USES A - 5, 6, 7.
01818 M00S01495.qload +++|* B - 7.
01819 M00S01496.qload +++|* X - 0, 1, 4, 5, 6, 7.
01820 M00S01497.qload +++|*
01821 M00S01498.qload +++|* CALLS CDD.
01822 M00S01499.qload +++|*
01823 M00S01500.qload +++|* MACROS QCALL.
01824 M00S01501.qload +++|
01825 M00S01502.qload +++|
01826 M00S01503.qload +++| CFN3 SB7 MES18 * *QFM* ERROR ON ERRNNN FILE.*
01827 M00S01504.qload +++|
01828 M00S01505.qload +++| CFN SUBR ENTRY/EXIT
01829 M00S01506.qload +++| CFN1 SA5 CFNA GET NEXT SEQUENCE NUMBER
01830 M00S01507.qload +++| SX6 X5+B1
01831 M00S01508.qload +++| BX1 X6
01832 M00S01509.qload +++| SX7 X5-1999
01833 M00S01510.qload +++| SA6 A5
01834 M00S01511.qload +++| SB7 MES15 * ERROR FILE LIMIT.*
01835 M00S01512.qload +++| PL X7,CFNX IF ERROR FILE LIMIT
01836 M00S01513.qload +++| RJ CDD CONVERT FILE NUMBER
01837 M00S01514.qload +++| MX0 -18
01838 M00S01515.qload +++| SA5 CFNB MERGE NAME
01839 M00S01516.qload +++| BX6 -X0*X6
01840 M00S01517.qload +++| LX6 24
01841 M00S01518.qload +++| BX7 X6+X5 FORM NEW NAME
01842 M00S01519.qload +++| SA7 S+6
01843 M00S01520.qload +++|
01844 M00S01521.qload +++|* CONVERT TO COMMON FILE.
01845 M00S01522.qload +++|
01846 M00S01523.qload +++| QCALL IQFF,Q
01847 M00S01524.qload +++| SA5 X2
01848 M00S01525.qload +++| SX0 17BS10
01849 M00S01526.qload +++| BX6 X0*X5
01850 M00S01527.qload +++| AX6 10
01851 M00S01528.qload +++| SX7 X6-DFNE
01852 M00S01529.qload +++| ZR X7,CFN2 IF DUPLICATE FILE NAME
01853 M00S01530.qload +++| NZ X6,CFN3 IF OTHER ERROR
01854 M00S01531.qload +++| SA5 EFCT UPDATE ERROR FILE COUNT
01855 M00S01532.qload +++| SB7 B0 CLEAR ERROR INDICATION
01856 M00S01533.qload +++| SX6 X5+B1
01857 M00S01534.qload +++| SA6 A5
01858 M00S01535.qload +++| JP CFNX RETURN
01859 M00S01536.qload +++|
01860 M00S01537.qload +++|* PROCESS DUPLICATE ERROR FILE NAME.
01861 M00S01538.qload +++|
01862 M00S01539.qload +++| CFN2 SA4 CFNA INCREMENT SEQUENCE NUMBER BY 10D
01863 M00S01540.qload +++| SX7 X4+10
01864 M00S01541.qload +++| SA7 A4
01865 M00S01542.qload +++| EQ CFN1 TRY A NEW FILE NAME
01866 M00S01543.qload +++|
01867 M00S01544.qload +++| CFNA DATA 999 ERROR FILE SEQUENCE NUMBER
01868 M00S01545.qload +++| CFNB DATA 3CERR
01869 M00S01546.qload +++| CRB SPACE 4
01870 M00S01547.qload +++|** CRB - CONVERT ROUTE BLOCK.
01871 M00S01548.qload +++|*
01872 M00S01549.qload +++|* ENTRY (ROTB) = ROUTE BLOCK FOR QUEUE FILE.
01873 M00S01550.qload +++|*
01874 M00S01551.qload +++|* EXIT (SSBF) = SYSTEM SECTOR IMAGE FOR FILE.
01875 M00S01552.qload +++|* (IQFE) = *IQFT* ENTRY FOR FILE.
01876 M00S01553.qload +++|* (OLDN) = OLD FILE NAME.
| Line S01554 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01877 M01S01554.ns22000 ---|* (QUTP) = FILE TYPE.
01878 M00S01555.qload +++|* FILE NAME SET IN *FET*S.
01879 M00S01556.qload +++|*
01880 M00S01557.qload +++|* USES A - 1, 3, 5, 6, 7.
01881 M00S01558.qload +++|* B - 6.
01882 M00S01559.qload +++|* X - ALL.
01883 M00S01560.qload +++|*
01884 M00S01561.qload +++|* CALLS WSF.
01885 M00S01562.qload +++|
01886 M00S01563.qload +++|
01887 M00S01564.qload +++| CRB7 SA1 IQFE SET INVALID QUEUE TYPE
01888 M00S01565.qload +++| SX6 NRQT*100B
| Line S00080 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01889 M01S00080.ns22000 +++| MX0 48
01890 M01S00081.ns22000 +++| BX1 X0*X1
01891 M00S01566.qload +++| BX6 X1+X6
01892 M00S01567.qload +++| SA6 A1
01893 M00S01568.qload +++|
01894 M00S01569.qload +++| CRB SUBR ENTRY/EXIT
01895 M00S01570.qload +++|
01896 M00S01571.qload +++|* CLEAR *IQFT* ENTRY.
01897 M00S01572.qload +++|
01898 M00S01573.qload +++| BX6 X6-X6
01899 M00S01574.qload +++| SB6 QFEWL-1 SET ENTRY LENGTH
01900 M00S01575.qload +++| CRB0 SA6 IQFE+B6
01901 M00S01576.qload +++| SB6 B6-B1
01902 M00S01577.qload +++| PL B6,CRB0 IF NOT END OF ENTRY
01903 M00S01578.qload +++|
01904 M00S01579.qload +++|* SET FILE NAME.
01905 M00S01580.qload +++|
01906 M00S01581.qload +++| SA5 ROTB GET FILE NAME
01907 M00S01582.qload +++| MX4 42
01908 M00S01583.qload +++| SX7 B1
01909 M00S01584.qload +++| BX6 X4*X5
01910 M00S01585.qload +++| BX7 X6+X7 SET FILE NAME IN *FET*S
01911 M00S01586.qload +++| SA7 S
01912 M00S01587.qload +++| SA6 IQFE SET NAME IN *IQFT* BLOCK
01913 M00S01588.qload +++| SA7 Q
01914 M00S01589.qload +++|
01915 M00S01590.qload +++|* SET SERVICE CLASS AND ORIGIN TYPE.
01916 M00S01591.qload +++|
| Line S01592 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01917 M01S01592.ns22000 ---| SA5 ROTB+1
| Line S00082 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01918 M01S00082.ns22000 +++| SA3 IQFE GET FILE NAME
01919 M01S00083.ns22000 +++| SA1 ROTB+7
01920 M01S00084.ns22000 +++| SX2 EFCU
01921 M01S00085.ns22000 +++| BX1 X2*X1
01922 M01S00086.ns22000 +++| ZR X2,CRB0.3 IF NO CREATION USER NAME
01923 M01S00087.ns22000 +++| MX0 -6 GET ORIGIN TYPE
01924 M01S00088.ns22000 +++| LX5 -1
01925 M01S00089.ns22000 +++| BX5 -X0*X5
01926 M01S00090.ns22000 +++| SA1 ROTB+4 GET SERVICE CLASS
01927 M01S00091.ns22000 +++| LX1 -36
01928 M01S00092.ns22000 +++| MX0 -12
01929 M01S00093.ns22000 +++| BX2 -X0*X1
01930 M01S00094.ns22000 +++| SX7 B1
01931 M01S00095.ns22000 +++| CRB0.1 SA1 CRBC+X7 SEARCH FOR SERVICE CLASS
01932 M01S00096.ns22000 +++| ZR X1,CRB0.3 IF END OF TABLE
01933 M01S00097.ns22000 +++| BX4 X2-X1
01934 M01S00098.ns22000 +++| ZR X4,CRB0.2 IF FOUND
01935 M01S00099.ns22000 +++| SX7 X7+B1 INCREMENT TABLE INDEX
01936 M01S00100.ns22000 +++| EQ CRB0.1 CHECK NEXT ENTRY
01937 M01S00101.ns22000 +++|
01938 M01S00102.ns22000 +++| CRB0.2 LX7 6
01939 M01S00103.ns22000 +++| IX7 X7+X5
01940 M01S00104.ns22000 +++| LX5 12
01941 M01S00105.ns22000 +++| BX6 X5
01942 M01S00106.ns22000 +++| EQ CRB1 SET UP QFT ENTRY
01943 M01S00107.ns22000 +++|
01944 M01S00108.ns22000 +++| CRB0.3 SA5 ROTB+1
01945 M00S01593.qload +++| SX6 BCOT*10000B
01946 M00S01594.qload +++| SX7 BCSC*100B+BCOT
01947 M00S01595.qload +++| LX5 59-3
01948 M00S01596.qload +++| SA3 IQFE MERGE WITH FILE NAME
01949 M00S01597.qload +++| PL X5,CRB1 IF BATCH ORIGIN
01950 M00S01598.qload +++| SX6 EIOT*10000B
01951 M00S01599.qload +++| SX7 RBSC*100B+EIOT
01952 M00S01600.qload +++| CRB1 LX7 48
01953 M00S01601.qload +++| SA7 IQFE+SCLQ
01954 M00S01602.qload +++| BX6 X3+X6
01955 M00S01603.qload +++| SA6 CRBB
01956 M00S01604.qload +++|
01957 M00S01605.qload +++|* PROCESS QUEUE TYPE.
01958 M00S01606.qload +++|
01959 M00S01607.qload +++| SA1 IQFE
01960 M00S01608.qload +++| SA5 ROTB+1
01961 M00S01609.qload +++| MX0 -12
01962 M00S01610.qload +++| AX5 24
01963 M00S01611.qload +++| BX5 -X0*X5
01964 M00S01612.qload +++| SX6 INQT
| Line S00109 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01965 M01S00109.ns22000 +++| SX7 INQF
01966 M00S01613.qload +++| SX2 X5-2RIN
01967 M00S01614.qload +++| SX3 X5-2RPU
01968 M00S01615.qload +++| ZR X2,CRB3 IF INPUT FILE
01969 M00S01616.qload +++| SX6 PHQT
| Line S00110 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01970 M01S00110.ns22000 +++| SX7 PUQF
01971 M00S01617.qload +++| ZR X3,CRB4 IF PUNCH FILE
01972 M00S01618.qload +++|
01973 M00S01619.qload +++|* PROCESS PRINT FILES.
01974 M00S01620.qload +++|
01975 M00S01621.qload +++| SX6 PRQT
| Line S01622 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01976 M01S01622.ns22000 ---| SA6 QUTP
01977 M00S01623.qload +++| LX6 6
| Line S01624 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01978 M01S01624.ns22000 ---| BX7 X6+X1
01979 M01S01625.ns22000 ---| SA7 A1
01980 M00S01626.qload +++| SA1 CRBB
01981 M00S01627.qload +++| BX6 X6+X1
01982 M00S01628.qload +++| SA6 A1
| Line S01629 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01983 M01S01629.ns22000 ---| SB6 CRBAL SEARCH FOR PRINTER CODE
| Line S00111 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01984 M01S00111.ns22000 +++| SB6 CRBAL-1
01985 M00S01630.qload +++| CRB2 SA1 CRBA+B6
01986 M00S01631.qload +++| BX4 -X0*X1
01987 M00S01632.qload +++| SB6 B6-B1
01988 M00S01633.qload +++| BX6 X4-X5 COMPARE CHARACTERS
| Line S01634 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01989 M01S01634.ns22000 ---| MI B6,CRB5 IF END OF TABLE
01990 M01S01635.ns22000 ---| NZ X6,CRB2 IF NOT A MATCH
01991 M01S01636.ns22000 ---| MI X1,CRB7 IF ILLEGAL FIELD
01992 M01S01637.ns22000 ---| EQ CRB4.1 SET EXTERNAL CHARACTERISTICS
| Line S00112 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01993 M01S00112.ns22000 +++| ZR X2,CRB2.1 IF MATCH FOUND
01994 M01S00113.ns22000 +++| PL B6,CRB2 IF MORE ENTRIES TO CHECK
01995 M01S00114.ns22000 +++| EQ CRB7 SET ERROR EXIT
01996 M01S00115.ns22000 +++|
01997 M01S00116.ns22000 +++| CRB2.1 MX0 6 GET DISPOSITION CODE
01998 M01S00117.ns22000 +++| BX1 X0*X1
01999 M01S00118.ns22000 +++| LX0 12
02000 M01S00119.ns22000 +++| LX1 12
02001 M01S00120.ns22000 +++| SA2 IQFE UPDATE QFT ENTRY
02002 M01S00121.ns22000 +++| BX2 -X0*X2
02003 M01S00122.ns22000 +++| BX6 X1+X2
02004 M01S00123.ns22000 +++| SA6 A2
02005 M01S00124.ns22000 +++| EQ CRB4.1 SET EXTERNAL CHARACTERISTICS
02006 M00S01638.qload +++|
02007 M00S01639.qload +++|* PROCESS INPUT FILE.
02008 M00S01640.qload +++|
| Line S01641 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02009 M01S01641.ns22000 ---| CRB3 SA6 QUTP
02010 M01S01642.ns22000 ---| LX6 6
02011 M01S01643.ns22000 ---| BX7 X6+X1 MERGE WITH QFT/FNT IMAGES
| Line S00125 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02012 M01S00125.ns22000 +++| CRB3 LX6 6 MERGE WITH QFT/FNT IMAGES
02013 M01S00126.ns22000 +++| LX7 6
02014 M01S00127.ns22000 +++| BX7 X7+X1
02015 M00S01644.qload +++| SA7 A1
02016 M00S01645.qload +++| SA1 CRBB
02017 M00S01646.qload +++| BX6 X6+X1
02018 M00S01647.qload +++| SA6 A1
02019 M00S01648.qload +++| EQ CRB6
02020 M00S01649.qload +++|
02021 M00S01650.qload +++|* PROCESS PUNCH FILE.
02022 M00S01651.qload +++|
| Line S01652 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02023 M01S01652.ns22000 ---| CRB4 SA6 QUTP
02024 M01S01653.ns22000 ---| LX6 6 MERGE WITH QFT/FNT IMAGES
02025 M01S01654.ns22000 ---| BX7 X6+X1
| Line S00128 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02026 M01S00128.ns22000 +++| CRB4 LX6 6 MERGE WITH QFT/FNT IMAGES
02027 M01S00129.ns22000 +++| LX7 6
02028 M01S00130.ns22000 +++| BX7 X7+X1
02029 M00S01655.qload +++| SA7 A1
02030 M00S01656.qload +++| SA1 CRBB
02031 M00S01657.qload +++| BX6 X6+X1
02032 M00S01658.qload +++| SA6 A1
02033 M00S01659.qload +++| CRB4.1 SA1 ROTB+1 SET EXTERNAL CHARACTERISTICS
02034 M00S01660.qload +++| MX0 -3
02035 M00S01661.qload +++| LX1 59-20
02036 M00S01662.qload +++| BX6 -X0*X1
| Line S01663 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02037 M01S01663.ns22000 ---| LX6 9
| Line S00131 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02038 M01S00131.ns22000 +++| LX6 15-0
02039 M01S00132.ns22000 +++| SA1 IQFE+SCLQ
02040 M01S00133.ns22000 +++| BX6 X1+X6
02041 M01S00134.ns22000 +++| SA6 A1
02042 M00S01664.qload +++| EQ CRB6
02043 M00S01665.qload +++|
02044 M00S01666.qload +++|* PROCESS OTHER DEVICES.
02045 M00S01667.qload +++|
02046 M00S01668.qload +++| CRB5 EQ CRB7 NONE SUPPORTED AT THIS TIME
02047 M00S01669.qload +++|
02048 M00S01670.qload +++|* SET INFORMATION INTO SYSTEM SECTOR.
02049 M00S01671.qload +++|
02050 M00S01672.qload +++| CRB6 MX4 60
02051 M00S01673.qload +++| SA1 CRBB SET FNT ENTRY
02052 M00S01674.qload +++| BX6 X1
02053 M00S01675.qload +++| SA6 OLDN SET OLD FILE NAME
02054 M00S01676.qload +++| SX5 FNSS
02055 M00S01677.qload +++| SB6 SSBF
02056 M00S01678.qload +++| RJ WSF
02057 M00S01679.qload +++| SX5 IOSS SET QFT ENTRY
| Line S01680 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02058 M01S01680.ns22000 ---| SA1 IQFE
| Line S00135 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02059 M01S00135.ns22000 +++| SX5 IQFE SET IQFT ADDRESS
02060 M00S01681.qload +++| BX6 X1
02061 M00S01682.qload +++| SB6 SSBF
02062 M00S01683.qload +++| RJ WSF WRITE SYSTEM SECTOR FIELD
02063 M00S01684.qload +++| SX5 IOSS+SCLQ
02064 M00S01685.qload +++| SA1 IQFE+SCLQ
02065 M00S01686.qload +++| BX6 X1
02066 M00S01687.qload +++| SB6 SSBF
02067 M00S01688.qload +++| RJ WSF WRITE SYSTEM SECTOR FIELD
02068 M00S01689.qload +++| JP CRBX RETURN
02069 M00S01690.qload +++|
02070 M00S01691.qload +++|* PRINTER DISPOSITION CODE EQUIVALENCES.
02071 M00S01692.qload +++|
| Line S01693 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02072 M01S01693.ns22000 ---| CRBA VFD 3/0,45/0,12/2RPR ANY PRINTER
02073 M01S01694.ns22000 ---| VFD 3/7,45/0,12/2RP1 RESERVED
02074 M01S01695.ns22000 ---| VFD 3/2,45/0,12/2RP2 512
02075 M01S01696.ns22000 ---| VFD 3/3,45/0,12/2RLR 580 - 12
02076 M01S01697.ns22000 ---| VFD 3/4,45/0,12/2RLS 580 - 16
02077 M01S01698.ns22000 ---| VFD 3/5,45/0,12/2RLT 580 - 20
| Line S00136 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02078 M01S00136.ns22000 +++| CRBA BSS 0
02079 M01S00137.ns22000 +++| VFD 6/LPQF,42/0,12/2RPR ANY PRINTER
02080 M01S00138.ns22000 +++| VFD 6/LPQF,42/0,12/2RP1 RESERVED
02081 M01S00139.ns22000 +++| VFD 6/P2QF,42/0,12/2RP2 512
02082 M01S00140.ns22000 +++| VFD 6/LRQF,42/0,12/2RLR 580-12
02083 M01S00141.ns22000 +++| VFD 6/LSQF,42/0,12/2RLS 580-16
02084 M01S00142.ns22000 +++| VFD 6/LTQF,42/0,12/2RLT 580-20
| Line S00005 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
02085 M01S00005.241l630 +++| VFD 6/LXQF,42/0,12/2RLX 5870
02086 M01S00006.241l630 +++| VFD 6/LYQF,42/0,12/2RLY 5970
02087 M00S01699.qload +++| CRBAL EQU *-CRBA TABLE LENGTH
02088 M00S01700.qload +++|
02089 M00S01701.qload +++|
02090 M00S01702.qload +++| CRBB BSS 1 FNT ENTRY FOR SYSTEM SECTOR
| Line S00143 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02091 M01S00143.ns22000 +++|
02092 M01S00144.ns22000 +++| CRBC BSS 0
02093 M01S00145.ns22000 +++| LOC 0
02094 M01S00146.ns22000 +++| BSS 1 NOT USED
| Line S00147 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
02095 M02S00147.ns2217 ---| SYSC VFD 48/0,12/2RSY
02096 M02S00148.ns2217 ---| BCSC VFD 48/0,12/2RBC
02097 M02S00149.ns2217 ---| RBSC VFD 48/0,12/2RRB
02098 M02S00150.ns2217 ---| TSSC VFD 48/0,12/2RTS
02099 M02S00151.ns2217 ---| DISC VFD 48/0,12/2RDI
02100 M02S00152.ns2217 ---| NSSC VFD 48/0,12/2RNS
02101 M02S00153.ns2217 ---| SSSC VFD 48/0,12/2RSS
02102 M02S00154.ns2217 ---| MASC VFD 48/0,12/2RMA
02103 M02S00155.ns2217 ---| CTSC VFD 48/0,12/2RCT
02104 M02S00156.ns2217 ---| I0SC VFD 48/0,12/2RI0
02105 M02S00157.ns2217 ---| I1SC VFD 48/0,12/2RI1
02106 M02S00158.ns2217 ---| I2SC VFD 48/0,12/2RI2
02107 M02S00159.ns2217 ---| I3SC VFD 48/0,12/2RI3
| Line S00027 Modification History |
M01 (Added by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
02108 M01S00027.ns2217 +++| LIST D
02109 M01S00028.ns2217 +++| .SCL HERE
02110 M01S00029.ns2217 +++| LIST *
| Line S00160 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02111 M01S00160.ns22000 +++| LOC *O
02112 M01S00161.ns22000 +++| CON 0 END OF TABLE
02113 M00S01703.qload +++| CWE SPACE 4
02114 M00S01704.qload +++|** CWE - CHECK WRITE ERROR.
02115 M00S01705.qload +++|*
02116 M00S01706.qload +++|* ENTRY (X2) = *FET* ADDRESS.
02117 M00S01707.qload +++|*
02118 M00S01708.qload +++|* EXIT (B6) NON-ZERO IF FILE TO BE RECOPIED.
02119 M00S01709.qload +++|* (B7) = 0 IF NO ERRORS.
02120 M00S01710.qload +++|* (B7) = ADDRESS OF ERROR MESSAGE IF AN ERROR OCCURED.
02121 M00S01711.qload +++|* IF A WRITE PARITY ERROR OCCURED THE CURRENT
02122 M00S01712.qload +++|* DESTINATION FILE IS CHANGED TO A LOCKED COMMON FILE
02123 M00S01713.qload +++|* AND THE COPY IS RESTARTED.
02124 M00S01714.qload +++|*
02125 M00S01715.qload +++|* USES A - 5, 6, 7.
02126 M00S01716.qload +++|* B - 6, 7.
02127 M00S01717.qload +++|* X - 0, 5, 6, 7.
02128 M00S01718.qload +++|*
02129 M00S01719.qload +++|* CALLS CFN, RPF, RSC.
02130 M00S01720.qload +++|
02131 M00S01721.qload +++|
02132 M00S01722.qload +++| CWE3 SB6 B0+ CLEAR ERROR STATUS
02133 M00S01723.qload +++| SB7 B0+
02134 M00S01724.qload +++|
02135 M00S01725.qload +++| CWE SUBR ENTRY/EXIT
02136 M00S01726.qload +++| SA5 X2 CHECK *FET* STATUS
02137 M00S01727.qload +++| SX0 36000B
02138 M00S01728.qload +++| BX6 X0*X5
02139 M00S01729.qload +++| LX5 59-0
02140 M00S01730.qload +++| SX7 X6-4000B
02141 M00S01731.qload +++| ZR X6,CWE3 IF NO ERRORS
02142 M00S01732.qload +++| PL X5,CWE3 IF *FET* BUSY
02143 M00S01733.qload +++| NZ X7,CWE1 IF NOT WRITE PARITY ERROR
02144 M00S01734.qload +++| RJ CFN CHANGE TO LOCKED COMMON FILE
02145 M00S01735.qload +++| NZ B7,CWE2 IF ERROR IN CHANGE
02146 M00S01736.qload +++| RJ RPF REPOSITION THE LOAD FILE
02147 M00S01737.qload +++| RJ RSC RESTART THE COPY
02148 M00S01738.qload +++| SB6 B1 INDICATE RECOPY
02149 M00S01739.qload +++| JP CWEX RETURN
02150 M00S01740.qload +++|
02151 M00S01741.qload +++| CWE1 SB7 MES14 * DESTINATION DEVICE ERROR.*
02152 M00S01742.qload +++| RETURN S
02153 M00S01743.qload +++| CWE2 SB6 B0 CLEAR RECOPY INDICATOR
02154 M00S01744.qload +++| SX7 B7 SET TERMINATION MESSAGE
02155 M00S01745.qload +++| SA7 TRMM
02156 M00S01746.qload +++| SX6 LSDP SET TO LIST REMAINING FILES
02157 M00S01747.qload +++| SA6 DSPC
02158 M00S01748.qload +++| SA6 LIST
02159 M00S01749.qload +++| JP CWEX RETURN
02160 M00S01750.qload +++| ERP$ SPACE 4
02161 M00S01751.qload +++|** ERP$ - CIO ERROR EXIT ROUTINE.
02162 M00S01752.qload +++|*
02163 M00S01753.qload +++|* ENTRY (X2) = *FET* ADDRESS.
02164 M00S01754.qload +++|*
02165 M00S01755.qload +++|* EXIT TO *CIO=* IF WRITE REQUEST.
02166 M00S01756.qload +++|* TO *ERPX$* IF READ REQUEST.
02167 M00S01757.qload +++|*
02168 M00S01758.qload +++|* USES A - 3, 6.
02169 M00S01759.qload +++|* X - 3, 6.
02170 M00S01760.qload +++|
02171 M00S01761.qload +++|
02172 M00S01762.qload +++| ERP$ SX3 X2-T CHECK IF LOAD *FET*
02173 M00S01763.qload +++| NZ X3,ERP1 IF WRITE REQUEST
02174 M00S01764.qload +++| SA3 X2 CLEAR ERROR STATUS
02175 M00S01765.qload +++| SX6 36000B
02176 M00S01766.qload +++| BX6 -X6*X3
02177 M00S01767.qload +++| SA6 A3
02178 M00S01768.qload +++| EQ ERPX$ RESUME *CIO* FUNCTION
02179 M00S01769.qload +++|
02180 M00S01770.qload +++| ERP1 SX6 SBUF REWIND WRITE *FET*
02181 M00S01771.qload +++| SA6 S+2
02182 M00S01772.qload +++| SA6 A6+B1
02183 M00S01773.qload +++| JP CIO= RETURN TO PROGRAM PATH
02184 M00S01774.qload +++| GCW SPACE 4
02185 M00S01775.qload +++|** GCW - GET QUEUE CONTROL WORD.
02186 M00S01776.qload +++|*
02187 M00S01777.qload +++|* ENTRY LOAD FILE POSITIONED TO NEXT QUEUE CONTROL WORD.
02188 M00S01778.qload +++|*
02189 M00S01779.qload +++|* EXIT (B6) = *A* FIELD CONTROL BYTE.
02190 M00S01780.qload +++|* (B5) = *B* FIELD CONTROL BYTE.
02191 M00S01781.qload +++|* (NQCW) = WORDS TO NEXT QUEUE CONTROL WORD.
02192 M00S01782.qload +++|* (CQCW) = CONTROL WORD.
02193 M00S01783.qload +++|* TO *ERR* IF *EOF* ENCOUNTERED.
02194 M00S01784.qload +++|*
02195 M00S01785.qload +++|* USES A - 5, 6, 7.
02196 M00S01786.qload +++|* B - 5, 6.
02197 M00S01787.qload +++|* X - 4, 5, 6, 7.
02198 M00S01788.qload +++|
02199 M00S01789.qload +++|
02200 M00S01790.qload +++| GCW SUBR ENTRY/EXIT
02201 M00S01791.qload +++| GCW1 SA5 NTCW
02202 M00S01792.qload +++| NZ X5,GCW2 IF DATA REMAINING IN BLOCK
02203 M00S01793.qload +++| SA5 EOR
02204 M00S01794.qload +++| SB6 B0+
02205 M00S01795.qload +++| NZ X5,GCWX IF *EOR* BLOCK
02206 M00S01796.qload +++| READO T SKIP TRAILING CONTROL WORD
02207 M00S01797.qload +++| RJ PCW PROCESS NEXT BLOCK
02208 M00S01798.qload +++| PL X1,GCW1 IF NOT *EOF*
02209 M00S01799.qload +++| SB7 MES20 * PREMATURE *EOF* ENCOUNTERED.*
02210 M00S01800.qload +++| EQ ERR PROCESS FATAL ERROR
02211 M00S01801.qload +++|
02212 M00S01802.qload +++| GCW2 READO T READ CONTROL WORD
02213 M00S01803.qload +++| SA6 CQCW SAVE CONTROL WORD
02214 M00S01804.qload +++| MX5 -9 MASK OFF WORD COUNT
02215 M00S01805.qload +++| MX4 -6 MASK OFF *A* AND *B* FIELDS
02216 M00S01806.qload +++| BX7 -X5*X6
02217 M00S01807.qload +++| SA5 NTCW DECREMENT BLOCK WORD COUNT
02218 M00S01808.qload +++| AX6 12
02219 M00S01809.qload +++| SA7 NQCW
02220 M00S01810.qload +++| BX6 -X4*X6
02221 M00S01811.qload +++| LX6 -3
02222 M00S01812.qload +++| SX7 X5-1
02223 M00S01813.qload +++| SB6 X6 SET *A* FIELD
02224 M00S01814.qload +++| AX6 57
02225 M00S01815.qload +++| SB5 X6 SET *B* FIELD
02226 M00S01816.qload +++| SA7 A5
02227 M00S01817.qload +++| JP GCW RETURN
02228 M00S01818.qload +++| GSF SPACE 4
02229 M00S01819.qload +++|** GSF - GET SYSTEM SECTOR FIELD.
02230 M00S01820.qload +++|*
02231 M00S01821.qload +++|* ENTRY (X5) = ADDRESS OF FIELD BIASED BY (*BFMD*+2).
02232 M00S01822.qload +++|* (SSBF) = SYSTEM SECTOR.
02233 M00S01823.qload +++|*
02234 M00S01824.qload +++|* EXIT (X6) = FIELD LEFT JUSTIFIED.
02235 M00S01825.qload +++|*
02236 M00S01826.qload +++|* USES A - 4, 5.
02237 M00S01827.qload +++|* B - 5, 6.
02238 M00S01828.qload +++|* X - 0, 2, 3, 4, 5, 6, 7.
02239 M00S01829.qload +++|
02240 M00S01830.qload +++|
02241 M00S01831.qload +++| GSF SUBR ENTRY/EXIT
02242 M00S01832.qload +++| SX4 X5-BFMS-2 ADJUST ADDRESS
02243 M00S01833.qload +++| SX3 5 CONVERT TO CM ADDRESS
02244 M00S01834.qload +++| IX6 X4/X3
02245 M00S01835.qload +++| SX3 5
02246 M00S01836.qload +++| SX4 X4+
02247 M00S01837.qload +++| IX7 X6*X3
02248 M00S01838.qload +++| IX5 X4-X7 GET BYTE COUNT
02249 M00S01839.qload +++| SX3 12
02250 M00S01840.qload +++| SX2 60
02251 M00S01841.qload +++| IX3 X3*X5
02252 M00S01842.qload +++| MX0 1
02253 M00S01843.qload +++| SA4 X6+SSBF GET FIRST WORD
02254 M00S01844.qload +++| SB6 X3+ SET SHIFT COUNT
02255 M00S01845.qload +++| IX3 X2-X3 SET SHIFT COUNT = 60D - COUNT
02256 M00S01846.qload +++| SA5 A4+B1
02257 M00S01847.qload +++| SB5 X3-1
02258 M00S01848.qload +++| AX0 B5,X0 FORM MASK
02259 M00S01849.qload +++| LX4 B6,X4 POSITION WORDS
02260 M00S01850.qload +++| LX5 B6,X5
02261 M00S01851.qload +++| BX6 X0*X4 MASK UPPER DATA
02262 M00S01852.qload +++| BX7 -X0*X5 MASK LOWER DATA
02263 M00S01853.qload +++| BX6 X6+X7 MERGE DATA
02264 M00S01854.qload +++| JP GSFX RETURN
02265 M00S01855.qload +++| PCW SPACE 4
02266 M00S01856.qload +++|** PCW - PROCESS CONTROL WORD.
02267 M00S01857.qload +++|*
02268 M00S01858.qload +++|* ENTRY LOAD FILE POSITIONED TO CONTROL WORD.
02269 M00S01859.qload +++|* (LIST) = 0 IF LIST OPTION NOT SELECTED.
02270 M00S01860.qload +++|*
02271 M00S01861.qload +++|* EXIT (NTCW) = WORDS TO NEXT CONTROL WORD.
02272 M00S01862.qload +++|* (CTLO) = LOCATION OF CURRENT CONTROL WORD.
02273 M00S01863.qload +++|* (CTCW) = CURRENT TAPE CONTROL WORD.
02274 M00S01864.qload +++|* (ERRF) = *RPER* IF ERROR IN CURRENT BLOCK AND ERROR
02275 M00S01865.qload +++|* PROCESSING IS NOT SELECTED.
02276 M00S01866.qload +++|* (ERTP) = 2 IF ERROR IN CURRENT BLOCK.
02277 M00S01867.qload +++|* (EOR) = NON ZERO IF *EOR* BLOCK.
02278 M00S01868.qload +++|* (X1) = NEGATIVE IF *EOF* ENCOUNTERED.
02279 M00S01869.qload +++|*
02280 M00S01870.qload +++|* USES A - 2, 6, 7.
02281 M00S01871.qload +++|* B - 7.
02282 M00S01872.qload +++|* X - 1, 2, 6, 7.
02283 M00S01873.qload +++|
02284 M00S01874.qload +++|
02285 M00S01875.qload +++| PCW SUBR ENTRY/EXIT
02286 M00S01876.qload +++| SA2 T+3 SAVE LOCATION OF CONTROL WORD
02287 M00S01877.qload +++| BX6 X2
02288 M00S01878.qload +++| SA6 CTLO
02289 M00S01879.qload +++| READO T READ CONTROL WORD
02290 M00S01880.qload +++| MI X1,PCWX IF *EOF* ENCOUNTERED
02291 M00S01881.qload +++| SA6 CTCW SAVE CONTROL WORD
02292 M00S01882.qload +++| MX0 -24
02293 M00S01883.qload +++| MX1 -17
02294 M00S01884.qload +++| SA2 TARA+ARFC CHECK ERROR PROCESSING
02295 M00S01885.qload +++| SX7 RPER
02296 M00S01886.qload +++| LX2 59-57
02297 M00S01887.qload +++| PL X6,PCW1 IF NO ERROR IN BLOCK
02298 M00S01888.qload +++| SA7 ERTP SET ERROR TYPE
02299 M00S01889.qload +++| MI X2,PCW1 IF ERROR PROCESSING SET
02300 M00S01890.qload +++| SA2 LIST CHECK FOR LISTING FILES
02301 M00S01891.qload +++| SA7 ERRF SET SKIP ERRORED FILE
02302 M00S01892.qload +++| NZ X2,PCW1 IF LISTING FILES
02303 M00S01893.qload +++| SX7 IGDP SET FILE IGNORED
02304 M00S01894.qload +++| SA7 DSPC
02305 M00S01895.qload +++| PCW1 BX7 -X0*X6 MASK OFF BYTE COUNT
02306 M00S01896.qload +++| LX6 59-35
02307 M00S01897.qload +++| SX2 5
02308 M00S01898.qload +++| BX1 -X1*X6 MASK PRU SIZE
02309 M00S01899.qload +++| IX7 X7/X2
02310 M00S01900.qload +++| SA7 NTCW
02311 M00S01901.qload +++| IX6 X1-X7 CHECK FOR *EOR*
02312 M00S01902.qload +++| SB7 B0
02313 M00S01903.qload +++| SA6 EOR
02314 M00S01904.qload +++| JP PCWX
02315 M00S01905.qload +++| PIQ SPACE 4
02316 M00S01906.qload +++|** PIQ - PROCESS *IQFT* FILE.
02317 M00S01907.qload +++|*
| Line S01908 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02318 M01S01908.ns22000 ---|* ENTRY (TARA+ARDD) = EQUIPMENT NUMBER.
| Line S00162 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02319 M01S00162.ns22000 +++|* ENTRY (TARA+ARDD) = EST ORDINAL.
02320 M00S01909.qload +++|*
02321 M00S01910.qload +++|* EXIT *IQFT* FILE ATTACHED.
02322 M00S01911.qload +++|* (B7) = ERROR MESSAGE ADDRESS IF ERROR OCCURED.
02323 M00S01912.qload +++|* (B7) = 0 IF NO ERROR OCURRED.
02324 M00S01913.qload +++|*
02325 M00S01914.qload +++|* USES A - 2, 3, 6.
02326 M00S01915.qload +++|* B - 7.
02327 M00S01916.qload +++|* X - 0, 2, 3, 6.
02328 M00S01917.qload +++|*
02329 M00S01918.qload +++|* CALLS ATT.
02330 M00S01919.qload +++|*
02331 M00S01920.qload +++|* MACROS QCALL, REQUEST, SKIPEI, WRITE, WRITEF.
02332 M00S01921.qload +++|
02333 M00S01922.qload +++|
02334 M00S01923.qload +++| PIQ1 SX3 NIQ SET *FET* ADDRESS
02335 M00S01924.qload +++| RJ ATT ATTACH THE *IQFT* FILE
02336 M00S01925.qload +++| SB7 MES7 * CANNOT ATTACH *IQFT* FILE.*
02337 M00S01926.qload +++| NZ X5,PIQX IF ERROR
02338 M00S01927.qload +++| SB7 B0 CLEAR ERROR INDICATION
02339 M00S01928.qload +++| SKIPEI NIQ,R
02340 M00S01929.qload +++| WRITE NIQ,* PRESET WRITE FUNCTION
02341 M00S01930.qload +++|
02342 M00S01931.qload +++| PIQ SUBR ENTRY/EXIT
02343 M00S01932.qload +++| SA2 TARA+ARDD GET EQUIPMENT
02344 M00S01933.qload +++| SA3 X2+TEQA CHECK IF *IQFT* EXISTS
02345 M00S01934.qload +++| SX2 X2
02346 M00S01935.qload +++| LX3 59-0
02347 M00S01936.qload +++| MI X3,PIQ1 IF *IQFT* EXISTS
| Line S01937 Modification History |
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
02348 M01S01937.ns2099 ---|
02349 M01S01938.ns2099 ---|* CREATE A NEW *IQFT* FILE ON THIS DEVICE.
02350 M01S01939.ns2099 ---|
02351 M01S01940.ns2099 ---| MX0 12 SET EQUIPMENT NUMBER IN FET
02352 M01S01941.ns2099 ---| SA3 NIQ+1
| Line S00163 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02353 M01S00163.ns22000 +++| SX2 X2+7000B SET ASSIGN-BY-ORDINAL FLAG
| Line S01942 Modification History |
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
02354 M01S01942.ns2099 ---| BX3 -X0*X3
02355 M01S01943.ns2099 ---| LX2 -12
02356 M01S01944.ns2099 ---| BX6 X2+X3
| Line S00001 Modification History |
M01 (Added by) | ns2043 |
M02 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
02357 M02S00001.ns2099 ---| MX0 1 CLEAR ERROR PROCESSING
02358 M02S00002.ns2099 ---| LX0 44-59
02359 M02S00003.ns2099 ---| BX6 -X0*X6
| Line S01945 Modification History |
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
02360 M01S01945.ns2099 ---| SA6 A3
02361 M01S01946.ns2099 ---| REQUEST NIQ,R
| Line S00004 Modification History |
M01 (Added by) | ns2043 |
M02 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
02362 M02S00004.ns2099 ---| SA3 NIQ+1 RESET ERROR PROCESSING
02363 M02S00005.ns2099 ---| BX6 X0+X3
02364 M02S00006.ns2099 ---| SA6 A3
| Line S01947 Modification History |
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
02365 M01S01947.ns2099 ---| WRITEF NIQ,R
02366 M01S01948.ns2099 ---| QCALL STQF,NIQ SET AS *IQFT* FILE
02367 M01S01949.ns2099 ---| SA2 TARA+ARDD
02368 M01S01950.ns2099 ---| SX2 X2
02369 M01S01951.ns2099 ---| EQ PIQ1 GO ATTACH THE *IQFT* FILE
| Line S00005 Modification History |
M01 (Added by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
02370 M01S00005.ns2099 +++| SB7 MES24 * IQFT NOT FOUND.*
02371 M01S00006.ns2099 +++| EQ PIQX EXIT WITH ERROR
02372 M00S01952.qload +++| PTT SPACE 4,15
02373 M00S01953.qload +++|** PTT - PROCESS TRANSFER TABLE.
02374 M00S01954.qload +++|*
02375 M00S01955.qload +++|* ENTRY ((A1)) = (X1) = FIRST WORD OF TABLE.
02376 M00S01956.qload +++|*
02377 M00S01957.qload +++|* EXIT SYSTEM SECTOR FIELDS TRANSFERRED.
02378 M00S01958.qload +++|*
02379 M00S01959.qload +++|* USES X - 1, 2, 3, 4, 5, 6.
02380 M00S01960.qload +++|* A - 1.
02381 M00S01961.qload +++|* B - 4, 6.
02382 M00S01962.qload +++|*
02383 M00S01963.qload +++|* CALLS GSF, WSF.
02384 M00S01964.qload +++|
02385 M00S01965.qload +++|
02386 M00S01966.qload +++| PTT SUBR ENTRY/EXIT
02387 M00S01967.qload +++| PTT1 MX3 -12 MASK OUT SOURCE ADDRESS
02388 M00S01968.qload +++| BX5 -X3*X1
02389 M00S01969.qload +++| RJ GSF GET SYSTEM SECTOR FIELD
02390 M00S01970.qload +++| MX3 -12 MASK REQUIRED BITS
02391 M00S01971.qload +++| MX2 1
02392 M00S01972.qload +++| AX1 12
02393 M00S01973.qload +++| BX5 -X3*X1
02394 M00S01974.qload +++| SB6 X5-1
02395 M00S01975.qload +++| AX5 B6,X2
02396 M00S01976.qload +++| BX6 X5*X6
02397 M00S01977.qload +++| AX1 12 MASK OUT DESTINATION ADDRESS
02398 M00S01978.qload +++| BX5 -X3*X1
02399 M00S01979.qload +++| SB6 BTB
02400 M00S01980.qload +++| AX1 12
02401 M00S01981.qload +++| SB4 X1-1 FORM FIELD MASK
02402 M00S01982.qload +++| AX4 B4,X2
02403 M00S01983.qload +++| RJ WSF WRITE SYSTEM SECTOR FIELD
02404 M00S01984.qload +++| SA1 A1+1 GET NEXT TABLE ENTRY
02405 M00S01985.qload +++| NZ X1,PTT1 IF NOT END OF TABLE
02406 M00S01986.qload +++| EQ PTTX RETURN
| Line S00060 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02407 M01S00060.ns21000 +++| RES SPACE 4,15
02408 M01S00061.ns21000 +++|** RES - REFORMAT EOI SECTOR.
02409 M01S00062.ns21000 +++|*
02410 M01S00063.ns21000 +++|* ENTRY *SSBF* CONTAINS THE REFORMATTED SYSTEM SECTOR
02411 M01S00064.ns21000 +++|* FOLLOWED BY A VERSION ONE SYSTEM SECTOR EXTENSION.
02412 M01S00065.ns21000 +++|*
02413 M01S00066.ns21000 +++|* EXIT *SSBF* CONTAINS THE REFORMATTED SYSTEM SECTOR FOLLOWED
02414 M01S00067.ns21000 +++|* BY A VERSION TWO EOI SECTOR.
| Line S00003 Modification History |
M01 (Added by) | qload4 |
Seq # *Modification Id* Act
----------------------------+
02415 M01S00003.qload4 +++|* (B7) = 0, INDICATING NO ERROR ENCOUNTERED.
02416 M01S00004.qload4 +++|* (X1) = 0, INDICATING *EOF* NOT ENCOUNTERED.
02417 M01S00005.qload4 +++|* (X4) = 0, INDICATING NOT TO SKIP VERSION ONE FILE.
| Line S00068 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02418 M01S00068.ns21000 +++|*
| Line S00069 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | qload4 |
Seq # *Modification Id* Act
----------------------------+
02419 M02S00069.qload4 ---|* USES X - 1, 4, 6 7.
| Line S00006 Modification History |
M01 (Added by) | qload4 |
Seq # *Modification Id* Act
----------------------------+
02420 M01S00006.qload4 +++|* USES X - 1, 4, 6, 7.
| Line S00070 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02421 M01S00070.ns21000 +++|* A - 1, 7.
| Line S00071 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | qload4 |
Seq # *Modification Id* Act
----------------------------+
02422 M02S00071.qload4 ---|* B - 6.
| Line S00007 Modification History |
M01 (Added by) | qload4 |
Seq # *Modification Id* Act
----------------------------+
02423 M01S00007.qload4 +++|* B - 6, 7.
| Line S00072 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02424 M01S00072.ns21000 +++|*
02425 M01S00073.ns21000 +++|* MACROS MOVE.
02426 M01S00074.ns21000 +++|
02427 M01S00075.ns21000 +++|
02428 M01S00076.ns21000 +++| RES SUBR ENTRY/EXIT
02429 M01S00077.ns21000 +++| SX7 B0+ CLEAR 100B WORDS IN *BTB*
02430 M01S00078.ns21000 +++| SA7 BTB
02431 M01S00079.ns21000 +++| SB6 76B
02432 M01S00080.ns21000 +++| RES1 SA7 A7+B1
02433 M01S00081.ns21000 +++| SB6 B6-B1
02434 M01S00082.ns21000 +++| PL B6,RES1 IF NOT DONE
02435 M01S00083.ns21000 +++| SA1 SSBF+100B+1 GET EXPLICIT TEXT LENGTH
02436 M01S00084.ns21000 +++| LX1 24
02437 M01S00085.ns21000 +++| BX4 X1
02438 M01S00086.ns21000 +++| SA1 A1+B1 GET IMPLICIT TEXT LENGTH
02439 M01S00087.ns21000 +++| LX1 48
02440 M01S00088.ns21000 +++| BX6 X1
02441 M01S00089.ns21000 +++| SA1 A1+B1 GET DATA DECLARATION
02442 M01S00090.ns21000 +++| BX7 X1+X4
02443 M01S00091.ns21000 +++| BX7 X7+X6
02444 M01S00092.ns21000 +++| SA7 BTB+3 SAVE *DDEI*, *ILEI*, AND *ELEI*
02445 M01S00093.ns21000 +++| ZR X6,RES2 IF NO IMPLICIT TEXT TO MOVE
02446 M01S00094.ns21000 +++| MOVE 32B,SSBF+100B+46B,BTB+4
02447 M01S00095.ns21000 +++| RES2 ZR X4,RES3 IF NO EXPLICIT TEXT TO MOVE
02448 M01S00096.ns21000 +++| MOVE 32B,SSBF+100B+14B,BTB+36B
02449 M01S00097.ns21000 +++| RES3 MOVE 100B,BTB,SSBF+100B MOVE REFORMATTED EOI SECTOR
| Line S00008 Modification History |
M01 (Added by) | qload4 |
Seq # *Modification Id* Act
----------------------------+
02450 M01S00008.qload4 +++| SB7 B0+ CLEAR ERROR ENCOUNTERED
02451 M01S00009.qload4 +++| BX1 X1-X1 CLEAR *EOF* ENCOUNTERED
02452 M01S00010.qload4 +++| BX4 X4-X4 CLEAR VERSION ONE FILE TO SKIP
| Line S00098 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02453 M01S00098.ns21000 +++| EQ RESX RETURN
02454 M00S01987.qload +++| RPF SPACE 4
02455 M00S01988.qload +++|** RPF - REPOSITION THE LOAD FILE.
02456 M00S01989.qload +++|*
02457 M00S01990.qload +++|* ENTRY (NTCW) = WORDS TO NEXT BLOCK CONTROL WORD.
02458 M00S01991.qload +++|* (B5) = 0 IF AT END OF RECORD.
02459 M00S01992.qload +++|*
02460 M00S01993.qload +++|* EXIT LOAD FILE POSITIONED TO START OF CURRENT QUEUE FILE.
02461 M00S01994.qload +++|*
02462 M00S01995.qload +++|* USES A - 1, 2, 3, 4, 7.
02463 M00S01996.qload +++|* B - 2, 3, 4, 6.
02464 M00S01997.qload +++|* X - ALL.
02465 M00S01998.qload +++|
02466 M00S01999.qload +++|
02467 M00S02000.qload +++| RPF4 NZ X7,RPF5 IF LAST PRU IS AN *EOR* BLOCK
02468 M00S02001.qload +++| SB6 B6+1
02469 M00S02002.qload +++| RPF5 SA2 EOR CHECK IF *EOR* BLOCK
02470 M00S02003.qload +++| ZR X2,RPF6 IF CURRENT BLOCK IS NOT AN *EOR* BLOCK
02471 M00S02004.qload +++| SB6 B6+1 ADJUST RECORD COUNT
02472 M00S02005.qload +++| RPF6 SKIPB T,B6,R BACKSPACE LOAD FILE
02473 M00S02006.qload +++| SA1 X2+B1 REWIND *FET* POINTERS
02474 M00S02007.qload +++| SX7 X1
02475 M00S02008.qload +++| SA7 A1+B1
02476 M00S02009.qload +++| SA7 A7+B1
02477 M00S02010.qload +++| READCW X2,17B INITIATE READ
02478 M00S02011.qload +++|
02479 M00S02012.qload +++| RPF SUBR ENTRY/EXIT
02480 M00S02013.qload +++| SA1 T+1 *FIRST*
02481 M00S02014.qload +++| SA2 A1+B1 *IN*
02482 M00S02015.qload +++| SA3 A2+B1 *OUT*
02483 M00S02016.qload +++| SA4 A3+B1 *LIMIT*
02484 M00S02017.qload +++| SB6 B0 CLEAR RECORD COUNT
02485 M00S02018.qload +++| IX5 X2-X3 *IN* - *OUT*
02486 M00S02019.qload +++| SX4 X4
02487 M00S02020.qload +++| PL X5,RPF1 IF NO WRAP AROUND
02488 M00S02021.qload +++| SX1 X1
02489 M00S02022.qload +++| IX5 X2-X1 *IN* - *FIRST*
02490 M00S02023.qload +++| IX6 X4-X3 *LIMIT* - *OUT*
02491 M00S02024.qload +++| IX5 X6+X5 WORDS IN BUFFER
02492 M00S02025.qload +++| RPF1 SB3 X4 SAVE *LIMIT*
02493 M00S02026.qload +++| SA4 NTCW
02494 M00S02027.qload +++| SB4 X3 SET SEARCH POINTER
02495 M00S02028.qload +++| SX4 X4-1
02496 M00S02029.qload +++| SB2 2
02497 M00S02030.qload +++| NZ B5,RPF2 IF NOT AT END OF RECORD
02498 M00S02031.qload +++| SX4 X4-1 ADJUST POINTER
02499 M00S02032.qload +++|
02500 M00S02033.qload +++|* COUNT RECORDS IN BUFFER.
02501 M00S02034.qload +++|
02502 M00S02035.qload +++| RPF2 SX4 X4+B2 ADJUST FOR CONTROL WORDS
02503 M00S02036.qload +++| MX0 -24
02504 M00S02037.qload +++| IX5 X5-X4 DECREMENT WORD COUNT
02505 M00S02038.qload +++| SB4 B4+X4 INCREMENT ADDRESS
02506 M00S02039.qload +++| ZR X5,RPF4 IF END OF DATA
02507 M00S02040.qload +++| SX3 5
02508 M00S02041.qload +++| GE B3,B4,RPF3 IF NOT AT *LIMIT*
02509 M00S02042.qload +++| SB4 B4-B3
02510 M00S02043.qload +++| SB4 B4+X1 ADDRESS OF NEXT CONTROL WORD
02511 M00S02044.qload +++| RPF3 SA2 B4 COMPUTE WORDS TO NEXT CONTROL WORD
02512 M00S02045.qload +++| BX6 -X0*X2 BYTE COUNT
02513 M00S02046.qload +++| LX2 59-35
02514 M00S02047.qload +++| IX4 X6/X3 WORDS IN BLOCK
02515 M00S02048.qload +++| MX0 -17
02516 M00S02049.qload +++| BX6 -X0*X2 PRU SIZE
02517 M00S02050.qload +++| IX7 X6-X4
02518 M00S02051.qload +++| ZR X7,RPF2 IF FULL BLOCK
02519 M00S02052.qload +++| SB6 B6+B1 COUNT RECORD
02520 M00S02053.qload +++| EQ RPF2 LOOP
02521 M00S02054.qload +++| RSC SPACE 4
02522 M00S02055.qload +++|** RSC - RESTART COPY.
02523 M00S02056.qload +++|*
02524 M00S02057.qload +++|* ENTRY LOAD FILE POSITIONED AT THE START OF THE
02525 M00S02058.qload +++|* CURRENT QUEUE FILE.
02526 M00S02059.qload +++|* (OLDN) = OLD QUEUE FILE NAME.
02527 M00S02060.qload +++|*
02528 M00S02061.qload +++|* EXIT (B7) = 0 IF NO ERRORS.
02529 M00S02062.qload +++|* (B7) = ADDRESS OF ERROR MESSAGE IF AN ERROR OCCURED.
02530 M00S02063.qload +++|*
02531 M00S02064.qload +++|* USES A - 1, 2, 6, 7.
02532 M00S02065.qload +++|* B - 6, 7.
02533 M00S02066.qload +++|* X - 1, 2, 6, 7.
02534 M00S02067.qload +++|*
02535 M00S02068.qload +++|* CALLS GNF, BIE.
02536 M00S02069.qload +++|
02537 M00S02070.qload +++|
02538 M00S02071.qload +++| RSC2 SB7 MES16 * LOAD FILE POSITION LOST.*
02539 M00S02072.qload +++|
02540 M00S02073.qload +++| RSC SUBR ENTRY/EXIT
02541 M00S02074.qload +++| MOVE QFEWL-1,IQFE+1,RSCA+1 SAVE CURRENT QUEUE FILE DATA
02542 M00S02075.qload +++| SA1 OLDN SAVE OLD NAME
02543 M00S02076.qload +++| BX7 X1
02544 M00S02077.qload +++| SA7 RSCA
02545 M00S02078.qload +++| RJ GNF RESET LOAD INFORMATION
02546 M00S02079.qload +++| NZ B7,RSC2 IF ERROR OCCURED
02547 M00S02080.qload +++| MI X1,RSC2 IF * EOF* ENCOUNTERED
02548 M00S02081.qload +++| RJ BIE REBUILD *IQFT* BLOCK
02549 M00S02082.qload +++| SB6 QFEWL-1 COMPARE FILE DATA
02550 M00S02083.qload +++| RSC1 SA1 IQFE+B6 COMPARE *IQFT* DATA
02551 M00S02084.qload +++| SA2 RSCA+B6
02552 M00S02085.qload +++| SB6 B6-B1
02553 M00S02086.qload +++| BX6 X1-X2
02554 M00S02087.qload +++| NZ X6,RSC2 IF DATA DOES NOT MATCH
02555 M00S02088.qload +++| PL B6,RSC1 IF NOT END OF DATA
02556 M00S02089.qload +++| SA1 S+1 REWIND *FET*
02557 M00S02090.qload +++| BX6 X1
02558 M00S02091.qload +++| SX7 B0+
02559 M00S02092.qload +++| SA6 A1+B1
02560 M00S02093.qload +++| SA7 ASSF CLEAR FILE ASSIGNED TO MASS STORAGE
02561 M00S02094.qload +++| SA6 A6+B1
02562 M00S02095.qload +++| SB7 B0
02563 M00S02096.qload +++| SA7 WDSX CLEAR WORD COUNT
02564 M00S02097.qload +++| JP RSCX RETURN
02565 M00S02098.qload +++|
02566 M00S02099.qload +++| RSCA BSS QFEWL BUFFER FOR *IQFT* DATA COMPARE
02567 M00S02100.qload +++| RSF SPACE 4
02568 M00S02101.qload +++|** RSF - READ SKIP FIELD.
02569 M00S02102.qload +++|*
02570 M00S02103.qload +++|* READ SKIP FIELD WILL TRANSFER THE REQUESTED FIELD SIZE
02571 M00S02104.qload +++|* TO THE BUFFER AND THEN COPY THE REMAINING DATA IN THE FIELD
02572 M00S02105.qload +++|* TO THE SCRATCH BUFFER *BTB*.
02573 M00S02106.qload +++|*
02574 M00S02107.qload +++|* ENTRY (NQCW) = WORDS TO NEXT CONTROL WORD.
02575 M00S02108.qload +++|* (NTCW) = WORDS TO NEXT TAPE CONTROL WORD.
02576 M00S02109.qload +++|* (B4) = BUFFER ADDRESS.
02577 M00S02110.qload +++|* (X3) = FIELD SIZE.
02578 M00S02111.qload +++|*
02579 M00S02112.qload +++|* EXIT (NQCW) AND (NTCW) UPDATED.
02580 M00S02113.qload +++|* (CQCW) = NEXT QUEUE CONTROL WORD.
02581 M00S02114.qload +++|* (B7) = 0 IF NO ERRORS.
02582 M00S02115.qload +++|* (B7) = ADDRESS OF ERROR MESSAGE.
02583 M00S02116.qload +++|* (B6) = *A* FIELD CONTROL BYTE.
02584 M00S02117.qload +++|* (B5) = *B* FIELD CONTROL BYTE.
02585 M00S02118.qload +++|*
02586 M00S02119.qload +++|* USES A - 1, 2, 3, 6, 7.
02587 M00S02120.qload +++|* B - 4, 7.
02588 M00S02121.qload +++|* X - 1, 2, 3, 6, 7.
02589 M00S02122.qload +++|*
02590 M00S02123.qload +++|* CALLS PCW, GCW.
02591 M00S02124.qload +++|
02592 M00S02125.qload +++|
02593 M00S02126.qload +++| RSF6 SB7 MES20 * PREMATURE *EOF* ENCOUNTERED.*
02594 M00S02127.qload +++|
02595 M00S02128.qload +++| RSF SUBR ENTRY/EXIT
02596 M00S02129.qload +++| SX7 B0+ INDICATE START OF READ
02597 M00S02130.qload +++| SA7 RSFA
02598 M00S02131.qload +++| RSF1 SA1 NQCW GET FIELD SIZE
02599 M00S02132.qload +++| SA2 NTCW GET BLOCK SIZE
02600 M00S02133.qload +++| IX6 X2-X3
02601 M00S02134.qload +++| IX7 X1-X3
02602 M00S02135.qload +++| MI X6,RSF2 IF SHORT DATA BLOCK
02603 M00S02136.qload +++| MI X7,RSF4 IF SHORT FIELD
02604 M00S02137.qload +++| SA6 A2 SET NEW COUNTS
02605 M00S02138.qload +++| SA7 A1
02606 M00S02139.qload +++| READW T,B4,X3 SKIP 100B WORDS
02607 M00S02140.qload +++| SB4 BTB SKIP REMAINING DATA
02608 M00S02141.qload +++| SX7 B1+ INDICATE READ COMPLETED
02609 M00S02142.qload +++| SX3 100B
02610 M00S02143.qload +++| SA7 RSFA
02611 M00S02144.qload +++| EQ RSF1 LOOP
02612 M00S02145.qload +++|
02613 M00S02146.qload +++|* PROCESS SHORT MEDIA DATA BLOCK.
02614 M00S02147.qload +++|
02615 M00S02148.qload +++| RSF2 IX6 X1-X2 FIELD - BLOCK LENGTH
02616 M00S02149.qload +++| MI X6,RSF4 IF FIELD THE SMALLEST
02617 M00S02150.qload +++| BX7 X7-X7
02618 M00S02151.qload +++| SA6 A1 UPDATE COUNTS
02619 M00S02152.qload +++| SA7 A2
02620 M00S02153.qload +++| SX7 X2+B4 UPDATE ADDRESS
02621 M00S02154.qload +++| IX6 X3-X2 SAVE REMAINING WORDS
02622 M00S02155.qload +++| SA7 ADDR
02623 M00S02156.qload +++| SA6 WCNT
02624 M00S02157.qload +++| ZR X2,RSF3 IF NO DATA IN BLOCK
02625 M00S02158.qload +++| READW T,B4,X2 READ TO END OF BLOCK
02626 M00S02159.qload +++| RSF3 READO T SKIP TRAILING CONTROL WORD
02627 M00S02160.qload +++| RJ PCW PROCESS NEXT BLOCK CONTROL WORD
02628 M00S02161.qload +++| MI X1,RSF6 IF *EOF* ENCOUNTERED.
02629 M00S02162.qload +++| SA1 ADDR RESET COPY PARAMETERS
02630 M00S02163.qload +++| SA3 WCNT
02631 M00S02164.qload +++| SB4 X1+
02632 M00S02165.qload +++| EQ RSF1 LOOP
02633 M00S02166.qload +++|
02634 M00S02167.qload +++|* PROCESS SHORT QUEUE FILE FIELD.
02635 M00S02168.qload +++|
02636 M00S02169.qload +++| RSF4 IX6 X2-X1 BLOCK - FIELD LENGTH
02637 M00S02170.qload +++| MI X6,RSF2 IF BLOCK THE SMALLEST
02638 M00S02171.qload +++| IX7 X3-X1 SAVE REMAINING WORD COUNT
02639 M00S02172.qload +++| SA6 A2 UPDATE BLOCK LENGTH
02640 M00S02173.qload +++| SA7 WCNT
02641 M00S02174.qload +++| SX6 X1+B4 SET NEW ADDRESS
02642 M00S02175.qload +++| SA6 ADDR
02643 M00S02176.qload +++| ZR X1,RSF5 IF END OF LOAD FIELD
02644 M00S02177.qload +++| READW T,B4,X1 SKIP TO END OF FIELD
02645 M00S02178.qload +++| RSF5 RJ GCW GET NEXT QUEUE CONTROL WORD
02646 M00S02179.qload +++| SA1 RSFA CHECK IF READ COMPLETE
02647 M00S02180.qload +++| SA2 ADDR RESET COPY PARAMETERS
02648 M00S02181.qload +++| SA3 WCNT
02649 M00S02182.qload +++| SB7 B0 CLEAR ERROR INDICATION
02650 M00S02183.qload +++| SB4 X2
02651 M00S02184.qload +++| NZ X1,RSFX IF READ COMPLETE
02652 M00S02185.qload +++| EQ RSF1 CONTINUE READ
02653 M00S02186.qload +++|
02654 M00S02187.qload +++|
02655 M00S02188.qload +++| RSFA CON 0 NONZERO INDICATES COPY COMPLETE
02656 M00S02189.qload +++| ADDR BSS 1 BUFFER ADDRESS
02657 M00S02190.qload +++| WCNT BSS 1 WORD COUNT
02658 M00S02191.qload +++| RSS SPACE 4,20
02659 M00S02192.qload +++|** RSS - REFORMAT SYSTEM SECTOR.
02660 M00S02193.qload +++|*
02661 M00S02194.qload +++|* ENTRY (X6) = VERSION ONE SYSTEM SECTOR TYPE.
02662 M00S02195.qload +++|* (SSBF) - (SSBF+SSBFL-1) = VERSION ONE SYSTEM SECTOR.
02663 M00S02196.qload +++|*
| Line S02197 Modification History |
M01 (Removed by) | qload1 |
Seq # *Modification Id* Act
----------------------------+
02664 M01S02197.qload1 ---|* EXIT (B7) = ADDRESS OF ERROR MESSAGE.
02665 M01S02198.qload1 ---|* = 0, IF NO ERROR.
| Line S00008 Modification History |
M01 (Added by) | qload1 |
M02 (Removed by) | qload4 |
Seq # *Modification Id* Act
----------------------------+
02666 M02S00008.qload4 ---|* EXIT (X4) = NONZERO, IF VERSION ONE FILE TO SKIP.
| Line S00011 Modification History |
M01 (Added by) | qload4 |
Seq # *Modification Id* Act
----------------------------+
02667 M01S00011.qload4 +++|* EXIT (B7) = 0, INDICATING NO ERROR ENCOUNTERED.
02668 M01S00012.qload4 +++|* (X1) = 0, INDICATING *EOF* NOT ENCOUNTERED.
02669 M01S00013.qload4 +++|* (X4) = NONZERO, IF VERSION ONE FILE TO SKIP.
| Line S00009 Modification History |
M01 (Added by) | qload1 |
Seq # *Modification Id* Act
----------------------------+
02670 M01S00009.qload1 +++|* (DSPC) = *IGDP*, IF VERSION ONE FILE TO SKIP.
02671 M01S00010.qload1 +++|* (ERTP) = *VOER*, IF VERSION ONE FILE TO SKIP.
02672 M00S02199.qload +++|* (SSBF) - (SSBF+SSBFL-1) = VERSION TWO SYSTEM SECTOR.
02673 M00S02200.qload +++|*
02674 M00S02201.qload +++|* USES X - 1, 4, 5, 6, 7.
02675 M00S02202.qload +++|* A - 1, 6, 7.
| Line S02203 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02676 M01S02203.ns21000 ---|* B - 4, 6, 7.
| Line S00099 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | qload4 |
Seq # *Modification Id* Act
----------------------------+
02677 M02S00099.qload4 ---|* B - 4, 6.
| Line S00014 Modification History |
M01 (Added by) | qload4 |
Seq # *Modification Id* Act
----------------------------+
02678 M01S00014.qload4 +++|* B - 4, 6, 7.
02679 M00S02204.qload +++|*
02680 M00S02205.qload +++|* CALLS GSF, PTT, WSF.
02681 M00S02206.qload +++|*
02682 M00S02207.qload +++|* MACROS MOVE.
02683 M00S02208.qload +++|
02684 M00S02209.qload +++|
02685 M00S02210.qload +++| RSS SUBR ENTRY/EXIT
| Line S00011 Modification History |
M01 (Added by) | qload1 |
M02 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02686 M02S00011.ns21000 ---| SX7 X6-5 HARDCODED VERSION ONE VALUE, *S1FT*
02687 M02S00012.ns21000 ---| ZR X7,RSS7 IF VERSION ONE FILE (*RHF*) TO SKIP
| Line S02211 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02688 M01S02211.ns21000 ---| SX7 B0+ CLEAR *SSBFL* WORDS IN *BTB*
02689 M01S02212.ns21000 ---| SB6 BTB+SSBFL-1
| Line S00100 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02690 M01S00100.ns21000 +++| SX7 B0+ CLEAR 100B WORDS IN *BTB*
02691 M01S00101.ns21000 +++| SB6 BTB+100B-1
02692 M00S02213.qload +++| SA7 BTB
02693 M00S02214.qload +++| RSS1 SA7 A7+B1
02694 M00S02215.qload +++| SB4 A7-B6
02695 M00S02216.qload +++| NG B4,RSS1 IF NOT END OF BUFFER
02696 M00S02217.qload +++| SX1 X6-2 HARDCODED VERSION ONE VALUE
02697 M00S02218.qload +++| SX4 X6-3 HARDCODED VERSION ONE VALUE
02698 M00S02219.qload +++| ZR X6,RSS2 IF VERSION ONE *INPUT* SYSTEM SECTOR
02699 M00S02220.qload +++| ZR X1,RSS5 IF VERSION ONE *PRINT* SYSTEM SECTOR
02700 M00S02221.qload +++| ZR X4,RSS5 IF VERSION ONE *PUNCH* SYSTEM SECTOR
| Line S02222 Modification History |
M01 (Removed by) | qload1 |
Seq # *Modification Id* Act
----------------------------+
02701 M01S02222.qload1 ---| SB7 MES22 * UNKNOWN VER.1 SYSTEM SECTOR TYPE.*
02702 M01S02223.qload1 ---| EQ RSSX RETURN
| Line S00013 Modification History |
M01 (Added by) | qload1 |
M02 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02703 M02S00013.ns21000 ---| EQ RSS7 SKIP VERSION ONE FILE
| Line S00102 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02704 M01S00102.ns21000 +++| EQ RSS8 SKIP VERSION ONE FILE
02705 M00S02224.qload +++|
02706 M00S02225.qload +++|* PROCESS INPUT FILE SYSTEM SECTORS FIELDS.
02707 M00S02226.qload +++|
02708 M00S02227.qload +++| RSS2 SA1 INTB PROCESS *INPUT* TRANSFER TABLE
02709 M00S02228.qload +++| RJ PTT
02710 M00S02229.qload +++| SX5 /NOSV1/PRSS GET VERSION ONE PRIORITY
02711 M00S02230.qload +++| RJ GSF
02712 M00S02231.qload +++| LX6 12 MASK OUT PRIORITY
02713 M00S02232.qload +++| MX5 -12
02714 M00S02233.qload +++| BX1 -X5*X6
| Line S00014 Modification History |
M01 (Added by) | qload1 |
Seq # *Modification Id* Act
----------------------------+
02715 M01S00014.qload1 +++| SX6 B0
02716 M01S00015.qload1 +++| SX5 X1-100B HARDCODED VERSION ONE VALUE
02717 M01S00016.qload1 +++| PL X5,RSS4 IF VERSION ONE PRIORITY IS .GE. *MNPS*
02718 M00S02234.qload +++| SX5 X1-2 HARDCODED VERSION ONE VALUE
02719 M00S02235.qload +++| SX6 JCIE
02720 M00S02236.qload +++| ZR X5,RSS4 IF VERSION ONE PRIORITY WAS *ERPS*
02721 M00S02237.qload +++| SX5 X1-5 HARDCODED VERSION ONE VALUE
02722 M00S02238.qload +++| SX6 NRIE
02723 M00S02239.qload +++| ZR X5,RSS4 IF VERSION ONE PRIORITY WAS *NRPS*
02724 M00S02240.qload +++| SX5 X1-3
| Line S02241 Modification History |
M01 (Removed by) | qload1 |
Seq # *Modification Id* Act
----------------------------+
02725 M01S02241.qload1 ---| ZR X5,RSS3 IF VERSION ONE PRIORITY WAS *FEPS*
02726 M01S02242.qload1 ---| SB7 MES23 * UNKNOWN VER.1 QUEUE PRIORITY .*
02727 M01S02243.qload1 ---| EQ RSSX RETURN
02728 M01S02244.qload1 ---|
| Line S00017 Modification History |
M01 (Added by) | qload1 |
M02 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02729 M02S00017.ns21000 ---| NZ X5,RSS7 IF UNKNOWN VERSION ONE PRIORITY
| Line S00103 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02730 M01S00103.ns21000 +++| NZ X5,RSS8 IF UNKNOWN VERSION ONE PRIORITY
02731 M00S02245.qload +++| RSS3 SX5 /NOSV1/FLSS+2 PROCESS *RNSS* AND *CNSS*
02732 M00S02246.qload +++| RJ GSF
02733 M00S02247.qload +++| SB6 BTB WRITE *RNSS*
02734 M00S02248.qload +++| SX5 RNSS
02735 M00S02249.qload +++| MX4 12
02736 M00S02250.qload +++| BX6 X4*X6
02737 M00S02251.qload +++| RJ WSF
02738 M00S02252.qload +++| SX5 /NOSV1/FSSS+3
02739 M00S02253.qload +++| RJ GSF
02740 M00S02254.qload +++| SB6 BTB WRITE *CNSS*
02741 M00S02255.qload +++| SX5 CNSS
02742 M00S02256.qload +++| MX4 12
02743 M00S02257.qload +++| BX6 X4*X6
02744 M00S02258.qload +++| RJ WSF
02745 M00S02259.qload +++| SX6 BCIE
02746 M00S02260.qload +++| RSS4 LX6 48 WRITE *JASS*
02747 M00S02261.qload +++| SB6 BTB
02748 M00S02262.qload +++| MX4 12
02749 M00S02263.qload +++| SX5 JASS
02750 M00S02264.qload +++| RJ WSF
02751 M00S02265.qload +++| SX5 /NOSV1/JFSS MASK *EI200 JOB* BIT IN *JFSS*
02752 M00S02266.qload +++| RJ GSF
02753 M00S02267.qload +++| MX4 -59
02754 M00S02268.qload +++| BX6 -X4*X6
02755 M00S02269.qload +++| MX4 12
02756 M00S02270.qload +++| BX6 X4*X6
02757 M00S02271.qload +++| SX5 JFSS WRITE *JFSS*
02758 M00S02272.qload +++| SB6 BTB
02759 M00S02273.qload +++| RJ WSF
02760 M00S02274.qload +++| SX5 /NOSV1/JTSS MULTIPLY *JTSS* BY 10B
02761 M00S02275.qload +++| RJ GSF
02762 M00S02276.qload +++| MX4 12
02763 M00S02277.qload +++| BX6 X4*X6
02764 M00S02278.qload +++| LX6 51 CONVERT TO 24 BIT FIELD
02765 M00S02279.qload +++| MX4 24 WRITE *JTSS*
02766 M00S02280.qload +++| SX5 JTSS
02767 M00S02281.qload +++| SB6 BTB
02768 M00S02282.qload +++| RJ WSF
02769 M00S02283.qload +++| EQ RSS6 PROCESS *INPUT* / *OUTPUT* TRANSFER TABLE
02770 M00S02284.qload +++|
02771 M00S02285.qload +++|* PROCESS PRINT AND PUNCH FILE SYSTEM SECTOR FIELDS.
02772 M00S02286.qload +++|
02773 M00S02287.qload +++| RSS5 SA1 OTTB PROCESS *OUTPUT* TRANSFER TABLE
02774 M00S02288.qload +++| RJ PTT
02775 M00S02289.qload +++| SX5 /NOSV1/ECSS PROCESS OUTPUT DEPENDENT *QFT* DATA
02776 M00S02290.qload +++| RJ GSF
02777 M00S02291.qload +++| MX4 9
02778 M00S02292.qload +++| BX6 X4*X6
02779 M00S02293.qload +++| LX6 3
02780 M00S02294.qload +++| BX1 X4*X6
02781 M00S02295.qload +++| SX5 /NOSV1/ICSS
02782 M00S02296.qload +++| RJ GSF
02783 M00S02297.qload +++| MX4 -51
02784 M00S02298.qload +++| BX6 -X4*X6
02785 M00S02299.qload +++| MX4 12
02786 M00S02300.qload +++| BX6 X4*X6
| Line S00013 Modification History |
M01 (Added by) | qload3 |
Seq # *Modification Id* Act
----------------------------+
02787 M01S00013.qload3 +++| BX5 X6 CHECK FOR *ICSS* OF THREE
02788 M01S00014.qload3 +++| LX5 12
02789 M01S00015.qload3 +++| SX5 X5-3 HARDCODED VERSION ONE VALUE
02790 M01S00016.qload3 +++| ZR X5,RSS8 IF UNABLE TO REFORMAT ASCII FILE
02791 M00S02301.qload +++| SB6 BTB WRITE *ICSS* AND *ECSS* INTO *QFT*
02792 M00S02302.qload +++| SX5 IOSS+18
02793 M00S02303.qload +++| BX6 X1+X6
02794 M00S02304.qload +++| RJ WSF
02795 M00S02305.qload +++|
02796 M00S02306.qload +++|* PROCESS COMMON INPUT/OUTPUT SYSTEM SECTOR FILES.
02797 M00S02307.qload +++|
02798 M00S02308.qload +++| RSS6 SA1 IOTB PROCESS *INPUT* / *OUTPUT* TRANSFER TABLE
02799 M00S02309.qload +++| RJ PTT
02800 M00S02310.qload +++| SA1 RSSA SET *JSN* TO *NOS1*
02801 M00S02311.qload +++| SB6 BTB
02802 M00S02312.qload +++| BX6 X1
02803 M00S02313.qload +++| MX4 24
02804 M00S02314.qload +++| SX5 IOSS
02805 M00S02315.qload +++| RJ WSF
02806 M00S02316.qload +++| SX5 /NOSV1/OOSS PROCESS FAMILY ORDINAL AND USER INDEX
02807 M00S02317.qload +++| RJ GSF
02808 M00S02318.qload +++| MX5 12
02809 M00S02319.qload +++| BX1 X5*X6
02810 M00S02320.qload +++| SX5 /NOSV1/ACSS+3
02811 M00S02321.qload +++| LX1 6
02812 M00S02322.qload +++| BX1 X5*X1
02813 M00S02323.qload +++| RJ GSF
02814 M00S02324.qload +++| MX4 -54
02815 M00S02325.qload +++| BX6 -X4*X6
02816 M00S02326.qload +++| MX4 24
02817 M00S02327.qload +++| BX6 X4*X6
02818 M00S02328.qload +++| SB6 BTB WRITE FAMILY ORDINAL AND USER INDEX
02819 M00S02329.qload +++| SX5 IOSS+2
02820 M00S02330.qload +++| BX6 X6+X1
02821 M00S02331.qload +++| RJ WSF
02822 M00S02332.qload +++| SX5 /NOSV1/DCSS PROCESS NOS/BE DEVICE CODE
02823 M00S02333.qload +++| RJ GSF
02824 M00S02334.qload +++| MX4 12
02825 M00S02335.qload +++| BX6 X4*X6
02826 M00S02336.qload +++| LX6 6
02827 M00S02337.qload +++| BX6 X4*X6
02828 M00S02338.qload +++| SX5 IOSS+4 WRITE DISPOSITION TYPE
02829 M00S02339.qload +++| SB6 BTB
02830 M00S02340.qload +++| RJ WSF
02831 M00S02341.qload +++| SA1 RTCL SET ENTRY TIME INTO QUEUE
02832 M00S02342.qload +++| BX6 X1
02833 M00S02343.qload +++| MX4 24
02834 M00S02344.qload +++| SX5 IOSS+1*5+3
02835 M00S02345.qload +++| SB6 BTB
02836 M00S02346.qload +++| BX6 X4*X6
02837 M00S02347.qload +++| RJ WSF
02838 M00S02348.qload +++| SX5 /NOSV1/OTSS PROCESS ORIGIN TYPE AND SYSTEM CLASS
02839 M00S02349.qload +++| RJ GSF
02840 M00S02350.qload +++| MX4 -54
02841 M00S02351.qload +++| BX6 -X4*X6
02842 M00S02352.qload +++| MX4 12
02843 M00S02353.qload +++| BX6 X4*X6
02844 M00S02354.qload +++| LX6 12
02845 M00S02355.qload +++| SA1 X6+RSSC GET DEFAULT SYSTEM CLASS
02846 M00S02356.qload +++| LX6 48
02847 M00S02357.qload +++| SX5 IOSS+3*5
02848 M00S02358.qload +++| SB6 BTB
02849 M00S02359.qload +++| BX6 X1+X6
02850 M00S02360.qload +++| RJ WSF
02851 M00S02361.qload +++| SA1 SSBF PROCESS *FNSS*
02852 M00S02362.qload +++| MX6 42
02853 M00S02363.qload +++| BX1 X6*X1
02854 M00S02364.qload +++| SX6 QFFT SET FILE TYPE TO *QFFT*
02855 M00S02365.qload +++| LX6 6
02856 M00S02366.qload +++| BX6 X1+X6
02857 M00S02367.qload +++| SA6 BTB STORE *FNSS* INTO SYSTEM SECTOR
02858 M00S02368.qload +++|
02859 M00S02369.qload +++|* PROCESS SPECIAL FIELDS
02860 M00S02370.qload +++|
02861 M00S02371.qload +++| SX5 /NOSV1/FLSS MULTIPLY *FLSS* BY 10B
02862 M00S02372.qload +++| RJ GSF
02863 M00S02373.qload +++| MX4 24
02864 M00S02374.qload +++| BX6 X4*X6
02865 M00S02375.qload +++| LX6 3
02866 M00S02376.qload +++| BX6 X4*X6
02867 M00S02377.qload +++| SX5 FLSS
02868 M00S02378.qload +++| SB6 BTB
02869 M00S02379.qload +++| RJ WSF
02870 M00S02380.qload +++| SA1 RSSB SET *CJSS* AND *OJSS* TO *SYS*
02871 M00S02381.qload +++| SX5 CJSS
02872 M00S02382.qload +++| SB6 BTB
02873 M00S02383.qload +++| MX4 24
02874 M00S02384.qload +++| BX6 X1
02875 M00S02385.qload +++| RJ WSF
02876 M00S02386.qload +++| SA1 RSSB
02877 M00S02387.qload +++| SX5 OJSS
02878 M00S02388.qload +++| SB6 BTB
02879 M00S02389.qload +++| MX4 24
02880 M00S02390.qload +++| BX6 X1
02881 M00S02391.qload +++| RJ WSF
02882 M00S02392.qload +++| SA1 RSSD SET *CHSS* TO SYSTEM DEFAULT CHARGE
02883 M00S02393.qload +++| MX4 60
02884 M00S02394.qload +++| BX6 X1
02885 M00S02395.qload +++| SX5 CHSS
02886 M00S02396.qload +++| SB6 BTB
02887 M00S02397.qload +++| RJ WSF
02888 M00S02398.qload +++| SA1 RSSD SET *PJSS* TO SYSTEM DEFAULT CHARGE
02889 M00S02399.qload +++| MX4 60
02890 M00S02400.qload +++| BX6 X1
02891 M00S02401.qload +++| SX5 PJSS
02892 M00S02402.qload +++| SB6 BTB
02893 M00S02403.qload +++| RJ WSF
| Line S02404 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02894 M01S02404.ns21000 ---| MOVE 100B,BTB,SSBF SET SYSTEM SECTOR INTO *SSBF*
| Line S00104 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02895 M01S00104.ns21000 +++| SA1 GNFC CHECK FOR VERSION ONE RHF FILE
02896 M01S00105.ns21000 +++| NZ X1,RSS7 IF NOT VERSION ONE RHF FILE
02897 M01S00106.ns21000 +++| SX5 /NOSV1/FRSS+4 MASK OFF ORIGINATED FROM LINK BIT
02898 M01S00107.ns21000 +++| RJ GSF
02899 M01S00108.ns21000 +++| MX4 12
02900 M01S00109.ns21000 +++| BX6 X4*X6
02901 M01S00110.ns21000 +++| MX7 1
02902 M01S00111.ns21000 +++| LX7 -9
02903 M01S00112.ns21000 +++| BX6 -X7*X6
02904 M01S00113.ns21000 +++| SX5 FGSS WRITE *FGSS*
02905 M01S00114.ns21000 +++| SB6 BTB
02906 M01S00115.ns21000 +++| RJ WSF
02907 M01S00116.ns21000 +++| SX5 /NOSV1/FMSS PROCESS *FMSS*
02908 M01S00117.ns21000 +++| RJ GSF
02909 M01S00118.ns21000 +++| BX1 X6 SAVE *FMSS*
02910 M01S00119.ns21000 +++| SX5 /NOSV1/OHSS GET ORIGIN *PID*
02911 M01S00120.ns21000 +++| RJ GSF
02912 M01S00121.ns21000 +++| MX5 -18
02913 M01S00122.ns21000 +++| LX6 -48
02914 M01S00123.ns21000 +++| BX6 -X5*X6
02915 M01S00124.ns21000 +++| SB6 BTB
02916 M01S00125.ns21000 +++| BX6 X6+X1
02917 M01S00126.ns21000 +++| SX5 FMSS WRITE *FMSS*
02918 M01S00127.ns21000 +++| MX4 60
02919 M01S00128.ns21000 +++| RJ WSF
02920 M01S00129.ns21000 +++| SX5 /NOSV1/FDSS PROCESS *FDSS*
02921 M01S00130.ns21000 +++| RJ GSF
02922 M01S00131.ns21000 +++| BX1 X6 SAVE FDSS
02923 M01S00132.ns21000 +++| SX5 /NOSV1/DHSS GET DESTINATION *LID*
02924 M01S00133.ns21000 +++| RJ GSF
02925 M01S00134.ns21000 +++| MX5 -18
02926 M01S00135.ns21000 +++| LX6 -48
02927 M01S00136.ns21000 +++| BX6 -X5*X6
02928 M01S00137.ns21000 +++| SB6 BTB
02929 M01S00138.ns21000 +++| BX6 X1+X6
02930 M01S00139.ns21000 +++| SX5 FDSS WRITE *FDSS
02931 M01S00140.ns21000 +++| MX4 60
02932 M01S00141.ns21000 +++| RJ WSF
02933 M01S00142.ns21000 +++| RSS7 MOVE 100B,BTB,SSBF SET SYSTEM SECTOR INTO *SSBF*
| Line S00015 Modification History |
M01 (Added by) | qload4 |
Seq # *Modification Id* Act
----------------------------+
02934 M01S00015.qload4 +++| SB7 B0 CLEAR ERROR ENCOUNTERED
02935 M01S00016.qload4 +++| BX1 X1-X1 CLEAR *EOF* ENCOUNTERED
| Line S02405 Modification History |
M01 (Removed by) | qload1 |
Seq # *Modification Id* Act
----------------------------+
02936 M01S02405.qload1 ---| SB7 B0+ SET NO ERROR ENCOUNTERED
| Line S00018 Modification History |
M01 (Added by) | qload1 |
Seq # *Modification Id* Act
----------------------------+
02937 M01S00018.qload1 +++| SX4 B0+ CLEAR VERSION ONE FILE TO SKIP
02938 M00S02406.qload +++| EQ RSSX RETURN
| Line S00019 Modification History |
M01 (Added by) | qload1 |
Seq # *Modification Id* Act
----------------------------+
02939 M01S00019.qload1 +++|
02940 M01S00020.qload1 +++|* SKIP VERSION ONE FILE.
02941 M01S00021.qload1 +++|
| Line S00022 Modification History |
M01 (Added by) | qload1 |
M02 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02942 M02S00022.ns21000 ---| RSS7 SX7 VOER SET ERROR TYPE
| Line S00143 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02943 M01S00143.ns21000 +++| RSS8 SX7 VOER SET ERROR TYPE
| Line S00023 Modification History |
M01 (Added by) | qload1 |
Seq # *Modification Id* Act
----------------------------+
02944 M01S00023.qload1 +++| SA7 ERTP
02945 M01S00024.qload1 +++| SX7 IGDP SET DISPOSITION TYPE TO *IGNORED*
02946 M01S00025.qload1 +++| SA7 DSPC
| Line S00017 Modification History |
M01 (Added by) | qload4 |
Seq # *Modification Id* Act
----------------------------+
02947 M01S00017.qload4 +++| SB7 B0 CLEAR ERROR ENCOUNTERED
02948 M01S00018.qload4 +++| BX1 X1-X1 CLEAR *EOF* ENCOUNTERED
| Line S00026 Modification History |
M01 (Added by) | qload1 |
Seq # *Modification Id* Act
----------------------------+
02949 M01S00026.qload1 +++| SX4 B1+ SET VERSION ONE FILE TO SKIP
02950 M01S00027.qload1 +++| EQ RSSX RETURN
02951 M00S02407.qload +++|
02952 M00S02408.qload +++|
02953 M00S02409.qload +++| RSSA DATA C*NOS1*
02954 M00S02410.qload +++| RSSB DATA C*SYS*
02955 M00S02411.qload +++| RSSC VFD 6/SYSC,54/0 TABLE OF DEFAULT SYSTEM CLASSES
02956 M00S02412.qload +++| VFD 6/BCSC,54/0
02957 M00S02413.qload +++| VFD 6/RBSC,54/0
02958 M00S02414.qload +++| VFD 6/TSSC,54/0
02959 M00S02415.qload +++| RSSD VFD 60/0L"SYSCHG" SYSTEM DEFAULT CHARGE
02960 M00S02416.qload +++| SQL SPACE 4,10
02961 M00S02417.qload +++|** SQL - SET QFT LIMIT.
02962 M00S02418.qload +++|*
02963 M00S02419.qload +++|* ENTRY (SQTL) = STATIC QFT THRESHOLD LIMIT.
02964 M00S02420.qload +++|*
02965 M00S02421.qload +++|* EXIT (QLIM) = QFT LIMIT FOR LOAD.
02966 M00S02422.qload +++|*
02967 M00S02423.qload +++|* USES X - 0, 2, 3, 6, 7.
02968 M00S02424.qload +++|* A - 2, 7.
02969 M00S02425.qload +++|
02970 M00S02426.qload +++|
02971 M00S02427.qload +++| SQL SUBR ENTRY/EXIT
02972 M00S02428.qload +++| SA2 QFTA GET MAXIMUM NUMBER OF QFT ENTRIES
02973 M00S02429.qload +++| MX0 -12
02974 M00S02430.qload +++| LX2 -24
02975 M00S02431.qload +++| BX2 -X0*X2
02976 M00S02432.qload +++| SX3 SQTL
| Line S02433 Modification History |
M01 (Removed by) | qload11 |
Seq # *Modification Id* Act
----------------------------+
02977 M01S02433.qload11 ---| SX0 200
02978 M01S02434.qload11 ---| IX3 X0-X3
| Line S00001 Modification History |
M01 (Added by) | qload11 |
Seq # *Modification Id* Act
----------------------------+
02979 M01S00001.qload11 +++| SX0 100
02980 M00S02435.qload +++| IX3 X2*X3
02981 M00S02436.qload +++| IX7 X3/X0
02982 M00S02437.qload +++| SA7 QLIM SET LIMIT ON LOAD
02983 M00S02438.qload +++| EQ SQLX RETURN
02984 M00S02439.qload +++| WPH SPACE 4
02985 M00S02440.qload +++|** WPH - WRITE PAGE HEADER.
02986 M00S02441.qload +++|*
02987 M00S02442.qload +++|* ENTRY (WPHC) = DATE.
02988 M00S02443.qload +++|* (WPHD) = TIME.
02989 M00S02444.qload +++|*
02990 M00S02445.qload +++|* EXIT (LINE) RESET.
02991 M00S02446.qload +++|*
02992 M00S02447.qload +++|* USES A - 1, 6.
02993 M00S02448.qload +++|* X - 0, 1, 6.
02994 M00S02449.qload +++|*
02995 M00S02450.qload +++|* CALLS CDD.
02996 M00S02451.qload +++|
02997 M00S02452.qload +++|
02998 M00S02453.qload +++| WPH SUBR ENTRY/EXIT
| Line S00164 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02999 M01S00164.ns22000 +++| SA1 PDFE+1 GET PRINT DENSITY FORMAT CONTROL FLAG
03000 M01S00165.ns22000 +++| BX7 X7-X7
03001 M01S00166.ns22000 +++| SA7 A1
03002 M01S00167.ns22000 +++| WRITEW O,A1-B1,X1 CONDITIONALLY WRITE FORMAT EFFECTOR
03003 M00S02454.qload +++| SA1 WPHA INCREMENT PAGE NUMBER
03004 M00S02455.qload +++| SX6 X1+B1
03005 M00S02456.qload +++| SA6 A1
03006 M00S02457.qload +++| RJ CDD
03007 M00S02458.qload +++| SA1 WPHE SET PAGE NUMBER IN HEADER
03008 M00S02459.qload +++| MX0 36
03009 M00S02460.qload +++| BX1 X0*X1
03010 M00S02461.qload +++| BX6 -X0*X6
03011 M00S02462.qload +++| BX6 X1+X6
03012 M00S02463.qload +++| SA6 A1
03013 M00S02464.qload +++| WRITEW O,WPHB,WPHHL WRITE HEADER LINE
| Line S02465 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03014 M01S02465.ns22000 ---| SX6 B1
| Line S00168 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03015 M01S00168.ns22000 +++| SX6 4
03016 M00S02466.qload +++| SA6 LINE
03017 M00S02467.qload +++| JP WPHX RETURN
03018 M00S02468.qload +++|
03019 M00S02469.qload +++|
03020 M00S02470.qload +++| WPHA BSS 1 PAGE COUNT
03021 M00S02471.qload +++| WPHB DATA C*1 QLOAD/LDLIST PROCESSOR. YY/MM/DD. HH
03022 M00S02472.qload +++|,.MM.SS. PAGE .*
03023 M00S02473.qload +++| WPHC EQU *-5 DATE
03024 M00S02474.qload +++| WPHD EQU *-4 TIME
03025 M00S02475.qload +++| WPHE EQU *-2 PAGE
03026 M00S02476.qload +++| DATA H* * CARRIAGE CONTROL
| Line S02477 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03027 M01S02477.ns22000 ---| DATA C*
03028 M01S02478.ns22000 ---|,LENGTH*
| Line S00169 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03029 M01S00169.ns22000 +++| DATA C* LENGTH
03030 M01S00170.ns22000 +++|,ACCESS*
03031 M00S02479.qload +++| DATA H* * CARRIAGE CONTROL
| Line S02480 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03032 M01S02480.ns22000 ---| DATA C* NO. JSN MID FAMILY DN DT OT DATE
03033 M01S02481.ns22000 ---|,(PRUS) DISPOSITION ERRORS*
| Line S00171 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03034 M02S00171.241l630 ---| DATA C* NO. JSNS MID FAMILY DN DT DS DATE (PRUS)
| Line S00007 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03035 M01S00007.241l630 +++| DATA C* NUM JSNS MID FAMILY DN DT DS DATE (PRUS)
| Line S00172 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03036 M01S00172.ns22000 +++|,LEVEL DISPOSITION ERRORS*
03037 M00S02482.qload +++| DATA C* * BLANK LINE
03038 M00S02483.qload +++| WPHHL EQU *-WPHB
03039 M00S02484.qload +++| WSF SPACE 4
03040 M00S02485.qload +++|** WSF - WRITE SYSTEM SECTOR FIELD.
03041 M00S02486.qload +++|*
03042 M00S02487.qload +++|* ENTRY (X4) = FIELD MASK.
03043 M00S02488.qload +++|* (X5) = FIELD ADDRESS BIASED BY (*BFMS*+2).
03044 M00S02489.qload +++|* (X6) = FIELD LEFT JUSTIFIED.
03045 M00S02490.qload +++|* (B6) = STARTING ADDRESS OF SYSTEM SECTOR.
03046 M00S02491.qload +++|*
03047 M00S02492.qload +++|* USES A - 2, 3, 6, 7.
03048 M00S02493.qload +++|* B - 6.
03049 M00S02494.qload +++|* X - ALL.
03050 M00S02495.qload +++|
03051 M00S02496.qload +++|
03052 M00S02497.qload +++| WSF SUBR ENTRY/EXIT
03053 M00S02498.qload +++| SX3 X5-BFMS-2 ADJUST ADDRESS
03054 M00S02499.qload +++| SX2 5 COMPUTE *CM* ADDRESS
03055 M00S02500.qload +++| BX0 X2
03056 M00S02501.qload +++| IX7 X3/X2
03057 M00S02502.qload +++| IX1 X0*X7
03058 M00S02503.qload +++| SX3 X3+
03059 M00S02504.qload +++| SX0 12
03060 M00S02505.qload +++| IX1 X3-X1 GET BYTE COUNT
03061 M00S02506.qload +++| IX1 X0*X1 FORM SHIFT COUNT
03062 M00S02507.qload +++| SX5 59
03063 M00S02508.qload +++| SA2 X7+B6 GET SYSTEM SECTOR WORDS
03064 M00S02509.qload +++| SA3 A2+B1
03065 M00S02510.qload +++| IX5 X5-X1 60D - SHIFT COUNT
03066 M00S02511.qload +++| SB6 X5
03067 M00S02512.qload +++| MX0 1 FORM MASK
03068 M00S02513.qload +++| AX0 B6,X0
03069 M00S02514.qload +++| SB6 B6+B1
03070 M00S02515.qload +++| LX6 B6,X6 POSITION DATA
03071 M00S02516.qload +++| LX0 B6,X0 POSITION GENERATED MASK
03072 M00S02517.qload +++| LX4 B6,X4 POSITION FIELD MASK
03073 M00S02518.qload +++| BX1 X0*X4 FORM PARTIAL MASK
03074 M00S02519.qload +++| BX7 -X1*X2 CLEAR FIELD
03075 M00S02520.qload +++| BX5 X1*X6 MASK OFF DATA
03076 M00S02521.qload +++| BX7 X5+X7 MERGE DATA
03077 M00S02522.qload +++| BX4 -X0*X4 ADJUST MASK
03078 M00S02523.qload +++| SA7 A2
03079 M00S02524.qload +++| BX6 X4*X6 MASK DATA
03080 M00S02525.qload +++| BX7 -X4*X3 CLEAR FIELD
03081 M00S02526.qload +++| BX6 X6+X7 MERGE DATA
03082 M00S02527.qload +++| SA6 A3
03083 M00S02528.qload +++| JP WSFX RETURN
03084 M00S02529.qload +++| SPACE 4
03085 M00S02530.qload +++|* OPERATOR/DAYFILE MESSAGES.
03086 M00S02531.qload +++|
03087 M00S02532.qload +++|
03088 M00S02533.qload +++| MES1 DATA C* QLOAD OPERATION COMPLETE. *
03089 M00S02534.qload +++| MES2 DATA C* QLOAD ABORTED. *
03090 M00S02535.qload +++| MES3 DATA C* LOAD FILE MISPOSITIONED. *
03091 M00S02536.qload +++| MES4 DATA C* OUTPUT FILE RELEASED. *
03092 M00S02537.qload +++| MES5 DATA C* LDLIST OPERATION COMPLETE. *
03093 M00S02538.qload +++| MES6 DATA C* ACTIVE LOAD NOT ALLOWED. *
03094 M00S02539.qload +++| MES7 DATA C$ CANNOT ATTACH *IQFT* FILE. $
03095 M00S02540.qload +++| MES8 DATA C* DESTINATION DEVICE REQUIRED. *
03096 M00S02541.qload +++| MES9 DATA C* FILE NAME CONFLICT. *
03097 M00S02542.qload +++| MES10 DATA C* INACTIVE LOAD NOT ALLOWED. *
03098 M00S02543.qload +++| MES11 DATA C$ QFT LIMIT ON LOAD. $
03099 M00S02544.qload +++| MES13 DATA C$ QFT FULL DETECTED BY *QFM*. $
03100 M00S02545.qload +++| MES14 DATA C* DESTINATION DEVICE ERROR. *
03101 M00S02546.qload +++| MES15 DATA C* ERROR FILE LIMIT. *
03102 M00S02547.qload +++| MES16 DATA C* LOAD FILE POSITION LOST. *
03103 M00S02548.qload +++| MES17 DATA C* NO OUTPUT FILE PRESENT. *
03104 M00S02549.qload +++| MES18 DATA C$ *QFM* ERROR ON ERRNNN FILE. $
03105 M00S02550.qload +++| MES19 DATA C* QLOAD TERMINATED. *
03106 M00S02551.qload +++| MES20 DATA C$ PREMATURE *EOF* ENCOUNTERED. $
03107 M00S02552.qload +++| MES21 DATA C* QUEUE FILE ASSIGN ERROR. *
| Line S02553 Modification History |
M01 (Removed by) | qload1 |
Seq # *Modification Id* Act
----------------------------+
03108 M01S02553.qload1 ---| MES22 DATA C* UNKNOWN VER.1 SYSTEM SECTOR TYPE.*
03109 M01S02554.qload1 ---| MES23 DATA C* UNKNOWN VER.1 QUEUE PRIORITY .*
| Line S00007 Modification History |
M01 (Added by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
03110 M01S00007.ns2099 +++| MES24 DATA C* IQFT NOT FOUND.*
| Line S00053 Modification History |
M01 (Added by) | ns2137 |
M02 (Removed by) | qload9 |
Seq # *Modification Id* Act
----------------------------+
03111 M02S00053.qload9 ---| MES25 DATA C* DSP RETURNED ERROR XXB. *
03112 M00S02555.qload +++| SPACE 4
03113 M00S02556.qload +++|* COMMON DECKS (PROCESSORS).
03114 M00S02557.qload +++|
03115 M00S02558.qload +++|
03116 M00S02559.qload +++| WRIF$ EQU 1 SELECT *REISSUE CURRENT WRITE*
03117 M00S02560.qload +++|*CALL COMCCDD
03118 M00S02561.qload +++|*CALL COMCCIO
03119 M00S02562.qload +++|*CALL COMCCOD
03120 M00S02563.qload +++|*CALL COMCCPM
03121 M00S02564.qload +++|*CALL COMCEDT
03122 M00S02565.qload +++|*CALL COMCFQO
03123 M00S02566.qload +++|*CALL COMCIQP
03124 M00S02567.qload +++|*CALL COMCLFM
03125 M00S02568.qload +++|*CALL COMCMVE
03126 M00S02569.qload +++|*CALL COMCQFM
03127 M00S02570.qload +++|*CALL COMCRDO
03128 M00S02571.qload +++|*CALL COMCRDW
| Line S00173 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03129 M01S00173.ns22000 +++|*CALL COMCSCB
| Line S00144 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
03130 M01S00144.ns21000 +++|*CALL COMCSFM
03131 M00S02572.qload +++|*CALL COMCSYS
| Line S00174 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03132 M01S00174.ns22000 +++|*CALL COMCVLC
03133 M00S02573.qload +++| LIST X
03134 M00S02574.qload +++|*CALL COMCVQF
03135 M00S02575.qload +++| LIST -X
03136 M00S02576.qload +++|*CALL COMCWTW
03137 M00S02577.qload +++|*CALL COMCZTB
03138 M00S02578.qload +++| EJECT
03139 M00S02579.qload +++|* BUFFERS.
03140 M00S02580.qload +++|
03141 M00S02581.qload +++|
| Line S02582 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
03142 M01S02582.ns21000 ---| SSBF EQU * SYSTEM SECTOR BUFFER
| Line S00145 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
03143 M01S00145.ns21000 +++| SSBF EQU * SYSTEM INFORMATION BUFFER
03144 M00S02583.qload +++| WBUF EQU SSBF+SSBFL+1
03145 M00S02584.qload +++| OBUF EQU WBUF+WBUFL OUTPUT FILE BUFFER
03146 M00S02585.qload +++| SBUF EQU OBUF+BUFL SCRATCH FILE BUFFER
03147 M00S02586.qload +++| TBUF EQU SBUF+SBUFL LOAD FILE BUFFER
03148 M00S02587.qload +++| IBUF EQU TBUF+TBUFL *IQFT* FILE BUFFER
03149 M00S02588.qload +++| BTB EQU IBUF+IBUFL BIT BUCKET
03150 M00S02589.qload +++| RFL= EQU BTB+WBUFL
03151 M00S02590.qload +++| BUFFL EQU RFL=
03152 M00S02591.qload +++| SPACE 4,10
03153 M00S02592.qload +++| ERRPL *-RFL IF DEFAULT FIELD LENGTH TOO SMALL
03154 M00S02593.qload +++| SPACE 4,10
03155 M00S02594.qload +++| END QLOAD