Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:0vj.001
Deck 0VJ Part 001
23 Modifications
Listing Sections
- Deck 0VJ Start
- Deck 0VJ Part 1 (Line 1447)
Source
Seq # *Modification Id* Act ----------------------------+ 01447 M00S01061.0vj +++| PJN CTS1 IF END OF LINE 01448 M00S01062.0vj +++| LDI CA 01449 M00S01063.0vj +++| ZJN CTSX IF COLON 01450 M00S01064.0vj +++| LDN 1R9 01451 M00S01065.0vj +++| SBI CA 01452 M00S01066.0vj +++| PJN CTS2 IF NOT SEPARATOR OR TERMINATOR 01453 M00S01067.0vj +++| LDI CA 01454 M00S01068.0vj +++| LMN 1R) 01455 M00S01069.0vj +++| ZJN CTS1 IF TERMINATOR 01456 M00S01070.0vj +++| LMN 1R.&1R) 01457 M00S01071.0vj +++| ZJN CTS1 IF TERMINATOR 01458 M00S01072.0vj +++| LDN 0 SET SEPARATOR STATUS 01459 M00S01073.0vj +++| UJN CTSX RETURN 01460 M00S01074.0vj +++| 01461 M00S01075.0vj +++| CTS1 LCN 1 SET TERMINATOR STATUS 01462 M00S01076.0vj +++| UJN CTSX RETURN 01463 M00S01077.0vj +++| CVS SPACE 4,10 01464 M00S01078.0vj +++|** CVS - CHECK FOR VALID SERVICE CLASS. 01465 M00S01079.0vj +++|* 01466 M00S01080.0vj +++|* ENTRY (CM) = TWO CHARACTER MNEMONIC TO BE VALIDATED. 01467 M00S01081.0vj +++|* 01468 M00S01082.0vj +++|* EXIT (A) = 0, IF SERVICE CLASS IS VALID. 01469 M00S01083.0vj +++|* (A) .LT. 0, IF NOT VALID. 01470 M00S01084.0vj +++|* (T2) = SERVICE CLASS VALUE. 01471 M00S01085.0vj +++|* 01472 M00S01086.0vj +++|* USES T2. 01473 M00S01087.0vj +++| 01474 M00S01088.0vj +++| 01475 M00S01089.0vj +++| CVS SUBR ENTRY/EXIT 01476 M00S01090.0vj +++| LDN 0 INITIALIZE TABLE INDEX 01477 M00S01091.0vj +++| STD T2 01478 M00S01092.0vj +++| CVS1 LDM TCVS,T2 01479 M00S01093.0vj +++| LMD CM 01480 M00S01094.0vj +++| ZJN CVSX IF MATCH 01481 M00S01095.0vj +++| AOD T2 01482 M00S01096.0vj +++| LDN MXSC 01483 M00S01097.0vj +++| SBD T2 01484 M00S01098.0vj +++| MJN CVSX IF END OF TABLE 01485 M00S01099.0vj +++| UJN CVS1 CONTINUE SEARCH 01486 M00S01100.0vj +++| TCVS SPACE 4,10 01487 M00S01101.0vj +++|** TCVS - TABLE OF ALLOWED SERVICE CLASS MNEMONICS. 01488 M00S01102.0vj +++| 01489 M00S01103.0vj +++| 01490 M00S01104.0vj +++| TCVS INDEX
| Line S01105 Modification History | |
|---|---|
M01 (Removed by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 01491 M01S01105.ns2217 ---| INDEX SYSC,2RSY 01492 M01S01106.ns2217 ---| INDEX BCSC,2RBC 01493 M01S01107.ns2217 ---| INDEX RBSC,2RRB 01494 M01S01108.ns2217 ---| INDEX TSSC,2RTS 01495 M01S01109.ns2217 ---| INDEX DISC,2RDI 01496 M01S01110.ns2217 ---| INDEX NSSC,2RNS 01497 M01S01111.ns2217 ---| INDEX MASC,2RMA 01498 M01S01112.ns2217 ---| INDEX CTSC,2RCT 01499 M01S01113.ns2217 ---| INDEX I0SC,2RI0 01500 M01S01114.ns2217 ---| INDEX I1SC,2RI1 01501 M01S01115.ns2217 ---| INDEX I2SC,2RI2 01502 M01S01116.ns2217 ---| INDEX I3SC,2RI3
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 01503 M01S00026.ns2217 +++| LIST D 01504 M01S00027.ns2217 +++| .SCL HERE 01505 M01S00028.ns2217 +++| LIST * 01506 M00S01117.0vj +++| INDEX MXSC 01507 M00S01118.0vj +++| DPW SPACE 4,15 01508 M00S01119.0vj +++|** DPW - DELETE PASSWORD FROM INPUT FILE. 01509 M00S01120.0vj +++|* 01510 M00S01121.0vj +++|* ENTRY (FWPC) = FWA OF PACKED COMMAND.
| Line S01122 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01511 M01S01122.261l700 ---|* (FWPW) = FWA OF PASSWORD IN STRING BUFFER. 01512 M01S01123.261l700 ---|* (LWPW) = LWA+1 OF PASSWORD IN STRING BUFFER. 01513 M01S01124.261l700 ---|* (LWUC) = LWA+1 OF UNPACKED COMMAND.
| Line S00216 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01514 M01S00216.261l700 +++|* (TUCPA+1) = FWA OF PASSWORD IN STRING BUFFER. 01515 M01S00217.261l700 +++|* (TUCPA+2) = LWA+1 OF PASSWORD IN STRING BUFFER. 01516 M01S00218.261l700 +++|* (CA) = ADDRESS OF TERMINATOR IN STRING BUFFER. 01517 M00S01125.0vj +++|* (PSWD) = 0 IF NO PASSWORD SPECIFIED. 01518 M00S01126.0vj +++|*
| Line S01127 Modification History | |
|---|---|
M01 (Removed by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 01519 M01S01127.ns2420c ---|* EXIT PASSWORD (IF SPECIFIED) DELETED FROM USER COMMAND.
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 01520 M01S00015.ns2420c +++|* EXIT PASSWORD (IF SPECIFIED) DELETED FROM USER COMMAND, 01521 M01S00016.ns2420c +++|* UNLESS THE *DO NOT DELETE PASSWORD* BIT WAS SET. 01522 M00S01128.0vj +++|* USER COMMAND REPACKED TO INPUT FILE BUFFER. 01523 M00S01129.0vj +++|* 01524 M00S01130.0vj +++|* USES T1, T2. 01525 M00S01131.0vj +++| 01526 M00S01132.0vj +++| 01527 M00S01133.0vj +++| DPW SUBR ENTRY/EXIT 01528 M00S01134.0vj +++| LDM PSWD 01529 M00S01135.0vj +++| ZJN DPWX IF NO PASSWORD SPECIFIED
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 01530 M01S00017.ns2420c +++| LDM ZVJP 01531 M01S00018.ns2420c +++| SHN 21-10 01532 M01S00019.ns2420c +++| MJN DPWX IF PASSWORD NOT TO BE DELETED
| Line S01136 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01533 M01S01136.261l700 ---| LDM FWPW FWA OF PASSWORD
| Line S00219 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01534 M01S00219.261l700 +++| LDM TUCPA+1 FWA OF PASSWORD 01535 M00S01137.0vj +++| STD T1
| Line S01138 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01536 M01S01138.261l700 ---| LDM LWPW LWA+1 OF PASSWORD
| Line S00220 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01537 M01S00220.261l700 +++| LDM TUCPA+2 LWA+1 OF PASSWORD 01538 M00S01139.0vj +++| STD T2
| Line S00221 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01539 M01S00221.261l700 +++| AOD CA SET TO MOVE TERMINATOR 01540 M00S01140.0vj +++| 01541 M00S01141.0vj +++|* MOVE END OF USER COMMAND DOWN (DELETING PASSWORD). 01542 M00S01142.0vj +++| 01543 M00S01143.0vj +++| DPW1 LDI T2 MOVE CHARACTER 01544 M00S01144.0vj +++| STI T1 01545 M00S01145.0vj +++| AOD T1 01546 M00S01146.0vj +++| AOD T2
| Line S01147 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01547 M01S01147.261l700 ---| SBM LWUC 01548 M01S01148.261l700 ---| MJN DPW1 IF NOT END OF COMMAND
| Line S00222 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01549 M01S00222.261l700 +++| SBD CA 01550 M01S00223.261l700 +++| MJN DPW1 IF NOT TERMINATOR 01551 M00S01149.0vj +++| 01552 M00S01150.0vj +++|* PAD END OF COMMAND WITH BLANKS. 01553 M00S01151.0vj +++| 01554 M00S01152.0vj +++| DPW2 LDN 1R SET BLANK IN BUFFER 01555 M00S01153.0vj +++| STI T1 01556 M00S01154.0vj +++| AOD T1
| Line S01155 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01557 M01S01155.261l700 ---| SBM LWUC
| Line S00224 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01558 M01S00224.261l700 +++| SBD CA 01559 M00S01156.0vj +++| MJN DPW2 IF MORE CHARACTERS TO PAD 01560 M00S01157.0vj +++| 01561 M00S01158.0vj +++|* REPACK USER COMMAND TO INPUT FILE BUFFER. 01562 M00S01159.0vj +++| 01563 M00S01160.0vj +++| LDC. CHAR FWA OF UNPACKED COMMAND 01564 M00S01161.0vj +++| STD T1 01565 M00S01162.0vj +++| LDM FWPC FWA OF PACKED COMMAND 01566 M00S01163.0vj +++| STD T2 01567 M00S01164.0vj +++| DPW3 LDI T1 PACK TWO CHARACTERS 01568 M00S01165.0vj +++| SHN 6 01569 M00S01166.0vj +++| LMM 1,T1 01570 M00S01167.0vj +++| STI T2 01571 M00S01168.0vj +++| AOD T2 01572 M00S01169.0vj +++| LDN 2 01573 M00S01170.0vj +++| RAD T1 01574 M00S01171.0vj +++| SBM LWUC 01575 M00S01172.0vj +++| MJN DPW3 IF MORE CHARACTERS TO PACK 01576 M00S01173.0vj +++| LJM DPWX RETURN 01577 M00S01174.0vj +++| ERR SPACE 4,10 01578 M00S01175.0vj +++|** ERR - PROCESS JOB COMMAND ERROR. 01579 M00S01176.0vj +++|* 01580 M00S01177.0vj +++|* ENTRY (CA) = CURRENT CHARACTER ADDRESS. 01581 M00S01178.0vj +++|* 01582 M00S01179.0vj +++|* EXIT (CA) ADVANCED TO NEXT SEPARATOR OR TERMINATOR. 01583 M00S01180.0vj +++|* (JCEF) INCREMENTED. 01584 M00S01181.0vj +++|* 01585 M00S01182.0vj +++|* USES CA. 01586 M00S01183.0vj +++| 01587 M00S01184.0vj +++| 01588 M00S01185.0vj +++| ERR SUBR ENTRY/EXIT 01589 M00S01186.0vj +++| AOM JCEF FLAG ERROR 01590 M00S01187.0vj +++| 01591 M00S01188.0vj +++|* SKIP TO END OF CURRENT ARGUMENT. 01592 M00S01189.0vj +++| 01593 M00S01190.0vj +++| ERR1 RJM CTS CHECK FOR TERMINATOR/SEPARATOR 01594 M00S01191.0vj +++| ERR2 MJN ERRX IF TERMINATOR 01595 M00S01192.0vj +++| NJN ERR3 IF NOT SEPARATOR 01596 M00S01193.0vj +++| LDI CA 01597 M00S01194.0vj +++| LMN 1R= 01598 M00S01195.0vj +++| NJN ERRX IF NOT EQUAL SIGN 01599 M00S01196.0vj +++| ERR3 RJM GNC GET NEXT CHARACTER 01600 M00S01197.0vj +++| UJN ERR2 CONTINUE 01601 M00S01198.0vj +++| GNC SPACE 4,15 01602 M00S01199.0vj +++|** GNC - GET NEXT NONBLANK CHARACTER. 01603 M00S01200.0vj +++|* 01604 M00S01201.0vj +++|* ENTRY (CA) = ADDRESS OF CURRENT CHARACTER. 01605 M00S01202.0vj +++|* (LWUC) = LWA+1 OF UNPACKED COMMAND. 01606 M00S01203.0vj +++|* 01607 M00S01204.0vj +++|* EXIT (A) = NEXT NONBLANK CHARACTER. 01608 M00S01205.0vj +++|* (A) = 0 IF SEPARATOR. 01609 M00S01206.0vj +++|* (A) = -1 IF TERMINATOR OR END OF LINE. 01610 M00S01207.0vj +++|* (CA) = ADDRESS OF CHARACTER. 01611 M00S01208.0vj +++|* 01612 M00S01209.0vj +++|* USES CA. 01613 M00S01210.0vj +++|* 01614 M00S01211.0vj +++|* CALLS CTS. 01615 M00S01212.0vj +++| 01616 M00S01213.0vj +++| 01617 M00S01214.0vj +++| GNC2 LCN 1 SET END OF LINE STATUS 01618 M00S01215.0vj +++| 01619 M00S01216.0vj +++| GNC SUBR ENTRY/EXIT 01620 M00S01217.0vj +++| RJM CTS CHECK FOR TERMINATOR 01621 M00S01218.0vj +++| MJN GNCX IF ALREADY AT TERMINATOR 01622 M00S01219.0vj +++| GNC1 AOD CA GET NEXT CHARACTER 01623 M00S01220.0vj +++| SBM LWUC 01624 M00S01221.0vj +++| PJN GNC2 IF END OF LINE 01625 M00S01222.0vj +++| LDI CA 01626 M00S01223.0vj +++| LMN 1R 01627 M00S01224.0vj +++| ZJN GNC1 IF BLANK 01628 M00S01225.0vj +++| RJM CTS CHECK FOR TERMINATOR/SEPARATOR 01629 M00S01226.0vj +++| UJN GNCX RETURN
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | tl0vj1 |
Seq # *Modification Id* Act ----------------------------+ 01630 M01S00021.tl0vj1 +++| ISS SPACE 4,10 01631 M01S00022.tl0vj1 +++| ERRNG *-OIJ0-ZIJL *0IJ* OVERFLOW INTO *ISS* 01632 M00S01227.0vj +++| ISS SPACE 4,15 01633 M00S01228.0vj +++|** ISS - INITIALIZE SYSTEM SECTOR. 01634 M00S01229.0vj +++|* 01635 M00S01230.0vj +++|* ENTRY (JF) = JOB FIELD LENGTH. 01636 M00S01231.0vj +++|* (CN) = FWA OF STATEMENT BUFFER.
| Line S01232 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01637 M01S01232.v23l617 ---|* (T6) = ADDRESS OF COMMAND AFTER JOB COMMAND.
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01638 M01S00024.v23l617 +++|* (CB) = ADDRESS OF COMMAND AFTER JOB COMMAND. 01639 M00S01233.0vj +++|* (JTSS - JTSS+1) = JOB STEP TIME LIMIT. 01640 M00S01234.0vj +++|* 01641 M00S01235.0vj +++|* EXIT *BFMS* CONTAINS SYSTEM SECTOR. 01642 M00S01236.0vj +++|* 01643 M00S01237.0vj +++|* USES CM - CM+4. 01644 M00S01238.0vj +++|* 01645 M00S01239.0vj +++|* MACROS SFA. 01646 M00S01240.0vj +++| 01647 M00S01241.0vj +++| 01648 M00S01242.0vj +++| ISS SUBR ENTRY/EXIT 01649 M00S01243.0vj +++| 01650 M00S01244.0vj +++|* SET KEY PUNCH MODE. 01651 M00S01245.0vj +++| 01652 M00S01246.0vj +++| LDD CN CHECK LENGTH OF JOB COMMAND 01653 M00S01247.0vj +++| ADN 80D/2-1
| Line S01248 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01654 M01S01248.v23l617 ---| SBD T6
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01655 M01S00025.v23l617 +++| SBD CB 01656 M00S01249.0vj +++| PJN ISS1 IF JOB COMMAND .LT. 80 COLUMNS 01657 M00S01250.0vj +++| LDM. 47,CN 01658 M00S01251.0vj +++| LMC 2R26 01659 M00S01252.0vj +++| ZJN ISS3 IF O26 01660 M00S01253.0vj +++| LMN 2R29&2R26 01661 M00S01254.0vj +++| ZJN ISS2 IF O29 01662 M00S01255.0vj +++| ISS1 LDN IPRL GET SYSTEM DEFAULT KEYPUNCH MODE 01663 M00S01256.0vj +++| CRD CM 01664 M00S01257.0vj +++| LDD CM+2 01665 M00S01258.0vj +++| SHN -13 01666 M00S01259.0vj +++| ZJN ISS3 IF O26 01667 M00S01260.0vj +++| ISS2 LDN 1 01668 M00S01261.0vj +++| ISS3 STM. JFSS 01669 M00S01262.0vj +++| LDN 0 CLEAR VALIDATION BLOCK 01670 M00S01263.0vj +++| STM. VASS 01671 M00S01264.0vj +++| 01672 M00S01265.0vj +++|* SET ECS AND CM FIELD LENGTHS. 01673 M00S01266.0vj +++| 01674 M00S01267.0vj +++| LDD JE SET JOB COMMAND ECS FIELD LENGTH 01675 M00S01268.0vj +++| STM. JESS 01676 M00S01269.0vj +++| LDD JF CHECK JOB FL 01677 M00S01270.0vj +++| STM. JCSS SET JOB COMMAND FIELD LENGTH 01678 M00S01271.0vj +++| LDC PFNL SET DEFAULT FAMILY NAME 01679 M00S01272.0vj +++| CRD CM 01680 M00S01273.0vj +++| SFA EST,CM+3 01681 M00S01274.0vj +++| ADK EQDE 01682 M00S01275.0vj +++| CRD CM 01683 M00S01276.0vj +++| LDD CM+4 01684 M00S01277.0vj +++| SHN 3 01685 M00S01278.0vj +++| ADN PFGL 01686 M00S01279.0vj +++| CRM. FMSS,ON 01687 M00S01280.0vj +++| LDN ZERL CLEAR USER NAME 01688 M00S01281.0vj +++| CRM. ACSS,ON 01689 M00S01282.0vj +++| LJM ISSX RETURN 01690 M00S01283.0vj +++| PAC SPACE 4,20 01691 M00S01284.0vj +++|** PAC - PACK CHARACTER STRING. 01692 M00S01285.0vj +++|* 01693 M00S01286.0vj +++|* ENTRY (CA) = ADDRESS OF START OF CHARACTER STRING. 01694 M00S01287.0vj +++|* (A) = ADDRESS OF PACK BUFFER (10 CHAR). 01695 M00S01288.0vj +++|* (T1) = ASTERISK, IF ASTERISK TO BE ALLOWED IN STRING. 01696 M00S01289.0vj +++|* 01697 M00S01290.0vj +++|* EXIT (CA) = ADDRESS OF NEXT CHARACTER IN STRING BUFFER. 01698 M00S01291.0vj +++|* (A) = 0, IF TOO MANY CHARACTERS. 01699 M00S01292.0vj +++|* (A) = 1. IF SEPARATOR ENCOUNTERED. 01700 M00S01293.0vj +++|* (A) .LT. 0, IF TERMINATOR ENCOUNTERED. 01701 M00S01294.0vj +++|* (T3) = 10 - NUMBER OF CHARACTERS. 01702 M00S01295.0vj +++|* 01703 M00S01296.0vj +++|* USES CA, T2, T3. 01704 M00S01297.0vj +++|* 01705 M00S01298.0vj +++|* CALLS GNC. 01706 M00S01299.0vj +++| 01707 M00S01300.0vj +++| 01708 M00S01301.0vj +++| PAC5 LDN 1 SET NO ERROR 01709 M00S01302.0vj +++| 01710 M00S01303.0vj +++| PAC SUBR ENTRY/EXIT 01711 M00S01304.0vj +++| STD T2 01712 M00S01305.0vj +++| LDN 10 SET NUMBER OF CHARACTERS TO ASSEMBLE 01713 M00S01306.0vj +++| STD T3 01714 M00S01307.0vj +++| SOD CA 01715 M00S01308.0vj +++| PAC1 RJM GNC GET NEXT CHARACTER 01716 M00S01309.0vj +++| MJN PACX IF TERMINATOR 01717 M00S01310.0vj +++| NJN PAC2 IF NOT SEPARATOR 01718 M00S01311.0vj +++| LDD T1 01719 M00S01312.0vj +++| ZJN PAC5 IF ASTERISK NOT ALLOWED 01720 M00S01313.0vj +++| LMI CA 01721 M00S01314.0vj +++| NJN PAC5 IF SEPARATOR OTHER THAN ASTERISK 01722 M00S01315.0vj +++| PAC2 SOD T3 01723 M00S01316.0vj +++| ZJN PACX IF TOO MANY CHARACTERS 01724 M00S01317.0vj +++| LPN 1 01725 M00S01318.0vj +++| ZJN PAC3 IF LOWER CHARACTER 01726 M00S01319.0vj +++| LDI CA SET UPPER CHARACTER 01727 M00S01320.0vj +++| SHN 6 01728 M00S01321.0vj +++| STI T2 01729 M00S01322.0vj +++| UJN PAC1 PACK NEXT CHARACTER 01730 M00S01323.0vj +++| 01731 M00S01324.0vj +++| PAC3 LDI T2 SET LOWER CHARACTER 01732 M00S01325.0vj +++| SCN 77 01733 M00S01326.0vj +++| ADI CA 01734 M00S01327.0vj +++| STI T2 01735 M00S01328.0vj +++| AOD T2 01736 M00S01329.0vj +++| UJN PAC1 PACK NEXT CHARACTER 01737 M00S01330.0vj +++| UCS SPACE 4,15 01738 M00S01331.0vj +++|** UCS - UNPACK COMMAND TO STRING BUFFER. 01739 M00S01332.0vj +++|*
| Line S01333 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01740 M01S01333.v23l617 ---|* ENTRY (T6) = FWA OF PACKED COMMAND.
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01741 M01S00026.v23l617 +++|* ENTRY (CB) = FWA OF PACKED COMMAND. 01742 M00S01334.0vj +++|* 01743 M00S01335.0vj +++|* EXIT (A) = 0, IF ERROR ENCOUNTERED.
| Line S01336 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01744 M01S01336.v23l617 ---|* (T6) = FWA OF NEXT COMMAND IN BUFFER.
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01745 M01S00027.v23l617 +++|* (CB) = FWA OF NEXT COMMAND IN BUFFER. 01746 M00S01337.0vj +++|* (CA) = FWA OF UNPACKED COMMAND. 01747 M00S01338.0vj +++|* (FWPC) = FWA OF PACKED COMMAND. 01748 M00S01339.0vj +++|* (LWUC) = LWA+1 OF UNPACKED COMMAND. 01749 M00S01340.0vj +++|*
| Line S01341 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01750 M01S01341.v23l617 ---|* USES CA, T1, T2, T3, T4, T5, T6.
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01751 M01S00028.v23l617 +++|* USES CA, T1 - T5, CB. 01752 M00S01342.0vj +++| 01753 M00S01343.0vj +++|
| Line S01344 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01754 M01S01344.v23l617 ---| UCS7 AOD T6 01755 M01S01345.v23l617 ---| LDI T6
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01756 M01S00029.v23l617 +++| UCS7 AOD CB 01757 M01S00030.v23l617 +++| LDI CB 01758 M00S01346.0vj +++| ZJN UCS7 IF NOT FWA OF NEXT COMMAND 01759 M00S01347.0vj +++| UCS8 LDC. CHAR 01760 M00S01348.0vj +++| STD CA 01761 M00S01349.0vj +++| ADN 1 SAVE LWA+1 OF UNPACKED COMMAND 01762 M00S01350.0vj +++| RAD T3 01763 M00S01351.0vj +++| STM LWUC 01764 M00S01352.0vj +++| LDN 0 INSURE ZERO FOLLOWS LAST CHARACTER 01765 M00S01353.0vj +++| STI T3 01766 M00S01354.0vj +++| LDD T4 RETURN ERROR IF NO TERMINATOR FOUND 01767 M00S01355.0vj +++| 01768 M00S01356.0vj +++| UCS SUBR ENTRY/EXIT
| Line S01357 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01769 M01S01357.v23l617 ---| LDD T6 SAVE FWA OF PACKED COMMAND
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01770 M01S00031.v23l617 +++| LDD CB SAVE FWA OF PACKED COMMAND 01771 M00S01358.0vj +++| STM FWPC
| Line S01359 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01772 M01S01359.v23l617 ---| SOD T6 SET INDEX ADDRESSES
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01773 M01S00032.v23l617 +++| SOD CB SET INDEX ADDRESSES
| Line S01360 Modification History | |
|---|---|
M01 (Removed by) | 0vj4 |
Seq # *Modification Id* Act ----------------------------+ 01774 M01S01360.0vj4 ---| STD T3 01775 M00S01361.0vj +++| LDN 0 01776 M00S01362.0vj +++| STD T5 01777 M00S01363.0vj +++| STD T4 SET TERMINATOR NOT FOUND
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 0vj4 |
Seq # *Modification Id* Act ----------------------------+ 01778 M01S00001.0vj4 +++| STD T3 01779 M00S01364.0vj +++| STD T2
| Line S01365 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01780 M01S01365.v23l617 ---| UCS1 AOD T6 GET NEXT TWO CHARACTERS
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01781 M01S00033.v23l617 +++| UCS1 AOD CB GET NEXT TWO CHARACTERS 01782 M00S01366.0vj +++| LDD T5 01783 M00S01367.0vj +++| SBK CHARL+1 01784 M00S01368.0vj +++| PJN UCS8 IF TOO MANY CHARACTERS 01785 M00S01369.0vj +++| AOD T2
| Line S01370 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01786 M01S01370.v23l617 ---| LDI T6
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01787 M01S00034.v23l617 +++| LDI CB 01788 M00S01371.0vj +++| UCS2 ZJN UCS7 IF END OF COMMAND 01789 M00S01372.0vj +++| SHN -6 01790 M00S01373.0vj +++| UCS3 STD T1 01791 M00S01374.0vj +++| ZJN UCS5 IF ZERO CHARACTER 01792 M00S01375.0vj +++| LDD T5 RESET *LAST NONZERO CHARACTER* ADDRESS 01793 M00S01376.0vj +++| STD T3 01794 M00S01377.0vj +++| LDD T1 01795 M00S01378.0vj +++| LMN 1R. 01796 M00S01379.0vj +++| ZJN UCS4 IF TERMINATOR 01797 M00S01380.0vj +++| LMN 1R)&1R. 01798 M00S01381.0vj +++| NJN UCS5 IF NOT TERMINATOR 01799 M00S01382.0vj +++| 01800 M00S01383.0vj +++| UCS4 AOD T4 SET *TERMINATOR ENCOUNTERED* FLAG 01801 M00S01384.0vj +++| UCS5 LDD T1 01802 M00S01385.0vj +++| STM CHAR,T5 SET CHARACTER 01803 M00S01386.0vj +++| AOD T5 01804 M00S01387.0vj +++| LDD T2 01805 M00S01388.0vj +++| LPN 1 01806 M00S01389.0vj +++| ZJN UCS1 IF BOTH CHARACTERS PROCESSED 01807 M00S01390.0vj +++| UCS6 AOD T2
| Line S01391 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01808 M01S01391.v23l617 ---| LDI T6
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01809 M01S00035.v23l617 +++| LDI CB 01810 M00S01392.0vj +++| LPN 77 01811 M00S01393.0vj +++| UJN UCS3 CHECK FOR TERMINATOR
| Line S01394 Modification History | |
|---|---|
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 01812 M01S01394.ns2601 ---| SPACE 4,10 01813 M01S01395.ns2601 ---|* COMMON DECKS. 01814 M01S01396.ns2601 ---| 01815 M01S01397.ns2601 ---|
| Line S01398 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
M02 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 01816 M02S01398.ns2601 ---|*CALL COMPRJC
| Line S01399 Modification History | |
|---|---|
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 01817 M01S01399.ns2601 ---|*CALL COMPVID
| Line S01400 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01818 M01S01400.v23l617 ---| VAL$ SET 0 ASSEMBLE ACCESS LEVEL CODE 01819 M01S01401.v23l617 ---| SCH$ SET 0 ASSEMBLE SEARCH CODE 01820 M01S01402.v23l617 ---|*CALL COMPVLC 01821 M00S01403.0vj +++| BUFFERS SPACE 4,10 01822 M00S01404.0vj +++|* BUFFERS. 01823 M00S01405.0vj +++| 01824 M00S01406.0vj +++|
| Line S01407 Modification History | |
|---|---|
M01 (Removed by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 01825 M01S01407.ns2483 ---| BUF BSS 0 FWA OF BUFFERS 01826 M01S01408.ns2483 ---| 01827 M00S01409.0vj +++| SBUFL EQU 12 SCRATCH BUFFER LENGTH (2 CM WORDS) 01828 M00S01410.0vj +++| CHARL EQU 150D CHARACTER BUFFER LENGTH 01829 M00S01411.0vj +++|
| Line S01412 Modification History | |
|---|---|
M01 (Removed by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 01830 M01S01412.ns2483 ---| LIST G 01831 M01S01413.ns2483 ---| 01832 M01S01414.ns2483 ---| BEGIN BSSN BUF 01833 M00S01415.0vj +++| CHAR BSSN CHARL+3 CHARACTER BUFFER 01834 M00S01416.0vj +++| FWPC BSSN 1 FWA OF PACKED COMMAND
| Line S01417 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01835 M01S01417.261l700 ---| FWPW BSSN 1 FWA OF PASSWORD 01836 M01S01418.261l700 ---| LWPW BSSN 1 LWA+1 OF PASSWORD 01837 M00S01419.0vj +++| LWUC BSSN 1 LWA+1 OF UNPACKED COMMAND 01838 M00S01420.0vj +++| SBUF BSSN SBUFL SCRATCH BUFFER 01839 M00S01421.0vj +++| LAST BSSN 0 01840 M00S01422.0vj +++| END BSSN 01841 M00S01423.0vj +++|
| Line S01424 Modification History | |
|---|---|
M01 (Removed by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 01842 M01S01424.ns2483 ---| LIST * 01843 M00S01425.0vj +++| 01844 M00S01426.0vj +++| ERRNG ZVJL-LAST *0VJ* OVERFLOW 01845 M00S01427.0vj +++| TITLE PRESET. 01846 M00S01428.0vj +++| PRS SPACE 4,20 01847 M00S01429.0vj +++|** PRS - PRESET. 01848 M00S01430.0vj +++|* 01849 M00S01431.0vj +++|* EXIT ADDRESS RELOCATION PERFORMED.
| Line S01432 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01850 M01S01432.252l678 ---|* (AEFA) = MAXIMUM ECS FL / 1000B.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01851 M01S00019.252l678 +++|* (AEFA) = INSTRUCTION TO ADD EM BLOCKING FACTOR. 01852 M01S00020.252l678 +++|* (AEFB) = SHIFT INSTRUCTION FOR EM BLOCK ROUNDING. 01853 M01S00021.252l678 +++|* (AEFC) = MAXIMUM EM FL / 1000B. 01854 M00S01433.0vj +++|* (AFLA) = MAXIMUM CM FL / 100B. 01855 M00S01434.0vj +++|* (ASTA) = *PSN* IF DESTINATION LID ALREADY SET. 01856 M00S01435.0vj +++|* (DLAT) = DESTINATION LID ATTRIBUTES.
| Line S01436 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01857 M01S01436.252l678 ---|* (JE) = DEFAULT ECS FL.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01858 M01S00022.252l678 +++|* (JE) = DEFAULT EM FL/*UEBS*. 01859 M00S01437.0vj +++|* (JF) = DEFAULT CM FL. 01860 M00S01438.0vj +++|* (JTSS) = DEFAULT JOB STEP TIME LIMIT. 01861 M00S01439.0vj +++|* (LALL) = LOWER ACCESS LEVEL LIMIT.
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | tl0vj1 |
Seq # *Modification Id* Act ----------------------------+ 01862 M01S00023.tl0vj1 +++|* (VJCA) = *0VJ* LOAD ADDRESS. 01863 M01S00024.tl0vj1 +++|*/I,1474
| Line S01440 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01864 M01S01440.261l700 ---|* (VUJA) = *0VJ* LOAD ADDRESS. 01865 M00S01441.0vj +++|* (ZVJP) = *0VJ* INPUT PARAMETERS. 01866 M00S01442.0vj +++|* (ZVJR) = *0VJ* RETURN ADDRESS. 01867 M00S01443.0vj +++|* TO *VJC*. 01868 M00S01444.0vj +++|* 01869 M00S01445.0vj +++|* CALLS CMX, ECX, REL. 01870 M00S01446.0vj +++| 01871 M00S01447.0vj +++| 01872 M00S01448.0vj +++| PRS BSS 0 ENTRY 01873 M00S01449.0vj +++| RJM REL RELOCATE ADDRESSES
| Line S00225 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01874 M01S00225.261l700 +++| LDD LA SET PASSWORD ASSEMBLY ADDRESS 01875 M01S00226.261l700 +++| RAM TUCPA+1 01876 M00S01450.0vj +++| LDD CN+2 SAVE *0VJ* ENTRY PARAMETERS 01877 M00S01451.0vj +++| STM ZVJP
| Line S01452 Modification History | |
|---|---|
M01 (Removed by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 01878 M01S01452.ns2202 ---| LPN 7 SAVE LOWER ACCESS LEVEL LIMIT 01879 M01S01453.ns2202 ---| STM LALL
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 01880 M01S00002.ns2202 +++| LPN 7 SAVE LOCAL FILE ACCESS LEVEL 01881 M01S00003.ns2202 +++| STM LFAL 01882 M00S01454.0vj +++| LDD CN+1 SAVE DLID ATTRIBUTES 01883 M00S01455.0vj +++| STM DLAT
| Line S01456 Modification History | |
|---|---|
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 01884 M01S01456.ns2601 ---| ZJN PRS1 IF DLID NOT ALREADY SPECIFIED 01885 M01S01457.ns2601 ---| LDN PSNI PREVENT STORE OF NEW ATTRIBUTES 01886 M01S01458.ns2601 ---| STM ASTA 01887 M01S01459.ns2601 ---| STM ASTA+1 01888 M01S01460.ns2601 ---| PRS1 LDN 0 PRESET JOB STEP TIME LIMIT
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 01889 M01S00010.ns2601 +++| LDN 0 PRESET JOB STEP TIME LIMIT 01890 M00S01461.0vj +++| STM. JTSS
| Line S01462 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01891 M01S01462.v23l617 ---| LDC DFJT
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01892 M01S00036.v23l617 +++| LDD HN 01893 M01S00037.v23l617 +++| ERRNZ DFJT-100 DFJT MUST EQUAL (HN) 01894 M00S01463.0vj +++| STM. JTSS+1
| Line S01464 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01895 M01S01464.252l678 ---| LCN 0 PRESET CM AND ECS FIELD LENGTHS
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01896 M01S00023.252l678 +++| LCN 0 PRESET CM AND EM FIELD LENGTHS 01897 M00S01465.0vj +++| ERRNZ JPNP-7777 ERROR IF VALUE CHANGES 01898 M00S01466.0vj +++| STD JF 01899 M00S01467.0vj +++| STD JE 01900 M00S01468.0vj +++| LCN 0 CALCULATE MAXIMUM CM FL 01901 M00S01469.0vj +++| RJM CMX 01902 M00S01470.0vj +++| STM AFLA
| Line S01471 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01903 M01S01471.252l678 ---| LCN 0 CALCULATE MAXIMUM ECS FL
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01904 M01S00024.252l678 +++| LDK MEFL GET USER EM SHIFT COUNT (*UESC*) 01905 M01S00025.252l678 +++| CRD CM 01906 M01S00026.252l678 +++| LDD CM+2 01907 M01S00027.252l678 +++| SHN -11 01908 M01S00028.252l678 +++| STD CM+2 SAVE ONLY *UESC* 01909 M01S00029.252l678 +++| LDC SHNI+77 01910 M01S00030.252l678 +++| SBD CM+2 01911 M01S00031.252l678 +++| STM AEFB 01912 M01S00032.252l678 +++| LDC SHNI+73 01913 M01S00033.252l678 +++| ADD CM+2 01914 M01S00034.252l678 +++| STM PRSA 01915 M01S00035.252l678 +++| LDN 17 01916 M01S00036.252l678 +++| PRSA SHN 0 01917 M01S00037.252l678 +++|* SHN UESC-4 01918 M01S00038.252l678 +++| RAM AEFA 01919 M01S00039.252l678 +++| LCN 0 CALCULATE MAXIMUM EM FL 01920 M00S01472.0vj +++| RJM ECX
| Line S01473 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01921 M01S01473.252l678 ---| STM AEFA
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01922 M01S00040.252l678 +++| STM AEFC
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | tl0vj1 |
Seq # *Modification Id* Act ----------------------------+ 01923 M01S00025.tl0vj1 +++| LDD LA SAVE *0VJ* LOAD ADDRESS 01924 M01S00026.tl0vj1 +++| STM VJCA
| Line S01474 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01925 M01S01474.261l700 ---| LDD LA SAVE *0VJ* LOAD ADDRESS 01926 M01S01475.261l700 ---| STM VUJA 01927 M00S01476.0vj +++| LDM RVJ SAVE *0VJ* RETURN ADDRESS 01928 M00S01477.0vj +++| STM ZVJR 01929 M00S01478.0vj +++| LDC. UBUF SAVE USER BLOCK BUFFER ADDRESS 01930 M00S01479.0vj +++| STM UBAD 01931 M00S01480.0vj +++| LJM VJC VALIDATE JOB COMMAND 01932 M00S01481.0vj +++| SPACE 4,10 01933 M00S01482.0vj +++|* PRESET COMMON DECKS. 01934 M00S01483.0vj +++| 01935 M00S01484.0vj +++|*CALL COMPCMX 01936 M00S01485.0vj +++| CMI$ EQU 1 CENTRAL MEMORY CONVERSION 01937 M00S01486.0vj +++| ECI$ EQU 1 ECS CONVERSION 01938 M00S01487.0vj +++|*CALL COMPCVI 01939 M00S01488.0vj +++|*CALL COMPECX 01940 M00S01489.0vj +++| SPACE 4,10 01941 M00S01490.0vj +++| HERE 01942 M00S01491.0vj +++| SPACE 4,10 01943 M00S01492.0vj +++| OVERFLOW 5,ZVJL 01944 M00S01493.0vj +++| 01945 M00S01494.0vj +++| END
cdc/nos2.source/opl.opl871/deck/0vj.001.txt · Last modified: by 127.0.0.1