MACDEF8
(George Source)
Macros used: ABANDCOM, COMERR, ENDCOM, FREECORE, ISSUCOMB, MENDAREA, MHUNT, MHUNTW, PARANOT, PARANUMB, PHOTO, SEGENTRY, SETCOMER, SETNCORE, TESTMOVE
- MACDEF8.txt
22FL #OPT K0MACDEF=0 22^= #LIS K0MACDEF>K0COMMAND>K0ALLGEO>K0GREATGEO 23DW #SEG MACDEF8 [A C PUTMAN 23YG 8HMACDEF 24D6 # ENTRY POINTS 24XQ SEGENTRY K1MACDEF,Z1MACDEF 25CB # 25X2 TEXT +14 26BL 14HINPUT %A,TENDM 26W= # 27*W # 27TG # THIS SEGMENT INPUTS A MACRO DEFINITION INTO THE FILE SPECIFIED BY THE 28*6 # USER. IT ISSUES AN INTERNAL INPUT. 28SQ # 29#B Z1MACDEF 29S2 PARANUMB 6 2=?L BZE 6 NOFN [J IF NO PARS. SPECIFIED 2=R= SETNCORE CPDATA-A1+4,3,ADATA,CREADL 2?=W SBN 6 1 2?QG BZE 6 TDEF1 [J IF DEFAULT TERM. REQD. 2#=6 PHOTO 7 2#PQ PARANOT 2 [GET TERM. 2*9B MHUNT 2,CPB,CUNI 2*P2 LDX 6 ANUM(2) 2B8L BZE 6 TDEF [NULL PAR. - INSERT DEFAULT 2BN= ANDN 6 #7777 [ISOLATE CHARACTER COUNT 2C7W TESTMOVE 7,NMV [J IF BLOCK NOT MOVED 2CMG MHUNTW 3,ADATA,CREADL 2D76 NMV LDX 4 2 2DLQ LDX 2 TEXT(1) [INSERT NO. OF CMS. 2F6B STO 2 A1(3) [AND 2FL2 LDN 2 TEXT+1(1) [FIXED 2G5L ADN 3 CPDATA [PART 2GK= MOVE 2 2 [OF TEXT 2H4W SBN 3 CPDATA [IN ADATA/CREADL BLOCK 2HJG SBN 6 5 2J46 BPZ 6 NCHANGE [J. IF NO.OF CHS.IN TERM. IS 5 OR 2JHQ ADS 6 A1(3) 2K3B NCHANGE [READLINE BLOCK 2KH2 ADN 2 2 2L2L ADN 3 CPDATA+2 2LG= MVCH 2 1 2L^W LDX 2 4 2MFG ADN 2 APARA 2M^6 MVCH 2 5 [INSERT TERM. IN READLINE BLOCK 2NDQ FREECORE 4 [FREE UNI-BLOCK 2NYB ...XIN ISSUCOMB RONG,XBRK 2PD2 XEND ENDCOM 2PXL RONG SETCOMER 2QC= BRN XEND 2QM4 ...XBRK ABANDCOM 2QWW TDEF FREECORE 2 [FREE UNI-BLOCK 2RBG TDEF1 LDX 2 TEXT(1) [INSERT 2RW6 STO 2 A1(3) [COUNT 2S*Q ADN 3 CPDATA [AND 2STB LDN 2 TEXT+1(1) [TEXT IN 2T*2 MOVE 2 3 [ADATA/CREADL BLOCK 2TSL ADN 2 3 2W#= ADN 3 3 2WRW MVCH 2 2 2X?G BRN XIN 2XR6 NOFN COMERR JPARMIS,JFNAME 2Y=Q MENDAREA 10,K99MACDEF 2YQB #END ^^^^ ...20461127000300000000