(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