PMFSADDB86 [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 source: PMFSADDB86)}}
====== PMFSADDB86 ======
(George Source)

**Macros used:** [[george:macro:PMADDS|PMADDS]]

<code - PMFSADDB86.txt>22^=    #   
23DW    #OPT           K0PMFSADDB=0 
23YG    #LIS           K0PMFSADDB>K0POST>K0ALLGEO   
24XQ ...#SEG           PMFSADDB                [ DEK BEASLEY : CENT 
252W ...[     SET UP 19?+0,20?,21? FOR USE IN PMADDS MACRO  
2562 ...#DEF  19?+0=FSADDA19
2596 ...#DEF  20?=FSADDMAX  
25#= ...#DEF  21?=LPMFSADDA 
25CB     PMADDS  CJACCLINK,CJACCLNK 
25X2     PMADDS  FCINBUF,,FCOUTBUF  
266S ... PMADDS  JACC,,JONRDUMP,,JGEOREC,,JCTWREC   
26BL    #                  PRIVATE CONSTANTS & POINTERS 
26W=    #                        34  ENTRIES
27*W     PMADDS  CXCA,,CIPL,,CIPLS,,CIPLR,,CXLF 
27TG     PMADDS  GEOERR,,GMELPTR
283Q ... PMADDS  ALINKTYPE,ALNKTYPE,ALWPAIR 
28=2 ...#UNS  ECS   
28D= ... PMADDS  AMILLDECAY1,AMDECAY1,AMILLDECAY2,AMDECAY2  
28LG ... PMADDS  AQTYPE,,ASBSAB 
28PL ... PMADDS  ASFNO,,ASFNO1  
28SQ     PMADDS  BJFREEW,,BJREAD,,BSABL,,BSMAGIC,,BSSS  
29#B     PMADDS  BSTSMASK,,CSPLIT   
29CG ...#UNS ISFC   
29GL ...(   
29KQ ... PMADDS  CIROUND,,CA1D,,CIRNDA,,CIRNDB  
29NW ...)   
29S2     PMADDS  FONINT,,FPSEUTYP,,FRED 
2=?L     PMADDS  GLENFCHAP,GLENFCHP,GSCANLEN,,GVERSION  
2=*8 ... PMADDS  HSMPBIT,,INTERRUPT,INTRUPT 
2=BQ ...#UNS  ECS   
2=D# ... PMADDS  ISWAPDIFF,ISWAPDIF,ISISSMP 
2=FW ... PMADDS  JMBSTS,,JTRALEN
2=HD ...#SKI  G4
2=M* ... PMADDS  GMND,,APRATNO,,APTABPAGS,APTBPAGS,APTURNPAGS,APTRNPGS,AQUOTIME 
2=P? ...   PMADDS  GMELRTAB,,GAMR0  
2=R=    [   
2?=W    [                          PUBLIC CONSTANTS 
2?QG     PMADDS  GZERO,,GMINUS1,,ACES   
2#=6     PMADDS  CACT,,HALFTOP  
2#PQ                   4H****   
2#^J ...#ALT  FSADDB19=19?+0]              [SAVE HIGHEST ADDR.SO FAR
2*9B    #END
^^^^ ...701011620005
</code>