|
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: 1524 (0x5f4)
Types: s3xseg
Names: »S$SAMP2«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »S$SAMP2«
└─⟦d025fa538⟧ Bits:30009183 5702-sc1.V16.2
└─⟦cfce0a73a⟧
└─⟦this⟧ »S$SAMP2«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »S$SAMP2«
0101 H 008 SAMPL2 0102 F************************************************* SAMPL2 0103 F* * SAMPL2 0104 F* THIS PROGRAM - * SAMPL2 0105 F* * SAMPL2 0106 F* 1. MUST BE PRECEDED BY SAMPLE PROGRAM 1 * SAMPL2 0107 F* WHICH LOADS AN INDEXED FILE. * SAMPL2 0108 F* * SAMPL2 0109 F* 2. READS AN INDEXED FILE SEQUENTIALLY. * SAMPL2 0110 F* * SAMPL2 0111 F* 3. USES A BLOCK LENGTH FOR DISK WHICH * SAMPL2 0112 F* IS DIFFERENT FROM THAT USED FOR * SAMPL2 0113 F* LOADING THE FILE IN SAMPLE PROGRAM 1. * SAMPL2 0114 F* * SAMPL2 0115 F* 4. COUNTS THE NUMBER OF RECORDS READ SO * SAMPL2 0116 F* THAT THE USER CAN QUICKLY VERIFY THAT * SAMPL2 0117 F* 100 RECORDS WERE LOADED. * SAMPL2 0118 F* * SAMPL2 0119 F************************************************* SAMPL2 0120 FDISKIN IPE F 512 128 06AI 1 DISK 01 SAMPL2 0121 FPRINTER O F 96 96 OF PRINTER SAMPL2 0201 IDISKIN NS 01 1 C0 SAMPL2 0202 I 1 6 KEY SAMPL2 0203 I 82 94 DESC SAMPL2 0204 I 126 1280RECNBR SAMPL2 0301 C 01 COUNT ADD 1 COUNT 30 SAMPL2 0401 OPRINTER H 204 1P SAMPL2 0402 O OR OF SAMPL2 0403 O 5 'KEY' SAMPL2 0404 O 22 'DESCRIPTION' SAMPL2 0405 O 30 'PAGE' SAMPL2 0406 O PAGE Z 35 SAMPL2 0407 O D 1 01 SAMPL2 0408 O KEY 6 SAMPL2 0409 O DESC 21 SAMPL2 0410 O RECNBRZ 25 SAMPL2 0411 O T 3 01 LR SAMPL2 0412 O COUNT Z 3 SAMPL2 0413 O 26 'RECORDS WERE READ FROM' SAMPL2 0414 O 44 'THE INDEXED FILE.' SAMPL2