LLSMACROS
(George Source)
Macros used: ICT
- LLSMACROS.txt
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