{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: LOBS-MACROS)}}
====== LOBS-MACROS ======
(George Source)
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