|
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: 3556 (0xde4)
Types: s3xseg
Names: »S$DEND«
└─⟦d025fa538⟧ Bits:30009183 5702-sc1.V16.2
└─⟦cfce0a73a⟧
└─⟦this⟧ »S$DEND«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DEND«
* DGEND OPTIONS
LINK
$DEND
GBLB &SPVG,&SWAG,&SWBG,&SWCG,&SWDG
GBLB &TSUPG,&TNUM1,&TNUM2,&KEY71,&BING
GBLB &SADD1,&SADD2,ຝ,&TIME,&SADD3 @03
TEXT
AIF (&SPVG).C
MNOTE '0,'IS'
MEXIT
.C ANOP
AIF (&SWDG).NEW
AIF (&SWBG).NEW
AIF (&TSUPG).NEW
AIF (&SWAG).TWO
INCLD $@DIOS
AGO .CONS
.TWO ANOP
INCLD $@DIOD
AGO .CONS
.NEW AIF (&TSUPG).D
INCLD $@NQ01
AGO .E
.D ANOP
INCLD $@NQ00
.E AIF (&SWAG EQ '0').F
INCLD $@NQ02
.F AIF (&SWCG EQ '0').G
INCLD $@NQ03
.G AIF (&SWBG EQ '0').G1
INCLD $@NQ04
.G1 AIF (&SWDG EQ '0').H
INCLD $@QU48
.H AIF (&TSUPG EQ '0').K
AIF (&TNUM1).J
AIF (&TNUM2).I
INCLD $@NQ05
AGO .K
.I ANOP
INCLD $@NQ06
AGO .K
.J ANOP
INCLD $@NQ07
.K ANOP
AIF (&SWDG EQ '0').K1
INCLD $@QC48
AGO .K2
.K1 ANOP
INCLD $@NQ10
.K2 ANOP
AIF (&TSUPG).L
INCLD $@ND00
AGO .M
.L ANOP
INCLD $@NT00
.M ANOP
AIF (&SWDG EQ '0').M1
INCLD $@IO48
INCLD $@DS48
AGO .M9
.M1 ANOP
AIF (&SWBG).M3
AIF (&SWAG).M2
INCLD $@NX21
AGO .M9
.M2 ANOP
INCLD $@NX22
AGO .M9
.M3 AIF (&SWCG).M5
AIF (&SWAG).M4
INCLD $@NX23
AGO .M9
.M4 ANOP
INCLD $@NX25
AGO .M9
.M5 AIF (&SWAG).M6
INCLD $@NX24
AGO .M9
.M6 ANOP
INCLD $@NX26
.M9 ANOP
INCLD $@NW20
AIF (&TSUPG).N
INCLD $@NW21
AGO .O
.N ANOP
INCLD $@NW22
.O ANOP
AIF (&SWDG EQ '0').O2
AIF (&TSUPG EQ '0').O1
INCLD $@TW48
.O1 ANOP
INCLD $@ET48
INCLD $@Q248
AGO .Q
.O2 ANOP
INCLD $@NW23
AIF (&SWAG).P
INCLD $@NQ20
AGO .Q
.P ANOP
INCLD $@NQ21
.Q ANOP
INCLD $@NS10
AIF (&SWDG EQ '0').Q1
INCLD $@ER48
AGO .S2
.Q1 ANOP
AIF (&SWCG).R
AIF (&SWBG EQ '0').S
INCLD $@NQ30
AGO .S
.R ANOP
INCLD $@NQ31
.S ANOP
AIF (&SWBG).S1
INCLD $@NE32
AGO .S2
.S1 AIF (&SWCG).S1A
INCLD $@NE35
AGO .S2
.S1A ANOP
INCLD $@NE36
.S2 AIF (&TSUPG EQ '0').W
INCLD $@NT10
AIF (&TNUM1).U
AIF (&TNUM2).T
INCLD $@NTQ1
AGO .W
.T ANOP
INCLD $@NTQ2
AGO .W
.U AIF (&TNUM2).V
INCLD $@NTQ3
AGO .W
.V ANOP
INCLD $@NTQ4
.W ANOP
// COPY FROM-R1,TO-F1,RETAIN-R,LIBRARY-O,NAME-$@IN.ALL,NEWNAME-$$IN
.CONS AIF (&KEY71 EQ '0').BSCA
INCLD $@COIH
.BSCA AIF (&BING EQ '0').X
INCLD $@@BIN
// COPY FROM-R1,TO-F1,RETAIN-R,LIBRARY-R,NAME-$@BB.ALL,NEWNAME-$$BS
AIF (&SWDG EQ '0').X1
.X ANOP
AIF (&SWDG EQ '0').X0
INCLD $@SE48
AGO .X2
.X0 ANOP
AIF (ຝ EQ '0').X2 @03
.X1 ANOP @03
INCLD $@SUPC @03
.X2 ANOP @03
AIF (&SADD1 EQ '0').Z
AIF (&SADD3).Y
INCLD $@SUP1
AIF (&SADD2 EQ '0').Z
INCLD $@SUP2
AGO .Z
.Y AIF (&SADD2).Y1
INCLD $@SUP2
AGO .Z
.Y1 ANOP
INCLD $@SUP4
.Z ANOP
&SPVG SETB 0
AIF (&TIME EQ '0').Z1 @03
INCLD $TIME @03
.Z1 ANOP @03
INCLD $@SUPN
// CONFG M,50,FF
// COPY FROM-F1,TO-PRINT,LIBRARY-SYSTEM,NAME-DIR
MEND