(George Source)
229S ...[??? CHARMOVE SECT CENT FGN 21 DOC 22FL [ BILL IZATT : CENT 22^= [ PARAMETER PASSING AND ANALYSING MACROS 23DW [ 23YG #MAC CHARMOVE 24D6 [ MOVE ANY NUMBER OF CHARS. NO OF CHARS IN %B. ADDRESSES IN %A, %A+1 24XQ NGX 0 %B [ %B MUST NOT BE CHANGED 25CB BPZ 0 MXEPY [ %B MUST BE >0 25X2 NGX 0 0 26BL MXLPZ SBN 0 512 26W= BNG 0 MXJPX 27*W MVCH %A 0 [ %A IS NOT X0 OR X7 27TG BZE 0 MXEPY [ EXIT IF NO 'REMAINDER' 28*6 BRN MXLPZ 28SQ MXJPX ADN 0 512 29#B SMO 0 29S2 MVCH %A 0 2=?L MXEPY 2=R= #NOR 2?34 ...[??? STOREN SECT CENT FGN 21 DOC 2?=W [ 2?QG #MAC STOREN 2#=6 #STR %A 2#PQ LDN 0 %A 2*9B #STR %A 2*P2 #SKI 2B8L NGN 0 1 2BN= STO 0 %B(2) 2C7W #NOR 2CCN ...[??? STOREX SECT CENT FGN 21 DOC 2CMG # 2D76 #MAC STOREX 2DLQ #STR %A 2F6B LDX 0 %A 2FL2 #STR %A 2G5L #SKI 2GK= NGN 0 1 2H4W STO 0 %B(2) 2HJG #NOR 2HS# ...[??? STOREG SECT CENT FGN 21 DOC 2J46 # 2JHQ #MAC STOREG 2K3B LDX 0 %A 2KH2 STO 0 %C(2) 2L2L #STR %B 2LG= LDX 0 %B 2L^W #STR %B 2MFG #SKI 2M^6 LDX 0 1+%A 2NDQ STO 0 %C+1(2) 2NYB #STR %B 2PD2 LDX 0 1+%B 2PXL #STR %B 2QC= #SKI 2QWW LDX 0 2+%A 2RBG STO 0 %C+2(2) 2RW6 #NOR 2S5Y ...[??? PARALYSE SECT CENT FGN 21 DOC 2S*Q # 2STB #MAC PARALYSE 2T*2 LDX 2 FX2 2TSL STOREN %A,EXT+4 2W#= STOREX %B,EXT+2 2WRW STOREX %C,EXT+3 2X?G DOWN ANALYSE,1 2XR6 #NOR 2Y2Y ...[??? PARALYSX SECT CENT FGN 21 DOC 2Y=Q # 2YQB #MAC PARALYSX 2^=2 LDX 2 FX2 2^PL STOREX %A,EXT+4 329= STOREX %B,EXT+2 32NW STOREX %C,EXT+3 338G DOWN ANALYSE,1 33N6 #NOR 33XY ...[??? PARAPASS SECT CENT FGN 21 DOC 347Q # 34MB #MAC PARAPASS 3572 LDX 2 FX2 35LL STOREX %A,EXT+2 366= DOWN PARAM,5 36KW #NOR 36TN ...[??? SPARAPAS SECT CENT FGN 21 DOC 375G # 37K6 #MAC SPARAPAS 384Q LDX 2 FX2 38JB STOREX %A,EXT+2 3942 DOWN PARAM,15 39HL #NOR 39RD ...[??? PARANOT SECT CENT FGN 21 DOC 3=3= # 3=GW #MAC PARANOT 3?2G LDX 2 FX2 3?G6 STOREN %A,EXT+3 3?^Q STOREX %B,EXT+2 3#FB DOWN PARAM,3 3#^2 #NOR 3*8S ...[??? SPARANOT SECT CENT FGN 21 DOC 3*DL # 3*Y= #MAC SPARANOT 3BCW LDX 2 FX2 3BXG STOREN %A,EXT+3 3CC6 STOREX %B,EXT+2 3CWQ DOWN PARAM,16 3DBB #NOR 3DL8 ...[??? PARANOTX SECT CENT FGN 21 DOC 3DW2 # 3F*L #MAC PARANOTX 3FT= LDX 2 FX2 3G#W STOREX %A,EXT+3 3GSG STOREX %B,EXT+2 3H#6 DOWN PARAM,3 3HRQ #NOR 3J3J ...[??? SPARANOX SECT CENT FGN 21 DOC 3J?B # 3JR2 #MAC SPARANOX 3K=L LDX 2 FX2 3KQ= STOREX %A,EXT+3 3L9W STOREX %B,EXT+2 3LPG DOWN PARAM,16 3M96 #NOR 3MDY ...[??? PARABEG SECT CENT FGN 21 DOC 3MNQ # 3N8B #MAC PARABEG 3NN2 LDX 2 FX2 3P7L STOREN %A,EXT+3 3PM= STOREG %B,%C,EXT+4 3Q6W STOREX %D,EXT+2 3QLG STOREN %E,EXT 3R66 DOWN PARAM,4 3RKQ #NOR 3RTJ ...[??? SPARABEG SECT CENT FGN 21 DOC 3S5B # 3SK2 #MAC SPARABEG 3T4L LDX 2 FX2 3TJ= STOREN %A,EXT+3 3W3W STOREG %B,%C,EXT+4 3WHG STOREX %D,EXT+2 3X36 STOREN %E,EXT 3XGQ DOWN PARAM,14 3Y2B #NOR 3Y=8 ...[??? PARABEGX SECT CENT FGN 21 DOC 3YG2 # 3Y^L #MAC PARABEGX 3^F= LDX 2 FX2 3^YW STOREX %A,EXT+3 42DG STOREG %B,%C,EXT+4 42Y6 STOREX %D,EXT+2 43CQ STOREN %E,EXT 43XB DOWN PARAM,4 44C2 #NOR 44LS ...[??? SPARABEX SECT CENT FGN 21 DOC 44WL # 45B= #MAC SPARABEX 45TW LDX 2 FX2 46*G STOREX %A,EXT+3 46T6 STOREG %B,%C,EXT+4 47#Q STOREX %D,EXT+2 47SB STOREN %E,EXT 48#2 DOWN PARAM,14 48RL #NOR 493D ...[??? PARANEXT SECT CENT FGN 21 DOC 49?= # 49QW #MAC PARANEXT 4==G LDX 2 FX2 4=Q6 STOREN %A,EXT+4 4?9Q STOREX %B,EXT+2 4?PB STOREX %C,EXT+3 4#92 DOWN ANALYSE,2 4#NL #NOR 4#YD ...[??? SPARANXT SECT CENT FGN 21 DOC 4*8= # 4*MW #MAC SPARANXT 4B7G LDX 2 FX2 4BM6 STOREN %A,EXT+4 4C6Q STOREX %B,EXT+2 4CLB STOREX %C,EXT+3 4D62 DOWN ANALYSE,3 4DKL #NOR 4DTD ...[??? PARANXTX SECT CENT FGN 21 DOC 4F5= # 4FJW #MAC PARANXTX 4G4G LDX 2 FX2 4GJ6 STOREX %A,EXT+4 4H3Q STOREX %B,EXT+2 4HHB STOREX %C,EXT+3 4J32 DOWN ANALYSE,2 4JGL #NOR 4JQD ...[??? SPARNXTX SECT CENT FGN 21 DOC 4K2= # 4KFW #MAC SPARNXTX 4K^G LDX 2 FX2 4LF6 STOREX %A,EXT+4 4LYQ STOREX %B,EXT+2 4MDB STOREX %C,EXT+3 4MY2 DOWN ANALYSE,3 4NCL #NOR 4NMD ...[??? PARATYPE SECT CENT FGN 21 DOC 4NX= # 4PBW #MAC PARATYPE 4PWG LDX 2 FX2 4QB6 STOREN %A,EXT+3 4QTQ STOREX %B,EXT+2 4R*B DOWN PARAM,8 4RT2 #NOR 4S4S ...[??? PARANUMB SECT CENT FGN 21 DOC 4S#L # 4SS= #MAC PARANUMB 4T?W LDX 2 FX2 4TRG STOREN %A,EXT+3 4W?6 STOREX %B,EXT+2 4WQQ DOWN PARAM,9 4X=B #NOR 4XG8 ...[??? PARAREST SECT CENT FGN 21 DOC 4XQ2 # 4Y9L #MAC PARAREST 4YP= ... DOWN PARAMB,3 4^8W #NOR 4^DN ...[??? PAPARAM SECT CENT FGN 21 DOC 4^NG # 5286 #MAC PAPARAM 52MQ ... DOWN PARAMB,2 537B BRN %A 53C8 ... BRN %B 53M2 #NOR 53WS ...[??? COMPACT SECT CENT FGN 21 DOC 546L # 54L= #MAC COMPACT 555W ... DOWN PARAMB,1 55KG #NOR 55T# ...[??? PARAMOVE SECT CENT FGN 21 DOC 5656 # 56JQ #MAC PARAMOVE 574B LDX 0 %A 57J2 LDX 2 FX2 583L STO 0 ACOMMUNE1(2) 58H= STOREX %B,ACOMMUNE2 592W ... DOWN PARAMB,5 59GG #NOR 59Q# ...[??? PARABRAC SECT CENT FGN 21 DOC 5=26 # 5=FQ #MAC PARABRAC 5=^B DOWN PARAMA,1 5?F2 #NOR 5?NS ...[??? PARAFREE SECT CENT FGN 21 DOC 5?YL # 5#D= #MAC PARAFREE 5#XW #STR %A 5*CG LDX 0 %A 5*X6 #STR %A 5BBQ #SKI 5BWB LDN 0 0 5CB2 SMO FX2 5CTL STO 0 EXT+3 5D*= DOWN PARAM,7 5DSW #NOR 5F4N ...[??? PARASTRI SECT CENT FGN 21 DOC 5F#G # 5FS6 [ PARASTRING MACRO-TO PASS A CHARACTER STRING WITHIN A 5G?Q [ BLOCK TO A CPB/CMULTI BLOCK. 5GRB # 5H?2 #MAC PARASTRING 5HQL LDX 0 %A 5J== LDX 2 FX2 5JPW STO 0 ACOMMUNE1(2) 5K9G LDX 0 %B 5KP6 STO 0 ACOMMUNE2(2) 5L8Q #STR %D 5LNB LDN 0 %C+%D 5M82 #STR %D 5MML #SKI 5N7= LDN 0 %C 5NLW STO 0 ACOMMUNE3(2) 5P6G DOWN PARAMA,2 5PL6 #NOR 5PTY ...[??? PARALAS SECT CENT FGN 21 DOC 5Q5Q # 5QKB [ TO EXTRACT ALL THE PARAMETERS FROM A CPB/CALAS AND MOVE THEM TO 5R52 [ AN ADATA/CSTORE AS A CHARACTER STRING WITH COMMAS BETWEEN THE 5RJL [ PARAMETERS. 5S4= # 5SHW #MAC PARALAS 5T3G DOWN PARAMA,3 5TH6 #NOR 5TQY ...[??? PARFNAME SECT CENT FGN 21 DOC 5W2Q # 5WGB [ TO TAKE A PARAM IN A FILE/FNAME AND SET IN A CPB/CMULTI 5X22 # 5XFL #MAC PARFNAME 5X^= DOWN PARAMA,4 5YDW #NOR 5YNN ...[??? PARUNACC SECT CENT FGN 21 DOC 5YYG # 5^D6 [ TWO MACROS TO GET THE FIRST UNACCESSED PARAMETER IN A CPB/CALAS 5^XQ [ BLOCK USING THE PARAPASS POINTER 62CB # 62X2 #MAC PARUNACC 63BL LDX 2 FX2 63W= STOREN %A,EXT+2 64*W DOWN PARAM,20 64TG #NOR 655# ...[??? SPARUNAC SECT CENT FGN 21 DOC 65*6 # 65SQ #MAC SPARUNAC 66#B LDX 2 FX2 66S2 STOREN %A,EXT+2 67?L DOWN PARAM,19 67R= #NOR 6834 ...[??? PTYPE SECT CENT FGN 21 DOC 68=W #MAC PTYPE 68QG LDX 2 FX2 69=6 LDN 0 %A [BLOCK TYPE 69PQ ADN 0 %B [BLOCK SUBTYPE 6=9B STO 0 ACOMMUNE2(2) 6=P2 LDX 0 %C [ADDRESS OF BLOCK 6?8L STO 0 ACOMMUNE3(2) 6?N= LDN 0 %D [INTERNAL ADDRESS OF 1ST CHAR 6#7W STO 0 ACOMMUNE4(2) 6#MG #STR %F 6*76 ( 6*LQ LDN 0 %F 6B6B STO 0 ACOMMUNE6(2) 6BL2 ) 6C5L #STR %F 6CK= #SKI 6D4W ( 6DJG SBN 0 1 6F46 STO 0 ACOMMUNE6(2) 6FHQ ) 6G3B LDX 0 %E [LENGTH OF STRING 6GH2 STO 0 ACOMMUNE5(2) 6H2L PHOTO 0 6HG= STO 0 ACOMMUNE1(2) 6H^W DOWN ANALYSEA,2 6JFG #NOR 6JP# ...[??? ERROR SECT CENT FGN 21 DOC 6J^6 # 6KDQ [ ERROR REPORTING MACROS 6KYB # 6LD2 #MAC ERROR 6LXL #STR %A 6MC= ( 6MWW SMO FX1 6NBG LDX 0 MAZBYCXDWE 6NW6 BRN MZAYBXCWDE 6P*Q MAZBYCXDWE +%A 6PTB MZAYBXCWDE 6Q*2 ) 6QSL #STR %A 6R#= #SKI 6RRW NGN 0 1 6S?G SMO FX2 6SR6 STO 0 EXT 6T=Q #STR %A 6TQB ( 6W=2 #STR %B 6WPL ( 6X9= SMO FX1 6XNW LDX 0 MEWDXCYBZAM 6Y8G BRN MEDWCXBYAZM 6YN6 MEWDXCYBZAM +%B 6^7Q MEDWCXBYAZM 6^MB ) 7272 #STR %B 72LL #SKI 736= NGN 0 1 73KW SMO FX2 745G STO 0 EXT+1 74K6 ) 754Q DOWN ERROR,1 75JB #NOR 75S8 ...[??? ERRORX SECT CENT FGN 21 DOC 7642 #MAC ERRORX 76HL #STR %A 773= LDX 0 %A 77GW #STR %A 782G #SKI 78G6 NGN 0 1 78^Q SMO FX2 79FB STO 0 EXT 79^2 #STR %A 7=DL ( 7=Y= #STR %B 7?CW LDX 0 %B 7?XG #STR %B 7#C6 #SKI 7#WQ NGN 0 1 7*BB SMO FX2 7*W2 STO 0 EXT+1 7B*L ) 7BT= DOWN ERROR,1 7C#W #NOR 7CJN ...[??? COMERR SECT CENT FGN 21 DOC 7CSG #MAC COMERR 7D#6 #STR %A 7DRQ ( 7F?B CALL 1 MCOMERRQRT 7FR2 +%A 7G=L #STR %B 7GQ= +%B 7H9W #STR %B 7HPG #SKI 7J96 -1 7JNQ ) 7K8B #STR %A 7KN2 #SKI 7L7L GEOERR 1,NOMESSIN 7LM= #OPT MCOMERRQRT=0? 7M6W #SKI MCOMERRQRT$0?<1$1 7MLG COMERRX 0(1),1(1) 7N66 #NOR 7N*Y ...[??? COMERRX SECT CENT FGN 21 DOC 7NKQ #MAC COMERRX 7P5B #STR %A 7PK2 LDX 0 %A 7Q4L #STR %A 7QJ= #SKI 7R3W NGN 0 1 7RHG SMO FX2 7S36 STO 0 EXT 7SGQ #STR %A 7T2B ( 7TG2 #STR %B 7T^L LDX 0 %B 7WF= #STR %B 7WYW #SKI 7XDG NGN 0 1 7XY6 SMO FX2 7YCQ STO 0 EXT+1 7YXB ) 7^C2 ACROSS ERROR,2 7^WL #NOR 863D ...[??? ISSUJOB SECT CENT FGN 21 DOC 86?= #MAC ISSUJOB 86QW LDN 7 %A 87=G DOWN REDON,2 87Q6 #NOR 87^Y ...[??? ISSUJOBN SECT CENT FGN 21 DOC 889Q # 88PB [ MACRO TO DO THE SAME AS ISSUJOB BUT WITHOUT SETTING THE SYSTEM 8992 [ ISSUED BIT 89NL # 8=8= #MAC ISSUJOBN 8=MW LDN 7 %A 8?7G DOWN REDON,3 8?M6 #NOR 8?WY ...[??? ISSUCOM SECT CENT FGN 21 DOC 8#6Q #MAC ISSUCOM 8#LB ... DOWN COMPROA,3 8*62 BRN %A 8*KL #NOR 8*TD ...[??? ISSUCOMJ SECT CENT FGN 21 DOC 8B5= #MAC ISSUCOMJ 8BJW ... ACROSS COMPROA,7 8C4G #NOR 8C## ...[??? ISSUCOMB SECT CENT FGN 21 DOC 8CJ6 #MAC ISSUCOMB 8D3Q ... DOWN COMPROA,9 8DHB BRN %A 8F32 BRN %B 8FGL #NOR 8FQD ...[??? ISSUCOML SECT CENT FGN 21 DOC 8G2= #MAC ISSUCOML 8GFW SMO FX2 8G^G LDX 1 CPLEV 8HF6 ORX 1 GSIGN 8HYQ SMO FX2 8JDB ORS 1 EXT+11 8JY2 ... DOWN COMPROA,3 8KCL BRN %A 8KX= #NOR 8L74 ...[??? TERROR SECT CENT FGN 21 DOC 8LBW #MAC TERROR 8LWG SMO FX2 8MB6 LDX 0 EXT+8 8MTQ BNG 0 %A 8N*B #NOR 8NK8 ...[??? UNSETERR SECT CENT FGN 21 DOC 8NT2 #MAC UNSETERR 8P#L SMO FX2 8PS= STOZ EXT+8 8Q?W #NOR 8QHN ...[??? SETERR SECT CENT FGN 21 DOC 8QRG #MAC SETERR 8R?6 LDX 0 GSIGN 8RQQ SMO FX2 8S=B ORS 0 EXT+8 8SQ2 #NOR 8S^S ...[??? CHECKLFN SECT CENT FGN 21 DOC 8T9L #MAC CHECKLFN [CHECK FOR LOCAL FILE NAME 8TP= DOWN LOCALNAM,1 8W8W BRN %A 8WNG BRN %B 8X86 #NOR 8XCY ...[??? CHEKLFN2 SECT CENT FGN 21 DOC 8XMQ #MAC CHEKLFN2 8Y7B #STR %C 8YM2 #SKI 8^6L MHUNT 3,CPB,CUNI 8^L= #STR %C 925W ( 92KG #SKI %C-3 9356 LDX 3 %C 93JQ ) 944B LDX 0 ANUM(3) 94J2 BNG 0 %A 953L BZE 0 %A 95H= SBN 0 13 962W BPZ 0 %B 96GG LDCH 0 APARA(3) 9726 SBN 0 #41 97FQ BNG 0 %B 97^B #NOR 9898 ...[??? ADDJOB SECT CENT FGN 21 DOC 98F2 #MAC ADDJOB 98YL DOWN ADDJOB,1 99D= BRN %A 99XW BRN %B 9=CG #NOR 9=M# ...[??? ADDJOBJ SECT CENT FGN 21 DOC 9=X6 #MAC ADDJOBJ 9?BQ DOWN ADDJOB,5 9?WB BRN %A 9#B2 BRN %B 9#TL #NOR 9#W= ...[ 9#WW ...#SKI CASKI8214 9#XG ...( 9#Y6 ...[??? ADDJOBW SECT CENT 9#YQ ...[ THIS MACRO IS USED TO IMPLEMENT DS8214 9#^B ...#MAC ADDJOBW 9*22 ... DOWN ADDJOB,11 9*2L ... BRN %A 9*3= ... BRN %B 9*3W ...#NOR 9*4G ...) 9*5D ...[??? SUBJOB SECT CENT FGN 21 DOC 9**= #MAC SUBJOB 9*SW DOWN ADDJOB,2 9B#G #NOR 9BJ# ...[??? SUBJOBJ SECT CENT FGN 21 DOC 9BS6 #MAC SUBJOBJ 9C?Q DOWN ADDJOB,7 9CRB #NOR 9D38 ...[??? USERJOB SECT CENT FGN 21 DOC 9D?2 #MAC USERJOB 9DQL SETNCORE 3,3,FILE,ADICT 9F== CJOBLOCK 2 9FPW ADN 2 JUSER 9G9G ADN 3 A1 9GP6 MOVE 2 3 9H8Q #NOR 9W8# ...[??? ISITJOB SECT CENT FGN 21 DOC 9WD6 # 9WXQ [ THIS MACRO DETERMINES WAETHER THE INPUT COMMAND WAS INTERNALLY 9XCB [ ISSUED BY THE JOB COMMAND 9XX2 #MAC ISITJOB 9YBL LDCT 0 #40 9YW= SMO FX2 9^*W ANDX 0 EXT+11 9^TG BZE 0 %A =2*6 #NOR =534 ...[??? EASYGAP SECT CENT FGN 21 DOC =5=W #MAC EASYGAP =5QG #DEF 21?=0?+0>200 =6=6 #STR %A =6PQ #SKI =79B #DEF 22?=K6ALLGEO =7P2 #STR %A =88L #DEF 22?=%A =8N= #GAP 4*22?-250*21?+0/15/22?+0?+0<1023-0? =97W #NOR =9CN ...[??? BICE SECT CENT FGN 21 DOC =9MG [ THIS MACRO ASSEMBLES THE ENTRY FOR EACH COMMAND IN THE ==76 [ BUILT IN COMMAND DICTIONARY. ==LQ #MAC BICE =?6B 4H%A [ABBREVIATED VERSION OF VERB =?L2 ... 12H%B [FULL VERSION OF VERB =#5L %C [CONTEXT BITS =#K= PAIR %D,%E [LINK PAIR TO COMMAND CHAPTER =*4W #NOR =*#N ...[??? EXTRACOM SECT CENT FGN 21 DOC =*JG # =B46 [ THIS RESTORE-TIME MACRO ALLOWS GEORGE PROGRAMMERS =BHQ [ TO INCORPORATE AN EXTRA BUILT-IN COMMAND, ZZ =C3B # =CH2 #MAC EXTRACOM =D2L #MEN VCLASTWO =DG= #TRA K98VCLASTWO =D^W BICE ZZ,ZZ,+0,%A,%B =FFG #END =F^6 #NOR =G8Y ...[??? CLEANUP SECT CENT FGN 21 DOC =GDQ # =GYB [ THIS MACRO DELETES ALL CP LEVELS UPTO A CERTAIN LEVEL. =HD2 [ THIS LEVEL IS SPECIFIED AS A PARAMETER OF THE MACRO =HXL #MAC CLEANUP =JC= LDX 2 FX2 =JWW STOZ EXT+3(2) =KBG LDN 1 %B =KW6 DCH 1 EXT+3(2) =L*Q LDX 1 %A =LTB ORS 1 EXT+3(2) =M*2 DOWN CLEAN,1 =MSL #NOR =N4D ...[??? CLEANX SECT CENT FGN 21 DOC =N#= [ THIS MACRO IS THE SAME AS CLEANUP,EXCEPT THAT THE 2ND PARAM IS =NRW [ ADDRESS CONTAINING AMOUNT TO BE CLEARED OUT =P?G # =PR6 #MAC CLEANX =Q=Q LDX 2 FX2 =QQB STOZ EXT+3(2) =R=2 #SKI %B-1 =RPL LDX 1 %B =S9= DCH 1 EXT+3(2) =SNW LDX 1 %A =T8G ORS 1 EXT+3(2) =TN6 DOWN CLEAN,1 =W7Q #NOR =WCJ ...[??? CLEANEND SECT CENT FGN 21 DOC =WMB [ =X72 [ THIS MACRO CLEANS UP TO LEVEL ZERO (USED IN LOGOUT) =XLL [ AND SETS CPLEV ACCORDINGLY. =Y6= #MAC CLEANEND =YKW LDX 2 FX2 =^5G STOZ CPLEV(2) =^K6 LDCT 0 #010 ?24Q STO 0 EXT+3(2) ?2JB DOWN CLEAN,1 ?2MG ... MHUNTW 2,CPB,CALAS ?2QL ... NGN 0 1 ?2TQ ... STO 0 APARAFIR(2) ?2YW ... LDX 2 FX2 ?342 #NOR ?3?S ...[??? UNIFREE SECT CENT FGN 21 DOC ?3HL [ THIS MACRO FREES ALL /CUNI BLOCKS UPTO FIRST /CALAS BLOCK ?43= #MAC UNIFREE ?4GW LDX 2 FX2 ?52G MUNIFREE1 ?5G6 LDX 2 FPTR(2) ?5^Q LDX 0 ATYPE(2) ?6FB SRL 0 12 [GET BLOCK TYPE ?6^2 LDN 1 CPB+CUNI ?7DL TXU 1 0 ?7Y= BCS MUNIFREE2 ?8CW FREECORE 2 [FREE /CUNI ?8XG BRN MUNIFREE1 ?9C6 MUNIFREE2 ?9WQ ERN 0 CPB ?=BB BNZ 0 MUNIFREE1 ?=W2 LDX 1 FX1 ??*L LDX 2 FX2 ??T= #NOR ?#54 ...[??? ADDRECS SECT CENT FGN 21 DOC ?##W [ THIS MACRO ADDS A GIVEN NO. TO THE COUNT OF RECORDS READ IN THE F ?#SG #MAC ADDRECS ?*#6 MHUNTW %A,CPB,CALAS ?*RQ SLL %B 6 ?B?B ADS %B CPBFSD(%A) ?BR2 #NOR ?C2S ...[??? ADDREC SECT CENT FGN 21 DOC ?C=L [ THIS MACRO ADDS 1 TO THE COUNT OF RECORDS READ IN THE FILE ?CQ= #MAC ADDREC ?D9W LDN %B #100 ?DPG ADS %B CPBFSD(%A) ?F96 #NOR ?FDY ...[??? SUBREC SECT CENT FGN 21 DOC ?FNQ [ THIS MACRO SUBTRACTS 1 FROM THE COUNT OF RECORDS READ ?G8B #MAC SUBREC ?GN2 LDN %B #100 ?H7L SBS %B CPBFSD(%A) ?HM= #NOR ?HX4 ...[??? TESTINBR SECT CENT FGN 21 DOC ?J6W [ THIS MACRO TESTS FOR THE SUPPRESSION OF BREAK-IN AND ?JLG [ JUMPS TO THE LABEL %A IF THE INHIBIT BRK-IN BIT IS SET ?K66 #MAC TESTINBRK ?KKQ LDCT 0 #040 ?L5B SMO FX2 ?LK2 ANDX 0 JOBEVENTS ?M4L BNZ 0 %A ?MJ= #NOR ?N32 ...[??? JANAL SECT CENT FGN 21 DOC ?NFQ ...# ?NYG ...[ THIS MACRO JUMPS TO %A IF THE COMMAND PROCESSOR IS STILL ?PC= ...[ PROCESSING THE COMMAND. ?PW2 ...[ I.E. STILL DOING PARAMETER SUBSTITUTION. ?Q#Q ...#MAC JANAL ?QRG ... JBS %A,FX2,EXCOMAN ?R== ...#NOR ?RP4 ...[??? MARKAXES SECT CENT FGN 21 DOC ?RYW [ MACRO FOR MARKING ALL PARAMETERS AS ACCESSED ?SDG #MAC MARKAXES ?SY6 #STR %A ?TCQ #SKI ?TXB ... DOWN PARAMB,4 ?WC2 #STR %A ?WWL ( ?XB= BRN MARK3 ?XTW MARK4 -1 ?Y*G MARK3 ?YT6 MHUNT 2,CPB,CALAS ?^#Q ADN 2 APARAFIR ?^SB LDX 0 %A #2#2 BZE 0 MARK2 #2RL MARK1 #3?= LDX 1 0(2) #3QW SMO FX1 #4=G TXU 1 MARK4 #4Q6 BCC MARK2 #59Q ORX 1 GSIGN #5PB STO 1 0(2) #692 ANDN 1 #7777 #6NL ADN 1 7 #78= SRL 1 2 #7MW ADX 2 1 #87G BCT 0 MARK1 #8M6 MARK2 #96Q LDX 1 FX1 #9LB LDX 2 FX2 #=62 ) #=KL #NOR #=TD ...[??? ENDCOM SECT CENT FGN 21 DOC #?5= # #?JW # ##4G [ MK7 MACROS FOR RE-ENTRY TO COMMAND PROCESSOR ##J6 # #*3Q #MAC ENDCOM [END OF COMMAND #*HB ACROSS COMPRO,11 #B32 #NOR #B=S ...[??? COMBRKIN SECT CENT FGN 21 DOC #BGL #MAC COMBRKIN [COMMAND BROKEN-IN #C2= ACROSS COMPRO,13 #CFW #NOR #CPN ...[??? ABANDCOM SECT CENT FGN 21 DOC #C^G #MAC ABANDCOM [ABANDON DUE TO COMMAND BROKEN-IN #DF6 [DURING PRINT,LISTFILE,INPUT #DYQ ACROSS COMPRO,14 #FDB #NOR #FN8 ...[??? ENDREC SECT CENT FGN 21 DOC #FY2 #MAC ENDREC [RETURN TO CP - MULTILINERY #GCL ACROSS COMPRO,12 #GX= #NOR #H=8 ...[??? ENDIFREC SECT CENT FGN 21 DOC #HK6 ...#MAC ENDIFREC [RETURN TO CP - 'IF' #HY4 ... ACROSS COMPRO,16 #J?2 ...#NOR #JKY ...[??? PROGBRKI SECT CENT FGN 21 DOC #JTQ #MAC PROGBRKIN [OBJECT PROGRAM EVENT BROKEN-IN #K*B ACROSS COMPRO,5 #KT2 #NOR #L4S ...[??? COMPROLI SECT CENT FGN 21 DOC #L#L #MAC COMPROLINK [LINK PAIR #LS= PAIR COMPRO,5 #M?W #NOR #MHN ...[??? RESTERBI SECT CENT FGN 21 DOC #MRG # #N?6 [ ERROR BIT IS SET IF ALREADY SET OR IF SAVED ERROR BIT IS SET #NQQ #MAC RESTERBIT [ RESTERBIT #P=B LDX 2 FX2 #PQ2 LDX 0 EXT+8(2) #Q9L SLL 0 1 #QP= ORS 0 EXT+8(2) #R8W #NOR #RDN ...[??? SAVERBIT SECT CENT FGN 21 DOC #RNG [ SAVERBIT SAVES ERROR BIT (B0 OF EXT+8) IN A SAVE AREA #S86 [ (B1 OF EXT+8) BEFORE INTERNALLY ISSUING ANOTHER #SMQ [ COMMAND #T7B [ A PRIVATE MACRO FOR COMPRO #TM2 #MAC SAVERBIT #W6L LDX 0 EXT+8(2) #WL= SRL 0 1 #X5W STO 0 EXT+8(2) #XKG #NOR #XT# ...[??? ISSUERR SECT CENT FGN 21 DOC #Y56 # #YJQ #MAC ISSUERR [RETURN TO CP-ERROR IN INT ISS COM. #^4B RESTERBIT #^J2 UP *23L #NOR *2?D ...[??? ISSUFIN SECT CENT FGN 21 DOC *2H= #MAC ISSUFIN [RETURN TO CP-AFTER INT ISS. COMMAND *32W RESTERBIT *3GG UPPLUS 1 *426 #NOR *49Y ...[??? ISSUFINB SECT CENT FGN 21 DOC *4FQ [ ISSUFIN TYPE MACRO - RETURN AFTER ISSUCOMB *4^B #MAC ISSUFINB *5F2 RESTERBIT *5YL UPPLUS 2 *6D= #NOR *6N4 ...[??? ISSUBRK SECT CENT FGN 21 DOC *6XW #MAC ISSUBRK *7CG RESTERBIT *7M# ... UNSETBIT 2,JOBEVENTS(2) *7X6 UPPLUS 1 *8BQ #NOR *8LJ ...[??? JOBLOCK SECT CENT FGN 21 DOC *8WB # *9B2 # *9TL # *=*= # *=SW #MAC JOBLOCK *?#G #STR %A,2 *?S6 LDX 2 %A *#?Q LDN 1 BJOBQ *#RB MJOBLOCK2 **?2 LDX 1 FPTR(1) **QL BXE 1 CXJO,MJOBLOCK1 *B== BXU 2 JOBNUM(1),MJOBLOCK2 *BPW BRN MJOBLOCK3 *C9G MJOBLOCK1 *CP6 NGN 1 1 *D8Q MJOBLOCK3 *DNB #STR %B,1 *F82 ( *FML STO 1 %B *G7= LDX 1 FX1 *GLW ) *H6G #STR %B,2 *HL6 LDX 2 FX2 *J5Q #NOR *J*J ...[??? CJOBLOCK SECT CENT FGN 21 DOC *JKB # *K52 # *KJL #MAC CJOBLOCK *L4= FJOCA 1,FX2 *LHW #STR %A,1 *M3G ( *MH6 STO 1 %A *N2Q LDX 1 FX1 *NGB ) *P22 #STR %A,2 *PFL LDX 2 FX2 *P^= #NOR *Q94 ...[??? JOBLOCKC SECT CENT FGN 21 DOC *QDW # *QYG # *RD6 #MAC JOBLOCKC *RXQ SMO FX2 *SCB LDX 2 JOBNO *SX2 LDN 1 BJOBQ *TBL MJOBLOCKC2 *TW= LDX 1 FPTR(1) *W*W #SKI K6ALLGEO>0 *WTG BXE 1 CXJO,MJOBLOCKC1 *X*6 BXU 2 JOBNUM(1),MJOBLOCKC2 *XSQ #STR %A,1 *Y#B ( *YS2 STO 1 %A *^?L LDX 1 FX1 *^R= ) B2=W #STR %A,2 B2QG LDX 2 FX2 B3=6 #SKI K6ALLGEO>0 B3PQ ( B49B BRN MJOBLOCKC3 B4P2 MJOBLOCKC1 B58L GEOERR 1,NOJOBLOK B5N= MJOBLOCKC3 B67W ) B6MG #NOR B6X# ...[??? TEMPQ SECT CENT FGN 21 DOC B776 [ THE FOLLOWING MACRO IS TO SET UP AN ENTRY IN TEMP. HLSQ FOR B7LQ [ A PARTICULAR JOB B86B #MAC TEMPQ B8L2 SETNCORE AHLS,2,ADATA,JUNSWAP B95L STOZ A1(2) B9K= LDN 0 A1(2) B=4W LDN 1 A1+1(2) B=JG MOVE 0 AHLS-1 B?46 STO %B HLSJONO(2) B?HQ ORS %A HLSYONQ(2) B#3B ORS %A HLSWAIT B#H2 FJOCA 1,FX2,N B*2L LDX 0 JMISC(1) B*G= STO 0 HLSSTAT(2) B*^W LDX 1 2 BBFG LDN 2 BHTEMP BB^6 LDX 2 BPTR(2) BCDQ CHAIN 1,2 BCYB FON #33 BDD2 #NOR BDMS ...[??? ALASHUNT SECT CENT FGN 21 DOC BDXL [ THE FOLLOWING MACRO IS TO SEARCH FOR THE CPB/CALAS BLOCK BFC= [ AT COMMAND PROCESSOR LEVEL ONE BFWW # BGBG #MAC ALASHUNT BGW6 MHUNTW %A,CPB,CALAS BH*Q MALAS1 BHTB LDEX %B CPBCPLEV(%A) BJ*2 ERN %B 1 BJSL BZE %B MALAS2 BK#= HUNT2 %A,CPB,CALAS BKRW BRN MALAS1 BL?G MALAS2 BLR6 #NOR BM=Q ...[??? XFBDSKPA SECT CENT FGN 21 DOC C22G #MAC XFBDSKPA C2G6 #DEF 21?=34?+0?+0]� C2^Q #SKI 21?<1$1 C3FB ( C3^2 ...#CONSOLEOUT UNKNOWN COMMAND '%A' IN %B MACRO C4DL ...! UNKNOWN COMMAND '%A' IN %B MACRO C4Y= ) C5CW #SKI 21? C5XG ( C6C6 #SKI 21?-20? C6WQ ( C7BB #DEF 0?=0?+BICESIZE C7W2 ... XFBDSKPA %A,%B C8*L ) C8T= ) C9#W #NOR C9JN ...[??? FORBID SECT CENT FGN 21 DOC C9SG #MAC FORBID [FORBID COMMAND %A IN CONTEXTS %B,%C,%D,%E,%F,%G,%H,%I,%J C=#6 #MEN VERBCLAS C=RQ 4H%A C??B #DEF 0?=0 C?R2 #DEF 20?=34?+0?+0]� [CONVERT %A TO BINARY C#=L 8HVERBCLAS C#Q= #SKI 20?/#1000000<14-14 C*9W #DEF 0?=20?/#1000000+34?+K90VERBCLAS-1] C*PG #SKI 20?/#1000000>13-13 CB96 ( CBNQ #END CC8B #MEND VCLASTWO CCN2 #DEF 0?=20?/#1000000+34?+K90VCLASTWO-14] CD7L ) CDM= ... XFBDSKPA %A,FORBID CF6W #SKI 21? CFLG ( CG66 #STR #,%B CGKQ #DEF 20?=CTX%B+CTX%C+CTX%D+CTX%E+CTX%F+CTX%G+CTX%H+CTX%I+CTX%J+CTX%K CH5B #STR #,%B CHK2 #STR CJ4L #DEF 20?=%B CJJ= #DEF 0?=0?+4 CK3W #DEF MFORBID=34?+0?+0]^20? CKHG +MFORBID CL36 #FRE MFORBID CLGQ ) CM2B #END CMG2 #NOR CMPS ...[??? CHANGE SECT CENT FGN 21 DOC CM^L #MAC CHANGE CNF= #MEN VERBCLAS CNYW 4H%A CPDG #DEF 0?=0 CPY6 #DEF 20?=34?+0]� CQCQ 8HVERBCLAS CQXB #SKI 20?/#1000000<14-14 CRC2 #DEF 0?=20?/#1000000+34?+K90VERBCLAS-1] CRWL #SKI 20?/#1000000>13-13 CSB= ( CSTW #END CT*G #MEND VCLASTWO CTT6 #DEF 0?=20?/#1000000+34?+K90VCLASTWO-14] CW#Q ) CWSB ... XFBDSKPA %A,CHANGE CX#2 #SKI 21? CXRL ( CY?= #STR #,%B CYQW #DEF 20?=CTX%B+CTX%C+CTX%D+CTX%E+CTX%F+CTX%G+CTX%H+CTX%I+CTX%J+CTX%K C^=G #STR #,%B C^Q6 #STR D29Q #DEF 20?=%B D2PB #DEF 0?=0?+4 D392 #DEF MFORBID=34?+0?+0]$20? D3NL +MFORBID D48= #FRE MFORBID D4MW ) D57G #END D5M6 #NOR D5MB ...[??? HIDECOM SECT CENT FGN 21 DOC D5MM ...#MAC HIDECOM D5N8 ...#MEN VERBCLAS D5NP ... 4H%A D5P= ...#DEF 0?=0 D5PR ...#DEF 20?=34?+0]� D5Q# ... 8HVERBCLAS D5QT ...#SKI 20?/#1000000<14-14 D5RB ...#DEF 0?=20?/#1000000+34?+K90VERBCLAS-1] D5RX ...#SKI 20?/#1000000>13-13 D5SD ...( D5S^ ...#END D5TG ...#MEND VCLASTWO D5W3 ...#DEF 0?=20?/#1000000+34?+K90VCLASTWO-14] D5WJ ...) D5X5 ... XFBDSKPA %A,HIDECOM D5XL ...#SKI 21? D5Y7 ...( D5YN ...#DEF 20?=#40000000 D5^9 ...#DEF 21?=0 D5^Q ...#STR OFF,%B D62? ...#DEF 21?=20? D62S ...#DEF 22?=34?+0?] D63* ...#DEF 23?=34?+0?+1] D63W ... +22?^20?$21? D64C ... +23?^20?$21? D64Y ...) D65F ...#END D662 ...#NOR D66B ...[??? FORBIDCC SECT CENT FGN 21 DOC D66Q #MAC FORBIDCC D6LB #MEN CANCOM D762 4H%A D7KL #DEF 20?=34?+0] D85= #DEF 0?=0 D8JW 8HCANCOM D94G #DEF 0?=K90CANCOM D9J6 #DEF 22?=K91CANCOM-K90CANCOM/BICESIZE D=3Q FINDBICE %A D=HB #SKI 22? D?32 ( D?GL #STR #,%B D#2= #DEF 20?=CTX%B+CTX%C+CTX%D+CTX%E+CTX%F+CTX%G+CTX%H+CTX%I+CTX%J+CTX%K D#FW #STR #,%B D#^G #STR D*F6 #DEF 20?=%B D*YQ #DEF 0?=0?+4 DBDB #DEF MFORBID=34?+0?+0]^20? DBY2 +MFORBID DCCL #FRE MFORBID DCX= ) DDBW #END DDWG #NOR DF6# ...[??? CHANGECC SECT CENT FGN 21 DOC DFB6 #MAC CHANGECC DFTQ #MEN CANCOM DG*B 4H%A DGT2 #DEF 20?=34?+0] DH#L #DEF 0?=0 DHS= 8HCANCOM DJ?W #DEF 0?=K90CANCOM DJRG #DEF 22?=K91CANCOM-K90CANCOM/BICESIZE DK?6 FINDBICE %A DKQQ #SKI 22? DL=B ( DLQ2 #STR #,%B DM9L #DEF 20?=CTX%B+CTX%C+CTX%D+CTX%E+CTX%F+CTX%G+CTX%H+CTX%I+CTX%J+CTX%K DMP= #STR #,%B DN8W #STR DNNG #DEF 20?=%B DP86 #DEF 0?=0?+4 DPMQ #DEF MCHANGE=34?+0?+0]$20? DQ7B +MCHANGE DQM2 #FRE MCHANGE DR6L ) DRL= #END DS5W #NOR DS*N ...[??? FINDBICE SECT CENT FGN 21 DOC DSKG #MAC FINDBICE DT56 #DEF 21?=34?+0?+0] DTJQ #SKI 22?<1$1 DW4B ( DWJ2 #CON COMMAND '%A' NOT CANCELLABLE DX3L ! COMMAND '%A' NOT CANCELLABLE DXH= #EXIT DY2W ) DYGG #SKI 21?-20? D^26 ( D^FQ #DEF 0?=0?+BICESIZE D^^B #DEF 22?=22?-1 F2F2 FINDBICE %A F2YL ) F3D= #NOR F3N4 ...[??? FORBIDOP SECT CENT FGN 21 DOC F3XW F3YD ...#MAC FORBIDOP F3YL ...#MEN OPERATOR F3YS ... 4H%A F3^2 ...#DEF 20?=34?+0] F3^8 ...#DEF 0?=0 F3^B ... 8HOPERATOR F3^J ...#DEF 0?=K90OPERATOR F3^Q ...#DEF 22?=K91OPERATOR F3^Y ... FINDBICX %A F426 ...#SKI 22? F42# ...( F42G ...#STR #,%B F42N ...#DEF 20?=CTX%B+CTX%C+CTX%D+CTX%E+CTX%F+CTX%G+CTX%H+CTX%I+CTX%J+CTX%K F42W ...#STR #,%B F434 ...#STR F43= ...#DEF 20?=%B F43D ...#DEF 20?=20?@L-21+(20?򽸮) F43L ...#DEF 0?=0?+4 F43S ...#DEF MFORBID=34?+0?+0]^20? F442 ... +MFORBID F448 ...#FRE MFORBID F44B ...) F44J ...#END F44Q ...#NOR F44T ...[??? CHANGEOP SECT CENT FGN 21 DOC F44Y ...#MAC CHANGEOP F456 ...#MEN OPERATOR F45# ... 4H%A F45G ...#DEF 20?=34?+0] F45N ...#DEF 0?=0 F45W ... 8HOPERATOR F464 ...#DEF 0?=K90OPERATOR F46= ...#DEF 22?=K91OPERATOR F46D ... FINDBICX %A F46L ...#SKI 22? F46S ...( F472 ...#STR #,%B F478 ...#DEF 20?=CTX%B+CTX%C+CTX%D+CTX%E+CTX%F+CTX%G+CTX%H+CTX%I+CTX%J+CTX%K F47B ...#STR #,%B F47J ...#STR F47Q ...#DEF 20?=%B F47Y ...#DEF 20?=20?@L-21+(20?򽸮) F486 ...#DEF 0?=0?+4 F48# ...#DEF MCHANGE=34?+0?+0]$20? F48G ... +MCHANGE F48N ...#FRE MCHANGE F48W ...) F494 ...#END F49= ...#NOR F49* ...[??? FINDBICX SECT CENT FGN 21 DOC F49D ...#MAC FINDBICX F49L ...#DEF 21?=34?+0?+0] F49S ...#SKI 22?-0?<1$1 F4=2 ...( F4=8 ...#CON COMMAND '%A' NOT 'OP'ABLE F4=B ...! COMMAND '%A' NOT 'OP'ABLE F4=J ...#DEF 22?=0 F4=Q ...#EXIT F4=Y ...) F4?6 ...#SKI 21?$20? F4?# ...( F4?G ...#DEF 0?=0?+BICESIZE+1 F4?N ... FINDBICX %A F4?W ...) F4#4 ...#NOR F4#7 ...[??? OPSCON SECT CENT FGN 21 DOC F4#= ...#MAC OPSCON F4#D ... LDX 2 FX2 F4#L ... LDX 0 CONTEXT(2) F4#S ... ANDN 0 #20 F4*2 ... BNZ 0 %A F4*8 ... JBS %B,2,EXOPCOM F4*B ...#NOR F4BD ...[??? MCONTEXT SECT CENT FGN 21 DOC F4CG # F4X6 [ THIS MACRO ALLOWS SPECIFIED CONTEXT BITS TO BE SET UP IN A WORD F5BQ # F5WB #MAC MCONTEXT F6B2 +CTX%A+CTX%B+CTX%C+CTX%D+CTX%E+CTX%F F6TL #NOR F75D ...[??? BCONTEXT SECT CENT FGN 21 DOC F7*= # F7SW [ THIS MACRO BRANCHES TO %A IF JOB IS IN %C CONTEXT F8#G # F8S6 #MAC BCONTEXT F9?Q LDBIT ECV%C,0 F9RB #STR %B F=?2 #STR F=QL ( F?== SMO FX2 F?PW ... ANDX 0 CONTEXT F#9G ) F#P6 #STR %B F*8Q MOD ANDX 0 CONTEXT,%B F*NB BNZ 0 %A FB82 #NOR FBCS ...[??? INMDF SECT CENT FGN 21 DOC FBML # FC7= #MACRO INMDF [TJHARPER FCLW LDX 0 CPBFSD(%A) FD6G BPZ 0 %B FDL6 #NOR FDTY ...[??? READYON SECT CENT FGN 21 DOC FF5Q # FFKB [ MACROS FOR SWITCHING B15 OF EXT+11 ON OR OFF AND ALSO FG52 [ FOR BRANCHING IF B15 IS SET FGJL # FH4= #MAC READYON [ B.L. VICKERY FHHW LDN 0 #400 FJ3G #STR %A FJH6 SMO %A FK2Q #STR %A FKGB #SKI FL22 SMO FX2 FLFL ORS 0 EXT+11 FL^= #NOR FM94 ...[??? READYOFF SECT CENT FGN 21 DOC FMDW #MAC READYOFF [ B.L. VICKERY FMYG NGN 0 #401 FND6 #STR %A FNXQ SMO %A FPCB #STR %A FPX2 #SKI FQBL SMO FX2 FQW= ANDS 0 EXT+11 FR*W #NOR FRKN ...[??? BREADYON SECT CENT FGN 21 DOC FRTG #MAC BREADYON [ B.L. VICKERY FS*6 LDN 0 #400 FSSQ SMO FX2 FT#B ANDX 0 EXT+11 FTS2 BNZ 0 %A FW?L #NOR FWHD ...[??? GETCLB SECT CENT FGN 21 DOC FWR= #MAC GETCLB FX=W SETNCORE +AVELINE+ALB,%A,CLB FXQG LDN 6 A1(%A) FY=6 LDN 7 A1+1(%A) FYPQ STOZ A1(%A) F^9B MOVE 6 ALB-1 F^P2 #NOR F^YS ...[??? GETCPB SECT CENT FGN 21 DOC G28L #MAC GETCPB G2N= SETNCORE +AVELINE+APB,%A,CPB,CALAS G37W STOZ A1(%A) G3MG LDN 6 A1(%A) G476 LDN 7 A1+1(%A) G4LQ MOVE 6 APB-1 G56B NGN 7 1 G5L2 STO 7 APARAFIR(%A) G65L #NOR G9?8 ...[??? BRUSEN SECT CENT FGN 21 DOC G9H2 #MAC BRUSEN G=2L #STR %B G=G= MOD LDX 0 CONTEXT,%B G=^W #STR %B G?FG #SKI G?^6 ( G#DQ SMO FX2 G#YB LDX 0 CONTEXT G*D2 ) G*XL ANDN 0 1 GBC= BZE 0 %A GBWW #NOR GC6N ...[??? FINDPB SECT CENT FGN 21 DOC GCBG [ GCW6 [ MACRO FINDPB - FINDS THE SPECIFIED CPB/CALAS BLOCK GD*Q [ %A -MODIFIER TO HOLD ADDRESS OF CPB/CALAS, ON EXIT GDTB [ %B -LABEL TO JUMP TO, IF CPB/CALAS NOT FOUND GF*2 [ %C B0 -UNSET IF 1ST CPB/CALAS GFSL [ -SET IF 2ND CPB/CALAS GG#= [ ON EXIT GGRW [ X0 IS OVERWRITTEN GH?G [ X1-X7 UNCHANGED BUT X%A CONTAINS POINTER TO CPB/CALAS GHR6 [ GJ=Q #MAC FINDPB GJQB MHUNT %A,CPB,CALAS GK=2 LDX 0 %C GKPL BPZ 0 MPB7 GL9= HUNT2J %A,CPB,CALAS,,%B GLNW MPB7 GM8G #NOR GMD# ...[??? PARAMSUB SECT CENT FGN 21 DOC GMN6 #MAC PARAMSUB GN7Q LDX 2 FX2 GNMB LDN 0 %B+%A GP72 SLL 0 12 GPLL ADN 0 %E+%D GQ6= STO 0 ACOMMUNE1(2) GQKW #STR %C GR5G #STR GRK6 ( GS4Q LDN 0 CPDATA GSJB ) GT42 #STR %C GTHL ( GW3= LDN 0 %C GWGW ) GX2G STO 0 ACOMMUNE2(2) GXG6 #STR %F GX^Q ( GYFB LDN 0 %F GY^2 ) G^DL STO 0 ACOMMUNE3(2) G^Y= #STR %G H2CW #STR H2XG ( H3C6 LDX 0 GSIGN H3WQ ) H4BB #STR %G H4W2 ( H5*L LDX 0 %G H5T= ) H6#W STO 0 ACOMMUNE4(2) H6SG #STR %H H7#6 #STR H7RQ ( H8?B LDX 0 GSIGN H8R2 ) H9=L #STR %H H9Q= ( H=9W LDN 0 0 H=PG ) H?96 STO 0 ACOMMUNE5(2) H?NQ ... DOWN ALAS,2 H#8B #NOR H#N2 ...[???UPDATEJT SECT. CENT H*7L ...#MAC UPDATEJT H*M= ...#STR %A HB6W ...#SKI HBLG ... LDX 2 FX2 HC66 ...#STR %A,2 HCKQ ... LDX 2 %A HD5B ... LDX 0 ACTCHCH(2) [CHAPTER CHANGE COUNT HDK2 ... STOZ ACTCHCH(2) [CLEAR IT HF4L ... MPY 0 CHAPTIME [CONVERT IT TO BEATS HFJ= ... DVR 0 BEATTIME [CONVERT TO MILLISECS HG3W ... LDX 0 CONTEXT(2) HGHG ... SRC 0 2 HH36 ... BNG 0 MNUSER [J IF NO USER HHGQ ...#STR %B HJ2B ... LDX 2 %B HJG2 ...#STR %B HJ^L ...#SKIP HKF= ...( HKYW ... STO 0 GEN6 HLDG ... FJOCA 2 HLY6 ... LDX 0 GEN6 HMCQ ...) HMXB ... ANDN 0 #2000 HNC2 ... BZE 0 MNPISSUE [J IF NOT PROG ISSUED HNWL ... LDN 0 0 HPB= ... SBSC 1 APROGTIME+1(2) [UPDATE PROG TIME HPTW ... SBS 0 APROGTIME(2) HQ*G ...MNPISSUE HQT6 ... ADSC 1 HTIMEJ+1(2) HR#Q ... ADS 0 HTIMEJ(2) [UPDATE TIME USED SO FAR BY JOB HRSB ...MNUSER HS#2 ... LDX 2 FX2 HSRL ... LDX 1 FX1 HT?= ...#NOR HTQW ...[???? LOGOUTBI HW=G ...[ LOGOUTBI - RESTORE TIME MACRO TO SWITCH ON OR OFF HWQ6 ...[ A FACILITY TO ALLOW LOGOUT IN BREAKIN CONTEXT OR HX9Q ...[ FROM A MACRO HXPB ...#MAC LOGOUTBI HY92 ...#STR ON,%A HYNL ...#STR H^8= ...( H^MW ... FORBID LT,BREAKIN J27G ... CHANGE LT,BREAKIN J2M6 ...#MEN LOGOUT J36Q ...#TRA K20LOGOUT J3LB ... LDN 6 1 J462 ...#END J4KL ...#EXI J55= ...) J5JW ...#STR OFF,%A J64G ...#STR J6J6 ...( J73Q ... FORBID LT,BREAKIN J7HB ...#MEN LOGOUT J832 ...#TRA K20LOGOUT J8GL ... LDN 6 0 J92= ...#END J9FW ...#EXI J9^G ...) J=F6 ...#STR %A J=YQ ...#STR J?DB ...( J?Y2 ... FORBID LT,BREAKIN J#CL ... CHANGE LT,BREAKIN J#X= ...#MEN LOGOUT J*BW ...#TRA K20LOGOUT J*WG ... LDN 6 1 JBB6 ...#END JBTQ ...#EXI JC*B ...) JCT2 ...#NOR JD#L ...[???? QUITLT JDS= ...[ QUITLT - MACRO TO BE USED ONLY BY LOGOUT JF?W ...[ TO ALLOW LOGOUT IN BREAKIN CONTEXT JFRG ...#MAC QUITLT JG?6 ... SMO FX2 JGQQ ... LDX 0 CONTEXT JH=B ... SLL 0 9 JHQ2 ... BPZ 0 M1QUITLT JJ9L ... DOWN QUIT,2 JJP= ...M1QUITLT JK8W ...#NOR JKNG ...[??? HIDECCCM SECT CENT FGN 1 DOC JL86 ...#MAC HIDECCCM JLMQ ...# JM7B ...#MEN CANCOM JMM2 ... 4H%A JN6L ...#DEF 20?=34?+0]� JNL= ...#DEF 0?=0 JP5W ... 8HCANCOM JPKG ...#DEF 0?=K90CANCOM JQ56 ...#DEF 22?=K91CANCOM-K90CANCOM/BICESIZE JQJQ ... FINDBICC %A JR4B ...#SKI 22? JRJ2 ...( JS3L ...#DEF 20?=#40000000 JSH= ...#DEF 21?=0 JT2W ...#STR OFF,%B JTGG ...#DEF 21?=20? JW26 ...#DEF 22?=34?+0?] JWFQ ...#DEF 23?=34?+0?+1] JW^B ... +22?^20?$21? JXF2 ... +23?^20?$21? JXYL ...) JYD= ...#END JYXW ...#NOR J^CG ...[??? FINDBICC SECT CENT FGN 21 DOC J^X6 ...# K2BQ ...#MAC FINDBICC K2WB ...#DEF 21?=34?+0?+0]� K3B2 ...#SKI 22?<1$1 K3TL ...( K4*= ...#CON COMMAND '%A' NOT CANCELLABLE K4SW ...! COMMAND '%A' NOT CANCELLABLE K5#G ...#EXIT K5S6 ...) K6?Q ...#SKI 21?-20? K6RB ...( K7?2 ...#DEF 0?=0?+BICESIZE K7QL ...#DEF 22?=22?-1 K8== ... FINDBICC %A K8PW ...) K99G ...#NOR K9P6 ...[???? SETPLEN K=8Q ...[ SETPLEN - RESTORE TIME MACRO TO SWITCH OFF OR ON THE K=NB ...[ FACILITY TO SPECIFY LENGTH(ENCL STRING) AS THE 2ND K?82 ...[ PARAMETER TO A SETPARAM COMMAND K?ML ...#MAC SETPLEN K#7= ...#STR OFF,%A K#LW ...#STR K*6G ...( K*L6 ...#MEN SETPARAM KB5Q ...#TRA K90SETPARAM KBKB ... BRN K91SETPARAM KC52 ...#END KCJL ...#EXI KD4= ...) KDHW ...#STR ON,%A KF3G ...#STR KFH6 ...( KG2Q ...#MEN SETPARAM KGGB ...#TRA K90SETPARAM KH22 ... BRN K92SETPARAM KHFL ...#END KH^= ...#EXI KJDW ...) KJYG ...#NOR KKD6 ...[???? REPORTNEST KKXQ ...[ REPORTNEST - RESTORE TIME MACRO TO SWITCH ON OR OFF KLCB ...[ A FACILITY TO NEST THE SET OF CATEGORIES OUTPUT TO KLX2 ...[ THE MOP TERMINAL KMBL ...#MAC REPORTNEST KMW= ...#STR %A,ON KN*W ...#STR KNTG ...( KP*6 ...#MEN ALASB KPSQ ...#TRA K70ALASB KQ#B ... NULL KQS2 ...#END KQX6 ...#MEN BLOGNAL KR2= ...#TRA K70BLOGNAL KR5B ... NULL KR8G ...#END KR?L ...#MEN CLEAN KRR= ...#TRA K70CLEAN KS=W ... NULL KSQG ...#END KT=6 ...#MEN COMPRO KTPQ ...#TRA K70COMPRO KW9B ... NULL KWF8 ...#END KWP2 ...#MEN COMPROA KWYS ...#TRA K70COMPROA KX8L ... NULL KXN= ...#END KY7W ...#MEN CONNECTA KYMG ...#TRA K70CONNECTA K^76 ... NULL K^## ...#TRA K72CONNECTA K^FG ... NULL K^LQ ...#END L26B ...#MEN CONTINUE L2L2 ...#TRA K70CONTINUE L35L ... NULL L3K= ...#TRA K72CONTINUE L44W ... NULL L4JG ...#TRA K74CONTINUE L546 ... NULL L5HQ ...#END L63B ...#MEN DSCNCT L6H2 ...#TRA K70DSCNCT L72L ... NULL L77S ...#TRA K72DSCNCT L7*2 ... NULL L7G= ...#END L7KB ...#MEN LOGANAL L7NG ...#TRA K70LOGANAL L7RL ... NULL L7WQ ...#END L7^W ...#MEN LOGOUT L874 ...#TRA K73LOGOUT L8#= ... NULL L8FG ...#TRA K70LOGOUT L8^6 ... NULL L9DQ ...#END L9YB ...#MEN REPORT L=D2 ...#TRA K70REPORT L=XL ... NULL L?C= ...#END L?WW ...) L#BG ...#STR OFF,%A L#W6 ...#STR L**Q ...( L*TB ...#MEN ALASB LB*2 ...#TRA K70ALASB LBSL ... BRN K71ALASB LC#= ...#END LCCB ...#MEN BLOGNAL LCGG ...#TRA K70BLOGNAL LCKL ... BRN K71BLOGNAL LCNQ ...#END LCRW ...#MEN CLEAN LD?G ...#TRA K70CLEAN LDR6 ... BRN K71CLEAN LF=Q ...#END LFQB ...#MEN COMPRO LG=2 ...#TRA K70COMPRO LGPL ... BRN K71COMPRO LH32 ...#END LH#B ...#MEN COMPROA LHKQ ...#TRA K70COMPROA LHX6 ... BRN K71COMPROA LJ8G ...#END LJN6 ...#MEN CONNECTA LK7Q ...#TRA K70CONNECTA LKMB ... BRN K71CONNECTA LKSJ ...#TRA K72CONNECTA LK^Q ... BRN K73CONNECTA LL72 ...#END LLLL ...#MEN CONTINUE LM6= ...#TRA K70CONTINUE LMKW ... BRN K71CONTINUE LN5G ...#TRA K72CONTINUE LNK6 ... BRN K73CONTINUE LP4Q ...#TRA K74CONTINUE LPJB ... BRN K75CONTINUE LQ42 ...#END LQHL ...#MEN DSCNCT LR3= ...#TRA K70DSCNCT LRGW ... BRN K71DSCNCT LRN4 ...#TRA K72DSCNCT LRT= ... BRN K73DSCNCT LS2G ...#END LS5L ...#MEN LOGANAL LS8Q ...#TRA K70LOGANAL LS?W ... BRN K71LOGANAL LSC2 ...#END LSG6 ...#MEN LOGOUT LSM# ...#TRA K73LOGOUT LSSG ... BRN K74LOGOUT LS^Q ...#TRA K70LOGOUT LTFB ... BRN K71LOGOUT LT^2 ...#END LWDL ...#MEN REPORT LWY= ...#TRA K70REPORT LXCW ... BRN K71REPORT LXXG ...#END LYC6 ...) LYWQ ...#NOR L^BB ...[???? SETCMXSK L^W2 ...[ MACRO TO SET CMXMSK IN EACH CPB/CALAS FOR AN M2*L ...[ ACTIVITY TO AMXMSK M2T= ...[ ONLY TO BE USED BY CONNECT & DSCNCT WHEN JOB TYPE CHANGES M3#W ...[ FROM BACK TO MOP OR MOP TO BACK. FOR JOBS CHANGING M3SG ...[ TO BACK AMXMSK MUST ALREADY HAVE BEEN SET TO ZERO M4#6 ...[ AND FOR JOBS CHANGING TO MOP AMXMSK MUST ALREADY HAVE M4RQ ...[ BEEN SET TO FB,CM/PRESET REPORTING LEVEL M5?B ...#MAC SETCMXSK M5R2 ... LDX 1 AMXMSK(%A) M6=L ...MSETCMXSK1 M6Q= ... HUNT2J %A,CPB,CALAS,,MSETCMXSK2 M79W ... STO 1 CMXMSK(%A) M7PG ... BRN MSETCMXSK1 M896 ...MSETCMXSK2 M8NQ ... LDX 1 FX1 M98B ...#NOR ^^^^ ...00760560004700000000