OLPODD865
(George Source)
Macros used: BXGE, BXL, CAPCA, FCAPCA, ILLEGALX, LINK, LONGOFF, LONGSTOP, MENDAREA, OUTPACK, PROGBRKIN, RUNPROG, SEG, SEGENTRY, STEPBAC1, STEPBACK, TESTRPN2, TOPCA1, UNPLUG
- OLPODD865.txt
22FL ... SEG OLPODD,6,FILE,OLP 22^= ... SEGENTRY K1OLPODD,Z1OLPODD [WAIT FOR COMMUNICATION FILE 23DW ... SEGENTRY K2OLPODD,Z2OLPODD [INCREASE AMBS BY 1 23YG ... SEGENTRY K3OLPODD,Z3OLPODD [INCREASE AMBS BY [X6] 24D6 ... SEGENTRY K4OLPODD,Z4OLPODD [ILLEGAL (NOT *DA) 24XQ ... SEGENTRY K5OLPODD,Z5OLPODD [ILLEGAL (*DA) 25CB ... SEGENTRY K7OLPODD,(GEOERR) [SPARE 25X2 ... SEGENTRY K8OLPODD,(GEOERR) [SPARE 26BL ... SEGENTRY K9OLPODD,(GEOERR) [SPARE 26W= ...[ 2NDQ [ MONITORING FILE ILLEGAL IDENTIFIERS USED BY OFFLINE PERI SEGMENTS 2NYB [ FIRST GROUP NEED PERINAME OUTPACKED 2P25 ...[ 2P3S ...[ EXERCISE GREAT CARE WHEN EDITING THIS SEGMENT TO AVOID DISTURBING 2P5H ...[ IDENTIFIER VALUES THUS NECESSITATING RECOMPILATION OF ALL OLP SEGMENTS 2P7= ...[ ********************************************************************** 2P8^ ...[ USE SPARE LOCATIONS TO AVOID THIS 2P=N ...[ ********************************* 2P#C ...[ 2PB6 ...TABLE 2PD2 FYFILE +JYFILE 2PXL FYOUTPUT +JYOUTPUT 2QC= FYOUTFULL +JYOUTFULL 2QH7 ... +JYILLINS [SPARE 2QM4 ... +JYILLINS [SPARE 2QQ^ ... +JYILLINS [SPARE 2QWW PARAM [THIS GROUP NEED NO PARAMETERS 2RBG FYCOUNT +JYCOUNT 2RW6 FYMODE +JYMODE 2S*Q FYMNOTREC +JYMNOTREC 2STB FYCHAR +JYCHAR 2T*2 FYNOBUF +JYNOBUF 2TSL FYNOCA +JYNOCA 2W#= FYINVCC +JYINVCC 2WRW FYEXQUOTA +JYEXQUOTA 2X?G FYALLOC +JYALLOC 2XR6 FYFILEAD +JYFILEAD 2Y=Q FYNOWRITE +JYNOWRITE 2YQB FYENDFILE +JYENDFILE 2^=2 FYMODER +JYMODER 2^PL FYBEGFILE +JYBEGFILE 2^TH ...FYILLMOD +JYILLMOD 2^^D ...FYILLAC +JYILLAC 325* ...FYDATAER +JYDATAER 325^ ...FYILLINS +JYILLINS 326? ...FYMODESEQ +JYMODESEQ 326K ...[ INSERT NEW IDENTIFIERS HERE IF NO PARAMETERS NEEDED 3279 ...[ *************************************************** 327T ...TABLEND 328F ... 329= 32NW PLINK 32PF ... LINK EDSTART,1 32Q4 ...[ 32QM ...[ 32R= ...[ ENTRY HERE IS FOR COMMUNICATIONS FILES NOT IN DRM 32RT ...[ THE OBJECT IS TO LONGWAIT FOR A RECORD TO BE APPENDED OR A BLOCK 32SD ...[ TO BE DELETED 32T3 ...[ 32TL ...Z1OLPODD 32W9 ... [IN APET 32WS ... STEPBAC1 ,2 [STEPBACK ONR 32XC ... UNPLUG 3,TIMUP [J TO TIMUP IF TIME UP OR PERIPHERAL 32Y2 ... CAPCA [CHARGE ACTIVITIES PCA_CPA 32YK ... LONGSTOP XBRK [LONGWAIT FOR RECORD 32^8 ...RUNPROG 32^R ... RUNPROG 332B ...[ 332^ ...XBACKBRK 333J ... STEPBACK [ONR 3347 ...PROGBRKIN 334Q ... PROGBRKIN 335* ...[ 335Y ...XBRK 336H ... LONGOFF 2 [CLEAN UP 3376 ... BRN PROGBRKIN 337P ...[ 338# ...TIMUP FCAPCA 2 [GET PTR TO CPAT 338X ... LONGOFF 2 [LEAVE CPAT IN CLEAN STATE 339G ... ACROSSVA ACOMMUNE1(2) [RETURN TO COMMAND LEVEL USING LINK L 33=5 ... [BY UNPLUG 3 33=N ... 33?? ...[ 33?W ...[ 33#F ...Z2OLPODD [ENTRY TO INCREASE AMBS BY 1 33*4 ... LDN 6 1 33*M ...Z3OLPODD [ENTRY TO INCREASE AMBS BY [X6] 33B= ... [DONT STEPBAC AS WE MAY WISH TO DO IL 33BT ... UNPLUG [ORDINARY UNPLUG - DOESNT MATTER IF I 33CD ... [DFESNT COME BACK 33D3 ... CAPCA [CHANGE TO CPAT 33DL ... INCREAMB XBACKBRK,6 33F9 ... TESTRPN2 OK,REFUSED 33FS ... STEPBACK [OK SO REPEAT PERI 33GC ... BRN RUNPROG 33H2 ...[ 33HK ...REFUSED 33J8 ... LDN 3 FYEXQUOTA 33JR ... BRN NOPARAM 33KB ... 33K^ ...[ 33LJ ...[ 33N6 Z5OLPODD [ENTRY FOR *DA ILLEGALS IN AOLPT 347Q TOPCA1 PLINK(1) [CHANGE TO APET & LEAVE CORRECT LINK 34MB Z4OLPODD [ENTRY IN PCA FOR ILLEGALS; [X4]-TYPE 3572 UNPLUG [[X3] - ILLEGAL IDENTIFIER IN OLPODD 358Y ... LDN 0 TABLE 35=W ... BXL 3 0,ODDITY [J IF FUNNY IDENTIFIER 35#S ... LDN 0 TABLEND 35BQ ... BXL 3 0,OK [J IF IDENTIFIER OK 35DN ...ODDITY 35GL ... LDN 3 FYILLINS [UNRECOGNISABLE IDENTIFIER 35JJ ...OK 35LL LDN 0 PARAM 366= BXGE 3 0,NOPARAM [J UNLESS OUTPACK NEEDED 36KW OUTPACK 4,1,PERINAME 375G NOPARAM 37K6 ADX 3 1 384Q LDX 3 0(3) 38JB ILLEGALX 3 3942 [ 39HL MENDAREA AOLPGAP,K99OLPODD 3=3= #END ^^^^ ...07221644000100000000