|
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: »P$SGIVP«
└─⟦551e4a452⟧ Bits:30009187 5703-sc1.V14.ccp
└─⟦2a281693d⟧
└─⟦this⟧ »P$SGIVP«
└─⟦f5e77a403⟧ Bits:30009188 5703-sc1.V14.scp
└─⟦decd4c985⟧
└─⟦this⟧ »P$SGIVP«
// LOAD $SGIVP,F1
*
*** THIS STEP WILL COME TO NORMAL END OF JOB AND THE SYSTEM WILL
*** PROMPT 'READY'. AT THAT TIME IF YOU BUILT A CO-RESIDENT SYSTEM
*** SEE YOUR OPERATOR'S MANUAL FOR FURTHER INSTRUCTIONS.
*
*** IF YOU DID NOT BUILD A CO-RESIDENT SYSTEM, IPL R1 AND CALL
*** $SGDES,R1.
*
// RUN
KKe{ggggggggg{ggggggggggggg' 2aaaaaaaaaBBBBBBBBBBBBBBBBBBBB}g
aÅBBBBBBBBBBBBBBBBBBBBBBBBB YES 80
'E'
TEXT
AIF (&BSCAG).A
MNOTE '0,'IS'
MEXIT
.A AIF (&CRT NE 'E').B
MNOTE '0,'IR'
MEXIT
.B AIF (&CRT E