Seq # *Modification Id* Act
----------------------------+
03773 M00S03604.mac1 +++| SA3 A3+B1 =10H
03774 M00S03605.mac1 +++| BX6 X7
03775 M00S03606.mac1 +++| LX7 -5 GENERATE SPACE MASK
03776 M00S03607.mac1 +++| IX7 X6-X7
03777 M00S03608.mac1 +++| BX7 X6+X7
03778 M00S03609.mac1 +++| BX3 -X7*X3 SELECT SPACE CODES
03779 M00S03610.mac1 +++| IX6 X1+X3 MERGE SPACES
03780 M00S03611.mac1 +++| EQ SFWX EXIT
03781 M00S03612.mac1 +++|
03782 M00S03613.mac1 +++| SFWA CON 37373737373737373737B MASK
03783 M00S03614.mac1 +++| CON 10H
03784 M00S03615.mac1 +++| SFW SPACE 4,10
03785 M00S03616.mac1 +++| BASE *
03786 M00S03617.mac1 +++| QUAL$ IF -DEF,QUAL$
03787 M00S03618.mac1 +++| QUAL *
03788 M00S03619.mac1 +++| SFW EQU /COMCSFW/SFW
03789 M00S03620.mac1 +++| QUAL$ ENDIF
03790 M00S03621.mac1 +++| ENDX
03791 M00S03622.mac1 +++|
03792 M00S03623.mac1 +++| END
03793 M00S03624.mac1 +++| IDENT XWOD
03794 M00S03625.mac1 +++| ENTRY XWOD
03795 M00S03626.mac1 +++| SYSCOM B1
03796 M00S03627.mac1 +++| TITLE XWOD - CONVERT WORD TO OCTAL DISPLAY CODE.
03797 M00S03628.mac1 +++|*COMMENT CONVERT WORD TO OCTAL DISPLAY CODE.
| Line S03629 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
03798 M01S03629.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00084 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
03799 M01S00084.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
03800 M00S03630.mac1 +++| XWOD SPACE 4,8
03801 M00S03631.mac1 +++|*** XWOD - CONVERT WORD TO OCTAL DISPLAY CODE.
03802 M00S03632.mac1 +++|*
03803 M00S03633.mac1 +++|* *SYMPL* CALLABLE ROUTINE TO CONVERT ONE 60 BIT WORD INTO
03804 M00S03634.mac1 +++|* TWO 60 BIT WORDS CONTAINING THE THE OCTAL REPRESENTATION
03805 M00S03635.mac1 +++|* OF THE INPUT WORD.
03806 M00S03636.mac1 +++|*
03807 M00S03637.mac1 +++|* XWOD(W,A); (*SYMPL* CALL)
03808 M00S03638.mac1 +++|*
03809 M00S03639.mac1 +++|* ENTRY W, AN ITEM THAT CONTAINS THE WORD TO BE CONVERTED.
03810 M00S03640.mac1 +++|* A, A 20 CHARACTER BUFFER FWA.
03811 M00S03641.mac1 +++|* (AN ARRAY OR ITEM 20 CHARACTERS LONG)
03812 M00S03642.mac1 +++|*
03813 M00S03643.mac1 +++|* EXIT A AND A+1, CONTAIN CONVERTED WORD.
03814 M00S03644.mac1 +++|*
03815 M00S03645.mac1 +++|* USES X - 1, 2, 6, 7.
03816 M00S03646.mac1 +++|* A - 1, 2, 6, 7.
03817 M00S03647.mac1 +++|* B - 1, 7.
03818 M00S03648.mac1 +++|*
03819 M00S03649.mac1 +++|* CALLS WOD.
03820 M00S03650.mac1 +++|
03821 M00S03651.mac1 +++|
03822 M00S03652.mac1 +++| XWOD SUBR ENTRY/EXIT
03823 M00S03653.mac1 +++| SB1 1 (B1) = 1
03824 M00S03654.mac1 +++| SB7 A1 SAVE (A1)
03825 M00S03655.mac1 +++| SA1 X1 FETCH W
03826 M00S03656.mac1 +++| RJ WOD
03827 M00S03657.mac1 +++| SA2 B7+B1 FETCH LOCATION (A)
03828 M00S03658.mac1 +++| SA6 X2 STORE UPPER 10 CHARACTERS
03829 M00S03659.mac1 +++| SA7 X2+B1 STORE LOWER 10 CHARACTERS
03830 M00S03660.mac1 +++| EQ XWODX RETURN
03831 M00S03661.mac1 +++|
03832 M00S03662.mac1 +++|*CALL COMCWOD CONVERT WORD TO OCTAL DISPLAY CODE.
03833 M00S03663.mac1 +++|
03834 M00S03664.mac1 +++| END
03835 M00S03665.mac1 +++| IDENT XZAP
03836 M00S03666.mac1 +++| ENTRY XZAP
03837 M00S03667.mac1 +++| SYSCOM B1
03838 M00S03668.mac1 +++| TITLE XZAP - *Z* ARGUMENT PROCESSOR.
03839 M00S03669.mac1 +++|*COMMENT *Z* ARGUMENT PROCESSOR.
| Line S03670 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
03840 M01S03670.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1980.
| Line S00085 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
03841 M01S00085.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
03842 M00S03671.mac1 +++|
03843 M00S03672.mac1 +++|*CALL COMCMAC
03844 M00S03673.mac1 +++| XZAP SPACE 4,15
| Line S03674 Modification History |
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
03845 M01S03674.ns2676 ---|** XZAP - *Z* ARGUMENT PROCESSOR.
| Line S00010 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
03846 M01S00010.ns2676 +++|*** XZAP - *Z* ARGUMENT PROCESSOR.
03847 M00S03675.mac1 +++|*
03848 M00S03676.mac1 +++|* XZAP(FADDR); (*SYMPL* CALL)
03849 M00S03677.mac1 +++|*
03850 M00S03678.mac1 +++|* ENTRY FADDR = FWA OF FET.
03851 M00S03679.mac1 +++|*
03852 M00S03680.mac1 +++|* EXIT DIRECTIVES ENTERED INTO THE BUFFER
03853 M00S03681.mac1 +++|* SPECIFIED IN THE FET.
03854 M00S03682.mac1 +++|*
03855 M00S03683.mac1 +++|* USES B - 1.
03856 M00S03684.mac1 +++|* X - 2.
03857 M00S03685.mac1 +++|*
03858 M00S03686.mac1 +++|* CALLS ZAP.
03859 M00S03687.mac1 +++|
03860 M00S03688.mac1 +++|
03861 M00S03689.mac1 +++| XZAP SUBR ENTRY/EXIT
03862 M00S03690.mac1 +++| SB1 1
03863 M00S03691.mac1 +++| BX2 X1 SET ADDRESS OF FET
03864 M00S03692.mac1 +++| RJ ZAP PROCESS *Z* ARGUMENT
03865 M00S03693.mac1 +++| EQ XZAPX RETURN
03866 M00S03694.mac1 +++|
03867 M00S03695.mac1 +++|*CALL COMCUSB
03868 M00S03696.mac1 +++|*CALL COMCZAP
03869 M00S03697.mac1 +++|
03870 M00S03698.mac1 +++| END