(George Source)
Macros used: ACROSS, BRUSEN, BXE, CLOSETOP, COMBRKIN, COMERRX, CONSERNO, DATECON, DUMP, ENDCOM, ERROR, FINDNAME, FNORM, HUNT, JANAL, JBC, JBS, JMBAC, MHUNT, MHUNTW, NAMETOP, ON, OPENDIR, OPENSYS, PARAFREE, READ, REPALLER, SEG, SEGENTRY, SETNCORE, SETREP, SPARANXT, SSEARCH, TESTHKN, TESTREP, TIMECON, TRAPOPEN, UNIFREE, UP
22FL ... SEG SETPF,,CENT(INSTALLATION HOOKS),,G400 22^= [ 23DW [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 23YG [ 24D6 # 24XQ SEGENTRY K1SETPF,SENTRY1 25CB # 25X2 # THIS CHAPTER IMPLEMENTS THE SP LDE FACILITY 26BL # 26W= SMASK #77777700 27*W SDIRY 4HDIR 27TG SPSEU 4HPSEU 28*6 SFILE 4HFILE 28SQ SMULT 4HMULT 29#B SMAG 4HMAGS 29S2 SEXO 8HEXOFILE 2=?L STEMP 4H(T) 2=R= SERASE 4H(E) 2?=W SRETURN 4H(R) 2?QG SFROZEN 4H(F) 2#=6 W +10000 2#PQ SASTER 4H*LP 2*9B SLF 8HLF !,*LP 2*P2 TYPEMODE #40000012 [ GRAPHIC 2B8L # 2BN= XCHARSIN 2C7W DCH 5 0(1) [INSERT CHAR 2CMG SRL 5 6 2D76 BZE 5 (0) [JIF NO MORE 2DLQ SLC 1 2 2F6B SBN 1 1 [ALTER CHAR INDEX 2FL2 SRC 1 2 2G5L BRN XCHARSIN 2GK= # 2H4W # ############################################################# 2HJG # 2J46 # K K 1 2JHQ # K K 11 2K3B # K K 1 2KH2 # K K 1 2L2L # KKK 1 2LG= # K K 1 2L^W # K K 1 2MFG # K K 1 2M^6 # K K 1 2NDQ # 2NYB # ############################################################# 2PD2 # 2PXL SENTRY1 2QC= # 2QWW # ENTRY POINT FROM SETPC 2RBG # 2RW6 LDN 4 2 2S*Q SPARANXT ,,4 2STB XDSK1 2T*2 MHUNT 3,CPB,CUNI [PARAMETER BLOCK 2TSL LDX 0 ANUM(3) 2W#= BZE 0 XERR [ERROR,NULL PARAM 2WRW BNG 0 XERR [ERROR,NONEXISTENT PARAM 2X?G LDCH 0 APARA(3) 2XR6 SBN 0 #21 2Y=Q BZE 0 XDSK2 [ERROR-WORKFILE 2YQB BRUSEN XDSKF [JIF NO-USER CONTEXT 2^=2 BRN XDSK3 [J ROUND 2^PL XDSKF 329= TESTHKN NOTUSERCN [MUST BE IN A HOOK IF NO-USER CONTEXT 32*7 ... SEGENTRY G400LDEA 32F4 ... NULL [ALTERED TO BRN NOTUSERCN IF IHSPN 32J^ ...[ [ RESTORE TIME MACRO OFF 32NW STOZ CPREFIX(2) 338G STOZ CPREFIX+1(2) [CLEAR CPREFIX AREA 33N6 STOZ CPREFIX+2(2) 347Q XDSK3 34MB NAMETOP 3,FILE,FNAME 3572 FNORM [NORMALISE 35LL TESTREPN OK,OPENERR [J IF FORMAT ERROR 366= MHUNT 3,FILE,FNAME 36KW NAMETOP 3,CPB,CUNI 375G STOZ AWORK1(2) [CLEAR MARKER WD 37K6 STOZ AWORK2(2) [CLEAR FOR OUTMESS 384Q MHUNT 3,FILE,FABSNB 38JB LDX 0 ATYPE(3) 3942 ADN 0 2 39HL STO 0 ATYPE(3) 3=3= ANDN 0 #1000 3=GW SLL 0 13 [MOVE TO B1=NO USER SPECIFIED 3?2G ORS 0 AWORK1(2) [SAVE LOCAL NAME ONLY BIT 3?G6 LDX 0 ALOGLEN(3) 3?^Q SBX 0 HDREC(3) 3#FB SBN 0 2 3#^2 BNG 0 XDSK4B [J NO TSN 3*DL SMO ALOGLEN(3) 3*Y= LDX 0 A1-1(3) 3BCW BPZ 0 XDSK16 3BXG JANAL OPENERR 3CC6 ERROR ERXENOSER 3CWQ BRN OPENERR 3DBB XDSK16 3DW2 LDX 0 GSIGN 3F*L ORS 0 AWORK1(2) [SAVE TSN SPEC'D BIT 3FT= SMO ALOGLEN(3) 3G#W LDX 0 A1-8(3) 3GSG BNZ 0 XDSK4 3H#6 LDCT 0 #600 3HRQ ORS 0 AWORK1(2) 3J?B BRN XDSK4 3JR2 XDSK4B 3K=L LDX 0 A1+1(3) 3KQ= BZE 0 XERR 3L9W XDSK4 3LPG LDX 0 AWORK1(2) 3M96 SLC 0 1 3MNQ BNG 0 XDSK5 3N8B FINDNAME 3NN2 TESTREP OK,XDSK4A 3P7L JANAL OPENERR 3PM= REPALLER 3Q6W BRN OPENERR 3QLG XDSK4A 3R66 MHUNT 3,FILE,FABSNB 3RKQ XDSK5 3S5B BRUSEN XDSK6 [J IF NOUSER 3SK2 BRN XDSK7 3T4L XDSK6 3TJ= LDX 0 AWORK1(2) 3W3W BNG 0 XDSK7 3WHG SLC 0 1 3X36 BNG 0 XERR [FORMAT ERROR 3XGQ XDSK7 3Y2B LDX 0 AWORK1(2) 3YG2 BPZ 0 XDSK8 [NOT MT WITH TSN 3Y^L SMO ALOGLEN(3) 3^F= LDX 4 A1-1(3) [LOAD TSN 3^YW OPENSYS ZBREAKIN,SERIAL,READ 42DG SSEARCH XDSK9,4 [FIND RECORD IN SERIAL 42Y6 LDX 6 5(3) 43CQ SLC 6 3 43XB BNG 6 XDSK10 [ERROR = NAMED WORKE TAPE 44C2 LDX 5 2(3) [FIRST WD OF USERNAME 44WL BZE 5 XDSK11 [POOL OR WORK TAPE 45B= LDX 6 3(3) [REST OF ... 45TW LDX 7 4(3) [USERNAME 46*G MHUNT 3,FILE,FABSNB 46T6 LDX 0 AWORK1(2) 47#Q SLC 0 1 47SB BNG 0 XDSK12 [USER NAME NOT GIVEN 48#2 LDX 0 HDREC(3) 48RL SBN 0 12 49?= BPZ 0 XDSK15 49QW LDN 0 0 4==G XDSK15 4=Q6 ADX 3 0 4?9Q TXU 5 A1+1(3) [COMPARE SERIAL AND SPECIFIED 4?PB TXU 6 A1+2(3) [USER NAMES 4#92 TXU 7 A1+3(3) 4#NL BCC XDSK8 [JIF NAMES AGREE 4*8= CLOSETOP 4*MW JANAL OPENERR 4B7G ERROR ERDISAGREE [REPORT ERROR 4BM6 BRN OPENERR 4C6Q XDSK12 4CLB STO 5 HDREC+1(3) [REPLACE USER NAME 4D62 STO 6 HDREC+2(3) 4DKL STO 7 HDREC+3(3) 4F5= XDSK8 4FJW ... BRUSEN XDSK8A [NO TRAP CHECKING IN NO USER CONTEXT 4HHB MHUNT 3,FILE,FABSNB 4J32 LDX 7 HDREC(3) [PICK UP THE BLOCK LENGTH 4JGL SBN 7 11 [IF IT'S LESS THAN 10 : TOP OF TREE 4K2= BNG 7 XDTC4 [J IF TOP OF FILESTORE TREE REACHED 4KFW NGN 4 6 4K^G ADS 4 HDREC(3) [REDUCE BLOCK LENGTH BY 6 WORDS 4LF6 LDX 4 ATYPE(3) [RESET ATYPE WORD SO GETDIR 4LYQ DSA 4 AWORK1(2) [DOSN'T GET CONFUSED THINKING 4MDB ANDN 4 #5700 [IT SHOULD BE LOOKING FOR A 4MY2 DSA 4 ATYPE(3) [MAGNETIC TAPE 4NCL OPENDIR ZBREAKIN,READ,QUERY [OPEN CURRENT DIRECTORY'S DIRECTORY 4NX= TESTREP OK,XDTC2 [J IF DIRECTORY OPENED OK 4PBW JANAL OPENERR 4PWG REPALLER [REPORT THE COMMAND ERROR 4QB6 BRN OPENERR [AND GIVE UP 4QTQ XDTC2 4R*B TRAPOPEN READ [ARE READ TRAPS OPEN? 4RT2 TESTREP OKAY,XDTC3 [J IF SO 4S#L LDCT 4 #100 [REMEMBER THAT READ TRAPS TO THE 4SS= ... SMO FX2 [DIRECTORY ARE CLOSED AND WE MUST 4T?W ORS 4 AWORK1 [CHECK TRAPS ON THE FILE ITSELF 4TRG XDTC3 4W?6 CLOSETOP [CLOSE THE DIRECTORY 4WQQ MHUNT 3,FILE,FABSNB [FIND THE FILE/FABSNB BLOCK 4X=B LDN 4 6 [INCREMENT RECORD HEADER BY 6 WORDS 4XQ2 ADS 4 HDREC(3) [BLOCK NOW REFERS TO THE ENTRANT 4Y9L LDX 4 AWORK1(2) [REINSTATE ORIGINAL ATYPE TO LET 4YP= DSA 4 ATYPE(3) [MAG TAPES BE DEALT WITH 4^8W XDTC4 4^NG XDSK8A 5286 OPENDIR ZBREAKIN,READ,QUERY [GET DIR ENTRY 52MQ TESTREPN OK,XDTC6 [ JIF NOT FOUND 537B XDTC7 53M2 ... BRUSEN OUTMESST [NO TRAP CHECKING IF NO USER CONTEXT 546L LDX 4 AWORK1(2) 54L= SLL 4 2 555W BPZ 4 OUTMESST [J IF NO MORE TRAP CHECKING NEEDED 55KG CHECKTRAPS 5656 LDX 0 ACOMMUNE7(2) 56JQ BNZ 0 OUTMESST 574B SETREP NOTRAP 576^ ... JANAL XDSK17A 579J ... BRN XDTC6A 57#7 ...XDSK17A 57BQ ... CLOSETOP 57F* ... BRN XDSK17 57J2 XDTC6 583L JANAL XDSK17 58?D ...XDTC6A 58H= REPALLER [REPORT ERRORS 592W XDSK17 59GG LDX 0 AWORK1(2) 5=26 BPZ 0 OPENERR 5=FQ CLOSETOP 5=^B BRN OPENERR 5?F2 OUTMESST 5?YL CLOSETOP [DIRECTORY 5#D= LDX 0 AWORK1(2) 5#XW BPZ 0 TAS 5*CG OUTMESSTA 5*X6 CLOSETOP [SERIAL 5BBQ BRN TAS 5BWB # 5CB2 # VARIOUS SPECIAL CASES 5CTL # 5D*= XDSK9 5DSW CLOSETOP 5F#G JANAL OPENERR 5FS6 ERROR ERUNKNOWN 5G?Q BRN OPENERR [EXIT 5GRB XDSK10 [NAMED WORKTAPE 5H?2 CLOSETOP 5HQL BRN XDSK2 5J== XDSK11 [POOL OR WORK TAPE 5JPW CLOSETOP 5K9G BRN XERR 5KP6 XDSK2 5L8Q JANAL XERR 5LNB ERROR JDNOWORK 5M82 BRN XERR 5MML # 5MXD ... SEGENTRY G400LDEB 5N7= NOTUSERCN 5NLW ... LDX 7 PJLWRONGUS(1) 5P6G BRN XER1 5PL6 # 5Q5Q OPENERR 5QKB LDN 7 0 5R52 BRN XER1 5RJL XERR1 5S4= LDX 7 PCHNUMERR(1) [ERROR CODE ... 5SHW BRN XER1 5T3G XERR 5TH6 LDX 7 PAPFERR(1) 5W2Q XER1 5WGB SMO FX2 5X22 LDX 4 AWORK4 5XFL NGN 6 1 5X^= BZE 4 XER2 5YDW PARAFREE 5YYG UNIFREE 5^D6 LDX 2 FX2 5^XQ LDX 0 AWORK3(2) 62CB STO 0 JOBEVENTS(2) 62X2 UP 63BL XER2 63W= BZE 7 XENDCOM 64*W COMERRX 7,6 64TG XENDCOM 65*6 ENDCOM 65SQ # 66#B ...PJLWRONGUS +JLWRONGUSER 66S2 PCHNUMERR +CHNUMERR 67?L PAPFERR +APFERR 67R= # 68=W # 68QG ZBREAKIN 69=6 COMBRKIN 69PQ # 6=9B # 6=P2 # ASSEMBLE THE FIRST PART OF THE MESSAGE 6?8L # 6?N= TAS 6#7W SETNCORE 120,3,COMDAT,CSETP 6#MG STOZ ANUM(3) 6*76 LDX 0 ACES 6*LQ STO 0 APARA(3) 6B6B LDN 6 APARA(3) 6BL2 LDN 7 APARA+1(3) 6C5L MOVE 6 119 [MOVE IN SPACES 6CK= MHUNT 2,FILE,ENT 6D4W LDX 7 ACES 6DJG JBS MAGTAPE,2,BELIB 6F46 LDN 4 0 6FHQ JBS XOFILE,2,BEEXO 6G3B JBC NOTTEMP,2,BETEMP 6GH2 LDX 7 STEMP(1) [(T) 6H2L NOTTEMP 6HG= JBC NOTFROZEN,2,BEUSERFREZ 6H^W LDX 7 SFROZEN(1) 6JFG NOTFROZEN 6J^6 JBC NOTERASED,2,BEERASE 6KDQ LDX 7 SERASE(1) [(E) 6KYB NOTERASED 6LD2 LDX 0 EUSE1(2) 6LXL BNZ 0 XDIR 6MC= LDX 6 SFILE(1) ['FILE' 6MWW JMBAC ND,2,BEMDF,BEMULT 6NBG LDX 6 SMULT(1) ['MULT' 6NW6 BRN ND 6P*Q XDIR 6PTB LDX 6 SDIRY(1) 6Q*2 JBC NOTPSEU,2,BEPSEUDO 6QSL LDX 6 SPSEU(1) 6R#= NOTPSEU 6RRW BRN ND 6S?G XOFILE 6SR6 LDX 6 SEXO(1) 6T=Q LDX 7 SEXO+1(1) 6TQB BRN ND 6W=2 MAGTAPE 6WPL LDN 4 1 6X9= LDX 6 SMAG(1) ['MAGS' 6XNW JBC ND,2,BEERASE 6Y8G LDX 7 SRETURN(1) [(R) 6YN6 ND 6^7Q STO 6 APARA(3) 6^MB STO 7 APARA+1(3) 7272 LDN 6 ELOC1(2) 72LL LDN 7 APARA+2(3) 736= MOVE 6 3 [LOCAL NAME 73KW BZE 4 T8 745G LDX 5 EREEL(2) [REEL NUMBER IF MAGTAPE 74K6 CALL 1 XBINDEC [CONVERT TO CHARACTER FORM 754Q LDCT 1 #600 75JB ADN 1 APARA+9(3) [REEL NO 7642 CALL 0 XCHARSIN 76HL T8 773= LDX 5 EGEN(2) [GENERATION NO 77GW CALL 1 XBINDEC 782G LDN 1 APARA+6(3) 78G6 CALL 0 XCHARSIN 78^Q BNZ 4 T14 [J IF MAGTAPE 79FB LDX 5 ELAN(2) [LANGUAGE 79^2 T11 7=DL LDCT 1 384 7=Y= ADN 1 APARA+7(3) [LANGUAGE 7?CW CALL 0 XCHARSIN 7?XG LDX 0 EUSE1(2) 7#C6 BZE 0 T19 7#WQ LDN 0 #12 [ : 7*BB LDN 1 APARA+9(3) 7*W2 SLC 1 2 7B*L ADN 1 3 7BT= SRC 1 2 7C#W DCH 0 0(1) 7CSG BCHX 1 £ 7D#6 LDN 0 EUSE1(2) 7DRQ MOVE 0 3 [ USERNAME 7F?B BRN T19 7FR2 T14 7G=L CONSERNO ESER(2),ACOMMUNE1 7GQ= MHUNT 1,COMDAT,CSETP 7H9W LDN 3 APARA+12(1) 7HPG LDX 0 ACOMMUNE1(2) 7J96 ADN 2 ACOMMUNE2 7JNQ SMO 0 7K8B MVCH 2 0 7KN2 T19 7L7L MHUNT 3,COMDAT,CSETP 7LM= LDN 0 72 7M6W STO 0 ANUM(3) 7MLG BRN TF 7N66 XBINDEC 7NKQ STOZ 6 7P5B SMO FX1 7PK2 DVR 5 W 7Q4L LDCT 7 #200 7QJ= LDN 2 5 7R3W MODE 1 7RHG LDN 0 3 7S36 XBINDEC1 7SGQ CBD 6 0(2) 7T2B BCHX 2 £ 7TG2 BCT 0 XBINDEC1 7T^L MODE 0 7WF= CBD 6 0(2) 7WYW HUNT 2,FILE,ENT 7XDG EXIT 1 0 7XY6 # 7YCQ # STORED WORDS AND SUBROUTINES FOR THE SECOND PA 7YXB # 7^C2 # 7^WL UARCH 12H ARCHIVE 82B= MARCH 16H ARCHIVE(M) 82TW WW +1000000 83*G W1 52H RETENTION PERIOD= WRITTEN AT 83T6 28H ON 84#Q W2 52H TYPE/MODE LAST ACCESS 84SB 28H ON 85#2 W3 52H INCREMENT NO. LAST DUMP 85RL 28H ON 86?= W4 52H ONLINE COPIES FILE SIZE BLOCKS 86QW 28H 87=G TABLE 87Q6 #40000002 889Q +TNORM 88PB #40000012 8992 +TGRAP 89NL #40000022 8=8= +TALLC 8=MW #40500000 8?7G +TMAGT 8?M6 #40600000 8#6Q +TUDAS 8#LB #41100000 8*62 +TDRUM 8*KL #0 8B5= +TAMOR 8BJW #DEF TABLEN=0?-TABLE/2 8C4G #GAP 4 8CJ6 TFORMAT 12H FORMAT 8D3Q TNORM 2,8HNORMAL 8DHB TGRAP 2,8HGRAPHIC 8F32 TALLC 2,8HALLCHARS 8FGL TMAGT 1,4H*MT 8G2= TUDAS 1,4H*DA 8GFW TDRUM 1,4H*DR 8G^G TAMOR 3,12HAMORPHOUS 8HF6 # 8HYQ SDATECON 8JDB SBX 5 FX1 8JY2 DATECON 0 8KCL XCON 8KX= ADX 5 1 8LBW ADN 2 ACOMMUNE1 8LWG MHUNTW 3,COMDAT,CSETP 8MB6 EXIT 5 0 8MTQ TIMECON 8N*B SBX 5 FX1 8NT2 TIMECON 0 8P#L BRN XCON 8PS= # 8Q?W # SECOND PART OF ASSEMBLY 8QRG # 8R?6 TF 8RQQ LDX 1 FX1 8S=B LDN 2 W1(1) 8SQ2 ADN 3 APARA+18 8T9L MOVE 2 18 [MOVE IN TITLES 8TP= HUNT 2,FILE,ENT 8W8W LDX 5 ERET(2) [RETENTION PERIOD 8WNG CALL 7 XCONV 8X86 STO 5 6(3) 8XMQ LDX 0 EWRITDAY(2) 8Y7B BZE 0 W5 8YM2 CALL 5 SDATECON 8^6L ADN 3 APARA+33 [SET UP ADDRESS OF OUTPUT AREA 8^L= MOVE 2 2 [MOVE TO OUTPUT AREA 925W HUNT 2,FILE,ENT [RESET ADDRESS OF ENTRY 92KG LDX 0 EWRITTIME(2) 9356 CALL 5 TIMECON 93JQ ADN 3 APARA+29 944B MOVE 2 2 [STORE IN OUTPUT BLOCK 94J2 W5 953L MHUNT 3,COMDAT,CSETP 95H= LDN 0 72 962W ADS 0 ANUM(3) 96GG ADN 3 APARA+36 9726 LDN 2 W2(1) 97FQ MOVE 2 18 [NEXT LINE TITLES 97^B HUNT 2,FILE,ENT 98F2 LDX 5 ETM(2) [TYPE AND MODE 98YL LDN 0 TABLEN 99D= LDN 6 0 99XW NEXTTYPE 9=CG SMO 6 9=X6 BXE 5 TABLE(1),MATCH 9?BQ ADN 6 2 9?WB BCT 0 NEXTTYPE 9#B2 LDN 5 #17 9#TL DCH 5 5(3) 9**= BRN XSDATE 9*SW MATCH 9B#G LDN 2 TFORMAT(1) 9BS6 ADN 3 1 9C?Q MOVE 2 3 9CRB ADN 3 3 9D?2 SMO 6 9DQL LDX 1 TABLE+1(1) 9F== ADX 1 FX1 9FPW LDN 2 1(1) 9G9G LDX 1 0(1) 9GP6 MOVE 2 0(1) 9H8Q MHUNTW 2,FILE,ENT 9HNB XSDATE 9J82 LDX 0 EDLA(2) 9JML LDX 4 ESER(2) 9K7= BZE 0 T25 9KLW CALL 5 SDATECON 9L6G ADN 3 APARA+51 9LL6 MOVE 2 2 9M5Q HUNT 2,FILE,ENT 9MKB LDX 0 ETLA(2) 9N52 CALL 5 TIMECON 9NJL ADN 3 APARA+47 9P4= MOVE 2 2 9PHW T25 9Q3G MHUNT 3,COMDAT,CSETP 9QH6 LDN 0 72 9R2Q ADS 0 ANUM(3) 9RGB BNZ 4 NOTARCH [OMIT LAST 2 LINES IF LIBRARIAN ENTRA 9S22 MHUNTW 2,FILE,ENT 9SFL JBS NOTARCH,2,BEEXO 9S^= LDX 5 EINC(2) 9TDW BZE 5 NOTDUMPED 9TYG HUNT 3,COMDAT,CSETP 9WD6 ADN 3 APARA+54 9WXQ LDN 2 W3(1) 9XCB MOVE 2 18 [TITLES FOR FOURTHLINE 9XX2 LDX 4 ACES 9YBL CALL 7 XCONV 9YW= STO 4 5(3) 9^*W STO 5 6(3) 9^TG LDX 0 EDLD(2) =2*6 CALL 5 SDATECON =2SQ ADN 3 APARA+69 =3#B MOVE 2 2 =3S2 HUNT 2,FILE,ENT =4?L LDX 0 ETLD(2) =4R= CALL 5 TIMECON =5=W ADN 3 APARA+65 =5QG MOVE 2 2 =6=6 MHUNT 3,COMDAT,CSETP =6PQ LDN 0 72 =79B ADS 0 ANUM(3) =7P2 LDN 4 0 =88L BRN NOTD1 =8N= NOTDUMPED =97W HUNT 3,COMDAT,CSETP =9MG LDN 4 18 ==76 NOTD1 ==LQ ADN 3 APARA+72 =?6B SBX 3 4 =?L2 LDX 1 FX1 =#5L LDN 2 W4(1) =#K= MOVE 2 18 [FIFTH LINE TITLES =*4W HUNT 2,FILE,ENT =*JG LDX 5 ECOPS(2) [COPIES AND BLOCKS =B46 SRL 5 15 [COPIES FIRST =BHQ LDX 1 4 =C3B CALL 7 XCONV =CH2 LDX 4 1 =D2L LDX 1 FX1 =DG= STO 5 10(3) [STORE NUMBER OF BLOCKS =D^W LDEX 0 ECOPS(2) =FFG ORX 0 ACES =F^6 ERN 0 #20 =GDQ STO 0 6(3) =GYB MHUNT 2,COMDAT,CSETP =HD2 LDN 0 72 =HXL ADS 0 ANUM(2) =JC= MHUNTW 3,FILE,ENT =JWW LDX 0 BIT9 =KBG ORX 0 BIT11 =KW6 ANDX 0 EINF2(3) =L*Q BZE 0 NOTARCH =LTB ADN 2 APARA+91 =M*2 SBX 2 4 =MSL LDX 0 EINF2(3) =N#= ANDX 0 BIT9 =NRW BZE 0 NOTUSER =P?G ADN 1 UARCH =PR6 MOVE 1 3 =Q=Q SBN 1 UARCH =QQB NOTUSER =R=2 ADN 2 6 =RPL LDX 0 EINF2(3) =S9= ANDX 0 BIT11 =SNW BZE 0 NOTMAN =T8G ADN 1 MARCH =TN6 MOVE 1 4 =W7Q NOTMAN =WMB MHUNT 2,COMDAT,CSETP =X72 LDN 0 44 =XLL ADS 0 ANUM(2) =Y6= NOTARCH =YKW # =^5G XIT =^K6 ... ACROSS SETPARAM,4 ?24Q XCONV ?2JB STO 7 GEN0 [LINK ?342 STOZ 6 [BINARY TO DECIMAL CONVERSION ?3HL SMO FX1 [SUBROUTINE ?43= DVR 5 WW ?4GW LDCT 7 #200 ?52G LDN 2 4 ?5G6 ORX 2 GSIGN ?5^Q MODE 1 [ZERO 1ST 5 CHARS ?6FB LDN 0 5 [ ?6^2 T10 ?7DL CBD 6 0(2) [CONVERT TO DECIMAL ?7Y= BCHX 2 T17 ?8CW T17 ?8XG BCT 0 T10 ?9C6 MODE 0 [CHANGE MODE TO MON-ZERO SUPPRESION ?9WQ CBD 6 0(2) [FOR LAST CHAR AND CONVERT IT ?=BB LDX 7 GEN0 [RESTORE LINK ?=W2 HUNT 2,FILE,ENT ??*L EXIT 7 0 ??T= # ?##W # ?#SG #END ^^^^ ...662115710003