|
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: 762 (0x2fa)
Types: s3xseg
Names: »SAUX006«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SAUX006«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SAUX006«
C****************************************************** PROC11 0000
C* ROUTINE TO CHECK PACKED/BINARY CODE, START POSITION 0010
C* AND FIELD NAME FOR CHANGES. 0020
CSR PROC11 BEGSR 0030
CSR L1 EXSR SET11 0040
CSR PB COMP OLDPB 11 0050
CSR 11 03 0060
COR 11 04N05FACT1 COMP OLDFLD 11 0070
CSR 04 0080
CAN 05N06 11CON COMP OLDFLD 11 0090
CSR 03 11 FROM COMP OLDFRM 11 0100
CSRN11 EXSR SET11 0110
CSR COPY COMP 'C' 21 0120
CSR 03 21 EXSR COPY 0130
CSR 04 0140
COR L1 0150
COR 03 21N99 0160
COR 03N21 0170
CORN11 SETON 41 0180
CSR 41 SETON 40 0190
CSR ENDSR 0200