6 224M ...#SEG IDFCHK 13 227# ...# COPYRIGHT INTERNATIONAL COMPUTERS 1982 7 229_ ... 8HIDFCHK 16 22#L ...#LIS K0IDFCHK>K0ALLGEO>K0GREATGEO>K0COMMAND>K0IDF 4 22C? ...# 12 22FY ...# ENTERED AFTER IDFCLEAN AT EMS 17 22JK ...# K1 CHECKS IDF TO CREATE IDF ITERMID IF ANY 7020S 16 22M= ...# REMOVE PROP ATTNS IF CONFIG CHANGES MADE 17 22PX ...# SET UP APERI CONSOLE FROM CONSOLE PROP CHAIN 16 22SJ ...# K2 CALLED FROM SETIDF TO SET UP DEVICE LISTS 17 22X9 ...# AND AMOP IPBIN FOR EACH VIRTUAL 7900 IN IDF 16 22_W ...# K3 CALLED FROM MAKEVCC TO CREATE VIRTUAL 7900 17 234H ...# K4 CALLED FROM IPBSTART WHEN AN IPB SWITCHED IN 4 2378 ...# 11 239T ... SEGENTRY K1IDFCHK,XIDF1 11 23#G ... SEGENTRY K2IDFCHK,XIDF2 11 23C7 ... SEGENTRY K3IDFCHK,XIDF3 11 23FS ... SEGENTRY K4IDFCHK,XIDF4 4 23JF ...# 8 23M6 ...MASK #77770000 3 23PR ... 20 23SD ...RESCUE [CREATE X2 & X5 READY FOR TEST 8 23X5 ... LDX 2 FX2 19 23_Q ... LDX 5 AWORK1(2) [RESCUE IDF FORMATED POINTER 7 244C ...RESQ LDX 6 5 7 2474 ... SRL 6 9 8 249P ... ANDN 6 #7777 9 24#B ... STO 6 AWORK4(2) 8 24C3 ... CALL 7 REH 8 24FN ... ANDN 5 #777 7 24J* ... ADX 5 2 7 24M2 ... LDX 2 5 8 24PM ... LDX 3 0(2) 19 24S# ... EXIT 4 0 [X3 &X5 SET UP USING AWORK1. 5 24W_ ...XBATT 8 24_L ... SMO FX2 16 254? ... STO 7 ACOMMUNE8 [PRESERVE LINK . 8 256Y ... SMO FX1 14 259K ... LDX 0 MASK+1 [LD. MASK 7 25#= ... SMO 2 19 25BX ... ANDS 0 BNUMB(3) [REMOVE CLUSTER CONSOLE BIT 7 25FJ ... SMO 2 9 25J9 ... LDX 0 BASS(3) 21 25LW ... BZE 0 XBA1 [J.IF NOT ASSOCIATES TO BE DISCARDED 19 25PH ... ADN 3 BASS [OTHERWISE FREE ASSOC.CELL 9 25S8 ... CALL 7 XFCELL 20 25WT ... SBN 3 BASS [MAKE X3 POINT TO START OF CELL 7 25_G ...XBA1 SMO 2 9 2647 ... LDX 3 BATT(3) 19 266S ... BZE 3 XFIN [LD.PTR. TO ASSOCIATE CELL. 16 269F ... CALL 5 NX1 [HUNT ASS BLOCK 7 26#6 ... ADX 2 3 16 26BR ... LDX 0 BTYPE(2) [LD. CONS.PROP. 8 26FD ... BNZ 0 XCOPR 8 26J5 ... BRN XFIN 5 26LQ ...XCOPR 17 26PC ... STOZ BTYPE(2) [STOZ CONS.PROP.PTR 7 26S4 ... LDN 0 1 17 26WP ... SBS 0 BNO(2) [DECREASE CT. OF ATT. 9 26_B ... LDX 0 BNO(2) 16 2743 ... BNZ 0 XFIN [J. IF ANY LEFT 16 276N ... SMO FX2 [REMOVE CELLS. 9 279* ... LDX 3 AWORK1 8 27#2 ... CALL 5 NX1 7 27BM ... ADN 3 7 9 27F# ... CALL 7 XFCELL 8 27H_ ...XFIN SMO FX2 9 27LL ... LDX 7 ACOMMUNE8 7 27P? ... EXIT 7 0 5 27TG RECZERO 16 28*6 LDN 6 0 [HUNT FIRST REC. 8 28SQ RECFD LDX 2 FX2 10 29#B REH HUNT2 2,FILE,FRRB 10 29S2 TXU 6 BRECNO+A1(2) 8 2=?L BCS REH 8 2=R= ADN 2 A1 7 2?=W EXIT 7 0 5 2?QG ...NXCELL 12 2#=6 SMO FX2 [ 9 2#PQ STO 3 AWORK1 8 2#_J ... BPZ 3 SAME 7 2*9B ...NX2 LDX 6 3 8 2*F8 ... SBX 5 FX1 7 2*P2 SRL 6 9 8 2B8L ANDN 6 #7777 8 2B*S ... LDX 2 FX2 10 2BH2 ... STO 6 ACOMMUNE3(2) 7 2BN8 ... MXB 2 8 2BTB ... ADX 5 FX1 4 2C2J ...SAME 8 2C7W ANDN 3 #777 7 2CMG EXIT 5 0 5 2CMJ ...NEXCELL 8 2CML ... SMO FX2 9 2CMN ... STO 3 AWORK1 4 2CMQ ...NX1 7 2CMS ... LDX 6 3 7 2CMW ... SRL 6 9 14 2CMY ... ANDN 6 #7777 [RECORD NO 15 2CN2 ... CALL 7 RECFD [FIND ITS FRRB 16 2CN4 ... ANDN 3 #777 [OFFSET OF REQD CELL 7 2CN6 ... EXIT 5 0 4 2CNF ...# 5 2CPD ...XFCELL 8 2CQC ... MFREECELL 2,3 7 2CRB ... EXIT 7 0 4 2CS* ...# 4 2CT# ...# 5 2CW? ...XHCONS 11 2CX= ... HUNTMISB 2,APERI,CONSOLE 7 2CY9 ... EXIT 7 0 4 2C_8 ...# 4 2D27 ...# 5 2D36 ...XHTERM 11 2D45 ... HUNTMISB 1,IDF,ITERMID 7 2D54 ... EXIT 7 0 3 2DJN ... 16 2F4# ...YCELL [SETS UP IDF CELL FOR 7900 ACTIVITY 20 2FHY ...[ON ENTRY: X2 & X3 POINT TO PLACE WHERE UNIT FORWARD PTR. WILL BE 14 2G3J ...[STORED. X1 POINTS TO CURRENT 7900 ACTIVITY. 20 2GH8 ...[ON EXIT: X2 & X3 POINT TO UNIT CELL JUST CREATED. X1 POINTS TO NEXT 10 2H2S ...[IPB ACTIVITY IN THE CHAIN. 8 2HGD ... SBX 4 FX1 16 2J24 ... SMO FX2 [FOR EXIT INFO. 9 2JFN ... STO 1 AWORK2 18 2J_# ... LINT CPPTR(1),5 [INTERNAL UNIT NO. IN X5 15 2KDY ... LTYPE CPPTR(1),6 [TYPE IN X6 16 2KYJ ... LGEOG CPPTR(1),0 [GEOG.NO. IN X0 7 2LD8 ... SRC 6 6 17 2LXS ... ORS 0 6 [X6= TYPE & GEOG NO 10 2MCD ... JWRONG CPPTR(1),YS3A 7 2MX4 ... LDN 7 0 8 2NBN ... BRN YS3 8 2NW# ...YS3A LDCT 7 #200 4 2P*Y ...YS3 18 2PTJ ... MGETCELL 2,3 [GET A CELL FOR 7900 UNIT 7 2Q*8 ... ADX 3 2 17 2QSS ... STO 7 BNUMB(3) [ST. STATE OF UNIT. 19 2R#D ... STO 5 BNO(3) [ST. UNIT NO IN UNIT CELL. 20 2RS4 ... STO 6 BTYPE(3) [ST. TYPE/GEO.NO. IN UNIT CELL. 8 2S?N ... SMO FX2 16 2SR# ... LDX 1 AWORK2 [LD. PTR. TO IPB 9 2T=Y ... LDX 1 IPBL(1) 8 2TQJ ... ADX 4 FX1 7 2W=8 ... EXIT 4 0 4 2XP4 ...# 20 2Y8N ...# SUBROUTINE TO SET UP A DEVICE LIST AND AMOP/IPBIN ACTIVITY FOR 16 2YN# ...# A VIRTUAL 7900 . THIS SUBROUTINE COORDINATES . 21 2_7Y ...# ON ENTRY X6 = THE OPS UNIT NUMBER OF THE VIRTUAL 7900 IN B15-23 ; 14 2_MJ ...# B0=1 IF UNIT IS MOPPED ON IN THE IDF . 19 3278 ...# ON EXIT X3 -> THE V7900 DEVICE LIST ; X1= FX1 ; X2 = FX2 9 32LS ...# X6 IS UNCHANGED 8 336D ...# LINK IN X7 . 6 33L4 ...SV7900CORE 8 345N ... SBX 7 FX1 8 34K# ... SMO FX2 9 354Y ... STO 6 ACOMMUNE1 9 35JJ ... DOWN SETUP,8 10 3648 ... LDX 3 ACOMMUNE1(2) 8 36HS ... ADX 7 FX1 7 373D ... EXIT 7 0 4 37H4 ...# 20 382N ...# SUBROUTINE TO SET UP A DEVICE LIST AND AMOP/IPBIN ACTIVITY FOR 21 38G# ...# FOR EACH VIRTUAL 7900 DEFINED IN THE IDF . THIS S/R COORDINATES . 18 38_Y ...# ON EXIT X1 = FX1 ; X2 = FX2 ; X0,X3-7 ARE UNDEFINED 13 39FJ ...# AWORK1 AND AWORK2 ARE UNDEFINED 8 39_8 ...# LINK IN X7 . 16 3=DS ...# ########################################## 4 3=YD ...# 7 3?D4 ...# K2 4 3?XN ...# 15 3#C# ...# ######################################## 4 3#WY ...# 5 3*BJ ...XIDF2 6 3*W8 ...SETUPV7900S 18 3B*S ... SBX 7 FX1 [PRESERVE LINK IN AWORK3 8 3BTD ... LDX 2 FX2 9 3C*4 ... STO 7 AWORK3(2) 19 3CSN ...# SEARCH FOR A VIRTUAL 7900 UNIT CELL IN THE IDF 20 3D## ... LDN 0 BIPB [INITIALISE ^PTR TO PREVIOUS UNIT 18 3DRY ... STO 0 AWORK2(2) [CELL^ (FOR SDELETECELL) 16 3F?J ... CALL 7 RECZERO [HUNT BASE CELL 18 3FR8 ... LDX 3 BIPB(2) [TEST FOR MBM(7900) CHAIN 20 3G=S ... BZE 3 SETUPV7900X [NO 7900'S DEFINED IN IDF : EXIT 6 3GQD ...SNEXTUNIT 18 3H=4 ... CALL 5 NXCELL [GET (NEXT) 7900 UNIT CELL 20 3HPN ... [PRESERVES PTR TO THIS UNIT CELL 15 3J9# ... [IN AWORK1 7 3JNY ... SMO 2 19 3K8J ... LDX 6 BNO(3) [BNO.B0 = 1 IF A VIRTUAL 7900 19 3KN8 ... BPZ 6 SPREUNITPTR [NOT A VIRTUAL 7900 UNIT CELL 16 3L7S ...# CHECK-OUT THE VIRTUAL 7900 UNIT CELL 19 3LMD ...# NOTE B0 OF X6 WILL INDICATE EMS TO S/R SV7900CORE 7 3M74 ... SMO 2 9 3MLN ... LDX 0 BLINE(3) 21 3N6# ... BZE 0 SDELETECELL [NO IDENTIFIER CONFIGURATION : DELETE 21 3NKY ... SMO 2 [SET B0 OF X6 IF UNIT IS MOPPED ON 9 3P5J ... ANDX 6 BNUMB(3) 8 3PK8 ... ANDX 6 GSIGN 21 3Q4S ... SMO 2 [SET OPS UNIT NUMBER IN B15-23 OF X6 9 3QJD ... LDEX 0 BTYPE(3) 7 3R44 ... ORX 6 0 21 3RHN ...# SET UP THE DEVICE LIST AND ACTIVITY FOR THIS VIRTUAL 7900 10 3S3# ... CALL 7 SV7900CORE 4 3SGY ...# 18 3T2J ... LDX 3 AWORK1(2) [REFIND V7900 UNIT CELL 8 3TG8 ... CALL 5 NX2 6 3T_S ...SPREUNITPTR 21 3WFD ... SMO FX2 [PRESERVE PTR TO THIS UNIT CELL NOW 20 3W_4 ... LDX 0 AWORK1 [AS THE ^PREVIOUS UNIT CELL PTR^ 17 3XDN ... SMO FX2 [(FOR SDELETECELL) 9 3XY# ... STO 0 AWORK2 6 3YCY ...STESTMORE 19 3YXJ ... SMO 2 [ANY MORE 7900 UNIT CELLS ? 8 3_C8 ... LDX 3 0(3) 20 3_WS ... BNZ 3 SNEXTUNIT [ANOTHER 7900 UNIT CELL TO TEST 6 42BD ...SETUPV7900X 20 42W4 ... LDX 1 FX1 [SET X1 AND X2, RESTORE LINK EXIT 8 43*N ... LDX 2 FX2 9 43T# ... LDX 7 AWORK3(2) 7 44#Y ... ADX 7 1 5 44SJ ... UP 6 45#8 ...SDELETECELL 20 45RS ...# DELETE THE UNIT CELL OF A VIRTUAL 7900 WHICH LACKS AN 21 46?D ...# IDENTIFIER CONFIGURATION AND PROCESS NEXT 7900 UNIT CELL 20 46R4 ... SMO FX2 [REFIND THE PREVIOUS UNIT CELL 20 47=N ... LDX 3 AWORK2 [(WHICH POINTS TO THIS V7900 UNIT 17 47Q# ... CALL 5 NX2 [CELL TO BE DELETED) 8 489Y ... MFREECELL 2,3 9 48PJ ... BRN STESTMORE 4 49NS ...# 15 4=8D ...# ####################################### 4 4=N4 ...# 7 4?7N ...# K1 4 4?M# ...# 15 4#6Y ...# ######################################## 4 4#LJ ...# 5 4*68 ...XIDF1 5 7QJ= PART4 17 7R3W CALL 7 RECZERO [HUNT OFR ZERO RECORD 17 7RHG LDX 3 BUNIT(2) [LD.PTR. TO UNIT CELL 15 7S36 BZE 3 PART4A [J. NO.7007 8 7SGQ SMO FX2 20 7T2B STOZ AWORK3 [NO. OF 7020'S ON INSTALLATION. 9 7TG2 PT41 CALL 5 NEXCELL 8 7T_L SMO FX2 9 7WF= LDX 0 AWORK1 8 7WYW SMO FX2 21 7XDG STO 0 AWORK2 [AWORK2 = PTR. TO CURRENT UNIT CELL 8 7XY6 ADN 3 BLINE 7 7YCQ PT42 SMO 2 17 7YXB LDX 3 0(3) [LOAD PTR. TO LINE 20 7_C2 BNZ 3 PT43 [J. PTR. TO NEXT LINE NOT ZERO. 8 7_WL SMO FX2 18 82B= LDX 3 AWORK2 [LD. PTR. TO CURRENT UNIT 9 82TW CALL 5 NEXCELL 7 83*G SMO 2 18 83T6 LDX 3 0(3) [LD. PTR. TO NEXT UNIT 20 84#Q BNZ 3 PT41 [J. BACK TO LOOK AT NEXT UNIT. 16 84SB BRN PART4A [NO MORE UNITS. 4 85#2 PT43 19 85RL CALL 5 NEXCELL [AWORK1 = PTR. TO LINE CELL 7 86?= SMO 2 18 86QW LDX 5 BLINE(3) [LD. PTR. TO NEXT UNIT 18 87=G BZE 5 PT42 [J. NO 7020 ON THIS LINE 9 87Q6 ... CALL 7 XHTERM 17 889Q BNG 1 PT44 [J. NO BLK. SET UP 10 88PB LDX 7 ALOGLEN(1) 8 8992 SMO FX2 18 89NL SBX 7 AWORK3 [BUB. NO. OF WORDS USED 7 8=8= SMO 2 9 8=MW LDX 5 BNUMB(3) 8 8?7G ANDN 5 #7777 7 8?M6 ADX 5 5 7 8#6Q SBX 7 5 18 8#LB BPZ 7 PT46 [J. STILL ENOUGH ROOM. 10 8*62 ADX 5 ALOGLEN(1) 18 8*KL LDX 4 1 [X1 CANNOT BE PARAMETER 20 8B5= ALTLEN 4,5 [X5=NEW LENGTH OF ITERMID BLOCK 9 8BJW ... CALL 7 XHTERM 8 8C4G BRN PT45 7 8CJ6 PT44 SMO 2 18 8D3Q LDEX 4 BNUMB(3) [NO OF 7020S ON THIS LINE 7 8DHB ADX 4 4 7 8F32 ADN 4 2 11 8FGL SETUPCOR 4,1,IDF,ITERMID 7 8G2= LDN 0 2 8 8GFW STO 0 A1(1) 9 8G_G STO 0 AWORK3(2) 19 8HF6 LDX 2 BMISC+1 [CHAIN BLOCK INTO MISC CHAIN. 8 8HYQ CHAIN 1,2 9 8JDB LDX 1 BMISC+1 8 8JY2 PT45 SMO FX2 18 8KCL LDX 3 AWORK1 [RE-HUNT OFR LINE CELL. 8 8KX= CALL 5 NX1 7 8LBW PT46 SMO 2 13 8LWG LDX 3 BLINE(3) [LD. 8 8MB6 PT47 SMO FX2 17 8MTQ STO 3 AWORK4 [LD.PTR. TO UNIT CELL 17 8N*B CALL 5 NX1 [HUNT FOR 7020 CELL 7 8NT2 SMO 2 21 8P#L LDX 4 BNO(3) [LD. IDENTIFIER AND POLLING ADDRESS 8 8PS= SMO FX1 19 8Q?W ANDX 4 MASK [MASK OUT IDENTIFIER ONLY. 7 8QRG SMO 2 8 8R?6 LDX 0 4(3) 17 8RQQ ANDN 0 #77 [MASK OUT LINE NO. 19 8S=B ADX 4 0 [X4= IDENTIFIER AND LINE NO. 7 8SQ2 SMO 2 8 8T9L LDX 5 4(3) 7 8TP= SRL 5 6 8 8W8W ANDN 5 #777 21 8WNG FMOPG 2,5,NOTIPB [HUNT 7007 FOR AMOP WITH GIVEN AMOP. 9 8X86 ... CALL 7 XHTERM 8 8XMQ SMO FX2 18 8Y7B LDX 6 AWORK3 [LD. POSITION DOWN CELL 7 8YM2 SMO 6 17 8_6L STO 4 A1-1(1) [IDENT. AND LINE NO. 7 8_L= SMO 6 15 925W STO 2 A1(1) [PTR. TO AMOP 7 92KG SMO 6 19 9356 STOZ A1+1(1) [ZEROISE LAST WORD OF BLOCK 7 93JQ LDN 6 2 21 944B SMO FX2 [INCREASE CT. OF POSITION DOWN CELL. 9 94J2 ADS 6 AWORK3 8 953L ADS 6 A1(1) 8 95H= SMO FX2 9 962W LDX 3 AWORK4 19 96GG CALL 5 NX1 [HUNT FOR CU-RENT 7020 WELL. 7 9726 PT48 SMO 2 20 97FQ LDX 4 4(3) [LD. TO TEST IF LAST 7020 CELL. 7 97_B SMO 2 19 98F2 LDX 3 0(3) [LD. PTR. TO NEXT 7020 CELL 20 98YL BZE 3 PT49 [J. NO MORE 7020'S ON THIS LINE. 19 99D= BNG 4 PT47 [J. END OF THIS 7020 CELL. 8 99XW CALL 5 NX1 19 9=CG BRN PT48 [J. BACK TO NEXT 7020 CELL. 8 9=X6 PT49 SMO FX2 18 9?BQ LDX 3 AWORK1 [LD. PTR. TO LINE CELL. 8 9?WB CALL 5 NX1 8 9#B2 BRN PT42 5 9#TL PART4A 9 9**= CALL 7 RECZERO 18 9*SW LDX 0 7(2) [LAST WD. OF BASE CELL 15 9B#G BZE 0 XPROP [NO CHANGE 8 9BS6 STOZ 7(2) 19 9C?Q LDX 3 BEXOT(2) [LD. BASE OF CONSOLE CHAIN. 8 9CRB BZE 3 XWR 4 9D?2 NXT 21 9DQL CALL 5 NEXCELL [HUNT FOR UNIT CELL. AWORK1= PTR. TO. 7 9F== SMO 3 8 9FPW STOZ 2(2) 7 9G9G SMO 2 8 9GP6 STOZ 3(3) 7 9H8Q SMO 3 8 9HNB STOZ 5(2) 7 9J82 SMO 3 8 9JML LDN 5 5(2) 7 9K7= SMO 3 8 9KLW LDN 6 6(2) 16 9L6G MOVE 5 2 [MOVE ZEROS IN 7 9LL6 ADN 3 4 7 9M5Q XFRE SMO 2 8 9MKB LDX 0 0(3) 21 9N52 BZE 0 XRESC [NO MORE ATTRIBUTIONS FOR THIS CONSL. 9 9NJL ... CALL 7 XFCELL 8 9P4= BRN XFRE 5 9PHW XRESC 15 9Q3G CALL 4 RESCUE [RESCUE PTR. 21 9QH6 BNZ 3 NXT [BRANCH IF MORE PROP.CONSOLE CELLS. 17 9R2Q CALL 7 RECZERO [HUNT ZERO RECORD. 17 9RGB LDX 3 BUNIT(2) [LD. BASE 7007 CHAIN. 17 9S22 BZE 3 NO7007 [J. NO 7007 CHAIN. 9 9SFL XUN CALL 5 NEXCELL 8 9S_= SMO FX2 9 9TDW LDX 0 AWORK1 8 9TYG SMO FX2 20 9WD6 STO 0 AWORK3 [PRESERVE PTR. TO UNIT IN AWORK3 19 9WXQ CALL 7 XBATT [ROUTINE TO REMOVE CONS.PROP. 8 9XCB SMO FX2 9 9XX2 LDX 3 AWORK3 8 9YBL CALL 5 NX1 7 9YW= SMO 2 18 9_*W LDX 3 BLINE(3) [LD. PTR. TO UNIT CHAIN. 15 9_TG BZE 3 NOLIN [J. NO LINES 4 =2*6 XLIN 16 =2SQ CALL 5 NEXCELL [HUNT FOR A LINE. 8 =3#B SMO FX2 9 =3S2 LDX 0 AWORK1 8 =4?L SMO FX2 20 =4R= STO 0 AWORK2 [PRESERVE PTR. TO LINE IN AWORK2. 19 =5=W CALL 7 XBATT [ROUTINE TO REMOVE CONS.PROP. 8 =5QG SMO FX2 9 =6=6 LDX 3 AWORK2 8 =6PQ CALL 5 NX1 7 =79B SMO 2 18 =7P2 LDX 3 BLINE(3) [LD. PTR. TO 7020 CHAIN. 17 =88L BZE 3 NO7020 [J. NO 7020 CHAIN. 16 =8N= Y7020 CALL 5 NEXCELL [HUNT 7020 CHAIN. 17 =97W CALL 7 XBATT [REMOVE CONS.PROP. 9 =9MG CALL 4 RESCUE 21 ==76 BNZ 3 Y7020 [J. BACK TO CONTINUE FREE. 7020 CELLS 5 ==LQ NO7020 8 =?6B LDX 2 FX2 9 =?L2 LDX 0 AWORK2(2) 18 =#5L STO 0 AWORK1(2) [RESTORE AWORK2 LINE PTR. 9 =#K= CALL 4 RESCUE 21 =*4W BNZ 3 XLIN [J. BACK TO CONTINUE DOWN LINE CHAIN. 5 =*JG NOLIN 8 =B46 LDX 2 FX2 9 =BHQ LDX 0 AWORK3(2) 15 =C3B STO 0 AWORK1(2) [UNIT PTR. 15 =CH2 CALL 4 RESCUE [RESCUE UNIT. 21 =D2L BNZ 3 XUN [J. BACK TO CONTINUE DOWN UNIT CHAIN. 5 =DG= NO7007 9 =D_W CALL 7 RECZERO 18 =FFG LDX 3 BIPB(2) [LD. PTR. TO 7007 CHAIN. 17 =F_6 BZE 3 NO7900 [J. NO 7900 CHAIN. 9 =GDQ XUNT CALL 5 NEXCELL 8 =GYB SMO FX2 9 =HD2 LDX 0 AWORK1 8 =HXL SMO FX2 18 =JC= STO 0 AWORK2 [ST. PTR. TO 7900 UNIT. 17 =JWW CALL 7 XBATT [REMOVE CONS.PROP. 8 =KBG SMO FX2 16 =KW6 LDX 3 AWORK2 [LD. PTR.TO UNIT 15 =L*Q CALL 5 NX1 [HUNT UNIT. 7 =LTB SMO 2 9 =M*2 LDX 3 BLINE(3) 8 =MSL BZE 3 XNOID 18 =N#= XLINE CALL 5 NEXCELL [HUNT IDENTIFIER CHAIN. 17 =NRW CALL 7 XBATT [REMOVE CONS.PROP. 9 =P?G CALL 4 RESCUE 18 =PR6 BNZ 3 XLINE [J.BACK NEXT LINE CELL. 8 =Q=Q XNOID LDX 2 FX2 9 =QQB LDX 0 AWORK2(2) 15 =R=2 STO 0 AWORK1(2) [ST. AWORK1. 16 =RPL CALL 4 RESCUE [RESCUE UNIT NO 8 =S9= BNZ 3 XUNT 18 =SNW NO7900 [FINISHED WITH 7900'S. 8 =T8G BRN XWR 21 =TN6 # THIS SECTION DEALS WITH PROP.CONSOLE CHAIN SETS UP AN APERI/CONS 5 =W7Q XPROP 20 =WMB LDX 3 BEXOT(2) [LD. PTR. TO PROP.CONS. CHAIN. 17 =X72 BZE 3 XP6 [NO PROP.CONS. CHAIN 18 =XLL LDX 0 IPBADDR [LD.PTR. TO AMOP'S IPB'S. 17 =Y6= BNZ 0 XSTA [J. THERE ARE SOME. 9 =YKW LDX 0 ADMULTACT 19 =_5G BZE 0 XWR [J. TO END NO COMM DEVICES. 4 =_K6 XSTA 19 ?24Q CALL 5 NEXCELL [CALL ROUTINE TO HUNT CELL 18 ?26N ... SMO 3 [VALIDITY CHECKS FOR CONSOLE PROPS 9 ?28L ... LDX 6 BNO(2) 8 ?2=J ... BZE 6 ZZERR 16 ?2#G ... LDN 6 ATTMAX [CHECK MAX ATTNS NOT 7 ?2BD ... SMO 3 13 ?2DB ... SBX 6 BNUMB(2) [EXCEDED 8 ?2G# ... BNG 6 ZZERR 7 ?2JB SMO 3 17 ?342 LDX 6 BTYPE(2) [TEST IF 7023 CONSOLE 17 ?3HL BZE 6 XP5 [J. CENTRAL OPERATOR 7 ?43= LDX 3 6 9 ?4GW ... CALL 7 XHCONS 16 ?52G BNG 2 XP1 [J. IF NO BLOCK. 7 ?5G6 LDN 0 2 10 ?5_Q LDX 7 ALOGLEN(2) 8 ?6FB SBX 7 A1(2) 7 ?6_2 SBX 7 0 16 ?7DL BPZ 7 XP2 [J. LENGTH OKAY 21 ?7Y= LDN 7 4 [ALTLEN MACRO MUST NOT USE X0,X1,X2 10 ?8CW ADX 7 ALOGLEN(2) 7 ?8XG LDX 5 2 20 ?9C6 ALTLEN 5,7 [INCREASE APERI/CONSOLE LENGTH 9 ?9WQ ... CALL 7 XHCONS 7 ?=BB LDN 0 2 16 ?=W2 BRN XP2 [J. INCREASE CT. 21 ??8C ...XX FINDPEREC 1,APGEOG,6,,AV7900,XX1 [FIND 7900 DEVICE LIST.(INC. V790 4 ??GS ...XX1 7 ??T= LDX 6 1 11 ?##W HUNTMISB 1,APERI,CONSOLE 17 ?#SG ... BNG 6 XX2 [GEO.NO. NON-EXISTANT. 8 ?*#6 LTYPE 6,6 7 ?*RQ SBX 6 5 8 ?B?B BNZ 6 XP3A 4 ?BH8 ...XX2 8 ?BR2 LDX 0 A1(1) 7 ?C=L SBN 0 2 7 ?CQ= ADX 1 0 16 ?D9W EXIT 7 0 [ON INSTALLATION 4 ?DPG XP1 11 ?F96 SETNCORE 4,1,APERI,CONSOLE 9 ?FNQ LDX 2 BMISC+1 20 ?G8B CHAIN 1,2 [CHAIN IN BLOCK INTO MISC. CHAIN. 9 ?GN2 LDX 2 BMISC+1 7 ?H7L LDN 0 2 20 ?HM= STO 0 A1(2) [ST. COUNT OF 2 IN A1 OF BLOCK 4 ?J6W XP2 17 ?JLG ADS 0 A1(2) [INCREASE CT. BY 2 8 ?K66 ADX 2 A1(2) 17 ?KKQ STOZ A1-1(2) [ZEROIZE LAST WORD. 7 ?L5B SBN 2 2 7 ?LK2 LDX 1 2 15 ?M4L [PTR. TO 7023 19 ?MJ= CALL 5 NX1 [HUNT FOR 7023 CONSOLE CELL 8 ?N3W LDCT 0 #200 7 ?NHG SMO 2 9 ?P36 ANDX 0 BNUMB(3) 14 ?PGQ BZE 0 XP3 [J. 7007 8 ?Q2B LDCT 4 #400 7 ?QG2 SMO 2 16 ?Q_L LDX 7 BTYPE(3) [GEO.NO. OF UNIT 7 ?RF= LDX 5 7 16 ?RYW SRL 56 9 [X5=TYPE OF UNIT 7 ?SDG SLC 6 9 15 ?SY6 ANDN 5 #77 [X6=GEO.NO. 19 ?TCQ CALL 7 XX [CALL ROUTINE TO CHECK PLIST 8 ?TXB BRN XA 7 ?WC2 XP3A LDN 0 2 21 ?WWL SBS 0 A1(1) [KNOCK 1 OFF COUNT OF ENTRIES USED 19 ?XB= BXGE 0 A1(1),XP3C [J TO FREE BLK IF NOW EMPTY 8 ?XTW XP3B SMO FX2 9 ?Y*G LDX 3 AWORK1 19 ?YT6 CALL 5 NX1 [RE-HUNT PROP. CONSOLE CHAIN. 17 ?_#Q BRN XP5 [J. TO LOOK AT PTR. 8 ?_FY ...XP3C FREECORE 1 8 ?_M6 ... BRN XP3B 7 ?_SB XA SMO 2 9 #2#2 LDX 7 BTYPE(3) 16 #2RL ... ANDN 7 #777 [MASK OUT GEOG NO. 8 #3?= SLL 7 12 7 #3QW SMO 2 19 #4=G ADX 7 BNO(3) [ADD IN IDENTIFIER INTO X7. 17 #4Q6 BRN XP4 [J. FINISHED 7900. 15 #59Q XP3 LDN 4 0 [B0=0=7007 7 #5PB SMO 2 17 #692 LDX 7 4(3) [GEO.NO. AND LINE NO. 7 #6NL LDX 5 7 7 #78= SRL 56 6 8 #7MW ANDN 5 #777 7 #87G SLC 6 6 8 #8M6 ANDN 6 #77 8 #96Q LDN 0 #13 8 #9LB BNZ 6 ZP1 7 #=62 SBN 0 1 7 #=KL ZP1 LDX 6 5 7 #?5= LDX 5 0 16 #?JW CALL 7 XX [CALL ROUTINE. 7 ##4G ZP SMO 2 8 ##J6 LDX 7 4(3) 8 #*3Q ANDN 7 #77 7 #*HB SMO 2 9 #B32 LDX 0 BNO(3) 8 #BGL SMO FX1 8 #C2= ANDX 0 MASK 7 #CFW ADX 7 0 4 #C_G XP4 8 #DF6 STO 7 A1(1) 8 #DYQ SMO FX2 9 #FDB LDX 3 AWORK1 8 #FY2 CALL 5 NX1 9 #GCL LDX 0 BITS22LS 7 #GX= SMO 2 16 #HBW ANDX 0 BNO(3) [REST OF INFO. 7 #HWG ADX 0 4 9 #JB6 STO 0 A1-1(1) 7 #JTQ XP5 SMO 2 20 #K*B LDX 3 0(3) [LD.PTR. TO NEXT PROP.CONSOLE. 8 #KT2 BNZ 3 XSTA 9 #L#L ... CALL 7 XHCONS 8 #LS= BNG 2 XWR 18 #M?W ADN 2 A1+1 [LD. PTR TO FIRST PAIR 18 #MRG XHUGA LDN 3 2(2) [LD. PTR. TO NEXT PAIR 16 #N3# ... BZE 3 XET [J. IF PTR. ZERO 18 #N?6 XHUG LDX 4 1(2) [LD. SECOND WD. OF PAIR. 9 #NQQ BXE 4 1(3),XST 18 #P=B [J. IF EQUAL TO 1ST PAIR. 7 #PQ2 XBAK ADN 3 2 8 #Q9L LDX 4 0(3) 15 #QP= BZE 4 XET [END OF CELL 8 #R8W BRN XHUG 4 #RNG XST 8 #S86 LDCT 0 #200 16 #SMQ ORS 0 0(3) [B1 OF WD. PAIR 8 #T7B BRN XBAK 7 #TM2 XET ADN 2 2 8 #W6L LDX 4 0(2) 15 #WL= BZE 4 XWR [J. TO GO UP 7 #X5W SLL 4 1 21 #XKG BNG 4 XET [J. HAS BEEN LOOKED AT AND B1 IS SET. 8 #Y56 BRN XHUGA 4 #YJQ XP6 4 #_4B XWR 16 #_J2 IDFWRITE [WRITE AWAY IDF. 6 *23L CLOSE 5 *2H= UP 4 *2LT ...# 9 *2QD ...ZZERR TRACE 2,IDFCHK 16 *2W3 ... DOWN SETIDF,3 [SET ALARM BIT 19 *2_L ... GEOERR 1,IDFINVAL [BEFORE FALLING IN A HEAP 3 *359 ... 4 *3D2 ...# 18 *3HK ...# K3IDFCHK : TO CREATE A VIRTUAL 7900 IN CORE AND IDF . 14 *3M8 ...# ENTRY FROM K1MAKEVCC (MAKEVCC COMMAND) 21 *3QR ...# ON ENTRY ACOMMUNE1 = THE OPERATOR UNIT NUMBER OF THE VIRTUAL 7900 9 *3WB ...# TO BE CREATED . 21 *3__ ...# EXITS UP WITH ACOMMUNE1 = 0 IF THE VIRTUAL 7900 ALREADY EXISTS . 20 *45J ...# EXITS UP WITH ACOMMUNE1 = THE VIRTUAL 7900 DEVICE LIST POINTER 13 *497 ...# IF THE VIRTUAL 7900 IS CREATED . 4 *4#Q ...# 15 *4D* ...# ####################################### 4 *4HY ...# 7 *4MH ...# K3 4 *4R6 ...# 15 *4WP ...# ####################################### 4 *52# ...# 5 *55X ...XIDF3 19 *59G ... LDEX 6 ACOMMUNE1(2) [PRESERVE UNIT NUMBER IN X6 7 *5*5 ... IDFOPEN 20 *5DN ...# TEST IF THE VIRTUAL 7900 ALREADY EXISTS IN THE IDF 20 *5J? ... LDN 3 BIPB [SEARCH THE 7900(MBM) CHAIN FOR A 20 *5MW ... MSEARCH 2,3,6 [UNIT CELL WITH THE SAME UNIT NO. 8 *5RF ... SMO FX2 9 *5X4 ... LDX 0 ACOMMUNE1 20 *62M ... BNZ 0 XUNITEXISTS [UNIT NUMBER MATCH : UNIT ALREADY 14 *66= ... [EXISTS 21 *69T ...# PRESERVE POINTERS TO THE LAST 7900 UNIT CELL IN AWORK3&4 11 *6*D ...# FOR YCELL CALL 9 *6F3 ... LDX 0 BRECNO(2) 8 *6JL ... SMO FX2 21 *6N9 ... STO 0 AWORK3 [STORE RECORD NO. OF LAST UNIT CELL 8 *6RS ... SMO FX2 21 *6XC ... STO 3 AWORK4 [STORE UNIT CELL PTR WITHIN RECORD 17 *732 ...# SET UP CORE BLOCKS FOR THE VIRTUAL 7900 20 *76K ... CALL 7 SV7900CORE [X6 INDICATES V7900 IS MOPPED OFF 21 *7=8 ... STO 3 AWORK1(2) [PRESERVE THE V7900 DEVICE LIST PTR 21 *7*R ...# SET APERI/AV7900.ATYPE.B12-23 NON-ZERO TO INDICATE THAT 21 *7FB ...# THE VIRTUAL 7900 IS STILL BEING CREATED (FIELD WILL BE 12 *7J_ ...# CLEARED BY K1MAKEVCC) 7 *7NJ ... LDN 0 1 9 *7S7 ... DSA 0 ATYPE(3) 21 *7XQ ...# SET UP UNIT CELL FOR THE VIRTUAL 7900 AT THE END OF THE 10 *83* ...# 7900 CHAIN 21 *86Y ... LAMOP 3,1 [SET X1 -> V7900 AMOP/IPBIN ACTIVITY 21 *8=H ... LDX 3 AWORK4(2) [RESTORE RECORD PTR TO LAST UNIT CELL 20 *8B6 ... LDX 2 AWORK3(2) [RESTORE UNIT CELL'S RECORD NO. 8 *8FP ... SMO FX2 20 *8K# ... STO 2 ACOMMUNE3 [REFIND THE LAST UNIT CELL'S RECORD 7 *8NX ... NEW 2 19 *8SG ... CALL 4 YCELL [SET UP A NEW 7900 UNIT CELL 21 *8Y5 ... [AND MARK IT MOPPED OFF AND RIGHTED 20 *93N ... [ON EXIT X3 -> UNIT CELL CREATED 20 *97? ... LDCT 0 #400 [INDICATE UNIT IS A VIRTUAL 7900 9 *9=W ... ORS 0 BNO(3) 19 *9BF ...# WRITE AWAY THE IDF, CLOSE IT, AND RETURN UP WITH 13 *9G4 ...# ACOMMUNE1 SET AS ON ENTRY 8 *9KM ... SMO FX2 21 *9P= ... LDX 3 AWORK1 [RESTORE THE V7900 DEVICE LIST PTR 7 *9ST ... IDFWRITE 6 *9YD ... CLOSE 19 *=43 ... STO 3 ACOMMUNE1(2) [RETURN WITH THE V7900 DL PTR 5 *=7L ... UP 4 *=?9 ...# 6 *=BS ...XUNITEXISTS 21 *=GC ...# VIRTUAL 7900 ALREADY EXISTS IN THE IDF . CLOSE IDF AND 13 *=L2 ...# RETURN WITH ACOMMUNE1 = 0 6 *=PK ... CLOSE 10 *=T8 ... STOZ ACOMMUNE1(2) 5 *=YR ... UP 4 *?4B ...# 15 *??J ...# ####################################### 4 *?C7 ...# 7 *?GQ ...# K4 4 *?L* ...# 15 *?PY ...# ###################################### 4 *?TH ...# 5 *?_6 ...XIDF4 7 *#4P ... IDFOPEN 8 *#8# ... SMO FX2 8 *#?X ... LDX 3 CPPTR 18 *#CG ... LGEOG 3,6 [LD X6 GEOG NO OF UNIT 8 *#H5 ... LDN 3 BIPB 17 *#LN ... MSEARCH 2,3,6 [SEARCH IDF FOR 7900 8 *#Q? ... SMO FX2 9 *#TW ... LDX 0 ACOMMUNE1 18 *#_F ... BNZ 0 XUNEXI [J IF UNIT EXISTS IN IDF 9 **54 ... FMOPG 1,6,IPB 17 **8M ... CALL 4 YCELL [SET UP ENTRY IN IDF 4 **#= ...XCL 7 **CT ... IDFWRITE 6 **HD ... CLOSE 8 **M3 ... LGEOG ,6 9 **QL ... FMOPG 2,6,IPB 8 **W9 ... LDX 0 BIT10 20 **_S ... ERS 0 IPBSW(2) [REMOVE BIT 10 MARKER FROM IPBSW 5 *B5C ... UP 11 *B92 ...[ RETURN BACK UP TO IPBSTART 5 *B#K ...XUNEXI 8 *BD8 ... SMO FX2 8 *BHR ... LDX 4 CPPTR 17 *BMB ... JWRONG 4,XMPOFF [J. IF UNIT WRONGED 8 *BQ_ ... LDCT 0 #200 7 *BWJ ... SMO 2 20 *C27 ... ERS 0 BNUMB(3) [MARK UNIT AS RIGHTED IN THE IDF 5 *C5Q ...XMPOFF 18 *C6L ... LDX 4 BRECNO(2) [FORM IDF STYLE POINTER 7 *C7G ... SLL 4 9 7 *C8B ... ADX 4 3 21 *C9* ... ZMOPOFF XBRK,NMPOFF,4 [ MOP OFF UNIT IF NOT ALREADY 5 *C#Y ...NMPOFF 8 *CDH ... BRN XCL 4 *CJ6 ...# 4 *CP6 #END 8 ____ ...45335311000500000000