{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: DETACHB867)}}
====== DETACHB867 ======
(George Source)
**Macros used:** [[george:macro:BXE|BXE]], [[george:macro:BXL|BXL]], [[george:macro:CHAIN|CHAIN]], [[george:macro:FPUT|FPUT]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETACT|GETACT]], [[george:macro:HUNT2J|HUNT2J]], [[george:macro:HUNTACT|HUNTACT]], [[george:macro:IPBNULL|IPBNULL]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LINK|LINK]], [[george:macro:LINKSET|LINKSET]], [[george:macro:LONGCLEAR|LONGCLEAR]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:PAIR|PAIR]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:UP|UP]], [[george:macro:XCLEAR|XCLEAR]]
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