{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: IPBJOURN867)}}
====== IPBJOURN867 ======
(George Source)
**Macros used:** [[george:macro:BXE|BXE]], [[george:macro:COMERRX|COMERRX]], [[george:macro:COOR1|COOR1]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:FINDACTFB|FINDACTFB]], [[george:macro:FPUT|FPUT]], [[george:macro:GEOPACK|GEOPACK]], [[george:macro:GETACT|GETACT]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LINKSET|LINKSET]], [[george:macro:MFREEW|MFREEW]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MONOUT|MONOUT]], [[george:macro:NAME|NAME]], [[george:macro:OUTBLOCK|OUTBLOCK]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:OUTPAR|OUTPAR]], [[george:macro:PAIR|PAIR]], [[george:macro:PARANUMB|PARANUMB]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SPARAPAS|SPARAPAS]], [[george:macro:SUICIDE|SUICIDE]]
22FL #SEG IPBJOURN [COMM - IPB
22^= [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
23DW #OPT K0IPBJOURN=1
23YG #LIS K0IPBJOURN>K0IPB>K0ALLGEO>K0GREATGEO
24D6 8HIPBJOURN
24XQ [
25CB SEGENTRY K1IPBJOURN,X1IPBJOURN
25X2 SEGENTRY K2IPBJOURN,X2IPBJOURN
26BL [
26W= ...
27*W [ COMMAND IPBJOURN . THE ACTIVITY IS A CPAT
27CS ...
27FQ ...
27HN ...
27KL ...
27MJ ...
27PG ...
27RD ...
27TG [
2#=6 [
2#PQ PAPFERR +APFERR
2*9B ONMSK #575620 [ON SPACE
2*P2 PJSETP8 +JSETP8
2B8L PJPARMIS +JPARMIS
2BN= PJTOOMANY +JTOOMANY
2BS7 ...PAIR1 PAIR IPBJOURN,2
2BY4 ...PAMISC
2C3^ ...#HAL AMXOR+AMISC,0
2C7W [
2CMG [ SUBROUTINES
2D76 [
2DLQ [
2F6B [ K1 IPBJOURN
2FL2 [
2G5L X1IPBJOURN
2GK= PARANUMB 5 [GET COUNT OF PARAMETERS
2H4W SBN 5 2
2HJG BPZ 5 XJTOOMANY [MORE THAN ONE PARAMETER
2J46 SPARAPAS
2JHQ MHUNT 3,CPB,CUNI
2K3B LDX 4 ANUM(3)
2KH2 BNG 4 T1 [J. PARAMETER MISSING
2L2L BZE 4 T1
2LG= ANDN 4 #7777
2L^W SBN 4 4
2MFG BPZ 4 PFERR [>3 CHARS : FORMAT ERROR
2M^6 LDX 4 APARA(3)
2NDQ SRL 4 6
2NYB ERX 4 ONMSK(1) [COMPARE WITH ON
2PD2 BZE 4 ON1
2PXL ERN 4 #1066 [COMPARE WITH OFF
2QC= BZE 4 OFF1
2QWW PFERR
2RBG LDX 6 PAPFERR(1)
2RW6 XERR
2S*Q COMERRX 6
2STB T1 LDX 7 PJSETP8(1) [FIRST
2T*2 LDX 6 PJPARMIS(1) [PARAMETER MISSING
2TSL COMERRX 6,7
2W#= XJTOOMANY
2WRW LDX 6 PJTOOMANY(1)
2X?G BRN XERR
2XD8 ...ON1
2XJW ... LDX 0 IPBJRN
2XPJ ... BNZ 0 XEND
2XW= ... LDX 0 GSIGN
2Y2Y ... STO 0 IPBJRN
2Y7L ... GETACT AMOP,AJOURN
2Y## ... LDX 3 BPTR(2)
2YF2 ... STOZ IPBSW(3)
2YKN ... LINKSET 3,PAIR1(1)
2YQB XEND
2^=2 ENDCOM
2^PL OFF1
2^WS ... LDX 0 IPBJRN
3242 ... BZE 0 XEND
329= STOZ IPBJRN [CLEAR FIXED CORE WORD
32?F ... FINDACTFB 2,FX2,AMOP,AJOURN,,BPTR
32*N ... LDX 0 IPBSW(2)
32CX ... BNG 0 XEND
32G6 ... LDX 0 GSIGN
32J* ... STO 0 IPBSW(2)
32LJ ... FPUT
32NW BRN XEND
338G [
33N6 [ K2 IPBJOURN
347Q [
34MB X2IPBJOURN
3572 ... LDX 0 IPBJRN
35LL ... BZE 0 XSUIC
366= ... LDX 3 ACTRING(2)
36KW ... SBN 3 ACTRING
375G ...XJRN
37K6 ... LDX 3 BPTR(3)
384Q ... BXE 3 2,XFIN
38JB ... LDX 0 ATYPE(3)
3942 ... TXU 0 PAMISC(1)
39HL ... BCS XJRN
3=3= ... NAME 3,AMXOR,AMISCJOURN
3=GW ... LDX 5 IPBCOUNT(3)
3?2G ... ADN 5 1
3?G6 ... STO 5 IPBCOUNT(3)
3?^Q ... ADN 5 5
3#FB ... OUTBLOCK 5
3#^2 ... OUTPAR TIMENOW
3*DL ... LDX 1 IPBDATA+497(3)
3*Y= ... LGEOG 1,5
3BCW ... GEOPACK 5,5,5
3BXG ... OUTPACK 5,1,GEOPER
3CC6 ... MHUNTW 3,AMXOR,AMISCJOURN
3CWQ ... OUTPACK IPBCOUNT(3),V,VAROCT
3DBB ... MONOUT IPBTRACE
3DW2 ... MFREEW AMXOR,AMISCJOURN
3F*L ... BRN X2IPBJOURN
3FT= ...
3SK2 XFIN
3W3W STOZ IPBSW(2) [CLEAR IPBSW TO INDICATE FINISH WITH
3WHG COOR1 [AWAIT TO BE STARTED
3X36 BRN X2IPBJOURN
3XBT ...
3XQJ ...XSUIC
3Y6? ... SUICIDE
3YG2 #END
^^^^ ...025222020006