{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: OLPODD865)}}
====== OLPODD865 ======
(George Source)
**Macros used:** [[george:macro:BXGE|BXGE]], [[george:macro:BXL|BXL]], [[george:macro:CAPCA|CAPCA]], [[george:macro:FCAPCA|FCAPCA]], [[george:macro:ILLEGALX|ILLEGALX]], [[george:macro:LINK|LINK]], [[george:macro:LONGOFF|LONGOFF]], [[george:macro:LONGSTOP|LONGSTOP]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:PROGBRKIN|PROGBRKIN]], [[george:macro:RUNPROG|RUNPROG]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:STEPBAC1|STEPBAC1]], [[george:macro:STEPBACK|STEPBACK]], [[george:macro:TESTRPN2|TESTRPN2]], [[george:macro:TOPCA1|TOPCA1]], [[george:macro:UNPLUG|UNPLUG]]
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