{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS NI)}}
====== 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