PMFSADDB86
(George Source)
Macros used: PMADDS
- 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