BMXEMS83
(George Source)
Macros used: BXE, BXU, CLOSETOP, DATECON, GEOERR, INSERT, ISSUJOB, MENDAREA, MHUNTW, OPEN, REPLACE, SEG, SEGENTRY, SETNCORE, SPACECT, STEP, STEPAGAIN, SUICIDE, TIMECON
- BMXEMS83.txt
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