{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: DPASS)}}
====== DPASS ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_IAN|MACROS IAN]]

**Used in:** 

<code - DPASS.mac.txt>
 2?=W ...[   
 2?K? ...[??? DPASS SECT DEVT FGN 3 DOC  
 2?XN ...#MAC DPASS                         [- A.P.HOLDEN
 2#=6 ...[ THIS MACRO WILL COMPILE DATAPASS  
 2#PQ ...[ IT WILL TAKE IT'S SOURCE FROM FILESTORE IF POSSIBLE - 
 2*9B ...[ OTHERWISE IT WILL USE SUB-FILE DATAPASS ON MT DPTAPE. 
 2*P2 ...[ FILESTORE SOURCE SHOULD BE IN FILE :GEO.DATAPASS  
 2*W8 ...#STR NOLIS,%I   
 2B3B ...(   
 2B8L ...#ALT ADPLIST=1? 
 2BN= ...#LIS 0  
 2C7W ...#OPT AWENDY=0   
 2CMG ...#LIS AWENDY 
 2CX# ...)   
 2D76 ...#STR %A 
 2DLQ ...#SKI
 2F6B ...(   
 2F8# ...#UNS ADPNOFN
 2F== ...#SKI
 2F#8 ...(   
 2FB6 ... DPON   
 2FD4 ...#LIS ADPLIST
 2FG2 ...#EXI
 2FHY ...)   
 2FL2 ... DPASS 2,,,,,,,,NOLIS   
 2G5L ...#EXI
 2GK= ...)   
 2H4W ...#SKI %A>63-63   
 2HJG ...(   
 2J46 ...! %A SHOULD BE LESS THAN 64 
 2JHQ ...#EXI
 2K3B ...)   
 2KH2 ...#OPT ADP%A=1
 2L2L ...#STR %B 
 2LG= ...(   
 2L^W ... DPASS %B,%C,%D,%E,%F,%G,%H,,NOLIS  
 2MFG ...#EXI
 2M^6 ...)   
 2NDQ ...#UNS ADPSIB 
 2NYB ...#SKI
 2PD2 ...(   
 2PXL ...#LIS 0  
 2QC= ...#FRL
 2QWW ...#INT
 2RBG ...#ORD
 2RW6 ...ZCOM 40HIF EXI(:DATAPASS.DATAPASS        ),(AL 0
 2S*Q ... 40H,1)ELSE(IF EXI(:GEO.DATAPASS),(AL 0,2)EL
 2STB ... 12HSE(AL 0,0)) 
 2T*2 ...ZCA +60:1,+0,+91,+ZCOM  
 2TSL ...X0 +0   
 2W#= ...NTRY STO 0 X0   
 2WRW ... LDN 0 79?  
 2X?G ... BZE 0 NOG  
 2XR6 ... PERI 0 ZCA 
 2Y=Q ...NOG STO 0 19?+0 
 2YQB ... LDX 0 X0   
 2^=2 ... EXIT 0 0   
 2^PL ...#EXT
 329= ...#JUM NTRY   
 32NW ...#OPT ADPSIB=19?+0]  
 338G ...#FRL
 33N6 ...#LIS AWENDY 
 347Q ...)   
 34#Y ...#ALT ADPKEY=4*82?+81?+81?+80?*80?   
 34G6 ...#SKI ADPKEY 
 34MB ...#KEY OFF
 3572 ...#SKI ADPSIB 
 35LL ...(   
 366= ...#SKI ADPSIB-1<1$1   
 36KW ...(   
 36R4 ...#UNS ADP13  
 36Y? ...#GEO RV :DATAPASS.PMCORE
 375G ...#REL CR3
 37K6 ...#OFR CR3,RESFILE
 384Q ...#GEO AS *CR3,:DATAPASS.DATAPASS 
 38JB ...#USE CR3
 3942 ...#UNS ADP13  
 39HL ...(   
 3=3= ...#GEO AS *CR3,:DATAPASS.PMCORE   
 3=GW ...#USE CR3
 3?2G ...)   
 3?G6 ...#REL CR3
 3?^Q ...)   
 3#FB ...#SKI ADPSIB-2<1$1   
 3#^2 ...(   
 3*DL ...#REL CR3
 3*Y= ...#OFR CR3,DATAPASS   
 3BCW ...#GEO AS *CR3,:GEO.DATAPASS  
 3BXG ...#USE CR3
 3CC6 ...#REL CR3
 3CWQ ...)   
 3DBB ...)   
 3DW2 ...#SKI ADPSIB<1$1 
 3F*L ...(   
 3FT= ...#REL MT0
 3G#W ...#OFR MT0,DPTAPE 
 3GSG ...#POS MT0,DATAPASS   
 3H#6 ...#USE MT0
 3HRQ ...#REL MT0
 3J?B ...)   
 3J*# ...#OPT ADP13=0
 3JC= ...#OPT ADPNOFN=0  
 3JF8 ...#SKI ADPKEY-3<1$1   
 3JH6 ...#KEY ON,C   
 3JK4 ...#SKI ADPKEY-5<1$1   
 3JM2 ...#KEY ON,D   
 3JNY ...#SKI ADPKEY-1<1$1   
 3JR2 ...#KEY ON 
 3K=L ...#UNS ADPNOFN
 3KQ= ...#SKI
 3L9W ... DPFIN  
 3LPG ...#LIS ADPLIST
 3M96 ...#NOR
</code>