{{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]]
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 RECORD599-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