|
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: 7168 (0x1c00)
Notes: MEMBER_P, Member_Text
Names: »COBOLC «
└─⟦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⟧ ».COBOLC «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #LIBRARY AS 'COBOLC' * * * THE COBOL COMPILER PROCEDURE FOR S/36 WITH $HELP SUPPORT FOR PROMP T * SCREENS (SYSLOG ERROR REPROMPTING IN THIS PROC) * // LOCAL AREA-SYSTEM LOCAL AREA=SYSTEM LDA // MEMBER USER1-#CB#M1,LIBRARY-#COBLIB MESSAGE MEMBER S // IFF /?1? GOTO RETPARMS NO HELP--INVOKED DIRECTLY VIA * OCL OR RETURN FROM HELP // IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ // MSG ?WS?,?M'2000,1,60'? * ERROR PUTOUT FOR NO SOURCE MEMBER GIVEN // RETURN // TAG NJOBQ // IFF ?L'1,2'?/CO GOTO DISPLY // IFF ?L'3,2'?/BO GOTO DISPLY // IFF ?L'5,2'?/LP GOTO DISPLY // EVALUATE P1=?L'435,8'? P2=?L'419,8'? P3=?L'427,8'? P4=?L'20,5'? // EVALUATE P5=?L'31,7'? P6=?L'74,6'? P7=?L'15,5'? P8=?L'13,2'? // EVALUATE P9=?L'9,4'? P10=?L'38,8'? P11=?L'67,7'? P12=?L'46,5'? // EVALUATE P13=?L'51,8'? P14=?L'80,8'? P15=?L'88,8'? P16=?L'59,8'? // EVALUATE P17=?L'443,8'? P18=?L'116,6'? P19=?L'111,5'? // TAG DISPLY // HELP COBOLC,?1?,?2'?CLIB?'?,?3?,?4'NODSM'?,?5'PRINT'?,?6?,?7'NONEP'?+ ,?8'0'?,?9'40'?,?10?,?11?,?12?,?13?,?14?,?15?,?16?,?17?,?18?,?19? // RETURN // TAG RETPARMS // IF JOBQ-YES GOTO SETLCL // IF EVOKED-NO * 2010 // IFF ?L'1,2'?/CO GOTO SETLCL // IFF ?L'3,2'?/BO GOTO SETLCL // IFF ?L'5,2'?/LP GOTO SETLCL // LOCAL OFFSET-8,DATA-'C',BLANK-1,AREA-SYSTEM // GOTO EVAL // TAG SETLCL // LOCAL OFFSET-1,DATA-'COBOLP C',BLANK-*ALL,AREA-SYSTEM // LOCAL OFFSET-9,DATA-'004000NONEP',AREA-SYSTEM // LOCAL OFFSET-20,DATA-'NODSMNOJOBQPRINT',AREA-SYSTEM // LOCAL OFFSET-97,DATA-'#SE@XTRA',AREA-SYSTEM // LOCAL OFFSET-419,DATA-'?CLIB?',AREA-SYSTEM // TAG EVAL // LOCAL OFFSET-411,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM * THE PARAMETERS ARE CHECKED FOR VALID ENTRIES. IF AN ERROR IS FOUND, * THE MIC NUMBER IS DISPLAYED ON SYSLOG. THE SCREEN IS REDISPLAYED * IF THE USER CHOOSES THE 'H' OPTION. // IFF /?2? GOTO P05K // EVALUATE P2=?CLIB? // GOTO P10K // TAG P05K // IF DATAF1-?2? GOTO P10K // IFF /?2? #ERR 4002,03,CBL // EVALUATE P2=?CLIB? DEFAULT IF SYSLOG OPTION 0 // TAG P10K // IFF /?2? LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM // IF /?1? #ERR 4001,3,CBL // IF SOURCE-'?1?,?2?' GOTO P20K // IFF /?1? #ERR 4001,3,CBL // TAG P20K // IFF /?1? LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM // IF /?3? GOTO P30K // IF DATAF1-?3? GOTO P30K // IFF /?3? #ERR 4003,03,CBL // GOTO P31K // TAG P30K // IFF /?3? LOCAL OFFSET-427,DATA-'?3?',BLANK-8,AREA-SYSTEM // TAG P31K // IFF /?4? IFF DSM/?4? IFF NODSM/?4? #ERR 4018,03,CBL // ELSE LOCAL OFFSET-20,DATA-'?4?',BLANK-5,AREA-SYSTEM // IFF /?5? IFF PRINT/?5? IFF NOPRINT/?5? IFF CRT/?5? #ERR 4005,03,CBL // ELSE LOCAL OFFSET-31,DATA-'?5?',BLANK-7,AREA-SYSTEM // TAG P38AK // IFF /?6? IFF XREF/?6? IFF NOXREF/?6? #ERR 4010,03,CBL // ELSE LOCAL OFFSET-74,DATA-'?6?',BLANK-6,AREA-SYSTEM // IFF /?7? IFF NEP/?7? IFF NONEP/?7? #ERR 4014,03,CBL // ELSE LOCAL OFFSET-15,DATA-'?7?',BLANK-5,AREA-SYSTEM // IFF ?8'00'?>-1 #ERR 4015,03,CBL // ELSE LOCAL OFFSET-13,DATA-'?8?',BLANK-2,AREA-SYSTEM // IFF ?9'0040'?>0 #ERR 4006,03,CBL // ELSE LOCAL OFFSET-9,DATA-'?9?',BLANK-4,AREA-SYSTEM // IFF /?10? IFF SOURCE/?10? IFF NOSOURCE/?10? #ERR 4007,03,CBL // ELSE LOCAL OFFSET-38,DATA-'?10?',BLANK-8,AREA-SYSTEM // IFF /?11? IFF DEBUG/?11? IFF NODEBUG/?11? #ERR 4008,03,CBL // ELSE LOCAL OFFSET-67,DATA-'?11?',BLANK-7,AREA-SYSTEM // IFF /?12? IFF MAP/?12? IFF NOMAP/?12? #ERR 4009,03,CBL // ELSE LOCAL OFFSET-46,DATA-'?12?',BLANK-5,AREA-SYSTEM // IFF /?13? IFF OFFSET/?13? IFF NOOFFSET/?13? #ERR 4011,03,CBL // ELSE LOCAL OFFSET-51,DATA-'?13?',BLANK-8,AREA-SYSTEM // IFF /?14? IFF OBJECT/?14? IFF NOOBJECT/?14? #ERR 4019,03,CBL // ELSE LOCAL OFFSET-80,DATA-'?14?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-443,DATA-'?17?',BLANK-8,AREA-SYSTEM // IF /?15? GOTO P60K // IF DATAF1-?15? GOTO P60K // IFF /?15? #ERR 4012,03,CBL // GOTO P61K // TAG P60K // IFF /?15? LOCAL OFFSET-88,DATA-'?15?',BLANK-8,AREA-SYSTEM // TAG P61K // IF /?16? GOTO P70K // IF DATAF1-?16? GOTO P70K // IFF /?16? #ERR 4013,03,CBL // GOTO P71K // TAG P70K // IFF /?16? LOCAL OFFSET-59,DATA-'?16?',BLANK-8,AREA-SYSTEM // TAG P71K // IF /?17? GOTO P84K // LOAD #RPDD // RUN // IF '?L'451,1'?'/'1' #ERR 4026,03,CBL // TAG P84K // IFF /?18? IFF LINK/?18? IFF NOLINK/?18? #ERR 4023,03,CBL // ELSE LOCAL OFFSET-116,DATA-'?18?',BLANK-6,AREA-SYSTEM // IFF /?19? IFF MRO/?19? IFF NOMRO/?19? #ERR 4022,03,CBL // ELSE LOCAL OFFSET-111,DATA-'?19?',BLANK-5,AREA-SYSTEM // IF ?18?/NOLINK IF ?19?/MRO #ERR 4024,03,CBL * * // TAG COMP * THIS BLOCK PREPARES TO CALL THE COBOL COMPILER // MEMBER USER1-#CB#M1,USER2-#CB#M2,PROGRAM1-#CB#M1,PROGRAM2-#CB#M2,+ LIBRARY-#COBLIB // LIBRARY NAME-#COBLIB // LOAD #CB00,#COBLIB // FILE NAME-$SOURCE,UNIT-F1,RETAIN-S,DISP-NEW,BLOCKS-?9'40'?,EXTEND-25 // FILE NAME-$WORK,UNIT-F1,RETAIN-S,DISP-NEW,BLOCKS-?9'40'?,EXTEND-25 // IFF ?4?/DSM GOTO NOTDSM * IF USER REQUESTED DSM, THEN ALLOCATE WORK2, WORK3 // FILE NAME-$WORK2,UNIT-F1,RETAIN-J,BLOCKS-?9'40'?,LABEL-?1?,EXTEND-25 // FILE NAME-$WORK3,UNIT-F1,RETAIN-S,DISP-NEW,BLOCKS-?9'40'?,EXTEND-25 // GOTO YESDSM // TAG NOTDSM * IF USER DID NOT REQUEST DSM, THEN ALLOCATE ONLY WORK2 // FILE NAME-$WORK2,UNIT-F1,RETAIN-S,DISP-NEW,BLOCKS-?9'40'?,EXTEND-25 // TAG YESDSM // PRINTER NAME-$PRINTDM,CONTINUE-YES, // IF ?5?/CRT PRIORITY-0 // ELSE PRIORITY-1 * IF CONTINUE-YES ALREADY IN EFFECT INDICATE Y IN LDA BYTE 106 // IF ?CD?/2040 LOCAL OFFSET-106,DATA-'Y',AREA-SYSTEM // MEMBER PROGRAM1-#CB#M1,LIBRARY-#COBLIB MESSAGE MEMBER // MEMBER PROGRAM2-#CB#M2,LIBRARY-#COBLIB MESSAGE MEMBER // COMPILE INLIB-?2'?CLIB?'?,OUTLIB-?3'?2?'?,MRTMAX-?8'00'?,SOURCE-?1?, // IFF ?17?/ DATADCT-?17?, // IF ?19?/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 * IF DSM REQUESTED, DISPLAY DSM FILE VIA SEU * IF CONTINUE-YES WAS IN EFFECT PRIOR, DO NOT SHUT OFF // IF ?L'106,1'?/Y IFF ?5?/CRT GOTO NCRTTAG // PRINTER CONTINUE-NO // TAG NCRTTAG // LIBRARY NAME-?L'411,8'? // IFF ?4?/DSM GOTO SKIPMNT // IF ?L'105,1'?/ GOTO SKIPMNT IF DSM IS NOT GOOD,SKIP SOURCE VIEW W // LOAD $MAINT // FILE NAME-$WORK2,UNIT-F1,RETAIN-S,LABEL-?1? // RUN // COPY FROM-DISK,TO-?2?,RETAIN-R,FILE-$WORK2 // END // TAG SKIPMNT // IF JOBQ-YES GOTO SKIPCRT // IF EVOKED-YES GOTO SKIPCRT * * IF CRT SPECIFIED, COPY SPOOL FILE ENTRY TO DISK, * AND THEN DISPLAY THE DISK FILE AT DISPLAY STATION * THE COMPILER (#CB50) HAS PUT THE SPOOL-ID INTO THE LDA // EVALUATE P5=?L'31,7'? // IFF ?5?/CRT GOTO EXIT ************************************************************************ * 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 // TAG SKIPCRT // TAG EXIT * NOW RESTORE THE ?CD? VALUE // EVALUATE CD=?L'107,4'? @@TAK // RETURN
0x0000…0001 0xbc 0x0001…003d »*** THIS PROCEDURE SHOULD EXIST ONLY IN #LIBRARY AS 'COBOLC'« 0x003d…003e 0x14 0x003e…003f 0x81 0x003f…0040 »*« 0x0040…0041 0x4f 0x0041…0042 0x81 0x0042…0043 »*« 0x0043…0044 0x4f 0x0044…0045 0x81 0x0045…0046 »*« 0x0046…0047 0x02 0x0047…0048 0xc2 0x0048…008a »THE COBOL COMPILER PROCEDURE FOR S/36 WITH $HELP SUPPORT FOR PROMP« 0x008a…008b 0x03 0x008b…008c 0x81 0x008c…008d »T« 0x008d…008e 0x07 0x008e…008f 0x81 0x008f…0090 »*« 0x0090…0091 0x02 0x0091…0092 0xaf 0x0092…00c1 »SCREENS (SYSLOG ERROR REPROMPTING IN THIS PROC)« 0x00c1…00c2 0x1e 0x00c2…00c3 0x81 0x00c3…00c4 »*« 0x00c4…00c5 0x4f 0x00c5…00c6 0x94 0x00c6…00da »// LOCAL AREA-SYSTEM« 0x00da…00db 0x1d 0x00db…00dc 0x95 0x00dc…00f1 »LOCAL AREA=SYSTEM LDA« 0x00f1…00f2 0x0a 0x00f2…00f3 0xa6 0x00f3…0119 »// MEMBER USER1-#CB#M1,LIBRARY-#COBLIB« 0x0119…011a 0x0b 0x011a…011b 0x8e 0x011b…0129 »MESSAGE MEMBER« 0x0129…012a 0x09 0x012a…012b 0x81 0x012b…012c »S« 0x012c…012d 0x07 0x012d…012e 0x99 0x012e…0147 »// IFF /?1? GOTO RETPARMS« 0x0147…0148 0x0f 0x0148…0149 0x9d 0x0149…0166 »NO HELP--INVOKED DIRECTLY VIA« 0x0166…0167 0x0b 0x0167…0168 0x81 0x0168…0169 »*« 0x0169…016a 0x27 0x016a…016b 0x97 0x016b…0182 »OCL OR RETURN FROM HELP« 0x0182…0183 0x11 0x0183…0184 0x8d 0x0184…0191 »// IF JOBQ-NO« 0x0191…0192 0x04 0x0192…0193 0x8c 0x0193…019f »IF EVOKED-NO« 0x019f…01a0 0x02 0x01a0…01a1 0x8a 0x01a1…01ab »GOTO NJOBQ« 0x01ab…01ac 0x27 0x01ac…01ad 0x9a 0x01ad…01c7 »// MSG ?WS?,?M'2000,1,60'?« 0x01c7…01c8 0x36 0x01c8…01c9 0x81 0x01c9…01ca »*« 0x01ca…01cb 0x06 0x01cb…01cc 0xa7 0x01cc…01f3 »ERROR PUTOUT FOR NO SOURCE MEMBER GIVEN« 0x01f3…01f4 0x22 0x01f4…01f5 0x89 0x01f5…01fe »// RETURN« 0x01fe…01ff 0x47 0x01ff…0200 0x8c 0x0200…020c »// TAG NJOBQ« 0x020c…020d 0x44 0x020d…020e 0x92 0x020e…0220 »// IFF ?L'1,2'?/CO« 0x0220…0221 0x03 0x0221…0222 0x8b 0x0222…022d »GOTO DISPLY« 0x022d…022e 0x30 0x022e…022f 0x92 0x022f…0241 »// IFF ?L'3,2'?/BO« 0x0241…0242 0x03 0x0242…0243 0x8b 0x0243…024e »GOTO DISPLY« 0x024e…024f 0x30 0x024f…0250 0x92 0x0250…0262 »// IFF ?L'5,2'?/LP« 0x0262…0263 0x03 0x0263…0264 0x8b 0x0264…026f »GOTO DISPLY« 0x026f…0270 0x30 0x0270…0271 0xc2 0x0271…02b3 »// EVALUATE P1=?L'435,8'? P2=?L'419,8'? P3=?L'427,8'? P4=?L'20,5'?« 0x02b3…02b4 0x0e 0x02b4…02b5 0xbf 0x02b5…02f4 »// EVALUATE P5=?L'31,7'? P6=?L'74,6'? P7=?L'15,5'? P8=?L'13,2'?« 0x02f4…02f5 0x11 0x02f5…02f6 0xc1 0x02f6…0337 »// EVALUATE P9=?L'9,4'? P10=?L'38,8'? P11=?L'67,7'? P12=?L'46,5'?« 0x0337…0338 0x0f 0x0338…0339 0xc3 0x0339…037c »// EVALUATE P13=?L'51,8'? P14=?L'80,8'? P15=?L'88,8'? P16=?L'59,8'?« 0x037c…037d 0x0d 0x037d…037e 0xb8 0x037e…03b6 »// EVALUATE P17=?L'443,8'? P18=?L'116,6'? P19=?L'111,5'?« 0x03b6…03b7 0x18 0x03b7…03b8 0x8d 0x03b8…03c5 »// TAG DISPLY« 0x03c5…03c6 0x43 0x03c6…03c7 0xc8 0x03c7…040f »// HELP COBOLC,?1?,?2'?CLIB?'?,?3?,?4'NODSM'?,?5'PRINT'?,?6?,?7'NONEP'?+« 0x040f…0410 0x08 0x0410…0411 0xc1 0x0411…0452 »,?8'0'?,?9'40'?,?10?,?11?,?12?,?13?,?14?,?15?,?16?,?17?,?18?,?19?« 0x0452…0453 0x0f 0x0453…0454 0x89 0x0454…045d »// RETURN« 0x045d…045e 0x47 0x045e…045f 0x8f 0x045f…046e »// TAG RETPARMS« 0x046e…046f 0x41 0x046f…0470 0x9a 0x0470…048a »// IF JOBQ-YES GOTO SETLCL« 0x048a…048b 0x36 0x048b…048c 0x96 0x048c…04a2 »// IF EVOKED-NO * 2010« 0x04a2…04a3 0x3a 0x04a3…04a4 0x92 0x04a4…04b6 »// IFF ?L'1,2'?/CO« 0x04b6…04b7 0x02 0x04b7…04b8 0x8b 0x04b8…04c3 »GOTO SETLCL« 0x04c3…04c4 0x31 0x04c4…04c5 0x92 0x04c5…04d7 »// IFF ?L'3,2'?/BO« 0x04d7…04d8 0x02 0x04d8…04d9 0x8b 0x04d9…04e4 »GOTO SETLCL« 0x04e4…04e5 0x31 0x04e5…04e6 0x92 0x04e6…04f8 »// IFF ?L'5,2'?/LP« 0x04f8…04f9 0x02 0x04f9…04fa 0x8b 0x04fa…0505 »GOTO SETLCL« 0x0505…0506 0x31 0x0506…0507 0xae 0x0507…0535 »// LOCAL OFFSET-8,DATA-'C',BLANK-1,AREA-SYSTEM« 0x0535…0536 0x22 0x0536…0537 0x8c 0x0537…0543 »// GOTO EVAL« 0x0543…0544 0x44 0x0544…0545 0x8d 0x0545…0552 »// TAG SETLCL« 0x0552…0553 0x43 0x0553…0554 0xb8 0x0554…058c »// LOCAL OFFSET-1,DATA-'COBOLP C',BLANK-*ALL,AREA-SYSTEM« 0x058c…058d 0x18 0x058d…058e 0xb0 0x058e…05be »// LOCAL OFFSET-9,DATA-'004000NONEP',AREA-SYSTEM« 0x05be…05bf 0x20 0x05bf…05c0 0xb6 0x05c0…05f6 »// LOCAL OFFSET-20,DATA-'NODSMNOJOBQPRINT',AREA-SYSTEM« 0x05f6…05f7 0x1a 0x05f7…05f8 0xae 0x05f8…0626 »// LOCAL OFFSET-97,DATA-'#SE@XTRA',AREA-SYSTEM« 0x0626…0627 0x22 0x0627…0628 0xad 0x0628…0655 »// LOCAL OFFSET-419,DATA-'?CLIB?',AREA-SYSTEM« 0x0655…0656 0x23 0x0656…0657 0x8b 0x0657…0662 »// TAG EVAL« 0x0662…0663 0x45 0x0663…0664 0xb5 0x0664…0699 »// LOCAL OFFSET-411,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM« 0x0699…069a 0x1b 0x069a…069b 0x81 0x069b…069c »*« 0x069c…069d 0x05 0x069d…069e 0xad 0x069e…06cb »THE PARAMETERS ARE CHECKED FOR VALID ENTRIES.« 0x06cb…06cc 0x02 0x06cc…06cd 0x95 0x06cd…06e2 »IF AN ERROR IS FOUND,« 0x06e2…06e3 0x06 0x06e3…06e4 0x81 0x06e4…06e5 »*« 0x06e5…06e6 0x05 0x06e6…06e7 0xa6 0x06e7…070d »THE MIC NUMBER IS DISPLAYED ON SYSLOG.« 0x070d…070e 0x02 0x070e…070f 0x99 0x070f…0728 »THE SCREEN IS REDISPLAYED« 0x0728…0729 0x09 0x0729…072a 0x81 0x072a…072b »*« 0x072b…072c 0x05 0x072c…072d 0xa3 0x072d…0750 »IF THE USER CHOOSES THE 'H' OPTION.« 0x0750…0751 0x27 0x0751…0752 0x95 0x0752…0767 »// IFF /?2? GOTO P05K« 0x0767…0768 0x3b 0x0768…0769 0x95 0x0769…077e »// EVALUATE P2=?CLIB?« 0x077e…077f 0x3b 0x077f…0780 0x8c 0x0780…078c »// GOTO P10K« 0x078c…078d 0x44 0x078d…078e 0x8b 0x078e…0799 »// TAG P05K« 0x0799…079a 0x45 0x079a…079b 0x9a 0x079b…07b5 »// IF DATAF1-?2? GOTO P10K« 0x07b5…07b6 0x36 0x07b6…07b7 0x9c 0x07b7…07d3 »// IFF /?2? #ERR 4002,03,CBL« 0x07d3…07d4 0x34 0x07d4…07d5 0x95 0x07d5…07ea »// EVALUATE P2=?CLIB?« 0x07ea…07eb 0x12 0x07eb…07ec 0x9a 0x07ec…0806 »DEFAULT IF SYSLOG OPTION 0« 0x0806…0807 0x0f 0x0807…0808 0x8b 0x0808…0813 »// TAG P10K« 0x0813…0814 0x45 0x0814…0815 0xbb 0x0815…0850 »// IFF /?2? LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x0850…0851 0x15 0x0851…0852 0x9a 0x0852…086c »// IF /?1? #ERR 4001,3,CBL« 0x086c…086d 0x36 0x086d…086e 0xa0 0x086e…088e »// IF SOURCE-'?1?,?2?' GOTO P20K« 0x088e…088f 0x30 0x088f…0890 0x9b 0x0890…08ab »// IFF /?1? #ERR 4001,3,CBL« 0x08ab…08ac 0x35 0x08ac…08ad 0x8b 0x08ad…08b8 »// TAG P20K« 0x08b8…08b9 0x45 0x08b9…08ba 0xbb 0x08ba…08f5 »// IFF /?1? LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x08f5…08f6 0x15 0x08f6…08f7 0x94 0x08f7…090b »// IF /?3? GOTO P30K« 0x090b…090c 0x3c 0x090c…090d 0x9a 0x090d…0927 »// IF DATAF1-?3? GOTO P30K« 0x0927…0928 0x36 0x0928…0929 0x9c 0x0929…0945 »// IFF /?3? #ERR 4003,03,CBL« 0x0945…0946 0x34 0x0946…0947 0x8c 0x0947…0953 »// GOTO P31K« 0x0953…0954 0x44 0x0954…0955 0x8b 0x0955…0960 »// TAG P30K« 0x0960…0961 0x45 0x0961…0962 0xbb 0x0962…099d »// IFF /?3? LOCAL OFFSET-427,DATA-'?3?',BLANK-8,AREA-SYSTEM« 0x099d…099e 0x15 0x099e…099f 0x8b 0x099f…09aa »// TAG P31K« 0x09aa…09ab 0x45 0x09ab…09ac 0xb6 0x09ac…09e2 »// IFF /?4? IFF DSM/?4? IFF NODSM/?4? #ERR 4018,03,CBL« 0x09e2…09e3 0x1a 0x09e3…09e4 0xb6 0x09e4…0a1a »// ELSE LOCAL OFFSET-20,DATA-'?4?',BLANK-5,AREA-SYSTEM« 0x0a1a…0a1b 0x1a 0x0a1b…0a1c 0xc6 0x0a1c…0a62 »// IFF /?5? IFF PRINT/?5? IFF NOPRINT/?5? IFF CRT/?5? #ERR 4005,03,CBL« 0x0a62…0a63 0x0a 0x0a63…0a64 0xb6 0x0a64…0a9a »// ELSE LOCAL OFFSET-31,DATA-'?5?',BLANK-7,AREA-SYSTEM« 0x0a9a…0a9b 0x1a 0x0a9b…0a9c 0x8c 0x0a9c…0aa8 »// TAG P38AK« 0x0aa8…0aa9 0x44 0x0aa9…0aaa 0xb8 0x0aaa…0ae2 »// IFF /?6? IFF XREF/?6? IFF NOXREF/?6? #ERR 4010,03,CBL« 0x0ae2…0ae3 0x18 0x0ae3…0ae4 0xb6 0x0ae4…0b1a »// ELSE LOCAL OFFSET-74,DATA-'?6?',BLANK-6,AREA-SYSTEM« 0x0b1a…0b1b 0x1a 0x0b1b…0b1c 0xb6 0x0b1c…0b52 »// IFF /?7? IFF NEP/?7? IFF NONEP/?7? #ERR 4014,03,CBL« 0x0b52…0b53 0x1a 0x0b53…0b54 0xb6 0x0b54…0b8a »// ELSE LOCAL OFFSET-15,DATA-'?7?',BLANK-5,AREA-SYSTEM« 0x0b8a…0b8b 0x1a 0x0b8b…0b8c 0xa2 0x0b8c…0bae »// IFF ?8'00'?>-1 #ERR 4015,03,CBL« 0x0bae…0baf 0x2e 0x0baf…0bb0 0xb6 0x0bb0…0be6 »// ELSE LOCAL OFFSET-13,DATA-'?8?',BLANK-2,AREA-SYSTEM« 0x0be6…0be7 0x1a 0x0be7…0be8 0xa3 0x0be8…0c0b »// IFF ?9'0040'?>0 #ERR 4006,03,CBL« 0x0c0b…0c0c 0x2d 0x0c0c…0c0d 0xb5 0x0c0d…0c42 »// ELSE LOCAL OFFSET-9,DATA-'?9?',BLANK-4,AREA-SYSTEM« 0x0c42…0c43 0x1b 0x0c43…0c44 0xbf 0x0c44…0c83 »// IFF /?10? IFF SOURCE/?10? IFF NOSOURCE/?10? #ERR 4007,03,CBL« 0x0c83…0c84 0x11 0x0c84…0c85 0xb7 0x0c85…0cbc »// ELSE LOCAL OFFSET-38,DATA-'?10?',BLANK-8,AREA-SYSTEM« 0x0cbc…0cbd 0x19 0x0cbd…0cbe 0xbd 0x0cbe…0cfb »// IFF /?11? IFF DEBUG/?11? IFF NODEBUG/?11? #ERR 4008,03,CBL« 0x0cfb…0cfc 0x13 0x0cfc…0cfd 0xb7 0x0cfd…0d34 »// ELSE LOCAL OFFSET-67,DATA-'?11?',BLANK-7,AREA-SYSTEM« 0x0d34…0d35 0x19 0x0d35…0d36 0xb9 0x0d36…0d6f »// IFF /?12? IFF MAP/?12? IFF NOMAP/?12? #ERR 4009,03,CBL« 0x0d6f…0d70 0x17 0x0d70…0d71 0xb7 0x0d71…0da8 »// ELSE LOCAL OFFSET-46,DATA-'?12?',BLANK-5,AREA-SYSTEM« 0x0da8…0da9 0x19 0x0da9…0daa 0xbf 0x0daa…0de9 »// IFF /?13? IFF OFFSET/?13? IFF NOOFFSET/?13? #ERR 4011,03,CBL« 0x0de9…0dea 0x11 0x0dea…0deb 0xb7 0x0deb…0e22 »// ELSE LOCAL OFFSET-51,DATA-'?13?',BLANK-8,AREA-SYSTEM« 0x0e22…0e23 0x19 0x0e23…0e24 0xbf 0x0e24…0e63 »// IFF /?14? IFF OBJECT/?14? IFF NOOBJECT/?14? #ERR 4019,03,CBL« 0x0e63…0e64 0x11 0x0e64…0e65 0xb7 0x0e65…0e9c »// ELSE LOCAL OFFSET-80,DATA-'?14?',BLANK-8,AREA-SYSTEM« 0x0e9c…0e9d 0x19 0x0e9d…0e9e 0xb3 0x0e9e…0ed1 »// LOCAL OFFSET-443,DATA-'?17?',BLANK-8,AREA-SYSTEM« 0x0ed1…0ed2 0x1d 0x0ed2…0ed3 0x95 0x0ed3…0ee8 »// IF /?15? GOTO P60K« 0x0ee8…0ee9 0x3b 0x0ee9…0eea 0x9b 0x0eea…0f05 »// IF DATAF1-?15? GOTO P60K« 0x0f05…0f06 0x35 0x0f06…0f07 0x9d 0x0f07…0f24 »// IFF /?15? #ERR 4012,03,CBL« 0x0f24…0f25 0x33 0x0f25…0f26 0x8c 0x0f26…0f32 »// GOTO P61K« 0x0f32…0f33 0x44 0x0f33…0f34 0x8b 0x0f34…0f3f »// TAG P60K« 0x0f3f…0f40 0x45 0x0f40…0f41 0xbc 0x0f41…0f7d »// IFF /?15? LOCAL OFFSET-88,DATA-'?15?',BLANK-8,AREA-SYSTEM« 0x0f7d…0f7e 0x14 0x0f7e…0f7f 0x8b 0x0f7f…0f8a »// TAG P61K« 0x0f8a…0f8b 0x45 0x0f8b…0f8c 0x95 0x0f8c…0fa1 »// IF /?16? GOTO P70K« 0x0fa1…0fa2 0x3b 0x0fa2…0fa3 0x9b 0x0fa3…0fbe »// IF DATAF1-?16? GOTO P70K« 0x0fbe…0fbf 0x35 0x0fbf…0fc0 0x9d 0x0fc0…0fdd »// IFF /?16? #ERR 4013,03,CBL« 0x0fdd…0fde 0x33 0x0fde…0fdf 0x8c 0x0fdf…0feb »// GOTO P71K« 0x0feb…0fec 0x44 0x0fec…0fed 0x8b 0x0fed…0ff8 »// TAG P70K« 0x0ff8…0ff9 0x45 0x0ff9…0ffa 0xbc 0x0ffa…1036 »// IFF /?16? LOCAL OFFSET-59,DATA-'?16?',BLANK-8,AREA-SYSTEM« 0x1036…1037 0x14 0x1037…1038 0x8b 0x1038…1043 »// TAG P71K« 0x1043…1044 0x45 0x1044…1045 0x95 0x1045…105a »// IF /?17? GOTO P84K« 0x105a…105b 0x3b 0x105b…105c 0x8d 0x105c…1069 »// LOAD #RPDD« 0x1069…106a 0x43 0x106a…106b 0x86 0x106b…1071 »// RUN« 0x1071…1072 0x4a 0x1072…1073 0xa7 0x1073…109a »// IF '?L'451,1'?'/'1' #ERR 4026,03,CBL« 0x109a…109b 0x29 0x109b…109c 0x8b 0x109c…10a7 »// TAG P84K« 0x10a7…10a8 0x45 0x10a8…10a9 0xbb 0x10a9…10e4 »// IFF /?18? IFF LINK/?18? IFF NOLINK/?18? #ERR 4023,03,CBL« 0x10e4…10e5 0x15 0x10e5…10e6 0xb8 0x10e6…111e »// ELSE LOCAL OFFSET-116,DATA-'?18?',BLANK-6,AREA-SYSTEM« 0x111e…111f 0x18 0x111f…1120 0xb9 0x1120…1159 »// IFF /?19? IFF MRO/?19? IFF NOMRO/?19? #ERR 4022,03,CBL« 0x1159…115a 0x17 0x115a…115b 0xb8 0x115b…1193 »// ELSE LOCAL OFFSET-111,DATA-'?19?',BLANK-5,AREA-SYSTEM« 0x1193…1194 0x18 0x1194…1195 0xae 0x1195…11c3 »// IF ?18?/NOLINK IF ?19?/MRO #ERR 4024,03,CBL« 0x11c3…11c4 0x22 0x11c4…11c5 0x81 0x11c5…11c6 »*« 0x11c6…11c7 0x4f 0x11c7…11c8 0x81 0x11c8…11c9 »*« 0x11c9…11ca 0x4f 0x11ca…11cb 0x8b 0x11cb…11d6 »// TAG COMP« 0x11d6…11d7 0x45 0x11d7…11d8 0x81 0x11d8…11d9 »*« 0x11d9…11da 0x04 0x11da…11db 0xae 0x11db…1209 »THIS BLOCK PREPARES TO CALL THE COBOL COMPILER« 0x1209…120a 0x1d 0x120a…120b 0xc5 0x120b…1250 »// MEMBER USER1-#CB#M1,USER2-#CB#M2,PROGRAM1-#CB#M1,PROGRAM2-#CB#M2,+« 0x1250…1251 0x0b 0x1251…1252 0x8f 0x1252…1261 »LIBRARY-#COBLIB« 0x1261…1262 0x41 0x1262…1263 0x97 0x1263…127a »// LIBRARY NAME-#COBLIB« 0x127a…127b 0x39 0x127b…127c 0x95 0x127c…1291 »// LOAD #CB00,#COBLIB« 0x1291…1292 0x3b 0x1292…1293 0xc7 0x1293…12da »// FILE NAME-$SOURCE,UNIT-F1,RETAIN-S,DISP-NEW,BLOCKS-?9'40'?,EXTEND-25« 0x12da…12db 0x09 0x12db…12dc 0xc5 0x12dc…1321 »// FILE NAME-$WORK,UNIT-F1,RETAIN-S,DISP-NEW,BLOCKS-?9'40'?,EXTEND-25« 0x1321…1322 0x0b 0x1322…1323 0x9a 0x1323…133d »// IFF ?4?/DSM GOTO NOTDSM« 0x133d…133e 0x36 0x133e…133f 0x81 0x133f…1340 »*« 0x1340…1341 0x09 0x1341…1342 0xb1 0x1342…1373 »IF USER REQUESTED DSM, THEN ALLOCATE WORK2, WORK3« 0x1373…1374 0x15 0x1374…1375 0xc7 0x1375…13bc »// FILE NAME-$WORK2,UNIT-F1,RETAIN-J,BLOCKS-?9'40'?,LABEL-?1?,EXTEND-25« 0x13bc…13bd 0x09 0x13bd…13be 0xc6 0x13be…1404 »// FILE NAME-$WORK3,UNIT-F1,RETAIN-S,DISP-NEW,BLOCKS-?9'40'?,EXTEND-25« 0x1404…1405 0x0a 0x1405…1406 0x8e 0x1406…1414 »// GOTO YESDSM« 0x1414…1415 0x42 0x1415…1416 0x8d 0x1416…1423 »// TAG NOTDSM« 0x1423…1424 0x43 0x1424…1425 0x81 0x1425…1426 »*« 0x1426…1427 0x09 0x1427…1428 0xb5 0x1428…145d »IF USER DID NOT REQUEST DSM, THEN ALLOCATE ONLY WORK2« 0x145d…145e 0x11 0x145e…145f 0xc6 0x145f…14a5 »// FILE NAME-$WORK2,UNIT-F1,RETAIN-S,DISP-NEW,BLOCKS-?9'40'?,EXTEND-25« 0x14a5…14a6 0x0a 0x14a6…14a7 0x8d 0x14a7…14b4 »// TAG YESDSM« 0x14b4…14b5 0x43 0x14b5…14b6 0xa6 0x14b6…14dc »// PRINTER NAME-$PRINTDM,CONTINUE-YES,« 0x14dc…14dd 0x2a 0x14dd…14de 0x8d 0x14de…14eb »// IF ?5?/CRT« 0x14eb…14ec 0x02 0x14ec…14ed 0x8a 0x14ed…14f7 »PRIORITY-0« 0x14f7…14f8 0x37 0x14f8…14f9 0x92 0x14f9…150b »// ELSE PRIORITY-1« 0x150b…150c 0x3e 0x150c…150d 0x81 0x150d…150e »*« 0x150e…150f 0x08 0x150f…1510 0xa1 0x1510…1531 »IF CONTINUE-YES ALREADY IN EFFECT« 0x1531…1532 0x02 0x1532…1533 0x9a 0x1533…154d »INDICATE Y IN LDA BYTE 106« 0x154d…154e 0x0a 0x154e…154f 0x8f 0x154f…155e »// IF ?CD?/2040« 0x155e…155f 0x02 0x155f…1560 0xa5 0x1560…1585 »LOCAL OFFSET-106,DATA-'Y',AREA-SYSTEM« 0x1585…1586 0x1a 0x1586…1587 0xa9 0x1587…15b0 »// MEMBER PROGRAM1-#CB#M1,LIBRARY-#COBLIB« 0x15b0…15b1 0x08 0x15b1…15b2 0x8e 0x15b2…15c0 »MESSAGE MEMBER« 0x15c0…15c1 0x11 0x15c1…15c2 0xa9 0x15c2…15eb »// MEMBER PROGRAM2-#CB#M2,LIBRARY-#COBLIB« 0x15eb…15ec 0x08 0x15ec…15ed 0x8e 0x15ed…15fb »MESSAGE MEMBER« 0x15fb…15fc 0x11 0x15fc…15fd 0xc7 0x15fd…1644 »// COMPILE INLIB-?2'?CLIB?'?,OUTLIB-?3'?2?'?,MRTMAX-?8'00'?,SOURCE-?1?,« 0x1644…1645 0x09 0x1645…1646 0x9a 0x1646…1660 »// IFF ?17?/ DATADCT-?17?,« 0x1660…1661 0x36 0x1661…1662 0x97 0x1662…1679 »// IF ?19?/MRO MRO-YES,« 0x1679…167a 0x39 0x167a…167b 0x9b 0x167b…1696 »// IF ?L'15,3'?/NEP NEP-YES« 0x1696…1697 0x35 0x1697…1698 0x8e 0x1698…16a6 »// ELSE NEP-NO« 0x16a6…16a7 0x42 0x16a7…16a8 0x86 0x16a8…16ae »// RUN« 0x16ae…16af 0x4a 0x16af…16b0 0xab 0x16b0…16db »// LOCAL OFFSET-107,DATA-'?CD?',AREA-SYSTEM« 0x16db…16dc 0x07 0x16dc…16dd 0x93 0x16dd…16f0 »STORE FOR LATER USE« 0x16f0…16f1 0x0b 0x16f1…16f2 0x81 0x16f2…16f3 »*« 0x16f3…16f4 0x08 0x16f4…16f5 0xaa 0x16f5…171f »IF DSM REQUESTED, DISPLAY DSM FILE VIA SEU« 0x171f…1720 0x1d 0x1720…1721 0x81 0x1721…1722 »*« 0x1722…1723 0x08 0x1723…1724 0xb4 0x1724…1758 »IF CONTINUE-YES WAS IN EFFECT PRIOR, DO NOT SHUT OFF« 0x1758…1759 0x13 0x1759…175a 0xab 0x175a…1785 »// IF ?L'106,1'?/Y IFF ?5?/CRT GOTO NCRTTAG« 0x1785…1786 0x25 0x1786…1787 0x96 0x1787…179d »// PRINTER CONTINUE-NO« 0x179d…179e 0x3a 0x179e…179f 0x8e 0x179f…17ad »// TAG NCRTTAG« 0x17ad…17ae 0x42 0x17ae…17af 0x9a 0x17af…17c9 »// LIBRARY NAME-?L'411,8'?« 0x17c9…17ca 0x36 0x17ca…17cb 0x9b 0x17cb…17e6 »// IFF ?4?/DSM GOTO SKIPMNT« 0x17e6…17e7 0x35 0x17e7…17e8 0x91 0x17e8…17f9 »// IF ?L'105,1'?/« 0x17f9…17fa 0x02 0x17fa…17fb 0x8c 0x17fb…1807 »GOTO SKIPMNT« 0x1807…1808 0x04 0x1808…1809 0xa3 0x1809…182c »IF DSM IS NOT GOOD,SKIP SOURCE VIEW« 0x182c…182d 0x02 0x182d…182e 0x81 0x182e…182f »W« 0x182f…1830 0x07 0x1830…1831 0x8e 0x1831…183f »// LOAD $MAINT« 0x183f…1840 0x42 0x1840…1841 0xae 0x1841…186f »// FILE NAME-$WORK2,UNIT-F1,RETAIN-S,LABEL-?1?« 0x186f…1870 0x22 0x1870…1871 0x86 0x1871…1877 »// RUN« 0x1877…1878 0x4a 0x1878…1879 0xad 0x1879…18a6 »// COPY FROM-DISK,TO-?2?,RETAIN-R,FILE-$WORK2« 0x18a6…18a7 0x23 0x18a7…18a8 0x86 0x18a8…18ae »// END« 0x18ae…18af 0x4a 0x18af…18b0 0x8e 0x18b0…18be »// TAG SKIPMNT« 0x18be…18bf 0x42 0x18bf…18c0 0x9b 0x18c0…18db »// IF JOBQ-YES GOTO SKIPCRT« 0x18db…18dc 0x35 0x18dc…18dd 0x9d 0x18dd…18fa »// IF EVOKED-YES GOTO SKIPCRT« 0x18fa…18fb 0x33 0x18fb…18fc 0x81 0x18fc…18fd »*« 0x18fd…18fe 0x4f 0x18fe…18ff 0x81 0x18ff…1900 »*« 0x1900…1901 0x05 0x1901…1902 0xb0 0x1902…1932 »IF CRT SPECIFIED, COPY SPOOL FILE ENTRY TO DISK,« 0x1932…1933 0x1a 0x1933…1934 0x81 0x1934…1935 »*« 0x1935…1936 0x05 0x1936…1937 0xb1 0x1937…1968 »AND THEN DISPLAY THE DISK FILE AT DISPLAY STATION« 0x1968…1969 0x19 0x1969…196a 0x81 0x196a…196b »*« 0x196b…196c 0x05 0x196c…196d 0xb6 0x196d…19a3 »THE COMPILER (#CB50) HAS PUT THE SPOOL-ID INTO THE LDA« 0x19a3…19a4 0x14 0x19a4…19a5 0x98 0x19a5…19bd »// EVALUATE P5=?L'31,7'?« 0x19bd…19be 0x38 0x19be…19bf 0x98 0x19bf…19d7 »// IFF ?5?/CRT GOTO EXIT« 0x19d7…19d8 0x38 0x19d8…19d9 0xc8 0x19d9…1a21 »************************************************************************« 0x1a21…1a22 0x08 0x1a22…1a23 0xb0 0x1a23…1a53 »* THE FOLLOWING 4 LINES ARE ADDED FOR PTF 52-545« 0x1a53…1a54 0x02 0x1a54…1a55 0x8e 0x1a55…1a63 ». THEY REPLACE« 0x1a63…1a64 0x07 0x1a64…1a65 0x81 0x1a65…1a66 »*« 0x1a66…1a67 0x08 0x1a67…1a68 0x9f 0x1a68…1a87 »* THE CALLS TO $UASF AND $UASC.« 0x1a87…1a88 0x28 0x1a88…1a89 0x81 0x1a89…1a8a »*« 0x1a8a…1a8b 0x08 0x1a8b…1a8c 0xc8 0x1a8c…1ad4 »************************************************************************« 0x1ad4…1ad5 0x08 0x1ad5…1ad6 0x8d 0x1ad6…1ae3 »// INFOMSG NO« 0x1ae3…1ae4 0x43 0x1ae4…1ae5 0xb1 0x1ae5…1b16 »// IFT DATAF1-CB?L'181,6'? DELETE CB?L'181,6'?,F1« 0x1b16…1b17 0x1f 0x1b17…1b18 0xbd 0x1b18…1b55 »// IFF ?L'181,6'?/ COPYPRT ?L'181,6'?,CB?L'181,6'?,CANCEL,CRT« 0x1b55…1b56 0x13 0x1b56…1b57 0xb0 0x1b57…1b87 »// IF DATAF1-CB?L'181,6'? DELETE CB?L'181,6'?,F1« 0x1b87…1b88 0x20 0x1b88…1b89 0x8e 0x1b89…1b97 »// TAG SKIPCRT« 0x1b97…1b98 0x42 0x1b98…1b99 0x8b 0x1b99…1ba4 »// TAG EXIT« 0x1ba4…1ba5 0x45 0x1ba5…1ba6 0x81 0x1ba6…1ba7 »*« 0x1ba7…1ba8 0x07 0x1ba8…1ba9 0x9a 0x1ba9…1bc3 »NOW RESTORE THE ?CD? VALUE« 0x1bc3…1bc4 0x2e 0x1bc4…1bc5 0x99 0x1bc5…1bde »// EVALUATE CD=?L'107,4'?« 0x1bde…1bdf 0x29 0x1bdf…1be0 0x85 0x1be0…1be5 »@@TAK« 0x1be5…1be6 0x09 0x1be6…1be7 0x89 0x1be7…1bf0 »// RETURN« 0x1bf0…1bf1 0x47 0x1bf1…1bf2 0x00 0x1bf2…1c00 c7 40 d7 f7 f0 d2 45 bc 61 61 40 c9 c6 c6 ┆G P70Ká¯// IFF┆