PMADDS [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: PMADDS)}}
====== PMADDS ======
(GIN Macro)

**Defined in:** [[george:source:PMACS|PMACS]]

**Used in:** [[george:source:PMFSADDA866|PMFSADDA866]], [[george:source:PMFSADDB86|PMFSADDB86]], [[george:source:PMFSADDC86|PMFSADDC86]]

<code - PMADDS.mac.txt>
 F#NJ    [??? PMADDS SECT DIAG FGN 104 DOC   
 F*87    #MAC  PMADDS                       [M.C.D. MANN 
 F*M8    [   
 FB69    [   
 FBK=    [     ************  
 FC4?    [     *  PMADDS  *  
 FCH#    [     ************  
 FD2*    [   
 FDFB    [   
 FDYC    [           19?+0  CONTAINS THE HIGHEST FIXED CORE ADDRESS  
 FFCD    [                  ENCOUNTERED SO FAR   
 FFWF    [   
 FG*G    [           20?    CONTAINS THE RECOMMENDED TABLE LENGTH
 FGSH    [   
 FH?J    [           21?    CONTAINS THE LENGTH OF PMFSADDA  
 FHQK    [   
 FJ9L    [           22?    CONTAINS AN ERROR INDICATOR FOR %A   
 FJNM    [   
 FK7N    [           23?    STORES THE LISTING LEVEL 
 FKLP    [   
 FL5Q    #STR  %A
 FLJR    (   
 FM3S    #DEF  22?=1                        [ PRESET ERROR FLAG  
 FMGT    #SKI  19?+0]<%A-%A                 [ CHECK SEQUENCE 
 FM^W    #SKI
 FNDX    (   
 FNXY    !           %A IS OUT OF NUMERICAL SEQUENCE 
 FPB^    #DEF  22?=0 
 FPW2    )   
 FQ*3    #SKI  JFCS>%A-%A                   [ CHECK MNEMONIC IS IN FIXED CORE
 FQS4    #SKI
 FR?5    (   
 FRQ6    !           %A IS BEYOND FIXED CORE 
 FS97    #DEF  22?=0 
 FSN8    )   
 FT79    #SKI  22?                          [ ERROR ?
 FTL=    (   
 FW5?    #SKI  0?>20?-20?                    [ TABLE GETTING LONG ?  
 FWJ#    (   
 FX3*    #DEF  23?=1?                       [ STORE LISTING LEVEL
 FXGB    #LIS 4  
 FX^C    #        WARNING             WARNING             WARNING
 FYDD    #                  THIS TABLE IS GETTING
 FYXF    #     TOO  LONG 
 F^BG    #LIS  23?   
 F^TH    )   
 G2#J    #SKI  0?>21?-21?                    [ TABLE TOO LONG
 G2RK    (   
 G3=L    !    THIS TABLE IS LONGER THAN  
 G3PM    !    PMFSADDSA  
 G48N    !    SOME FIXED CORE LOCATIONS  
 G4MP    !   MAY BE LOST 
 G56Q    )   
 G5KR          +%A                          [ STORE ENTRIES  
 G64S    #STR  %B                     [%B PRESENT
 G6K=          8H%B  
 G73P    #STR  %B
 G7G8    #SKI                                [%B ABSENT, USE %A AS MNEMONIC  
 G7YM          8H%A  
 G8C6    #DEF  19?+0=%A                     [ RESET HIGHEST %A INDICATOR 
 G8TK    )   
 G9#4          PMADDS %C,%D,%E,%F,%G,%H,%I,%J   [CALL RECURSIVELY
 G9QH    )   
 G=92    #NOR
</code>