PROPNO [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: PROPNO)}}
====== PROPNO ======
(GIN Macro)

**Defined in:** [[george:source:MACS_JIB|MACS JIB]]

**Used in:** [[george:source:LISTNIP865|LISTNIP865]], [[george:source:SPEAK8|SPEAK8]]

<code - PROPNO.mac.txt>
 #5NS ...[??? PROPNO SECT COMM FGN 25 DOC
 #5PB    #   
 #692    #     FIND THE PROPERTY NUMBER OF A GIVEN PROPERTY NAME 
 #6NL    #   
 #78=    #MAC  PROPNO
 #78W ...#UNS HWATIDY
 #79G ...(   
 #7=6 ...      LDN   0  %B   
 #7=Q ...      SMO      FX2  
 #7?B ...      STO   0  ACOMMUNE1
 #7#2 ...      DOWN     WHATPROP,5   
 #7#3 ...#UNS  ANIP  
 #7#4 ...(   
 #7#5 ...#STR  %D
 #7#6 ...(   
 #7#7 ...#ACC  %D
 #7#8 ...(   
 #7#9 ...      LDX   0  ACOMMUNE2(2) 
 #7#= ...      STO   0  %D   
 #7#? ...)   
 #7## ...#ACC  %D
 #7#* ...#SKI
 #7#B ...      LDX   %D ACOMMUNE2(2) 
 #7#C ...)   
 #7#D ...)   
 #7#L ...#ACC %A 
 #7*= ...(   
 #7*W ... LDX 0 ACOMMUNE1(2) 
 #7BG ... STO 0 %A   
 #7C6 ...#STR %C 
 #7CQ ...      BZE   0  %C   
 #7DB ...)   
 #7F2 ...#ACC %A 
 #7FL ...#SKI
 #7G= ...(   
 #7GW ... LDX %A ACOMMUNE1(2)
 #7HG ...#STR %C 
 #7J6 ... BZE %A %C  
 #7JQ ...)   
 #7KB ...)   
 #7L2 ...#UNS HWATIDY
 #7LL ...#SKI
 #7M= ...(   
 #7MW          REWIND   %B   
 #87G    MSTEP   
 #8M6          STEP     %B   
 #96Q    #STR  %C
 #9LB          BZE   3  %C   
 #=62    MOK 
 #=KL          MHUNT    2,CPB,CUNI   
 #?5=          LDN   1  #7777
 #?JW          ANDX  1  ANUM(2)  
 ##4G          LDX   0  APARA(2) 
 ##J6          ERX   0  APROPNAME(3) 
 #*3Q          BNZ   0  MSTEP
 #*HB          SBN   1  5
 #B32          BNG   1  MEND 
 #BGL          LDX   0  APARA+1(2)   
 #C2=          ERX   0  APROPNAME+1(3)   
 #CFW          BNZ   0  MSTEP
 #C^G          SBN   1  4
 #DF6          BNG   1  MEND 
 #DYQ          LDX   0  APARA+2(2)   
 #FDB          ERX   0  APROPNAME+2(3)   
 #FY2          BNZ   0  MSTEP
 #GCL    MEND
 #GX=          LDXC  1  APROPGROUP(3)
 #HBW          LDN   1  0
 #HWG          SRC   1  1
 #JB6          LDX   0  APROPNO(3)   
 #JTQ          ANDX  0  BITS22LS 
 #K*B          ADX   0  1
 #KT2    #SKI  %A
 #L#L          STO   0  %A   
 #LS=    #SKI  %A-1  
 #M?W          LDX   1  FX1  
 #MRG    #SKI  %A-2  
 #N?6          LDX   2  FX2  
 #NGY ...)   
 #NQQ    #NOR
</code>