{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACS JIB)}}
====== MACS JIB ======
(George Source)
224K ...# COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
2278 ...#SKI
22#B ...(
22FL # [A C PUTMAN
22^= #
23DW #
23YG [
24D6 [CONTENTS LIST:-
24XQ [
257J ...[ ASCEDIT
25CB [ ATTACH
25M8 ...[ CCERROR
25X2 [ CCOUT
26BL [ CCSTOP
26W= [ CIDFAS
279^ ...[ CIMOPON [REMOVED FO MK 867
27KN ...[ CONMOPOFF
27TG [ CONOWNAME
28*6 [ DETACH
28SQ [ HUNT2OPT
29#B [ IDFAT
29S2 [ IDFCCAT
2=?L ...[ IDFCIUPD [REMOVED FOR MK 867
2=R= [ IDFCLON
2?=W [ IDFCONREQ
2?QG ...[ IDFFILE [REMOVED FOR 867
2#=6 [ IDFLINE
2#PQ [ IDFOFF
2*9B [ IDFOPEN
2*P2 ...[ IDFOR [REMOVED FOR MK 867
2BN= [ IDFPER [IDF GETPER MACRO
2C7W [ IDFREAD [READ FIRST RECORD FROM IDF
2CMG [ IDFSCAN
2D76 [ IDFTPSCN
2F6B [ IDFTPUPD
2FL2 [ IDFUNON
2G5L [ IDFWRITE
2G=S ...[ IRIGHT
2GD2 ...[ IWRONG
2GK= [ MFREECELL
2H4W [ MGETCELL
2HJG [ MIDFAS
2J46 [ MNAME
2JHQ [ MOPOFF
2K3B [ MOPON
2KH2 [ MSEARCH
2L2L [ MSPLITCORE
2LG= [ MXB
2L^W [ NEW
2MFG [ NEWMODE
2NDQ [ NEWMXB
2NYB ...[ PARSORT NOW IN MACROS PERI
2PD2 ...[ PARSORTB DITTO
2PXL ...[ PARSORTX DITTO
2QC= [ PROPCANC
2QWW [ PROPNO
2RBG [ PUTCONS
2RGC ...[ RMTLFUNAV
2RL# ...[ SETIDENT
2RW6 [ UNITOFF
2S*Q [ UPDATE
2T*2 [ WHICHCON
2TJS ...[ WRPVDUS
2TSL [ XRIGHT
2W#= [ XWRONG
2WRW [ YIDFUNON
2X?G [ YMOPOFF
2XR6 [ YMOPON
2YQB [ YRIGHT
2^=2 [ YUNITOFF [RELEASE AN EXOTIC FROM BEING ONLINED
2^PL [ YWRONG
2^^D ...[ ZMOPOFF
329= [
32NW [END OF LIST.
338G [
338P ...)
338Y ...[??? ASCEDIT SECT COMM FGN 25 DOC
3398 ...[SETS OR UNSETS SCREEN EDITING MODE FLAG IN DCB
339W ...[
33=J ...#UNS JSKI36
33?= ...(
33?Y ...#MAC ASCEDIT
33#L ... MHUNTW 1,AMXOR,ADCB
33*# ...#STR %A,OFF
33B2 ...(
33BN ... LDCT 0 #200
33CB ... ORS 0 ICURSOR(1)
33D4 ...)
33DQ ...#STR %A,ON
33FD ...(
33G6 ... LDX 0 GSIGN
33GS ... ORX 0 BITS22LS
33HG ... ANDS 0 ICURSOR(1)
33J8 ...)
33JW ... LDX 1 FX1
33KJ ...#NOR
33L= ...)
33XF ...[??? ATTACH SECT COMM FGN 25 DOC
348N ...#
34FX ...[THIS MACRO ATTACHES A SPECIFIC LINE OF A REAL UNIT TO ANY,OR ONE OF
34R6 ...[A SELECTION OF SPECIFIC LINES,ON A CONCEPTUAL MULTIPLEXOR
354* ...#MAC ATTACH
35*J ... DOWN XATTACH,1
35LR ... BRN %A [BREAK IN - ABANDCOM
35Y2 ... BRN %B [CONCEPTUAL DOESN'T EXIST
3699 ... BRN %C [CONCEPTUAL ALREADY ONLINED
36GD ... BRN %D [ND.LINES AWAILABLE
36RM ... BRN %E [LINE ALREADY ATTACHED
374W ... BRN %F [LINE TOO LARGE
37B5 ... BRN MATTACHZ
37M# ... BRN %G [NOT ONLINE (ATTONL)
37YH ... BRN %H [ONLINING OR RELEASING (NO CONDCB)
389Q ...MATTACHZ
38G^ ...#NOR
38H9 ...[??? CCERROR SECT COMM FGN 28 DOC
38HF ...#MAC CCERROR
38HP ... LDX 1 FX2
38H^ ...#STR %B
38J9 ... ACCSTO %B,ACOMMUNE2,1
38JF ...[ STORE EXTRA DATA IF ANY
38JP ...#ACC %A
38J^ ...#SKI
38K9 ...(
38KF ...#MOD %A
38KP ...(
38K^ ... SMO %A
38L9 ... LDN 0 0
38LF ...)
38LP ...#MOD %A
38L^ ...#SKI
38M9 ... LDN 0 0(%A)
38MF ...)
38MP ...#ACC %A
38M^ ... LDN 0 %A
38N9 ...#STR %B
38NF ...#FID 12,12,1
38NP ...[ SET BITS TO SHOW WHICH PARAMS PRESEN
38N^ ...#STR %C
38P9 ...#FID 13,13,1
38PF ...#STR %D
38PP ...#FID 14,14,1
38P^ ... STO 0 ACOMMUNE1(1)
38Q9 ... DOWN IPBERROR,1
38QF ...#STR %C
38QP ... BRN %C [MOP OFF EXIT
38Q^ ...#STR %D
38R9 ... BRN %D [CANTDO EXIT
38RF ...#NOR
38S8 ...[??? CCOUT SECT COMM FGN 25 DOC
3942 #
39HL #
3=3= #
3=GW #MAC CCOUT
3?2G [THIS MACRO OUTPUTS A SUPERVISORY SEGMENT TO THE 7901
3?G6 LDX 0 %A
3?^Q SMO FX2
3#FB STO 0 ACOMMUNE2
3#^2 LDX 0 %B
3*DL SMO FX2
3*Y= STO 0 ACOMMUNE3
3BCW DOWN IPBOUT,4
3BXG #NOR
3C7# ...[??? CCSTOP SECT COMM FGN 25 DOC
3CC6 #MAC CCSTOP
3CWQ [THIS MACRO OUTPUTS STOP INPUT & CLEAR SS CODE
3DBB LDN 0 #124
3DW2 SMO FX2
3F*L STO 0 ACOMMUNE1
3FT= CCOUT %A,%B
3G#W #NOR
3GJN ...[??? CIDFAS SECT COMM FGN 25 DOC
3GSG #
3LBL ...#MAC CIDFAS
3LCS ... LDX 2 FX2
3LF2 ... STO %B ACOMMUNE1(2)
3LG8 ... STO %C ACOMMUNE2(2)
3LHB ... DOWN IDFCANC,2
3LJJ ... BRN %A [BRK-IN
3LKQ ... BRN %D
3LLY ...#NOR
3LNS ...[??? CIMOPON SECT COMM FGN 25 DOC
3LPG
3XH5 ...[??? CONMOPOF SECT COMM FGN 27 DOC
3XHD ...#SKI
3XHR ...[ MOP OFF PROCEDURE FOR IDENT CONTROLLED BY IPBCCA ACT
3XJ6 ...#MAC CONMOPOFF
3XJF ... LDX 1 %A
3XJS ... ADX 1 BSTART(1) [TOP OF CONDCB
3XK7 ... LDX 2 1
3XKG ... HUNTACT AMOP,1 [IPBCCA
3XKT ... LDX 0 CONREL(1)
3XL8 ... ERX 0 CACT
3XLH ... ANDX 0 CACT
3XLW ... BZE 0 MCONMREL [J IF CONCEP BEING RELEASED
3XM9 ... SUBRELT %A
3XMJ ... BRN MCONNU [J TO NULL RING
3XMX ...MCONMREL
3XN= ... LDN 0 1
3XNK ... SBS 0 A1+IDSTATUS(2) [UPDATE CLOSEDOWN CT
3XNY ... MOD STOZ BPTR,%A [NULL CONDCBS RING
3XP? ...MCONNU
3XPL ... MOD STOZ BPTR,%B
3XP^ ...#NOR
3XQJ ...[??? CONOWNAM SECT COMM FGN 25 DOC
3Y2B #MAC CONOWNAME
3YG2 DOWN XATTACH,21
3Y^L BRN %A
3^F= BRN %B
3^YW #NOR
428N ...[??? DETACH SECT COMM FGN 25 DOC
42DG [THIS MACRO DETACHES A SINGLE LINE FROM A CONCEPTUAL MULTIPLEXOR
42Y6 #MAC DETACH
43CQ SMO FX2
43XB STO %D ACOMMUNE1
44C2 #STR %C
44WL #SKI
45B= (
45TW LDX 0 GSIGN
46*G SMO FX2
46T6 STO 0 ACOMMUNE5
47#Q DOWN XATTACH,20
47SB BRN %A
48#2 BRN %B
48RL BRN %E
49?= )
49QW #STR %C
4==G (
4=Q6 SMO FX2
4?9Q STOZ ACOMMUNE5
4?PB DOWN XATTACH,20
4#92 BRN %A
4#NL BRN %B
4*8= BRN %C
4*MW )
4B7G #NOR
4BC# ...[??? HUNT2OPT SECT COMM FGN 25 DOC
4BM6 #MAC HUNT2OPT
4C6Q #STR %D
4CLB LDX %A %D
4D62 MHUNT2OP
4DKL LDX %A FPTR(%A)
4F5= LDX 0 ATYPE(%A)
4FJW TXL 0 CACT
4G4G BCC MHUNT2O
4GJ6 SRL 0 12
4H3Q SBN 0 %B+%C
4HHB BNZ 0 MHUNT2OP
4J32 BRN MHUNT2O1
4JGL MHUNT2O
4K2= LDX %A GSIGN
4KFW MHUNT2O1
4K^G #NOR
4L9# ...[??? IDFAT SECT COMM FGN 25 DOC
4LF6
4SCW ...#MAC IDFAT
4SDN ... LDX 2 FX2
4SFG ... STO %B ACOMMUNE1(2)
4SG# ... STO %C ACOMMUNE2(2)
4SH6 ... DOWN IDFASAT,30
4SHY ... BRN %A [BRK-IN
4SJQ ... BRN %D
4SKJ ... BRN %E
4SLB ... BRN %F
4SM8 ... BRN %G
4SN2 ... BRN %H
4SNS ...#NOR
4SQ3 ...[??? IDFCCAT SECT COMM FGN 25 DOC
4XWQ ...#MAC IDFCCAT
4XXY ... SMO FX2
4X^6 ... STO %B ACOMMUNE2
4Y2# ... DOWN IDFCANC,3
4Y3G ... BRN %A [BRK-IN
4Y4N ... BRN %C
4Y5W ... BRN %D
4Y74 ...#NOR
5?NS ...[??? IDFCLON SECT COMM FGN 25 DOC
5?YL #MAC IDFCLON
5#D= DOWN IDFONLIN,3
5#XW BRN %A
5*CG BRN %B
5*X6 BRN %C
5BBQ #NOR
5BLJ ...[??? IDFCONRE SECT COMM FGN 25 DOC
5BWB #
5CB2 # CONFIGURATION REQUEST ON A CONCEPTUAL
5CTL #
5D*= #MAC IDFCONREQ
5DSW DOWN IDFCONS,1
5F#G #NOR
5FC5 ...[??? IDFFILE SECT COMM FGN 25 DOC
5Q^5 ...[??? IDFLINE SECT COMM FGN 25 DOC
5R52
5RJL #
5S4= # MACRO TO CHANGE LINE
5SHW #
5T3G #MAC IDFLINE
5TH6 DOWN IDFLINE,1
5W2Q #NOR
5W=J ...[??? IDFOFF SECT COMM FGN 25 DOC
5WGB ...[THIS MACRO RELEASES A CONCEPTUAL FROM BEING ONLINED
6D6G ...#MAC IDFOFF
6D6X ...#SKI %C
6D7# ...(
6D7P ... LDN 0 %C+%D
6D86 ... SLL 0 12
6D8H ... SMO FX2
6D8Y ... STO 0 ACOMMUNE1 [BLOCK TYPE AND SUBTYPE
6D9* ... LDN 0 %E
6D9Q ... SMO FX2
6D=7 ... STO 0 ACOMMUNE2 [POSITION DOWN BLOCK
6D=J ...)
6D=^ ...#SKI %C
6D?B ...#SKI
6D?R ...(
6D#8 ... SMO FX2
6D#K ... STOZ ACOMMUNE1
6D*2 ...)
6D*C ...#SKI %F
6D*S ...(
6DB9 ... LDN 0 %F
6DBL ... SMO FX2
6DC3 ... STO 0 ACOMMUNE4
6DCD ...)
6DCT ...#SKI %F
6DD= ...#SKI
6DDM ...(
6DF4 ... SMO FX2
6DFF ... STOZ ACOMMUNE4
6DFW ...)
6DG? ... DOWN IDFOFF,1
6DGN ... BRN %A
6DH5 ... BRN %B [CONCEPTUAL NOT ONLINE
6DHG ...#NOR
6DJ8 ...[??? IDFOPEN SECT COMM FGN 25 DOC
6KDQ #MAC IDFOPEN
6KYB ... OPENSYS %A,IDF,WRITE
6LD2 ... IDFREAD
6Q*2 #NOR
6QX9 ...[??? IDFOR SECT COMM FGN 25 DOC
6Y4K ...[??? IDFPER SECT COMM FGN 25 DOC
6Y8G #
6YN6 #MAC IDFPER [IDF GETPER MACRO
6^7Q DOWN IDFPER,1
6^MB BRN %A
7272 BRN %B
72LL #NOR
72P9 ...[??? IDFREAD SECT COMM FGN 25 DOC
786B ...#MAC IDFREAD [READ FIRST RECORD FROM IDF
787* ... LDN 2 1
788# ... READED 2,4
789? ... TESTREP OK,M90
789Q ... DOWN SETIDF,3 [SET ALARM INDICATOR
78== ... GEOERR 1,READ
78?9 ...M90
78#8 ... MHUNT 2,FILE,FRRB [LOCATE FILE READ BLOCK
78*7 ... ADN 2 A1 [ADD IN RED TAPE
78B6 ...#NOR
78CJ ...[??? IDFSCAN SECT COMM FGN 25 DOC
7CX= ...#MAC IDFSCAN
7CXY ...#STR %C
7CYL ... LDX 0 %C [PTR TO DEVICE LIST IN %C
7C^# ...#STR %C
7D22 ...#SKI
7D2N ... LDX 0 CPPTR(2) [NO %C:USE CPPTR(2) TO FIND DEVICE LI
7D3B ... LDX 2 FX2
7D44 ... STO 0 ACOMMUNE2(2)
7D4Q ...#STR %D
7D5D ... STO %D ACOMMUNE3(2)
7D66 ...#STR %D
7D6S ...#SKI
7D7G ... NGS 2 ACOMMUNE3(2)
7D88 ... DOWN IDFSCON,1
7D8W ... BRN %A [BREAK-IN
7D9J ... BRN %B
7D== ...#NOR
7D?H ...[??? IDFTPSCN SECT COMM FGN 25 DOC
7RHG #MAC IDFTPSCN
7S36 #STR %C
7SGQ #SKI
7T2B LDX 0 CPPTR(2)
7TG2 #STR %C
7T^L LDX 0 %C
7WF= LDX 2 FX2
7WYW STO 0 ACOMMUNE2(2)
7XDG #SKI %D
7XY6 STO %D ACOMMUNE3(2)
7YCQ #SKI %D
7YXB #SKI
7^C2 STOZ ACOMMUNE3(2)
7^WL DOWN IDFSCON,20
82B= BRN %A
82TW BRN %B
83*G #NOR
844Y ...[??? IDFTPUPD SECT COMM FGN 25 DOC
89#W ...#MAC IDFTPUPD
89*T ...#STR %B
89BS ...#SKI
89CR ... LDX 0 CPPTR(2)
89DQ ...#STR %B
89FP ... LDX 0 %B
89GN ... SMO FX2
89HM ... STO 0 ACOMMUNE1
89JL ... DOWN IDFCONF,1
89KK ... BRN %A
89LJ ...#NOR
89N4 ...[??? IDFUNON SECT COMM FGN 25 DOC
89NL #MAC IDFUNON
8=8= SMO FX2
8=MW STO %C ACOMMUNE2
8?7G DOWN IDFONLIN,1
8?M6 BRN %A
8#6Q BRN %B
8#LB #NOR
8#W8 ...[??? IDFWRITE SECT COMM FGN 25 DOC
8*62 [THIS MACRO WRITES ALL EXISTING FILE/FRRB BLOCKS INTO THE IDF,USING
8*KL [THEIR RECORD NUMBERS TO CALCULATE THEIR POSITIONS 9N THE FILE.THE
8B5= [FILE READ BLOCKS ARE ALL FREED BEFORE EXIT.
8BJW #MAC IDFWRITE
8C4G M90 HUNT 2,FILE,FRRB [LOCATE READ BLOCK
8CJ6 BNG 2 M99 [NO MORE READ BLOCKS,JUMP
8D3Q NAME 2,FILE,FRWB [RENAME BLOCK FOR WRITING
8DHB ADN 2 A1
8F32 LDX 2 BRECNO(2) [RECORD NO
8FGL ADN 2 1
8G2= WRITED 2,4
8GFW BRN M90
8G^G M99 LDX 2 FX2 [RELOADX2 WITH FX2
8HF6 #NOR
8HNY ...[??? IRIGHT SECT COMM FGN 25 DOC
8HYQ #
8H^9 ...
8H^N ...#MAC IRIGHT
8J27 ...#STR %C
8J2L ...#SKI
8J35 ... LDX 0 CPPTR(2)
8J3J ...#STR %C
8J43 ... LDX 0 %C
8J4G ... SMO FX2
8J4^ ... STO 0 ACOMMUNE2
8J5D ... LDX 0 %D
8J5X ... SMO FX2
8J6B ... STO 0 ACOMMUNE1
8J6T ... DOWN IDFOFF,70
8J7# ... BRN %A
8J7R ... BRN %B
8J8= ...#NOR
8J8F ...[??? IWRONG SECT COMM FGN 25 DOC
8J8P ...#MAC IWRONG
8J98 ...#STR %C
8J9M ...#SKI
8J=6 ... LDX 0 CPPTR(2)
8J=K ...#STR %C
8J?4 ... LDX 0 %C
8J?H ... SMO FX2
8J#2 ... STO 0 ACOMMUNE2
8J#F ... LDX 0 %D
8J#Y ... SMO FX2
8J*C ... STO 0 ACOMMUNE1
8J*W ... DOWN IDFOFF,75
8JB* ... BRN %A
8JBS ... BRN %B
8JC? ...#NOR
8JCS ...[??? MFREECEL SECT COMM FGN 25 DOC
8JDB #MAC MFREECELL
8JY2 LDX 0 BRECNO(%A)
8KCL SMO FX2
8KX= STO 0 ACOMMUNE3 [STO REC.NO.
8LBW SMO FX2
8LWG STO %B ACOMMUNE2
8MB6 DOWN IDFSEG,23
8MTQ LDX %B ACOMMUNE2(2) [LD. VALUE %B
8N*B NEW %A
8NT2 #NOR
8P4S ...[??? MGETCELL SECT COMM FGN 25 DOC
8P#L #MAC MGETCELL
8PS= LDX 0 BRECNO(%A) [LD. REC.NO. TO BE HUNTED FOR
8Q?W SMO FX2
8QRG STO 0 ACOMMUNE3 [ST. VALUE OF %A
8R?6 SMO FX2
8RQQ STO %B ACOMMUNE5 [ST. VALUE OF %B
8S=B DOWN IDFSEG,20
8SQ2 LDX %B ACOMMUNE4(2) [LD. VALUE %B
8T9L NEW %A
8TP= #NOR
8T^4 ...[??? MIDFAS SECT COMM FGN 25 DOC
8W8W #
92=L ...#MAC MIDFAS
92?S ... LDX 2 FX2
92*2 ... STO %B ACOMMUNE1(2)
92B8 ... STO %C ACOMMUNE2(2)
92CB ... DOWN IDFASAT,10
92DJ ... BRN %A [BRK-IN
92FQ ... BRN %D
92GY ...#NOR
92JS ...[??? MNAME SECT COMM FGN 25 DOC
92KG #MAC MNAME
9356 LDX 0 %A
93JQ SMO FX2
944B STO 0 ACOMMUNE2 [STO PTR THAT CONTAINS POSITION DOWN
94J2 LDX 0 %B
953L SMO FX2
95H= STO 0 ACOMMUNE4
962W MZNA DOWN IDFSEG,21
96GG LDX %B ACOMMUNE2(2)
9726 NEW %A
97FQ #NOR
97PJ ...[??? MOPOFF SECT COMM FGN 25 DOC
97^B [THIS MACRO MOPS OFF A UNIT
9*DW ...#MAC MOPOFF
9*FR ...#STR %C
9*GN ... LDX 0 %C
9*HK ...#STR %C
9*JG ...#SKI
9*KC ... LDX 0 CPPTR(2)
9*L# ... SMO FX2
9*M9 ... STO 0 ACOMMUNE1
9*N6 ... DOWN IDFOFF,20
9*P3 ... BRN %A [BRK-IN
9*PY ... BRN %B [ALREADY MOPPED OFF
9*QT ...#NOR
9*RY ...[??? MOPON SECT COMM FGN 25 DOC
9GSQ ...#MAC MOPON
9GTM ...#STR %C
9GWJ ... LDX 0 %C
9GXF ...#STR %C
9GYB ...#SKI
9G^? ... LDX 0 CPPTR(2)
9H28 ... LDX 2 FX2
9H35 ... STO 0 ACOMMUNE2(2)
9H42 ... DOWN IDFSCON,3
9H4X ... BRN %A
9H5S ... BRN %B
9H6P ...#NOR
9H88 ...[??? MSEARCH SECT COMM FGN 25 DOC
9H8Q #MAC MSEARCH
9HNB LDX 0 BRECNO(%A) [LOAD REC NO
9J82 SMO FX2
9JML STO 0 ACOMMUNE3 [ST. REC.NO.
9K7= SMO FX2
9KLW STO %B ACOMMUNE2 [ST. VALUE %B
9L6G SMO FX2
9LL6 STO %C ACOMMUNE4 [ST. VALUE %C
9M5Q DOWN IDFSEG,22
9MKB LDX %B ACOMMUNE2(2) [LD. VALUE %B
9N52 LDX %C ACOMMUNE4(2) [LD. VALUE %C
9NJL NEW %A
9P4= #NOR
9P#4 ...[??? MSPLITCO SECT COMM FGN 25 DOC
9PHW #MAC MSPLITCORE
9Q3G ADN %A A1
9QH6 SMO FX2
9R2Q LDX 0 ACOMMUNE3
9RGB STO 0 BRECNO(%A)
9S22 SLL 0 9
9SFL LDN 1 GSBS-1
9S^= ADX 1 0
9TDW ADN 0 CELLEN
9TYG MXAS BXGE 0 1,MXBA
9WD6 STO 0 0(%A)
9WXQ ADN %A CELLEN
9XCB ADN 0 CELLEN
9XX2 BRN MXAS
9YBL MXBA STOZ 0(%A)
9YW= SBN %A GSBS-CELLEN
9^*W STOZ 2(%A)
9^TG LDN 0 2(%A)
=2*6 LDN 1 3(%A)
=2SQ MOVE 0 5
=3#B LDX 1 FX1
=3S2 #SKI %A-2
=4?L LDX 2 FX2
=4R= #NOR
=534 ...[??? MXB SECT COMM FGN 25 DOC
=5=W #MAC MXB
=5QG MHUNT2A
=6=6 LDX %A FPTR(%A)
=6PQ LDX 0 ATYPE(%A)
=79B TXL 0 CACT [HAVE WE HIT NEXT ACTIVITY
=7P2 BCC MMXB
=88L SRL 0 12
=8N= SBN 0 FILE+FRRB
=97W BNZ 0 MHUNT2A
=9MG SMO FX2
==76 LDX 0 ACOMMUNE3
==LQ BXE 0 BRECNO+A1(%A),MEND
=?6B BRN MHUNT2A
=?L2 MMXB SMO FX2
=#5L LDX 2 ACOMMUNE3
=#K= ADN 2 1
=*4W READED 2,4
=*JG MHUNT %A,FILE,FRRB
=B46 LDX 0 BRECNO+A1(%A)
=BHQ SMO FX2
=C3B STO 0 ACOMMUNE3 [RESTORE CURRENT RECORD NO
=CH2 MEND ADN %A A1
=D2L #STR NOFX12,%B
=DG= (
=D^W #SKI %A-1
=FFG LDX 1 FX1
=F^6 #SKI %A-2
=GDQ LDX 2 FX2
=GYB )
=HD2 #NOR
=HMS ...[??? NEW SECT COMM FGN 25 DOC
=HXL #MAC NEW
=JC= LDX %A FX2
=JWW MA HUNT2 %A,FILE,FRRB
=KBG LDX 0 BRECNO+A1(%A)
=KW6 SMO FX2
=L*Q TXU 0 ACOMMUNE3
=LTB BCS MA
=M*2 ADN %A A1
=MSL #NOR
=N4D ...[??? NEWMODE SECT COMM FGN 25 DOC
?3HL #MAC NEWMODE
?43= #STR %B
?4GW #SKI
?52G LDX 0 CPPTR(2)
?5G6 #STR %B
?5^Q LDX 0 %B
?6FB SMO FX2
?6^2 STO 0 ACOMMUNE2 [PROG PROP NO OR DEVICE LIST PTR
?7DL LDX 0 %C
?7Y= SMO FX2
?8CW STO 0 ACOMMUNE1 [IDENTIFIER NO.
?8XG LDX 0 %D
?9C6 SMO FX2
?9WQ STO 0 ACOMMUNE3 [ST. MODE
?=BB DOWN IDFSCON,35
?=W2 BRN %A
??*L #NOR
?#54 ...[??? NEWMXB SECT COMM FGN 25 DOC
?##W #MAC NEWMXB
?#SG LDX %A FX2
?*#6 XST HUNT2OPT %A,FILE,FRRB
?*RQ BNG %A MXE
?B?B LDX 0 BRECNO+A1(%A)
?BR2 SMO FX2
?C=L TXU 0 ACOMMUNE3
?CQ= BCS XST
?D9W ADN %A A1
?DPG MXE
?F96 #NOR
#285 ...[??? PROPCANC SECT COMM FGN 25 DOC
#2#2 #
#2RL #
#5*L ...#MAC PROPCANC
#5BK ... SMO FX2
#5CJ ... STO %B ACOMMUNE2
#5DH ... DOWN IDFCANC,1
#5FG ... BRN %A [BREAK-IN
#5M# ...#NOR
#5NS ...[??? PROPNO SECT COMM FGN 25 DOC
#5PB #
#692 # FIND THE PROPERTY NUMBER OF A GIVEN PROPERTY NAME
#6NL #
#78= #MAC PROPNO
#78W ...#UNS HWATIDY
#79G ...(
#7=6 ... LDN 0 %B
#7=Q ... SMO FX2
#7?B ... STO 0 ACOMMUNE1
#7#2 ... DOWN WHATPROP,5
#7#3 ...#UNS ANIP
#7#4 ...(
#7#5 ...#STR %D
#7#6 ...(
#7#7 ...#ACC %D
#7#8 ...(
#7#9 ... LDX 0 ACOMMUNE2(2)
#7#= ... STO 0 %D
#7#? ...)
#7## ...#ACC %D
#7#* ...#SKI
#7#B ... LDX %D ACOMMUNE2(2)
#7#C ...)
#7#D ...)
#7#L ...#ACC %A
#7*= ...(
#7*W ... LDX 0 ACOMMUNE1(2)
#7BG ... STO 0 %A
#7C6 ...#STR %C
#7CQ ... BZE 0 %C
#7DB ...)
#7F2 ...#ACC %A
#7FL ...#SKI
#7G= ...(
#7GW ... LDX %A ACOMMUNE1(2)
#7HG ...#STR %C
#7J6 ... BZE %A %C
#7JQ ...)
#7KB ...)
#7L2 ...#UNS HWATIDY
#7LL ...#SKI
#7M= ...(
#7MW REWIND %B
#87G MSTEP
#8M6 STEP %B
#96Q #STR %C
#9LB BZE 3 %C
#=62 MOK
#=KL MHUNT 2,CPB,CUNI
#?5= LDN 1 #7777
#?JW ANDX 1 ANUM(2)
##4G LDX 0 APARA(2)
##J6 ERX 0 APROPNAME(3)
#*3Q BNZ 0 MSTEP
#*HB SBN 1 5
#B32 BNG 1 MEND
#BGL LDX 0 APARA+1(2)
#C2= ERX 0 APROPNAME+1(3)
#CFW BNZ 0 MSTEP
#C^G SBN 1 4
#DF6 BNG 1 MEND
#DYQ LDX 0 APARA+2(2)
#FDB ERX 0 APROPNAME+2(3)
#FY2 BNZ 0 MSTEP
#GCL MEND
#GX= LDXC 1 APROPGROUP(3)
#HBW LDN 1 0
#HWG SRC 1 1
#JB6 LDX 0 APROPNO(3)
#JTQ ANDX 0 BITS22LS
#K*B ADX 0 1
#KT2 #SKI %A
#L#L STO 0 %A
#LS= #SKI %A-1
#M?W LDX 1 FX1
#MRG #SKI %A-2
#N?6 LDX 2 FX2
#NGY ...)
#NQQ #NOR
#P2J ...[??? PUTCONS SECT COMM FGN 25 DOC
#P=B #
#SXG ...#MAC PUTCONS
#S^D ... SMO FX2
#T3B ... STO %B ACOMMUNE2
#T5# ... DOWN IDFASAT,20
#T7= ... BRN %A [BRK-IN
#T98 ... BRN %C
#T?6 ... BRN %D
#T*4 ...#NOR
#TC3 ...[ ??? RMTLFUNAV
#TC4 ...[RESTORE TIME MACRO FOR LISTFILES TO REMOTE 7900 DEVICES
#TC5 ...[IF ON GETPER LOOKS IF UNAVAILABLE SET IN ADEVS
#TC6 ...[IF SO, NOTAV REPLY GIVEN AND WARNING MESSAGE THAT
#TC7 ...[DEVICE DISENGAGED SENT TO CLUSTER CONSOLE
#TC8 ...[DEFAULT IS OFF TO JUMP AROUND THIS CODE
#TC9 ...[
#TC= ...#MAC RMTLFUNAV
#TC? ...#STR %A,ON
#TC# ...#SKIP
#TC* ...(
#TCB ...#MEND IDFPER
#TCC ...#TRA K20IDFPER
#TCD ... NULL [IF ON ALLOW CODE TO DROP THROUGH
#TCF ...#END
#TD7 ...#MEND IPBLISTD
#TDT ...#TRA K20IPBLISTD
#TFH ... NULL
#TG9 ...#END
#TGX ...#EXI
#THK ...)
#TJ? ...#STR %A,OFF
#TJ^ ...#SKIP
#TKM ...(
#TL* ...#MEND IDFPER
#TM3 ...#TRA K20IDFPER [IF OFF JUMP ROUND NEW CODE
#TMP ... BRN K21IDFPER
#TNC ...#END
#TP5 ...#MEND IPBLISTD
#TPR ...#TRA K20IPBLISTD
#TQF ... BRN K21IPBLISTD
#TR7 ...#END
#TRT ...#EXI
#TSH ...)
#TT9 ...#STR %A
#TTX ...#SKIP
#TWK ...(
#TX? ...#MEND IDFPER
#TX^ ...#TRA K20IDFPER [DEFAULT IS OFF
#TYM ... BRN K21IDFPER
#T^* ...#END
#W23 ...#MEND IPBLISTD
#W2P ...#TRA K20IPBLISTD
#W3C ... BRN K21IPBLISTD
#W45 ...#END
#W4R ...#EXI
#W5F ...)
#W67 ...#NOR
#W6T ...[??? SETIDENT SECT COMM FGN 27 DOC
#W7H ...#SKI
#W89 ...[ REINITIALISE IDENT WHICH HAS BEEN USED BY CONCEPTUAL ROUTINES
#W8X ...#MAC SETIDENT
#W9K ...#STR %B
#W=? ...#SKI
#W=^ ...(
#W?M ...#STR %A
#W#* ...(
#W*3 ... LDX 0 A1+IDADIN(%A)
#W*P ... LDX 1 A1+IDNUM(%A)
#WBC ...)
#WC5 ...#STR %A
#WCR ...#SKI
#WDF ...(
#WF7 ... LDX 0 A1+IDADIN(2)
#WFT ... LDX 1 A1+IDNUM(2)
#WGH ...)
#WH9 ...)
#WHX ...#STR %B
#WJK ...(
#WK? ... LDX 0 %A
#WK^ ... LDX 1 %B
#WLM ...)
#WM* ... LDX 2 FX2
#WN3 ... STO 0 ACOMMUNE8(2)
#WNP ... STO 1 ACOMMUNE9(2)
#WPC ... DOWN CDCIPB,2
#WQ5 ...#NOR
#WQR ...[??? UNITOFF SECT COMM FGN 25 DOC
#WRF ...[THIS MACRO RELEASES A MX/UX FROM BEING ONLINED
#WT6 ...#MAC UNITOFF
#WWT ... DOWN IDFOFF,2
#WYJ ... BRN %A
#X2? ...#NOR
#X4Y ...[??? UPDATE SECT COMM FGN 25 DOC
#X5W
#XKG
*9B2 #MAC UPDATE
*9TL #STR %B
*=*= #SKI
*=SW LDX 0 CPPTR(2)
*?#G #STR %B
*?S6 LDX 0 %B
*#?Q SMO FX2
*#RB STO 0 ACOMMUNE2 [PROG PROP NO OR DEVICE LIST PTR
**?2 LDX 0 %C
**QL SMO FX2
*B== STO 0 ACOMMUNE1 [ST.IDENTIFIER NO.
*BPW DOWN IDFSCON,30
*C9G BRN %A
*CP6 #NOR
*DDJ ...[??? WHICHCON SECT COMM FGN 25 DOC
*DNB [THIS MACRO ENTERS WITH UNIT AND LINE NO AND REPLIES WITH NAME
*F82 [OF CONCEPTUAL TO WHICH IT IS ATTACHED
*M6W ...#MAC WHICHCON
*M7P ...#STR %C
*M8J ...#SKI
*M9C ... LDX 0 CPPTR(2)
*M== ...#STR %C
*M?5 ... LDX 0 %C
*M?Y ... LDX 2 FX2
*M#R ... STO 0 ACOMMUNE1(2)
*M*L ... STO %D ACOMMUNE2(2)
*MBF ... DOWN IDFOFF,40
*MC# ... BRN %A
*MD7 ... BRN %B [NOT ATTACHED
*MF2 ...#NOR
*MF5 ...[
*MF8 ...[??? WRPVDUS SECT COMM FGN 53 DOC
*MF? ...#MAC WRPVDUS
*MFB ...#MEND IDFCONF
*MFF ...#TRA K20IDFCONF
*MFJ ... LDCT 0 #400
*MFM ...#TRA K21IDFCONF
*MFQ ... NULL
*MFT ...#END
*MFY ...#NOR
*MG3 ...[
*MGF ...[??? XRIGHT SECT COMM FGN 25 DOC
*MH6 [
*N2Q [RIGHT MACRO
*T2W ...#MAC XRIGHT
*T3T ...#STR %B
*T4S ...#SKI
*T5R ... LDX 0 CPPTR(2)
*T6Q ...#STR %B
*T7P ... LDX 0 %B
*T8N ... SMO FX2
*T9M ... STO 0 ACOMMUNE1 [UNIT
*T=L ... DOWN IDFOFF,90
*T?K ... BRN %A
*T#J ...#NOR
*TB4 ...[??? XWRONG SECT COMM FGN 25 DOC
*TBL [WRONG MACRO
*TW= [
B3*Q ...#MAC XWRONG
B3BM ...#STR %C
B3CJ ...#SKI
B3DF ... LDX 0 CPPTR(2)
B3FB ...#STR %C
B3G? ... LDX 0 %C
B3H8 ... SMO FX2
B3J5 ... STO 0 ACOMMUNE1 [UNIT NO
B3K2 ... DOWN IDFOFF,80
B3KX ... BRN %A [BRK-IN
B3LS ... BRN %B [CANNOT WRONG
B3NL ...#NOR
B3PF ...[??? YIDFUNON SECT COMM FGN 25 DOC
B3PQ
B49B #MAC YIDFUNON
B4P2 SMO FX2
B58L STO %C ACOMMUNE2
B5N= DOWN IDFONLIN,2 [DEALS WITH 7900 UNIT
B67W BRN %A
B6MG BRN %B
B776 #NOR
B79P ...[??? YMOPOFF SECT COMM FGN 25 DOC
B#LL ...#MAC YMOPOFF
B#MH ...#STR %C
B#ND ...#SKI
B#P* ... LDX 0 CPPTR(2)
B#Q= ...#STR %C
B#R7 ... LDX 0 %C
B#S4 ... LDX 2 FX2
B#S^ ... STO 0 ACOMMUNE1(2)
B#TW ... DOWN IDFOFF,22
B#WR ... BRN %A [BRK-IN
B#XN ... BRN %B [ALREADY MOPPED OFF
B#YK ...#NOR
B*24 ...[??? YMOPON SECT COMM FGN 25 DOC
BKRW #MAC YMOPON
BL?G #STR %C
BLR6 #SKI
BM=Q LDX 0 CPPTR(2)
BMQB #STR %C
BN=2 LDX 0 %C
BNPL LDX 2 FX2
BP9= STO 0 ACOMMUNE2(2)
BP?T ...#STR IPBSW,%D
BPBD ... STO 2 ACOMMUNE3(2)
BPF3 ...#STR IPBSW,%D
BPHL ...#SKI
BPL9 ... STOZ ACOMMUNE3(2)
BPNW DOWN IDFSCON,4
BQ8G BRN %A
BQN6 BRN %B
BR7Q #NOR
BRP^ ...[??? YRIGHT SECT COMM FGN 25 DOC
BYM2 ...#MAC YRIGHT
BYMT ...#STR %B
BYNN ...#SKI
BYPH ... LDX 0 CPPTR(2)
BYQB ...#STR %B
BYR9 ... LDX 0 %B
BYS4 ... LDX 2 FX2
BYSX ... STO 0 ACOMMUNE1(2) [UNIT
BYTQ ... DOWN IDFOFF,91
BYWK ... BRN %A
BYXD ...#NOR
BYYN ...[??? YUNITOFF SECT COMM FGN 25 DOC
C26L ...#MAC YUNITOFF [RELEASE AN EXOTIC FROM BEING ONLINED
C27M ... DOWN IDFOFF,21 [7900 CHAIN
C28N ... BRN %A
C29P ...#NOR
C2?= ...[??? YWRONG SECT COMM FGN 25 DOC
C7G= ...#MAC YWRONG
C7H9 ...#STR %C
C7J8 ...#SKI
C7K7 ... LDX 0 CPPTR(2)
C7L6 ...#STR %C
C7M5 ... LDX 0 %C
C7N4 ... LDX 2 FX2
C7P3 ... STO 0 ACOMMUNE1(2) [UNIT NO.
C7Q2 ... DOWN IDFOFF,81
C7Q^ ... BRN %A [BRK-IN
C7RY ... BRN %B [CANNOT BE WRONGED
C7SX ...#NOR
C7TF ...[??? ZMOPOFF SECT COMM FGN 32 DOC
C7TG ...#UNS AHRET
C7TH ...(
C7TJ ...#SKI
C7TK ...# MOP OFF 7900 IN IDF WHEN IDF ALREADY OPEN
C7TL ...#MAC ZMOPOFF
C7TM ... LDX 0 %C
C7TN ... LDX 2 FX2
C7TP ... STO 0 ACOMMUNE1(2)
C7TQ ... DOWN IDFOFF,23
C7TR ... BRN (GEOERR) [BREAKIN IMPOSSIBLE
C7TS ... BRN %B
C7TT ...#NOR
C7TW ...)
C7W2 #
^^^^ ...16254617004200000000