|
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: »S$DATE«
└─⟦d025fa538⟧ Bits:30009183 5702-sc1.V16.2
└─⟦cfce0a73a⟧
└─⟦this⟧ »S$DATE«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DATE«
* DDATE OPTIONS
LINK
$DATE &DATE-
GBLB &DATEG,&TDNG
TABLE &DATE
MDY 00
DMY 04
'E'
TEXT
AIF (&TDNG).B
MNOTE '0,'IS'
MEXIT
.B AIF (&DATE NE 'E').A
MNOTE '0,'IR'
MEXIT
.A ANOP
&TDNG SETB 0
&DATEG SETB 1
// CONFG M,FB,&DATE
MEND
}giiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii2gggggggggggggggggggggggýýýýýýýýýý
ýýýýýýýýýýýýýýýýýýýýýýýýýýýýýÔ222222}giiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii¨RRRRRRRRRRR22
2222}giiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii2ER 2. THE PROGRAM WILL CONTINUE SERI00
07* READING SOURCE CARDS UNTIL IT FINDS A /* IN COLUMNS 1 AND 2. SERI00
08* SERI00
09* THERE ARE SIX POSSIBLE HALTS