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