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