(George Source)
Macros used: ACROSS, BXGE, CHECKEXT, FADDRESS, FINMOVE, LOCKCA, MENDAREA, MONITOR, OLPFIN1, OPEN, PAIR, RELOFP, REPMON, SEGENTRY, TESTMON, TOPCA, TOPCA1, 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