|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2032 (0x7f0)
Types: s3xseg
Names: »SXRF16«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF16«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF16«
H C 012 XRF16 0000
F* 0010
F****************************************************** 0020
F* 5798-NKG COPYRIGHT IBM CORP. 1977. REFER TO * 0030
F* INSTRUCTIONS ON COPYRIGHT NOTICE FORM NO. 120-2083* 0040
F****************************************************** 0050
F* 0060
F* PRINT THE GLOSSARY OF DEFINED FIELD NAMES FROM ALL 0070
F* PROGRAMS AFTER SELECTION BY XRF14 AND SORT AT XRF15 0080
F* 0090
FADDROUT IR F 255 3 3IT EDISK 0100
FFIELDS IP F 24R I DISK40 0110
FPRINTER O F 96 OF PRINTER 0120
FREPLNAM O F 252 18 12AI 1 DISK40 U1 0130
E ADDROUT FIELDS 0140
IFIELDS NS 0150
I/COPY R1,AUX064 0160
I FIELD L2 0170
I PROGRML1 0180
I DECPS 02 0190
I NOELE 03 0200
C****************************************************** MAIN LINE 0210
C L2 MOVE LONG OLDLNG 30 0220
C L2 MOVE DECPS OLDDEC 1 0230
C L2 MOVE NOELE OLDELE 40 0240
C L1 LONG COMP OLDLNG 04 0250
C L1 04 DECPS COMP OLDDEC 04 0260
C L1 04 NOELE COMP OLDELE 04 0270
C L1 MOVE LINE SUFF 22 0280
C L1 SUFF COMP .00 21 0290
C****************************************************** 0300
CLR MOVE ' ' REPLNM 6 0310
C****************************************************** 0320
CLR MOVE '5798-NKG'COIBM 8 * 0330
CLR MOVE 'COPYRIGH'COIBM * 0340
CLR MOVE 'T IBM CO'COIBM * 0350
CLR MOVE 'RP. 1977'COIBM * 0360
C****************************************************** 0370
C* 0380
OPRINTER H 6301 OF 0390
O 29 '** INDICATES CHANGE IN' 0400
O 46 'FIELD DEFINITION' 0410
O H 202 1P 0420
O OR OF 0430
O UDATE Y 18 0440
O 30 'XRF16' 0450
O 50 'FIELD NAME GLOSSARY' 0460
O PAGE Z 72 0470
O 69 'PAGE' 0480
O H 1 1P 0490
O OR OF 0500
O 20 'FIELD NAME' 0510
O 38 'PROGRAM' 0520
O 51 'NO. ELEM.' 0530
O 59 'LENGTH' 0540
O 64 'DEC.' 0550
O 73 'LINE NO.' 0560
O D 11 L2 0570
O OR 01 L1 0580
O N04 9 '**' 0590
O FIELD 16 0600
O PROGRM 37 0610
O N03 NOELE Z 49 0620
O N03 51 'X' 0630
O LONG Z 58 0640
O 02 63 'A' 0650
O N02 DECPS 63 0660
O LINE 3 72 0670
O 21 72 ' ' 0680
OREPLNAM D L1 U1NU2 0690
O/COPY R1,AUX079 0700