(George Source)
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