Show pageBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. {{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: LOBS-MACROS)}} ====== LOBS-MACROS ====== (George Source) <code - LOBS-MACROS.txt>229S ...[??? INCRECUB SECT FILE FGN 5 DOC 22FL [ 29S2 #MAC INCRECUBS 2=3S ...# START OF CODE FOR %D NULL 2=?L #STR %D 2=R= #SKI 2?=W ( 2?QG #STR %C 2#=6 #SKI 2#PQ ( 2*9B #STR NOTOPEN,%B 2*P2 #SKI 2B8L ( 2BN= ! ILLEGAL COMBINATION OF PARAMETERS ! 2C7W #EXIT 2CMG ) 2D76 ) 2DLQ #STR FORCED,%A 2F6B #SKI 2FL2 #DEF M6INCRECUBS=1 2G5L #STR ANSWER,%A 2GK= #SKI 2H4W #DEF M6INCRECUBS=1 2HJG #OPT M6INCRECUBS=0 2HS# ...# START OF CODE FOR %A FORCED OR ANSWER & %D NULL 2J46 #SKI M6INCRECUBS 2JHQ ( 2JRJ ...# START OF CODE FOR %B NOT NOTOPEN, %A FORCED OR ANSWER & %D NULL 2K3B #STR NOTOPEN,%B 2KH2 ( 2L2L #STR %C 2LG= ( 2L^W #STR 0,%C 2MFG LDX 0 %C 2M^6 #STR %B 2NDQ ( 2NYB #STR 1,%B 2PD2 LDX 1 %B 2PXL ) 2QC= #STR %B 2QWW #SKI 2RBG LDN 1 0 2RW6 LDX 2 FX2 2S*Q STO 0 ACOMMUNE1(2) 2STB STO 1 ACOMMUNE2(2) 2T*2 ) 2TSL #STR %C 2W#= #SKI 2WRW LDX 2 FX2 2X?G SFSTACK %B,1 2XR6 SETREP2 OK 2YQB #STR %C 2^=2 ... JMBS M4INCRECUBS,1,BACOMM,BACLEAN [J IF FILE OPEN COMMUNALLY 2^PL ... JBC M1INCRECUBS,1,BACUBS [J IF PUBLIC 329= ...#STR %C 32NW ... LDX 1 ACOMMUNE1(2) [X1=INCREASE 34MB LDX 0 JOBNO(2) 3572 LDN 2 BJOBQ 35LL M2INCRECUBS 366= LDX 2 FPTR(2) 36KW ... BXE 2 CXJO,(GEOERR) 375G BXU 0 JOBNUM(2),M2INCRECUBS 37K6 #STR %C 384Q #SKI 38JB ...( 3942 PSTAC 1,1 39HL BFCBX 1,1 3=3= LDX 1 FBLMOD(1) 3=GW SBN 1 FBLKS-A1 3?2G ) 3?G6 ADS 1 CUBS(2) 3?^Q #STR FORCED,%A 3#FB ( 3#^2 LDX 0 AMBS(2) 3*DL SBX 0 CUBS(2) 3*Y= BPZ 0 M3INCRECUBS 3BCW SETREP GLUTTON 3BXG SBS 1 CUBS(2) 3CC6 BRN M1INCRECUBS 3CWQ M3INCRECUBS 3DBB ) 3DW2 LDX 0 CUBS(2) 3F*L BXL 0 GUBS(2),M1INCRECUBS 3FT= STO 0 GUBS(2) 3G#W #STR %C 3GSG ( 3H#6 BRN M1INCRECUBS 3HRQ M4INCRECUBS 3J?B #STR FORCED,%A 3JR2 DOWN INCRCUBS,33 3K=L #STR ANSWER,%A 3KQ= DOWN INCRCUBS,32 3L9W ) 3LPG M1INCRECUBS 3M96 LDX 1 FX1 [NEEDS MODIFYING 3MNQ LDX 2 FX2 3N8B #FRE M6INCRECUBS 3NN2 #EXIT 3P7L ) 3PCD ...# END OF CODE FOR %B NOT NOTOPEN, %A FORCED OR ANSWER & %D NULL 3PM= #STR 1,%C 3Q6W LDX 1 %C 3QLG LDX 2 FX2 3R66 SETREP2 OK 3RKQ LDX 0 JOBNO(2) 3S5B LDN 2 BJOBQ 3SK2 M2INCRECUBS 3T4L LDX 2 FPTR(2) 3TJ= ... BXE 2 CXJO,(GEOERR) 3W3W BXU 0 JOBNUM(2),M2INCRECUBS 3WHG ADS 1 CUBS(2) 3X36 #STR FORCED,%A 3XGQ ( 3Y2B LDX 0 AMBS(2) 3YG2 SBX 0 CUBS(2) 3Y^L BPZ 0 M3INCRECUBS 3^F= SETREP GLUTTON 3^YW SBS 1 CUBS(2) 42DG BRN M1INCRECUBS 42Y6 M3INCRECUBS 43CQ ) 43XB LDX 0 CUBS(2) 44C2 BXL 0 GUBS(2),M1INCRECUBS 44WL STO 0 GUBS(2) 45B= M1INCRECUBS 45TW LDX 1 FX1 46*G LDX 2 FX2 [NEEDS MODIFYING 46T6 #FRE M6INCRECUBS 47#Q #EXIT 47SB ) 4848 ...# END OF CODE FOR %A FORCED OR ANSWER & %D NULL 48#2 #STR %C 48RL ( 49?= #STR 0,%C 49QW LDX 0 %C 4==G ) 4=Q6 #STR %C 4?9Q #SKI 4?PB LDCT 0 #400 4#92 #STR %B 4#NL #SKI 4*8= LDN 1 0 4*MW #STR %B 4B7G ( 4BM6 #STR NOTOPEN,%B 4C6Q ( 4CLB #STR 1,%B 4D62 LDX 1 %B 4DKL ) 4F5= #STR NOTOPEN,%B 4FJW #SKI 4G4G #DEF M5INCRECUBS=1 4GJ6 ) 4H3Q #OPT M5INCRECUBS=0 4HHB LDX 2 FX2 4J32 STO 0 ACOMMUNE1(2) 4JGL #SKI M5INCRECUBS 4K2= DOWN INCRCUBS,31 4KFW #SKI M5INCRECUBS<1$1 4K^G ( 4LF6 STO 1 ACOMMUNE2(2) 4LYQ DOWN INCRCUBS,3 4MDB ) 4MY2 BRN %A 4NCL #FRE M5INCRECUBS 4NX= #FRE M6INCRECUBS 4PBW #EXIT 4PWG ) 4Q6# ...# END OF CODE FOR %D NULL 4QB6 #STR FORCED,%A 4QTQ #SKI 4R*B ( 4RT2 #STR NOTOPEN,%B 4S#L #SKI 4SS= ( 4T?W #STR 1,%C 4TRG LDX 1 %C 4W?6 MOD LDX 0 JOBNO,%D 4WQQ LDX 2 FX2 4X=B SETREP2 OK 4XQ2 LDN 2 BJOBQ 4Y9L M2INCRECUBS 4YP= LDX 2 FPTR(2) 4^8W ... BXE 2 CXJO,(GEOERR) 4^NG BXU 0 JOBNUM(2),M2INCRECUBS 5286 ADS 1 CUBS(2) 52MQ LDX 0 CUBS(2) 537B BXL 0 GUBS(2),M1INCRECUBS 53M2 STO 0 GUBS(2) 546L M1INCRECUBS 54L= LDX 1 FX1 555W LDX 2 FX2 55KG #EXIT 5656 ) 56JQ ) 574B ! UNEXPECTED COMBINATION OF PARAMETERS ! 57J2 #NOR 5LDJ ...[??? SUBCUBS SECT FILE FGN 5 DOC 5LNB [ 5M82 #MAC SUBCUBS 5MCS ...# START OF CODE FOR %D NULL 5MML #STR DEPTH,%D 5N7= ( 5NLW #STR FILE,%B 5P6G LDX 1 %B 5PL6 #STR NOTOPEN,%A 5Q5Q ... JBC M1SUBCUBS,%A,BACUBS [J IF PUBLIC 5QKB #STR FILE,%B 5R52 #SKI 5RJL ( 5S4= PSTAC 2,%A 5SHW BFCBX 2,2 5T3G LDX 1 FBLMOD(2) 5TH6 SBN 1 FBLKS-A1 5W2Q ) 5WGB #STR JOB,%C 5X22 LDX 0 %C 5XFL #STR JOB,%C 5X^= #SKI 5YDW ( 5YYG SMO FX2 5^D6 LDX 0 JOBNO 5^XQ ) 62CB LDN 2 BJOBQ 62X2 M2SUBCUBS 63BL LDX 2 FPTR(2) 63W= ... BXE 2 CXJO,(GEOERR) 64*W BXU 0 JOBNUM(2),M2SUBCUBS 64TG SBS 1 CUBS(2) 65*6 M1SUBCUBS 65SQ LDX 1 FX1 66#B LDX 2 FX2 66S2 #EXIT 67?L ) 67HD ...# END OF CODE FOR %D NULL 67R= #STR FILE,%B 68=W ( 68QG #STR JOB,%C 69=6 #SKI 69PQ ( 6=9B #STR 0,%B 6=P2 LDX 0 %B 6?8L #STR %A 6?N= ( 6#7W #STR 1,%A 6#MG LDX 1 %A 6*76 ) 6*LQ LDX 2 FX2 6B6B STO 0 ACOMMUNE1(2) 6BL2 #STR %A 6C5L STO 1 ACOMMUNE2(2) 6CK= #STR %A 6D4W #SKI 6DJG STOZ ACOMMUNE2(2) 6F46 DOWN INCRCUBS,5 6FHQ #EXIT 6G3B ) 6GH2 ) 6H2L ! UNEXPECTED COMBINATION OF PARAMETERS ! 6HG= #NOR 6HQ4 ...[??? APPCUBS SECT FILE FGN 5 DOC 6H^W [ 6JFG #MAC APPCUBS 6J^6 SETREP2 OK 6KDQ ... JBS M2APPCUBS,%B,BACOMM [J IF OPEN COMMUNALLY 6KYB ... JBC M1APPCUBS,%B,BACUBS [J IF PUBLIC 6LD2 LDX 0 ACOMMUNE1(2) 6LXL ... BZE 0 M2APPCUBS [GEOERR IF NO BREAK-IN ADDRESS, "ANSW 6MC= LDX 0 JOBNO(2) 6MWW LDN 1 BJOBQ 6NBG M3APPCUBS 6NW6 LDX 1 FPTR(1) 6P*Q BXE 1 CXJO,M2APPCUBS [JOB NOT FOUND 6PTB BXU 0 JOBNUM(1),M3APPCUBS 6SR6 LDN 0 1 6T=Q ADS 0 CUBS(1) 6W=2 LDX 0 AMBS(1) 6WPL SBX 0 CUBS(1) 6X9= BNG 0 M2APPCUBS [J IF AMBS EXCEEDED 6XNW LDX 0 CUBS(1) 6Y8G BXL 0 GUBS(1),M1APPCUBS 6YN6 STO 0 GUBS(1) 6^7Q BRN M1APPCUBS 6^MB M2APPCUBS 75JB DOWN INCRCUBS,1 7642 BRN %A [BREAK-IN 76HL M1APPCUBS 773= #NOR 77?4 ...[??? INCREAMB SECT FILE FGN 5 DOC 77GW [ 782G #MAC INCREAMBS 78G6 SMO FX2 78^Q STO %B ACOMMUNE1 79FB DOWN INCRCUBS,2 79^2 BRN %A 7=DL #NOR 7=ND ...[??? LOBSFILE SECT FILE FGN 5 DOC 7=Y= [ 7?CW #MAC LOBSFILE 7?XG #STR %A 7#C6 #SKI 7#WQ ( 7*BB DOWN INCRCUBS,4 7*W2 #EXIT 7B*L ) 7BT= #ACC %A 7C#W #SKI 7CSG ( 7D#6 SMO FX2 7DRQ STO %A ACOMMUNE1 7F?B ) 7FR2 #ACC %A 7G=L ( 7GQ= LDX 0 %A 7H9W SMO FX2 7HPG STO 0 ACOMMUNE1 7J96 ) 7JNQ DOWN INCRCUBS,41 7K8B #NOR 7KD8 ...[??? NOLOBSFI SECT FILE FGN 5 DOC 7KN2 [ 7L7L #MAC NOLOBSFILE 7N66 DOWN INCRCUBS,7 7XY6 #NOR 7Y7Y ...[??? PPCUBS SECT FILE FGN 5 DOC 7YCQ [ 7YXB #MAC PPCUBS 7^C2 MHUNTW 1,FILE,ENT 7^WL LDX 0 EALLOC(1) 82?6 ... ANDN 0 #77 82ML ... SBN 0 48 8346 ... BPZ 0 M1PPCUBS [J IF FILE ALLOCATED TO SPECIAL RESID 83DL ... JBS M1PPCUBS,1,BEALLINCS 83T6 LDX 7 ECOPS(1) 84#Q SRL 7 15 84H= ... INCREAMBS %A,7 84PQ ... TESTRPN2 OK,%B [TO %B IF INCREASE REFUSED 84Y= ... LDN 1 BJOBQ 856Q ...M2PPCUBS 85*= ... LDX 1 FPTR(1) 85HQ ... BXE 1 CXJO,(GEOERR) 85Q= ... BXU 0 JOBNUM(1),M2PPCUBS 85YQ ... ADX 7 CUBS(1) 867= ... BXL 7 GUBS(1),M1PPCUBS [UPDATE GUBS IF OLD VALUE WOULD BE EX 86*Q ... STO 7 GUBS(1) 86J= ...M1PPCUBS 86QW LDX 1 FX1 87=G #NOR 87Q6 ...[??? CUBSCHEC SECT FILE FGN 5 DOC 889Q ...[ 88PB ...#MAC CUBSCHEC 8992 ...#DEF CUBSCHEC=1 89NL ...#INC CUBSCHEC 8=8= ... SEG CUBSCHEC,,FILE,FILESTORE 8=MW ... SEGENTRY K1CUBSCHEC,X1 8?7G ... SEGENTRY K2CUBSCHEC,X2 8?M6 ...# 8#6Q ...# SUBROUTINE TO UPDATE X4 BY FILE SIZES OF ALL NON-PUBLIC 8#LB ...# FILES(EXCLUDING WORKFILES) OPEN TO THIS ACT.. 8*62 ...# ON ENTRY, X2-> REQUIRED ACT. X6 IS SR LINK. 8*KL ...# ON EXIT, X4 UPDATED. DESTROYS X0,X1,X2 & X3. 8B5= ...# 8BJW ...XFRING 8C4G ... LDN 2 FILERING(2) 8CJ6 ... LDX 1 2 8D3Q ...XF1 8DHB ... LDX 1 FPTRF(1) [X1-> NEXT FCA 8F32 ... BXE 1 2,(6) [EXIT IF END OF FILE RING 8FGL ... JBC XF1,1,BACUBS [J IF PUBLIC 8G2= ... PSTAC 3,1 [X3-> FSTACK BLOCK 8GFW ... BFCBX 3,3 [X3-> FCB 8G^G ... JBS XF1,3,BFWORK [J IF WORKFILE 8HF6 ... LDX 0 FBLMOD(3) 8HYQ ... SBN 0 FBLKS-A1 8JDB ... ADX 4 0 [ADD FILE SIZE TO COUNT 8JY2 ... BRN XF1 8KCL ...# 8KX= ...# 8LBW ...# MAIN CODE 8LWG ...# 8MB6 ...X1 [ENTRY WITH CURRENT ACT. A CPAT 8MTQ ... LDX 0 JOBNO(2) 8N*B ... BZE 0 M5 [UP IF JOB NO. ZERO 8NT2 ... LDX 7 2 [X7-> CPA 8P#L ... LDN 4 0 [INITIALISE COUNT 8PS= ... CALL 6 XFRING [UPDATE COUNT FOR CPAT 8Q?W ... FPCACA 2,7,N [X2-> APET (IF ANY) 8QRG ... LDCH 0 ATYPE(2) 8R?6 ... SBN 0 APET/64 8RQQ ... BNZ 0 M2 [J IF NO PROGRAM LOADED 8S=B ... LDX 5 2 [REMEMBER APET 8SQ2 ... CALL 6 XFRING [UPDATE COUNT FOR APET 8T9L ...M1 8TP= ... SMO 5 8W8W ... LDX 2 ACTRING 8WNG ... SBN 2 ACTRING [X2-> NEXT ACT. BLOCK 8X86 ... LDCH 0 ATYPE(2) 8XMQ ... SBN 0 AOLPT/64 8Y7B ... BNZ 0 M2 [J IF NOT AOLPT 8YM2 ... LDX 5 2 8^6L ... LDN 3 0 8^L= ... CALL 6 XFRING [UPDATE COUNT FOR OLPA 925W ... LDX 1 3 [X1-> FCB 92KG ... LDX 3 FPTR(3) [X3-> FSTACK 9356 ... LDEX 6 ARINGNO(3) 93JQ ... ADN 3 A1 944B ...M10 94J2 ... JMBAC M1,3,BACOMM,BACLEAN [J IF NOT COMMUNE 953L ... LDX 2 FPTR(3) 95H= ... ADX 2 FBACKPOINT(2) [X2-> AOLPT 962W ... LDX 0 ALINK1(2) 96GG ... SRL 0 12 9726 ... SBN 0 KGETBAX 97FQ ... BZE 0 M5 [J IF IN GETBAX 97^B ... SBN 0 KINCRCUBS-KGETBAX 98F2 ... BZE 0 M5 [J IF IN INCRCUBS 98YL ... SBN 0 KINCRCUBX-KINCRCUBS 99D= ... BZE 0 M5 [J IF IN INCRCUBX 99XW ... ADN 3 FELLEN 9=CG ... BCT 6 M10 9=X6 ... BRN M1 9?BQ ...M2 9?WB ... LDX 2 7 [X2-> CPAT 9#B2 ... LDN 2 BWORKRING(2) 9#TL ... LDX 1 2 9**= ...M3 9*SW ... LDX 1 FPTRF(1) 9B#G ... BXE 1 2,M4 [J IF END OF WORKFILE RING 9BS6 ... LDX 0 ATYPE(1) 9C?Q ... BXU 0 FILEPLUSFCB,M3 [J IF NOT FCB 9CRB ... LDX 0 FBLMOD(1) 9D?2 ... SBN 0 FBLKS-A1 9DQL ... ADX 4 0 [ADD FILE SIZE TO COUNT 9F== ... BRN M3 9FPW ...M4 9G9G ... LDX 2 7 [X2-> CPAT 9GP6 ... FJOCA 2 [X2-> JOB BLOCK 9H8Q ... LDX 0 CUBS(2) 9HNB ... SBX 0 4 9J82 ... BZE 0 M5 9JML ... GEOERR 1,CUBSERR [CUBS IS WRONG 9K7= ...M5 9KLW ... UP 9L6G ...# 9LL6 ...X2 [ENTRY FROM K1EDOBJ 9M5Q ... LDX 2 APETADDR(2) [X2-> APET 9MKB ... FCAPCA 2 [X2-> CPAT 9N52 ... BRN X1 9NJL ...# 9P4= ...# 9PHW ...#END 9Q3G ... NEWCHAP CUBSCHEC 9QH6 ...#NOR ^^^^ ...21075266001600000000 </code> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In