(George Source)
22FL [ 22^= [ LISTFILE MACROS 23DW [ 23YG [ CONTENTS LIST 24D6 [ 24FN ...[ HUNTCLB 24H= ...[ LFBLCNUM 24LB ...[ LFSIZE 24MY ...[ LFSOFTDEFLT 24PG ...[ LFSTARTJL 24SL ...[ LFWLINFO 24XQ [ NIPENDLF 25CB [ NIPLINES 25X2 [ NIPREL 26BL [ NIPRPERT 26W= [ NIPSTART 2727 ...[ OLREJECT 2764 ...[ WLSIZE 27*W [ 27*X ...[ 27*Y ...[ SEARCHES CURRENT ACTIVITY FOR BLOCK UNTIL MEETS CLB OR NEXT 27*^ ...[ ACTIVITY BLOCK 27B2 ...[ 27B3 ...#MAC HUNTCLB 27B4 ... LDX %A FX2 27B5 ...M1HUNTCLB 27B6 ... LDX %A FPTR(%A) 27B7 ... LDX 0 ATYPE(%A) 27B8 ... TXL 0 CACT 27B9 ... BCC %D 27B= ... SRL 0 12 27B? ... SBN 0 CLB 27B# ... BZE 0 %D 27B* ... ADN 0 CLB-%B-%C 27BB ... BNZ 0 M1HUNTCLB 27BC ...#NOR 27BD ...[ 27BF ...[ TO CALCULATE THE NUMBER OF BLOCKS IN A GOUT/INFO CHAIN 27BG ...#MAC LFBLCNUM 27BH ...[ %A IS AN ACC TO CONTAIN THE ANSWER NOT X0 27BJ ...[ %B CONTAINS A POINTER TO THE GOUT/INFO BLOCK 27BL ... LDN %A 1 27BQ ... JBS M1LFBLCNUM,%B,BLFONLINE 27BW ... ADN %A 1 27C2 ...M1LFBLCNUM 27C6 ... JBC M2LFBLCNUM,%B,BLFSETUP 27C= ... ADN %A 1 27CB ...M2LFBLCNUM 27CG ... JBC M3LFBLCNUM,%B,BLFPROPREC 27CL ... ADN %A 1 27CQ ...M3LFBLCNUM 27CW ... JBC M4LFBLCNUM,%B,BLFWLSIZE 27D2 ... ADN %A 1 27D6 ...M4LFBLCNUM 27D= ...#NOR 27D? ...[ 27D# ...[ MACRO TO ALTER THE SOFTWARE DEFAULT LOOP FOR LP4B PRINTERS 27D* ...#MAC LFSOFTDEFLT 27DB ...#SKI %A 27DC ...( 27DD ...#SKI %B 27DF ...( 27DG ...#MEND FORMLOOP 27DH ...#TRA K40FORMLOOP 27DJ ... +0 27DK ...#FID 1,8,%A<96 27DL ...#FID 15,15,1 27DM ...#TRA K41FORMLOOP 27DN ... +0 27DP ...#FID 1,8,%B<96<%A-1 27DQ ...#FID 23,23,1 27DR ...#END 27DS ...) 27DT ...) 27DW ...#NOR 27DX ...[ 27DY ...[ 27D^ ...[ TO GET THE SIZE OF A FILE OR ELEMENT IN A GOUT/GESIZE BLOCK 27F2 ...#MAC LFSIZE 27F3 ...#ACC %A 27F4 ... LDX 0 %A 27F5 ... SMO FX2 27F6 ...#ACC %A 27F= ... STO 0 ACOMMUNE1 27FB ...#ACC %A 27FG ...#SKI 27FL ... STO %A ACOMMUNE1 27FQ ...#STR %B 27FW ...( 27G2 ...#ACC %B 27G6 ... LDX 0 %B 27G= ... SMO FX2 27GB ...#ACC %B 27GG ... STO 0 ACOMMUNE2 27GL ...#ACC %B 27GQ ...#SKI 27GW ... STO %B ACOMMUNE2 27H2 ...) 27H6 ...#STR %B 27H= ...#SKI 27HB ...( 27HG ... SMO FX2 27HL ... STOZ ACOMMUNE2 27HQ ...) 27HW ... DOWN LISTFREE,4 27J2 ...#NOR 27J6 ...[ 27J= ...[ RESTORE TIME MACRO TO SWITCH ON START OF LF MESSAGE 27JB ...#MAC LFSTARTJL 27JG ...#UNS ASTRTJL 27JL ...( 27JQ ...#STR %A,ON 27JW ...#SKI 27K2 ...( 27K6 ...#STR %A 27K= ...#STR %A,0 27KB ...( 27KG ...#MEND LISTOPEN 27KL ...#TRA K50LISTOPEN 27KQ ... NULL 27KW ...#END 27L2 ...) 27L6 ...) 27L= ...#STR %A,OFF 27LB ...#SKI 27LG ...( 27LL ...#STR OFF,%A 27LQ ...#SKI 27LW ...( 27M2 ...#MEND LISTOPEN 27M6 ...#TRA K50LISTOPEN 27M= ... BRN K51LISTOPEN 27MB ...#END 27MG ...) 27ML ...) 27MQ ...) 27MW ...#NOR 27N2 ...[ 27N6 ...[ TO FIND THE WLSIZE WORD IN A GOUT/INFO BLOCK 27N= ...#MAC LFWLINFO 27NB ...[ ASSUMES WLSIZE BIT HAS BEEN CHECKED TO BE SET 27NG ...[ EXPECTS X3 TO CONTAIN PTR TO BLOCK PAST A1 27NL ...[ OR PTR TO RECORD AFTER A STEP 27NQ ...[ USES X0,X6,X2 27NW ...[ LEAVES X2 POINTING TO WLSIZE WORD 27P2 ... LDN 2 GHEAD-A1-1 27P6 ... LDX 0 GSUSE-A1(3) 27P= ... LDN 6 3 27PB ... BRN M2LFWLINFO 27PG ...M1LFWLINFO 27PL ... SMO 2 27PQ ... LDX 0 0(3) 27PW ... ANDN 0 #7777 27Q2 ...M2LFWLINFO 27Q6 ... ADN 0 7 27Q= ... SRL 0 2 27QB ... ADX 2 0 27QG ... LDX 0 0(3) 27QL ... SBN 0 1 27QQ ... TXL 0 2 27QW ... BCC M4LFWLINFO 27R2 ...M3LFWLINFO 27R6 ... GEOERR 1,WLSIZE 27R= ...M4LFWLINFO 27RB ... TXU 0 2 27RG ... BCC M5LFWLINFO 27RL ... BCT 6 M1LFWLINFO 27RQ ... BRN M3LFWLINFO 27RW ...M5LFWLINFO 27S2 ...#NOR 27S6 ...[ 27TG [ TO END A LISTFILE FOR THE NIP PROGRAM 28*6 #MAC NIPENDLF 28B7 ...#ACC %B 28C8 ...( 28D9 ... LDX 0 %B 28F= ... SMO FX2 28G? ... STO 0 ACOMMUNE1 28H# ...) 28J* ...#ACC %B 28KB ...#SKI 28LC ...( 28MD ... SMO FX2 28NF ... STO %B ACOMMUNE1 28PG ...) 28QH ... DOWN LISTNIP,4 28RJ ... BRN %A 28SQ #NOR 29#B [ TO PASS SEVERAL LINES OF A LISTING TO THE NIP PROGRAM 29S2 #MAC NIPLINES 29T3 ...#ACC %B 29W4 ...( 29X5 ... LDX 0 %B 29Y6 ... SMO FX2 29^7 ... STO 0 ACOMMUNE1 2=28 ...) 2=39 ...#ACC %B 2=4= ...#SKI 2=5? ...( 2=6# ... SMO FX2 2=7* ... STO %B ACOMMUNE1 2=8B ...) 2=9C ... DOWN LISTNIP,3 2==D ... BRN %A 2=?L #NOR 2=R= [ TO CLOSEDOWN THE NIP ACTLF FOR THE NIP PROGRAM 2?=W #MAC NIPREL 2??X ...#ACC %B 2?#Y ...( 2?*^ ... LDX 0 %B 2?C2 ... SMO FX2 2?D3 ... STO 0 ACOMMUNE1 2?F4 ...) 2?G5 ...#ACC %B 2?H6 ...#SKI 2?J7 ...( 2?K8 ... SMO FX2 2?L9 ... STO %B ACOMMUNE1 2?M= ...) 2?N? ... DOWN LISTNIP,5 2?P# ... BRN %A 2?QG #NOR 2#=6 [ TO GIVE THE REPERTOIRE INFO TO A NIP ACTLF 2##4 ...#MAC NIPREP 2#B2 ...#ACC %B 2#CY ...( 2#FW ... LDX 0 %B 2#HS ... SMO FX2 2#KQ ... STO 0 ACOMMUNE1 2#MN ...) 2#PL ...#ACC %B 2#RJ ...#SKI 2#TG ...( 2#XD ... SMO FX2 2#^B ... STO %B ACOMMUNE1 2*3# ...) 2*5= ... DOWN LISTNIP,2 2*78 ... BRN %A 2*9B #NOR 2*P2 [ TO BEGIN A NIP LISTING FOR THE NIP PROGRAM 2B8L #MAC NIPSTART 2B9M ...#ACC %B 2B=N ...( 2B?P ... LDX 0 %B 2B#Q ... SMO FX2 2B*R ... STO 0 ACOMMUNE1 2BBS ...) 2BCT ...#ACC %B 2BDW ...#SKI 2BFX ...( 2BGY ... SMO FX2 2BH^ ... STO %B ACOMMUNE1 2BK2 ...) 2BL3 ... DOWN LISTNIP,1 2BM4 ... BRN %A 2BN= #NOR 2BNF ...[ 2BNN ...[ 2BNX ...[ ERRORS ONLINE IF ALL SLOW OUTPUT DEVICES OF REQUIRED TYPE 2BP6 ...[ ARE WRONGED OR NOT AVAILABLE PREVENTING ONLINE WAITING. 2BP* ...[ ERRORS NOPROP OR PERMEXCL REPLIES FROM ISPER FOR ONLINE 2BPJ ...[ I.E. DOES NOT IMPLEMENT LFDBAID FOR ONLINE 2BPR ...#MAC OLREJECT 2BQ2 ...#STR ON,%A 2BQ9 ...#SKI 2BQD ...( 2BQM ...#STR %B 2BQW ...#SKI 2BR5 ...( 2BR# ...#MEN LISTPARS 2BRH ...#TRA K50LISTPARS 2BRQ ... BRN K51LISTPARS 2BR^ ...#TRA K51LISTPARS 2BS8 ... BRN K52LISTPARS 2BSC ...#TRA K53LISTPARS 2BSL ... NULL 2BST ...#TRA K62LISTPARS 2BT4 ... BRN K63LISTPARS 2BT? ...#END 2BTG ...) 2BTP ...#STR BUSY,%B 2BTY ...#SKI 2BW7 ...( 2BWB ...#MEN LISTPARS 2BWK ...#TRA K50LISTPARS 2BWS ... NULL 2BX3 ...#TRA K53LISTPARS 2BX= ... NULL 2BXF ...#TRA K62LISTPARS 2BXN ... NULL 2BXX ...#END 2BY6 ...) 2BY* ...#STR WRONG,%B 2BYJ ...#SKI 2BYR ...( 2B^2 ...#MEN LISTPARS 2B^9 ...#TRA K50LISTPARS 2B^D ... BRN K51LISTPARS 2B^M ...#TRA K51LISTPARS 2B^W ... NULL 2C25 ...#TRA K53LISTPARS 2C2# ... NULL 2C2H ...#TRA K62LISTPARS 2C2Q ... NULL 2C2^ ...#END 2C38 ...) 2C3C ...) 2C3L ...#STR %A 2C3T ...#SKI 2C44 ... OLREJECT OFF 2C4? ...#STR OFF,%A 2C4G ...#SKI 2C4P ...( 2C4Y ...#MEN LISTPARS 2C57 ...#TRA K50LISTPARS 2C5B ... BRN K51LISTPARS 2C5K ...#TRA K51LISTPARS 2C5S ... BRN K52LISTPARS 2C63 ...#TRA K53LISTPARS 2C6= ... BRN K54LISTPARS 2C6F ...#TRA K62LISTPARS 2C6N ... BRN K63LISTPARS 2C6X ...#END 2C76 ...) 2C7* ...#NOR 2C7W [ 2C8= ...[ 2C8L ...[ RESTORE TIME MACRO TO SWITCH ON WL FILE SIZE ENHANCEMENT 2C92 ...#MAC WLSIZE 2C9B ...#UNS AWLSZ 2C9Q ...( 2C=6 ...#STR %A,ON 2C=G ...#SKI 2C=W ...( 2C?= ...#STR %A 2C?L ...#STR %A,0 2C#2 ...( 2C#B ...#MEND WLOUT 2C#Q ...#TRA K50WLOUT 2C*6 ... NULL 2C*G ...#END 2C*W ...#MEND LISTFREE 2CB= ...#TRA K50LISTFREE 2CBL ... NULL 2CC2 ...#END 2CCB ...) 2CCQ ...) 2CD6 ...#STR %A,OFF 2CDG ...#SKI 2CDW ...( 2CF= ...#STR OFF,%A 2CFL ...#SKI 2CG2 ...( 2CGB ...#MEND WLOUT 2CGQ ...#TRA K50WLOUT 2CH6 ... BRN K51WLOUT 2CHG ...#END 2CHW ...#MEND LISTFREE 2CJ= ...#TRA K50LISTFREE 2CJL ... BRN K51LISTFREE 2CK2 ...#END 2CKB ...) 2CKQ ...) 2CL6 ...) 2CLG ...#NOR 2CLW ...[ 2CMG ^^^^ ...422757570007