Show pageBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. {{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: CROBJ6)}} ====== CROBJ6 ====== (George Source) **Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:ALTLEN|ALTLEN]], [[george:macro:BACKSPACE|BACKSPACE]], [[george:macro:BXGE|BXGE]], [[george:macro:BXL|BXL]], [[george:macro:CHECKA|CHECKA]], [[george:macro:COMPQU|COMPQU]], [[george:macro:FADDRESS|FADDRESS]], [[george:macro:FDRMTEST|FDRMTEST]], [[george:macro:FILL|FILL]], [[george:macro:FINMOVE|FINMOVE]], [[george:macro:FOUTMOVE|FOUTMOVE]], [[george:macro:HUNT|HUNT]], [[george:macro:INMOP|INMOP]], [[george:macro:LOCKCA|LOCKCA]], [[george:macro:MASK|MASK]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:NAMETOP|NAMETOP]], [[george:macro:OLPEND|OLPEND]], [[george:macro:PAIR|PAIR]], [[george:macro:PMODES|PMODES]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETUPCORE|SETUPCORE]], [[george:macro:STEP|STEP]], [[george:macro:STEPAGAIN|STEPAGAIN]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:TOPCA|TOPCA]], [[george:macro:TOPCA1|TOPCA1]], [[george:macro:TRACE|TRACE]], [[george:macro:WHICHMOP|WHICHMOP]] <code - CROBJ6.txt>22FL #OPT K0CROBJ=K0OLP 22^= #OPT K6CROBJ=K6OLP 23DW #LIS K0CROBJ 23YG #SEG CROBJ6 [LADISLAV KUTILEK 24D6 8HCROBJ 24XQ SEGENTRY K1CROBJ,Z1CROBJ 25CB # THIS SEGMENT PROCESSES OFFLINE *CR PERIS 25X2 MCOUNT +2001 26BL MASK #777777 26W= PLINK1 27*W PAIR CROBJ,1 27TG Z1CROBJ 28*6 LDX 3 APETADDR(2) 28SQ LOCKCA 3,ACAP(2),1 29#B LDX 4 0(1) 29S2 LDX 1 FX1 2=?L ANDN 4 #7735 [MODE 2 OR ADDITIVE MODE #40 (INHIBIT 2=R= BZE 4 MOK [NORMAL TRANSLAT 2?=W ANDN 4 #7677 [ADDITIVE MODE #100 2?QG BNZ 4 MOLE [ILLEGAL MODE 2#=6 LDCT 4 #100 2#PQ ORS 4 ALTMARK(2) [SET B2 IF ADDITIVE MODE #100 2*9B MOK 2*P2 LDN 4 4 2B8L LDX 6 ACAP(2) 2BN= LDN 7 ACA1(2) 2C7W FOUTMOVE 3,6,7,4,HLOCK1 [MOVE CA TO AOLPT 2CMG LDX 0 AWORK4(2) 2D76 BNG 0 NORE15 [ALREDY READ EOF 2DLQ LDX 4 ACA3(2) 2F6B BZE 4 WX1 [J IF COUNT ZERO 2FL2 BXGE 4 MCOUNT(1),WX1 [TOO BIG OR -VE 2G5L ADN 4 3 [ROUND UP WORD COUNT 2GK= SRL 4 2 2H4W LDCT 5 #600 2HJG ANDX 5 ACA4(2) 2J46 BNZ 5 WA [J IF ADDRESS NOT CHAR ZERO 2JHQ PMODES 1,3 2K3B LDX 5 ACA4(2) 2KH2 ANDN 1 #10 2L2L BNZ 1 MOKA [J IF 22AM 2LG= ANDX 5 BSP16 [ELSE TAKE 15BIT ADDRESS 2L^W MOKA 2MFG #SKI G4 2M^6 LDN 7 CHWRITE [CHECK PERMISSION IN G4 2NDQ CHECKA 5,4,RV1,3,7,MOKB,HLOCK2 2NYB MOKB 2PD2 INMOP K1CROBJ,MOPMF [READ FROM MOP/MF 2PXL STEP 2QC= TESTREP2 STEPWAIT,WAIT 2QWW BZE 3 WAIT2 [END OF FILE 2RBG LDEX 6 FRH(3) [N/W 2RW6 LDX 7 FSCTM(2) 2S*Q ANDN 7 #7777 [MODE 2STB BZE 7 NOTR [J IF CP,CR,LP FILE 2T*2 LDN 0 #10 2TSL ANDX 0 7 2W#= BNZ 0 NOTR [J IF GRAPHIC MODE 2WRW LDX 0 6 2X?G SBN 0 2 [X0=N/W IN RECORD 2XR6 BZE 0 NOTR [J IF EMPTY RECORD 2Y=Q HUNT 2,ADATA,ACONV 2YQB BPZ 2 PRESB [J IF PRESENT 2^=2 SETUPCORE 6,2,ADATA,ACONV 2^PL BRN OKLEN 329= PRESB BXL 6 ALOGLEN(2),OKBL [J IF LENGTH IS OK 32NW LDX 3 2 338G ALTLEN 3,6 33N6 OKLEN STEPAGAIN [RELOCATE RECORD 347Q MHUNT 2,ADATA,ACONV 34MB OKBL ADN 2 A1 [X2=PTR TO BUFFER 3572 LDX 1 3 [PTR TO RECORD 35LL SMO 6 366= MOVE 1 0 [MOVE RECORD TO BUFFER 36KW MOP LDN 2 #10 [GRAPHIC 375G TRANSFOR 7,2 37K6 TESTREP2 ILLMODE,MOLE [J IF ILLEGAL MODE 384Q MHUNT 3,ADATA,ACONV 38JB ADN 3 A1 [X3=PTR TO RECORD 3942 LDX 6 FRH(3) [N/W 39HL NOTR 3=3= SBN 6 2 [RED TAPE 3=GW BXGE 4 6,NUFF [J IF RECORD<COUNT 3?2G LDX 6 4 [LENGTH TO MOVE 3?G6 NUFF LDX 7 4 [KEEP COUNT 3?^Q LDX 4 5 3#FB LDX 1 APETADDR(2) 3#^2 BZE 6 NONE [NO DATA 3*DL ADN 3 FRH+2 3*Y= FINMOVE 1,4,3,6,HLOCK2 3BCW # X5=ADDRESS,X6=LENGTH OF TRANSFER,X7=COUNT 3BXG NONE 3CC6 WHICHMOP NOMF [J IF NOT MOP/MF 3CWQ MFREE ADATA,ACONV 3DBB LDX 1 APETADDR(2) 3DW2 NOMF 3F*L BXGE 6 7,NFILL 3FT= SBX 7 6 3G#W #SKI K6CROBJ>599-599 3GSG TRACE 7,SPACEFIL 3H#6 LDX 3 5 3HRQ ADX 3 6 3J?B LDX 4 ACES 3JR2 FILL 1,3,4,7,HLOCK2 3K=L NFILL ADX 5 6 3KQ= SMO FX1 3L9W ANDX 5 MASK [REDUCE REPLY TO 18 BITS 3LPG REP 3M96 LDX 3 ACAP(2) 3MNQ ADN 3 1 3N8B FADDRESS 1,3,HLOCK1 3NN2 STO 5 0(3) 3P7L OLPEND 3PM= BRN K1CROBJ 3Q6W # 3QLG # 3R66 MOPMF MHUNT 3,FILE,FRB [RECORD 3RKQ NAMETOP 3,ADATA,ACONV 3S5B ADN 3 A1 3SK2 LDX 6 FRH(3) [N/W 3T4L LDX 0 FRH+1(3) 3TJ= ANDN 0 #7700 [MODE CHAR 3W3W BZE 0 NOTR [J IF GRAPHIC 3WHG LDN 7 6 [NORMAL,PREVIOUS 3X36 BRN MOP [J TO CONVERT TO GRAPHIC 3XGQ RV1 3Y2B LDN 3 FYNOBUF 3YG2 XILL CALL 5 TOPCA 3Y^L ACROSS OLPODD,4 [FOR ILLEGAL 3^F= WX1 3^YW LDN 3 FYCOUNT 42DG BRN XILL 42Y6 NORE COMPQU NORE1 43CQ BRN K1CROBJ 43XB LDX 0 GSIGN 44C2 ORS 0 AWORK4(2) [SET EOF MARK 44WL BRN NORE15 45B= NORE1 45TW BACKSPACE 46*G NORE15 46T6 LDX 0 ACA1(2) 47#Q SRL 0 3 47SB ANDN 0 #7773 48#2 SBN 0 #3000 48RL BNZ 0 NORE2 [J IF NOT MODE #30000 49?= LDCT 5 #50 [SET B3 & 5 IN REPLY 49QW LDX 1 APETADDR(2) 4==G BRN REP 4=Q6 NORE2 4?9Q LDN 3 FYFILE 4?PB LDX 4 FTYPNO(2) 4#92 BRN XILL 4#NL MOLE 4*8= LDN 3 FYMODE 4*MW BRN XILL 4B7G WA 4BM6 LDN 3 FYCHAR 4C6Q BRN XILL 4CLB WAIT 4D62 LDN 3 1 4DKL WAIT2 4F5= FDRMTEST STEPWAIT,NSM 4FJW LDCT 5 #420 4G4G BNZ 3 WAIT3 4GJ6 LDCT 5 #410 [REJECTED INOPERABLE 4H3Q BACKSPACE 4HHB WAIT3 4J32 LDX 1 APETADDR(2) 4JGL BRN REP 4K2= NSM 4KFW BZE 3 NORE [J IF NO RECORDS 4K^G CALL 5 TOPCA 4LF6 ACROSS OLPODD,1 4LYQ TOPCA 4MDB LDX 1 FX1 4MY2 TOPCA1 PLINK1(1) 4NCL EXIT 5 0 4NX= MENDAREA AOLPGAP,K99CROBJ 4PBW #END ^^^^ ...01661450000200000000 </code> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In