|
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: »SAUX009«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SAUX009«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SAUX009«
C****************************************************** PROC13 0000
C* ROUTINE TO CHECK PACKED/BINARY CODE, START AND END POSITION 0010
C* OF FIELD FOR CHANGES AND POSSIBLE USER PROGRAM PROBLEMS. 0020
CSR PROC13 BEGSR 0030
CSR L1 EXSR SETUP 0040
CSR PB COMP OLDPB 11 0050
CSR 11 TO COMP OLDTO 11 0060
CSR 03 11 FROM COMP OLDFRM 11 0070
CSRN11 EXSR SETUP 0080
CSR COPY COMP 'C' 21 0090
CSR 03 21 EXSR COPY 0100
CSR 04 0110
COR 05 0120
COR 03N21 0130
COR 03 21N99 0140
COR L1 0150
CORN11 SETON 41 0160
CSR 41 SETON 40 0170
CSR ENDSR 0180