{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: UMMENDS867)}}
====== UMMENDS867 ======
(George Source)
**Macros used:** [[george:macro:ALTLENGD|ALTLENGD]], [[george:macro:APROPNAME|APROPNAME]], [[george:macro:BXGE|BXGE]], [[george:macro:BXU|BXU]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:OPEN|OPEN]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:UP|UP]]
22FL ...#LIS K0UMMENDS
22^= ... SEG UMMENDS,,,,G170
23DW ...#OPT G170 = 0
23YG ...#SKI G170&1
24D6 ...# FOR UGUG MEND M170 (VARIABLE REMOTE *LP WIDTHS)
24XQ ... SEGENTRY K2UMMENDS,(GEOERR)
25CB ... SEGENTRY K11UMMENDS,(GEOERR)
25X2 ... SEGENTRY K12UMMENDS,(GEOERR)
26BL ... SEGENTRY K13UMMENDS,UM8022
26W= ...[ UM8022, VARYING REMOTE LP WIDTHS
27*W ...UM8022
27TG ...[ THIS MEND PERMITS VARIOUS LINE WIDTHS ON REMOTE
28*6 ...[ LINE PRINTERS RUN THROUGH AN IPB. THE PRINTER'S WIDTH
28SQ ...[ IS DEFINED BY ITS WIDTHN PROPERTY WHERE N IS THE NO OF
29#B ...[ PRINT POSITIONS & WIDTHN IS (PERM,INCL).
29S2 ...[ THE LENGTH OF THE ACTLF/GREMOTE BLOCK IS INCREASED AFTER BEING
2=?L ...[ SET UP, BY 1 WORD, IWIDTH, TO HOLD THE PRINTER WIDTH.
2=R= ...[ IF THE PRINTER DOESN'T HAVE A WIDTHN PROPERTY IWIDTH
2?=W ...[ IS SET TO A7021WIDTH SO ANY WIDTH7020 MACRO MUST COME
2?QG ...[ BEFORE THIS MEND.
2#=6 ...[ SAT 1S REQUIRE A MOD FROM CTL FOR WIDTHS > 132.
2#PQ ...[ ROUTINE FOR LENGTHENING ACTLF FOR IWIDTH WORD
2*9B ...[ AND SETTING THIS WORD TO LENGTH REQUIRED
2*P2 ... LDX 6 FX2 [INC ACTLF LEN BY 1
2B8L ... ALTLENGD 6,ACTLFLEN+GREMOTELEN+1,£ [77
2BDD ... SEGENTRY K50UMMENDS
2BN= ... LDN 6 A7021WIDTH
2C7W ... STO 6 IWIDTH(2)
2CMG ... MHUNTW 1,GOUT,GPROPNOS
2D76 ... BNG 1 XITT [PROPS BLOCK NOT PRESENT
2DLQ ... LDX 6 GPROPNUM+1(1) [PROPNUM FOLLOWING C PROP
2F6B ... BZE 6 XITT [NO OTHER PROPS
2FL2 ... SETNCORE 10,3,FILE,FABSNB
2G5L ... CALL 7 SYSPROP
2GK= ... +10
2H4W ... 12HSYSTEM
2HJG ... 12HPROPERTY
2J46 ... +1
2JHQ ... +1
2K3B ... 4HB1
2KH2 ...SYSPROP
2L2L ... LDN 0 A1(3)
2LG= ... MOVE 7 10
2L^W ... OPEN XBRKIN,READ
2MFG ... MFREE FILE,FABSNB
2M^6 ... LDN 3 1 [1ST CONS PROP OFFSET 1 FROM C PROP
2NDQ ...XTRY APROPNAME 6,0,XNOTWID
2NYB ... LDX 7 ACOM1(2)
2PD2 ... BXU 7 WIDTH(1),XNOTWID [WIDT
2PXL ... LDCH 7 ACOM2(2)
2QC= ... ERN 7 #50 [H
2QWW ... BNZ 7 XNOTWID [LOOK AT NEXT PROPNUM
2RBG ... CLOSETOP
2RW6 ... BCHX 2 £
2S*Q ... STOZ 4
2STB ... STOZ 5
2T*2 ... LDN 0 7
2TSL ...XCONV CDB 4 ACOM2(2)
2W#= ... BCHX 2 £
2WRW ... BCT 0 XCONV
2X?G ... BXGE 5 AUMAXW(1),XITT [MAX LENGTH OF LINE +1
2XR6 ... BZE 5 XITT
2Y=Q ... SMO FX2
2YQB ... STO 5 IWIDTH
2^=2 ...XITT UP
2^PL ...XNOTWID
329= ... ADN 3 1 [STEP TO NEXT PROPNUM
32NW ... SBN 3 ATTMAX
338G ... BZE 3 XNOWPROP [NO MORE LEFT
33N6 ... ADN 3 ATTMAX
347Q ... MHUNTW 1,GOUT,GPROPNOS
34MB ... SMO 3 [X3=1 TO ATTMAX-1
3572 ... LDX 6 GPROPNUM(1)
35LL ... BNZ 6 XTRY [TRY NEXT PROPNUM
366= ...XNOWPROP
36KW ... CLOSETOP
375G ... BRN XITT
37K6 ...XBRKIN
384Q ... MFREE FILE,FABSNB [BREAKIN WHILE OPENING SYSPROP
38JB ... BRN XITT [GIVE UP
3942 ...WIDTH 4HWIDT
39HL ... SEGENTRY AUMAXW
3=3= ... 161 [MAX WIDTH OF LINES + 1
3=GW ...#END
####
##RY ...
^^^^ ...102401520013