7 22FL #LIS K0PERTYPNO 15 22_= #SEG PERTYPNO6 [R H TERRY 7 23DW 8HPERTYPNO 21 23YG # THIS SEGMENT CONVERTS A PERIPHERAL TYPE & UNIT NUMBER TO A FOUR CH 21 24D6 # PERIPHERAL NAME [E.G.MT14 OR LP2 ].IT IS USED BY THE'PERTYPNO'MACR 19 24XQ # ON ENTRY EXEC3 OF THE CURRENT ACTIVITY BLOCK CONTAINS:- 18 25CB # UP TO MK6 : B0-5 TYPE NO ,B6-14 UNIT NO ,B15-23 UNDEFINED 14 25X2 # MK6.5 ON : B0-8 TYPE NO ,B9-23 UNIT NO 15 26BL # ON EXIT EXEC3 HOLDS THE PERIPHERAL NAME 20 26W= # IF THE TYPE DOES NOT CORRESPOND TO A REAL PERIPHERAL THE NAME 10 27*W # WILL START WITH'XX'. 4 27TG # 8 28*6 [ ENTRY POINTS 4 28SQ [ 21 29#B SEGENTRY K1PERTYPNO,ZEP1 [ENTRY FOR FULL PERIPHERAL NAME CONVN 20 29S2 SEGENTRY K11PERTYPNO,ZEP11 [ENTRY FOR PERIPHERAL TYPE ONLY 20 2=3S ... SEGENTRY K2PERTYPNO,ZEP2 [ENTRYFROM MFPERTYPNO INMONOLITH 4 2=?L [ 21 2=R= # THIS IS A TABLE CONTAINING THE TYPES IN CHARACTERS OF THE VARIOUS 10 2?34 ... SEGENTRY K80PERTYPNO 15 2?=W MNEM 28HTRTPLPCRCPMT****DDDRITMXCT** 13 2?QG ... 28HID1516171819GPGD22UDCC25**27 15 2#=6 28HPB29303132333435363738394041 7 2#FY #SKI JSKI19<1$1 13 2#PQ 28H4243444546474849FRFWGECOEMOI 6 2#WY #SKI JSKI19 13 2*46 28H4243444546474849FRFWFHCOEMOI 10 2*9B 16HOOCSRRETCI616263 8 2*P2 MAX +64 8 2B8L TEN +10 9 2BN= SPAC1 #77770000 9 2C7W UDAS 4H**00 10 2C?R ...ZEP2 STOZ AWORK1(2) 9 2CCN ... STO 1 AWORK2(2) 8 2CHK ... BRN XJOIN 20 2CMG ZEP11 [ENTRY FOR PERIPHERAL TYPE ONLY 7 2D76 NGNC 0 1 21 2DLQ ZEP1 [ENTRY FOR FULL PERIPHERAL NAME CONVN 7 2F6B NGN 0 0 17 2FL2 STO 0 AWORK1(2) [B0 SET FOR K11 ENTRY 9 2FR8 ... STOZ AWORK2(2) 5 2FYB ...XJOIN 9 2G5L LDX 5 EXEC3(2) 15 2GK= LDX 0 5 [ REMOVE 14 2H4W ANDX 0 ZFORMAT(1) [ THIS 14 2HJG BZE 0 ZFOK [ CHECK 14 2J46 GEOERR 1,PRLFRMAT [ IN 14 2JHQ ...ZFORMAT #70077400 [ MARK 14 2K3B ZFOK [ SEVEN 7 2KH2 LDN 4 0 16 2L2L SLL 45 9 [TYPE NO IN X4 11 2L=D ... LDX 6 4 [SAVE TTYPE 16 2LG= SRL 5 9 [UNIT NO IN X5 19 2L_W TXL 4 MAX(1) [TEST WHETHER TYPE NO. VALID 8 2MFG BCC ZER 7 2M_6 SRC 4 1 7 2NDQ SMO 4 19 2NYB LDX 0 MNEM(1) [LOADS CHARACTERS FROM TABLE 8 2PD2 BPZ 4 ZA 8 2PXL SLL 0 12 9 2QC= ZA ANDX 0 SPAC1(1) 7 2QWW STO 0 7 17 2RBG BXU 7 UDAS(1),NUDAS [J IF NOT UDAS TYPE 20 2RW6 LDX 7 FRED [ ELSE GET INSTALATION- CHOSEN 15 2S*Q ANDX 7 HALFTOP [ MNEMONIC 5 2STB NUDAS 9 2T*2 LDXC 0 AWORK1(2) 16 2TSL BCC ZD [J IF K1 ENTRY 21 2W#= ORN 7 #2020 [ ELSE SET SPACES IN UNIT NO FIELD 8 2WRW BRN ZE 16 2WT7 ...ZD SEGENTRY K90PERTYPNO [MANYDA MEND POINT 8 2WWD ... BRN XK91 9 2WXP ... LDX 0 AWORK2(2) 18 2W_2 ... BZE 0 XK91 [J UNLESS MONOLITH ENTRY 7 2X2? ... LDX 0 6 11 2X3J ... LDN 6 0 [MARKER 7 2X4T ... SBN 0 6 15 2X66 ... BNZ 0 XK91 [J UNLESS DA 9 2X7C ... LDN 0 100 16 2X8N ... BXL 5 0,XK91 [J IF UNIT NO <100 7 2X9_ ... DVS 4 0 9 2X?= ...[X4HAS REM,X5 RESULT 8 2X#H ... SRL 56 12 7 2X*S ... LDX 5 4 9 2XC5 ... DVS 4 TEN(1) 14 2XDB ... SLL 5 6 [X4 HAS UNITS,X5 TENS 7 2XFM ... ORX 6 5 7 2XGY ... ORX 6 4 8 2XJ9 ... BRN ZE 4 2XKG ...XK91 10 2XLR ... SEGENTRY K91PERTYPNO 13 2XN4 ...[IF X6 ZERO 4 CHARS OTYERWISE UNIT NO 20 2XP* ... DVS 4 TEN(1) [CONVERTS UNIT NO. TO CHARACTERS 8 2XR6 BZE 5 ZB 7 2Y=Q SLL 5 6 8 2YQB BRN ZC 7 2_=2 ZB SLL 4 6 21 2_PL LDN 5 #20 [INSERTS SPACE IF SINGLE CHARACTER 7 329= ZC ADX 5 4 7 32NW ADS 5 7 10 338G ZE STO 7 ACOMMUNE9(2) 9 33?R ... LDX 0 AWORK2(2) 19 33#W ...N BZE 0 XK93 [[J UNLESS K2 ENTRRY=MONOLITH 10 33*_ ... STO 7 ACOMMUNE8(2) 16 33C4 ... STOZ ACOMMUNE9(2) [SET FOR SHORT ANSWER 10 33CC ... SEGENTRY K92PERTYPNO 8 33CQ ... BRN XK93 13 33D7 ... BZE 6 XK93 [J IF SHORT 8 33F= ... LDX 7 ACES 8 33G* ... SRL 67 6 10 33HD ... ORS 6 ACOMMUNE8(2) 10 33JH ... STO 7 ACOMMUNE9(2) 4 33KL ...XK93 10 33LP ... SEGENTRY K93PERTYPNO 5 33N6 UP 14 347Q ZER LDN 7 #7070 [PLACE XX 8 34MB ZERA SLL 7 12 8 3572 BRN ZD 8 35LL MENDAREA 10 4 366= #END 8 ____ ...32630444000800000000