{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: BMXEMS83)}}
====== BMXEMS83 ======
(George Source)
**Macros used:** [[george:macro:BXE|BXE]], [[george:macro:BXU|BXU]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:DATECON|DATECON]], [[george:macro:GEOERR|GEOERR]], [[george:macro:INSERT|INSERT]], [[george:macro:ISSUJOB|ISSUJOB]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:OPEN|OPEN]], [[george:macro:REPLACE|REPLACE]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SPACECT|SPACECT]], [[george:macro:STEP|STEP]], [[george:macro:STEPAGAIN|STEPAGAIN]], [[george:macro:SUICIDE|SUICIDE]], [[george:macro:TIMECON|TIMECON]]
22FL ... SEG BMXEMS,83,TONY MAY,BMAP
22^= SEGENTRY K1BMXEMS,Z1BMXEMS
23DW MNO 7036875
23YG [HEADINGS
24D6 Z1 +25,4H000I
24XQ 44H FILE DESCRIPTION
25CB 48H DATE & TIME DATE & TIME INCREMENT
25X2 Z2 +25,4H@00A
26BL 44H
26W= 48H LAST WRITTEN LAST DUMPED NUMBER
27*W ZLOST 4HLOST
27TG ZNOTDUMP 16H NOT DUMPED
28*6 NLIST +10
28SQ 12HSYSTEM
29#B 12HLISTLOSTFILE
29S2 1,1,4HB1
2=?L OUTJOB 28HRJ BACKMAP,:SYSTEM,BACKLIST
2=R= [
2?=W Z1BMXEMS [ENTRY SET IN ACTIVITY BY BACKMASS
2?QG [
2#=6 SETNCORE 10,2,FILE,FABSNB
2#PQ ADN 1 NLIST
2*9B ADN 2 A1
2*P2 MOVE 1 10
2B8L OPEN XBR,GENERAL
2BN= STEP
2C7W BZE 3 RJ
2CMG SETNCORE 25,2,FILE,FWB
2D76 ADN 1 Z1
2DLQ ADN 2 A1
2F6B MOVE 1 25
2FL2 INSERT [INSERT HEADINGS
2G5L MHUNTW 2,FILE,FWB
2GK= ADN 1 Z2
2H4W ADN 2 A1
2HJG MOVE 1 25
2J46 INSERT [AT FRONT OF FILE
2JHQ STEPAGAIN
2JQ2 ...ONCT
2JY= ... LDX 0 ERECN(3)
2K6G ... SBN 0 41
2K#Q ... BNZ 0 TEMPLAB
2KBS ... LDX 0 ERESN(3)
2KDW ... BNZ 0 TEMPLAB
2KH2 MHUNTW 2,FILE,FWB
2L2L LDX 4 2 [KEEP FOR LATER
2LG= LDX 0 ACES
2L^W STO 0 A1+2(2)
2MFG LDN 1 A1+2(2)
2M^6 ADN 2 A1+3
2NDQ MOVE 1 22
2NYB ADN 1 3
2PD2 BCHX 1 £
2PXL LDN 0 #36
2QC= DCH 0 0(1) [STOP GOES IN A1+5.1
2QWW BCHX 1 £
2RBG LDX 7 1 [POSN FOR CHAR 1 OF LOCAL NAME
2RW6 ANDX 1 BITS22LS [POSN FOR LAST CHAR OF USER NAME
2S*Q ... LDN 6 #20
2STB ... LDN 2 EUSE1N+3(3)
2T*2 LDN 5 12
2TSL NCUSER
2W#= SLC 2 2
2WRW SBN 2 1
2X?G SRC 2 2
2XR6 LDCH 0 0(2)
2Y=Q BXU 0 6,NSUSERB
2YQB BCT 5 NCUSER [LOSE TRAILING SPACES
2^=2 BRN XBR
2^PL NSUSERA
329= SLC 2 2
32NW SBN 2 1
338G SRC 2 2
33N6 LDCH 0 0(2)
347Q NSUSERB
34MB DCH 0 0(1) [BUNG IN SIGNIFICANT CHARS
3572 SLC 1 2
35LL SBN 1 1
366= SRC 1 2
36KW BCT 5 NSUSERA
375G LDN 0 #12
37K6 DCH 0 0(1) [ADD : IN FRONT
384Q LDN 5 12
38JB LDN 2 ELOC1-A1+3(3) [LAST CHAR +1 OF LOCAL NAME
3942 NCLOCAL
39HL SLC 2 2
3=3= SBN 2 1
3=GW SRC 2 2
3?2G LDCH 0 0(2)
3?G6 BXU 0 6,NSLOCAL
3?^Q BCT 5 NCLOCAL [COUNT DOWN TRAILING SPACES
3#FB BRN XBR
3#^2 NSLOCAL
3*DL LDX 1 7
3*Y= LDN 0 ELOC1-A1(3)
3BCW SMO 5
3BXG MVCH 0 0
3CC6 LDX 7 EGEN-A1(3)
3CWQ LDN 0 #30 [ (
3DBB DCH 0 0(1)
3DW2 BCHX 1 £
3F*L ANDN 7 #7777 [SHOULDN'T BE NECESSARY
3FT= LDX 2 FX1
3G#W MPY 7 MNO(2) [MAGIC NUMBER
3GSG LDN 5 7
3H#6 MODE 1
3HRQ NGEN
3J?B CBD 7 2
3JR2 ANDN 2 #77
3K=L BXE 2 6,SP
3KQ= DCH 2 0(1)
3L9W BCHX 1 £
3LPG SP
3M96 BCT 5 NGEN
3MNQ LDX 2 ELAN-A1(3)
3N8B BXE 2 ACES,PAR [ ) NEXT IF LANG SPACES
3NN2 LDN 0 #37
3P7L DCH 0 0(1)
3PM= BCHX 1 £
3Q6W LDN 0 ELAN-A1(3)
3QLG MVCH 0 4
3R66 PAR
3RKQ LDN 0 #31
3S5B DCH 0 0(1)
3SK2 NOTFULL
3T4L LDX 1 FX1
3TJ= LDX 2 FX2
3W3W LDX 0 EWRITDAY-A1(3) [TO AVOID STEPAGAIN
3WHG LDX 7 EWRITTIME-A1(3)
3X36 BNZ 0 WRIT
3XGQ LDX 0 EDLA-A1(3)
3Y2B LDX 7 ETLA-A1(3)
3YG2 WRIT
3Y^L STO 0 AWORK1(2)
3^F= STO 7 AWORK2(2)
3^YW LDX 2 4 [-> FWB
42DG LDX 7 EINC-A1(3)
42Y6 BNZ 7 NOTLOST
43CQ LDX 7 EDLD-A1(3)
43XB BZE 7 NOTDUMPED
44C2 LDX 0 ZLOST(1) ['LOST'
44WL STO 0 A1+19(2)
45B= BRN WRITDATA
45TW NOTDUMPED
46*G ADN 1 ZNOTDUMP
46T6 ADN 2 A1+18
47#Q MOVE 1 4
47SB BRN WRITDATA
48#2 NOTLOST
48RL MPY 7 MNO(1)
49?= MODE 1
49QW LDN 5 7
4==G NUMINC
4=Q6 CBD 7 A1+23(2)
4?9Q BCHX 2 £
4?PB BCT 5 NUMINC
4#92 LDX 7 ETLD-A1(3)
4#NL DATECON EDLD-A1(3)
4*8= MHUNTW 3,FILE,FWB
4*MW ADN 2 ACOMMUNE1
4B7G ADN 3 A1+18
4BM6 MOVE 2 2
4C6Q TIMECON 7
4CLB MHUNTW 3,FILE,FWB
4D62 ADN 2 ACOMMUNE1
4DKL ADN 3 A1+20
4F5= MOVE 2 2
4FJW WRITDATA
4G4G LDX 2 FX2
4GJ6 DATECON AWORK1(2)
4H3Q MHUNTW 3,FILE,FWB
4HHB ADN 2 ACOMMUNE1
4J32 ADN 3 A1+13
4JGL MOVE 2 2
4K2= LDX 2 FX2
4KFW TIMECON AWORK2(2)
4K^G MHUNTW 3,FILE,FWB
4LF6 LDN 4 24
4LYQ NEXT
4MDB SMO 4
4MY2 LDX 5 A1(3)
4NCL SPACECT 5,6,SPACES
4NX= BRN NOTSPACES
4PBW SPACES
4PWG BCT 4 NEXT
4QB6 BRN XBR
4QTQ NOTSPACES
4R*B ADN 4 1
4RT2 STO 4 A1(3)
4S#L NGX 6 6
4SS= SLL 6 22
4T?W ORN 6 #41
4TRG STO 6 A1+1(3)
4W?6 ADN 2 ACOMMUNE1
4WQQ ADN 3 A1+15
4X=B MOVE 2 2
4XJR ... REPLACE
4XX8 ...TEMPLAB
4Y9L STEP
4YP= BNZ 3 ONCT
4^8W RJ CLOSETOP
4^NG SETNCORE CPDATA-A1+7,2,ADATA,CREADL
5286 LDN 0 28
52MQ STO 0 A1(2)
537B ADN 1 OUTJOB
53M2 ADN 2 CPDATA
546L MOVE 1 7
54L= ISSUJOB 0
555W SUICIDE
55KG XBR
5656 GEOERR 1,BMXEMS
56JQ [
574B MENDAREA BMAPGAP,K99BMXEMS
57J2 #END
^^^^ ...70351334000300000000