{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: CENTCSSMACS)}}
====== CENTCSSMACS ======
(George Source)
22FL [
22^= ...[ THIS FILE CONTAINS RESTORE TIME MACROS TO TURN ON AND
23DW [ SOMETIMES OFF THE CSS FACILITIES. THOSE RESTRICTED
23YG [ TO CSS USE START "CSS". THE REST ARE FOR GENERAL USE.
24D6 [
24MY ...[??? CSSMAKES SECT CENT FGN 18 DOC
24XQ #MAC CSSMAKES
25CB #MEN VERBCLAS
25X2 #TRA K81VERBCLAS
26BL BICE MS,MAKESPECIAL,#400002,PNTLAST,6
26W= #END
27*W #NOR
27KN ...[??? NEWSLETT SECT CENT FGN 18 DOC
27TG [
28*6 #MAC NEWSLETTER
28SQ #STR OFF,%A
29#B #SKI
29S2 (
2=?L #MEN DEWELL
2=R= #TRA K90DEWELL
2?=W BRN K91DEWELL
2?QG #TRA K92DEWELL
2#=6 BRN K93DEWELL
2#PQ #END
2*9B #EXI
2*P2 )
2*QP ...#UNS JNEWSLETTER+1
2*SD ...#SKI
2*W7 ...(
2*XW ... ADDMESS
2*^K ... MESSMONA 2,JNEWSLETTER,,FORCETYP,CT
2B3# ... #25412020
2B53 ... ADDEND
2B6Q ...)
2B8L #MEN DEWELL
2BN= #TRA K90DEWELL
2C7W NULL
2CMG #TRA K92DEWELL
2D76 NULL
2DLQ #END
2FL2 #MEN PNTLAST
2G5L #TRA K80PNTLAST+1
2GK= #STR %A
2H4W 12H%A
2HJG #TRA K80PNTLAST+4
2J46 #STR %B
2JHQ 12H%B
2K3B #TRA K80PNTLAST+8
2KH2 #STR %C
2L2L +0%C
2LG= #TRA K80PNTLAST+9
2L^W #STR %D
2MFG 4H%D
2M^6 #TRA K80PNTLAST+11
2NDQ #STR %E
2NYB 12H%E
2PD2 #TRA K80PNTLAST+14
2PXL #STR %F
2QC= 12H%F
2QWW #TRA K80PNTLAST+18
2RBG #STR %G
2RW6 +0%G
2S*Q #TRA K80PNTLAST+19
2STB #STR %H
2T*2 4H%H
2^D= ...#TRA K81PNTLAST
2^HB ... MONOUT JNEWSLETTER
2^LG ...#END
329= #NOR
32F4 ...[??? MOPCREAT SECT CENT FGN 18 DOC
32NW [
338G #MAC MOPCREATE
33N6 #MEN VERBCLAS
347Q #TRA K82VERBCLAS
34MB #STR OFF,%A
3572 #SKI
35LL LDN 0 0
366= #STR OFF,%A
36KW LDX 0 CONTEXT(2)
375G #END
37K6 #NOR
4H3W ...[??? CSSABPM SECT CENT FGN 18 DOC
4H3Y ...[
4H43 ...#MAC CSSABPM
4H46 ...#UNS ABPM
4H49 ...#SKI
4H4# ...(
4H4C ...
4H4G ... FCMENDV
4H4K ...ABPM +0
4H4N ... FCENDV
4H4R ...)
4H4W ...#MEN ABANDON
4H4^ ...#TRA K79ABANDON
4H54 ... +ABPM
4H55 ...#END
4H56 ...#MEN ABANDONA
4H57 ...#TRA K80ABANDONA
4H5= ... NULL
4H5* ...#END
4H5D ...#MEN LOGOUT
4H5H ...#TRA K80LOGOUT
4H5L ... LDX 0 ABPM
4H5P ...#TRA K80LOGOUT+4
4H5S ... STOZ ABPM
4H5X ...#END
4H62 ...#NOR
4H63 ...[??? ONEURG SECT CENT FGN 18 DOC
4H65 ...[
4H68 ...[ RESTORE TIME MACRO TO ALLOW ONLY ONE URGENCY PER JOB
4H6? ...#MAC ONEURG
4H6# ...#SKI JWPHASE4<1$1
4H6* ...(
4H6B ...#MEN URGELOAD
4H6F ...#TRA K1URGELOAD
4H6G ...)
4H6H ...#SKI JWPHASE4
4H6J ...(
4H6K ...#MEN JDWRITE
4H6L ...#TRA K2JDWRITE
4H6M ...)
4H6N ...#STR OFF,%A
4H6P ...#SKI
4H6Q ...(
4H6R ...#SKI JWPHASE4
4H6S ... BRN K21JDWRITE
4H6T ...#SKI JWPHASE4<1$1
4H6W ... BRN K3URGELOAD
4H6X ...)
4H6Y ...#STR OFF,%A
4H6^ ...(
4H72 ...#SKI JWPHASE4
4H73 ... BRN K20JDWRITE
4H74 ...#SKI JWPHASE4<1$1
4H75 ... BRN K2URGELOAD
4H76 ...)
4H77 ...#END
4H78 ...#NOR
4H79 ...[??? CSSLIMUR SECT CENT FGN 18 DOC
4H7= ...[ RESTORE TIME MACRO TO LIMIT URGENCY RANGE
4H7# ...[ THE URGENCY RANGE IS SUPPLIED IN THE WORD SPEC.BY %A
4H7C ...#MAC CSSLIMUR
4H7G ...#STR OFF,%A
4H7K ...(
4H7N ...#UNS JDEW3
4H7R ...#SKI
4H7W ...(
4H7^ ... ADDMESS
4H84 ... MESSMONA 32,JDEW3,,CE
4H87 ... 4HERRO
4H8= ... #62202542
4H8* ... #20254112
4H8D ... 20HURGENCY OUT OF RANGE
4H8H ... ADDEND
4H8L ...)
4H8P ...)
4H8Q ...#SKI JWPHASE4<1$1
4H8R ...(
4H8S ...#MEN URGELOAD
4H8X ...#TRA K40URGELOAD
4H8Y ...)
4H8^ ...#SKI JWPHASE4
4H92 ...(
4H93 ...#MEN JOBDATA
4H94 ...#TRA K40JOBDATA
4H95 ...)
4H96 ...#STR OFF,%A
4H97 ...#SKI
4H98 ... LDX 2 7
4H9? ...#STR OFF,%A
4H9B ...(
4H9F ...#DEF MANAGER0 = INSTPARAM
4H9J ...#DEF MANAGER1 = INSTPARAM+1
4H9M ...#DEF MANAGER2 = INSTPARAM+2
4H9Q ...#DEF MANAGER3 = INSTPARAM+3
4H9T ...#DEF MANAGER4 = INSTPARAM+4
4H9Y ...#DEF MANAGER5 = INSTPARAM+5
4H=3 ...#DEF MANAGER6 = INSTPARAM+6
4H=6 ...#DEF MANAGER7 = INSTPARAM+7
4H=9 ... LDX 0 %A
4H== ...#SKI JWPHASE4
4H=? ...#TRA K41JOBDATA
4H=# ...#SKI JWPHASE4<1$1
4H=* ...#TRA K41URGELOAD
4H=C ... +JDEW3
4H=G ...)
4H=K ...#END
4H=N ...#NOR
4HCG ...[??? CSSGIVE6 SECT CENT FGN 18 DOC
4HCJ ...#
4HHB ...#
4J32 ...#MAC CSSGIVE6
4JGL ...#
4K2= ...[ SPECIAL MACRO FOR CSS BRA GIVE 6 IS FOR SPECIAL PRIVILEGED
4KFW ...[ READ-ACCESS TO GEORGE CODE
4K^G ...#
4L#Y ...#MEN GIVEA
4LNB ...#TRA K60GIVEA
4M3W ...#DEF MANAGER0 = INSTPARAM
4M72 ...#DEF MANAGER1 = INSTPARAM+1
4M=6 ...#DEF MANAGER2 = INSTPARAM+2
4M*= ...#DEF MANAGER3 = INSTPARAM+3
4MDB ...#DEF MANAGER4 = INSTPARAM+4
4MHG ...#DEF MANAGER5 = INSTPARAM+5
4MLL ...#DEF MANAGER6 = INSTPARAM+6
4MPQ ...#DEF MANAGER7 = INSTPARAM+7
4MSW ... LDX 7 %A
4MY2 ...#END
4NCL ...#NOR
4NMD ...[??? BCALL SECT CENT FGN 18 DOC
4NX= ...#
4PBW ...[ RESTORE TIME MACRO TO PROHIBIT
4PWG ...[ 'ALL' AS A DEFAULT TO BROADCAST
4PXX ...#MAC BCALL
4P^# ...#MEN BCAST
4Q2P ...#TRA K50BCAST
4Q46 ...#STR OFF,%A
4Q5H ... BRN K51BCAST
4Q6Y ...#STR OFF,%A
4Q8* ...#SKI
4Q9Q ... BRN K53BCAST
4Q?7 ...#END
4Q#J ...#NOR
4Q** ...[??? CSSBC SECT CENT FGN 18 DOC
4QB6 ...#MAC CSSBC
4QTQ ...#MEN BCAST
4R*B ...#TRA K52BCAST
4RT2 ... LDX 0 CONTEXT(2)
4S#L ...#TRA K50BCAST
4SS= ... BRN K51BCAST
4W?6 ...#END
4WQQ ...#NOR
4X=B ...[
4XQ2 ...[??? MOPIDENT SECT CENT 20 DOC
4Y9L ...#
4YP= ...[ RESTORE TIME MACRO TO INFORM THE
4^8W ...[ OPERATORS WHEN A MOP JOB IS ENWELLED
4^NG ...#SKI JWPHASE4
5286 ...(
52MQ ...#MAC MOPIDENT
537B ...#MEN ENWELLB
53M2 ...#TRA K1ENWELLB
546L ...#STR OFF,%A
54L= ... BRN K55ENWELLB
555W ...#STR OFF,%A
55KG ...#SKI
5656 ... BRN K50ENWELLB
56JQ ...#END
574B ...#NOR
57J2 ...)
583L ...#SKI JWPHASE4<1$1
58H= ...(
592W ...#SKI JWPHASE3
59GG ...(
5=26 ...#MAC MOPIDENT
5=FQ ...#MEN ENWELL
5=^B ...#TRA K55ENWELL
5?F2 ...#STR OFF,%A
5?YL ... DOWN PNTLAST,17
5#D= ...#STR OFF,%A
5#XW ...#SKI
5*CG ...(
5*X6 ... NULL
5BBQ ... NULL
5BWB ...)
5CB2 ...#END
5CTL ...#NOR
5D*= ...)
5DSW ...#SKI JWPHASE3<1$1
5F#G ...(
5FS6 ...#MAC MOPIDENT
5G?Q ...#MEN ENWELL
5GRB ...#TRA K55ENWELL
5H?2 ...#STR OFF,%A
5HQL ... DOWN ENWELL,50
5J== ...#STR OFF,%A
5JPW ...#SKI
5K9G ...(
5KP6 ... NULL
5L8Q ... NULL
5LNB ...)
5M82 ...#END
5MML ...#NOR
5N7= ...)
5NLW ...)
5P6G ...[
5PL6 ...[??? DP80 SECT CENT FGN 23 DOC
5Q5Q ...[
5QKB ...[ RESTORE TIME MACRO TO INCREASE DP TEXT LIMIT TO 80 CHARS.
5R52 ...[
5RJL ...#MAC DP80
5S4= ...#MEN DISPCOM
5SHW ...#TRA K50DISPCOM
5T3G ... +81
5TH6 ...#TRA K51DISPCOM
5W2Q ... LDN 5 80
5WGB ...#TRA K52DISPCOM
5X22 ... LDN 7 29
5XFL ...#END
5X^= ...#NOR
5YDW ...[
5YYG ...[??? NOMIDN SECT CENT FGN 26 DOC
5^D6 ...[
5^XQ ...[ RESTORE TIME MACRO FOR SPECIAL 4968
62CB ...[
62X2 ...#MAC NOMIDN
63BL ...#MEN DATECON
63W= ...#TRA K50DATECON
64*W ... NULL
64TG ...#TRA K51DATECON
64YL ...#STR %A
653Q ...#SKI
656W ... +0,+0
65=2 ...#STR %A
65*6 ... 8H%A000
65SQ ...#SKI 34?+0?-1]M
66#B ...(
66S2 ...#TRA K51DATECON
67?L ... 8H %A000
67R= ...)
68=W ...#END
68QG ... HIDECOM A*,OFF
69=6 ...#NOR
69PQ ...[
6=9B ...[???? ZTSPECIAL
6=P2 ...[ RESTORE TIME MACRO TO SWITCH SPECIAL
6?8L ...[ COMMAND ZT IN AND OUT
6?N= ...[ " ZTSPECIAL" OR " ZTSPECIAL ON" SWITCHES IT IN
6#7W ...[ " ZTSPECIAL OFF" SWITCHES IT OUT
6#MG ...#MAC ZTSPECIAL
6*76 ...#STR %A,ON
6*LQ ...#STR
6B6B ...(
6BL2 ...#MEN VCLASTWO
6C5L ...#TRA K85VCLASTWO
6CK= ... BICE ZT,ZTIME,#00351,DATECON,60
6D4W ...#END
6DJG ...#EXI
6F46 ...)
6FHQ ...#STR OFF,%A
6G3B ...#STR
6GH2 ...(
6H2L ...#MEN VCLASTWO
6HG= ...#TRA K85VCLASTWO
6H^W ... BICE ??,??,#00351,DATECON,60
6JFG ...#END
6J^6 ...)
6KDQ ...#NOR
6KYB ...[
^^^^ ...342647400036