Seq # *Modification Id* Act
----------------------------+
| Line S00358 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01388 M01S00358.286l859 +++|* T, 27/,9/ NCAT,16/,4/ SM, 4/ DM
01389 M00S00938.comspfs +++|*
01390 M00S00939.comspfs +++|* TYPE = EQUIPMENT MNEMONIC OF DEVICE.
01391 M00S00940.comspfs +++|* TRACK SIZE = SECTOR LIMIT OF DEVICE.
01392 M00S00941.comspfs +++|* TRACKS AV = TRACKS AVAILABLE ON DEVICE AT START OF
01393 M00S00942.comspfs +++|* UTILITY EXECUTION.
01394 M00S00943.comspfs +++|* TRACKS = NUMBER OF TRACKS ON DEVICE.
01395 M00S00944.comspfs +++|* U = (NUMBER OF UNITS)-1.
01396 M00S00945.comspfs +++|* DN = DEVICE NUMBER.
01397 M00S00946.comspfs +++|* NCAT = NUMBER OF CATALOG TRACKS ON DEVICE.
01398 M00S00947.comspfs +++|* SM = SECONDARY DEVICE MASK.
01399 M00S00948.comspfs +++|* DM = MASTER DEVICE MASK.
01400 M00S00949.comspfs +++| SPACE 4,15
01401 M00S00950.comspfs +++|*** SUMMARY FILE ARCHIVE FILE IDENTIFIER BLOCK
01402 M00S00951.comspfs +++|* (PFATC, PFCOPY, PFLOAD).
01403 M00S00952.comspfs +++|*
01404 M00S00953.comspfs +++|* T 42/ 7LARCFILE,18/ LENGTH
01405 M00S00954.comspfs +++|* T, 42/ FAMILY NAME,18/ 0
01406 M00S00955.comspfs +++|* T, 42/ PACK NAME,18/ 0
01407 M00S00956.comspfs +++|* T, 18/ 0,36/ PACKED DATE AND TIME
01408 M00S00957.comspfs +++|*
01409 M00S00958.comspfs +++|* LENGTH = LENGTH OF BLOCK (3).
01410 M00S00959.comspfs +++|*
01411 M00S00960.comspfs +++|* IF THE UTILITY DID NOT FIND THE ARCHIVE FILE LABEL OR IF AN
01412 M00S00961.comspfs +++|* ERROR WAS DETECTED IN THE ARCHIVE FILE LABEL, A THREE WORD
01413 M00S00962.comspfs +++|* BLOCK WILL BE WRITTEN WITH ALL FIELDS ZERO.
01414 M00S00963.comspfs +++| SPACE 4,20
01415 M00S00964.comspfs +++|*** SUMMARY FILE CATALOG IMAGE RECORD (CIR) ENTRIES BLOCK
01416 M00S00965.comspfs +++|* (PFATC, PFDUMP, PFLOAD).
01417 M00S00966.comspfs +++|*
01418 M00S00967.comspfs +++|* T 42/ 3LCIR,18/ LENGTH
01419 M00S00968.comspfs +++|* T, 60/ CIR ENTRY 1 WORD 0
01420 M00S00969.comspfs +++|* T, 60/ CIR ENTRY 1 WORD 1
01421 M00S00970.comspfs +++|* T, ...
01422 M00S00971.comspfs +++|* T, ...
01423 M00S00972.comspfs +++|* T, ...
01424 M00S00973.comspfs +++|* T, 60/ CIR ENTRY N WORD 0
01425 M00S00974.comspfs +++|* T, 60/ CIR ENTRY N WORD 1
01426 M00S00975.comspfs +++|*
01427 M00S00976.comspfs +++|* LENGTH = LENGTH OF BLOCK.
01428 M00S00977.comspfs +++|* = (NUMBER OF ENTRIES)*2.
01429 M00S00978.comspfs +++|* CIR ENTRY = CATALOG IMAGE RECORD ENTRY FROM ARCHIVE
01430 M00S00979.comspfs +++|* FILE.
01431 M00S00980.comspfs +++| SPACE 4,30
01432 M00S00981.comspfs +++|*** SUMMARY FILE CATALOG ENTRIES BLOCK (ALL UTILITIES).
01433 M00S00982.comspfs +++|*
01434 M00S00983.comspfs +++|* T 42/ 4LCATE,18/ LENGTH
01435 M00S00984.comspfs +++|* T, 60/ CATALOG ENTRY 1 WORD 0.
01436 M00S00985.comspfs +++|* T, 60/ ...
01437 M00S00986.comspfs +++|* T, 60/ CATALOG ENTRY 1 WORD 17B.
01438 M00S00987.comspfs +++|* T, 60/ CATALOG ENTRY 1 STATUS WORD.
01439 M00S00988.comspfs +++|* T, 60/ ...
01440 M00S00989.comspfs +++|* T, 60/ ...
01441 M00S00990.comspfs +++|* T, 60/ ...
01442 M00S00991.comspfs +++|* T, 60/ CATALOG ENTRY N WORD 0.
01443 M00S00992.comspfs +++|* T, 60/ ...
01444 M00S00993.comspfs +++|* T, 60/ CATALOG ENTRY N WORD 17B.
01445 M00S00994.comspfs +++|* T, 60/ CATALOG ENTRY N STATUS WORD.
01446 M00S00995.comspfs +++|*
01447 M00S00996.comspfs +++|* LENGTH = LENGTH OF BLOCK.
01448 M00S00997.comspfs +++|* = (NUMBER OF ENTRIES)*21B.
01449 M00S00998.comspfs +++|* CATALOG ENTRY = CATALOG ENTRY OF FILE PROCESSED.
01450 M00S00999.comspfs +++|* STATUS WORD = STATUS INFORMATION PERTAINING TO FILE
01451 M00S01000.comspfs +++|* PROCESSED.
01452 M00S01001.comspfs +++|*
01453 M00S01002.comspfs +++|* CATALOG ENTRY STATUS WORD FORMAT.
01454 M00S01003.comspfs +++|*
| Line S01004 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01455 M01S01004.286l859 ---|* T 59/,1/P
| Line S00359 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01456 M01S00359.286l859 +++|* T 56/,1/P,1/D,1/T,1/C
01457 M00S01005.comspfs +++|*
| Line S01006 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01458 M01S01006.286l859 ---|* P = *PFC* ONLY FILE FLAG.
01459 M01S01007.286l859 ---|* = 0 IF NOT *PFC* ONLY FILE.
01460 M01S01008.286l859 ---|* = 1 IF *PFC* ONLY FILE.
01461 M01S01009.286l859 ---| SPACE 4,10
01462 M01S01010.286l859 ---|* TABLE OF PRINTER PAGE PARAMETERS.
| Line S00360 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01463 M01S00360.286l859 +++|* P PERMITS MISSING ON ARCHIVE FILE BECAUSE OF ERROR
01464 M01S00361.286l859 +++|* DURING DUMP.
01465 M01S00362.286l859 +++|* D ERROR DETECTED IN FILE DATA DURING DUMP.
01466 M01S00363.286l859 +++|* T FILE DATA TRUNCATED DURING DUMP BECAUSE OF ERROR.
01467 M01S00364.286l859 +++|* C FILE DUMPED AS *PFC ONLY*.
01468 M01S00365.286l859 +++| SPACE 4,10
01469 M01S00366.286l859 +++|** SUMMARY FILE BLOCK IDENTIFICATION CODES.
01470 M00S01011.comspfs +++|
01471 M00S01012.comspfs +++|
| Line S01013 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01472 M01S01013.286l859 ---| PPLN EQU 0 CURRENT LINE NUMBER
01473 M01S01014.286l859 ---| PPPL EQU PPLN+1 PAGE LENGTH
01474 M01S01015.286l859 ---| PPPD EQU PPPL+1 PRINT DENSITY FORMAT CONTROL CHARACTER
01475 M01S01016.286l859 ---| ERRNZ PPLN+1-PPPL LOCATIONS MUST BE CONTIGUOUS
01476 M01S01017.286l859 ---| SPACE 4,10
01477 M01S01018.286l859 ---|* DISPLAY ADDRESS TABLE LOCATIONS.
01478 M01S01019.286l859 ---|
01479 M01S01020.286l859 ---|
01480 M01S01021.286l859 ---| ADM1 EQU 0 ADDRESS OF WAIT MESSAGE LINE
01481 M01S01022.286l859 ---| ADMS EQU ADM1+1 ADDRESS OF CURRENT ACTIVITY LINE
01482 M01S01023.286l859 ---| ADM2 EQU ADMS+1 ADDRESS OF OPERATOR ACTION REQUEST LINE
01483 M01S01024.286l859 ---| ADER EQU ADM2+1 ADDRESS OF ERROR MESSAGE LINE
01484 M01S01025.286l859 ---| ADIN EQU ADER+1 ADDRESS OF INPUT DISPLAY LINE
01485 M01S01026.286l859 ---|
01486 M01S01027.286l859 ---| KDCW EQU ADIN+1 *K* DISPLAY CONTROL WORD
| Line S00367 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01487 M01S00367.286l859 +++| BEGIN BSSN 0
01488 M01S00368.286l859 +++| SYSB BSSN 1 SYSTEM INFORMATION
01489 M01S00369.286l859 +++| DSSB BSSN 1 DEVICE STATUS
01490 M01S00370.286l859 +++| AFSB BSSN 1 ARCHIVE FILE
01491 M01S00371.286l859 +++| CISB BSSN 1 CATALOG IMAGE RECORD ENTRIES
01492 M01S00372.286l859 +++| CESB BSSN 1 PROCESSED CATALOG ENTRIES
01493 M01S00373.286l859 +++| MXSB BSSN 0 MAXIMUM BLOCK TYPE + 1
01494 M01S00374.286l859 +++| END BSSN
01495 M00S01028.comspfs +++| TITLE COMSPFS - COMMON UTILITY MACROS.
| Line S01029 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01496 M01S01029.286l859 ---| BOOL SPACE 4,30
01497 M01S01030.286l859 ---|** BOOL - BOOLEAN EXPRESSION DEFINITION.
01498 M01S01031.286l859 ---|*
01499 M01S01032.286l859 ---|* BOOL BEXP
01500 M01S01033.286l859 ---|*
01501 M01S01034.286l859 ---|* BEXP = BOOLEAN EXPRESSION.
01502 M01S01035.286l859 ---|* = BT1.
01503 M01S01036.286l859 ---|* OR (BT1,BT2,...). (COMMAS INDICATE THE LOGICAL .OR.
01504 M01S01037.286l859 ---|* OPERATION.)
01505 M01S01038.286l859 ---|* BT1,BT2,... = BOOLEAN TERMS.
01506 M01S01039.286l859 ---|* = BE1.
01507 M01S01040.286l859 ---|* OR (BE1,BE2,...). (COMMAS INDICATE THE
01508 M01S01041.286l859 ---|* LOGICAL .AND. OPERATION.)
01509 M01S01042.286l859 ---|* BE1,BE2,... = BOOLEAN ELEMENTS.
01510 M01S01043.286l859 ---|* = CEXP = ABSOLUTE EVALUATABLE COMPASS EXPRESSION
01511 M01S01044.286l859 ---|* (PREVIOUSLY DEFINED SYMBOLS ONLY).
01512 M01S01045.286l859 ---|*
01513 M01S01046.286l859 ---|* THE COMPASS EXPRESSIONS (*CEXP*) ARE USED TO REPRESENT
01514 M01S01047.286l859 ---|* BOOLEAN VARIABLES. THE ABSOLUTE VALUE OF AN EXPRESSION
01515 M01S01048.286l859 ---|* INDICATES A BIT NUMBER WITHIN A 60 BIT WORD WHICH REPRESENTS
01516 M01S01049.286l859 ---|* A DESIRED BOOLEAN VARIABLE. IF AN EXPRESSION IS NEGATIVE THE
01517 M01S01050.286l859 ---|* VARIABLE WILL BE COMPLEMENTED BEFORE IT IS USED. IN NORMAL
01518 M01S01051.286l859 ---|* USAGE AN EXPRESSION WOULD SIMPLY BE A SYMBOL FOR AN
01519 M01S01052.286l859 ---|* UNCOMPLEMENTED VARIABLE AND A SYMBOL PRECEDED BY A MINUS
01520 M01S01053.286l859 ---|* SIGN FOR A COMPLEMENTED VARIABLE. PRECEDING THE CALL TO THE
01521 M01S01054.286l859 ---|* *BOOL* MACRO THE SYMBOL WOULD BE EQUATED TO THE BIT NUMBER
01522 M01S01055.286l859 ---|* WHICH IS TO REPRESENT THE VARIABLE.
01523 M01S01056.286l859 ---|*
01524 M01S01057.286l859 ---|* THE FOLLOWING EXAMPLE CLARIFIES THE USE OF THE *BOOL*
01525 M01S01058.286l859 ---|* MACRO. ASSUME THAT THE *EXCLUSIVE OR* FUNCTION OF TWO
01526 M01S01059.286l859 ---|* VARIABLES IS TO BE REPRESENTED. A FORTRAN EXPRESSION FOR
01527 M01S01060.286l859 ---|* THIS OPERATION WOULD BE AS FOLLOWS.
01528 M01S01061.286l859 ---|*
01529 M01S01062.286l859 ---|* C = (A .AND. B) .OR. (.NOT. A .AND. .NOT. B)
01530 M01S01063.286l859 ---|*
01531 M01S01064.286l859 ---|* THE FORTRAN REPRESENTATION OF THE *EXCLUSIVE OR* FUNCTION
01532 M01S01065.286l859 ---|* SHOWN ABOVE WOULD BE IMPLEMENTED USING THE *BOOL* MACRO
01533 M01S01066.286l859 ---|* AS FOLLOWS.
01534 M01S01067.286l859 ---|*
01535 M01S01068.286l859 ---|* A EQU 0 USE BIT ZERO FOR VARIABLE *A*
01536 M01S01069.286l859 ---|* B EQU 1 USE BIT ONE FOR VARIABLE *B*
01537 M01S01070.286l859 ---|* C BOOL ((A,B),(-A,-B))
01538 M01S01071.286l859 ---|*
01539 M01S01072.286l859 ---|* THE CODE GENERATED AT ADDRESS *C* WOULD BE THE INTERNAL
01540 M01S01073.286l859 ---|* REPRESENTATION OF THE *EXCLUSIVE OR* FUNCTION.
01541 M01S01074.286l859 ---|*
01542 M01S01075.286l859 ---|* EACH BOOLEAN TERM (2 IN THIS EXAMPLE) OF AN EXPRESSION
01543 M01S01076.286l859 ---|* GENERATES TWO WORDS OF CODE. THE FIRST WORD IS A VARIABLE
01544 M01S01077.286l859 ---|* SELECT MASK WHICH HAS A BIT SET FOR EACH VARIABLE APPEARING
01545 M01S01078.286l859 ---|* IN THE TERM. THE SECOND WORD IS A VARIABLE COMPLEMENT MASK
01546 M01S01079.286l859 ---|* WHICH HAS A BIT SET FOR EACH VARIABLE THAT APPEARS IN THE
01547 M01S01080.286l859 ---|* TERM IN UNCOMPLEMENTED FORM. THE CODE GENERATED BY THE
01548 M01S01081.286l859 ---|* *BOOL* MACRO IS TERMINATED BY A ZERO WORD. THE INTERNAL
01549 M01S01082.286l859 ---|* CODE PRODUCED BY THE *EXCLUSIVE OR* EXAMPLE WOULD BE.
01550 M01S01083.286l859 ---|*
01551 M01S01084.286l859 ---|* C VFD 58/0,1/1,1/1 *A* AND *B* SELECTED
01552 M01S01085.286l859 ---|* VFD 58/0,1/1,1/1 *A* AND *B* NOT COMPLEMENTED
01553 M01S01086.286l859 ---|* VFD 58/0,1/1,1/1 *A* AND *B* SELECTED
01554 M01S01087.286l859 ---|* VFD 58/0,1/0,1/0 *A* AND *B* COMPLEMENTED
01555 M01S01088.286l859 ---|* VFD 60/0 TERMINATION FLAG
01556 M01S01089.286l859 ---|
01557 M01S01090.286l859 ---|
01558 M01S01091.286l859 ---| PURGMAC BOOL
01559 M01S01092.286l859 ---| BOOL MACRO PAR
01560 M01S01093.286l859 ---| MACREF BOOL
01561 M01S01094.286l859 ---| IRP PAR
01562 M01S01095.286l859 ---| .2 MICRO 1,, 0
01563 M01S01096.286l859 ---| .3 MICRO 1,,
01564 M01S01097.286l859 ---| TERM ECHO 0,P=(PAR)
01565 M01S01098.286l859 ---| .1 SET P
01566 M01S01099.286l859 ---| SIGN IFPL .1
01567 M01S01100.286l859 ---| .1 DECMIC .1
01568 M01S01101.286l859 ---| .2 MICRO 1,, ".2"+1S".1"
01569 M01S01102.286l859 ---| SIGN ELSE
01570 M01S01103.286l859 ---| .1 DECMIC -.1
01571 M01S01104.286l859 ---| .3 MICRO 1,, ".3"+1S".1"
01572 M01S01105.286l859 ---| SIGN ENDIF
01573 M01S01106.286l859 ---| TERM ENDD
01574 M01S01107.286l859 ---| CON ".2"".3"
01575 M01S01108.286l859 ---| CON ".2"
01576 M01S01109.286l859 ---| IRP
01577 M01S01110.286l859 ---| CON 0
01578 M01S01111.286l859 ---| BOOL ENDM
01579 M00S01112.comspfs +++| COMPFET SPACE 4,10
01580 M00S01113.comspfs +++|** COMPFET - COMPLETE FETS.
01581 M00S01114.comspfs +++|*
01582 M00S01115.comspfs +++|* COMPFET (PAR)
01583 M00S01116.comspfs +++|*
01584 M00S01117.comspfs +++|* PAR = LIST OF ADDRESSES TO SET COMPLETE.
01585 M00S01118.comspfs +++|*
01586 M00S01119.comspfs +++|* USES X - 1, 2, 6.
01587 M00S01120.comspfs +++|* A - 1, 6.
01588 M00S01121.comspfs +++|
01589 M00S01122.comspfs +++|
01590 M00S01123.comspfs +++| PURGMAC COMPFET
01591 M00S01124.comspfs +++| COMPFET MACRO PAR
01592 M00S01125.comspfs +++| MACREF COMPFET
01593 M00S01126.comspfs +++| SX2 B1
01594 M00S01127.comspfs +++| IRP PAR
01595 M00S01128.comspfs +++| SA1 PAR
01596 M00S01129.comspfs +++| BX6 X1+X2
01597 M00S01130.comspfs +++| SA6 A1
01598 M00S01131.comspfs +++| IRP
01599 M00S01132.comspfs +++| COMPFET ENDM
| Line S00375 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01600 M01S00375.286l859 +++| CWREAD SPACE 4,20
01601 M01S00376.286l859 +++|** CWREAD - CONTROL WORD READ WORDS.
01602 M01S00377.286l859 +++|*
01603 M01S00378.286l859 +++|* CWREAD FET,BUF,BUFL
01604 M01S00379.286l859 +++|*
01605 M01S00380.286l859 +++|* FET = FET ADDRESS FOR FILE.
01606 M01S00381.286l859 +++|* BUF = WORKING BUFFER ADDRESS.
01607 M01S00382.286l859 +++|* BUFL = LENGTH OF WORKING BUFFER.
01608 M01S00383.286l859 +++|*
01609 M01S00384.286l859 +++|* *BUFL* WORDS ARE TRANSFERRED FROM THE CIRCULAR BUFFER TO THE
01610 M01S00385.286l859 +++|* WORKING BUFFER *BUF*. BUFFER CONTROL WORDS ARE REMOVED AS
01611 M01S00386.286l859 +++|* NECESSARY.
01612 M01S00387.286l859 +++|*
01613 M01S00388.286l859 +++|* USES X - 2.
01614 M01S00389.286l859 +++|* B - 6, 7.
01615 M01S00390.286l859 +++|*
01616 M01S00391.286l859 +++|* CALLS CWR.
01617 M01S00392.286l859 +++|
01618 M01S00393.286l859 +++|
01619 M01S00394.286l859 +++| PURGMAC CWREAD
01620 M01S00395.286l859 +++| CWREAD MACRO FET,BUF,BUFL
01621 M01S00396.286l859 +++| MACREF CWREAD
01622 M01S00397.286l859 +++| R= B6,BUF
01623 M01S00398.286l859 +++| R= B7,BUFL
01624 M01S00399.286l859 +++| R= X2,FET
01625 M01S00400.286l859 +++| RJ CWR
01626 M01S00401.286l859 +++| CWREAD ENDM
| Line S01133 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01627 M01S01133.286l859 ---| EDITS SPACE 4,20
01628 M01S01134.286l859 ---|** EDITS - EDIT MESSAGE STRING.
01629 M01S01135.286l859 ---|*
01630 M01S01136.286l859 ---|* EDITS S,T
01631 M01S01137.286l859 ---|*
01632 M01S01138.286l859 ---|* S = ADDRESS OF MESSAGE PARAMETER SKELETON TO BE EDITED.
01633 M01S01139.286l859 ---|* T = MESSAGE DESCRIPTION STRING ADDRESS (0 OR BLANK IF NONE).
01634 M01S01140.286l859 ---|*
01635 M01S01141.286l859 ---|* USES X - 6.
01636 M01S01142.286l859 ---|* B - 6.
01637 M01S01143.286l859 ---|*
01638 M01S01144.286l859 ---|* CALLS EDS.
01639 M01S01145.286l859 ---|
01640 M01S01146.286l859 ---|
01641 M01S01147.286l859 ---| PURGMAC EDITS
01642 M01S01148.286l859 ---| EDITS MACRO S,T
01643 M01S01149.286l859 ---| MACREF EDITS
01644 M01S01150.286l859 ---| R= B6,S
01645 M01S01151.286l859 ---| .1 IFC NE,$T$$
01646 M01S01152.286l859 ---| R= X6,T
01647 M01S01153.286l859 ---| .1 ELSE
01648 M01S01154.286l859 ---| SX6 B0+
01649 M01S01155.286l859 ---| .1 ENDIF
01650 M01S01156.286l859 ---| RJ EDS EDIT STRING
01651 M01S01157.286l859 ---| EDITS ENDM
01652 M00S01158.comspfs +++| PCINT SPACE 4,10
01653 M00S01159.comspfs +++|** PCINT - PROCESS CATALOG INTERLOCK.
01654 M00S01160.comspfs +++|*
01655 M00S01161.comspfs +++|* PCINT FET,FNC
01656 M00S01162.comspfs +++|*
01657 M00S01163.comspfs +++|* FET = ADDRESS OF FET TO PROCESS INTERLOCK WITH.
01658 M00S01164.comspfs +++|* FNC = PFU FUNCTION CODE TO PROCESS INTERLOCK WITH.
01659 M00S01165.comspfs +++|*
01660 M00S01166.comspfs +++|* CALLS PCI.
01661 M00S01167.comspfs +++|*
01662 M00S01168.comspfs +++|* USES X - 6, 7.
01663 M00S01169.comspfs +++|
01664 M00S01170.comspfs +++|
01665 M00S01171.comspfs +++| PURGMAC PCINT
01666 M00S01172.comspfs +++|
01667 M00S01173.comspfs +++| PCINT MACRO FET,FNC
01668 M00S01174.comspfs +++| MACREF PCINT
01669 M00S01175.comspfs +++| R= X6,FET
01670 M00S01176.comspfs +++| R= X7,FNC
01671 M00S01177.comspfs +++| RJ PCI
01672 M00S01178.comspfs +++| PCINT ENDM
01673 M00S01179.comspfs +++| SPACE 4
01674 M00S01180.comspfs +++| QUAL *
01675 M00S01181.comspfs +++| ENDX