DETACHB867
(George Source)
Macros used: BXE, BXL, CHAIN, FPUT, GEOERR, GETACT, HUNT2J, HUNTACT, IPBNULL, LGEOG, LINK, LINKSET, LONGCLEAR, MHUNTW, PAIR, SEGENTRY, UP, XCLEAR
- DETACHB867.txt
22FL ...#SEG DETACHB [PHILIP TURNER 22^= ...[ (C) INTERNATIONAL COMPUTERS LIMITED 1982 23DW ...#LIST K0DETACHB>K0COMMAND>K0ALLGEO>K0GREATGEO 23YG ... 8HDETACHB 24D6 ... SEGENTRY K1DETACHB,X1DETACHB 29S2 PAIR1 LINK IPBSCAN,5 2=2= ...TYPCDCB +AMXOR+CONDCB 2=8G ...TYPCONS +CONSA+I7023 2=BQ ...NADE #56777777 2=K2 ...TYPDCB +AMXOR+ADCB 2=R= ZMASK #53777777 2?=W # 2?QG # 2#=6 XCLSR LDX 2 A1+BPTR(2) 2#PQ BZE 2 XCLSX 2*9B SBN 2 A1+FPTR 2*P2 HUNTACT CPAT,2 2*YS ... LONGCLEAR 2,#107,XCLNS 2B8L ...XCLNS 2BDD LDN 0 0 2BN= EXIT 7 0 2BY4 XCLSX EXIT 7 1 2C5# ...[ 2C5* ... 2C5B ...[ SUBROUTINE TO FIND SCANNING ACTIVITY 2C5C ...[ 2C5D ...[*********************************************************************** 2C5F ...[ 2C5G ...SGETSCAN 2C5H ... SBX 7 FX1 2C5J ... GETACT AMSCAN,IPBTYPE 2C5K ... ADX 7 FX1 2C5L ... EXIT 7 0 2CK= ...X1DETACHB 8T9L # 8TP= # ENTERED BY IDF COMMAND WHEN CHAPTER DELCON IS 8W8W # REDEFINING OR DELETING CONCEPTUAL 8WNG # 8X86 # EACH LINE OF CONCEPTUAL WILL BE MARKED NOT ATTACHED 8XMQ # 8Y7B MHUNTW 3,IDF,CONCEP [ACCESS BLOCK FROM CPAT 8YM2 LDN 4 0 [X4 POINTS TO CURRENT CONCEPT LINE 8^6L ZNXTLN 8^L= SMO 4 925W LDX 7 A1(3) [NEXT ENTRY IN IDF/CONCEP 92KG SRL 7 9 9356 ANDN 7 #77 [PER.TYPE 93JQ SBN 7 #30 944B BZE 7 RDCI 94J2 SMO 4 953L LDX 7 A1(3) 95H= ANDN 7 #777 [GEOGRAPHICAL NO 962W LDX 2 ADMULTACT 96GG ZNXTAMP 9726 # [SEEK AMOP FOR THIS LINE 97FQ LDX 1 CPPTR(2) [DL POINTER 97^B LGEOG 1,6 [GET GEOGRAPAICAL NO FROM DL 98F2 LDX 1 FX1 98YL # GEOGR NO IN AMOP'S DEVICE LIST 99D= # COMPARE GEOGR.NO IN IDF CONCEP ENTRY WITH 99XW # 9=CG SBX 6 7 9=X6 BZE 6 ZAMPGOT [BRANCH IF AMOP FOUND 9?BQ LDX 2 ADMP(2) [OTHERWISE LOOK AT NEXT AMOP 9?WB BNZ 2 ZNXTAMP 9#B2 BRN ZENDLOOP [IF NO AMOP GO TO NEXT LINE 9#TL # 9**= ZTYPE 9*SW #HAL AMXOR+ALINES,0 9B#G ZP1 PAIR SCAN,3 9BS6 ZAMP1 LDX 6 2 [PRESERVE AMOP ADDS 9C?Q ZAMPGOT 9CRB # WHEN AMOP FOUND LOOK FOR AMXOR/ALINES BLOCK 9D?2 LDX 2 FPTR(2) [NEXT BLOCK 9DQL LDX 0 ATYPE(2) 9F== BXE 0 ZTYPE(1),ZFOUND [BRANCH IF ALINES FOUND 9FPW BXL 0 CACT,ZAMPGOT [OTHERWISE COTINUE SEARCH UNLESS 9G9G # [NEXT ACTIVITY REACHED 9GP6 BRN ZENDLOOP 9H8Q # 9HNB ZFOUND SMO 4 9J82 LDX 7 A1+1(3) [LINE NO 9JML ANDN 7 #7777 9K7= SLL 7 2 [MULT BY 4 TO POINT TO ALINES ENTRY 9KLW ADX 2 7 9L2S LDCT 0 #240 9LBQ ORS 0 A1+FOURTHWD(2) 9LQN ERS 0 A1+FOURTHWD(2) 9M6L LDEX 0 A1+FOURTHWD(2) 9M#K ... LDX 5 2 9MGJ BCT 0 PW1 9N=D CALL 7 XCLSR 9NLB BRN PW21 9P2# PW1 LDCT 0 #424 9PB= SMO 5 9PQ8 ORS 0 A1+FOURTHWD 9Q66 LDN 0 1 9QG4 PW21 LDX 2 ADMULTACT 9QW2 LDX 1 FX1 9R9Y LDX 2 IMOPADDR(2) 9RKW ADS 0 IWAKE(2) 9S22 ZENDLOOP 9SFL ADN 4 2 9S^= BXL 4 ALOGLEN(3),ZNXTLN [BR UNLESS ALL LINES COVERED 9TDW # 9TYG LDX 2 ADMULTACT 9WD6 LDX 2 IMOPADDR(2) 9WXQ LDX 0 IWAKE(2) 9XCB BZE 0 RUP 9XX2 LONGCLEAR 2,#125,RUP 9YBL RUP 9YW= UP 9^*W # 9^TG # =2*6 RDCI =2SQ SMO 4 =3#B LDX 7 A1(3) =3S2 ANDN 7 #777 =4?L LDX 2 IPBADDR =4R= RNXTAMP =5=W LDX 1 CPPTR(2) [SEEK IPBIN FOR THIS IDE =5QG SMO FX2 =6=6 STO 1 AWORK1 [DCA ADDR =6PQ LGEOG 1,6 =79B SBX 6 7 =7P2 BZE 6 RAMP1 [BRANCH IF IPBIN FOUND =88L LDX 2 IPBL(2) =8N= BNZ 2 RNXTAMP =97W BRN RENDLOOP =9MG RAMP1 SMO 4 ==76 STO 2 A1(3) [STORE IPBIN ADDR IO THE CONCEPT BLOC ==LQ ... HUNT2J 2,AMXOR,ADEVS,,RENDLOOP =?L2 SMO 4 =#5L LDX 7 A1+1(3) [IDE NO =#K= ANDN 7 #7777 =*4W SLL 7 2 =*JG LDX 0 A1+FOURTHWD(2) [LOWEST IDE N0 -1 =B46 SLL 0 2 =BHQ SBX 7 0 =C3B SMO FX1 =CH2 LDX 0 ZMASK =D2L ADX 2 7 =DG= XCLCC ANDS 0 A1+FOURTHWD(2) =DGH ... LDX 1 A1+BPTR(2) =DGS ... BZE 1 RENDLOOP =DH5 ... ADX 1 BSTART(1) =DHB ... LDX 0 ATYPE(1) =DHM ... SRL 0 12 =DHY ... SMO FX1 =DJ9 ... BXE 0 TYPCDCB,RCONDCB =DJG ... LDEX 0 A1+FOURTHWD(2) =DJR ... SBN 0 5 =DK4 ... BNZ 0 XCLCCA =DK* ... LDX 1 A1+BPTR(2) =DKL ... BZE 1 RENDLOOP =DKX ... SBN 1 A1 =DL8 ... LDX 0 ATYPE(1) =DLF ... SRL 0 12 =DLQ ... SMO FX1 =DM3 ... BXE 0 TYPDCB,RDCB =DM# ...XGEOERR =DMK ... GEOERR 1,CONRING =DMW ...RDCB =DN7 ... LDX 1 BPTR(1) =DND ... LDX 0 ATYPE(1) =DNP ... BPZ 0 RDCB =DP2 ... SLC 0 1 =DP? ... BPZ 0 RDCB =DPJ ... SRC 0 1 =DPT ... SRL 0 12 =DQ6 ... SMO FX1 =DQC ... TXU 0 TYPCONS =DQN ... BCS XGEOERR =DQ^ ... LDX 2 1 =DR= ... FPUT =DRH ... BRN RENDLOOP =DRS ...RCONDCB =DS5 ... LDCT 0 #020 =DSB ... ANDX 0 A1+IDSTATUS(1) =DSM ... BNZ 0 XCLEAR =DSY ... GEOERR 1,CONDCBOL =DT9 ...XCLEAR =DTG ... LDN 0 #777 =DTR ... ANDX 0 A1+IDSTATUS(1) =DW4 ... BZE 0 XCLEARA =DW* ... LDN 0 1 =DWL ... SBS 0 A1+IDSTATUS(1) =DWX ...XCLEARA =DX8 ... SMO FX1 =DXF ... LDX 0 NADE =DXQ ... ANDS 0 A1+FOURTHWD(2) =DY3 ... LDX 1 A1+BPTR(2) =DY# ... IPBNULL 1 =DYK ... BRN RENDLOOP =DYW ...XCLCCA =D^W LDEX 0 A1+FOURTHWD(2) =F4F #SKI JSKI09 [SKIP IF NO MOP ON VDU =F74 ( =F9M BZE 0 ZMPCC =F#= SBN 0 10 =FBT ) =FFG BNZ 0 RENDLOOP =FLN #SKI JSKI09 =FRW ZMPCC =F^6 CALL 7 XCLSR =GDQ ... NULL =M*2 RENDLOOP =MSL ADN 4 2 =N#= MHUNTW 3,IDF,CONCEP =NRW BXL 4 ALOGLEN(3),ZNXTLN [J UNLESS ALL IDE CNVERED =P6? ... =PDN ... CALL 7 SGETSCAN =PR6 LDX 0 AWORK1(2) [DCA ADDR =Q=Q LDX 2 BPTR(2) =QQB STO 0 CPPTR(2) =R=2 LINKSET 2,PAIR1(1) =RPL MHUNTW 1,IDF,CONCEP =S9= LDX 5 2 =SNW CHAIN 1,2 =T8G LDX 2 5 =TN6 FPUT =W7Q UP =X72 # =XLL #END ^^^^ ...544607240003