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