|
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: 508 (0x1fc)
Types: s3xseg
Names: »SAUX013«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SAUX013«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SAUX013«
C****************************************************** INCLCD 0000
C* THIS SUBROUTINE USED IN XRF09, 11 AND 13. 0010
C* SET UP USER SPECIFIED ARRAY FROM 'INCL' CARD. 0020
C* 0030
CSR INCLCD BEGSR 0040
CSR LOOP TAG 0050
CSR 1 ADD A A 20 0060
CSR A COMP 15 08 0070
CSRN08 INCL,A COMP ' ' 08 0080
C* CHECK DEVICE TYPE CODE FOR VALIDITY. 0090
CSRN08 INCL,A LOKUPDEV 09 0100
CSRN08N09 SETON H1 0110
CSRN08N09 MOVE '*******' ERR,A 0120
CSRN08 GOTO LOOP 0130
CSRNH1 SETON 07 0140
CSR ENDSR 0150