MACROS NI

(George Source)
229S ...[??? PUDDL SECT CENT FGN 1 DOC  
22FL    #   
22^=    #   
23DW    #              RUTH HEAP
23YG    #   
24D6    #   
24XQ    #SKI  GENIE 
25CB    (   
25X2    #   
26BL    #     MISCELLANEOUS NEW INTERFACE MACROS-MOSTLY THEY USE SPECIAL X'CODES
26W=    #   
27*W    #   
27TG    #     PULL DOWN DEVICE LISTS
28*6    #   
28SQ    #MAC  PUDDL 
29#B          '160  0  0
29S2          LDX   %A CORES
2=?L    #NOR
2=BQ ...)   
2=FW ...[??? ENDLIST SECT CENT FGN 1 DOC
2=K2 ...#SKI  GENIE 
2=N6 ...(   
2=R=    #   
2?=W    #     GET END ADDRESS OF ALL DEVICE LISTS   
2?QG    #   
2#=6    #MAC  ENDLIST   
2#PQ    #SKI  G4
2*9B          LDX   %A ENDPERT  
2*P2    #SKI  G3
2B8L          LDX   %A FCORES   
2BN=    #NOR
2BRB ...)   
2BWG ...[??? GRELOAD SECT CENT FGN 1 DOC
2B^L ...#SKI  GENIE 
2C4Q ...(   
2C7W    #   
2CMG    #     RELOAD SAME VERSION OF GEORGE 
2D76    #   
2DLQ    #MAC  GRELOAD   
2F6B          '164  0  0
2FL2          '166  0  0
2G5L    #NOR
2G8Q ...)   
2G?W ...[??? GELL SECT CENT FGN 1 DOC   
2GC2 ...#SKI  GENIE 
2GG6 ...(   
2GK=    #   
2H4W    #     ASK OPERATOR WHICH VERSION OF GEORGE IS TO BE LOADED  
2HJG    #   
2J46    #MAC  GELL  
2JHQ          '165  0  0
2K3B          '166  0  0
2KH2    #NOR
2KL6 ...)   
2KP= ...[??? PROGRING SECT CENT FGN 1 DOC   
2KSB ...#SKI  GENIE 
2KXG ...(   
2L2L    #   
2LG=    #     LOCKOUT OR UNLOCK THE PROGRAM RING
2L^W    #   
2MFG    #MAC  PROGRING  
2M^6    #STR  LOCKOFF,%A
2NDQ          '162  0  0
2NYB    #STR  LOCKON,%A 
2PD2          '163  0  0
2PXL    #NOR
2Q2Q ...)   
2Q5W ...[??? GEOEVENT SECT CENT FGN 1 DOC   
2Q92 ...#SKI  GENIE 
2Q#6 ...(   
2QC=    #   
2QWW    #     HANDOVER ALL GEORGE EVENTS,OR SUSPEND GEORGE AWAITING AN EVENT
2RBG    #   
2RW6    #MAC  GEOEVENTS 
2S*Q          '161  0  0
2STB    #NOR
2SYG ...)   
2T3L ...[??? GEOMILL SECT CENT FGN 1 DOC
2T6Q ...#SKI  GENIE 
2T9W ...(   
2T*2    #   
2TSL    #     UPDATE GEORGE'S MILL TIMER (K7)   
2W#=    #   
2WRW    #MAC  GEOMILL   
2X?G          '167  0  0
2XR6    #NOR
2Y=Q    )   
2YQB ...[??? MILL SECT CENT FGN 1 DOC   
2^=2 ...#   
2^PL ...#     VARY OR INTERROGATE DME MILL PERCENTAGE IN CME
2^R* ...#      THIS MACRO ISSUES '171 X #100 EXTRACODE  
2^T4 ...#                                      (READ/WRITE MILL PERCENTAGE) 
2^WR ...#        IN X:    B0 = 0  -  READ/WRITE OVERALL MILL PERCENTAGE 
2^YG ...#                 B0 = 1  -  READ/WRITE MILL OF OCP SPECIFIED   
3229 ...#                 B1-8    -  OCP NUMBER (RELEVANT IF B0 = 1)
323Y ...#                 B9-23   -  ZERO IF FUNCTION IS READ   
325M ...#                         - PERCENTAGE IF FUNCTION IS WRITE 
327B ...#   
329= ...#   
32NW ...#MAC  MILL  
32WW ...      LDX   0  %B   
334W ...      SLL   0  15   
33=W ...      ORX   0  %A   
33DW ...      BZE   %C M1MILL   
33LW ...     LDCT  %C #400  
33SW ...      ORX  0  %C
342W ...M1MILL  
348W ...      '171  0  #100 
34=W ...      SLL   0  9
34#W ...      SRL   0  9
34BW ...      LDX   %A 0
3572 ...#NOR
35LL ...[???  OCPSMILL SECT CENT FGN 1 DOC  
366= ...#   
36KW ...#     IN CME WITH DUALS THIS MACRO IS USED TO INTERROGATE   
375G ...#     THE MILL PERCENTAGE ALLOCATED TO EACH ACTIVE  
37K6 ...#     OCP AND ALLOW THE CHAPTER TO TAKE ACTION ON EACH ONE. 
384Q ...#   
38JB ...#MAC  OCPSMILL  
3942 ...     LDX   6  APROCNO   
39HL ...      BNZ   6  M0OCPSMILL   
3=3= ...      LDN   6  63   
3=GW ...M0OCPSMILL  
3?2G ...      ANDN  6   #77 
3?G6 ...      STOZ      %B  
3?^Q ...M1OCPSMILL  
3#FB ...      STOZ      %A  
3#^2 ...      LDN   5  1
3*DL ...      MILL     %A,%B,5  
3*Y= ...      BZE   %A  M2OCPSMILL  
3BCW ...      SBN   6  1
3BXG ...      CALL  7  %C   
3CC6 ...      BZE   6  M3OCPSMILL   
3CWQ ...M2OCPSMILL  
3DBB ...      LDN   0  1
3DW2 ...      ADS   0  %B   
3F*L ...      LDN   0  63   
3FT= ...      BXL   0  %B,M3OCPSMILL
3G#W ...      BRN      M1OCPSMILL   
3GSG ...M3OCPSMILL  
3H#6 ...#NOR
^^^^ ...53105306001000000000