{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROSAJE)}}
====== MACROSAJE ======
(George Source)
2249 ...[ THIS MACRO FILE IS OWNED JOINTLY BY COMM AND DIAG
226D ...[ COMM OWNS THE FIRST HALF (UP TO ORIF) AND DIAG OWNS THE REST
228N ...[ 4 MACRO DEFINITIONS.
22CB ...[ --------------------
22L4 ...[
22L7 ...[??? EDITRP SECT COMM FGN 8 DOC
22L= ...[
22L* ...[ MACRO TO CONTROL THE INCLUSION OF THE ENHANCEMENT
22LD ...[ TO REDUCE THE PROBLEM OF LARGE REPEATED EDITS
22LH ...[ HOLDING UP OBJECT PROGRAMS.
22LL ...[
22LP ...#MAC EDITRP [EDITRP-IF %A ON OR ABSENT SET UP
22LS ...[ [NO. OF CHAPTER CHANGES BETWEEN
22LX ...[ [CALLS TO MACRO LETOPRUN=%B OR 10
22M2 ...[ [EDITRP IS A RESTORE-TIME MACRO.
22M5 ...#STR %A,ON [INCLUDE IF %A NOT ON OR NOT ABSENT
22M8 ...(
22M? ...#STR OFF,%A
22M# ...(
22MB ...! PARAMETER MUST BE ON OR OFF
22MF ...#EXI [EXIT IF %A IS OFF OR INVALID
22MG ...)
22MH ...#MEN EDITOR
22MJ ...#TRA K60EDITOR
22MK ... BRN K61EDITOR
22ML ...#END
22MM ...)
22MN ...#STR %A,ON
22MP ...#SKI
22MQ ...(
22MR ...#MEN FIXED
22MS ...#TRA EDRPCHCH
22MT ...#SKI %B
22MY ... +%B
22N3 ...#SKI %B
22N6 ...#SKI
22N9 ... +10
22N# ...#END
22NC ...#MEN EDITOR
22NG ...#TRA K60EDITOR
22NK ... NULL
22NN ...#END
22NP ...)
22NR ...#NOR
22NW ...[??? LETOPRUN SECT COMM FGN 8 DOC
22N^ ...[ MACRO TO ALLOW OBJECT PROGRAM TO RUN DURING LARGE
22P4 ...[ REPETITIVE EDITS-ENHANCENENT 8159.
22P7 ...[
22P9 ...#MAC LETOPRUN
22P? ...[ THE MACRO SUSPENDS THE CURRENT ACTIVITY IF IT FINDS A NUMBER OF
22P* ...[ RUNNABLE OBJECT PROGRAMS EQUAL TO THE NUMBER OF PROCESSORS.
22PC ...[ IT SEARCHES THE PROGRAM RING, FOLLOWING THE 'BPTR' TO IMPROVE
22PF ...[ THE CHANCE OF FINDING A MILL-BOUND PROGRAM, FOR
22PH ...[ AN ELEMENT FOR MEMBER 0.
22PK ...[ CHECKS ARE MADE THAT THE PROGRAM IS NOT RUNNING AND IS NOT STOPPED.
22PM ...[ THE 4 MELS ARE EXAMINED FOR ONE WHICH IS NOT SUSPENDED.
22PP ...[ THE CURRENT ACTIVITY IS SUSPENDED IF THE COUNT OF PROCESSORS EXPIRES.
22PR ...[ THE COUNT IS DECREMENTED WHEN A NON-SUSPENDED MEL IS FOUND.
22PT ... LDCH 2 APROCNO [NUMBER OF PROCESSORS
22PX ... LDN 1 BPROG [PROGRAM RING BASE
22P^ ...M1LOP BZE 2 M2LOP
22Q3 ...M5LOP LDX 1 BPTR(1) [FOLLOW BACKWARD POINTER
22Q5 ... LDN 0 GMEL
22Q7 ... BXE 0 1,M3LOP [GIVE UP IF GEORGE'S MEL FOUND - IT'S
22Q9 ... LDCH 0 ARM(1) [GEORGE WE WANT TO SUSPEND!
22Q? ... BNZ 0 M5LOP [CONTINUE SEARCH IF NOT MEMBER 0
22Q* ... SMO APD(1) [ADDRESS OF 'ASTOP'
22QC ... LDXC 0 ANM-ASTOP
22QF ... BCS M5LOP [CONTINUE SEARCH IF PROGRAM IS RUNNING
22QH ... SMO APD(1)
22QK ... LDX 0 0 [PICK UP ASTOP
22QM ... BNZ 0 M5LOP [CONTINUE SEARCH IF PROGRAM IS STOPPED
22QP ...[ CHECK EACH MEL, DECREMENT COUNT IF A NON-SUSPENDED MEL IS FOUND
22QR ... LDX 0 ASU(1)
22QT ... BZE 0 M4LOP
22QX ... LDX 0 ASU+(ASU2-ASU1)(1)
22Q^ ... BZE 0 M4LOP
22R3 ... LDX 0 ASU+(ASU3-ASU1)(1)
22R5 ... BZE 0 M4LOP
22R7 ... LDX 0 ASU+(ASU4-ASU1)(1)
22R9 ... BNZ 0 M5LOP
22RC ...M4LOP BCT 2 M1LOP
22RG ...M2LOP COOR3 #41
22RK ...M3LOP LDX 1 FX1
22RN ... LDX 2 FX2
22RR ...#NOR
22SQ ...[ DICK RUSBRIDGE
233D ...[??? EDSTAT SECT COMM FGN 8 DOC
23=6 ...[
23DS ...[
23MG ...[ MACRO TO SWITCH ON THE EDIT SPECIAL FOR PLESSEY
23W8 ...[ THAT OUTPUTS THE JOBTIME AT THE START AND END
244W ...[ OF AN EDIT, AND ALSO THE TOTAL RECORD TRANSFERS
24?J ...[ PERFORMED DURING THE EDIT.
24GB ...#
24GQ ...#MAC EDSTAT
24H6 ...#MEN EDIT
24HG ...#TRA ESP1
24HW ... NULL
24J= ...#END
24JL ...#MEN EDITORA
24K2 ...#TRA ESP10
24KB ... NULL
24KQ ...#END
24L6 ...#MEN EDITPT
24LG ...#TRA ESP2
24LW ... ADS 7 IEOS(2)
24M= ...#TRA ESP3
24ML ... ADS 7 IEOS(2)
24N2 ...#TRA ESP4
24NB ... NULL
24NQ ...#TRA ESP5
24P6 ... NULL
24PG ...#TRA ESP6
24PW ... ADS 4 IEOS(2)
24Q= ...#TRA ESP7
24QL ... ADS 4 IEOS(2)
24R2 ...#TRA ESP8
24RB ... ADS 7 IEOS(2)
24RQ ...#TRA ESP9
24S6 ... ADS 7 IEOS(2)
24SG ...#END
24SW ...#MEN EDWRITE
24T= ...#TRA ESP
24TL ... ADS 4 IENS(2)
24W2 ...#END
24WB ...#NOR
24WJ ...[??? EDERM SECT COMM FGN 8 DOC
24WQ ...#
24X6 ...#
24XQ #MAC EDERM [EDERM - GENERATE ERROR MESSAGE %C
25CB IERR%A +%B [OF CHARACTER LENGTH %B AND LABEL IT
25X2 %BH%C [%C. MUST ONLY BE USED IN SEGMENT
26BL #NOR [EDITER
26LD ...[??? EDERR SECT COMM FGN 8 DOC
26W= #
27*W #
27TG #MAC EDERR [EDERR - OUTPUT THE ERRROR MESSAGE
28*6 ... LDN 7 IERR%A [LABELLED %A, IN COMERR OR COMMENT
28SQ ... DOWN EDITER,1 [CATEGORY, IF FORMER SET COMERR FLAG
29#B ...#NOR [AND RETURN TO ONE AFTER MACRO
29J8 ...[??? EDCOM SECT COMM FGN 8 DOC
29S2 #
2=?L #MAC EDCOM [EDCOM - OUTPUT THE COMMENT MESSAGE
2=R= LDN 7 IERR%A [LABELLED %A IN THE COMMENT CATEGORY
2?=W DOWN EDITER,2 [AND REUTRN TO ONE AFTER MACRO.
2?QG #NOR
2#2# ...[??? EDCOMERR SECT COMM FGN 8 DOC
2#=6 #
2#*= ...#MAC EDCOMERR [EDCOMERR - OUTPUT THE ERROR
2#DB ... LDN 7 IERR%A [MESSAGE %A IN COMMAND ERROR
2#HG ... DOWN EDITER,5 [CATEGORY, SET COMERR FLAG
2#LL ...#NOR [AND RETURN TO ONE AFTER MACRO
2#N8 ...[??? IETS SECT COMM FGN 8 DOC
2#PQ #
2*9B #MAC IETS [IETS - TABLE SETUP MACRO. THIS MACRO
2*P2 #DEF 25?=1? [INSERTS THE VALUE OF %B MODULO *77
2B8L #LIS 0
2BN= #STR %C [FROM THE START OF THE TABLE IS GIVEN
2C7W #DEF 21?=%C [BY %A, EXPRESSED AS THE NUMBER OF
2CMG #STR %B [SIX BIT FIELDS. %A MAY BE EITHER AN
2D76 #DEF 22?=%B [OCTAL NUMBER OR A CHARACTER. IF IT
2DLQ #SKI 22?/64 [IS A CHARACTER ITS NUMERIC VALUE IS
2F6B ! IETS ADDRESS OUT OF RANGE ! [TAKEN. IF %C IS OMITTED IT IS ASSUM
2FL2 #STR #,%A [ED THAT THE MACRO HAS BEEN USED
2G5L 4H000%A [PREVIOUSLY AND THE SAME %C APPLIES;
2GK= #STR #,%A [SIMILARLY FOR %B. FOR ANY ONE TABLE
2H4W #STR [THERE MUST ONLY BE ONE OF ANY %A
2HJG %A [BECAUSE #FID ADDS IN. THE TABLE AT
2J46 #DEF 24?=0?-1 [%C MUST BE PREVIOUSLY ZEROISED.
2JHQ #DEF 20?=34?+24?+0] [THIS MACRO SUPPRESSES MOST OF THE
2K3B #DEF 23?=20?/4*4 [LISTING BECAUSE IF IT DIDNT THE
2KH2 #TRA 20?/4+21?+1 [LISTING WOULD BE VERY MESS INDEED.
2L2L #LIS 25? [NOTE THE CUNNING MANIPULATION OF
2LG= #FID 20?-23?*6 20?-23?*6+5 22? [QUERY VARIABLES. THIS AVOIDS AN
2L^W #TRA 24? [INTERLUDE, WHICH WOULD BE VERY
2MFG #NOR [INEFFICIENT.
2MP# ...[??? IET SECT COMM FGN 8 DOC
2M^6 #
2NDQ #
2NYB #MAC IET [IET - A RECURSICE VERSION OF IETS
2PD2 IETS %A [WHERE %B AND %C ARE ALREADY SET UP.
2PXL #STR %B
2QC= IET %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V,%W
2QWW #NOR
2R6N ...[??? FFFNORM SECT COMM FGN 8 DOC
2RBG #
2RW6 #
2S*Q #MAC FFFNORM [FFFNORM - FANTASTICALLY FAST FNORM
2STB DOWN FFFNORM,1 [CONVERTS POSSIBLY
2T*2 #STR %A [INCLUDING HELD IN A FNAME
2TSL BRN %A [INOT A FABSNB. IF ERROR EXITS TO %A
2W#= #STR %A [(OPTIONAL). REPLIES SET ARE OK,
2WRW #SKI [NAMEFORM, ADJUNCTS(NOT DEALT WITH)
2X?G NULL [AND CHNUMERR.
2XR6 #NOR
2Y2Y ...[??? ORIF SECT DEVT FGN 9 DOC
2Y=Q #
2YQB #
2^=2 #MAC ORIF
2^PL #STR %C
329= ...#DEF 26?=26?*256+%C
32NW #STR %C
338G #SKI
33N6 ...#DEF 26?=26?*256+GEORGE
347Q #STR %B
34MB ...#DEF 25?=25?*256+%B
3572 #STR %B
35LL #SKI
366= ...#DEF 25?=25?*256+G3ISSUE
36KW ...#DEF 24?=24?*256+%A
375G #NOR
37*# ...[??? INCIF SECT DEVT FGN 8 DOC
37K6 #
384Q #
38JB #MAC INCIF
3942 #STR %C
39HL #DEF 26?=%C
3=3= #STR %C
3=GW #SKI
3?2G #DEF 26?=GEORGE
3?G6 #STR %B
3?^Q #DEF 25?=%B
3#FB #STR %B
3#^2 #SKI
3*DL #DEF 25?=G3ISSUE
3*Y= #DEF 24?=%A
3BCW #NOR
3BMN ...[??? SEG SECT DEVT FGN 9 DOC
3BXG #
3CC6 #
3CWQ ...#MAC SEG [UPDATED FOR 8.64 +8.67
3DBB ...#DEF M1SEG=24?/65536&255$G3MARK<1
3DW2 ...#DEF M2SEG=24?/256&255$G3MARK<1
3F*L ...#SKI 24?&255$G3MARKK6%D [LEVELS IF %D PRESENT
3W3W #OPT K0%A=K0ALLGEO>K0%D>0 [LEVELS IF %D PRESENT
3WHG #LIS K0%A>K0ALLGEO>K0%D>0
3X36 )
3XGQ #STR %D
3Y2B #SKI
3YG2 (
3Y^L #OPT K6%A=K6ALLGEO [LEVELS IF %D ABSENT
3^F= #OPT K0%A=K0ALLGEO>0 [LEVELS IF %D ABSENT
3^YW #LIS K0%A>K0ALLGEO>0
42DG )
42Y6 #NOR
437Y ...[??? CLO7 SECT DEVT FGN 8 DOC
43CQ #
43XB #
44C2 #MAC CLO7 [UNLOAD TAPE %A
44WL #INT
45B= MCLO7 #40501007,0
45TW LDN 7 %A
46*G PERI 7 MCLO7
46T6 EXIT 0 0
47#Q #JUM MCLO7+2
47SB #NOR
4848 ...[??? ISSUE SECT DEVT FGN 8 DOC
48#2 #
48RL #
49?= #MAC ISSUE
49QW ...[ THIS MACRO CHECKS THE ISSUE NUMBER OF A SET OF MENDS
4==G #SKI +%A-G3ISSUE
4=Q6 (
4?9Q #INT
4?PB M1ISSUE 20HAMENDING WRONG ISSUE
4#92 M2ISSUE 20:M1ISSUE
4#NL M3ISSUE SUSTY M2ISSUE
4*8= EXIT 0 0
4*MW #JUM M3ISSUE
4B7G )
4BM6 #NOR
4BWY ...[??? MEND SECT DEVT FGN 8 DOC
4C6Q #
4CLB #
4D62 ...[ MACRO MEND [MFN
4DKL #
4F5= ...[ THIS MACRO MUST BE USED TO INTRODUCE 'NO PART' AND 'MULTI PART'
4FJW ...[ MENDS
4G4G #
4GJ6 #MAC MEND
4GP# ...#SKI 67?𩺴<1$1
4GWG ... MENDON %A
4H3Q #STR %B
4HHB #STR
4J32 (
4JGL ! MEND %A HAS NO
4K2= ! BUG NUMBER
4KFW )
4K^G #SKI %A!<#40000000$#40000000<1*%A!>75?$75? [IF %A COMPILABLE (& NOT
4LF6 ( [ALREADY COMPILED)
4LYQ #MEN LEND,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T
4M3* ...#SKI %A>80503$80503
4M5Y ...(
4M8H ...#SKI %A<80600$80600
4M?6 ...#ALT FIXMEND = %A>FIXMEND
4M*P ...)
4MDB #END
4MY2 #NOR
4NCL ...[??? MENDON SECT DEVT FGN 8 DOC
54L= #
555W ...[ MACRO MENDON [MFN
55KG #
5656 ...[ THIS MACRO CAUSES MENDS TO BE COMPILED ALTHOUGH THEIR
56JQ ...[ STATUSES ARE SUCH THAT THEY WOULD NORMALLY NOT BE INCLUDED
574B #
57J2 #MAC MENDON
57MX ...#UNS %A!+1
57RS ...#SKI
57XP ...#STA %A,75?+1
583L #SKI %A!$#40000000<1$1
58H= (
592W ! MEND %A HAS
59GG ! ALREADY BEEN COMPILED
5=26 )
5=FQ #SKI %A!$#40000000
5=^B #STA %A,75?+1
5?F2 #STR %B
5?YL MENDON %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V
5#D= #NOR
5#XW ...[??? SEGMES SECT DIAG FGN 18
5*CG ...[
5*X6 ...[ MACRO SEGMES
5BBQ ...[
5BWB ...[
5CB2 ...[ THIS MACRO SETS BITS IN GMESBITS
5CTL ...[ IF MES ITEMS ARE INCLUDED
5D*= ...[
5DSW ...#MAC SEGMES
5F#G ...#DEF 21? = 0
5FS6 ...#STR G3,%A
5G?Q ...#STR
5GRB ...#DEF 21? = 1
5H?2 ...#STR G5,%A
5HQL ...#STR
5J== ...#DEF 21? = 1
5JPW ...#STR G4,%A
5K9G ...#STR
5KP6 ...#DEF 21? = 1
5L8Q ...#UNS %A
5LNB ...(
5M82 ... MACINT
5MML ...#TRA GMESBITS + 21?
5N7= ... 20?^B%A
5NLW ...#END
5P6G ...#EXI
5PL6 ...)
5Q5Q ... MACINT
5QKB ...#TRA GMESBITS + 21?
5R52 ... (20?$B%A)<20?
5RJL ...#END
5S4= ...#EXI
5SHW ...#NOR
5T3G ...[??? MACINT SECT DIAG FGN 18
5TH6 ...[
5W2Q ...[ MACRO MACINT
5WGB ...[
5X22 ...[ THIS IS AN INTERLUDE WHICH MENDS FIXED AND SETS THE
5XFL ...[ BITS IN GMESBITS FOR SEGMES
5X^= ...[
5YDW ...#MAC MACINT
5YYG ...#MEN FIXED
5^D6 ...#TRA GMESBITS + 2
5^XQ ...#INT
62CB ...#ORD
62X2 ...SLINK +0
63BL ...START STO 0 SLINK
63W= ... LDX 0 START-3+21?
64*W ... STO 0 18? + 3] + 20
64TG ... LDX 0 SLINK
65*6 ... EXIT 0 0
65SQ ...#JUM START
664J ...#EXT
66#B ...#NOR
^^^^ ...327446600021