REPETE
(GIN Macro)
Defined in: PMACS
Used in:
- REPETE.mac.txt
NPDG [??? REPETE SECT DIAG FGN 104 DOC NPXD #MAC REPETE [M.C.D. MANN NQBB [ NQT# [ NR#= [ ************ NRR8 [ * REPETE * NS=6 [ ************ NSP4 [ NT82 [ NTLY #STRING %A [SKIP IF NO MORE IDENTIFIERS NW5W ( NWJS #STRING %B NX3Q #SKI %B<JCONO$JCONO [SKIP IF PRINT STYLE INDICATOR NXGN ( [ILLEGAL NX^L #STRING %A,+ NYDJ ( NYXG #SKI %A<1$1 N^BD #DEF NUM=0 N^TB ) P2## #OPT NUM=1 P2R= #SKI NUM [SKIP IF %A=ZERO OR UNSET P3=8 ( P3P6 #STRING %A,+ [SKIP IF NOT INSERTING IDENTIFIER P484 ( [MNEMONICS P4M2 ...#DEF 0?=XXX+%A+%A-A1-A1 [SET TRANSFER ADDRESS TO REQUIR P55Y [POSITION IN TABLE P5JW #SKI 0?-XXX<JREP2$JREP2 [SKIP IF IDENTIFIER VALUE>JREP P63S 5H%A [INSERT IDENTIFIER MNEMONICS P6GQ #SKI 0?-XXX>JREP2$JREP2 P6^N ?%A IDENTIFIER VALUE TOO LARGE P7DL ) P7XJ #SKI 0?-XXX<JREP2$JREP2 P8BG ( P8TD #STRING %A,+ P9#B #SKI [IF NO MNEMONICS FOR CURRENT P9R# 5H00000 [IDENTIFIER INSERT ZEROS P=== #FIDDLE 18 23 -16+0%B [SET 3RD CHAR. OF LAST WORD=PRINT P=P8 [STYLE INDICATOR P?86 ...#DEF XA=0?>Y P?M4 #FREE Y [RESET Y TO BIGGEST ADDRESS REACHED P#62 #DEF Y=XA P#JY #FREE XA P*3W ) P*HW ) PB3G #FREE NUM PBH6 REPETE %C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P PC2Q ) PCGB #SKI %B>JCONO$JCONO [IF PRINT STYLE INDICATOR ILLEGAL PD22 ( [SET INDICATOR AND CONTINUE FROM PDFL [NEXT PARAMETER PD^= ?%A PRINT STYLE ILLEGAL PFDW REPETE %C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P PFYG ) PGD6 ) PGXQ #SKI 18?+1]+65]>1?>K0LOCAL [SKIP IF LISTING LEVEL=0 PHCB ( PHX2 #DEF 23?=1? PJBL #LIS 4 PJW= #DEF 20?=69?-70? [LOCAL WORKING SPACE LEFT PK*W #LIS 23? PKTG ) PL*6 #NOR