************************************************** 1) DL1:[200,200]APL.ODL;1 20 .PSECT RSXTB0, RO, D, GBL *************** 2) DL1:[5,2]APL.ODL;1 20 .PSECT PATCH1, RO, I, GBL, OVR 21 .PSECT RSXTB0, RO, D, GBL ************************************************** 1) DL1:[200,200]APL.ODL;1 37 .ROOT BASE0,BASE1,BASE2 38 BASE0: .FCTR O1-*(O11,O12,O13,O14,O15,O16,O17,O18,O19) 39 O1: .FCTR O1A-O1B 40 O1A: .FCTR RT0-RT1-RT2-RT3-RT4-RT5-RT6-RT7 41 O1B: .FCTR RT8-RT9-RT10-RT11-RT12-RT13-RT14-APLDX6-DEF$0 42 RT0: .FCTR APLRX6/LB:ACOPY:APLEM:APLOP:APRINT:ARYSET:ASSIGN *************** 2) DL1:[5,2]APL.ODL;1 38 .ROOT BASE1-BASE0,BASE2 39 BASE0: .FCTR O1-O11-O13-O14-O16-O17-O18-O19-O15 40 O1: .FCTR O1A-O1B-PATCH1 41 O1A: .FCTR RT0-RT1-RT2-RT3-RT4-RT5-RT6-RT7 42 O1B: .FCTR RT8-RT9-RT10-RT11-RT12-RT13-RT14-RT15-APLDX6-DEF$0 43 RT0: .FCTR APLRX6/LB:ACOPY:APLEM:APLOP:APRINT:ARYSET:ASSIGN ************************************************** 1) DL1:[200,200]APL.ODL;1 50 RT8: .FCTR APLRX6/LB:KILL:LEX:LIST:MONAD:MONRT:NAMOUT 51 RT9: .FCTR APLRX6/LB:NBRTRU:NEWLIN:NUMBER:NUMOUT:NXTIND *************** 2) DL1:[5,2]APL.ODL;1 51 RT8: .FCTR APLRX6/LB:KILL:LEX:LIST:MONAD:MONRT:NAMOUT:SCAMEM 52 RT9: .FCTR APLRX6/LB:NBRTRU:NEWLIN:NUMBER:NUMOUT:NXTIND ************************************************** 1) DL1:[200,200]APL.ODL;1 56 RT14: .FCTR APLRX6/LB:WRITEB 57 ; *************** 2) DL1:[5,2]APL.ODL;1 57 RT14: .FCTR APLRX6/LB:WRITEB:LODFIL:LODOVR: 58 RT15: .FCTR LB:[1,1]SYSLIB/LB:LOAD 59 ;RT15: .FCTR LB:[1,1]SYSLIB/LB:AUTO 60 ; ************************************************** 1) DL1:[200,200]APL.ODL;1 61 O11: .FCTR APLRX6/LB:DECNAM:GETNAM-(O111,O112,O113) 62 O111: .FCTR LB:[1,1]SYSLIB.OLB/LB:.CSI1:.CSI2 63 O112: .FCTR LB:[1,1]SYSLIB.OLB/LB:PARSE:.ODCVT-(O1121,O1122) 64 O1121: .FCTR LB:[1,1]SYSLIB.OLB/LB:PARSFN:PARSDV 65 O1122: .FCTR LB:[1,1]SYSLIB.OLB/LB:PARSDI:DIRFND 66 O113: .FCTR LB:[1,1]SYSLIB.OLB/LB:DLFNB:UDIREC:MRKDL 67 O12: .FCTR LB:[1,1]SYSLIB.OLB/LB:OPFNB-(O121,O122,O123) 68 O121: .FCTR LB:[1,1]SYSLIB.OLB/LB:ASSLUN:RETADR:CONTRL 69 O122: .FCTR LB:[1,1]SYSLIB.OLB/LB:RDWAIT:WATSET 70 O123: .FCTR LB:[1,1]SYSLIB.OLB/LB:CREATE:DEL:DIRECT:MKDL 71 O13: .FCTR APLRX6/LB:DATA-(O131,O132,O133,O134) 72 O131: .FCTR APLRX6/LB:CPIARG 73 O132: .FCTR APLRX6/LB:CPOARG 74 O133: .FCTR APLRX6/LB:SAVOVR:LODOVR 75 O134: .FCTR APLRX6/LB:DATIME:RAD:WSPRT *************** 2) DL1:[5,2]APL.ODL;1 64 O11: .FCTR APLRX6/LB:DECNAM:GETNAM 65 ;O111: .FCTR LB:[1,1]SYSLIB.OLB/LB:.CSI1:.CSI2 66 ;O112: .FCTR LB:[1,1]SYSLIB.OLB/LB:PARSE:.ODCVT-O1121-O1122 67 ;O1121: .FCTR LB:[1,1]SYSLIB.OLB/LB:PARSFN:PARSDV 68 ;O1122: .FCTR LB:[1,1]SYSLIB.OLB/LB:PARSDI:DIRFND 69 ;O113: .FCTR LB:[1,1]SYSLIB.OLB/LB:DLFNB:UDIREC:MRKDL 70 ;O12: .FCTR LB:[1,1]SYSLIB.OLB/LB:OPFNB-O121-O122-O123 71 ;O121: .FCTR LB:[1,1]SYSLIB.OLB/LB:ASSLUN:RETADR:CONTRL 72 ;O122: .FCTR LB:[1,1]SYSLIB.OLB/LB:RDWAIT:WATSET 73 ;O123: .FCTR LB:[1,1]SYSLIB.OLB/LB:CREATE:DEL:DIRECT:MKDL 74 O13: .FCTR APLRX6/LB:DATA-O131-O132-O133-O134 75 O131: .FCTR APLRX6/LB:CPIARG 76 O132: .FCTR APLRX6/LB:CPOARG 77 O133: .FCTR APLRX6/LB:SAVOVR 78 O134: .FCTR APLRX6/LB:DATIME:RAD:WSPRT ************************************************** 1) DL1:[200,200]APL.ODL;1 79 O15B: .FCTR APLRX6/LB:ERRMSG-(O151,O152,O153,O154,O155,O156) 80 O151: .FCTR ERSEG0-APLTB0-APLTX0 *************** 2) DL1:[5,2]APL.ODL;1 82 O15B: .FCTR APLRX6/LB:ERRMSG-*(O151,O152,O153,O154,O155,O156) 83 O151: .FCTR ERSEG0-APLTB0-APLTX0 ************************************************** 1) DL1:[200,200]APL.ODL;1 88 O18: .FCTR (O18A,O18B,O18C,O18D,O18E,O18F) 89 O18A: .FCTR APLRX6/LB:APLO03:MONIBM 90 O18B: .FCTR APLRX6/LB:APLO04 91 O18C: .FCTR APLRX6/LB:APLO05:PUTFA:GETFA-(O18C1,O18C2) 92 O18C1: .FCTR LB:[1,1]SYSLIB.OLB/LB:PUTSQ 93 O18C2: .FCTR LB:[1,1]SYSLIB.OLB/LB:GETSQ 94 O18D: .FCTR APLRX6/LB:APLO06 95 O18E: .FCTR APLRX6/LB:APLO07:CMDNBR:NGET 96 O18F: .FCTR APLRX6/LB:APLO08:SQRT 97 O19: .FCTR O19A-O19B *************** 2) DL1:[5,2]APL.ODL;1 91 O18: .FCTR O18A-O18B-O18C-O18D-O18E-O18F 92 O18A: .FCTR APLRX6/LB:APLO03:MONIBM 93 O18B: .FCTR APLRX6/LB:APLO04 94 O18C: .FCTR APLRX6/LB:APLO05:PUTFA:GETFA 95 ;O18C1: .FCTR LB:[1,1]SYSLIB.OLB/LB:PUTSQ 96 ;O18C2: .FCTR LB:[1,1]SYSLIB.OLB/LB:GETSQ 97 O18D: .FCTR APLRX6/LB:APLO06 98 O18E: .FCTR APLRX6/LB:APLO07:CMDNBR:NGET 99 O18F: .FCTR APLRX6/LB:APLO08 100 O19: .FCTR O19A-O19B ************************************************** 1) DL1:[200,200]APL.ODL;1 104 BASE1: .FCTR APLRX6/LB:ROOT1-*(O20,O21,O22,O23,O24,O25,O26) 105 O20: .FCTR O20A-O20B *************** 2) DL1:[5,2]APL.ODL;1 107 BASE1: .FCTR APLRX6/LB:ROOT1-O20-O21-O22-O23-O24-O25-O26 108 O20: .FCTR O20A-O20B ************************************************** 1) DL1:[200,200]APL.ODL;1 108 O21: .FCTR APLRX6/LB:EXISTS:LODFIL:SAVFIL:STRTUP 109 O22: .FCTR APLRX6/LB:COPYC *************** 2) DL1:[5,2]APL.ODL;1 111 O21: .FCTR APLRX6/LB:EXISTS:SAVFIL:STRTUP 112 O22: .FCTR APLRX6/LB:COPYC ************************************************** 1) DL1:[200,200]APL.ODL;1 113 O26: .FCTR (O27,O28,O29A,O29B,O29C) 114 O27: .FCTR APLRX6/LB:TTYPE-LB:[1,1]SYSLIB.OLB/LB:FINIT 115 O28: .FCTR APLRX6/LB:LISTER 116 O29A: .FCTR APLRX6/LB:APLO09 117 O29B: .FCTR APLRX6/LB:APLO10:ENDL:SCAMEM 118 O29C: .FCTR APLRX6/LB:APLO11 *************** 2) DL1:[5,2]APL.ODL;1 116 O26: .FCTR O27-O28-O29A-O29B-O29C 117 O27: .FCTR APLRX6/LB:TTYPE 118 O28: .FCTR APLRX6/LB:LISTER 119 O29A: .FCTR APLRX6/LB:APLO09 120 O29B: .FCTR APLRX6/LB:APLO10:ENDL 121 O29C: .FCTR APLRX6/LB:APLO11 10 differences found APL.DIF/BL/FF/-CB=[200,200]APL.ODL,[5,2]APL.ODL