{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: RCTPMACS)}}
====== RCTPMACS ======
(George Source)
229S ...[??? TESTTP SECT CENT FGN 1 DOC
22FL # THIS SUBFILE BELONGS TO P.M.VINCE
22^= # THE FOLLOWING TEN MACROS ARE USED
23DW # IN THE IMPLEMENTATION OF THE
23YG # R.C.T.P. SUBSET.
24D6 #SKI ARCTP
24XQ (
25CB # THIS MACRO TESTS WHETHER THE CURRENT ACTIVITY
25X2 # IS THAT OF A TRUSTED PROGRAM.
26BL #MAC TESTTP
26W= #STR %A
27*W MOD LDX 0 ATYPE,%A
27TG #STR %A
28*6 #STR
28SQ (
29#B SMO FX2
29S2 LDX 0 ATYPE
2=?L )
2=R= SRL 0 6
2?=W ANDN 0 #7700
2?QG SBN 0 ATP*64
2#=6 BZE 0 %B
2#PQ #NOR
2#SW ...)
2#Y2 ...[??? TESTPUC SECT CENT FGN 1 DOC
2*36 ...#SKI ARCTP
2*6= ...(
2*9B # THIS MACRO TESTS WHETHER THE CURRENT ACTIVITY
2*P2 # IS THAT OF A P.U.C.
2B8L #MAC TESTPUC
2BN= #STR %A
2C7W MOD LDX 0 ATYPE,%A
2CMG #STR %A
2D76 #STR
2DLQ (
2F6B SMO FX2
2FL2 LDX 0 ATYPE
2G5L )
2GK= SRL 0 6
2H4W ANDN 0 #7700
2HJG SBN 0 APUC*64
2J46 BZE 0 %B
2JHQ #NOR
2JLW ...)
2JQ2 ...[??? FINDTP SECT CENT FGN 1 DOC
2JT6 ...#SKI ARCTP
2JY= ...(
2K3B # THIS MACRO FINDS THE RELATED TP/PCA
2KH2 # FROM THE PUC/PCA.
2L2L #MAC FINDTP
2LG= #SKIP CAMK7
2L^W (
2MFG #STRING %A
2M^6 #STRING %A,%B
2NDQ OPND LDX %B,%A,FX2
2NYB )
2PD2 #SKIP CAMK7<1$1
2PXL (
2QC= #STR %A
2QWW LDX %B %A
2RBG #STR %A
2RW6 #STR
2S*Q LDX %B FX2
2STB )
2T*2 MOD LDX %B ACTRING,%B
2TSL SBN %B ACTRING
2W#= #NOR
2WCB ...)
2WGG ...[??? FINDPUC SECT CENT FGN 1 DOC
2WKL ...#SKI ARCTP
2WNQ ...(
2WRW # THIS MACRO FINDS THE RELATED PUC/PCA
2X?G # FROM THE TP/PCA
2XR6 #MAC FINDPUC
2Y=Q #SKIP CAMK7
2YQB (
2^=2 #STRING %A
2^PL #STRING %A,%B
329= OPND LDX %B,%A,FX2
32NW )
338G #SKIP CAMK7<1$1
33N6 (
347Q #STR %A
34MB LDX %B %A
3572 #STR %A
35LL #STR
366= LDX %B FX2
36KW )
375G MOD LDX %B ACTRING+1,%B
37K6 SBN %B ACTRING
384Q #NOR
387W ...)
38?2 ...[??? RINGTP SECT CENT FGN 1 DOC
38B6 ...#SKI ARCTP
38F= ...(
38JB # THIS MACRO ENRINGS THE TP/PCA AND DERINGS
3942 # THE PUC/PCA ONTO/FROM THE JOB RING
39HL #MAC RINGTP
3=3= FINDTP %A,1
3=GW LDN 1 JOBRING(1)
3?2G MOD LDN 2 JOBRING,%A
3?G6 ENRING 1,2
3?^Q MOD LDN 1 JOBRING,%A
3#FB DERING 1
3#^2 #NOR
3*46 ...)
3*7= ...[??? RINGPUC SECT CENT FGN 1 DOC
3*=B ...#SKI ARCTP
3**G ...(
3*DL # THIS MACRO ENRINGS THE PUC/PCA AND DERINGS
3*Y= # THE TP/PCA ONTO/FROM THE JOB RING
3BCW #MAC RINGPUC
3BXG FINDPUC %A,1
3CC6 LDN 1 JOBRING(1)
3CWQ MOD LDN 2 JOBRING,%A
3DBB ENRING 1,2
3DW2 MOD LDN 1 JOBRING,%A
3F*L DERING 1
3FT= #NOR
3FYB ...)
3G3G ...[??? TESTRCTP SECT CENT FGN 1 DOC
3G6L ...#SKI ARCTP
3G9Q ...(
3G#W # THIS MACRO TESTS WHETHER THE CURRENT JOB
3GSG # IS OF RCTP TYPE.
3H#6 #MAC TESTRCTP
3HRQ LDCT 0 #200
3J?B MOD ANDX 0 JMISC,%A
3JR2 BNZ 0 %B
3K=L #NOR
3K*Q ...)
3KDW ...[??? SETRCTP SECT CENT FGN 1 DOC
3KJ2 ...#SKI ARCTP
3KM6 ...(
3KQ= # THIS MACRO SETS CURRENT JOB TO THAT OF RCTP TYPE
3L9W # AND INCREMENTS COUNT OF EXTANT RCTP JOBS.
3LPG #MAC SETRCTP
3M96 LDN 0 1
3MNQ ADS 0 CTRCTP
3N8B FJOPCA 1,%A
3NN2 LDCT 0 #200
3P7L ORS 0 JMISC(1)
3PM= #NOR
3PQB ...)
3PTG ...[??? UNSETRCT SECT CENT FGN 1 DOC
3PYL ...#SKI ARCTP
3Q3Q ...(
3Q6W # THIS MACRO UNSETS CURRENT JOB FROM THAT OF RCTP TYPE
3QLG # AND DECREMENTS COUNT OF EXTANT RCTP JOBS.
3R66 #MAC UNSETRCTP
3RKQ LDN 0 1
3S5B SBS 0 CTRCTP
3SK2 FJOPCA 1,%A
3T4L LDCT 0 #200
3TJ= ERS 0 JMISC(1)
3W3W #NOR
3W72 ...)
3W=6 ...[??? ANYRCTPS SECT CENT FGN 1 DOC
3W*= ...#SKI ARCTP
3WDB ...(
3WHG # THIS MACRO TESTS WHETHER THERE ARE
3X36 # ANY EXTANT RCTP JOBS
3XGQ #MAC ANYRCTPS
3Y2B LDX 0 CTRCTP
3YG2 BNZ 0 %A
3Y^L #NOR
3^F= )
^^^^ ...47372407000200000000