{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS JSR)}}
====== COMPS JSR ======
(George Source)
**Macros used:** [[george:macro:ENTRUST|ENTRUST]], [[george:macro:TESTMON|TESTMON]]
22FL #
22^= # RUTH HEAP
23DW #
23YG #OPT APEDBLOCKS=1
24D6 #DEF BMONITOR=G3MARK>5-5<1
24XQ #INC GETWORD60
25CB #SKI G3
25X2 #INC SWAP60
26BL #SKI G4
26W= #INC HIVE60
27*W #INC TPINS60
27TG #INC EVENTFN
28*6 #INC REQESLIP4
28SQ #INC OPILLSA206
29#B #INC STEPBACK1
29S2 #INC MONEVENT36
2=?L #INC OPILLS70
2=R= #INC OPCAXCOD5
2?=W #INC OPCA65
2?QG #INC DISEVENT65
2#=6 #INC ILLPERI70
2#PQ #INC ILLEXC70
2*9B #INC DISPCOM3
2*P2 #INC QUESCOM50
2B8L #INC ANSCOM50
2BN= #INC RELCOM
2C7W #INC QUOTA60
2CMG #INC PERTYPNO6
2D76 #INC MONITOR36
2DLQ #INC TESTMON
2F6B #INC MONRESUM
2FL2 #INC FAIL5
2G5L #INC HALT5
2GK= #INC DELCOM5
2H4W #OPT HIGHURGE=1
2HJG #INC LOAD60
2J46 #INC LOADX60
2JHQ #INC CONTXCOD60
2K3B #INC LDSTART70
2KH2 #INC LOADPROG70
2L2L #INC LOADFIN70
2LG= #INC LOADERR70
2L^W #INC PROSTART70
2MFG #INC ENTRUST
2M^6 # JSR41 IFNON ZERO LOOPW ETC AND NEW DATMUA INCLUDED
2NDQ #OPT JSR41=1
2NYB #DEF FORANS=#25
2PD2 # WAITING STYLE:QUESTION COMMAND WAITING FOR ANSWER
2PXL # CONDS IN APED BLOCK
2QC= #DEF APEDDEL=#01
2QWW #DEF APEDHALT=#02
2RBG #DEF APEDFAIL=#03
2RW6 #DEF APEDMON=04
2S*Q # TWO NAMES FOR THE SAME ILLEGAL MESSAGE
2STB #DEF JYNOPERI=JYUNALLOC
2T*2 #DEF JY=0 [NULL ILLEGAL MESSAGE
2TSL # FORMAT OF APED BLOCK
2W#= #DEF APEDSP1=A1
2WRW #DEF APEDSP2=A1+8
2X?G #DEF APEDCOND=A1+1
2XR6 #DEF APEDCHAR=A1+2
2Y=Q #DEF APEDMESS=A1+3
2YQB #DEF APEDDISM=A1 [POSN OF MESSAGE IN APED,ADISPLAY
2^=2 #DEF APEDDELM=APEDSP2+2 [POSN OF MESSAGE IN APED,ADELETE
2^PL #DEF APEDACC=A1 [POSN OF ACCS IN APED,ADELETE
329= #DEF APEDEVEM=A1+2 [POSN OF MESSAGE IN APED,ANEVENT
32NW # TRACING & LISTING CONSTANTS FOR SEGMENTS
338G #OPT K0OPCA=K0ALLGEO
33N6 #OPT K6OPCA=K6ALLGEO
347Q #OPT K0OPILLS=K0ALLGEO
34MB #OPT K6OPILLS=K6ALLGEO
3572 #OPT K0OPILLSA=K0OPILLS
35LL #OPT K6OPILLSA=K6OPILLS
366= #OPT K0ILLPERI=K0OPILLS
36KW #OPT K6ILLPERI=K6OPILLS
375G #OPT K0PERTYPNO=K0ALLGEO
37K6 #OPT K6PERTYPNO=K6ALLGEO
384Q #OPT K0CONTXCOD=K0ALLGEO
38JB #OPT K6CONTXCOD=K6ALLGEO
3942 #OPT K6OPCAXCOD=K6ALLGEO
39HL #OPT K0OPCAXCOD=K0ALLGEO
3=3= #OPT K0DISPCOM=K0ALLGEO
3=GW #OPT K6DISPCOM=K6ALLGEO
3?2G #OPT K0QUESCOM=K0ALLGEO
3?G6 #OPT K6QUESCOM=K6ALLGEO
3?^Q #OPT K0ANSCOM=K0ALLGEO
3#FB #OPT K6ANSCOM=K6ALLGEO
3#^2 #OPT K0WHENEVER=K0ALLGEO
3*DL #OPT K6WHENEVER=K6ALLGEO
3*Y= #OPT K0STEPBACK=K0ALLGEO
3BCW #OPT K6STEPBACK=K6ALLGEO
3BXG #OPT K0DISEVENT=K0ALLGEO
3CC6 #OPT K6DISEVENT=K6ALLGEO
3CWQ #OPT K0MONEVENT=K0ALLGEO
3DBB #OPT K6MONEVENT=K6ALLGEO
3DW2 #OPT K0RELCOM=K0ALLGEO
3F*L #OPT K6RELCOM=K6ALLGEO
3FT= #OPT K0FAIL=K0ALLGEO
3G#W #OPT K6FAIL=K6ALLGEO
3GSG #OPT K0HALT=K0ALLGEO
3H#6 #OPT K6HALT=K6ALLGEO
3HRQ #OPT K0DELCOM=K0ALLGEO
3J?B #OPT K6DELCOM=K6ALLGEO
3JR2 #OPT K0MONITOR=K0ALLGEO
3K=L #OPT K6MONITOR=K6ALLGEO
3KQ= #OPT K0REQESLIP=K0ALLGEO
3L9W #OPT K6REQESLIP=K6ALLGEO
3LPG #OPT K0DUMP=K0ALLGEO
3M96 #OPT K0PMDR=0
3MNQ #OPT K0POST=0
3N8B #OPT K0ALLGEO=0
3NN2 #OPT JWCON1=BITS22LS [BITS 2-23 IN EXTENDED MODE
3P7L #OPT ANEWCHAP=1 [CHAIN CURRENT CHAPTER AT START
3PM= #OPT ANEWTENT=1 [IF SET=0, CHCH DOES NOT LOOK AT K3(ONLY AT K8)
3Q6W #OPT CHCHSTATS=0
3QLG #OPT ARCTP=0
3QW# ...#OPT BCMILLEN=1
3R66 #DEF EHP=1
^^^^ ...60140471000200000000