(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