{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: DRSTART6)}}
====== DRSTART6 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:BXGE|BXGE]], [[george:macro:CHECKEXT|CHECKEXT]], [[george:macro:FADDRESS|FADDRESS]], [[george:macro:FINMOVE|FINMOVE]], [[george:macro:LOCKCA|LOCKCA]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MONITOR|MONITOR]], [[george:macro:OLPFIN1|OLPFIN1]], [[george:macro:OPEN|OPEN]], [[george:macro:PAIR|PAIR]], [[george:macro:RELOFP|RELOFP]], [[george:macro:REPMON|REPMON]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:TESTMON|TESTMON]], [[george:macro:TOPCA|TOPCA]], [[george:macro:TOPCA1|TOPCA1]], [[george:macro:TOPFCB2|TOPFCB2]]
22FL #OPT K0DRSTART=K0OLP
22^= #OPT K6DRSTART=K6OLP
23DW #LIS K0DRSTART
23YG #SEG DRSTART6 [7OPAE
24D6 8HDRSTART
24XQ SEGENTRY K1DRSTART,Z1DRSTART
25CB SEGENTRY K2DRSTART,Z2DRSTART
25X2 [
26BL # THIS SEGMENT IS ENTERED ON THE 1ST OFF-LINE *DR PERI & THEN IT GOES TO
26W= # DROBJ UNTIL AN ILLEGAL OR CLOSE PERI OCCURS
27*W PLINK1
27TG PAIR DRSTART,1
28*6 [
28SQ Z1DRSTART [ENTRY FOR 1ST PERI
29#B [
29S2 LDX 3 APETADDR(2)
2=?L LOCKCA 3,ACAP(2),1
2=R= LDX 4 0(1) [TYPE/MODE
2?=W STO 4 ACA1(2)
2?QG ANDN 4 #7777
2#=6 BZE 4 TRAN [J IF MODE 0 (READ)
2#PQ SBN 4 1
2*9B BNZ 4 OPEN [J IF NOT MODE 1 (WRITE)
2*P2 TRAN
2B8L ACROSS DROBJ,2 [TO DO TRANSFER
2BN= OPEN
2C7W [
2CMG Z2DRSTART [ENTRY FROM DROBJ
2D76 [
2DLQ LDX 4 ACA1(2)
2F6B ANDN 4 #3777
2FL2 LDX 0 ALTMARK(2)
2G5L LDN 7 0 [X7=0 -> NO'MAYBE'QUALIFIER
2GK= SBN 4 #100
2H4W BZE 4 MOKA [J IF OVERLAY
2HJG SBN 4 #100
2J46 BZE 4 MOKA [J IF INPUT
2JHQ ADN 7 1
2K3B SBN 4 #200
2KH2 BZE 4 MOKA [J IF OUTPUT
2L2L SBN 4 #200
2LG= BNZ 4 MOLE [J IF NOT SCRATCH
2L^W MOKA
2MFG BNG 0 MOLO
2M^6 LDN 4 6
2NDQ CHECKEXT ACAP(2),4,RV1,APETADDR(2),,OKCA,HLOCK1
2NYB OKCA
2PD2 LDX 3 APETADDR(2)
2PXL TOPFCB2 1
2QC= LDX 6 FSIZE(1)
2QWW SLL 6 GSBSLOG
2RBG BZE 7 NMAYB ['MAYBE' NOT VALID
2RW6 LDX 0 ABITS(2)
2S*Q BZE 0 NMAYB ['MAYBE' NOT GIVEN
2STB LDX 2 ACAP(2)
2T*2 ADN 2 5 [SIZE WORD IN CA
2TSL FADDRESS 3,2,HLOCK1
2W#= BXGE 6 0(2),NMAYA [JIF FILE BIG ENUFF
2WRW ORX 6 GSIGN [SET B0
2X?G LDX 2 FX2
2XR6 LDX 1 ACAP(2)
2Y=Q ADN 1 1 [REPLY WORD
2YQB FADDRESS 3,1,HLOCK1
2^=2 STO 6 0(1) [SET REPLY
2^PL OLPF
329= OLPFIN1
32NW BRN K1DRSTART
338G NMAYA LDX 2 FX2
33N6 NMAYB
347Q STO 6 ACA6(2) [REPLY DATA
34MB STOZ ACA2(2) [REPLY WORD
3572 LDN 5 FLOC1(1)
35LL LDN 6 ACA3(2)
366= MOVE 5 3 [FILENAME
36KW LDN 5 ACA1(2)
375G LDX 6 ACAP(2)
37K6 LDN 7 6
384Q FINMOVE 3,6,5,7,HLOCK1 [MOVE IN REPLIES
38JB LDX 0 GSIGN
3942 ORS 0 ALTMARK(2) [SET OPEN MARKER
39HL BRN OLPF
3=3= MOLE
3=GW SBN 4 #200
3?2G BZE 4 REL [J IF #1000
3?G6 SBN 4 #400
3?^Q BNZ 4 NOTREC [JIF NOT #1400
3#FB REL
3#^2 LDN 5 BBCLOSE
3*DL TESTMON APETADDR(2),5,FTYPNO(2),MONITOR
3*Y= RELOFP FTYPNO(2)
3BCW NOTREC
3BXG LDN 3 FYMNOTREC
3CC6 XILL
3CWQ CALL 4 TOPCA
3DBB ACROSS OLPODD,4
3DW2 MOLO
3F*L LDN 3 FYALLOC
3FT= BRN XILL
3G#W RV1
3GSG LDN 3 FYNOCA
3H#6 BRN XILL
3HRQ MONITOR
3J?B LDX 6 FTYPNO(2)
3JR2 LDX 7 ACAP(2)
3K=L CALL 4 TOPCA
3KQ= REPMON 1
3L9W TOPCA [CHANGE TO PCA LEAVING LINK TO K1DRST
3LPG LDX 1 FX1
3M96 TOPCA1 PLINK1(1)
3MNQ EXIT 4 0
3N8B [
3NN2 MENDAREA AOLPGAP,K99DRSTART
3P7L #END
^^^^ ...25570171000100000000