|
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: 1270 (0x4f6)
Types: s3xseg
Names: »S$DMCR«
└─⟦d025fa538⟧ Bits:30009183 5702-sc1.V16.2
└─⟦cfce0a73a⟧
└─⟦this⟧ »S$DMCR«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DMCR«
* DMICR OPTIONS
LINK
$DMCR &MICR-
GBLB &RJEG,&MICRG
TABLE &MICR
NO 00
1419 40
1255 80
'E'
TEXT
AIF (&RJEG).B
MNOTE '0,'IS'
MEXIT
.B AIF (&MICR NE 'E').C
MNOTE '0,'IR'
MEXIT
.C ANOP
&RJEG SETB 0
&MICRG SETB 1
// CONFG M,30,&MICR
AIF (&MICR NE '00').D EXIT IF RESPONSE TO PROMPT A NO
MEXIT
.D ANOP
AIF (&MICR NE '40').E IF NOT 1419, GO TO 1255
.* 1419 SUPPORT COPIED OVER HERE
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-R,NAME-SUBR09
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@1419,NEWNAME-$$1419
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-R,NAME-$@MIMO,NEWNAME-$$MIMO
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-R,NAME-$@MIMU,NEWNAME-$$MIMU
MEXIT
.E ANOP
.* 1255 SUPPORT COPIED OVER HERE
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-R,NAME-SUBR08
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@MICR,NEWNAME-$$MICR
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-R,NAME-$@MIMO,NEWNAME-$$MIMO
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-R,NAME-$@MIMU,NEWNAME-$$MIMU
MEND