|
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: 3328 (0xd00)
Notes: MEMBER_P, Member_Text
Names: »FROMLIBR«
└─⟦7f4ab32d0⟧ Bits:30009823 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 11 Created 19950301 Level 01 Seq 001 of 011
└─⟦3adc66155⟧
└─⟦this⟧ ».FROMLIBR«
// IFF ?64?=FROMLIBR GOTO NOTHELP // ALLOCATE UNIT-I1,AUTO-YES,CONTINUE-YES // IFF ?2?/ALL LOCAL OFFSET-201,BLANK-100,+ DATA-'?3?,?4?,?5?,?6?,?7?,?8?,?9?,?10?,?11?,?12?' // ELSE LOCAL OFFSET-201,BLANK-100,+ DATA-'?4?,?5?,?6?,?7?,?8?,?9?,?10?,?11?,?12?,?13?' // IF ?1?/ALL IF ?2?/ALL IF ?4?/ GOTO PRMPHALT // IF ?1?/ALL IFF ?2?/ALL IF ?3?/ GOTO PRMPHALT // GOTO NOPROMPT // TAG NOTHELP // EVALUATE CD=0000 P60=?CLIB? P63=' 1' // IF ?1?/ GOTO PROMPT // IFF ?2?/ALL EVALUATE P63=' 3' // ELSE EVALUATE P63=' 4' // IF ?1?/ALL IF ?2?/ALL IF ?4?/ GOTO PRMPHALT // IF ?1?/ALL IFF ?2?/ALL IF ?3?/ GOTO PRMPHALT // IFF ?2?/ALL EVALUATE P63=' 6' // ELSE EVALUATE P63=' 7' // IFF ?2?/ALL IFF ?4?/F1 IF ?6?/ GOTO PROMPT // IF ?2?/ALL IFF ?5?/F1 IF ?7?/ GOTO PROMPT // GOTO NOPROMPT // TAG PRMPHALT // IF ?64?/FROMLIBR #ERR 1509,23 // IF ?CD?=1012 RETURN // TAG PROMPT // IF JOBQ-NO IF EVOKED-NO HELP FROMLIBR,?1?,?2?,?3?,?4?,?5?,?6?,+ ?7?,?8?,?9?,?10?,?11?,?12?,?13? // ELSE #ERR 1510,3,,'?63?FROMLIBR' // RETURN // TAG NOPROMPT // LIBRARY NAME-0 // MEMBER USER1-##MSG2 // IF JOBQ-NO IF EVOKED-NO * 2540 // IF ?2?/ALL #FROMLIB,#POPLIB ?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,?10?,?11?,+ ?12?,?13?,,?15'?60?'? // IF ?2?/ALL RETURN // IF ?2'SOURCE'?/SOURCE EVALUATE P2=S // ELSE IF ?2?/PROC EVALUATE P2=P // ELSE IF ?2?/LOAD EVALUATE P2=O // ELSE IF ?2?/SUBR EVALUATE P2=R // IFF ?2?/S IFF ?2?/P IFF ?2?/R IFF ?2?/O IFF ?2?/LIBRARY #ERR 2550,23 // IF ?CD?=1012 RETURN // IF ?2?/LIBRARY EVALUATE P2=ALL // IFF ?2?/S IFF ?2?/P IFF ?2?/ALL IFF ?11?/ #ERR 2541,23 // IF ?CD?=1012 RETURN // IFF ?4'I1'?/I1 IFF ?4?/F1 IFF ?4?/T1 IFF ?4?/T2 IFF ?4?/TC + #ERR 1515,23 // IF ?CD?=1012 RETURN // IFF ?4?/F1 IFF ?9'AUTO'?/AUTO IFF ?9?/NOAUTO #ERR 1506,23,,' 9' // IF ?CD?=1012 RETURN // IFF ?4?/I1 IFF ?8?/ #ERR 1512,23 // IF ?CD?=1012 RETURN // IFF ?10?/ IFF ?4?/T1 IFF ?4?/T2 IFF ?4?/TC #ERR 1511,23 // ELSE IFF ?10'REWIND'?/REWIND IFF ?10?/LEAVE IFF ?10?/UNLOAD #ERR 1516,23 // IF ?CD?=1012 RETURN // IF ?10?/UNLOAD IF ?4?/TC EVALUATE P10=REWIND // IFF ?4?/F1 IF ?5'1'?>999 #ERR 2538,23 // ELSE IFF ?4?/F1 IFF ?5?/0 IFF ?5?>0 IFF ?5?/ADD #ERR 2538,23 // ELSE IF ?4?/F1 IFF ?5'T'?/P IFF ?5?/T IFF ?5?/S IFF ?5?/J IFF ?5?/ADD + #ERR 2536,23 // IF ?CD?=1012 RETURN // IFF ?12?/ IFF ?12?/SVATTR #ERR 2404,23,,'12' // IF ?CD?=1012 RETURN // LOAD $MAINT // IFF ?3?/ FILE NAME-?3?, // ELSE FILE NAME-?1?, // IF ?4?/I1 PACK-?6?,LOCATION-?8'S1'?, // IF ?4?/F1 IFF ?5?/ADD BLOCKS-?6'8'?, // IFF ?5?/ADD RETAIN-?5?, // IFF ?4?/F1 IF ?9?/NOAUTO AUTO-NO, // IF ?4?/F1 IFF ?5?/ADD IFF ?5?/J DISP-NEW, // ELSE IF ?4?/F1 IF ?5?/ADD DISP-OLD, // IFF ?4?/F1 IFF ?4?/I1 VOLID-?6?,RECL-256,BLKL-4096,RECFM-FB,END-?10?, // UNIT-?4? // RUN // COPY NAME-?1?,LIBRARY-?2?,FROM-?7'?60?'?,FILE-?3'?1?'?, // IF ?5?/ADD ADD-YES, // IFF ?11?/ RECL-?11?, // IF ?12?/SVATTR IFF ?11?/ SVATTR-YES, // ELSE IF ?12?/SVATTR IF ?11?/ IF ?5?/ADD SVATTR-YES, // IF ?1?/ALL IF ?2?/ALL IF ?7?/#LIBRARY OMIT-SYSTEM, // IFF ?4?/I1 IFF ?4?/F1 TO-TAPE // ELSE TO-DISK // END
0x000…001 0xa1 0x001…022 »// IFF ?64?=FROMLIBR GOTO NOTHELP« 0x022…023 0x2f 0x023…024 0xa9 0x024…04d »// ALLOCATE UNIT-I1,AUTO-YES,CONTINUE-YES« 0x04d…04e 0x27 0x04e…04f 0xab 0x04f…07a »// IFF ?2?/ALL LOCAL OFFSET-201,BLANK-100,+« 0x07a…07b 0x25 0x07b…07c 0x03 0x07c…07d 0xb1 0x07d…0ae »DATA-'?3?,?4?,?5?,?6?,?7?,?8?,?9?,?10?,?11?,?12?'« 0x0ae…0af 0x1c 0x0af…0b0 0xa4 0x0b0…0d4 »// ELSE LOCAL OFFSET-201,BLANK-100,+« 0x0d4…0d5 0x2c 0x0d5…0d6 0x03 0x0d6…0d7 0xb2 0x0d7…109 »DATA-'?4?,?5?,?6?,?7?,?8?,?9?,?10?,?11?,?12?,?13?'« 0x109…10a 0x1b 0x10a…10b 0xae 0x10b…139 »// IF ?1?/ALL IF ?2?/ALL IF ?4?/ GOTO PRMPHALT« 0x139…13a 0x22 0x13a…13b 0xaf 0x13b…16a »// IF ?1?/ALL IFF ?2?/ALL IF ?3?/ GOTO PRMPHALT« 0x16a…16b 0x21 0x16b…16c 0x87 0x16c…173 »// GOTO« 0x173…174 0x02 0x174…175 0x88 0x175…17d »NOPROMPT« 0x17d…17e 0x3f 0x17e…17f 0x8e 0x17f…18d »// TAG NOTHELP« 0x18d…18e 0x42 0x18e…18f 0xa7 0x18f…1b6 »// EVALUATE CD=0000 P60=?CLIB? P63=' 1'« 0x1b6…1b7 0x29 0x1b7…1b8 0x96 0x1b8…1ce »// IF ?1?/ GOTO PROMPT« 0x1ce…1cf 0x3a 0x1cf…1d0 0xa0 0x1d0…1f0 »// IFF ?2?/ALL EVALUATE P63=' 3'« 0x1f0…1f1 0x30 0x1f1…1f2 0x99 0x1f2…20b »// ELSE EVALUATE P63=' 4'« 0x20b…20c 0x37 0x20c…20d 0xae 0x20d…23b »// IF ?1?/ALL IF ?2?/ALL IF ?4?/ GOTO PRMPHALT« 0x23b…23c 0x22 0x23c…23d 0xaf 0x23d…26c »// IF ?1?/ALL IFF ?2?/ALL IF ?3?/ GOTO PRMPHALT« 0x26c…26d 0x21 0x26d…26e 0xa0 0x26e…28e »// IFF ?2?/ALL EVALUATE P63=' 6'« 0x28e…28f 0x30 0x28f…290 0x99 0x290…2a9 »// ELSE EVALUATE P63=' 7'« 0x2a9…2aa 0x37 0x2aa…2ab 0xad 0x2ab…2d8 »// IFF ?2?/ALL IFF ?4?/F1 IF ?6?/ GOTO PROMPT« 0x2d8…2d9 0x23 0x2d9…2da 0xac 0x2da…306 »// IF ?2?/ALL IFF ?5?/F1 IF ?7?/ GOTO PROMPT« 0x306…307 0x24 0x307…308 0x90 0x308…318 »// GOTO NOPROMPT« 0x318…319 0x40 0x319…31a 0x8f 0x31a…329 »// TAG PRMPHALT« 0x329…32a 0x41 0x32a…32b 0xa0 0x32b…34b »// IF ?64?/FROMLIBR #ERR 1509,23« 0x34b…34c 0x30 0x34c…34d 0x96 0x34d…363 »// IF ?CD?=1012 RETURN« 0x363…364 0x3a 0x364…365 0x8d 0x365…372 »// TAG PROMPT« 0x372…373 0x43 0x373…374 0xc2 0x374…3b6 »// IF JOBQ-NO IF EVOKED-NO HELP FROMLIBR,?1?,?2?,?3?,?4?,?5?,?6?,+« 0x3b6…3b7 0x0e 0x3b7…3b8 0x03 0x3b8…3b9 0x9f 0x3b9…3d8 »?7?,?8?,?9?,?10?,?11?,?12?,?13?« 0x3d8…3d9 0x2e 0x3d9…3da 0xa3 0x3da…3fd »// ELSE #ERR 1510,3,,'?63?FROMLIBR'« 0x3fd…3fe 0x2d 0x3fe…3ff 0x89 0x3ff…408 »// RETURN« 0x408…409 0x47 0x409…40a 0x8f 0x40a…419 »// TAG NOPROMPT« 0x419…41a 0x41 0x41a…41b 0x91 0x41b…42c »// LIBRARY NAME-0« 0x42c…42d 0x3f 0x42d…42e 0x96 0x42e…444 »// MEMBER USER1-##MSG2« 0x444…445 0x3a 0x445…446 0xa1 0x446…467 »// IF JOBQ-NO IF EVOKED-NO * 2540« 0x467…468 0x2f 0x468…469 0xce 0x469…4b7 »// IF ?2?/ALL #FROMLIB,#POPLIB ?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,?10?,?11?,+« 0x4b7…4b8 0x02 0x4b8…4b9 0x03 0x4b9…4ba 0x95 0x4ba…4cf »?12?,?13?,,?15'?60?'?« 0x4cf…4d0 0x38 0x4d0…4d1 0x94 0x4d1…4e5 »// IF ?2?/ALL RETURN« 0x4e5…4e6 0x3c 0x4e6…4e7 0xa6 0x4e7…50d »// IF ?2'SOURCE'?/SOURCE EVALUATE P2=S« 0x50d…50e 0x2a 0x50e…50f 0xa1 0x50f…530 »// ELSE IF ?2?/PROC EVALUATE P2=P« 0x530…531 0x2f 0x531…532 0xa1 0x532…553 »// ELSE IF ?2?/LOAD EVALUATE P2=O« 0x553…554 0x2f 0x554…555 0xa1 0x555…576 »// ELSE IF ?2?/SUBR EVALUATE P2=R« 0x576…577 0x2f 0x577…578 0xc7 0x578…5bf »// IFF ?2?/S IFF ?2?/P IFF ?2?/R IFF ?2?/O IFF ?2?/LIBRARY #ERR 2550,23« 0x5bf…5c0 0x09 0x5c0…5c1 0x96 0x5c1…5d7 »// IF ?CD?=1012 RETURN« 0x5d7…5d8 0x3a 0x5d8…5d9 0xa1 0x5d9…5fa »// IF ?2?/LIBRARY EVALUATE P2=ALL« 0x5fa…5fb 0x2f 0x5fb…5fc 0xb9 0x5fc…635 »// IFF ?2?/S IFF ?2?/P IFF ?2?/ALL IFF ?11?/ #ERR 2541,23« 0x635…636 0x17 0x636…637 0x96 0x637…64d »// IF ?CD?=1012 RETURN« 0x64d…64e 0x3a 0x64e…64f 0xbf 0x64f…68e »// IFF ?4'I1'?/I1 IFF ?4?/F1 IFF ?4?/T1 IFF ?4?/T2 IFF ?4?/TC +« 0x68e…68f 0x11 0x68f…690 0x03 0x690…691 0x8c 0x691…69d »#ERR 1515,23« 0x69d…69e 0x41 0x69e…69f 0x96 0x69f…6b5 »// IF ?CD?=1012 RETURN« 0x6b5…6b6 0x3a 0x6b6…6b7 0xc2 0x6b7…6f9 »// IFF ?4?/F1 IFF ?9'AUTO'?/AUTO IFF ?9?/NOAUTO #ERR 1506,23,,' 9'« 0x6f9…6fa 0x0e 0x6fa…6fb 0x96 0x6fb…711 »// IF ?CD?=1012 RETURN« 0x711…712 0x3a 0x712…713 0xa3 0x713…736 »// IFF ?4?/I1 IFF ?8?/ #ERR 1512,23« 0x736…737 0x2d 0x737…738 0x96 0x738…74e »// IF ?CD?=1012 RETURN« 0x74e…74f 0x3a 0x74f…750 0xba 0x750…78a »// IFF ?10?/ IFF ?4?/T1 IFF ?4?/T2 IFF ?4?/TC #ERR 1511,23« 0x78a…78b 0x16 0x78b…78c 0xcb 0x78c…7d7 »// ELSE IFF ?10'REWIND'?/REWIND IFF ?10?/LEAVE IFF ?10?/UNLOAD #ERR 1516,23« 0x7d7…7d8 0x05 0x7d8…7d9 0x96 0x7d9…7ef »// IF ?CD?=1012 RETURN« 0x7ef…7f0 0x3a 0x7f0…7f1 0xaf 0x7f1…820 »// IF ?10?/UNLOAD IF ?4?/TC EVALUATE P10=REWIND« 0x820…821 0x21 0x821…822 0xa8 0x822…84a »// IFF ?4?/F1 IF ?5'1'?>999 #ERR 2538,23« 0x84a…84b 0x28 0x84b…84c 0xbf 0x84c…88b »// ELSE IFF ?4?/F1 IFF ?5?/0 IFF ?5?>0 IFF ?5?/ADD #ERR 2538,23« 0x88b…88c 0x11 0x88c…88d 0xca 0x88d…8d7 »// ELSE IF ?4?/F1 IFF ?5'T'?/P IFF ?5?/T IFF ?5?/S IFF ?5?/J IFF ?5?/ADD +« 0x8d7…8d8 0x06 0x8d8…8d9 0x03 0x8d9…8da 0x8c 0x8da…8e6 »#ERR 2536,23« 0x8e6…8e7 0x41 0x8e7…8e8 0x96 0x8e8…8fe »// IF ?CD?=1012 RETURN« 0x8fe…8ff 0x3a 0x8ff…900 0xaf 0x900…92f »// IFF ?12?/ IFF ?12?/SVATTR #ERR 2404,23,,'12'« 0x92f…930 0x21 0x930…931 0x96 0x931…947 »// IF ?CD?=1012 RETURN« 0x947…948 0x3a 0x948…949 0x8e 0x949…957 »// LOAD $MAINT« 0x957…958 0x42 0x958…959 0x9a 0x959…973 »// IFF ?3?/ FILE NAME-?3?,« 0x973…974 0x36 0x974…975 0x96 0x975…98b »// ELSE FILE NAME-?1?,« 0x98b…98c 0x3a 0x98c…98d 0xa7 0x98d…9b4 »// IF ?4?/I1 PACK-?6?,LOCATION-?8'S1'?,« 0x9b4…9b5 0x29 0x9b5…9b6 0xa7 0x9b6…9dd »// IF ?4?/F1 IFF ?5?/ADD BLOCKS-?6'8'?,« 0x9dd…9de 0x29 0x9de…9df 0x9a 0x9df…9f9 »// IFF ?5?/ADD RETAIN-?5?,« 0x9f9…9fa 0x36 0x9fa…9fb 0xa4 0x9fb…a1f »// IFF ?4?/F1 IF ?9?/NOAUTO AUTO-NO,« 0xa1f…a20 0x2c 0xa20…a21 0xac 0xa21…a4d »// IF ?4?/F1 IFF ?5?/ADD IFF ?5?/J DISP-NEW,« 0xa4d…a4e 0x24 0xa4e…a4f 0xa6 0xa4f…a75 »// ELSE IF ?4?/F1 IF ?5?/ADD DISP-OLD,« 0xa75…a76 0x2a 0xa76…a77 0xc8 0xa77…abf »// IFF ?4?/F1 IFF ?4?/I1 VOLID-?6?,RECL-256,BLKL-4096,RECFM-FB,END-?10?,« 0xabf…ac0 0x08 0xac0…ac1 0x8b 0xac1…acc »// UNIT-?4?« 0xacc…acd 0x45 0xacd…ace 0x86 0xace…ad4 »// RUN« 0xad4…ad5 0x4a 0xad5…ad6 0xba 0xad6…b10 »// COPY NAME-?1?,LIBRARY-?2?,FROM-?7'?60?'?,FILE-?3'?1?'?,« 0xb10…b11 0x16 0xb11…b12 0x96 0xb12…b28 »// IF ?5?/ADD ADD-YES,« 0xb28…b29 0x3a 0xb29…b2a 0x97 0xb2a…b41 »// IFF ?11?/ RECL-?11?,« 0xb41…b42 0x39 0xb42…b43 0xa7 0xb43…b6a »// IF ?12?/SVATTR IFF ?11?/ SVATTR-YES,« 0xb6a…b6b 0x29 0xb6b…b6c 0xb6 0xb6c…ba2 »// ELSE IF ?12?/SVATTR IF ?11?/ IF ?5?/ADD SVATTR-YES,« 0xba2…ba3 0x1a 0xba3…ba4 0xb5 0xba4…bd9 »// IF ?1?/ALL IF ?2?/ALL IF ?7?/#LIBRARY OMIT-SYSTEM,« 0xbd9…bda 0x1b 0xbda…bdb 0xa0 0xbdb…bfb »// IFF ?4?/I1 IFF ?4?/F1 TO-TAPE« 0xbfb…bfc 0x30 0xbfc…bfd 0x8f 0xbfd…c0c »// ELSE TO-DISK« 0xc0c…c0d 0x41 0xc0d…c0e 0x86 0xc0e…c14 »// END« 0xc14…c15 0x4a 0xc15…c16 0x00 0xc16…c20 c7 d6 e3 d6 40 d5 d6 e3 c8 c5 ┆GOTO NOTHE┆ 0xc20…c40 d3 d7 2f a9 61 61 40 c1 d3 d3 d6 c3 c1 e3 c5 40 e4 d5 c9 e3 60 c9 f1 6b c1 e4 e3 d6 60 e8 c5 e2 ┆LP z// ALLOCATE UNIT-I1,AUTO-YES┆ 0xc40…c60 6b c3 d6 d5 e3 c9 d5 e4 c5 60 e8 c5 e2 27 ab 61 61 40 c9 c6 c6 40 6f f2 6f 61 c1 d3 d3 40 d3 d6 ┆,CONTINUE-YES ¿// IFF ?2?/ALL LO┆ 0xc60…c80 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f2 f0 f1 6b c2 d3 c1 d5 d2 60 f1 f0 f0 6b 4e 25 03 b1 c4 c1 e3 ┆CAL OFFSET-201,BLANK-100,+ £DAT┆ 0xc80…ca0 c1 60 7d 6f f3 6f 6b 6f f4 6f 6b 6f f5 6f 6b 6f f6 6f 6b 6f f7 6f 6b 6f f8 6f 6b 6f f9 6f 6b 6f ┆A-'?3?,?4?,?5?,?6?,?7?,?8?,?9?,?┆ 0xca0…cc0 f1 f0 6f 6b 6f f1 f1 6f 6b 6f f1 f2 6f 7d 1c a4 61 61 40 c5 d3 e2 c5 40 d3 d6 c3 c1 d3 40 d6 c6 ┆10?,?11?,?12?' u// ELSE LOCAL OF┆ 0xcc0…ce0 c6 e2 c5 e3 60 f2 f0 f1 6b c2 d3 c1 d5 d2 60 f1 f0 f0 6b 4e 2c 03 b2 c4 c1 e3 c1 60 7d 6f f4 6f ┆FSET-201,BLANK-100,+ ¥DATA-'?4?┆ 0xce0…d00 6b 6f f5 6f 6b 6f f6 6f 6b 6f f7 6f 6b 6f f8 6f 6b 6f f9 6f 6b 6f f1 f0 6f 6b 6f f1 f1 6f 6b 6f ┆,?5?,?6?,?7?,?8?,?9?,?10?,?11?,?┆