{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: LLSMACROS)}}
====== LLSMACROS ======
(George Source)
**Macros used:** [[george:macro:ICT|ICT]]
229S ...[??? SCHEDULE SECT CENT FGN 6 DOC
2*9B # NEW LLS MACROS OWNED BY RUTH PORTER
2*P2 #
2B8L [ 1. PUT BLANKET TO SLEEP
2BN= [ 2. START THE CORE UNJAMMER,IF NECESSARY
2C7W [ 3. START THE CORE SCHEDULER IF FONINTP HAS PASSED,BUT NOT IF
2CMG [ THE CORE UNJAMMER HAS BEEN STARTED
2D76 [ 4. ENTER MILL SCHEDULER
2DLQ #
2F6B #
2FL2 #MAC SCHEDULE
2G5L LDX 0 CJSUM
2G8D ... SBN 0 CJTHRESH1
2G?= ...#UNS ECS
2GB4 ...(
2GDW ... BNG 0 MSCH2 [J IF UNJAM NOT YET NEEDED
2GHN ... JBSS MSCH4,,ASWCORJAM [J IF UNJAM ALREADY IN PROGRESS
2GLG ... ACROSS UNJAMMER,1
2GP# ...)
2GS6 ...#UNS ECS
2GWY ...#SKI
2G^Q ...(
2H4W BPZ 0 MSCH1
2HJG JBC MSCH2,,ASWCORJAM [J IF NO CORE JAM
2J46 ...MSCH1 ACROSS UNJAMMER,1
2JHQ ...)
2KH2 MSCH3 LINK SCHEDIN,1
2L2L MSCH2 LDX 0 CYCLECORE
2L=D ... LDX 1 FX1
2LG= BXL 0 COREK9,MSCH4 [J IF NOT TIME
2MFG KICKASWI MSCH3(1) [GET ASWAINT GOING
2MJ5 ...#UNS ECS
2MLN ...MSCH4 LDN 0 24
2MP? ...#UNS ECS
2MRW ...#SKI
2MWF ...(
2M^6 MSCH4 LDX 0 CYCLEMILL
2NDQ BXL 0 IMILLK9,MSCH5 [J IF NOT TIME FOR MILL
2NYB ACROSS LLSCHED,1
2PD2 MSCH5 LDN 0 24
2PMS ...)
2PXL NGS 0 K5
2QC= LINKSET FX2,MSCH6(1)
2QWW COOR1X
2RBG MSCH6 LINK CHARGESC,1
2RW6 #NOR
2S4B ...[??? ENDCCYCL SECT CENT FGN 6 DOC
2T*2 [
2TSL [ MACROS TO END SCHEDULING CYCLES
2W#= [
2WRW #MAC ENDCCYCLE
2X?G BC ,ASWACTIVE
2XR6 #STR AB,%A
2Y=Q STOZ CYCLECORE
2YQB #STR %A
2^=2 (
2^PL LDX 0 COREK9
329= STO 0 CYCLECORE
32NW )
338G COOR1X
33N6 #NOR
33WB ...[??? ENDMCYCL SECT CENT FGN 6 DOC
33YP ...#UNS IMR
3434 ...#SKI
345C ...(
347Q [
34MB [
3572 #MAC ENDMCYCLE
35LL LDN 0 24
366= NGS 0 K5
36KW #STR AB,%A
375G STOZ CYCLEMILL
37K6 #STR %A
384Q NGS 0 CYCLEMILL
38JB LDX 1 FX1
3942 LDN 2 BACT
39HL LINKSET 2,MENDM(1)
3=3= COOR1X
3=GW MENDM LINK CHARGESC,1
3?2G #NOR
3?5L ...)
3?8Q ...[??? PCAPLUG SECT CENT FGN 6 DOC
3?^Q #
3#FB # PCAPLUG MACRO : PLUGS IN,GOES TO PCA,RECOGNISES BREAK IN
3#^2 #
3*DL
3*Y= #MAC PCAPLUG
3BCW #STR %B
3BXG LDN 0 %B+%C
3CC6 #STR %B
3CWQ #SKI
3DBB LDN 0 0
3DW2 #STR %D
3F*L (
3FT= SLL 0 12
3G#W ADN 0 %D+%E
3GSG )
3H#6 SMO FX2
3HRQ STO 0 ACOMMUNE1
3J?B DOWN RUNPROG,2
3JR2 BRN %A
3K=L #NOR
3KND ...[??? NOTBUSY SECT CENT FGN 6 DOC
3KQ= # THIS MACRO ENSURES THAT A PROGRAM HAS NO BUSY ONLINE PERIPHERALS
3L9W #MAC NOTBUSY
3LPG #STR %A,2
3M96 LDX 2 %A
3MNQ SMO FX2
3N8B STO 2 ACOMMUNE1
3NN2 FJOTP 2,,N
3P7L LBW 2,JBPLUG,0
3PM= LDX 1 FX1
3Q6W LDX 2 FX2
3QLG BZE 0 MNOTBUSY
3R66 #STR %B
3RKQ #SKI
3S5B DOWN UNPLUG,10
3SK2 #STR %B
3T4L DOWN UNPLUG,2
3TJ= #STR %B
3W3W BRN %B
3WHG #STR %B
3X36 #SKI
3XGQ NULL
3Y2B MNOTBUSY
3YG2 #NOR
3YXJ ...[??? TICKLE SECT CENT FGN 6 DOC
3Y^L # THIS MACRO TICKLES EITHER A SPECIFIC MEMBER
3^F= # OR ALL MEMBERS
3^YW #MAC TICKLE
42DG FINDJOBQ 2,%A,(GEOERR) [X2 -> JOB BLOCK
42Y6 STO 2 GEN2
43CQ FPCAJO 2,,N [X2 -> PCA
43XB #STR %B
44C2 (
44WL LDN 0 AFW2-AFW1
45B= MPY 0 %B
45TW ... ADN 2 AFW1(1) [X2 -> MEL(CORRECTS B2623)
46*G )
46T6 #STR %B
47#Q #SKI
47SB (
48#2 STO 4 GEN4
48RL LDN 4 4 [TICKLING ALL MEMBERS
49?= ADN 2 AFW1 [X2 -> MEL 0
49QW )
4==G MTIC1 LDXC 1 ASU(2)
4=Q6 BCS MTIC2 [J IF NOT ESTABLISHED
4?9Q BZE 1 MSETP [J IF NO SUSPENSIONS SET
4?PB LDCT 1 #40
4#92 ANDX 1 ASU(2)
4#NL BNZ 1 MTIC3 [J IF SMP
4*8= MSETP LDN 0 #200
4*MW ORS 0 ARM(2) [SET P MEMORY
4B7G MTIC3 LDX 0 HSMPBIT [MUST BE CLEARED LIKE THIS AS EXEC CA
4BM6 ANDS 0 ASU(2)
4C6Q MTIC2
4CLB #STR %B
4D62 #SKI
4DKL (
4F5= ADN 2 AFW2-AFW1 [X2 -> NEXT MEL
4FJW BCT 4 MTIC1 [BACK AGAIN
4G4G LDX 4 GEN4
4GJ6 )
4H3Q JBC MTIC4,GEN2,JBREPRI
4HHB PROGRING LOCKOFF
4J32 MTIC4
4JGL LDX 1 FX1
4K2= LDX 2 FX2
4KFW #NOR
4KXQ ...[??? TICKLER SECT CENT FGN 6 DOC
4K^G #MAC TICKLER
4MDB ACCSTO %A,ACOMMUNE2,FX2
4MY2 #STR %B
4NCL (
4NX=
4PBW ACCSTO %B,ACOMMUNE1,FX2
4PWG DOWN EVENTS,1
4QB6 )
4QTQ #STR %B
4R*B #SKI
4RT2 DOWN EVENTS,2
4S#L #NOR
4SPQ ...[??? TICKLES SECT CENT FGN 6 DOC
4SS= #
4T?W # THIS MACRO MAY ONLY BE USED WHEN THE PROGRAM IS STOPPED
4TRG #
4W?6 #MAC TICKLES
4WQQ LDX %B EVENT1(%A)
4X=B LDCT 0 #40
4XQ2 ANDX 0 ASU(%B)
4Y9L BNZ 0 MTICK [J IF SUSPENDED SMP
4YP= LDN 0 #200
4^8W ORS 0 ARM(%B)
4^NG MTICK LDX 0 HSMPBIT
5286 ANDS 0 ASU(%B)
52MQ #NOR
534N ...[??? UNPLUG SECT CENT FGN 6 DOC
537B #
53M2 #MAC UNPLUG
546L DOWN UNPLUG,%A8
54L= #STR %B
555W BRN %B
55KG #NOR
55KL ...[??? STOPIT SECT CENT
55KQ ...#
55KW ...# MACRO FOR STOPPING PROGRAM
55L2 ...#
55L6 ...#MAC STOPIT
55L= ... ISNSTOP %A,MSTOPIT1
55LB ... '162 0 ASTOP(%A)
55LG ...MSTOPIT1
55LL ...#NOR
55LS ...[??? ISNSTOP SECT CENT FGN 6 DOC
55N6 ...#
55PD ...# MACRO FOR TESTING IF PROGRAM IS REALLY STOPPED (DUAL PROCESSOR)
55QQ ...#
55S4 ...#MAC ISNSTOP
55TB ... LDX 0 ANM(%A)
55WN ... BPZ 0 %B
55Y2 ...#NOR
55^H ...[??? ISSTOP SECT CENT FGN 6 DOC
5656 #
56JQ # MACRO FOR TESTING IF PROGRAM IS REALLY STOPPED (DUAL PROCESSOR)
574B #
57J2 #MAC ISSTOP
583L LDX 0 ANM(%A)
58H= BNG 0 %B
592W #NOR
59F9 ...[??? EVENTFIN SECT CENT FGN 6 DOC
59GG #
5=26 #
5=FQ #
5=^B #MAC EVENTFIN
5?F2 BRN (GEVFIN)
5?YL #NOR
5#8D ...[??? RUNPROG SECT CENT FGN 6 DOC
5#D= #
5#XW #
5*CG #
5*X6 #MAC RUNPROG
5BBQ ACROSS RUNPROG,1
5BWB #NOR
5C2? ...[??? XMELPARS SECT CENT FGN 6 DOC
5CB2 #
5CTL #
5D*= #
5DSW [
5F#G [ THE NEXT 2 MACROS ARE USED IN WRITING MELRING AND MELRERING MACROS
5FS6 [ IT IS TOO LENGTHY TO EXPLAIN THEM SO PERUSE CODE
5G?Q [
5GCM ...#UNS IMR
5GHJ ...#SKI
5GMF ...(
5GRB #MAC XMELPARS
5H?2 LDN 0 3
5HQL LDN 1 GEN0
5J== MOVE 0 5 [GEN0-GEN4 INC HOLD ACCS
5JPW #STR %A,3
5K9G LDX 3 %A [X3 -> PCA
5KP6 #STR %B
5L8Q (
5LNB LDX 7 %B
5M82 SRC 7 2
5MML ADX 3 7 [B0,1,FOR CH PTR FOR MEMB NO
5N7= LDN 4 AFW2-AFW1
5NLW #ACC %B
5P6G MPY 4 %B
5PL6 #ACC %B
5Q5Q #SKI
5QKB MPY 4 GEN0+%B-3
5R52 ADN 5 AFW1(3) [X5 ->MEL
5RJL SLC 7 3 [X7 -> ACR RELATIVE PTR
5S4= )
5SHW #STR %B
5T3G #SKI
5TH6 (
5W2Q LDN 4 4 [COUNT OF MEMBERS
5WGB LDN 5 AFW1(3) [X5 ->MEL
5X22 LDN 7 0 [X7 -> REL ACR
5XFL )
5X^= PROGRING LOCKON
5YDW #NOR
5YJ2 ...)
5YJ5 ...#UNS IMR
5YJ8 ...(
5YJ? ...#MAC XMELPARS
5YJB ... LDN 0 3
5YJF ... LDN 1 GEN0
5YJJ ... MOVE 0 5 [GEN0-GEN4 INC HOLD ACCS
5YJM ...#STR %A,3
5YJQ ... LDX 3 %A [X3 -> PCA
5YJT ...#STR %B
5YJY ...(
5YK3 ... LDN 4 AFW2-AFW1
5YK6 ...#ACC %B
5YK9 ... MPY 4 %B
5YK# ...#ACC %B
5YKC ...#SKI
5YKG ... MPY 4 GEN0+%B-3
5YKK ... ADN 5 AFW1(3) [X5 ->MEL
5YKN ...#ACC %B
5YKR ... ADX 3 %B [ADD DISPLACEMENT FOR AMR
5YKW ...#ACC %B
5YK^ ...#SKI
5YL4 ... ADX 3 GEN0+%B-3 [ADD DISPLACEMENT FOR AMR
5YL7 ...)
5YL= ...#STR %B
5YL* ...#SKI
5YLD ...(
5YLH ... LDN 4 4 [COUNT OF MEMBERS
5YLL ... LDN 5 AFW1(3) [X5 ->MEL
5YLP ...)
5YLQ ...#UNS ICT
5YLR ...(
5YLS ... JBC MPARS1,,ICTSW [ONLY DO MEMBER 0 FRIG IF ICT ON
5YLT ... STOZ GMEL+ASU [DESUSPEND GMEMBER0 AS EXEC CANT COPE
5YLW ... STOZ FX2LAST [ENSURE COOR WILL SORT OUT GMEL SUSPENSIONS
5YLX ...MPARS1
5YLY ...)
5YL^ ... PROGRING LOCKON
5YM2 ...#NOR
5YM3 ...)
5YM6 ...[??? XMELGUTS SECT CENT FGN 6 DOC
5YML ...#UNS ICT
5YN6 ...#SKI
5YNL ...(
5YP8 ...#UNS IMR
5YR= ...#SKI
5YTB ...(
5YYG [
5^D6 #MAC XMELGUTS
5^XQ #STR %B
62CB #SKI
62X2 (
63BL SMO 5
63W= LDXC 0 ASU
64*W BCS MGUTS4 [J IF MEMBER DOES NOT EXIST
64TG )
65*6 LDCH 6 APR1(3) [PRIORITY
65SQ LDN 0 BPROG [START AND END CONDITIONS
66#B LDN 2 GMEL [FOR PROGRAM RING
66S2 SMO 7
67?L LDXC 1 ACR1(3)
67R= BCC MGUTS1 [J IF NOT HIPRI
68=W LDN 0 GMEL [SET NOW START AND END CONDITIONS
68QG LDN 2 BPROG
69=6 MGUTS1 LDX 2 FPTR(2)
69PQ BXE 2 0,MGUTS2 [J IF END OF SEARCH
6=9B LDCH 1 ARM(2)
6=P2 SRC 1 2
6?8L ADX 1 APD(2) [CHAR PR FOR PRIORITY
6?N= LDCH 1 APR1-ASTOP(1)
6#7W BXGE 1 6,MGUTS1
6#MG MGUTS2 ENRING 5,BPTR(2) [RING IN PLACE
6*76 #STR %B
6*LQ #SKI
6B6B (
6BL2 MGUTS4 ADN 7 2 [UPDATE PTRS
6C5L BCHX 3 £
6CK= ADN 5 AFW2-AFW1
6D4W BCT 4 %A
6DJG )
6F46 PROGRING LOCKOFF
6FHQ LDN 0 GEN0 [TIDY UP
6G3B LDN 1 3
6GH2 MOVE 0 5
6H2L LDX 1 FX1 [X2 ALREADY RESET BY ENRING
6HG= #NOR
6HKB ...)
6HKD ...#UNS IMR
6HKG ...(
6HKJ ...#MAC XMELGUTS
6HKL ...#STR %B
6HKN ...#SKI
6HKQ ...(
6HKS ... SMO 5
6HKW ... LDXC 0 ASU
6HKY ... BCS MGUTS4 [J IF MEMBER DOES NOT EXIST
6HL2 ...)
6HL4 ... LDN 0 BPROG [START AND END CONDITIONS
6HL6 ... LDN 2 GMEL [FOR PROGRAM RING
6HL8 ... LDX 6 AMR1(3) [MILL PRIORITY AND RATING
6HL= ... BPZ 6 MGUTS1 [J IF NOT HIPRI
6HL# ... LDN 0 GMEL [SET NEW START AND END CONDITIONS
6HLB ... LDN 2 BPROG
6HLD ...MGUTS1 LDX 2 FPTR(2)
6HLG ... BXE 2 0,MGUTS2 [J IF END OF SEARCH
6HLJ ... LDCH 1 ARM(2) [MEMBER NUMBER
6HLL ... SMO APD(2)
6HLM ... BXE 6 AMR1-ASTOP(1),MGUTS1 [J IF MILL PRI.&RATING EQUAL TO
6HLN ... SMO APD(2)
6HLP ... BXL 6 AMR1-ASTOP(1),MGUTS1 [ OR LESS THAN
6HLS ...MGUTS2 ENRING 5,BPTR(2) [RING IN PLACE
6HLW ...#STR %B
6HLY ...#SKI
6HM2 ...(
6HM4 ...MGUTS4 ADN 3 1 [UPDATE PTRS
6HM6 ... ADN 5 AFW2-AFW1
6HM8 ... BCT 4 %A
6HM= ...)
6HM# ... PROGRING LOCKOFF
6HMB ... LDN 0 GEN0 [TIDY UP
6HMD ... LDN 1 3
6HMG ... MOVE 0 5
6HMJ ... LDX 1 FX1 [X2 ALREADY RESET BY ENRING
6HML ...#NOR
6HMN ...)
6HMW ...)
6HN4 ...#UNS ICT
6HN= ...(
6HND ...#MAC XMELGUTS
6HNL ...#STR %B
6HNS ...#SKI
6HP2 ...(
6HP8 ... SMO 5
6HPB ... LDXC 0 ASU
6HPJ ... BCS MGUTS4 [J IF MEMBER DOES NOT EXIST
6HPQ ...)
6HPY ... LDX 6 AMR1(3)
6HQ6 ... JBS MGUTS7,,ICTSW
6HQ# ... LDN 2 GMEL
6HQG ... LDN 0 BPROG
6HQN ... BPZ 6 MGUTS1 [ J IF NOT HIPRI
6HQW ... LDN 2 BPROG
6HR4 ... LDN 0 GMEL
6HR= ... BRN MGUTS1
6HRD ...MGUTS7
6HRL ... LDN 2 0
6HRS ...MGUTS5 BXGE 6 GAMR0(2),MGUTS6
6HS2 ... BUX 2 MGUTS5
6HS8 ...MGUTS6 LDX 0 GMELRTAB+1(2) [END CONDITION
6HSB ... LDX 2 GMELRTAB(2) [START CONDITION
6HSJ ...MGUTS1 LDX 2 FPTR(2)
6HSQ ... BXE 2 0,MGUTS2 [J IF END OF SEARCH
6HSY ... LDCH 1 ARM(2) [MEMBER NUMBER
6HT6 ... SMO APD(2)
6HT# ... BXE 6 AMR1-ASTOP(1),MGUTS1 [J IF MILL PRI.&RATING EQUAL TO
6HTG ... SMO APD(2)
6HTN ... BXL 6 AMR1-ASTOP(1),MGUTS1 [ OR LESS THAN
6HTW ...MGUTS2 ENRING 5,BPTR(2) [RING IN PLACE
6HW4 ...#STR %B
6HW= ...#SKI
6HWD ...(
6HWL ...MGUTS4 ADN 3 1 [UPDATE PTRS
6HWS ... ADN 5 AFW2-AFW1
6HX2 ... BCT 4 %A
6HX8 ...)
6HXB ... PROGRING LOCKOFF
6HXJ ... LDN 0 GEN0 [TIDY UP
6HXQ ... LDN 1 3
6HXY ... MOVE 0 5
6HY6 ... LDX 1 FX1 [X2 ALREADY RESET BY ENRING
6HY# ...#NOR
6HYG ...)
6HYN ...[??? MELRING SECT CENT FGN 6 DOC
6H^W [
6JFG #MAC MELRING
6J^6 XMELPARS %A,%B
6KDQ MELR1 XMELGUTS MELR1,%B
6KYB #NOR
6L*L ...[??? MELRERIN SECT CENT FGN 6 DOC
6LD2 [
6LXL #MAC MELRERING
6MC= XMELPARS %A,%B
6MWW MELRE1 SMO 5
6NBG LDX 0 ABW
6NW6 BZE 0 MELRE2 [J IF NOT RINGED IN
6P*Q DERING 5
6PTB MELRE2 XMELGUTS MELRE1,%B
6Q*2 #NOR
6QMQ ...[??? MELUNRIN SECT CENT FGN 6 DOC
6QSL [
6R#= [ THIS MACRO REMOVES A MEL OR ALL MELS FROM THE PROGRAM RING
6RRW [
6S?G #MAC MELUNRING
6SR6 STO 3 GEN0
6T=Q #STR %A,3
6TQB LDX 3 %A [X3 -> PCA
6W=2 #STR %B
6WPL (
6X9= LDN 0 AFW2-AFW1
6XNW #STR %B,3
6Y8G MPY 0 %B
6YN6 #STR %B,3
6^7Q #SKI
6^MB MPY 0 GEN0
7272 ADX 3 1 [X3 -> MEL
72LL )
736= #STR %B
73KW #SKI
745G (
74K6 STO 4 GEN1
754Q LDN 4 4 [COUNT OF MEMBERS
75JB LDN 3 AFW1(3) [X3 -> MEL FOR MEMBER 0
7642 )
765Y ...#UNS ICT
767W ...(
769S ... JBC MELUN2,,ICTSW
76?Q ... STOZ FX2LAST
76*N ... STOZ GMEL+ASU [ENSURE GMEL 0 DESUSPENDED
76CL ...MELUN2
76FJ ...)
76HL PROGRING LOCKON
773= MELUN LDX 0 ABW(3)
77GW BZE 0 MELUN1 [J IF NOT RINGED
782G DERING 3 [REMOVE FROM PROGRAM RING
78G6 MELUN1
78^Q #STR %B
79FB #SKI
79^2 (
7=DL ADN 3 AFW2-AFW1 [UPDATE PTRS FOR NEXT MEMBER
7=Y= BCT 4 MELUN
7?CW LDX 4 GEN1 [RESTORE X4
7?XG )
7#C6 PROGRING LOCKOFF
7#WQ LDX 3 GEN0 [RESTORE X3
7*BB #NOR
7*SW ...[??? TIMESET SECT CENT FGN 6 DOC
7*W2 # %A RETURN LABEL FOR SEGENTRY
7B*L [ DROPS THRU IF MIDNIGHT
7BT= [ %B RETURN IF MINUTE UP
7C#W [ %C OTHER RETURN
7CSG
7D#6 #MAC TIMESET
7DRQ LDX 0 CLEANCT
7F?B SBX 0 CLEANCTL
7FR2 SBN 0 60*1000/K9
7G=L BNG 0 %C [JUMP IF FTIME STILL VALID
7GQ= ACROSS DATECON,3
7H9W #DEF %A=0? [SET LABEL PARAM - MUST BE #DEF
7HPG BZE 7 %B [X7=0 => NOT MIDNIGHT
7J96 #NOR
7JL6 ...[??? KICKASWI SECT CENT FGN 6 DOC
7K8B [
7KN2 [ MACRO TO KICK ASWINT
7L7L [
7LM= #MAC KICKASWINT
7M6W LDX 1 FX1
7MLG JBSS MKAS1,,ASWACTIVE
7N66 LDX 2 BSWINT
7NKQ #STR %A
7P5B LINKSET 2,%A
7PK2 #STR %A
7Q4L #SKI
7QJ= (
7R3W BRN MKAS
7RHG MKAS2 LINK SCHEDIN,1
7S36 MKAS
7SGQ LINKSET 2,MKAS2(1)
7T2B )
7TG2 FPUT
7T^L MKAS1
7WF= LDX 2 FX2
7WYW #NOR
7X76 ...[??? TESTPROG SECT CENT FGN 6 DOC
7XDG [
7XY6 [ MACRO TO INFORM LLS THAT A PERI BUSY FOR > 1MIN IS NOW INACTIVE
7YCQ [
7YXB [
7^C2 #MAC TESTPROG
7^WL BSON BSTRAT,MTP1
82B= ... KICKASWI
87Q6 MTP1
889Q #NOR
88MQ ...[??? NOCORJOB SECT CENT FGN 6 DOC
88PB #
8992 # THIS MACRO INITIALISES OR RE-INITIALISES A JOB BLOCK FOR NO CORE
89NL # IMAGE CONTEXT
8=8= #
8=MW #MAC NOCORJOB
8?7G #STR %A,3
8?M6 (
8#6Q SMO FX2
8#LB STO 3 ACC3
8*62 LDX 3 %A
8*KL )
8B5= LDX 2 FX2
8BJW STO 5 ACC5(2)
8C4G LDX 5 JCLASS(3)
8CJ6 STOZ APROGTIME(3)
8D3Q LDN 0 APROGTIME(3)
8DHB LDN 1 APROGTIME+1(3)
8F32 ... MOVE 0 HMSLOT-APROGTIME-1
8GFW LDN 0 1024
8G^G STO 0 JCSIZE(3)
8HF6 LDX 0 APROCTIME
8HYQ STO 0 JSLOT(3)
8JDB ORN 5 #104
8JY2 STO 5 JCLASS(3)
8KCL LDX 1 FX1
8KX= LDX 2 FX2
8LBW #STR %A,3
8LWG LDX 3 ACC3(2)
8MB6 LDX 5 ACC5(2)
8MTQ #NOR
8N?2 ...[??? UNPLUGRT SECT CENT FGN 6 DOC
8N*B #
8NT2 #
8P#L [
8PS= [ MACRO TO UNPLUG A REALTIME PROGRAM
8Q?W #MAC UNPLUGRT
8QRG #STR PUC,%A
8R?6 DOWN UNPLUG,3
8RQQ #STR PUC,%A
8S=B #SKI
8SQ2 DOWN UNPLUG,4
8T9L #NOR
8W6L ...[??? UPLINK SECT CENT FGN 6 DOC
8W8W [
8WNG [ MACRO TO GO UP TO SEG KEPT IN LINK BELONGING TO SPEC ACTIVITY
8X86 #MAC UPLINK
8XMQ FINDLINK 2,%A
8Y7B #STR %B
8YM2 (
8^6L LDN 0 %B
8^L= ADJUSTLK 2
925W )
92KG LDN 0 ACC3(2)
9356 SMO FX2
93JQ LDN 1 ACC3
944B MOVE 0 ALINK
94J2 FREELINK %A
953L FPUT
95H= COOR1X
962W #NOR
962X ...[??? TRUEDORM SECT CENT FGN 6 DOC
962Y ...#UNS ISTDP
962^ ...(
9632 ...#MAC TRUEDORM
9633 ...[
9634 ...[ MACRO TO MAKE THE JOBS PROGRAM TRULY DORMANT
9635 ...[ %A - PTR TO JOB BLOCK(IF ABSENT,THE JOB BLOCK WILL BE FOUND)
9636 ...[
9637 ...#STR %A
9638 ... LDX 2 %A
9639 ...#STR %A
963= ...#SKI
963? ... LDN 2 0
963# ... CALL 1 (ATRUED)
963* ...#NOR
963B ...)
963C ...[??? SWAPDIFF SECT CENT FGN 6 DOC
963D ...#UNS ECS
963F ...(
963G ...#MAC SWAPDIFF
963H ...[
963J ...[ RESRORE TIME MACRO TO SPECIFY MINIMUM DIFFERENCE IN CORE PRIORITY
963K ...[ CAUSING A PROGRAM TO BE SWAPPED OUT IMMEDIATELY
963L ...[ %A - NUMBER BETWEEN 1 & 63.DEFAULT IS 10
963M ...[
963N ...#SKI KTAB>ISWAPDIFF-ISWAPDIFF
963P ...#MEN CONSTANT
963Q ...#SKI KTAB>ISWAPDIFF-ISWAPDIFF
963R ...#SKI
963S ...#MEN CHTABLE
963T ...#TRA ISWAPDIFF
963W ...#STR %A
963X ...#SKI
963Y ... +10 [DEFAULT IS 10 AS NO %A
963^ ...#STR %A
9642 ...(
9643 ...#SKI %A*(%A<64$64)
9644 ... +%A
9645 ...#SKI %A*(%A<64$64)
9646 ...#SKI
9647 ...! PARAMETER OUT OF RANGE
9648 ...)
9649 ...#END
964= ...#NOR
964? ...)
964# ...[??? SISSMP SECT CENT FGN 6 DOC
964* ...#UNS ECS
964B ...(
964C ...#MAC SISSMP
964D ...[
964F ...[ RESTORE TIME MACRO TO DEFINE THE MILL PRIORITY FOR THE MEMBERS
964G ...[ OF SYSTEM ISSUED & SYSTEM STARTED JOBS
964H ...[ %A,%B,%C,%D ARE MILL PRIORITIES FOR MEMBERS 0 - 3 RESP AND CAN
964J ...[ BETWEEN 1 & 63.DEFAULT IS 62
964K ...[
964L ...#SKI KTAB>ISISSMP-ISISSMP
964M ...#MEN CONSTANT
964N ...#SKI KTAB>ISISSMP-ISISSMP
964P ...#SKI
964Q ...#MEN CHTABLE
964R ...#TRA ISISSMP
964T ... +0 [ZEROISE FIXED CORE WORD
964X ...#STR %A
964^ ...#SKI
9653 ...#FID 0,5,#76 [USE DEFAULT AS %A NON-EXISTENT
9655 ...#STR %A
9657 ...(
9659 ...#SKI %A*(%A<64$64)
965? ...#FID 0,5,%A
965* ...#SKI %A*(%A<64$64)
965C ...#SKI
965F ...(
965H ...! PARAMETER 1 OUT OF RANGE
965K ...#FID 0,5,#76 [USE DEFAULT FOR INVALID PARAM.
965M ...)
965P ...)
965R ...#STR %B
965T ...#SKI
965X ...#FID 6,11,#76
965^ ...#STR %B
9663 ...(
9665 ...#SKI %B*(%B<64$64)
9667 ...#FID 6,11,%B
9669 ...#SKI %B*(%B<64$64)
966? ...#SKI
966* ...(
966C ...! PARAMETER 2 OUT OF RANGE
966F ...#FID 6,11,#76
966H ...)
966K ...)
966M ...#STR %C
966P ...#SKI
966R ...#FID 12,17,#76
966T ...#STR %C
966X ...(
966^ ...#SKI %C*(%C<64$64)
9673 ...#FID 12,17,%C
9675 ...#SKI %C*(%C<64$64)
9677 ...#SKI
9679 ...(
967? ...! PARAMETER 3 OUT OF RANGE
967* ...#FID 12,17,#76
967C ...)
967F ...)
967H ...#STR %D
967K ...#SKI
967M ...#FID 18,23,#76
967P ...#STR %D
967R ...(
967T ...#SKI %D*(%D<64$64)
967X ...#FID 18,23,%D
967^ ...#SKI %D*(%D<64$64)
9683 ...#SKI
9685 ...(
9687 ...! PARAMETER 4 OUT OF RANGE
9689 ...#FID 18,23,#76
968? ...)
968* ...)
968C ...#END
968F ...#NOR
968H ...)
968K ...[??? WSCOREPR SECT CENT FGN 18 DOC
968M ...#UNS ECS
968P ...(
968R ...#MAC WSCOREPRI
968T ...#STR ON,%A
968X ...(
968^ ...#STR OFF,%A
9693 ...(
9695 ...! PARAMETER MUST BE ON OR OFF
9697 ...#EXI
9699 ...)
969? ...)
969* ...#MEN QPRINT
969C ...#TRA K50QPRINT
969F ...#STR OFF,%A
969H ...#SKI
969K ... 0
969M ...#STR ON,%A
969P ...#SKI
969R ... #40000000
969T ...#END
969X ...#NOR
969^ ...)
96=3 ...[??? IGNOREFW SECT CENT FGN 18 DOC
96=5 ...#UNS ECS
96=7 ...(
96=9 ...#MAC IGNOREFWT
96=? ...[
96=* ...[ RESTORE TIME MACRO TO CAUSE THE LLS TO IGNORE FWT IN THE SELECTION
96=C ...[ FOR SWAPIN ALGORITHM OR TO REINSTATE THE USE OF FWT
96=F ...[ %A - ON OR MISSING, FWT IS IGNORED (I.E CALCULATED AS ZERO)
96=H ...[ - OFF,FWT IS USED
96=K ...[
96=M ...#STR %A,ON [INCLUDE IF %A NOT ON OR ABSENT
96=P ...(
96=R ...#STR OFF,%A [INCLUDE IF %A NOT OFF
96=T ...! PARAMETER MUST BE ON OR OFF
96=X ...#STR OFF,%A [INCLUDE IF %A OFF
96=^ ...#SKI
96?3 ...(
96?5 ...#MEN UNPLUG
96?7 ...#TRA K44UNPLUG
96?9 ... JBS K41UNPLUG,,HLSMFS
96?? ...#TRA K45UNPLUG
96?* ... JBS K41UNPLUG,,HLSBFS
96?C ...#TRA K40UNPLUG
96?F ... BSOFF CPIBIT,M
96?H ...M
96?K ...#TRA K41UNPLUG
96?M ... BXGE 5 7,K43UNPLUG
96?P ...#TRA K42UNPLUG
96?R ... BZE 7 K43UNPLUG
96?T ... LDN 6 0
96?X ... DVR 5 7
96?^ ...#END
96#3 ...)
96#5 ...)
96#7 ...#STR %A,ON [INCLUDE IF %A ON OR ABSENT
96#9 ...#SKI
96#? ...(
96#* ...#MEN UNPLUG
96#C ...#TRA K44UNPLUG
96#F ... JBS K42UNPLUG,,HLSMFS
96#H ...#TRA K45UNPLUG
96#K ... JBS K42UNPLUG,,HLSBFS
96#M ...#TRA K40UNPLUG
96#P ... BSOFF CPIBIT,K42UNPLUG
96#R ...#TRA K41UNPLUG
96#T ... BXGE 5 7,K42UNPLUG
96#X ...#TRA K42UNPLUG
96#^ ... NULL
96*3 ... NULL
96*5 ... LDN 6 0
96*7 ...#END
96*9 ...)
96*? ...#NOR
96** ...)
96*C ...[??? MELADJUS SECT CENT FGN 18 DOC
96*F ...#UNS ECS
96*H ...(
96*K ...#MAC MELADJUST
96*M ...[
96*P ...[ MACRO TO ALTER THE MILL PRIORITIES IN THE PCA TO THE VALUES IN THE
96*R ...[ JOB BLOCK,RE-RINGING THE PROGRAM MEMBERS ON THE PROGRAM RING IF TH
96*T ...[ PROGRAM IS PLUGGED IN
96*X ...[ %A - -> TO JOB BLOCK.MAY NOT BE X0
96*^ ...[ %B - -> TO PCA.IF ABSENT,PCA WILL BE FOUND FROM %A.
96B3 ...[
96B5 ...#STR 1,%B [INCLUDE IF %B=1
96B7 ...#SKI
96B9 ...(
96B? ... LDX 0 %B
96B* ... LDX 1 %A
96BC ... LDX 2 0 [X2 -> PCA
96BF ...)
96BH ...#STR 1,%B [INCLUDE IF %B NOT = 1
96BK ...(
96BM ...#STR 1,%A
96BP ... LDX 1 %A [X1 -> JOB BLOCK
96BR ...#STR %B,2 [INCLUDE IF %B NOT=2 OR ABSENT
96BT ... LDX 2 %B
96BX ...#STR %B
96B^ ...#SKI
96C3 ... FPCAJO 2,1 [AS %B ABSENT,FIND PCA
96C5 ...)
96C7 ... PCATEST 2,MNORM,,MPUC
96C9 ... FINDPUC 2,2 [IF TP CURRENT,FIND PUC
96C? ...MPUC ORX 2 GSIGN [AND SET MILL PRIORITY IN PUC'S PCA
96C* ... LDCH 0 AMILLP(1) [(ONLY MEMBER 0 OF A PUC USED)
96CC ... BNZ 0 MOTD1
96CF ... LDN 0 30
96CH ...MOTD1
96CK ... DCH 0 AMR1(2)
96CM ... FINDTP 2,2 [GET TP TO SET ITS MILL PRIORITIES
96CP ...MNORM
96CR ... STO 3 GEN3
96CT ... LDN 3 4 [4 PROGRAM MEMBERS
96CX ... ORX 2 GSIGN [MILL PRI. CHARACTER 2 IN PCA
96C^ ...MEXTMP
96D3 ... LDCH 0 AMILLP(1) [LOAD MILL PRI. FOR THIS MEMBER
96D5 ... BNZ 0 MOTD [0 INDICATES DEFAULT WHICH IS
96D7 ... LDN 0 30 [ A MILL PRI. OF 30
96D9 ...MOTD
96D? ... DCH 0 AMR1(2) [STORE MILL PRI. IN PCA
96D* ... BCHX 1 £
96DC ... ADN 2 1
96DF ... BCT 3 MEXTMP [J IF MORE MEMBERS
96DH ... LDX 3 GEN3 [RESTORE X3
96DK ... SBN 1 1 [RESET JOB BLOCK PTR
96DM ... JBC MEND,1,JBPLUG [ONLY RERING IF PLUGGED IN
96DP ... FPCAJO 2,1 [REFIND CURRENT PCA
96DR ... MELRERING 2 [RERING MEMBERS IF MILL PRI. CHANGED
96DT ...MEND
96DX ... LDX 1 FX1
96D^ ... LDX 2 FX2
96F3 ...#NOR
96F5 ...)
96F6 ...[??? CPIFORMR SECT CENT FGN 35
96F7 ...#MAC CPIFORMR
96F8 ...[
96F9 ...[ RESTORE TIME MACRO TO ALLOW THE RE-CALCULATION OF MILL RATINGS
96F= ...[ TO BE BASED UPON A JOBS CPI
96F? ...[
96F# ...#STR %A
96F* ...#ALT AMRTIME=%A
96FB ...#STR %A
96FC ...#SKI
96FD ...#ALT AMRTIME=5
96FF ...#MEN CHARGESC
96FG ...#TRA K51CHARGESC
96FH ... SMO FX1
96FJ ... LDX 0 K50CHARGESC
96FK ... SBX 0 JCPI(3)
96F^ ...#STR Y,%B
96G* ... LDN 4 2
96GP ...#STR Y,%B
96H5 ...#SKI
96HF ... LDX 4 INSTPARAM+3
96HT ... SBN 4 1
96J9 ... LDX 5 0
96JK ...X MPY 5 0
96J^ ... BCT 4 X
96K* ... STO 5 GEN5
96KP ...#STR Y,%C
96L5 ...#SKI
96LF ...(
96LT ...#TRA K54CHARGESC
96M9 ... MPY 4 INSTPARAM+4
96MK ...#TRA K52CHARGESC+1
96M^ ... MPY 5 INSTPARAM+5
96N* ...)
96NP ...#TRA K52CHARGESC
96P5 ... MPY 5 GEN5
96PF ...#TRA K53CHARGESC
96PT ... LDN 0 AMRTIME
96Q9 ...#END
96QK ...#MEN FIXED
96Q^ ...#STR Y,%B
96R* ...#SKI
96RP ...(
96S5 ...#TRA INSTPARAM+3
96SF ... 1
96ST ...)
96T9 ...#STR Y,%C
96TK ...#SKI
96T^ ...(
96W* ...#TRA INSTPARAM+4
96WP ... #20000000/5*9
96X5 ... #20000000/5
96XF ...)
96XT ...#END
96Y9 ...#NOR
96YK ...[??? TRACEDP SECT CENT FGN 6 DOC
96Y^ ...#MAC TRACEDP
9726 #NOR
979Y ...[??? CANDINIT SECT CENT FGN 6 DOC
97FQ #MAC CANDINIT
97^B #NOR
9898 ...[??? CANDCNT SECT CENT FGN 6 DOC
98F2 #MAC CANDCNT
98YL #NOR
99D= ...[???? CPIFORMS SECT CENT FGN
99XW ...[MACRO TO MAKE MILL SCHEDULER USE TIMESLOT
9=CG ...#MAC CPIFORMS
9=X6 ...#MEN CHARGESC
9?BQ ...#TRA K53CHARGESC
9?WB ... LDN 0 5
9#B2 ...#TRA K50CHARGESC
9#TL ... JBC (7),3,JBPLUG
9**= ... JBS (7),3,JBREEF
9*SW ... LDX 0 HMSLOT(3)
9B#G ... SBX 0 ATIMES(3)
9BS6 ... BNG 0 (7)
9C?Q ... LDX 2 FX2
9CRB ... BXL 0 AWORK2(2),(7)
9D?2 ... STO 0 AWORK2(2)
9DQL ... STO 1 AWORK3(2) [PCAPTR
9F== ... STO 3 AWORK4(2) [KEEP JOBQ PTR
9FPW ... EXIT 7 0
9G9G ...[OVERFLOW FROM LATER
9GP6 ...RAE4 FINDPUC 3,3
9H8Q ... BRN RAE1
9HNB ...RAE5 FINDTP 3,3
9J82 ... BRN RAE1
9JML ...#TRA K53CHARGESC+2
9K7= ... LDX 2 FX2
9KLW ... LDX 3 AWORK3(2)
9L6G ... BZE 3 RAE6
9LL6 ... LDN 6 1
9M5Q ...RAE1 LDN 0 1
9MKB ... LDN 5 4
9N52 ...RAE2 SMO 5
9N8X ... LDX 4 AMR1-1(3)
9N#S ... BZE 4 RAE3 [J IF WOULD GO -VE
9NDP ... SMO 5
9NJL ... SBS 0 AMR1-1(3)
9P4= ... BCT 5 RAE2
9PHW ... MELRERING 3
9Q3G ... BCT 6 RAE3 [J ON 2ND TIME THRU
9QH6 ... LDX 0 ATYPE(3)
9R2Q ... SRL 0 12
9RGB ... SBN 0 APET+ATP
9S22 ... BZE 0 RAE4
9SFL ... SBN 0 APUC
9S^= ... BZE 0 RAE5
9TDW ...RAE3 SMO AWORK4(2)
9TYG ... STOZ HMSLOT [ZEROISE TIME USED IN SLOT
9WD6 ...RAE6
9WXQ ... BRN K54CHARGESC
9XCB ...#END
9XX2 ...#NOR
^^^^ ...012120710046