|
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$BPRN«
└─⟦551e4a452⟧ Bits:30009187 5703-sc1.V14.ccp
└─⟦2a281693d⟧
└─⟦this⟧ »S$BPRN«
└─⟦f5e77a403⟧ Bits:30009188 5703-sc1.V14.scp
└─⟦decd4c985⟧
└─⟦this⟧ »S$BPRN«
* PRINTER OPTIONS
LINK
$BPRN &PRINT-
GBLB &DATEG,&PRNTG
TABLE &PRINT
5213M1 8120
5213M2 8140
5213M3 8540
2222M1 8240
2222M2 8640
'E'
TEXT
AIF (&DATEG).B
MNOTE '0,'IS'
MEXIT
.B AIF (&PRINT NE 'E').A
MNOTE '0,'IR'
MEXIT
.A ANOP
// CONFG M,14,&PRINT
AIF (&PRINT EQ '8240').C
AIF (&PRINT NE '8640').D
.C ANOP
// COPY FROM-R1,TO-F1,LIBRARY-O,RETAIN-R,NAME-$@SLP3,NEWNAME-$$SLP3
// COPY FROM-R1,TO-F1,LIBRARY-O,RETAIN-R,NAME-$@STIQ,NEWNAME-$$STIQ
// COPY FROM-R1,TO-F1,LIBRARY-O,RETAIN-R,NAME-$@STOL,NEWNAME-$$STOL
// COPY FROM-R1,TO-F1,LIBRARY-O,RETAIN-P,NAME-$@SLX.ALL,NEWNAME-$$SLX
// CONFG N,1C,80
.D ANOP
&DATEG SETB 0
&PRNTG SETB 1
MEND