|
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: »RVAA «
└─⟦27db88c4d⟧ Bits:30009807 AS/ENTRY - S/36 SYST SUPP PROG SYST SUPP PGM 5363 DA Z250-0323-0 Refer to Memo 033109 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 011 of 011
└─⟦5f03407d3⟧
└─⟦this⟧ ».RVAA «
* THIS IS THE UNIVERSAL OLPD PROC FOR FILE CHANGE. // LOCAL AREA-USER * SPECIFY USER LDA. // IF DATAF1-?L'157,8'? IF DATAF1-?L'165,8'? IF DATAF1-?L'173,8'? GOTO BYSTAR // IF ?L'149,1'?/T GOTO LOADT * TAPE PD REQUESTED. // IF ?L'149,1'?/C GOTO LOADC * COMM PD REQUESTED. // IF ?L'149,1'?/L GOTO LOADL * LAN PD REQUESTED. // IF ?L'149,1'?/D GOTO LOADD * DISK PD REQUESTED. // GOTO ERROR * INVALID REQUEST. * // TAG LOADC * LOAD COMM PD. // LOAD $CNKAN,#LIBRARY * CHECK IF SYSTEM IS KANJI. // RUN // LOCAL AREA-SYSTEM * CHECK FOR KANJI // IF ?L'230,1'?=1 EVALUATE P4=12 * KANJI-P? // ELSE IF ?L'67,1'?=1 EVALUATE P4=15 * KANJI? // ELSE EVALUATE P4=11 * STANDARD? // LOCAL AREA-USER * SPECIFY USER LDA. // TAG PROMPTC #ERR 2179,03,SYS,'?4?' * PROMPT OLPD DISKETTE // IF DATAI1-PD3.COM2 IF VOLID-PPOLPD GOTO HEREC * CHECK FOR CORRECT DISKETTE // IF DATAI1-PD3.COM2 IF VOLID-BKOLPD GOTO LOADCM * CHECK FOR BACKUP DISKETTE #ERR 8516,13,SYS * PROMPT WRONG DISKETTE. // GOTO PROMPTC // TAG HEREC * LOAD FROM SSP DISKETTE BCPDILOD // GOTO BYSTAR * GO TO FILES LOADED // TAG LOADCM * LOAD FROM BACKUP DISKETTE // LOADCM // GOTO BYSTAR * // TAG LOADT * LOAD TAPE PD // IFF PROC-'TPPDILOD,#LIBRARY' GOTO NOSSP * TEST FOR FEATURE SSP #ERR 2178,03,SYS * PROMPT TAPE SUPPORT DISKETTE // IF DATAI1-PD2.TAPE IF VOLID-PPTAPE GOTO HERET * CHECK FOR CORRECT DISKETTE // IF DATAI1-PD2.TAP2 IF VOLID-BKOLPD GOTO LOADTP * CHECK FOR BACKUP DISKETTE #ERR 8516,13,SYS * PROMPT WRONG DISKETTE. // GOTO LOADT // TAG HERET * LOAD FROM SSP FEA. DSKT. TPPDILOD // GOTO BYSTAR * GO TO PD LOADED // TAG LOADTP * LOAD FROM BACKUP DISKETTE // LOADTP // GOTO BYSTAR * // TAG LOADL * LOAD LAN PD // IFF PROC-'LNPDILOD,#LIBRARY' GOTO NOSSP * TEST FOR FEATURE SSP #ERR 9200,03,SYS * PROMPT LAN SUPPORT DISKETTE // IF DATAI1-PD4.LAN2 IF VOLID-PPLAN GOTO HEREL * CHECK FOR CORRECT DISKETTE // IF DATAI1-PD4.LAN2 IF VOLID-BKOLPD GOTO LOADLN * CHECK FOR BACKUP DISKETTE #ERR 8516,13,SYS * PROMPT WRONG DISKETTE. // GOTO LOADL // TAG HEREL * LOAD FROM SSP FEA. DSKT. LNPDILOD // GOTO BYSTAR * GO TO PD LOADED // TAG LOADLN * LOAD FROM BACKUP DISKETTE // LOADLN // GOTO BYSTAR * // TAG LOADD * LOAD DISK PD // IFF PROC-'DNLPILOD,#LIBRARY' GOTO NOSSP * TEST FOR FEATURE SSP #ERR 9201,03,SYS * PROMPT DISK SUPPORT DISKETTE // IF DATAI1-PD5.DIS2 IF VOLID-PPDIS GOTO HERED * CHECK FOR CORRECT DISKETTE // IF DATAI1-PD5.DIS2 IF VOLID-BKOLPD GOTO LOADDS * CHECK FOR BACKUP DISKETTE #ERR 8516,13,SYS * PROMPT WRONG DISKETTE. // GOTO LOADD // TAG HERED * LOAD FROM SSP FEA. DSKT. DNLPILOD // GOTO BYSTAR * GO TO PD LOADED // TAG LOADDS * LOAD FROM BACKUP DISKETTE // LOADDS // GOTO BYSTAR * // TAG NOSSP * NO FEATURE SSP FOR DEVICE #ERR 9202,3,SYS * POST FEAT. SSP MSG * // TAG ERROR // * '*** ERROR, THIS PROCEDURE, "RVAA" HAS AN INVALID LDA VALUE OF ?L'149,8'? ***' // PAUSE // CANCEL * // TAG BYSTAR * PD LOADED, DEFINE PD FILES. // LOCAL OFFSET-43,DATA-'?L'165,8'?' * SPECIFY PD FILE NAMES. // LOCAL OFFSET-62,DATA-'?L'157,8'?' // LOCAL OFFSET-70,DATA-'?L'173,8'?' // RESET PSP * RESTART PD SCREEN DRIVER.
0x000…001 0xb2 0x001…033 »* THIS IS THE UNIVERSAL OLPD PROC FOR FILE CHANGE.« 0x033…034 0x46 0x034…035 0x92 0x035…047 »// LOCAL AREA-USER« 0x047…048 0x1f 0x048…049 0x93 0x049…05c »* SPECIFY USER LDA.« 0x05c…05d 0x34 0x05d…05e 0xcd 0x05e…0ab »// IF DATAF1-?L'157,8'? IF DATAF1-?L'165,8'? IF DATAF1-?L'173,8'? GOTO BYSTAR« 0x0ab…0ac 0x2b 0x0ac…0ad 0x9d 0x0ad…0ca »// IF ?L'149,1'?/T GOTO LOADT« 0x0ca…0cb 0x14 0x0cb…0cc 0x94 0x0cc…0e0 »* TAPE PD REQUESTED.« 0x0e0…0e1 0x33 0x0e1…0e2 0x9d 0x0e2…0ff »// IF ?L'149,1'?/C GOTO LOADC« 0x0ff…100 0x14 0x100…101 0x94 0x101…115 »* COMM PD REQUESTED.« 0x115…116 0x33 0x116…117 0x9d 0x117…134 »// IF ?L'149,1'?/L GOTO LOADL« 0x134…135 0x14 0x135…136 0x93 0x136…149 »* LAN PD REQUESTED.« 0x149…14a 0x34 0x14a…14b 0x9d 0x14b…168 »// IF ?L'149,1'?/D GOTO LOADD« 0x168…169 0x14 0x169…16a 0x94 0x16a…17e »* DISK PD REQUESTED.« 0x17e…17f 0x33 0x17f…180 0x8d 0x180…18d »// GOTO ERROR« 0x18d…18e 0x24 0x18e…18f 0x92 0x18f…1a1 »* INVALID REQUEST.« 0x1a1…1a2 0x35 0x1a2…1a3 0x81 0x1a3…1a4 »*« 0x1a4…1a5 0x77 0x1a5…1a6 0x8c 0x1a6…1b2 »// TAG LOADC« 0x1b2…1b3 0x25 0x1b3…1b4 0x8f 0x1b4…1c3 »* LOAD COMM PD.« 0x1c3…1c4 0x38 0x1c4…1c5 0x97 0x1c5…1dc »// LOAD $CNKAN,#LIBRARY« 0x1dc…1dd 0x1a 0x1dd…1de 0x9b 0x1de…1f9 »* CHECK IF SYSTEM IS KANJI.« 0x1f9…1fa 0x2c 0x1fa…1fb 0x86 0x1fb…201 »// RUN« 0x201…202 0x72 0x202…203 0x94 0x203…217 »// LOCAL AREA-SYSTEM« 0x217…218 0x1d 0x218…219 0x91 0x219…22a »* CHECK FOR KANJI« 0x22a…22b 0x36 0x22b…22c 0xa1 0x22c…24d »// IF ?L'230,1'?=1 EVALUATE P4=12« 0x24d…24e 0x10 0x24e…24f 0x8a 0x24f…259 »* KANJI-P?« 0x259…25a 0x3d 0x25a…25b 0xa5 0x25b…280 »// ELSE IF ?L'67,1'?=1 EVALUATE P4=15« 0x280…281 0x0c 0x281…282 0x88 0x282…28a »* KANJI?« 0x28a…28b 0x3f 0x28b…28c 0x96 0x28c…2a2 »// ELSE EVALUATE P4=11« 0x2a2…2a3 0x1b 0x2a3…2a4 0x8b 0x2a4…2af »* STANDARD?« 0x2af…2b0 0x3c 0x2b0…2b1 0x92 0x2b1…2c3 »// LOCAL AREA-USER« 0x2c3…2c4 0x1f 0x2c4…2c5 0x93 0x2c5…2d8 »* SPECIFY USER LDA.« 0x2d8…2d9 0x34 0x2d9…2da 0x8e 0x2da…2e8 »// TAG PROMPTC« 0x2e8…2e9 0x6a 0x2e9…2ea 0x96 0x2ea…300 »#ERR 2179,03,SYS,'?4?'« 0x300…301 0x1b 0x301…302 0x96 0x302…318 »* PROMPT OLPD DISKETTE« 0x318…319 0x31 0x319…31a 0xb0 0x31a…34a »// IF DATAI1-PD3.COM2 IF VOLID-PPOLPD GOTO HEREC« 0x34a…34b 0x03 0x34b…34c 0x9c 0x34c…368 »* CHECK FOR CORRECT DISKETTE« 0x368…369 0x29 0x369…36a 0xb1 0x36a…39b »// IF DATAI1-PD3.COM2 IF VOLID-BKOLPD GOTO LOADCM« 0x39b…39c 0x03 0x39c…39d 0x9b 0x39d…3b8 »* CHECK FOR BACKUP DISKETTE« 0x3b8…3b9 0x29 0x3b9…3ba 0x90 0x3ba…3ca »#ERR 8516,13,SYS« 0x3ca…3cb 0x21 0x3cb…3cc 0x98 0x3cc…3e4 »* PROMPT WRONG DISKETTE.« 0x3e4…3e5 0x2f 0x3e5…3e6 0x8f 0x3e6…3f5 »// GOTO PROMPTC« 0x3f5…3f6 0x69 0x3f6…3f7 0x8c 0x3f7…403 »// TAG HEREC« 0x403…404 0x25 0x404…405 0x98 0x405…41d »* LOAD FROM SSP DISKETTE« 0x41d…41e 0x2f 0x41e…41f 0x88 0x41f…427 »BCPDILOD« 0x427…428 0x70 0x428…429 0x8e 0x429…437 »// GOTO BYSTAR« 0x437…438 0x23 0x438…439 0x94 0x439…44d »* GO TO FILES LOADED« 0x44d…44e 0x33 0x44e…44f 0x8d 0x44f…45c »// TAG LOADCM« 0x45c…45d 0x24 0x45d…45e 0x9b 0x45e…479 »* LOAD FROM BACKUP DISKETTE« 0x479…47a 0x2c 0x47a…47b 0x89 0x47b…484 »// LOADCM« 0x484…485 0x6f 0x485…486 0x8e 0x486…494 »// GOTO BYSTAR« 0x494…495 0x6a 0x495…496 0x81 0x496…497 »*« 0x497…498 0x77 0x498…499 0x8c 0x499…4a5 »// TAG LOADT« 0x4a5…4a6 0x25 0x4a6…4a7 0x8e 0x4a7…4b5 »* LOAD TAPE PD« 0x4b5…4b6 0x39 0x4b6…4b7 0xaa 0x4b7…4e1 »// IFF PROC-'TPPDILOD,#LIBRARY' GOTO NOSSP« 0x4e1…4e2 0x07 0x4e2…4e3 0x96 0x4e3…4f9 »* TEST FOR FEATURE SSP« 0x4f9…4fa 0x31 0x4fa…4fb 0x90 0x4fb…50b »#ERR 2178,03,SYS« 0x50b…50c 0x21 0x50c…50d 0x9e 0x50d…52b »* PROMPT TAPE SUPPORT DISKETTE« 0x52b…52c 0x29 0x52c…52d 0xb0 0x52d…55d »// IF DATAI1-PD2.TAPE IF VOLID-PPTAPE GOTO HERET« 0x55d…55e 0x03 0x55e…55f 0x9c 0x55f…57b »* CHECK FOR CORRECT DISKETTE« 0x57b…57c 0x29 0x57c…57d 0xb1 0x57d…5ae »// IF DATAI1-PD2.TAP2 IF VOLID-BKOLPD GOTO LOADTP« 0x5ae…5af 0x03 0x5af…5b0 0x9b 0x5b0…5cb »* CHECK FOR BACKUP DISKETTE« 0x5cb…5cc 0x29 0x5cc…5cd 0x90 0x5cd…5dd »#ERR 8516,13,SYS« 0x5dd…5de 0x21 0x5de…5df 0x98 0x5df…5f7 »* PROMPT WRONG DISKETTE.« 0x5f7…5f8 0x2f 0x5f8…5f9 0x8d 0x5f9…606 »// GOTO LOADT« 0x606…607 0x6b 0x607…608 0x8c 0x608…614 »// TAG HERET« 0x614…615 0x25 0x615…616 0x9a 0x616…630 »* LOAD FROM SSP FEA. DSKT.« 0x630…631 0x2d 0x631…632 0x88 0x632…63a »TPPDILOD« 0x63a…63b 0x70 0x63b…63c 0x8e 0x63c…64a »// GOTO BYSTAR« 0x64a…64b 0x23 0x64b…64c 0x91 0x64c…65d »* GO TO PD LOADED« 0x65d…65e 0x36 0x65e…65f 0x8d 0x65f…66c »// TAG LOADTP« 0x66c…66d 0x24 0x66d…66e 0x9b 0x66e…689 »* LOAD FROM BACKUP DISKETTE« 0x689…68a 0x2c 0x68a…68b 0x89 0x68b…694 »// LOADTP« 0x694…695 0x6f 0x695…696 0x8e 0x696…6a4 »// GOTO BYSTAR« 0x6a4…6a5 0x6a 0x6a5…6a6 0x81 0x6a6…6a7 »*« 0x6a7…6a8 0x77 0x6a8…6a9 0x8c 0x6a9…6b5 »// TAG LOADL« 0x6b5…6b6 0x25 0x6b6…6b7 0x8d 0x6b7…6c4 »* LOAD LAN PD« 0x6c4…6c5 0x3a 0x6c5…6c6 0xaa 0x6c6…6f0 »// IFF PROC-'LNPDILOD,#LIBRARY' GOTO NOSSP« 0x6f0…6f1 0x07 0x6f1…6f2 0x96 0x6f2…708 »* TEST FOR FEATURE SSP« 0x708…709 0x31 0x709…70a 0x90 0x70a…71a »#ERR 9200,03,SYS« 0x71a…71b 0x21 0x71b…71c 0x9d 0x71c…739 »* PROMPT LAN SUPPORT DISKETTE« 0x739…73a 0x2a 0x73a…73b 0xaf 0x73b…76a »// IF DATAI1-PD4.LAN2 IF VOLID-PPLAN GOTO HEREL« 0x76a…76b 0x03 0x76b…76c 0x9c 0x76c…788 »* CHECK FOR CORRECT DISKETTE« 0x788…789 0x2a 0x789…78a 0xb1 0x78a…7bb »// IF DATAI1-PD4.LAN2 IF VOLID-BKOLPD GOTO LOADLN« 0x7bb…7bc 0x03 0x7bc…7bd 0x9b 0x7bd…7d8 »* CHECK FOR BACKUP DISKETTE« 0x7d8…7d9 0x29 0x7d9…7da 0x90 0x7da…7ea »#ERR 8516,13,SYS« 0x7ea…7eb 0x21 0x7eb…7ec 0x98 0x7ec…804 »* PROMPT WRONG DISKETTE.« 0x804…805 0x2f 0x805…806 0x8d 0x806…813 »// GOTO LOADL« 0x813…814 0x6b 0x814…815 0x8c 0x815…821 »// TAG HEREL« 0x821…822 0x25 0x822…823 0x9a 0x823…83d »* LOAD FROM SSP FEA. DSKT.« 0x83d…83e 0x2d 0x83e…83f 0x88 0x83f…847 »LNPDILOD« 0x847…848 0x70 0x848…849 0x8e 0x849…857 »// GOTO BYSTAR« 0x857…858 0x23 0x858…859 0x91 0x859…86a »* GO TO PD LOADED« 0x86a…86b 0x36 0x86b…86c 0x8d 0x86c…879 »// TAG LOADLN« 0x879…87a 0x24 0x87a…87b 0x9b 0x87b…896 »* LOAD FROM BACKUP DISKETTE« 0x896…897 0x2c 0x897…898 0x89 0x898…8a1 »// LOADLN« 0x8a1…8a2 0x6f 0x8a2…8a3 0x8e 0x8a3…8b1 »// GOTO BYSTAR« 0x8b1…8b2 0x6a 0x8b2…8b3 0x81 0x8b3…8b4 »*« 0x8b4…8b5 0x77 0x8b5…8b6 0x8c 0x8b6…8c2 »// TAG LOADD« 0x8c2…8c3 0x25 0x8c3…8c4 0x8e 0x8c4…8d2 »* LOAD DISK PD« 0x8d2…8d3 0x39 0x8d3…8d4 0xaa 0x8d4…8fe »// IFF PROC-'DNLPILOD,#LIBRARY' GOTO NOSSP« 0x8fe…8ff 0x07 0x8ff…900 0x96 0x900…916 »* TEST FOR FEATURE SSP« 0x916…917 0x31 0x917…918 0x90 0x918…928 »#ERR 9201,03,SYS« 0x928…929 0x21 0x929…92a 0x9e 0x92a…948 »* PROMPT DISK SUPPORT DISKETTE« 0x948…949 0x29 0x949…94a 0xaf 0x94a…979 »// IF DATAI1-PD5.DIS2 IF VOLID-PPDIS GOTO HERED« 0x979…97a 0x03 0x97a…97b 0x9c 0x97b…997 »* CHECK FOR CORRECT DISKETTE« 0x997…998 0x2a 0x998…999 0xb1 0x999…9ca »// IF DATAI1-PD5.DIS2 IF VOLID-BKOLPD GOTO LOADDS« 0x9ca…9cb 0x03 0x9cb…9cc 0x9b 0x9cc…9e7 »* CHECK FOR BACKUP DISKETTE« 0x9e7…9e8 0x29 0x9e8…9e9 0x90 0x9e9…9f9 »#ERR 8516,13,SYS« 0x9f9…9fa 0x21 0x9fa…9fb 0x98 0x9fb…a13 »* PROMPT WRONG DISKETTE.« 0xa13…a14 0x2f 0xa14…a15 0x8d 0xa15…a22 »// GOTO LOADD« 0xa22…a23 0x6b 0xa23…a24 0x8c 0xa24…a30 »// TAG HERED« 0xa30…a31 0x25 0xa31…a32 0x9a 0xa32…a4c »* LOAD FROM SSP FEA. DSKT.« 0xa4c…a4d 0x2d 0xa4d…a4e 0x88 0xa4e…a56 »DNLPILOD« 0xa56…a57 0x70 0xa57…a58 0x8e 0xa58…a66 »// GOTO BYSTAR« 0xa66…a67 0x23 0xa67…a68 0x91 0xa68…a79 »* GO TO PD LOADED« 0xa79…a7a 0x36 0xa7a…a7b 0x8d 0xa7b…a88 »// TAG LOADDS« 0xa88…a89 0x24 0xa89…a8a 0x9b 0xa8a…aa5 »* LOAD FROM BACKUP DISKETTE« 0xaa5…aa6 0x2c 0xaa6…aa7 0x89 0xaa7…ab0 »// LOADDS« 0xab0…ab1 0x6f 0xab1…ab2 0x8e 0xab2…ac0 »// GOTO BYSTAR« 0xac0…ac1 0x6a 0xac1…ac2 0x81 0xac2…ac3 »*« 0xac3…ac4 0x77 0xac4…ac5 0x8c 0xac5…ad1 »// TAG NOSSP« 0xad1…ad2 0x25 0xad2…ad3 0x9b 0xad3…aee »* NO FEATURE SSP FOR DEVICE« 0xaee…aef 0x2c 0xaef…af0 0x8f 0xaf0…aff »#ERR 9202,3,SYS« 0xaff…b00 0x22 0xb00…b01 0x94 0xb01…b15 »* POST FEAT. SSP MSG« 0xb15…b16 0x33 0xb16…b17 0x81 0xb17…b18 »*« 0xb18…b19 0x77 0xb19…b1a 0x8c 0xb1a…b26 »// TAG ERROR« 0xb26…b27 0x6c 0xb27…b28 0xd3 0xb28…b7b »// * '*** ERROR, THIS PROCEDURE, "RVAA" HAS AN INVALID LDA VALUE OF ?L'149,8'? ***'« 0xb7b…b7c 0x25 0xb7c…b7d 0x88 0xb7d…b85 »// PAUSE« 0xb85…b86 0x70 0xb86…b87 0x89 0xb87…b90 »// CANCEL« 0xb90…b91 0x6f 0xb91…b92 0x81 0xb92…b93 »*« 0xb93…b94 0x77 0xb94…b95 0x8d 0xb95…ba2 »// TAG BYSTAR« 0xba2…ba3 0x24 0xba3…ba4 0x9d 0xba4…bc1 »* PD LOADED, DEFINE PD FILES.« 0xbc1…bc2 0x2a 0xbc2…bc3 0xa4 0xbc3…be7 »// LOCAL OFFSET-43,DATA-'?L'165,8'?'« 0xbe7…be8 0x0d 0xbe8…be9 0x98 0xbe9…c01 »* SPECIFY PD FILE NAMES.« 0xc01…c02 0x2f 0xc02…c03 0xa4 0xc03…c27 »// LOCAL OFFSET-62,DATA-'?L'157,8'?'« 0xc27…c28 0x54 0xc28…c29 0xa4 0xc29…c4d »// LOCAL OFFSET-70,DATA-'?L'173,8'?'« 0xc4d…c4e 0x54 0xc4e…c4f 0x8c 0xc4f…c5b »// RESET PSP« 0xc5b…c5c 0x25 0xc5c…c5d 0x9b 0xc5d…c78 »* RESTART PD SCREEN DRIVER.« 0xc78…c79 0x2c 0xc79…c7a 0x00 0xc7a…c80 c1 e3 c1 c6 f1 60 ┆ATAF1-┆ 0xc80…ca0 6f d3 7d f1 f6 f5 6b f8 7d 6f 40 c9 c6 40 c4 c1 e3 c1 c6 f1 60 6f d3 7d f1 f7 f3 6b f8 7d 6f 40 ┆?L'165,8'? IF DATAF1-?L'173,8'? ┆ 0xca0…cc0 c7 d6 e3 d6 40 c2 e8 e2 e3 c1 d9 2b 9d 61 61 40 c9 c6 40 6f d3 7d f1 f4 f9 6b f1 7d 6f 61 e3 40 ┆GOTO BYSTAR ¸// IF ?L'149,1'?/T ┆ 0xcc0…ce0 c7 d6 e3 d6 40 d3 d6 c1 c4 e3 14 94 5c 40 e3 c1 d7 c5 40 d7 c4 40 d9 c5 d8 e4 c5 e2 e3 c5 c4 4b ┆GOTO LOADT m* TAPE PD REQUESTED.┆ 0xce0…d00 33 9d 61 61 40 c9 c6 40 6f d3 7d f1 f4 f9 6b f1 7d 6f 61 c3 40 c7 d6 e3 d6 40 d3 d6 c1 c4 c3 14 ┆ ¸// IF ?L'149,1'?/C GOTO LOADC ┆