13 229S ... SEG INMOP,867,SECT.FILE,,G505 7 22FL #OPT K0INMOP=0 16 22_= #LIS K0INMOP>K0OBJPROG>K0PERIS>K0ALLGEO>K0GREATGEO 4 2375 ...[ 15 23#Y ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 13 23GR ...[ THIS EXCLUDES CODE UNDER #SKI G505 4 23NL ...[ 7 23WF ...#OPT G505 = 0 6 244# ...#SKI G505&1 19 24=7 ...# WITH UGUG EDIT M505 (3-SHIFT WORKING FOR MOP ONLINE PROGRAMS) 10 24D6 SEGENTRY K1INMOP,XIN1 10 24XQ SEGENTRY K2INMOP,XIN2 10 25CB SEGENTRY K3INMOP,XIN3 4 25X2 # 21 26BL # THIS SEGMENT DEALS WITH THE MACRO INMOP. IT GETS THE INFO. INTO 21 26W= # A UNIVERSAL BLOCK READY FOR INPUTTING INTO THE OBJECT PROGRAM. IT 20 27*W # DEALS ONLY WITH INPUT FROM MOP JOBS OR IMBEDDED DATA IN JDF'S. 4 27TG # 6 282N ...#SKI G505&1 17 287W ...XCCS2 #27060000 [ CURSOR/SHIFT BITS 9 28*6 XSPACE #202020 9 28SQ MASK #30000000 10 29#B XCAT CATMASK ONLINE,OBJECT 4 29S2 XIN1 6 2=?L UNPLUG 5 2=R= #SKI G4 18 2?=W CAPCAX [CHANGE FROM PCA TO CPA. 5 2?QG #SKI G3 18 2#=6 CAPCA [CHANGE FROM PCA TO CPA. 20 2#PQ LDXC 5 5 [PERI TYPE/UNIT NO WITH B0 SET 7 2*9B BCS / 6 2*?# ...#SKI G505&1 4 2**= ...( 7 2*C8 ... LDX 0 6 10 2*F6 ... LDX 4 CPATUWORD(2) 9 2*H4 ... ANDX 0 XCCS2(1) 19 2*K2 ... ORS 0 CPATUWORD(2) [ SET REQ'D BITS FOR CHANG 4 2*LY ...) 18 2*P2 STO 7 AWORK1(2) [AWK1=ACT.NO. OF AOLPT. 21 2B8L STO 6 AWORK4(2) [AWK4=IDENTIFY OR NOT N/L SUP.OR NOT 19 2BN= LDX 7 CONTEXT(2) [LD. THE CONTEXT OF THE DATA 7 2C7W SRC 7 3 18 2CMG BNG 7 XJDF [J. IF A JOB DESCRIPTION. 7 2D76 SRC 7 1 17 2DLQ BNG 7 XMOP [J. IF MOP CONSOLE 10 2F6B GEOERR 1,NJDF MOP 4 2FL2 XMOP 7 2G5L LDX 0 6 7 2GK= SLL 0 2 20 2H4W BPZ 0 XMOPA [J. IF NO NEWLINE SUPPRESSION. 17 2HJG SUPNLIN [SPECIAL CR MACRO. 5 2J46 XMOPA 18 2JHQ BPZ 6 XNUL [J. NO IDENTIFY REQUIRED 18 2K3B OUTPACK 5,1,PERINAME [PERI TYPE AND UNIT NO 5 2KH2 XREDY 17 2L2L READY ZBREAK [J. TO ZBREAK IN CASE 6 2L7S ...#SKI G505&1 21 2L*2 ... STO 4 CPATUWORD(2) [CLEAR SHIFT FLAG FOR MONOUTS ETC. 4 2LG= XOUT 11 2L_W PCAPLUG ZBREAK,FILE,FRB 21 2MFG FINDACTNO 3,AWORK1(2) [HUNT FOR THE AOLPT GIVEN THE ACNUM. 10 2M_6 INCHECK HLOCK1,MGEO,3 10 2NDQ INCHECK HLOCK2,MGEO,3 8 2NYB CLEAR 2,2 10 2PD2 MHUNTW 1,FILE,FRB 8 2PXL CHAIN 1,3 7 2QC= LDX 2 3 7 2QWW LDN 0 1 15 2RBG ADJUSTLK 2 [RE-SET LINKS 15 2RW6 FPUT [EXIT BACK 14 2S*Q LINKSET 2,GVFN [SET LINK 6 2STB COOR1X 10 2T*2 MGEO GEOERR 1,HLOCKERR 20 2TSL XNUL OUTNULL [OUTNULL BECAUSE OF _ FOR READY. 8 2W#= BRN XREDY 5 2WRW XFIDL 15 2X?G SBX 6 FX1 [X6=LINK WD. 16 2XR6 XJ HUNT2 2,CPB,CALAS [THIS SUBROUTINE 10 2Y=Q LDEX 4 CPBCPLEV(2) 8 2YQB BNZ 4 XJ 9 2_=2 LDX 0 CPBFSD(2) 8 2_PL BPZ 0 XER 8 329= SMO FX1 8 32NW ANDX 0 MASK 8 338G BNZ 0 XLEV 5 33N6 #SKI G4 7 347Q CLEARPE 8 34MB XER ILLEGAL NOJS 7 3572 XLEV ADN 4 1 10 35LL HUNT2B 2,CPB,CALAS 10 366= LDEX 0 CPBCPLEV(2) 18 36KW BXE 0 4,OKLEV [J. IF LEVELS THE SAME. 10 375G GEOERR 1,WRONGLEV 9 37K6 OKLEV LDX 3 CPBFSD(2) 8 384Q ANDN 3 #77 7 38JB NGX 3 3 8 3942 ADX 6 FX1 17 39HL EXIT 6 0 [EXIT FROM THE FIDDLE 21 3=3= XJDF [ROUTINE TO DEAL WITH INPUT IN THE JD 16 3=GW STO 5 AWORK2(2) [ST. IDENTIFIER 20 3?2G CALL 6 XFIDL [CALL SUBROUTINE TO HUNT FILE LEV 20 3?G6 ADDREC 2,5 [INCREASE NO. OF REC.READ BY ONE. 8 3?_Q READ 0(3) 19 3#FB MHUNTW 1,FILE,FRB [HUNT BLK. CONTAINING DATA 8 3#_2 LDX 0 A1(1) 8 3*DL BNZ 0 XOUT 5 3*Y= XFEND 21 3BCW CALL 6 XFIDL [CALL SUBROUTINE TO GET FILE DEPTH 21 3BXG SUBREC 2,5 [DECREASE CT. OF NO. OF RECORDS READ 18 3CC6 BACKSPACE 0(3) [BACKSPACE THE FILE PTR. 8 3CF4 LDCT 6 #377 18 3CH2 ANDX 6 AWORK2(2) [PICK UP PERIPHERAL TYPE. 8 3CJY SRL 6 15 8 3CLW SBN 6 #62 21 3CNS BZE 6 XOUT [J IF FILE READER OR FILEHANDLER SO 21 3CQQ SBN 6 2 [THAT FHOBJ CAN GIVE APPROPRIATE END 21 3CSN BZE 6 XOUT [OF FILE REPLY INSTEAD OF ILLEGAL. 20 3CWQ LDX 6 AWORK2(2) [LD. INDICAT_ FOR IDENTIFY OR NOT 5 3DBB #SKI G4 7 3DW2 CLEARPE 18 3F*L OUTPACK 6,1,PERINAME [PERI TYPE AND UNIT NO 19 3FT= ILLEGAL FILE [ILLEGAL READ OFF END OF JDF. 5 3G#W ZBREAK 6 3GG4 ...#SKI G505&1 10 3GM= ... STO 4 CPATUWORD(2) 5 3GSG #SKI G4 7 3H#6 CLEARPE 18 3HRQ STEPBACK [STEP BACK THE OBJ.PROG. 7 3J?B PROGBRKIN 6 3J*K ...#SKI G505&1 4 3JCS ...( 19 3JG3 ...# THE ACTION OF THE OUTMOP MACRO HAS BEEN MODIFIED SO THAT 19 3JJ= ...# SHIFT SETTINGS OF THE DEVICE AND PERI ARE REMEMBERED IN X7. 18 3JLF ...# THESE ARE TRANSFERRED TO THE CPAT FOR USE BY IPBMOP.. 4 3JNN ...) 15 3JR2 # THIS ENTRY POINT DEALS WITH OUTMOP MACRO. 4 3K=L XIN2 10 3KQ= LDX 1 APETADDR(2) 17 3L9W LDX 3 ACAP(2) [CONTROL AREA POINTER 7 3LPG ADN 3 1 10 3M96 FADDRESS 1,3,HLOCK1 16 3MNQ STOZ 0(3) [CLEAR REPLY WORD 20 3N8B LDX 0 IDENTIND(2) [LD. IDENTIFIER OR NOT INDICATOR. 6 3N#? ...#SKI G505&1 8 3ND8 ... BPZ 0 ONOID 7 3NJ5 ...#SKI G505&1$1 17 3NN2 BZE 0 ONOID [J. NO IDENTIFIERS 18 3P7L LDXC 5 IDENTINFO(2) [TYPE/UNIT NO WITH B0 SET 7 3PM= BCS / 19 3Q6W PERTYPNO 5 [CONVERT TO CORRECT FORMAT 10 3QLG LDX 5 ACOMMUNE9(2) 17 3R66 MHUNTW 3,FILE,FRB [HUNT FOR DATA BLOCK 21 3RKQ LDX 7 A1(3) [LD. NO. OF WDS. IN DATA + REC.HEADER 7 3S5B ADN 7 2 10 3SK2 SETUPCORE 7,1,FILE,FRB 16 3T4L HUNT2 3,FILE,FRB,1 [HUNT FOR OUTPUT 7 3TJ= LDX 6 1 8 3W3W LDN 4 #32 8 3WHG SLL 45 18 18 3X36 STO 4 A1+2(1) [ST. IDENTIFY INTO BLOCK. 9 3XGQ STO 5 A1+3(1) 9 3Y2B LDN 5 A1+3(1) 18 3YG2 BCHX 5 / [LD. POSITIONS FOR MOVE 9 3Y_L LDN 4 A1+2(3) 7 3_F= SBN 7 4 8 3_YW LDCT 0 #600 9 42DG ANDX 0 A1+1(3) 8 42Y6 BZE 0 OZ2 19 43CQ SBN 7 1 [CALC. NO. OF CHARS. TO MOVE 7 43XB OZ2 SLC 70 2 9 44C2 LDX 0 A1+1(2) 9 44WL ANDX 0 BITS22LS 9 45B= STO 0 A1+1(1) 7 45TW LDEX 0 7 7 46*G SRL 7 9 8 46T6 BZE 0 OZ3 7 47#Q SMO 0 18 47SB MVCH 4 0 [MOVE DATA INTO NEW BLOCK 8 48#2 OZ3 BZE 7 OZ5 20 48RL OZ4 MVCH 4 512 [MOVE DATA IF GREATER THAN 512 8 49?= BCT 7 OZ4 15 49QW OZ5 FREECORE 3 [FREE OLD BLK 7 4==G LDX 3 6 7 4=Q6 LDX 1 5 16 4?9Q SBN 5 A1(3) [CALC LAST WD. 7 4?PB LDN 6 0 7 4#92 SLC 56 2 7 4#NL SRL 5 2 8 4*8= BZE 6 OZ6 7 4*MW SRC 6 2 9 4B7G ORS 6 A1+1(3) 7 4BM6 ADN 5 1 8 4C6Q LDN 0 #20 17 4CLB OZ7 DCH 0 0(1) [SPACEFIL LAST WD. 7 4D62 BCHX 1 / 10 4DKL BXGE 1 BITS22LS,OZ7 8 4F5= OZ6 LDX 1 FX1 8 4FJW STO 5 A1(3) 5 4G4G ONOID 10 4GJ6 FJOPCA 1,APETADDR(2) 18 4H3Q SPRIVTEST JSSTART,1,OMON [J. IF NOT SYSTEM STARTED 8 4HHB BRN OMOP 21 4J32 OMON FCAPCA 3,APETADDR(2) [FIND PTR. TO CPA GIVEN PTR. TO PCA 8 4JGL LDX 1 FX1 19 4K2= WHERETO 3,XCAT(1),OMOP [OUTPUT TO MOP IS REQUIRED 21 4KFW [OUTPUT TO MONITORING FILE IS REQUIRE 9 4K_G LDX 0 XCAT(1) 17 4LF6 STO 0 AWORK2(2) [ST. CATAGORY WORD. 21 4LYQ MHUNTW 1,FILE,FRB [HUNT FOR THE BLK. CONTAINING DATA. 18 4MDB LDX 0 A1(1) [LD. CT. OF NO. OF WDS. 9 4MY2 STO 0 AWORK1(2) 20 4NCL OLMF AWORK1(2),AWORK2(2),OFULL [FIND ROOM IN MON FILE 19 4NX= MHUNTW 1,FILE,FRB [X3=PTR. TO AREA IN MON.FILE. 17 4PBW LDX 5 AWORK1(2) [LD. COUNT OF WDS. 9 4PWG LDN 2 CPDATA 18 4QB6 ADX 2 1 [DATA FROM WHICH TO MOVE. 7 4QTQ SBN 5 2 16 4R*B BZE 5 ODAT [NO DATA SO J. 7 4RT2 SMO 5 18 4S#L MOVE 2 0 [MOVE DATA TO MON.FILE. 16 4SS= ODAT OLMFA [CHECK REPLY WD. 18 4T?W OFULL MFREE FILE,FRB [FREE BLK HOLDING DATA 18 4TRG UP [EXIT BACK TO THE MACRO. 7 4W?6 OMOP UPPLUS 1 6 4W** ...#SKI G505&1 4 4WCJ ...( 4 4WFR ...# 20 4WJ2 ...TMASK #07070000 [ SHIFT INDICATORS FROM IDENTIND 21 4WL9 ...# [ THIS IS RE-ENTRY POINT FROM OUTMOP 4 4WND ...) 4 4WQQ XIN3 6 4X=B UNPLUG 5 4XQ2 #SKI G4 21 4Y9L CAPCAX FILE,FRB [CHANGE FROM PCA TO CPA TAKING BLOCK 5 4YP= #SKI G3 21 4_8W CAPCA FILE,FRB [CHANGE FROM PCA TO CPA TAKING BLOCK 18 4_NG MHUNTW 3,FILE,FRB [HUNT FOR THE FILE/FRB 16 5286 LDN 6 A1+2 [BEGINING OF DATA 5 52MQ #SKI G4 7 537B CLEARPE 21 53M2 TESTBRKIN OBREAK [J. IF BREAK-IN HAS BEEN DETECTED. 6 53NY ...#SKI G505&1 4 53QW ...( 7 53SS ... LDX 4 7 9 53WQ ... ANDX 4 TMASK(1) 17 53YN ... LDX 5 CPATUWORD(2) [ TO RESTORE LATER 18 542L ... ORS 4 CPATUWORD(2) [ SET SHIFT BITS FOR MOP 4 544J ...) 7 546L SLL 7 2 18 54L= BPZ 7 ONONL [J. NOT SUPPRESS NEWLINE. 20 555W SUPNLOUT [ISSUE SUPPRESS NEWLINE MACRO. 5 55KG ONONL 8 5656 LDCT 0 #600 20 56JQ ANDX 0 A1+1(3) [CONVERT WD. TO CHARACTER COUNT 8 574B LDX 7 A1(3) 8 57J2 BZE 0 OZ1 7 583L SBN 7 1 7 58H= OZ1 SBN 7 2 7 592W SLC 70 2 12 59GG OUTMONX 7,6,XCAT(1),FILE,FRB 9 5=26 MFREEW FILE,FRB 6 5=7# ...#SKI G505&1 21 5=#G ... STO 5 CPATUWORD(2) [CLEAR SHIFT FLAG FOR MONOUTS ETC. 7 5=FQ RUNPROG 17 5=_B OBREAK [BREAK-IN ROUTINE. 9 5?F2 MFREEW FILE,FRB 7 5?YL PROGBRKIN 10 5#D= MENDAREA 40,K100INMOP 4 5#XW #END 8 ____ ...54613124000100000000