|
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: »S$DTIM«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »S$DTIM«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »S$DTIM«
* TIMER OPTIONS
LINK
$DTIM &TIMER-
GBLB &TIME
TABLE &TIMER
YES 10
'E'
TEXT
AIF (&TIMER NE 'E').B
MNOTE '0,'IR'
MEXIT
.B ANOP
&TIME SETB 1
// COPY FROM-R1,TO-F1,LIBRARY-O,RETAIN-R,NAME-$SET
// COPY FROM-R1,TO-F1,LIBRARY-O,RETAIN-R,NAME-$TOD
// COPY FROM-R1,TO-F1,LIBRARY-R,RETAIN-R,NAME-SUBR06
// COPY FROM-R1,TO-F1,LIBRARY-R,RETAIN-R,NAME-CFTOD
*/ COPY FROM-R1,TO-R2,LIBRARY-O,RETAIN-R,NAME-$CC4BX
// COPY FROM-R1,TO-F1,LIBRARY-O,RETAIN-R,NAME-$LOCCP
// COPY FROM-R1,TO-F1,LIBRARY-O,RETAIN-R,NAME-$TIME.ALL
// COPY FROM-R1,TO-F1,LIBRARY-S,RETAIN-R,NAME-TIME
// COPY FROM-R1,TO-F1,LIBRARY-S,RETAIN-R,NAME-STIME
MEND