16 22FL ...#SEG DETACHB [PHILIP TURNER 16 22_= ...[ (C) INTERNATIONAL COMPUTERS LIMITED 1982 17 23DW ...#LIST K0DETACHB>K0COMMAND>K0ALLGEO>K0GREATGEO 9 23YG ... 8HDETACHB 14 24D6 ... SEGENTRY K1DETACHB,X1DETACHB 9 29S2 PAIR1 LINK IPBSCAN,5 9 2=R= ZMASK #53777777 4 2?=W # 4 2?QG # 10 2#=6 XCLSR LDX 2 A1+BPTR(2) 8 2#PQ BZE 2 XCLSX 9 2*9B SBN 2 A1+FPTR 9 2*P2 HUNTACT CPAT,2 10 2*YS ... LONGCLEAR 2,#107,XCLNS 5 2B8L ...XCLNS 7 2BDD LDN 0 0 8 2BN= EXIT 7 0 7 2BY4 XCLSX EXIT 7 1 4 2C5# ...[ 3 2C5* ... 13 2C5B ...[ SUBROUTINE TO FIND SCANNING ACTIVITY 4 2C5C ...[ 21 2C5D ...[*********************************************************************** 4 2C5F ...[ 5 2C5G ...SGETSCAN 8 2C5H ... SBX 7 FX1 11 2C5J ... GETACT AMSCAN,IPBTYPE 8 2C5K ... ADX 7 FX1 7 2C5L ... EXIT 7 0 6 2CK= ...X1DETACHB 4 8T9L # 18 8TP= # ENTERED BY IDF COMMAND WHEN CHAPTER DELCON IS 15 8W8W # REDEFINING OR DELETING CONCEPTUAL 4 8WNG # 20 8X86 # EACH LINE OF CONCEPTUAL WILL BE MARKED NOT ATTACHED 4 8XMQ # 18 8Y7B MHUNTW 3,IDF,CONCEP [ACCESS BLOCK FROM CPAT 21 8YM2 LDN 4 0 [X4 POINTS TO CURRENT CONCEPT LINE 5 8_6L ZNXTLN 7 8_L= SMO 4 18 925W LDX 7 A1(3) [NEXT ENTRY IN IDF/CONCEP 7 92KG SRL 7 9 14 9356 ANDN 7 #77 [PER.TYPE 8 93JQ SBN 7 #30 8 944B BZE 7 RDCI 7 94J2 SMO 4 8 953L LDX 7 A1(3) 16 95H= ANDN 7 #777 [GEOGRAPHICAL NO 9 962W LDX 2 ADMULTACT 5 96GG ZNXTAMP 18 9726 # [SEEK AMOP FOR THIS LINE 15 97FQ LDX 1 CPPTR(2) [DL POINTER 19 97_B LGEOG 1,6 [GET GEOGRAPAICAL NO FROM DL 8 98F2 LDX 1 FX1 12 98YL # GEOGR NO IN AMOP'S DEVICE LIST 15 99D= # COMPARE GEOGR.NO IN IDF CONCEP ENTRY WITH 4 99XW # 7 9=CG SBX 6 7 18 9=X6 BZE 6 ZAMPGOT [BRANCH IF AMOP FOUND 19 9?BQ LDX 2 ADMP(2) [OTHERWISE LOOK AT NEXT AMOP 9 9?WB BNZ 2 ZNXTAMP 19 9#B2 BRN ZENDLOOP [IF NO AMOP GO TO NEXT LINE 4 9#TL # 5 9**= ZTYPE 11 9*SW #HAL AMXOR+ALINES,0 9 9B#G ZP1 PAIR SCAN,3 17 9BS6 ZAMP1 LDX 6 2 [PRESERVE AMOP ADDS 5 9C?Q ZAMPGOT 18 9CRB # WHEN AMOP FOUND LOOK FOR AMXOR/ALINES BLOCK 15 9D?2 LDX 2 FPTR(2) [NEXT BLOCK 9 9DQL LDX 0 ATYPE(2) 18 9F== BXE 0 ZTYPE(1),ZFOUND [BRANCH IF ALINES FOUND 20 9FPW BXL 0 CACT,ZAMPGOT [OTHERWISE COTINUE SEARCH UNLESS 18 9G9G # [NEXT ACTIVITY REACHED 9 9GP6 BRN ZENDLOOP 4 9H8Q # 7 9HNB ZFOUND SMO 4 14 9J82 LDX 7 A1+1(3) [LINE NO 8 9JML ANDN 7 #7777 21 9K7= SLL 7 2 [MULT BY 4 TO POINT TO ALINES ENTRY 7 9KLW ADX 2 7 8 9L2S LDCT 0 #240 11 9LBQ ORS 0 A1+FOURTHWD(2) 11 9LQN ERS 0 A1+FOURTHWD(2) 11 9M6L LDEX 0 A1+FOURTHWD(2) 7 9M#K ... LDX 5 2 8 9MGJ BCT 0 PW1 8 9N=D CALL 7 XCLSR 8 9NLB BRN PW21 8 9P2# PW1 LDCT 0 #424 7 9PB= SMO 5 10 9PQ8 ORS 0 A1+FOURTHWD 7 9Q66 LDN 0 1 9 9QG4 PW21 LDX 2 ADMULTACT 8 9QW2 LDX 1 FX1 10 9R9Y LDX 2 IMOPADDR(2) 9 9RKW ADS 0 IWAKE(2) 5 9S22 ZENDLOOP 7 9SFL ADN 4 2 19 9S_= BXL 4 ALOGLEN(3),ZNXTLN [BR UNLESS ALL LINES COVERED 4 9TDW # 9 9TYG LDX 2 ADMULTACT 10 9WD6 LDX 2 IMOPADDR(2) 9 9WXQ LDX 0 IWAKE(2) 8 9XCB BZE 0 RUP 10 9XX2 LONGCLEAR 2,#125,RUP 4 9YBL RUP 5 9YW= UP 4 9_*W # 4 9_TG # 4 =2*6 RDCI 7 =2SQ SMO 4 8 =3#B LDX 7 A1(3) 8 =3S2 ANDN 7 #777 9 =4?L LDX 2 IPBADDR 5 =4R= RNXTAMP 18 =5=W LDX 1 CPPTR(2) [SEEK IPBIN FOR THIS IDE 8 =5QG SMO FX2 14 =6=6 STO 1 AWORK1 [DCA ADDR 8 =6PQ LGEOG 1,6 7 =79B SBX 6 7 18 =7P2 BZE 6 RAMP1 [BRANCH IF IPBIN FOUND 9 =88L LDX 2 IPBL(2) 9 =8N= BNZ 2 RNXTAMP 9 =97W BRN RENDLOOP 7 =9MG RAMP1 SMO 4 21 ==76 STO 2 A1(3) [STORE IPBIN ADDR IO THE CONCEPT BLOC 13 ==LQ ... HUNT2J 2,AMXOR,ADEVS,,RENDLOOP 7 =?L2 SMO 4 14 =#5L LDX 7 A1+1(3) [IDE NO 8 =#K= ANDN 7 #7777 7 =*4W SLL 7 2 16 =*JG LDX 0 A1+FOURTHWD(2) [LOWEST IDE N0 -1 7 =B46 SLL 0 2 7 =BHQ SBX 7 0 8 =C3B SMO FX1 8 =CH2 LDX 0 ZMASK 7 =D2L ADX 2 7 11 =DG= XCLCC ANDS 0 A1+FOURTHWD(2) 11 =D_W LDEX 0 A1+FOURTHWD(2) 18 =F4F #SKI JSKI09 [SKIP IF NO MOP ON VDU 4 =F74 ( 8 =F9M BZE 0 ZMPCC 8 =F#= SBN 0 10 4 =FBT ) 9 =FFG BNZ 0 RENDLOOP 6 =FLN #SKI JSKI09 5 =FRW ZMPCC 8 =F_6 CALL 7 XCLSR 6 =GDQ ... NULL 5 =M*2 RENDLOOP 7 =MSL ADN 4 2 10 =N#= MHUNTW 3,IDF,CONCEP 18 =NRW BXL 4 ALOGLEN(3),ZNXTLN [J UNLESS ALL IDE CNVERED 3 =P6? ... 9 =PDN ... CALL 7 SGETSCAN 14 =PR6 LDX 0 AWORK1(2) [DCA ADDR 9 =Q=Q LDX 2 BPTR(2) 9 =QQB STO 0 CPPTR(2) 10 =R=2 LINKSET 2,PAIR1(1) 11 =RPL MHUNTW 1,IDF,CONCEP 7 =S9= LDX 5 2 8 =SNW CHAIN 1,2 7 =T8G LDX 2 5 6 =TN6 FPUT 5 =W7Q UP 4 =X72 # 4 =XLL #END 6 ____ ...365750270002