|
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$DLIN«
└─⟦d025fa538⟧ Bits:30009183 5702-sc1.V16.2
└─⟦cfce0a73a⟧
└─⟦this⟧ »S$DLIN«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DLIN«
* DLINE OPTIONS
LINK
$DLIN &LINE-
GBLB &LINEG,&DUALG
TEXT
AIF (&DUALG).B
MNOTE '0,'IS'
MEXIT
.B AIF (T'&LINE NE 'N').A
AIF (&LINE GT '99').A
AIF (&LINE LT '01').A
&DUALG SETB 0
&LINEG SETB 1
// CONFG X,FC,&LINE
MEXIT
.A MNOTE '0,'IR'
MEND
..................................KKe{ggggggggg{ggggggggggggg' 2aaaaaaaaaBBBBBBBBBBBBBBBBBBBB}
gaÅBBBBBBBBBBBBBBBBBBBBBBBBBB).K
// CONFG M,24,00
MEXIT
.K AIF (&BSCA EQ 'S').J
// CONFG M,25,40
AGO .M
.J ANOP
// CONFG M,25,80
&BSCAE SETB 1
.M