{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS OPER)}}
====== COMPS OPER ======
(George Source)
**Macros used:** [[george:macro:BITDEFS|BITDEFS]], [[george:macro:FIELDDEF|FIELDDEF]]
22FL [
22^= [ CONBUFF/CNTRL BLOCK FORMAT
23DW [
23YG #DEF COIN = A1 [ NUMBER OF PREVIOUS LINES IN THE
24D6 [ CURRENT INPUT MESSAGE
24XQ [
25CB #DEF CORET = COIN + 1 [ NUMBER OF PAGES RETAINED FOR
25X2 [ SHOWING. WILL BE LESS THAN SIZE
26BL [ OF RECALL FILE IN PAGES UNTIL
26W= [ FILE IS FILLED AND STARTS TO BE
27*W [ UPDATED CYCLICALLY
27TG [
28*6 #DEF COBLK = CORET + 1 [ NUMBER OF BLOCKLET WITHIN RECALL
28SQ [ FILE TO WHICH ACTIVE PAGE WILL BE
29#B [ WRITTEN
29S2 [
2=?L #DEF COECH = COBLK + 1 [ NUMBER OF INPUT MESSAGES CHAINED
2=R= [ FOR ECHO TO OPER LOG
2?=W [
2?QG #DEF CODAT = COECH + 1 [ EDATE AND CLEANCT AT THE TIME THE
2#=6 [ CURRENT PAGEWAIT OR SHOW STARTED
2#PQ [ (2 WORDS)
2*9B [
2*P2 #DEF COBS = CODAT + 2 [ EDATE AND CLEANCT AT THE TIME THAT
2B8L [ BSTS LAST WROTE
2BN= [
2C7W #DEF COVID = COBS + 2 [ 'CLUSTOPER' WORDS FOLLOW, WORD
2CMG [ COVID+ CONTAINING DETAILS OF
2D76 [ SCREEN ON CLUSTER ZERO
2DLQ [
2F6B ...#DEF CLUSTOPER = 1 [HIGHEST NUMBER SCREEN WE CAN HANDLE
2FL2 [
2G5L [ EACH WORD IS SUBDIVIDED AS FOLLOWS:
2GK= [
2H4W FIELDDEF COSHOWS,6,0,5 [ 6-BIT FIELD - NUMBER OF SHOWS
2HJG [ OUTSTANDING FOR THIS SCREEN
2J46 [
2JHQ BITDEFS COVID,7,COPAGEWAIT [ SET IF WAITING BETWEEN PAGES (ONLY
2K3B [ APPLIES TO INTERACTIVE SCREEN)
2KH2 [
2L2L BITDEFS COVID,8,COUTWAITS [ SET IF 'OUTPUT WAITING' HAS BEEN
2LG= [ WRITTEN (ONLY APPLIES TO
2L^W [ INTERACTIVE SCREEN)
2MFG [
2MJ5 ... BITDEFS 0,9,COAUTO [ SET IF SCREEN IS ON AUTO
2MLN ... [
2MP? ... BITDEFS COVID,10,COVERWRITE [ SET IF MAIN SCREEN NEEDS RESETTING,
2MRW ... [ E.G. AFTER BSTS MSG
2MWF ... [
2M^6 [ 1-BIT GAP
2NDQ [
2NYB BITDEFS COVID,12,CONSFILE [ SET WHEN RECALL FILE SET UP
2PD2 [ (ONLY HERE TO SAVE SPACE)
2PXL [
2QC= BITDEFS 0,13,COSHOWING [ SET IF SCREEN IS SHOWING
2QWW [
2RBG BITDEFS COVID,14,CONSNOFILE [ SET IF RECALL FILE SETUP FAILED
2RW6 [ (ONLY HERE TO SAVE SPACE)
2S*Q [
2STB FIELDDEF COCURRENT,9,0,23 [ 9-BIT FIELD CONTAINING NUMBER OF
2T*2 [ PAGE CURRENTLY ON SCREEN
2TSL [
2W#= #DEF CNTRLEN = (COVID+CLUSTOPER+1) - COIN
2WRW [ BLOCK LENGTH
2X?G [
2XR6 [
2Y=Q [
2YQB [
2^=2 [
2^PL [ CONBUFF/ACTIVE BLOCK FORMAT
329= [
32NW #DEF ACTIVEINIT = 64 [ INITIAL LOGICAL LENGTH
338G [
33N6 #DEF ACTIVEXT = ACTIVEINIT [ SIZE OF EACH INCREASE
347Q [
34MB #DEF ACTIVEMAX = ACTIVEXT * 3 + ACTIVEINIT
3572 [ THREE EXTENSIONS ALLOWED
35LL [
3636 ...#DEF ACHCT = A1 [ WHILE PAGE BEING BUILT UP:
36CL ... [ 0 => NO MESSAGES SUCCESSFULLY AP
36S6 ... [ WHEN PAGE WRITTEN AWAY:
378L ... [ SIZE OF PAGE (INC FUNCTION LINE)
37K6 [
384Q #DEF ACLOG = ACHCT + 1 [ COUNT OF WORDS (INCLUDING ITSELF)
38JB [ TO BE OVERWRITTEN BY A FUNCTION
3942 [ LINE AFTER READING PAGE FROM FILE
39HL [ PRIOR TO SHOWING IT. THE NEXT THREE
3=3= [ WORDS ARE ONLY OF USE DURING THE
3=GW [ ENOUGH SPACE IS NEEDED (AT LEAST
3?2G [ 16 CHARACTERS) THEY ARE NOT OVER-
3?G6 [ WRITTEN BY PAGE DATA.
3?^Q [ PAGE DATA ITSELF STARTS AT
3#FB [ ACLOG + [ACLOG]
3#^2 [
3*DL #DEF ACLFT = ACLOG + 1 [ LINES LEFT IN PAGE
3*Y= [
3BCW #DEF ACOUT = ACLFT + 1 [ DISPLACEMENT RELATIVE TO FPTR OF
3BXG [ THE NEXT LINES IN THE PAGE THAT
3CC6 [ HAVE NOT YET BEEN WRITTEN TO THE
3CWQ [ LOG AREA
3DBB [
3DW2 #DEF ACLEN = ACOUT + 1 [ CHARACTER COUNT OF THAT SECTION
3F*L [
3FCT ...#DEF ACLNS = ACLEN + 1 [ LINES IN THAT SECTION
3FG4 ... [
3FJ? ...#DEF ACDAT = ACLNS + 1 [ EDATE THAT PAGE WAS STARTED
3FLG ... [
3FNP ...#DEF ACTIM = ACDAT + 1 [ CLEANCT THAT PAGE WAS STARTED
3FQY ... [
3FT= [ AFTER THE REMAINDER OF THE GAP FOR
3G#W [ THE FUNCTION LINE (SEE ABOVE), THE
3GSG [ PAGE DATA BEGINS
3H#6 [
3HRQ #DEF HEIGHTPAGE = 19 [ LINES IN A PAGE
3J?B [
3JR2 [
3K=L [
3KQ= [
3L9W [
3LPG [ CONBUFF/CSHOW BLOCK FORMAT
3M96 [
3MNQ #DEF CSVID = A1 [ SCREEN NUMBER
3N8B [
3NN2 #DEF CSPAG = CSVID + 1 [ PAGE NUMBER (RELATIVE TO ACTIVE)
3P7L [
3PM= [
3Q6W [
3QLG [
3R66 [ BITS AND FIELDS IN REPLY WORD
3RKQ [
3S5B BITDEFS 0,0,CONSBUSY,,,CONSFAIL,CONSCANCEL
3SK2 BITDEFS 0,5,CONSINOP,CONSFWD,CONSREV,CONSCONTN
3T4L FIELDDEF CONSREMCT,15,0,23
3TJ= [
3W3W [
3WHG [
3X36 [
3XGQ [ VALUES FOR IP PAGEWAIT
3Y2B [
3YG2 [
3Y^L ...#DEF IPWDEFAULT=0
3^F= #DEF IPWMAX=600
3^YW #DEF IPWMIN=0
42DG [
42Y6 [
^^^^ ...554450340006