{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACRO COMPRO)}}
====== MACRO COMPRO ======
(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