BMJLCONV860
(George Source)
Macros used: ALTLEN, BXE, BXL, FREECORE, GEOERR, JWCONVAD, MFREEW, MHUNTW, READAGAIN, REPLACE, SEGENTRY, STEP, UP, UPPLUS
- BMJLCONV860.txt
22FL ...#OPT K0BMJLCONV=0 22^= ...#LIS K0BMJLCONV 23DW ...#SEG BMJLCONV [CENT 23YG ... 8HBMJLCONV 24D6 ...# THIS SEGMENT PERFORMS CONVERSION FOR JOBLIST RECORDS. 24XQ ...# 25CB ...# K1 : CONVERTS TEMPLATE RECORD 25X2 ...# K2 : CONVERTS JOB RECORD 26BL ... SEGENTRY K1BMJLCONV,XK1 26W= ... SEGENTRY K2BMJLCONV,XK2 27*W ...# 27TG ...XK1 28*6 ... LDN 7 0 [INITIALISE MARKER WORD 28SQ ... STEP 29#B ... MHUNTW 1,ADATA,CSTORE 29S2 ... ADN 1 A1 2=?L ... LDXC 0 2(1) 2=R= ... BCS £ 2?=W ... SBX 0 0(1) 2?QG ... STO 0 JOBDATASIZE 2#=6 ... BZE 3 UP1 [J IF FILE EMPTY 2#PQ ... LDX 0 1+JLVERSION-A1(1) [VERSION OF NEW TEMPLATE 2*9B ... SBX 0 JLVERSION-A1(3) 2*P2 ... BZE 0 MJL1 [J IF VERSIONS THE SAME 2B8L ... LDCT 7 #410 2BN= ... SBN 0 1 2C7W ... BZE 0 MJLREAD [J IF 850 TO 860 2CMG ... GEOERR 0,2 JUMPS! 2D76 ...MJLREAD 2DLQ ... READAGAIN 2F6B ... MHUNTW 3,FILE,FRB 2FL2 ... LDX 6 ALOGLEN(3) 2G5L ... ADN 6 1 2GK= ... ALTLEN 3,6 [INCREASE LENGTH BY 1 WORD 2H4W ... MHUNTW 3,FILE,FRB 2HJG ... ADN 3 A1 2J46 ... DEX 6 0(3) 2JHQ ... SBN 6 JLFAX-A1 2K3B ...MJL2 SMO 6 2KH2 ... LDX 0 JLFAX-2-A1(3) 2L2L ... SMO 6 2LG= ... STO 0 JLFAX-1-A1(3) [MOVE END OF RECORD DOWN 2L^W ... BCT 6 MJL2 2MFG ...XVERS MHUNTW 1,ADATA,CSTORE 2M^6 ... ADN 1 A1 2NDQ ... LDX 0 1+JLVERSION-A1(1) 2NYB ... STO 0 JLVERSION-A1(3) [WRITE NEW VERSION INTO RECORD 2PD2 ...MJL1 LDX 4 1+JLFAX+17-A1(1) 2PXL ... ANDX 4 GSIGN 2QC= ... LDX 5 JLFAX+17-A1(3) 2QWW ... ANDX 5 GSIGN 2RBG ... BXE 4 5,MJL3 [J IF NO NEEDS FORMAT CHANGE 2RW6 ... LDCT 0 #400 2S*Q ... ERS 0 JLFAX+17-A1(3) 2STB ... SRL 4 1 2T*2 ... SRL 5 2 2TSL ... ORX 7 4 [B1=> NEWNEEDS ON 2W#= ... ORX 7 5 [B2=> NEWNEEDS OFF 2WRW ...MJL3 LDX 4 1(1) 2X?G ... BXL 4 0(3),MJL4 2XR6 ... LDX 4 0(3) [GET MINIMUM OF 2 LENGTHS 2Y=Q ...MJL4 SBN 4 JLFAX+1-A1 2YQB ...MJL7 SMO 4 2^=2 ... LDX 0 JLFAX+1-A1-1(3) 2^PL ... SMO 4 329= ... SBX 0 1+JLFAX+1-A1-1(1) 32NW ... BZE 0 MJL5 338G ... BPZ 0 MJL7A 33N6 ... NGX 0 0 347Q ...MJL7A SBN 0 16 34MB ... BZE 0 MJL5 3572 ... BPZ 7 MJL10 35LL ... SBN 3 A1 366= ... FREECORE 3 36KW ...MJL10 LDN 7 0 375G ... BRN MJL6 [J TO REPLACE TEMPLATE AND DELETE ENT 37K6 ...MJL5 BCT 4 MJL7 384Q ... LDX 4 1+JLSTATPTR-A1(1) 38JB ... SBX 4 JLSTATPTR-A1(3) 3942 ... LDCT 0 #300 39HL ... ANDX 0 7 3=3= ... BZE 0 MJL5A 3=GW ... ADN 4 16 3?2G ... SLL 0 1 3?G6 ... BNG 0 MJL5A 3?^Q ... SBN 4 32 3#FB ...MJL5A BPZ 4 MJL8 3#^2 ... LDCT 0 #040 3*DL ... ORX 7 0 [TO INDICATE LESS DATA IN NEW 3*Y= ... NGX 4 4 3BCW ...MJL8 DEX 4 7 [DIFFERENCE IN LENGTH-SUBSEQUENT RECS 3BXG ... BPZ 7 MJL9 3CC6 ... SBN 3 A1 3CWQ ... FREECORE 3 3DBB ...MJL9 BZE 7 MJLEND 3DW2 ...MJL6 MHUNTW 1,ADATA,CSTORE 3F*L ... ADN 1 A1 3FT= ... LDX 3 1(1) 3G#W ... SETUPCOR 3,2,FILE,FWB 3GSG ... MHUNTW 1,ADATA,CSTORE 3H#6 ... ADN 1 A1 3HRQ ... LDN 4 1(1) 3J?B ... LDN 5 A1(2) 3JR2 ... MOVE 4 0(3) 3K=L ... REPLACE 3KQ= ... MFREEW FILE,FWB 3L9W ... BZE 7 UP 3LPG ...MJLEND 3M96 ... STO 7 ACOMMUNE1(2) 3MNQ ... LDN 3 2 3N8B ...UPPLUS 3NN2 ... MFREEW ADATA,CSTORE 3P7L ... UPPLUS 0(3) 3PM= ...UP LDN 3 0 3Q6W ... BRN UPPLUS 3QLG ...UP1 LDN 3 1 3R66 ... BRN UPPLUS 3RKQ ...# 3S5B ...XK2 3SK2 ... LDX 7 ACOMMUNE1(2) 3T4L ... SMO JOBDATASIZE 3TJ= ... LDN 6 JLRESTPTR 3W3W ... JWCONVAD 6,7,LATER 3WHG ... STO 6 ACOMMUNE1(2) 3X36 ... MHUNTW 3,FILE,FRB 3XGQ ... BPZ 7 XJL1 [J IF NO ISSUE CONVERSION 3Y2B ... LDEX 4 7 3YG2 ... LDCT 0 #040 3Y^L ... ANDX 0 7 3^F= ... BNZ 0 XJL2 [JIF LESS FACS IN NEW FORMAT 3^YW ... NGX 4 4 42DG ...XJL2 ADX 4 JOBDATASIZE 42Y6 ... LDCT 0 #300 43CQ ... ANDX 0 7 43XB ... BZE 0 XJL2A 44C2 ... SBN 4 16 44WL ... SLL 0 1 45B= ... BPZ 0 XJL2A 45TW ... ADN 4 32 46*G ...XJL2A 46T6 ... LDX 6 ALOGLEN(3) 47#Q ... ADN 6 1 47SB ... ALTLEN 3,6 48#2 ... MHUNTW 3,FILE,FRB 48RL ... DEX 6 A1(3) 49?= ... ADN 4 JLSTATX 49QW ... SBX 6 4 4==G ... SBN 6 1 4=Q6 ... ADX 3 4 4?9Q ...XJL3 SMO 6 4?PB ... LDX 0 A1-1(3) 4#92 ... SMO 6 4#NL ... STO 0 A1(3) 4*8= ... BCT 6 XJL3 4*MW ... SMO 6 4B7G ... STOZ A1(3) 4BM6 ... SBX 3 4 4C6Q ... LDN 0 1 4CLB ... ADS 0 ACOMMUNE1(2) 4D62 ...XJL1 LDCT 0 #300 4DKL ... ANDX 0 7 4F5= ... BZE 0 XJL4 [J IF NO NEWNEEDS CONVERSION 4FJW ... SLL 0 1 4G4G ... BPZ 0 XJL5 [J IF NEWNEEDS OFF 4GJ6 ... LDX 1 3 4H3Q ... LDN 4 64 4HHB ... LDN 5 0 4J32 ...XJL7 LDCH 0 JLPERIS+A1(1) 4JGL ... BZE 0 XJL6 [J IF NONE OF THIS TYPE 4K2= ... ADN 5 1 4KFW ...XJL6 BCHX 1 £ 4K^G ... BCT 4 XJL7 4LF6 ... BZE 5 XJL8A 4LYQ ... ADN 5 1 [ADD 1 FOR ITEM HEADER 4MDB ... ADX 5 ALOGLEN(3) 4MY2 ... ALTLEN 3,5 4NCL ... MHUNTW 3,FILE,FRB 4NX= ... LDEX 4 A1(3) [ORIGINAL SIZE 4PBW ... DEX 5 A1(3) 4PWG ... SBX 5 4 4QB6 ... ORX 5 XJLDATA(1) [ADD ITEM NUMBER FOR NEEDS 4QTQ ... SMO 4 4R*B ... STO 5 A1(3) 4RT2 ... LDX 1 3 4S#L ... LDN 6 64 4SS= ... LDN 5 0 4T?W ...XJL9 LDCH 0 JLPERIS+A1(1) 4TRG ... BZE 0 XJL8 [J IF NONE OF THIS TYPE 4W?6 ... SMO 4 4WQQ ... STO 0 A1+1(3) 4X=B ... SMO 4 4XQ2 ... DCH 5 A1+1(3) [STORE TYPE IN TOP 6 BITS 4Y9L ... ADN 4 1 4YP= ...XJL8 ADN 5 1 4^8W ... BCHX 1 £ 4^NG ... BCT 6 XJL9 5286 ...XJL8A LDN 4 JLPERIS+16+A1(3) 52MQ ... LDN 5 JLPERIS+A1(3) 537B ... LDEX 6 A1(3) 53M2 ... SMO 6 546L ... MOVE 4 512-JLPERIS-16 [MOVE BACK UP OVER FIXED NEEDS 54L= ... SBN 6 16 555W ... ALTLEN 3,6 55KG ... DEX 6 A1(3) 5656 ... LDN 0 16 56JQ ... SBS 0 ACOMMUNE1(2) 574B ... BRN XJL4 57J2 ...XJLDATA #00050000 583L ...XJL5 LDEX 4 A1(3) 58H= ... ADN 4 16 592W ... ALTLEN 3,4 59GG ... MHUNTW 3,FILE,FRB 5=26 ... DEX 4 A1(3) 5=FQ ... SBN 4 JLPERIS+16 5=^B ...XJL10 SMO 4 5?F2 ... LDX 0 A1-1+JLPERIS(3) 5?YL ... SMO 4 5#D= ... STO 0 A1-1+JLPERIS+16(3) 5#XW ... BCT 4 XJL10 [CREATE 16 WORD HOLE FOR FIXED NEEDS 5*CG ... LDN 0 16 5*X6 ... ADS 0 ACOMMUNE1(2) 5BBQ ... STOZ A1+JLPERIS(3) 5BWB ... LDN 4 A1+JLPERIS(3) 5CB2 ... LDN 5 A1+JLPERIS+1(3) 5CTL ... MOVE 4 15 [ZEROISE THE HOLE 5D*= ... SMO ACOMMUNE1(2) 5DSW ... LDX 4 A1(3) 5F#G ... BZE 4 XJL4 [ALL FINISHED IF NO VARIABLE ITEMS 5FS6 ... SMO ACOMMUNE1(2) 5G?Q ... LDN 4 JLRESTF-JLRESTPTR 5GRB ...XJL13 SMO 4 5H?2 ... LDX 5 A1(3) 5HQL ... LDX 6 5 5J== ... ANDX 6 HALFTOP 5JPW ... ERX 5 6 5K9G ... BXE 6 XJLDATA(1),XJL12 [J IF THIS IS NEEDS ITEM 5KP6 ... ADX 4 5 5L8Q ... BXL 4 ALOGLEN(3),XJL13 [LOOK AT NEXT ITM IF THEREIS ONE 5LNB ... BRN XJL4 5M82 ...XJL12 SBN 5 1 5MML ... BZE 5 XJL14 [J IF EMPTY ITEM 5N7= ... LDX 1 3 5NLW ...XJL15 SMO 4 5P6G ... LDCH 2 A1+1(1) 5PL6 ... SMO 4 5Q5Q ... LDX 0 A1+1(1) 5QKB ... ANDN 0 #77 5R52 ... SRC 2 2 5RJL ... SMO 3 5S4= ... DCH 0 A1+JLPERIS(2) 5SHW ... ADN 1 1 5T3G ... BCT 5 XJL15 5TH6 ...XJL14 LDX 5 4 [NOW REMOVE NEEDS ITEM 5W2Q ... SMO 5 5WGB ... LDX 4 A1(3) 5X22 ... ANDN 4 #7777 5XFL ... ADX 4 5 5X^= ... LDX 1 ALOGLEN(3) 5YDW ... SBX 1 4 [NUMBER OF WORDS TO MOVE 5YYG ... BZE 1 XJL4B 5^D6 ... ADN 4 A1(3) 5^XQ ... ADN 5 A1(3) 62CB ... MOVE 4 0(1) 62X2 ...XJL4B ADX 5 ALOGLEN(3) 63BL ... SBX 5 4 63W= ... ALTLEN 3,5 64*W ... DEX 5 A1(3) 64TG ...XJL4 LDEX 6 7 65*6 ... BZE 6 XJL16 [J IF SAME FACS 65SQ ... SLL 7 3 66#B ... BNG 7 XJL17 [J IFTO BE SHORTENED 66S2 ... LDX 4 ALOGLEN(3) 67?L ... ADX 4 6 67R= ... ADS 6 ACOMMUNE1(2) 68=W ... ALTLEN 3,4 68QG ... MHUNTW 3,FILE,FRB 69=6 ... DEX 4 A1(3) 69PQ ... LDX 5 4 6=9B ... SBX 5 6 6=P2 ... LDX 6 ALOGLEN(3) 6?8L ... SBN 6 JLSTAT 6?N= ... SBX 6 JOBDATASIZE 6#7W ...XJL18 SMO 5 6#MG ... LDX 0 A1-1(3) 6*76 ... SMO 4 6*LQ ... STO 0 A1-1(3) 6B6B ... SBN 4 1 6BL2 ... SBN 5 1 6C5L ... BCT 6 XJL18 6CK= ... SBX 4 5 6D4W ... SMO 5 6DJG ... STOZ A1(3) 6F46 ... SBN 4 1 6FHQ ... BZE 4 XJL16 6G3B ... ADN 5 A1(3) 6GH2 ... LDX 6 5 6H2L ... ADN 6 1 6HG= ... SMO 4 6H^W ... MOVE 5 0 6JFG ... BRN XJL16 6J^6 ...XJL17 LDN 5 JLSTAT+A1(3) 6KDQ ... ADX 5 JOBDATASIZE 6KYB ... LDX 4 5 6LD2 ... ADX 4 6 6LXL ... SBS 6 ACOMMUNE1(2) 6MC= ... LDX 1 ALOGLEN(3) 6MWW ... ADN 1 A1(3) 6NBG ... SBX 1 4 6NW6 ... MOVE 4 0(1) [CLOSE UP FAC TAB 6P*Q ... LDX 4 ALOGLEN(3) 6PTB ... SBX 4 6 6Q*2 ... ALTLEN 3,4 6QSL ... DEX 4 A1(3) 6R#= ...XJL16 LDX 1 ACOMMUNE1(2) 6RRW ... LDN 4 JLRESTF-JLRESTPTR(1) 6S?G ... LDN 5 0 6SR6 ... BXE 4 ALOGLEN(3),XJL19 6T=Q ... LDX 5 4 6TQB ...XJL19 6W=2 ... SMO 1 6WPL ... STO 5 A1(3) 6X9= ... UP 6XNW ...# 6Y8G ...#END ^^^^ ...076133460006