PMREPCON
(GIN Macro)
Defined in: PMACS
Used in: PMTABLEA, PMTABLEB, PMTABLEC, PMTABLED, PMTABLEE, PMTABLEF, PMTABLEG, PMTABLEH, PMTABLEJ
- PMREPCON.mac.txt
KMJ= [??? PMREPCON SECT DIAG FGN 104 DOC KN3= #MAC PMREPCON [M.C.D. MANN KNG= [ KN^= [ KPD= [ ************** KPX= [ * PMREPCON * KQB= [ ************** KQT= [ KR#= [ KRR= [ THIS MACRO IS A CONTINUATION MACRO FOR PMREP OR PMLIST OR PMLISTC KS=W [ KSQG #OPT Z=0 KT=6 #OPT S=0 KTPQ #DEF 19?+0=Z KW9B #DEF 19?+1=XXX KWP2 #DEF 19?+2=S KX8L #FREE XXX,Z,S KXN= #DEF Z=19?+0] KY7W #DEF XXX=19?+1] KYMG #SKI 19?+2] K^76 #DEF S=19?+2] K^LQ #SKI Z<1$1 [SKIP IF ERROR IN PREVIOUS MACROS L26B ( L2L2 #STR %A L35L ( L3K= #DEF 0?=0?-1 [SET 0?=LAST WORD OF LAST TABLE L44W #STR %A,+ L4JG ( L546 +0 [ERASE 'TERMINATOR' OF PREVIOUS MACRO L5HQ #FREE Z L63B #DEF 0?=0?-1 L6H2 #SKI %A<0$0 [FALL THROUGH IF IDENTIFIER %A UNSET L72L #SKI L7G= ( L7^W ...#DEF 0?=XXX-A1-A1+%A+%A>0? L8FG ...#SKI XXX-A1-A1+%A+%A-0? [SKIP IF %A GREATER THAN LAST P L8^6 ( [OF PREVIOUS MACRO L9DQ ?%A INCORRECTLY SEQUENCED L9YB #OPT Z=1 [SET ERROR INDICATOR L=D2 ) L=XL #OPT Z=0 L?C= ) L?WW #OPT Z=1 [SET ERROR INDICATOR IF %A UNSET L#BG ) L#W6 #OPT S=0? [IF FOLLOWING MACRO PMLIST OR PMLISTC L**Q [SET S TO START OF 'REPEAT' SEQUENCE L*TB #SKI Z<1$1 LB*2 PMP %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P LBSL #SKI Z<1$1 LC#= #72000000+0?-S [IF NO ERRORS IN TABLE SET END OF LCRW ['REPEAT' SEQUENCE TERMINATOR LD?G #SKI Z LDR6 ( LF=Q ...#DEF 0?=XXX LFQB 4H^^^^ [IF ERRORS IN TABLE ERASE TABLE LG=2 ) LGNX ) LH7S ) LHLP #NOR