|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1280 (0x500)
Notes: MEMBER_P, Member_Text
Names: »SEUFMRI «
└─⟦14ba21fd6⟧ Bits:30009812 REF.NO PWD34 PGM 5727-UT6 FEAT9074 UTILITIES US Z250-0041-2 REV/LEV 05.01 SEQ. 1/2 DISKET 2S 96TPI INTERNAL 88.03.04 31
└─⟦10fd7efe5⟧
└─⟦this⟧ ».SEUFMRI «
// MEMBER USER1-##MSG2 // LOCAL AREA-SYSTEM // IF ?3?/SEULOAD GOTO ADDSEUF // IFF ?L'248,1'?/1 GOTO ADDSEUF // IF ?R'2060'?/N GOTO ALLDONE // TAG ADDSEUF // IF ?L'230,1'?/1 IFF SOURCE-'#SE$FORM,#SEULIB' GOTO ALOC // IF ?L'230,1'?/1 GOTO DELFMTS // IFF SOURCE-'#SE@FORM,#SEULIB' GOTO ALOC // TAG DELFMTS // LOAD $MAINT // RUN // IFF ?L'230,1'?/1 + DELETE NAME-#SE@.ALL,LIBRARY-S,LIBRNAME-#SEULIB,RETAIN-S // IF ?L'67,1'?/1 + DELETE NAME-#SE$.ALL,LIBRARY-S,LIBRNAME-#SEULIB,RETAIN-S // END CONDENSE #SEULIB // TAG ALOC // IFF ?L'230,1'?/1 GOTO CHKKANJI // ELSE ALOCLIBR #SEULIB,295,25 // GOTO LOADFILE // TAG CHKKANJI // IF ?L'67,1'?/1 ALOCLIBR #SEULIB,460,25 // ELSE ALOCLIBR #SEULIB,240,15 // TAG LOADFILE // LOAD $MAINT // FILE NAME-SEUFSMRI,UNIT-I1,LOCATION-?1'S1'?,AUTO-NO // RUN // COPY FROM-DISK,TO-#SEULIB,FILE-SEUFSMRI // END // IFF ?CD?/0000 RETURN LOGPLD LOAD,SEUFMT,NONE,,'0004,##MSGPL2',,#SEULIB // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUFMRI 41' // LOAD $CNAD // RUN // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUFMRI 41' // LOAD $CNAD // RUN // TAG ALLDONE