cdc:nos2.source:opl.opl871:deck:qload.001
Deck QLOAD Part 001
25 Modifications
Listing Sections
- Deck QLOAD Start
- Deck QLOAD Part 1 (Line 1498)
Source
Seq # *Modification Id* Act ----------------------------+ 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 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. 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 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 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 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 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 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
cdc/nos2.source/opl.opl871/deck/qload.001.txt · Last modified: by 127.0.0.1