|
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: 8960 (0x2300)
Notes: MEMBER_P, Member_Text
Names: »COBOLONL«
└─⟦c8ae05145⟧ Bits:30009820 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 5 Created 19950301 Level 01 Seq 001 of 011
└─⟦ac51fb3f2⟧
└─⟦this⟧ ».COBOLONL«
* * THE COBOL ONLINE DEVELOPMENT PROCEDURE FOR S/36 * // LOCAL AREA-SYSTEM LOCAL AREA=SYSTEM LDA // MEMBER USER1-#CB#M1,LIBRARY-#COBLIB MESSAGE MEMBERS // IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ // MSG ?WS?,?M'2000,1,75'? CANT EVOKE OR JOBQ THIS PROC // RETURN // TAG NJOBQ // IFF PROC-DSU IFF PROC-SEU #ERR 2021,3,CBL // IFF '?L'1,2'?'/CO GOTO SETLCL IF COBOLP PRIOR, USE LDA // IFF '?L'3,2'?'/BO GOTO SETLCL IF COBOLP PRIOR, USE LDA // IFF '?L'5,2'?'/LP GOTO SETLCL IF COBOLP PRIOR, USE LDA // LOCAL OFFSET-8,DATA-'O',BLANK-1,AREA-SYSTEM // GOTO RETPARMS // TAG SETLCL * NOW SET UP THE LDA WITH DEFAULTS // LOCAL OFFSET-1,DATA-'COBOLP O004000NONEP',BLANK-*ALL,AREA-SYSTEM // LOCAL OFFSET-419,DATA-'?CLIB?',AREA-SYSTEM DEFAULT INPUT LIB // TAG RETPARMS * SOURCE NAME SOURCE LIB OUTPUT LIB VIEWSOURCE CRT-PRINT // EVALUATE P1=?L'435,8'? P2=?L'419,8'? P3=?L'427,8'? P5='N' * WORKBLOCKS SOURCE DEBUG MAP XREF // EVALUATE P6=?L'9,4'? // EVALUATE P4=?L'443,8'? * OFFSET COPYLIB SUBLIB NEP // EVALUATE P15=?L'15,5'? * MRT // EVALUATE P16=?L'13,2'? // LOCAL OFFSET-20,DATA-'DSM NOJOBQCRT ',AREA-SYSTEM // LOCAL OFFSET-96,DATA-'N#SE@XTRA',AREA-SYSTEM * PROBLEM OF SAVING INPUT LIB NAME FIXED // LOCAL OFFSET-411,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM SAVE THE CUR // TAG SCREEN1A // EVALUATE P7='' // TAG SCREEN1 // PROMPT FORMAT-COBONL,LIBRARY-#COBLIB,LENGTH-'8,8,8,8,1,4,56', // IF DSPLY-IGC MEMBER-#CB$FMT // ELSE MEMBER-#CB@FMT // EVALUATE P22='' P23='' P24='' P25='' P26='' P27='' // IF ?CD?/2007 RETURN CHECK FOR END-OF-JOB // IF ?CD?/2003 RETURN // TAG CHKPARMS // IF /?2? GOTO SCREEN1 ?7F'4002'? ?23F'C'? INPUT LIB NOT GIVEN // IFF DATAF1-?2? GOTO SCREEN1 ?7F'4002'? ?23F'C'? INPUT LIB NOT FOUND // IF /?1? GOTO SCREEN1 ?7F'4001'? ?22F'C'? NO SOURCE MEMBER // IF SOURCE-'?1?,?2?' GOTO P08K // TAG P07E * SOURCE MEMBER DOESN'T EXIST. CREATE NEW MEMBER IF THEY WISH TO EDIT * PRIOR TO COMPILE ELSE GENERATE AN ERROR // IFF ?5?/Y GOTO SCREEN1 ?7F'4001'? ?22F'C'? DOESN'T WANT TO SEU // TAG P08K // IF /?3? GOTO P12K OUTLIB BLANK // IFF DATAF1-?3? GOTO SCREEN1 ?7F'4003'? ?24F'C'? OUTLIB NOT FOUND // TAG P12K // IFF ?3?/ LOCAL OFFSET-427,DATA-'?3?',BLANK-8,AREA-SYSTEM // ELSE LOCAL OFFSET-427,DATA-' ',AREA-SYSTEM // LOCAL OFFSET-443,DATA-'?4?',AREA-SYSTEM // IF /?4? GOTO P14K // EVALUATE P51,4=?CD? // LOAD #RPDD // RUN // EVALUATE CD=?51? // IF '?L'451,1'?'/'1' GOTO SCREEN1 ?7F'4026'? ?25F'C'? // TAG P14K // IFF ?5?/Y IFF ?5?/N GOTO SCREEN1 ?7F'4004'? ?26F'C'? // IFF ?6?>0 GOTO SCREEN1 ?7F'4006'? ?27F'C'? // IF ?CD?/2003 RETURN // IFF ?CD?/2014 GOTO PUTPARMS CHECK FOR MORE COMPILE OPTIONS // TAG SCREEN2C // EVALUATE P21='' // TAG SCREEN2 // EVALUATE P20='COBOLONL ?1?,?2?,?3?,?4?,?5?,?6?' // TAG SCREEN2A // PROMPT FORMAT-COBONL2,START-8,LIBRARY-#COBLIB,+ LENGTH-'8,7,5,6,8,8,8,5,2,6,5,8,72,56', // IF DSPLY-IGC MEMBER-#CB$FMT // ELSE MEMBER-#CB@FMT // EVALUATE P37='' P38='' P39='' P40='' P41='' P42='' P43='' + P44='' P45='' P48='' P49='' P50='' // IF ?CD?/2007 RETURN CHECK FOR END-OF-JOB // IF ?CD?/2003 RETURN * THIS BLOCK CHECKS PARMS 6-15 FOR INVALID ENTRIES. IF FOUND, THE * APPROPRIATE MIC NUMBER IS INSERTED AND THE SCREEN REDISPLAYED. // LOCAL OFFSET-97,DATA-'#SE@XTRA',AREA-SYSTEM // IFF /?8? IFF ?8?/SOURCE IFF ?8?/NOSOURCE + GOTO SCREEN2A ?21F'4007'? ?37F'C'? // IFF /?9? IFF ?9?/DEBUG IFF ?9?/NODEBUG + GOTO SCREEN2A ?21F'4008'? ?38F'C'? // IFF /?10? IFF ?10?/MAP IFF ?10?/NOMAP + GOTO SCREEN2A ?21F'4009'? ?39F'C'? // IFF /?11? IFF ?11?/NOXREF IFF ?11?/XREF + GOTO SCREEN2A ?21F'4010'? ?40F'C'? // IFF /?12? IFF ?12?/OFFSET IFF ?12?/NOOFFSET + GOTO SCREEN2A ?21F'4011'? ?41F'C'? // IFF /?13? IFF DATAF1-?13? GOTO SCREEN2A ?21F'4012'? ?42F'C'? // IFF /?14? IFF DATAF1-?14? GOTO SCREEN2A ?21F'4013'? ?43F'C'? // IFF /?15? IFF ?15?/NEP IFF ?15?/NONEP + GOTO SCREEN2A ?21F'4014'? ?44F'C'? // IFF ?16?>-1 GOTO SCREEN2A ?21F'4015'? ?45F'C'? // IFF /?17? IFF LINK/?17? IFF NOLINK/?17? + GOTO SCREEN2A ?21F'4023'? ?48F'C'? // IFF /?18? IFF MRO/?18? IFF NOMRO/?18? + GOTO SCREEN2A ?21F'4022'? ?49F'C'? // IF ?17?/NOLINK IF ?18?/MRO + GOTO SCREEN2A ?21F'4024'? ?48F'C'? // IFF /?19? IFF OBJECT/?19? IFF NOOBJECT/?19? + GOTO SCREEN2A ?21F'4019'? ?50F'C'? // IF ?CD?/2002 GOTO SCREEN1A CHECK FOR PAGE BACK * THIS BLOCK STORES THE PARAMETERS IN THE PROPER AREAS OF THE LDA // TAG PUTPARMS // LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-96,DATA-'?5?',AREA-SYSTEM // LOCAL OFFSET-9,DATA-'?6?',BLANK-4,AREA-SYSTEM // LOCAL OFFSET-38,DATA-'?8?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-67,DATA-'?9?',BLANK-7,AREA-SYSTEM // LOCAL OFFSET-46,DATA-'?10?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-74,DATA-'?11?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-51,DATA-'?12?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-88,DATA-'?13?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-59,DATA-'?14?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-13,DATA-'?16?',AREA-SYSTEM,BLANK-2 // LOCAL OFFSET-15,DATA-'?15?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-116,DATA-'?17?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-111,DATA-'?18?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-80,DATA-'?19?',BLANK-8,AREA-SYSTEM // TAG COMP // IFF ?5?/Y GOTO SKIPSEU // IFF PROC-DSU GOTO SEUDO DSU EDIT,?1?,S,,,?2'?CLIB?'? // EVALUATE P5='N' // IFF SOURCE-'?1?,?2?' GOTO P07E // PRINTER CONTINUE-NO // GOTO SKIPSEU // TAG SEUDO SEU ?1?,S,,,?2'?CLIB?'? // EVALUATE P5='N' BYPASS SEU NEXT PASS // IFF SOURCE-'?1?,?2?' GOTO P07E // TAG SKIPSEU // IF JOBQ-NO IF EVOKED-NO * 2011 IF PROC NOT EVOKED OR RUN FROM * JOBQ, DISPLAY IN PROCESS MSG // LIBRARY NAME-#COBLIB // LOAD #CB00,#COBLIB // FILE NAME-$SOURCE,UNIT-F1,RETAIN-S,DISP-NEW,BLOCKS-?6'40'?,EXTEND-25 // FILE NAME-$WORK,UNIT-F1,RETAIN-S,DISP-NEW,BLOCKS-?6'40'?,EXTEND-25 // FILE NAME-$WORK2,UNIT-F1,BLOCKS-?6'40'?,RETAIN-J,LABEL-?1?,EXTEND-25 // FILE NAME-$WORK3,UNIT-F1,BLOCKS-?6'40'?,RETAIN-S,DISP-NEW,EXTEND-25 // PRINTER NAME-$PRINTDM,CONTINUE-YES,PRIORITY-0 // IF ?CD?/2040 LOCAL OFFSET-106,DATA-Y,AREA-SYSTEM // MEMBER PROGRAM1-#CB#M1,PROGRAM2-#CB#M2,LIBRARY-#COBLIB // COMPILE INLIB-?2'?CLIB?'?,OUTLIB-?3'?2?'?,MRTMAX-?16'00'?,SOURCE-?1?, // IFF ?4?/ DATADCT-?4?, // IF ?18?/MRO MRO-YES, // IF ?L'15,3'?/NEP NEP-YES // ELSE NEP-NO // RUN // LOCAL OFFSET-107,DATA-'?CD?',AREA-SYSTEM STORE FOR LATER USE @@TAK // EVALUATE P3=?L'427,8'? RESTORE OUTLIB TO WHAT WAS ENTERED // LIBRARY NAME-?L'411,8'? // EVALUATE P35=?L'31,8'? SAVE COMPILER PRINT OPTION // IF ?L'105,1'?/ GOTO SKIPMNT IF DSM IS NOT GOOD,SKIP SOURCE VIEW // IFF PROC-DSU GOTO SEUDO2 // PRINTER CONTINUE-NO DSU EDIT,?1?,S,,,?2'?3?'?,?1? // GOTO SKIPMNT // TAG SEUDO2 SEU ?1?,S,,,?2'?3?'?,?1? // TAG SKIPMNT // LOCAL OFFSET-105,DATA-' ',AREA-SYSTEM RESET TO NO DSM // PRINTER CONTINUE-NO // EVALUATE P20='N' P21='Y' P22='' // TAG SCREEN3 // PROMPT FORMAT-COBONL3,START-20,LIBRARY-#COBLIB,LENGTH-'1,1,56', // IF DSPLY-IGC MEMBER-#CB$FMT // ELSE MEMBER-#CB@FMT // MEMBER USER1-#CB#M1,USER2-#CB#M2,PROGRAM1-#CB#M1,PROGRAM2-#CB#M2,+ LIBRARY-#COBLIB // EVALUATE P46='' P47='' // IF ?CD?/2007 LOCAL OFFSET-178,DATA-'1',AREA-SYSTEM // ELSE IF ?CD?/2014 LOCAL OFFSET-178,DATA-'2',AREA-SYSTEM // ELSE LOCAL OFFSET-178,DATA-'0',AREA-SYSTEM // IF ?CD?/2007 GOTO P105K IF CMD7 JUMP AHEAD TO END // IFF ?20?/Y IFF ?20?/N GOTO SCREEN3 ?22F'4016'? ?46F'C'? // IFF ?21?/N IFF ?21?/Y GOTO SCREEN3 ?22F'4017'? ?47F'C'? // TAG P105K // IFF ?35?/CRT GOTO NODELT * SPOOL NOT ACTIVE OR SPOOL FILE NOT CREATED FOR SOME REASON // IF ?20?/Y IFF ?CD?/2007 GOTO NODELT DETERMINE IF WE NEED * TO DELETE THE SPOOL FILE ENTRY. EXECUTE #RPSPD IF IT MUST BE DELETED. // LOCAL OFFSET-187,DATA-'?WS?',AREA-SYSTEM // LOAD #RPSPD // RUN // GOTO ENDPROC // TAG NODELT * * IF CRT SPECIFIED, COPY SPOOL FILE ENTRY TO DISK, * AND THEN DISPLAY THE DISK FILE AT DISPLAY STATION * ************************************************************************ * THE FOLLOWING 4 LINES ARE ADDED FOR PTF 52-545 . THEY REPLACE * * THE CALLS TO $UASF AND $UASC. * ************************************************************************ // INFOMSG NO // IFT DATAF1-CB?L'181,6'? DELETE CB?L'181,6'?,F1 // IFF ?L'181,6'?/ COPYPRT ?L'181,6'?,CB?L'181,6'?,CANCEL,CRT // IF DATAF1-CB?L'181,6'? DELETE CB?L'181,6'?,F1 // LOCAL OFFSET-1,DATA-'?33?',AREA-SYSTEM // LOCAL OFFSET-129,DATA-'?34?',AREA-SYSTEM // TAG ENDPROC // EVALUATE CD=?L'107,4'? // IF ?L'178,1'?/1 RETURN CMD 7 HIT // IF ?L'178,1'?/2 GOTO SCREEN2C CMD 14 HIT // EVALUATE P22='' // IF ?21?/Y IF ?20?/N GOTO COMP PROCEED NO VIEW-JUST COMPILE // IF ?21?/Y IF ?20?/Y GOTO SCREEN1A PROCEED AND VIEW-REPROMPT // RETURN
0x0000…0001 0x81 0x0001…0002 »*« 0x0002…0003 0x4f 0x0003…0004 0x81 0x0004…0005 »*« 0x0005…0006 0x02 0x0006…0007 0xaf 0x0007…0036 »THE COBOL ONLINE DEVELOPMENT PROCEDURE FOR S/36« 0x0036…0037 0x1e 0x0037…0038 0x81 0x0038…0039 »*« 0x0039…003a 0x4f 0x003a…003b 0x94 0x003b…004f »// LOCAL AREA-SYSTEM« 0x004f…0050 0x1d 0x0050…0051 0x95 0x0051…0066 »LOCAL AREA=SYSTEM LDA« 0x0066…0067 0x0a 0x0067…0068 0xa6 0x0068…008e »// MEMBER USER1-#CB#M1,LIBRARY-#COBLIB« 0x008e…008f 0x0b 0x008f…0090 0x8f 0x0090…009f »MESSAGE MEMBERS« 0x009f…00a0 0x10 0x00a0…00a1 0xa5 0x00a1…00c6 »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ« 0x00c6…00c7 0x2b 0x00c7…00c8 0x9a 0x00c8…00e2 »// MSG ?WS?,?M'2000,1,75'?« 0x00e2…00e3 0x0d 0x00e3…00e4 0x92 0x00e4…00f6 »CANT EVOKE OR JOBQ« 0x00f6…00f7 0x02 0x00f7…00f8 0x89 0x00f8…0101 »THIS PROC« 0x0101…0102 0x0c 0x0102…0103 0x89 0x0103…010c »// RETURN« 0x010c…010d 0x47 0x010d…010e 0x8c 0x010e…011a »// TAG NJOBQ« 0x011a…011b 0x44 0x011b…011c 0xac 0x011c…0148 »// IFF PROC-DSU IFF PROC-SEU #ERR 2021,3,CBL« 0x0148…0149 0x24 0x0149…014a 0x94 0x014a…015e »// IFF '?L'1,2'?'/CO« 0x015e…015f 0x02 0x015f…0160 0x84 0x0160…0164 »GOTO« 0x0164…0165 0x02 0x0165…0166 0x86 0x0166…016c »SETLCL« 0x016c…016d 0x06 0x016d…016e 0x98 0x016e…0186 »IF COBOLP PRIOR, USE LDA« 0x0186…0187 0x10 0x0187…0188 0x94 0x0188…019c »// IFF '?L'3,2'?'/BO« 0x019c…019d 0x02 0x019d…019e 0x84 0x019e…01a2 »GOTO« 0x01a2…01a3 0x02 0x01a3…01a4 0x86 0x01a4…01aa »SETLCL« 0x01aa…01ab 0x06 0x01ab…01ac 0x98 0x01ac…01c4 »IF COBOLP PRIOR, USE LDA« 0x01c4…01c5 0x10 0x01c5…01c6 0x94 0x01c6…01da »// IFF '?L'5,2'?'/LP« 0x01da…01db 0x02 0x01db…01dc 0x84 0x01dc…01e0 »GOTO« 0x01e0…01e1 0x02 0x01e1…01e2 0x86 0x01e2…01e8 »SETLCL« 0x01e8…01e9 0x06 0x01e9…01ea 0x98 0x01ea…0202 »IF COBOLP PRIOR, USE LDA« 0x0202…0203 0x10 0x0203…0204 0xae 0x0204…0232 »// LOCAL OFFSET-8,DATA-'O',BLANK-1,AREA-SYSTEM« 0x0232…0233 0x22 0x0233…0234 0x90 0x0234…0244 »// GOTO RETPARMS« 0x0244…0245 0x40 0x0245…0246 0x8d 0x0246…0253 »// TAG SETLCL« 0x0253…0254 0x43 0x0254…0255 0x81 0x0255…0256 »*« 0x0256…0257 0x03 0x0257…0258 0xa0 0x0258…0278 »NOW SET UP THE LDA WITH DEFAULTS« 0x0278…0279 0x2c 0x0279…027a 0xc3 0x027a…02bd »// LOCAL OFFSET-1,DATA-'COBOLP O004000NONEP',BLANK-*ALL,AREA-SYSTEM« 0x02bd…02be 0x0d 0x02be…02bf 0xad 0x02bf…02ec »// LOCAL OFFSET-419,DATA-'?CLIB?',AREA-SYSTEM« 0x02ec…02ed 0x03 0x02ed…02ee 0x91 0x02ee…02ff »DEFAULT INPUT LIB« 0x02ff…0300 0x0f 0x0300…0301 0x8f 0x0301…0310 »// TAG RETPARMS« 0x0310…0311 0x41 0x0311…0312 0x81 0x0312…0313 »*« 0x0313…0314 0x0b 0x0314…0315 0x8b 0x0315…0320 »SOURCE NAME« 0x0320…0321 0x03 0x0321…0322 0x8a 0x0322…032c »SOURCE LIB« 0x032c…032d 0x04 0x032d…032e 0x8a 0x032e…0338 »OUTPUT LIB« 0x0338…0339 0x03 0x0339…033a 0x8a 0x033a…0344 »VIEWSOURCE« 0x0344…0345 0x02 0x0345…0346 0x89 0x0346…034f »CRT-PRINT« 0x034f…0350 0x06 0x0350…0351 0xbc 0x0351…038d »// EVALUATE P1=?L'435,8'? P2=?L'419,8'? P3=?L'427,8'? P5='N'« 0x038d…038e 0x14 0x038e…038f 0x81 0x038f…0390 »*« 0x0390…0391 0x0b 0x0391…0392 0x8a 0x0392…039c »WORKBLOCKS« 0x039c…039d 0x03 0x039d…039e 0x86 0x039e…03a4 »SOURCE« 0x03a4…03a5 0x07 0x03a5…03a6 0x85 0x03a6…03ab »DEBUG« 0x03ab…03ac 0x08 0x03ac…03ad 0x83 0x03ad…03b0 »MAP« 0x03b0…03b1 0x0a 0x03b1…03b2 0x84 0x03b2…03b6 »XREF« 0x03b6…03b7 0x0c 0x03b7…03b8 0x97 0x03b8…03cf »// EVALUATE P6=?L'9,4'?« 0x03cf…03d0 0x39 0x03d0…03d1 0x99 0x03d1…03ea »// EVALUATE P4=?L'443,8'?« 0x03ea…03eb 0x37 0x03eb…03ec 0x81 0x03ec…03ed »*« 0x03ed…03ee 0x0b 0x03ee…03ef 0x86 0x03ef…03f5 »OFFSET« 0x03f5…03f6 0x08 0x03f6…03f7 0x87 0x03f7…03fe »COPYLIB« 0x03fe…03ff 0x07 0x03ff…0400 0x86 0x0400…0406 »SUBLIB« 0x0406…0407 0x08 0x0407…0408 0x83 0x0408…040b »NEP« 0x040b…040c 0x17 0x040c…040d 0x8b 0x040d…0418 »// EVALUATE« 0x0418…0419 0x2b 0x0419…041a 0x8d 0x041a…0427 »P15=?L'15,5'?« 0x0427…0428 0x0d 0x0428…0429 0x81 0x0429…042a »*« 0x042a…042b 0x0b 0x042b…042c 0x83 0x042c…042f »MRT« 0x042f…0430 0x41 0x0430…0431 0x99 0x0431…044a »// EVALUATE P16=?L'13,2'?« 0x044a…044b 0x37 0x044b…044c 0x9c 0x044c…0468 »// LOCAL OFFSET-20,DATA-'DSM« 0x0468…0469 0x02 0x0469…046a 0x89 0x046a…0473 »NOJOBQCRT« 0x0473…0474 0x04 0x0474…0475 0x8d 0x0475…0482 »',AREA-SYSTEM« 0x0482…0483 0x18 0x0483…0484 0xaf 0x0484…04b3 »// LOCAL OFFSET-96,DATA-'N#SE@XTRA',AREA-SYSTEM« 0x04b3…04b4 0x21 0x04b4…04b5 0x81 0x04b5…04b6 »*« 0x04b6…04b7 0x08 0x04b7…04b8 0xa6 0x04b8…04de »PROBLEM OF SAVING INPUT LIB NAME FIXED« 0x04de…04df 0x21 0x04df…04e0 0xb5 0x04e0…0515 »// LOCAL OFFSET-411,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM« 0x0515…0516 0x03 0x0516…0517 0x8c 0x0517…0523 »SAVE THE CUR« 0x0523…0524 0x0c 0x0524…0525 0x8f 0x0525…0534 »// TAG SCREEN1A« 0x0534…0535 0x41 0x0535…0536 0x91 0x0536…0547 »// EVALUATE P7=''« 0x0547…0548 0x3f 0x0548…0549 0x8e 0x0549…0557 »// TAG SCREEN1« 0x0557…0558 0x42 0x0558…0559 0xc0 0x0559…0599 »// PROMPT FORMAT-COBONL,LIBRARY-#COBLIB,LENGTH-'8,8,8,8,1,4,56',« 0x0599…059a 0x10 0x059a…059b 0x9e 0x059b…05b9 »// IF DSPLY-IGC MEMBER-#CB$FMT« 0x05b9…05ba 0x32 0x05ba…05bb 0x96 0x05bb…05d1 »// ELSE MEMBER-#CB@FMT« 0x05d1…05d2 0x3a 0x05d2…05d3 0xb5 0x05d3…0608 »// EVALUATE P22='' P23='' P24='' P25='' P26='' P27=''« 0x0608…0609 0x1b 0x0609…060a 0x96 0x060a…0620 »// IF ?CD?/2007 RETURN« 0x0620…0621 0x1c 0x0621…0622 0x94 0x0622…0636 »CHECK FOR END-OF-JOB« 0x0636…0637 0x0a 0x0637…0638 0x96 0x0638…064e »// IF ?CD?/2003 RETURN« 0x064e…064f 0x3a 0x064f…0650 0x8f 0x0650…065f »// TAG CHKPARMS« 0x065f…0660 0x41 0x0660…0661 0xab 0x0661…068c »// IF /?2? GOTO SCREEN1 ?7F'4002'? ?23F'C'?« 0x068c…068d 0x07 0x068d…068e 0x93 0x068e…06a1 »INPUT LIB NOT GIVEN« 0x06a1…06a2 0x0b 0x06a2…06a3 0xb2 0x06a3…06d5 »// IFF DATAF1-?2? GOTO SCREEN1 ?7F'4002'? ?23F'C'?« 0x06d5…06d6 0x02 0x06d6…06d7 0x93 0x06d7…06ea »INPUT LIB NOT FOUND« 0x06ea…06eb 0x09 0x06eb…06ec 0xab 0x06ec…0717 »// IF /?1? GOTO SCREEN1 ?7F'4001'? ?22F'C'?« 0x0717…0718 0x07 0x0718…0719 0x90 0x0719…0729 »NO SOURCE MEMBER« 0x0729…072a 0x0e 0x072a…072b 0xa0 0x072b…074b »// IF SOURCE-'?1?,?2?' GOTO P08K« 0x074b…074c 0x30 0x074c…074d 0x8b 0x074d…0758 »// TAG P07E« 0x0758…0759 0x45 0x0759…075a 0x81 0x075a…075b »*« 0x075b…075c 0x05 0x075c…075d 0x9c 0x075d…0779 »SOURCE MEMBER DOESN'T EXIST.« 0x0779…077a 0x02 0x077a…077b 0xa6 0x077b…07a1 »CREATE NEW MEMBER IF THEY WISH TO EDIT« 0x07a1…07a2 0x06 0x07a2…07a3 0x81 0x07a3…07a4 »*« 0x07a4…07a5 0x05 0x07a5…07a6 0xa7 0x07a6…07cd »PRIOR TO COMPILE ELSE GENERATE AN ERROR« 0x07cd…07ce 0x23 0x07ce…07cf 0x8c 0x07cf…07db »// IFF ?5?/Y« 0x07db…07dc 0x02 0x07dc…07dd 0xa0 0x07dd…07fd »GOTO SCREEN1 ?7F'4001'? ?22F'C'?« 0x07fd…07fe 0x04 0x07fe…07ff 0x93 0x07ff…0812 »DOESN'T WANT TO SEU« 0x0812…0813 0x0b 0x0813…0814 0x8b 0x0814…081f »// TAG P08K« 0x081f…0820 0x45 0x0820…0821 0x94 0x0821…0835 »// IF /?3? GOTO P12K« 0x0835…0836 0x20 0x0836…0837 0x8c 0x0837…0843 »OUTLIB BLANK« 0x0843…0844 0x10 0x0844…0845 0xb2 0x0845…0877 »// IFF DATAF1-?3? GOTO SCREEN1 ?7F'4003'? ?24F'C'?« 0x0877…0878 0x02 0x0878…0879 0x90 0x0879…0889 »OUTLIB NOT FOUND« 0x0889…088a 0x0c 0x088a…088b 0x8b 0x088b…0896 »// TAG P12K« 0x0896…0897 0x45 0x0897…0898 0xbb 0x0898…08d3 »// IFF ?3?/ LOCAL OFFSET-427,DATA-'?3?',BLANK-8,AREA-SYSTEM« 0x08d3…08d4 0x15 0x08d4…08d5 0x9f 0x08d5…08f4 »// ELSE LOCAL OFFSET-427,DATA-'« 0x08f4…08f5 0x08 0x08f5…08f6 0x8d 0x08f6…0903 »',AREA-SYSTEM« 0x0903…0904 0x1c 0x0904…0905 0xaa 0x0905…092f »// LOCAL OFFSET-443,DATA-'?4?',AREA-SYSTEM« 0x092f…0930 0x26 0x0930…0931 0x94 0x0931…0945 »// IF /?4? GOTO P14K« 0x0945…0946 0x3c 0x0946…0947 0x96 0x0947…095d »// EVALUATE P51,4=?CD?« 0x095d…095e 0x3a 0x095e…095f 0x8d 0x095f…096c »// LOAD #RPDD« 0x096c…096d 0x43 0x096d…096e 0x86 0x096e…0974 »// RUN« 0x0974…0975 0x4a 0x0975…0976 0x93 0x0976…0989 »// EVALUATE CD=?51?« 0x0989…098a 0x3d 0x098a…098b 0xb7 0x098b…09c2 »// IF '?L'451,1'?'/'1' GOTO SCREEN1 ?7F'4026'? ?25F'C'?« 0x09c2…09c3 0x19 0x09c3…09c4 0x8b 0x09c4…09cf »// TAG P14K« 0x09cf…09d0 0x45 0x09d0…09d1 0xb7 0x09d1…0a08 »// IFF ?5?/Y IFF ?5?/N GOTO SCREEN1 ?7F'4004'? ?26F'C'?« 0x0a08…0a09 0x19 0x0a09…0a0a 0xad 0x0a0a…0a37 »// IFF ?6?>0 GOTO SCREEN1 ?7F'4006'? ?27F'C'?« 0x0a37…0a38 0x23 0x0a38…0a39 0x96 0x0a39…0a4f »// IF ?CD?/2003 RETURN« 0x0a4f…0a50 0x3a 0x0a50…0a51 0x9e 0x0a51…0a6f »// IFF ?CD?/2014 GOTO PUTPARMS« 0x0a6f…0a70 0x10 0x0a70…0a71 0x9e 0x0a71…0a8f »CHECK FOR MORE COMPILE OPTIONS« 0x0a8f…0a90 0x04 0x0a90…0a91 0x8f 0x0a91…0aa0 »// TAG SCREEN2C« 0x0aa0…0aa1 0x41 0x0aa1…0aa2 0x92 0x0aa2…0ab4 »// EVALUATE P21=''« 0x0ab4…0ab5 0x3e 0x0ab5…0ab6 0x8e 0x0ab6…0ac4 »// TAG SCREEN2« 0x0ac4…0ac5 0x42 0x0ac5…0ac6 0xb2 0x0ac6…0af8 »// EVALUATE P20='COBOLONL ?1?,?2?,?3?,?4?,?5?,?6?'« 0x0af8…0af9 0x1e 0x0af9…0afa 0x8f 0x0afa…0b09 »// TAG SCREEN2A« 0x0b09…0b0a 0x41 0x0b0a…0b0b 0xb2 0x0b0b…0b3d »// PROMPT FORMAT-COBONL2,START-8,LIBRARY-#COBLIB,+« 0x0b3d…0b3e 0x1e 0x0b3e…0b3f 0xa7 0x0b3f…0b66 »LENGTH-'8,7,5,6,8,8,8,5,2,6,5,8,72,56',« 0x0b66…0b67 0x29 0x0b67…0b68 0x9e 0x0b68…0b86 »// IF DSPLY-IGC MEMBER-#CB$FMT« 0x0b86…0b87 0x32 0x0b87…0b88 0x96 0x0b88…0b9e »// ELSE MEMBER-#CB@FMT« 0x0b9e…0b9f 0x3a 0x0b9f…0ba0 0xbe 0x0ba0…0bde »// EVALUATE P37='' P38='' P39='' P40='' P41='' P42='' P43='' +« 0x0bde…0bdf 0x12 0x0bdf…0be0 0xa2 0x0be0…0c02 »P44='' P45='' P48='' P49='' P50=''« 0x0c02…0c03 0x2e 0x0c03…0c04 0x96 0x0c04…0c1a »// IF ?CD?/2007 RETURN« 0x0c1a…0c1b 0x18 0x0c1b…0c1c 0x94 0x0c1c…0c30 »CHECK FOR END-OF-JOB« 0x0c30…0c31 0x0e 0x0c31…0c32 0x96 0x0c32…0c48 »// IF ?CD?/2003 RETURN« 0x0c48…0c49 0x3a 0x0c49…0c4a 0x81 0x0c4a…0c4b »*« 0x0c4b…0c4c 0x04 0x0c4c…0c4d 0xbf 0x0c4d…0c8c »THIS BLOCK CHECKS PARMS 6-15 FOR INVALID ENTRIES. IF FOUND, THE« 0x0c8c…0c8d 0x0c 0x0c8d…0c8e 0x81 0x0c8e…0c8f »*« 0x0c8f…0c90 0x04 0x0c90…0c91 0xbe 0x0c91…0ccf »APPROPRIATE MIC NUMBER IS INSERTED AND THE SCREEN REDISPLAYED.« 0x0ccf…0cd0 0x0d 0x0cd0…0cd1 0xae 0x0cd1…0cff »// LOCAL OFFSET-97,DATA-'#SE@XTRA',AREA-SYSTEM« 0x0cff…0d00 0x22 0x0d00…0d01 0xad 0x0d01…0d2e »// IFF /?8? IFF ?8?/SOURCE IFF ?8?/NOSOURCE +« 0x0d2e…0d2f 0x23 0x0d2f…0d30 0xa2 0x0d30…0d52 »GOTO SCREEN2A ?21F'4007'? ?37F'C'?« 0x0d52…0d53 0x2e 0x0d53…0d54 0xab 0x0d54…0d7f »// IFF /?9? IFF ?9?/DEBUG IFF ?9?/NODEBUG +« 0x0d7f…0d80 0x25 0x0d80…0d81 0xa2 0x0d81…0da3 »GOTO SCREEN2A ?21F'4008'? ?38F'C'?« 0x0da3…0da4 0x2e 0x0da4…0da5 0xaa 0x0da5…0dcf »// IFF /?10? IFF ?10?/MAP IFF ?10?/NOMAP +« 0x0dcf…0dd0 0x26 0x0dd0…0dd1 0xa2 0x0dd1…0df3 »GOTO SCREEN2A ?21F'4009'? ?39F'C'?« 0x0df3…0df4 0x2e 0x0df4…0df5 0xac 0x0df5…0e21 »// IFF /?11? IFF ?11?/NOXREF IFF ?11?/XREF +« 0x0e21…0e22 0x24 0x0e22…0e23 0xa2 0x0e23…0e45 »GOTO SCREEN2A ?21F'4010'? ?40F'C'?« 0x0e45…0e46 0x2e 0x0e46…0e47 0xb0 0x0e47…0e77 »// IFF /?12? IFF ?12?/OFFSET IFF ?12?/NOOFFSET +« 0x0e77…0e78 0x20 0x0e78…0e79 0xa2 0x0e79…0e9b »GOTO SCREEN2A ?21F'4011'? ?41F'C'?« 0x0e9b…0e9c 0x2e 0x0e9c…0e9d 0xbf 0x0e9d…0edc »// IFF /?13? IFF DATAF1-?13? GOTO SCREEN2A ?21F'4012'? ?42F'C'?« 0x0edc…0edd 0x11 0x0edd…0ede 0xbf 0x0ede…0f1d »// IFF /?14? IFF DATAF1-?14? GOTO SCREEN2A ?21F'4013'? ?43F'C'?« 0x0f1d…0f1e 0x11 0x0f1e…0f1f 0xaa 0x0f1f…0f49 »// IFF /?15? IFF ?15?/NEP IFF ?15?/NONEP +« 0x0f49…0f4a 0x26 0x0f4a…0f4b 0xa2 0x0f4b…0f6d »GOTO SCREEN2A ?21F'4014'? ?44F'C'?« 0x0f6d…0f6e 0x2e 0x0f6e…0f6f 0xb1 0x0f6f…0fa0 »// IFF ?16?>-1 GOTO SCREEN2A ?21F'4015'? ?45F'C'?« 0x0fa0…0fa1 0x1f 0x0fa1…0fa2 0xac 0x0fa2…0fce »// IFF /?17? IFF LINK/?17? IFF NOLINK/?17? +« 0x0fce…0fcf 0x24 0x0fcf…0fd0 0xa2 0x0fd0…0ff2 »GOTO SCREEN2A ?21F'4023'? ?48F'C'?« 0x0ff2…0ff3 0x2e 0x0ff3…0ff4 0xaa 0x0ff4…101e »// IFF /?18? IFF MRO/?18? IFF NOMRO/?18? +« 0x101e…101f 0x26 0x101f…1020 0xa2 0x1020…1042 »GOTO SCREEN2A ?21F'4022'? ?49F'C'?« 0x1042…1043 0x2e 0x1043…1044 0x9f 0x1044…1063 »// IF ?17?/NOLINK IF ?18?/MRO +« 0x1063…1064 0x31 0x1064…1065 0xa2 0x1065…1087 »GOTO SCREEN2A ?21F'4024'? ?48F'C'?« 0x1087…1088 0x2e 0x1088…1089 0x8c 0x1089…1095 »// IFF /?19?« 0x1095…1096 0x02 0x1096…1097 0x8f 0x1097…10a6 »IFF OBJECT/?19?« 0x10a6…10a7 0x02 0x10a7…10a8 0x93 0x10a8…10bb »IFF NOOBJECT/?19? +« 0x10bb…10bc 0x1e 0x10bc…10bd 0xa2 0x10bd…10df »GOTO SCREEN2A ?21F'4019'? ?50F'C'?« 0x10df…10e0 0x2e 0x10e0…10e1 0x9d 0x10e1…10fe »// IF ?CD?/2002 GOTO SCREEN1A« 0x10fe…10ff 0x11 0x10ff…1100 0x93 0x1100…1113 »CHECK FOR PAGE BACK« 0x1113…1114 0x0f 0x1114…1115 0x81 0x1115…1116 »*« 0x1116…1117 0x03 0x1117…1118 0xbf 0x1118…1157 »THIS BLOCK STORES THE PARAMETERS IN THE PROPER AREAS OF THE LDA« 0x1157…1158 0x0d 0x1158…1159 0x8f 0x1159…1168 »// TAG PUTPARMS« 0x1168…1169 0x41 0x1169…116a 0xb2 0x116a…119c »// LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x119c…119d 0x1e 0x119d…119e 0xb2 0x119e…11d0 »// LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x11d0…11d1 0x1e 0x11d1…11d2 0xa9 0x11d2…11fb »// LOCAL OFFSET-96,DATA-'?5?',AREA-SYSTEM« 0x11fb…11fc 0x27 0x11fc…11fd 0xb0 0x11fd…122d »// LOCAL OFFSET-9,DATA-'?6?',BLANK-4,AREA-SYSTEM« 0x122d…122e 0x20 0x122e…122f 0xb1 0x122f…1260 »// LOCAL OFFSET-38,DATA-'?8?',BLANK-8,AREA-SYSTEM« 0x1260…1261 0x1f 0x1261…1262 0xb1 0x1262…1293 »// LOCAL OFFSET-67,DATA-'?9?',BLANK-7,AREA-SYSTEM« 0x1293…1294 0x1f 0x1294…1295 0xb2 0x1295…12c7 »// LOCAL OFFSET-46,DATA-'?10?',BLANK-5,AREA-SYSTEM« 0x12c7…12c8 0x1e 0x12c8…12c9 0xb2 0x12c9…12fb »// LOCAL OFFSET-74,DATA-'?11?',BLANK-6,AREA-SYSTEM« 0x12fb…12fc 0x1e 0x12fc…12fd 0xb2 0x12fd…132f »// LOCAL OFFSET-51,DATA-'?12?',BLANK-8,AREA-SYSTEM« 0x132f…1330 0x1e 0x1330…1331 0xb2 0x1331…1363 »// LOCAL OFFSET-88,DATA-'?13?',BLANK-8,AREA-SYSTEM« 0x1363…1364 0x1e 0x1364…1365 0xb2 0x1365…1397 »// LOCAL OFFSET-59,DATA-'?14?',BLANK-8,AREA-SYSTEM« 0x1397…1398 0x1e 0x1398…1399 0xb2 0x1399…13cb »// LOCAL OFFSET-13,DATA-'?16?',AREA-SYSTEM,BLANK-2« 0x13cb…13cc 0x1e 0x13cc…13cd 0xb2 0x13cd…13ff »// LOCAL OFFSET-15,DATA-'?15?',BLANK-5,AREA-SYSTEM« 0x13ff…1400 0x1e 0x1400…1401 0xb3 0x1401…1434 »// LOCAL OFFSET-116,DATA-'?17?',BLANK-6,AREA-SYSTEM« 0x1434…1435 0x1d 0x1435…1436 0xb3 0x1436…1469 »// LOCAL OFFSET-111,DATA-'?18?',BLANK-5,AREA-SYSTEM« 0x1469…146a 0x1d 0x146a…146b 0xb2 0x146b…149d »// LOCAL OFFSET-80,DATA-'?19?',BLANK-8,AREA-SYSTEM« 0x149d…149e 0x1e 0x149e…149f 0x8b 0x149f…14aa »// TAG COMP« 0x14aa…14ab 0x45 0x14ab…14ac 0x99 0x14ac…14c5 »// IFF ?5?/Y GOTO SKIPSEU« 0x14c5…14c6 0x37 0x14c6…14c7 0x9a 0x14c7…14e1 »// IFF PROC-DSU GOTO SEUDO« 0x14e1…14e2 0x36 0x14e2…14e3 0x9c 0x14e3…14ff »DSU EDIT,?1?,S,,,?2'?CLIB?'?« 0x14ff…1500 0x34 0x1500…1501 0x92 0x1501…1513 »// EVALUATE P5='N'« 0x1513…1514 0x3e 0x1514…1515 0xa1 0x1515…1536 »// IFF SOURCE-'?1?,?2?' GOTO P07E« 0x1536…1537 0x2f 0x1537…1538 0x96 0x1538…154e »// PRINTER CONTINUE-NO« 0x154e…154f 0x3a 0x154f…1550 0x8f 0x1550…155f »// GOTO SKIPSEU« 0x155f…1560 0x41 0x1560…1561 0x8c 0x1561…156d »// TAG SEUDO« 0x156d…156e 0x44 0x156e…156f 0x97 0x156f…1586 »SEU ?1?,S,,,?2'?CLIB?'?« 0x1586…1587 0x39 0x1587…1588 0x92 0x1588…159a »// EVALUATE P5='N'« 0x159a…159b 0x11 0x159b…159c 0x94 0x159c…15b0 »BYPASS SEU NEXT PASS« 0x15b0…15b1 0x19 0x15b1…15b2 0x97 0x15b2…15c9 »// IFF SOURCE-'?1?,?2?'« 0x15c9…15ca 0x02 0x15ca…15cb 0x89 0x15cb…15d4 »GOTO P07E« 0x15d4…15d5 0x2e 0x15d5…15d6 0x8e 0x15d6…15e4 »// TAG SKIPSEU« 0x15e4…15e5 0x42 0x15e5…15e6 0xa1 0x15e6…1607 »// IF JOBQ-NO IF EVOKED-NO * 2011« 0x1607…1608 0x0c 0x1608…1609 0x9e 0x1609…1627 »IF PROC NOT EVOKED OR RUN FROM« 0x1627…1628 0x05 0x1628…1629 0x81 0x1629…162a »*« 0x162a…162b 0x2b 0x162b…162c 0x9c 0x162c…1648 »JOBQ, DISPLAY IN PROCESS MSG« 0x1648…1649 0x08 0x1649…164a 0x97 0x164a…1661 »// LIBRARY NAME-#COBLIB« 0x1661…1662 0x39 0x1662…1663 0x95 0x1663…1678 »// LOAD #CB00,#COBLIB« 0x1678…1679 0x3b 0x1679…167a 0xc7 0x167a…16c1 »// FILE NAME-$SOURCE,UNIT-F1,RETAIN-S,DISP-NEW,BLOCKS-?6'40'?,EXTEND-25« 0x16c1…16c2 0x09 0x16c2…16c3 0xc5 0x16c3…1708 »// FILE NAME-$WORK,UNIT-F1,RETAIN-S,DISP-NEW,BLOCKS-?6'40'?,EXTEND-25« 0x1708…1709 0x0b 0x1709…170a 0xc7 0x170a…1751 »// FILE NAME-$WORK2,UNIT-F1,BLOCKS-?6'40'?,RETAIN-J,LABEL-?1?,EXTEND-25« 0x1751…1752 0x09 0x1752…1753 0xc6 0x1753…1799 »// FILE NAME-$WORK3,UNIT-F1,BLOCKS-?6'40'?,RETAIN-S,DISP-NEW,EXTEND-25« 0x1799…179a 0x0a 0x179a…179b 0xb0 0x179b…17cb »// PRINTER NAME-$PRINTDM,CONTINUE-YES,PRIORITY-0« 0x17cb…17cc 0x20 0x17cc…17cd 0x8f 0x17cd…17dc »// IF ?CD?/2040« 0x17dc…17dd 0x02 0x17dd…17de 0xa3 0x17de…1801 »LOCAL OFFSET-106,DATA-Y,AREA-SYSTEM« 0x1801…1802 0x1c 0x1802…1803 0xb9 0x1803…183c »// MEMBER PROGRAM1-#CB#M1,PROGRAM2-#CB#M2,LIBRARY-#COBLIB« 0x183c…183d 0x17 0x183d…183e 0xc8 0x183e…1886 »// COMPILE INLIB-?2'?CLIB?'?,OUTLIB-?3'?2?'?,MRTMAX-?16'00'?,SOURCE-?1?,« 0x1886…1887 0x08 0x1887…1888 0x98 0x1888…18a0 »// IFF ?4?/ DATADCT-?4?,« 0x18a0…18a1 0x38 0x18a1…18a2 0x97 0x18a2…18b9 »// IF ?18?/MRO MRO-YES,« 0x18b9…18ba 0x39 0x18ba…18bb 0x9b 0x18bb…18d6 »// IF ?L'15,3'?/NEP NEP-YES« 0x18d6…18d7 0x35 0x18d7…18d8 0x8e 0x18d8…18e6 »// ELSE NEP-NO« 0x18e6…18e7 0x42 0x18e7…18e8 0x86 0x18e8…18ee »// RUN« 0x18ee…18ef 0x4a 0x18ef…18f0 0xab 0x18f0…191b »// LOCAL OFFSET-107,DATA-'?CD?',AREA-SYSTEM« 0x191b…191c 0x03 0x191c…191d 0x99 0x191d…1936 »STORE FOR LATER USE @@TAK« 0x1936…1937 0x09 0x1937…1938 0x99 0x1938…1951 »// EVALUATE P3=?L'427,8'?« 0x1951…1952 0x0a 0x1952…1953 0xa2 0x1953…1975 »RESTORE OUTLIB TO WHAT WAS ENTERED« 0x1975…1976 0x0b 0x1976…1977 0x9a 0x1977…1991 »// LIBRARY NAME-?L'411,8'?« 0x1991…1992 0x36 0x1992…1993 0x99 0x1993…19ac »// EVALUATE P35=?L'31,8'?« 0x19ac…19ad 0x0c 0x19ad…19ae 0x9a 0x19ae…19c8 »SAVE COMPILER PRINT OPTION« 0x19c8…19c9 0x11 0x19c9…19ca 0x91 0x19ca…19db »// IF ?L'105,1'?/« 0x19db…19dc 0x02 0x19dc…19dd 0x8c 0x19dd…19e9 »GOTO SKIPMNT« 0x19e9…19ea 0x04 0x19ea…19eb 0xa3 0x19eb…1a0e »IF DSM IS NOT GOOD,SKIP SOURCE VIEW« 0x1a0e…1a0f 0x0a 0x1a0f…1a10 0x9b 0x1a10…1a2b »// IFF PROC-DSU GOTO SEUDO2« 0x1a2b…1a2c 0x35 0x1a2c…1a2d 0x96 0x1a2d…1a43 »// PRINTER CONTINUE-NO« 0x1a43…1a44 0x3a 0x1a44…1a45 0x9d 0x1a45…1a62 »DSU EDIT,?1?,S,,,?2'?3?'?,?1?« 0x1a62…1a63 0x33 0x1a63…1a64 0x8f 0x1a64…1a73 »// GOTO SKIPMNT« 0x1a73…1a74 0x41 0x1a74…1a75 0x8d 0x1a75…1a82 »// TAG SEUDO2« 0x1a82…1a83 0x43 0x1a83…1a84 0x98 0x1a84…1a9c »SEU ?1?,S,,,?2'?3?'?,?1?« 0x1a9c…1a9d 0x38 0x1a9d…1a9e 0x8e 0x1a9e…1aac »// TAG SKIPMNT« 0x1aac…1aad 0x42 0x1aad…1aae 0xa8 0x1aae…1ad6 »// LOCAL OFFSET-105,DATA-' ',AREA-SYSTEM« 0x1ad6…1ad7 0x0d 0x1ad7…1ad8 0x8f 0x1ad8…1ae7 »RESET TO NO DSM« 0x1ae7…1ae8 0x0c 0x1ae8…1ae9 0x96 0x1ae9…1aff »// PRINTER CONTINUE-NO« 0x1aff…1b00 0x3a 0x1b00…1b01 0xa2 0x1b01…1b23 »// EVALUATE P20='N' P21='Y' P22=''« 0x1b23…1b24 0x2e 0x1b24…1b25 0x8e 0x1b25…1b33 »// TAG SCREEN3« 0x1b33…1b34 0x42 0x1b34…1b35 0xc2 0x1b35…1b77 »// PROMPT FORMAT-COBONL3,START-20,LIBRARY-#COBLIB,LENGTH-'1,1,56',« 0x1b77…1b78 0x0e 0x1b78…1b79 0x9e 0x1b79…1b97 »// IF DSPLY-IGC MEMBER-#CB$FMT« 0x1b97…1b98 0x32 0x1b98…1b99 0x96 0x1b99…1baf »// ELSE MEMBER-#CB@FMT« 0x1baf…1bb0 0x3a 0x1bb0…1bb1 0xc5 0x1bb1…1bf6 »// MEMBER USER1-#CB#M1,USER2-#CB#M2,PROGRAM1-#CB#M1,PROGRAM2-#CB#M2,+« 0x1bf6…1bf7 0x0b 0x1bf7…1bf8 0x8f 0x1bf8…1c07 »LIBRARY-#COBLIB« 0x1c07…1c08 0x41 0x1c08…1c09 0x99 0x1c09…1c22 »// EVALUATE P46='' P47=''« 0x1c22…1c23 0x37 0x1c23…1c24 0xb5 0x1c24…1c59 »// IF ?CD?/2007 LOCAL OFFSET-178,DATA-'1',AREA-SYSTEM« 0x1c59…1c5a 0x1b 0x1c5a…1c5b 0xba 0x1c5b…1c95 »// ELSE IF ?CD?/2014 LOCAL OFFSET-178,DATA-'2',AREA-SYSTEM« 0x1c95…1c96 0x16 0x1c96…1c97 0xad 0x1c97…1cc4 »// ELSE LOCAL OFFSET-178,DATA-'0',AREA-SYSTEM« 0x1cc4…1cc5 0x23 0x1cc5…1cc6 0x9a 0x1cc6…1ce0 »// IF ?CD?/2007 GOTO P105K« 0x1ce0…1ce1 0x09 0x1ce1…1ce2 0x99 0x1ce2…1cfb »IF CMD7 JUMP AHEAD TO END« 0x1cfb…1cfc 0x14 0x1cfc…1cfd 0xba 0x1cfd…1d37 »// IFF ?20?/Y IFF ?20?/N GOTO SCREEN3 ?22F'4016'? ?46F'C'?« 0x1d37…1d38 0x16 0x1d38…1d39 0xba 0x1d39…1d73 »// IFF ?21?/N IFF ?21?/Y GOTO SCREEN3 ?22F'4017'? ?47F'C'?« 0x1d73…1d74 0x16 0x1d74…1d75 0x8c 0x1d75…1d81 »// TAG P105K« 0x1d81…1d82 0x44 0x1d82…1d83 0x9b 0x1d83…1d9e »// IFF ?35?/CRT GOTO NODELT« 0x1d9e…1d9f 0x35 0x1d9f…1da0 0x81 0x1da0…1da1 »*« 0x1da1…1da2 0x02 0x1da2…1da3 0xba 0x1da3…1ddd »SPOOL NOT ACTIVE OR SPOOL FILE NOT CREATED FOR SOME REASON« 0x1ddd…1dde 0x13 0x1dde…1ddf 0x85 0x1ddf…1de4 »// IF« 0x1de4…1de5 0x02 0x1de5…1de6 0x86 0x1de6…1dec »?20?/Y« 0x1dec…1ded 0x06 0x1ded…1dee 0x99 0x1dee…1e07 »IFF ?CD?/2007 GOTO NODELT« 0x1e07…1e08 0x07 0x1e08…1e09 0x94 0x1e09…1e1d »DETERMINE IF WE NEED« 0x1e1d…1e1e 0x09 0x1e1e…1e1f 0xa1 0x1e1f…1e40 »* TO DELETE THE SPOOL FILE ENTRY.« 0x1e40…1e41 0x02 0x1e41…1e42 0xa5 0x1e42…1e67 »EXECUTE #RPSPD IF IT MUST BE DELETED.« 0x1e67…1e68 0x08 0x1e68…1e69 0xab 0x1e69…1e94 »// LOCAL OFFSET-187,DATA-'?WS?',AREA-SYSTEM« 0x1e94…1e95 0x25 0x1e95…1e96 0x8e 0x1e96…1ea4 »// LOAD #RPSPD« 0x1ea4…1ea5 0x42 0x1ea5…1ea6 0x86 0x1ea6…1eac »// RUN« 0x1eac…1ead 0x4a 0x1ead…1eae 0x8f 0x1eae…1ebd »// GOTO ENDPROC« 0x1ebd…1ebe 0x41 0x1ebe…1ebf 0x8d 0x1ebf…1ecc »// TAG NODELT« 0x1ecc…1ecd 0x43 0x1ecd…1ece 0x81 0x1ece…1ecf »*« 0x1ecf…1ed0 0x4f 0x1ed0…1ed1 0x81 0x1ed1…1ed2 »*« 0x1ed2…1ed3 0x05 0x1ed3…1ed4 0xb0 0x1ed4…1f04 »IF CRT SPECIFIED, COPY SPOOL FILE ENTRY TO DISK,« 0x1f04…1f05 0x1a 0x1f05…1f06 0x81 0x1f06…1f07 »*« 0x1f07…1f08 0x05 0x1f08…1f09 0xb1 0x1f09…1f3a »AND THEN DISPLAY THE DISK FILE AT DISPLAY STATION« 0x1f3a…1f3b 0x19 0x1f3b…1f3c 0x81 0x1f3c…1f3d »*« 0x1f3d…1f3e 0x4f 0x1f3e…1f3f 0xc8 0x1f3f…1f87 »************************************************************************« 0x1f87…1f88 0x08 0x1f88…1f89 0xb0 0x1f89…1fb9 »* THE FOLLOWING 4 LINES ARE ADDED FOR PTF 52-545« 0x1fb9…1fba 0x02 0x1fba…1fbb 0x8e 0x1fbb…1fc9 ». THEY REPLACE« 0x1fc9…1fca 0x07 0x1fca…1fcb 0x81 0x1fcb…1fcc »*« 0x1fcc…1fcd 0x08 0x1fcd…1fce 0x9f 0x1fce…1fed »* THE CALLS TO $UASF AND $UASC.« 0x1fed…1fee 0x28 0x1fee…1fef 0x81 0x1fef…1ff0 »*« 0x1ff0…1ff1 0x08 0x1ff1…1ff2 0xc8 0x1ff2…203a »************************************************************************« 0x203a…203b 0x08 0x203b…203c 0x8d 0x203c…2049 »// INFOMSG NO« 0x2049…204a 0x43 0x204a…204b 0xb1 0x204b…207c »// IFT DATAF1-CB?L'181,6'? DELETE CB?L'181,6'?,F1« 0x207c…207d 0x1f 0x207d…207e 0xbd 0x207e…20bb »// IFF ?L'181,6'?/ COPYPRT ?L'181,6'?,CB?L'181,6'?,CANCEL,CRT« 0x20bb…20bc 0x13 0x20bc…20bd 0xb0 0x20bd…20ed »// IF DATAF1-CB?L'181,6'? DELETE CB?L'181,6'?,F1« 0x20ed…20ee 0x20 0x20ee…20ef 0xa9 0x20ef…2118 »// LOCAL OFFSET-1,DATA-'?33?',AREA-SYSTEM« 0x2118…2119 0x27 0x2119…211a 0xab 0x211a…2145 »// LOCAL OFFSET-129,DATA-'?34?',AREA-SYSTEM« 0x2145…2146 0x25 0x2146…2147 0x8e 0x2147…2155 »// TAG ENDPROC« 0x2155…2156 0x42 0x2156…2157 0x99 0x2157…2170 »// EVALUATE CD=?L'107,4'?« 0x2170…2171 0x37 0x2171…2172 0x99 0x2172…218b »// IF ?L'178,1'?/1 RETURN« 0x218b…218c 0x14 0x218c…218d 0x89 0x218d…2196 »CMD 7 HIT« 0x2196…2197 0x1a 0x2197…2198 0xa0 0x2198…21b8 »// IF ?L'178,1'?/2 GOTO SCREEN2C« 0x21b8…21b9 0x0d 0x21b9…21ba 0x8a 0x21ba…21c4 »CMD 14 HIT« 0x21c4…21c5 0x19 0x21c5…21c6 0x92 0x21c6…21d8 »// EVALUATE P22=''« 0x21d8…21d9 0x3e 0x21d9…21da 0xa0 0x21da…21fa »// IF ?21?/Y IF ?20?/N GOTO COMP« 0x21fa…21fb 0x0d 0x21fb…21fc 0x9c 0x21fc…2218 »PROCEED NO VIEW-JUST COMPILE« 0x2218…2219 0x07 0x2219…221a 0xa4 0x221a…223e »// IF ?21?/Y IF ?20?/Y GOTO SCREEN1A« 0x223e…223f 0x09 0x223f…2240 0x99 0x2240…2259 »PROCEED AND VIEW-REPROMPT« 0x2259…225a 0x0a 0x225a…225b 0x89 0x225b…2264 »// RETURN« 0x2264…2265 0x47 0x2265…2266 0x00 0x2266…2280 d3 d6 c1 c4 40 7b c3 c2 f0 f0 6b 7b c3 d6 c2 d3 c9 c2 3b c7 61 61 40 c6 c9 d3 ┆LOAD #CB00,#COBLIB G// FIL┆ 0x2280…22a0 c5 40 d5 c1 d4 c5 60 5b e2 d6 e4 d9 c3 c5 6b e4 d5 c9 e3 60 c6 f1 6b d9 c5 e3 c1 c9 d5 60 e2 6b ┆E NAME-$SOURCE,UNIT-F1,RETAIN-S,┆ 0x22a0…22c0 c4 c9 e2 d7 60 d5 c5 e6 6b c2 d3 d6 c3 d2 e2 60 6f f6 7d f4 f0 7d 6f 6b c5 e7 e3 c5 d5 c4 60 f2 ┆DISP-NEW,BLOCKS-?6'40'?,EXTEND-2┆ 0x22c0…22e0 f5 09 c5 61 61 40 c6 c9 d3 c5 40 d5 c1 d4 c5 60 5b e6 d6 d9 d2 6b e4 d5 c9 e3 60 c6 f1 6b d9 c5 ┆5 E// FILE NAME-$WORK,UNIT-F1,RE┆ 0x22e0…2300 e3 c1 c9 d5 60 e2 6b c4 c9 e2 d7 60 d5 c5 e6 6b c2 d3 d6 c3 d2 e2 60 6f f6 7d f4 f0 7d 6f 6b c5 ┆TAIN-S,DISP-NEW,BLOCKS-?6'40'?,E┆