13 22#C ... SEG LISTDIR,,,FILESTORE,G233 4 22LS ...[ 15 22_9 ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 13 23?L ...[ THIS EXCLUDES CODE UNDER #SKI G233 4 23L3 ...[ 7 23YD ...#OPT G233 = 0 6 24=T ...#SKI G233&1 14 24K= ...# WITH UGUG EDIT M233 (COMPACT LISTDIR HIGH) 12 24XQ SEGENTRY K1LISTDIR,Z1LISTDIR 12 25CB SEGENTRY K2LISTDIR,Z2LISTDIR 12 25X2 SEGENTRY K3LISTDIR,ZDIRECTORY 11 26BL SEGENTRY K4LISTDIR,ZBRKIN 9 27*W ZJERNULLP +JERNULLP 9 27TG ZERTEMP +ERTEMP 9 28*6 ZJLDIRER +JLDIRER 9 28SQ ZJPARMIS +JPARMIS 9 29#B SHIGH 4HHIGH 8 29S2 SLOW 4HLOW 16 2=?L SHEAD 40H TYPE NAME GEN.NO. LANG. REEL 10 2=R= 32H.NO. SERIAL NO. 15 2?=W SDIR 32H LISTDIR LISTING OF DIRECTORY 12 2?QG SCUR 20HCURRENT DIRECTORY 12 2#=6 SEMPT 20HDIRECTORY IS EMPTY 8 2#C# SDIRY 4HDIR 9 2#JG SPSEU 4HPSEU 9 2#PQ SFILE 4HFILE 9 2*9B SMULT 4HMULT 9 2*P2 SMAG 4HMAGS 9 2*YS SEXO 8HEXOFILE 8 2B8L STEMP 4H(T) 8 2BN= SERASE 4H(E) 8 2C7W SRETURN 4H(R) 9 2CMG SFROZEN 4H(F) 9 2D76 W +10000 8 2DLQ SASTER 4H*LP 6 2DN7 ...#SKI G233&1 4 2DPJ ...( 19 2DQ_ ...# HEADINGS FOR COMPACT 'HIGH' 15 2DSB ...XHHD 32HLOCAL NAME FGN/LANG TYPE 18 2DTR ... 40H BLKS LAST DUMP INC. ON/OFF 20 2DX8 ... 48H LAST ACCESS LAST WRITTEN RES FORMULA 9 2DYK ...XHEDS 5:SEMPT 9 2F22 ... 18:SHEAD 9 2F3C ... 30:XHHD 4 2F4S ...) 10 2F6B SLF 8HLF !,*LP 13 2FL2 TYPEMODE #40000012 [ GRAPHIC 5 2GK= XCHARSIN 15 2H4W T12 DCH 5 0(1) [INSERT CHAR 7 2HJG SRL 5 6 15 2J46 BZE 5 (0) [JIF NO MORE 7 2JHQ SLC 1 2 16 2K3B SBN 1 1 [ALTER CHAR INDEX 7 2KH2 SRC 1 2 8 2L2L BRN T12 5 2M_6 SPARAPAS 8 2NDQ SBX 7 FX1 7 2NYB SPARAPAS 8 2PD2 BRN PAREXIT 5 2PXL PARAPASS 8 2QC= SBX 7 FX1 7 2QWW PARAPASS 5 2RBG PAREXIT 10 2RW6 MHUNT 3,CPB,CUNI 7 2S*Q ADX 7 1 7 2STB EXIT 7 0 4 2T*2 PEND 8 2TSL SBX 3 FX1 10 2TT2 MHUNT 2,FILE,FAPB 8 2TTB LDX 7 A1(2) 7 2TTQ LDN 0 2 9 2TW6 BXE 7 0,NULLREC 7 2TWG SBN 7 1 5 2TWW NEXTONE 7 2TX= SMO 7 8 2TXL LDX 0 A1(2) 7 2TY2 SMO 7 9 2TYB STO 0 A1+1(2) 9 2TYQ BCT 7 NEXTONE 7 2T_6 LDN 0 1 17 2T_G ADS 0 A1(2) [ EXTRA WORD FOR PFCC 8 2T_W LDX 0 A1(2) 7 2W2= SBN 0 1 5 2W2L PREVWORD 7 2W32 SMO 0 8 2W3B LDX 7 A1(2) 10 2W3Q SPACECT 7,6,SPACEALL 7 2W46 STOZ 0 9 2W4G BZE 6 NOSPACES 7 2W4W LDN 0 4 7 2W5= SBX 0 6 7 2W5L SRC 0 2 5 2W62 NOSPACES 8 2W6B LDN 7 #41 7 2W6Q ADS 7 0 15 2W76 STO 0 A1+1(2) [ STORE PFCC 9 2W7G BRN NOWAPPEND 5 2W7W SPACEALL 7 2W8= SBN 0 1 7 2W8L LDN 6 1 8 2W92 SBS 6 A1(2) 9 2W9B BRN PREVWORD 5 2W9Q NULLREC 8 2W=6 LDN 0 #41 9 2W=G STO 0 A1+1(2) 6 2W=W NOWAPPEND 9 2W#= APPEND 1,FORCED 7 2WRW ADX 3 1 7 2X?G EXIT 3 0 2 2XR6 4 2Y=Q [ 13 2YQB Z1LISTDIR [LISTDIR COMMAND ENTRY 4 2_=2 [ 9 2_PL STOZ AWORK1(2) 9 329= CALL 7 SPARAPAS 9 32NW LDX 6 ANUM(3) 17 338G BNG 6 TA1 [J IF NO PARAMETERS 17 33N6 BZE 6 TA1 [J IF NULL PARAMETER 18 347Q NAMETOP 3,FILE,FNAME [RENAME CPB/CUNI BLOCK 17 34MB LDN 4 0 [DIRECTORY NAME GIVEN 4 35LL T16 7 35WD LDN 5 0 11 366= SETMODE 0,READ,DIRONLY 5 36KW OPENDIR 9 375G USEROPEX YBRKIN,0 8 37K6 REPERR2 T2 5 384Q ZENDCOM 4 38JB T99 6 3942 ENDCOM 4 39HL [ 13 3=3= ZDIRECTORY [DIRECTORY CMMAND ENTRY 4 3=GW [ 15 3?2G NGN 5 1 [DY COMMAND 9 3?G6 CALL 7 SPARAPAS 9 3?_Q NGX 0 ANUM(3) 21 3#FB BPZ 0 NPAR [COMERR IF PARAMETER NULL OR ABSENT 15 3#_2 NAMETOP 3,FILE,FNAME [FOR USEROPEX 13 3*DL SETMODE 0,READ,DIR,DIRONLY,UNTRAP 9 3*Y= BRN OPENDIR 5 3BCW ZDYOK 10 3BXG MHUNTW 1,FILE,ENT 8 3CC6 ADN 1 EUSE1 9 3CWQ ADN 2 CPREFIX 21 3DBB MOVE 1 3 [SET REQUESTED NAME AS CURRENT DIRECT 9 3DW2 BRN ZENDCOM 4 3F*L [ 7 3FT= TA1 PHOTO 5 10 3G#W ALTLEND 3,7,CPB,CUNI 8 3GSG TESTMOVE 5,X1 10 3H#6 MHUNT 3,CPB,CUNI 21 3HRQ X1 LDN 0 1 [FIRST WORD OF CPB/CUNI BLOCK SHOULD 10 3J?B STO 0 JPARNUM(3) 21 3JR2 LDN 0 17 [SECOND WORD SHOULD CONTAIN COUNT OF 9 3K=L STO 0 ANUM(3) 21 3KQ= LDN 2 SCUR(1) [PUT IN WORDS-CURRENT DIRECTORY-SO IF 8 3L9W ADN 3 APARA 17 3LPG MOVE 2 5 [MESSAGE IS CORRECT 18 3M96 SETNCORE 4,3,FILE,FABSNB [FABSNB FOR OPENING FILE 7 3MNQ LDN 0 4 8 3N8B STO 0 A1(3) 20 3NN2 ADN 2 CPREFIX [PUT CURRENT PREFIX AS NAME OF 18 3P7L ADN 3 A1+1 [DIRECTORY TO BE LISTED 7 3PM= MOVE 2 3 19 3Q6W NGN 4 1 [INDICATE NO DIRECTORY GIVEN 8 3QLG BRN T16 12 3R66 T20 LDN 0 19 [ 8 3RKQ STO 0 A1(3) 8 3S5B ADN 3 A1+1 9 3SK2 LDN 2 SDIR(1) 15 3T4L MOVE 2 8 [TO BE LISTED 7 3TJ= ADN 3 8 10 3W3W HUNT 2,CPB,CUNI 19 3WHG LDX 6 ANUM(2) [LOAD IN NUMBER OF CHARS IN 20 3X36 ANDN 6 #7777 [DIRECTORY NAME PROVIDED BY USER 8 3XGQ LDN 1 40 21 3Y2B TXL 1 6 [CHECK THAT CHARS WILL FIT INTO ONE 16 3YG2 BCS T22 [LINE OF PRINT 19 3Y_L LDX 1 6 [IF SO X1 IS NUMBER OF CHARS 9 3_F= T22 LDN 2 APARA(2) 17 3_YW MVCH 2 0(1) [MOVE DIRECTORY NAME 7 423F TOPFCB 1 11 4264 JBC T21,1,BFUSERFREZ 8 428M SMO FX1 9 42?= LDN 2 SFROZEN 7 42*T MVCH 2 3 8 42DG BRN T21 16 42Y6 T2 CLOSETOP [CLOSE DIRECTORY 16 43CQ BNG 5 ZDYOK [J IF DY COMMAND 7 43G* CREATEB 3 10 43JY LDX 0 TYPEMODE(1) 9 43MH STO 0 CETM(3) 10 43Q6 BS 3,CESERIAL 9 43SP STOZ AWORK2(2) 17 43XB BNG 6 TA5 [J IF NO PARAMETERS 9 44C2 CALL 7 PARAPASS 9 44WL LDX 6 ANUM(3) 8 45B= BZE 6 T4 8 45TW BNG 6 T4 9 46*G LDX 0 APARA(3) 9 46T6 SBX 0 SLOW(1) 8 47#Q BZE 0 T4 9 47SB LDX 0 APARA(3) 9 48#2 SBX 0 SHIGH(1) 8 48RL BNZ 0 X2 8 49?= LDX 0 GSIGN 9 49QW ORS 0 AWORK1(2) 7 4==G T4 FREECORE 3 7 4=Q6 TA5 LDN 5 0 8 4?9Q BNG 6 TB3 9 4?PB CALL 7 PARAPASS 9 4#92 NGX 0 ANUM(3) 18 4#NL BPZ 0 TB2 [J IF NO PARAMETER GIVEN 7 4*8= LDN 5 1 9 4*MW LDX 0 APARA(3) 9 4B7G SBX 0 SASTER(1) 8 4BM6 BZE 0 TB2 10 4BPY NAMETOP 3,FILE,FNAME 14 4BSQ USEROPEN YBRKIN,APPEND,CREATE,EMPTY 10 4BXJ MFREE FILE,FABSNB 9 4C2B REPERR2 NAMEOK 6 4C58 ENDCOM 5 4C82 NAMEOK 9 4C=S MFREE CPB,CUNI 7 4C*L NGN 5 1 9 4CDD STO 5 AWORK2(2) 8 4CH= BRN TOPEN 4 4CLB TB 5 4D62 ZCOMERRX 7 4DKL COMERRX 3 4 4F5= [ 4 4FJW NPAR 10 4G4G LDX 3 ZJPARMIS(1) 9 4GJ6 BRN ZCOMERRX 4 4H3Q [ 21 4HHB TB1 TESTBRKIN YBRKIN [J IF FRIGMONF FAILS DUE TO BREAKIN 10 4J32 LDX 3 ZERTEMP(1) 8 4JGL BRN TB 7 4K2= TB2 FREECORE 3 4 4KFW TB3 9 4K_G ORS 5 AWORK1(2) 14 4LF6 BNZ 5 TTOK [J IO *LP 19 4LYQ LDN 5 4 [MASK FOR LISTING CATEGORY 8 4MDB TESTRACE 5,TTT 8 4MY2 BRN TTOK 4 4NCL TTT 9 4NX= MONOUT JMTRACE1 8 4PBW BRN T99 4 4PWG TTOK 20 4QB6 FRIGMONF TB1,LEVEL0 [CREATE & OPEN WORKFILE @ LEVEL 0 16 4QTQ MFREE FILE,FABSNB [ FROM FRIGMONF 7 4R*B LOBSFILE 5 4RGJ TOPEN 10 4RMQ VFREEW FILE,CREATE 12 4RT2 USEROPEN XBRKIN,READ,DIRONLY 10 4S#L MFREE FILE,FABSNB 8 4SS= REPERR2 TB4 9 4T?W BRN XBRKIN 8 4TRG TB4 CALL 6 SPACE 8 4W?6 CALL 3 PEND 10 4WQQ HUNT 3,FILE,FAPB 20 4X=B BPZ 4 T20 [J IF DIRECTORY NAME SPECIFIED 8 4XQ2 LDN 2 13 8 4Y9L STO 2 A1(3) 20 4YP= ADN 3 A1+1 [MOVE HEADING OF DIRECTORY BEING 18 4_8W LDN 2 SDIR(1) [LISTED TO OUTPUT BLOCK 7 4_NG MOVE 2 8 7 5286 ADN 3 8 17 52MQ LDN 0 10 [LOAD COLON TO PLACE 20 537B LDCT 1 384 [BEFORE USER NAME OF DIRECTORY 7 53M2 ADX 1 3 8 546L DCH 0 0(1) 7 54L= ADN 3 1 18 555W SMO FX2 [MOVE IN NAME OF CURRENT 15 55KG LDN 2 CPREFIX [DIRECTORY 7 5656 MOVE 2 3 4 56JQ T21 8 574B CALL 3 PEND 10 57J2 HUNT 3,FILE,FAPB 7 583L LDN 6 2 8 58H= STO 6 A1(3) 8 592W LDX 6 ACES 9 59GG STO 6 A1+1(3) 8 5=26 CALL 3 PEND 20 5=FQ READ [READ FIRST BLOCK OF DIRECTORY 10 5=_B MHUNTW 2,FILE,FRB 8 5?F2 LDX 5 A1(2) 10 5?YL MHUNTW 3,FILE,FAPB 6 5?_8 ...#SKI G233&1 4 5?_Q ...( 8 5#2# ... SMO FX2 9 5#2W ... LDXC 0 AWORK1 8 5#3D ... BCC T21A 19 5#42 ... ALTLEND 3,32,FILE,FAPB [ IF NEW HIGH LEVEL OUTPUT, 20 5#4J ... MHUNTW 3,FILE,FAPB [ 32 WORDS REQ'D IN FILE/FAPB 7 5#56 ...T21A NGXC 0 5 17 5#5N ... NGN 6 0 [ 0 IF EMPTY, ELSE -1 8 5#6= ... SMO FX2 9 5#6S ... LDXC 0 AWORK1 16 5#7B ... LDN 0 1 [ 1 LOW 2 HIGH 18 5#7Y ... ANDX 0 6 [ 0 EMPTY 1 LOW 2 HIGH 7 5#8G ... SMO 0 18 5#94 ... LDX 7 XHEDS(1) [ APPROPRIATE OUTPUT LINE 16 5#9L ... LDEX 2 7 [ STRING ADDRESS 8 5#=8 ... SRL 7 15 18 5#=Q ... NGNC 0 1 [ X7 = OUTPUT LINE SIZE 17 5#?# ... STO 7 A1(3) [ STRING LENGTH + 1 8 5#?W ... ADN 3 A1+1 7 5##D ... ADX 2 1 7 5#*2 ... SMO 7 19 5#*J ... MOVE 2 0 [ RIGHT LINE INTO FILE/FAPB 4 5#B6 ...) 7 5#BN ...#SKI G233&1$1 4 5#C= ...( 8 5#D= LDN 2 19 18 5#XW BNZ 5 T26 [J IF DIRECTORY NOT EMPTY 7 5*CG LDN 2 6 8 5*X6 T26 STO 2 A1(3) 8 5BBQ ADN 3 A1+1 8 5BWB BNZ 5 T23 20 5CB2 LDN 2 SEMPT(1) [PUT IN DIRECTORY EMPTY MESSAGE 7 5CTL MOVE 2 5 8 5D*= BRN T24 17 5DSW T23 LDN 2 SHEAD(1) [PUT IN TITLE LINE 8 5F#G MOVE 2 18 4 5FJ# ...) 4 5FS6 T24 8 5G?Q CALL 3 PEND 10 5GRB MHUNTW 3,FILE,FAPB 7 5H?2 LDN 6 2 8 5HQL STO 6 A1(3) 8 5J== LDX 6 ACES 9 5JPW STO 6 A1+1(3) 8 5K9G CALL 3 PEND 8 5KP6 BZE 5 T5 8 5L8Q BRN T25 4 5LNB [ 12 5M82 Z2LISTDIR [ENTRY FROM LISTDIRF 4 5MML [ 4 5N7= T6 6 5N87 ...#SKI G233&1 4 5N94 ...( 19 5N9_ ... STEP [ STEP FORWARD TO NAME RECORD 17 5N=W ... BZE 3 T5 [ CAUTIOUSLY BECAUSE 18 5N?R ... LDX 0 1(3) [ BLOCKS RECORD MAY HAVE 18 5N#N ... BNZ 0 T6 [ BEEN STEPPED ALREADY 10 5N*K ... MHUNTW 2,FILE,FRB 8 5NBG ... LDN 4 A1(2) 16 5NCC ... SMO 0(3) [ GET RECORD INTO 16 5ND# ... MOVE 3 0 [ SAME FILE/FRB 8 5NF9 ...T25 SMO FX2 9 5NG6 ... LDX 0 AWORK1 20 5NH3 ... BNG 0 T25HI [ NEW HIGH DOESN'T WANT OLD LOW 4 5NHY ...) 7 5NJT ...#SKI G233&1$1 4 5NKQ ...( 10 5NLW MHUNTW 1,FILE,FRB 10 5P6G NAME 1,FILE,ENT 7 5PL6 NEXTENT 9 5Q5Q MFREEW FILE,ENT 8 5QKB BZE 3 T5 7 5R52 READAGAIN 4 5RJL T25 4 5RSD ...) 10 5S4= MHUNTW 3,FILE,FAPB 8 5SHW CALL 6 SPACA 10 5T3G MHUNTW 2,FILE,FRB 8 5TH6 LDN 0 19 16 5W2Q STO 0 A1(3) [RECORD HEADER 8 5WGB LDX 7 ACES 11 5X22 JBS MAGTAPE,2,BELIB 7 5X9S LDN 4 0 11 5X*P JBS XOFILE,2,BEEXO 11 5XFL JBC NOTTEMP,2,BETEMP 13 5X_= LDX 7 STEMP(1) [(T) 5 5YDW NOTTEMP 13 5YJR JBC NOTFROZEN,2,BEUSERFREZ 10 5YNN LDX 7 SFROZEN(1) 6 5YSK NOTFROZEN 12 5YYG JBC NOTERASED,2,BEERASE 13 62X2 LDX 7 SERASE(1) [(E) 6 63BL NOTERASED 9 63HS LDX 0 EUSE1(2) 8 63P2 BNZ 0 XDIR 14 63W= LDX 6 SFILE(1) ['FILE' 11 64*W JMBAC ND,2,BEMDF,BEMULT 14 67?L LDX 6 SMULT(1) ['MULT' 8 67R= BRN ND 4 67RN XDIR 9 67S6 LDX 6 SDIRY(1) 12 67SJ JBC NOTPSEU,2,BEPSEUDO 9 67T2 LDX 6 SPSEU(1) 5 67TD NOTPSEU 8 67TW BRN ND 5 67WB XOFILE 9 67_G LDX 6 SEXO(1) 9 684L LDX 7 SEXO+1(1) 8 687Q BRN ND 5 68=W MAGTAPE 7 68GN LDN 4 1 14 68QG LDX 6 SMAG(1) ['MAGS' 10 69=6 JBC ND,2,BEERASE 13 69PQ LDX 7 SRETURN(1) [(R) 4 6?N= ND 9 6#7W STO 6 A1+1(3) 9 6#MG STO 7 A1+2(3) 9 6*76 LDN 6 ELOC1(2) 9 6*LQ LDN 7 A1+3(3) 15 6B6B MOVE 6 3 [LOCAL NAME 8 6BL2 BZE 4 T8 18 6C5L LDX 5 EREEL(2) [REEL NUMBER IF MAGTAPE 19 6CK= CALL 1 T9 [CONVERT TO CHARACTER FORM 8 6D4W LDCT 1 #600 14 6DJG ADN 1 A1+10(3) [REEL NO 9 6F46 CALL 0 XCHARSIN 16 6FHQ T8 LDX 5 EGEN(2) [GENERATION NO 8 6G3B CALL 1 T9 9 6GH2 LDN 1 A1+7(3) 9 6H2L CALL 0 XCHARSIN 15 6HG= BNZ 4 T14 [J IF MAGTAPE 14 6JFG LDX 5 ELAN(2) [LANGUAGE 8 6J_6 T11 LDCT 1 384 14 6KDQ ADN 1 A1+8(3) [LANGUAGE 9 6KYB CALL 0 XCHARSIN 9 6K_M LDX 0 EUSE1(2) 8 6L2Y BZE 0 T19 13 6L49 LDN 0 #12 [ : 9 6L5G LDN 1 A1+10(3) 7 6L6R SLC 1 2 7 6L84 ADN 1 3 7 6L9* SRC 1 2 8 6L=L DCH 0 0(1) 7 6L?X BCHX 1 / 9 6L*8 LDN 0 EUSE1(2) 14 6LBF MOVE 0 3 [ USERNAME 8 6LD2 BRN T19 11 6LXL T14 CONSERNO ESER(2),ACOMMUNE1 10 6MC= MHUNTW 1,FILE,FAPB 9 6MWW LDN 3 A1+13(1) 10 6NBG LDX 0 ACOMMUNE1(2) 9 6NW6 ADN 2 ACOMMUNE2 7 6P*Q SMO 0 7 6PTB MVCH 2 0 4 6Q*2 T19 8 6QSL CALL 3 PEND 6 6QWJ ...#SKI G233&1 4 6QYG ...( 19 6R2D ... BRN T6 [ GO TO NEXT - MUST BE 'LOW' 5 6R4B ...T25HI 4 6R6# ...) 7 6R8= ...#SKI G233&1$1 4 6R=8 ...( 9 6R#= LDX 7 AWORK1(2) 8 6RRW BPZ 7 T6 4 6S3N ...) 16 6S?G ACROSS LISTDIRF,1 [FOR FULL LISTING 17 6SDN [ [RETURN TO Z2LISTDIR 4 6SKW [ 4 6SM3 T5 7 6T9H CLOSETOP 16 6T=Q CLOSE [CLOSE WORKFILE 9 6T#S LDX 0 AWORK2(2) 8 6TBW BNG 0 T99 10 6TF2 MHUNT 3,CPB,CALAS 10 6TM= LDX 7 ALOGLEN(3) 7 6TTG ADN 7 2 11 6W3Q SETUPCOR 7,3,ADATA,CREADL 9 6W=2 LDX 0 SLF(1) 13 6WPL STO 0 CPDATA(3) [LF 7 6W_D LDN 7 1 18 6X9= LDN 4 4 [CHAR COUNT IF NOT *LP 9 6XNW LDEX 0 AWORK1(2) 16 6Y8G BZE 0 TNOLPA [J IF NOT *LP 9 6YN6 LDX 0 SLF+1(1) 10 6_7Q STO 0 CPDATA+1(3) 7 6_CJ ADN 7 1 7 6_MB LDN 4 8 5 6_P_ TNOLPA 7 6_SJ SMO 7 9 6_X7 LDN 7 CPDATA 10 6__Q STO 7 ACOMMUNE3(2) 5 724* TNOLP 9 7272 CALL 7 SPARAPAS 7 72LL LDX 1 3 11 736= MHUNTW 3,ADATA,CREADL 7 73B4 LDX 6 3 9 73KW NGX 5 ANUM(1) 8 745G BPZ 5 T51 7 74K6 NGX 5 5 8 754Q ANDN 5 #7777 7 75JB ADX 4 5 7 7642 ADN 4 1 10 76HL ADX 3 ACOMMUNE3(2) 8 79FB T501 LDN 0 #34 8 79_2 DCH 0 0(3) 7 7=Y= BCHX 3 / 7 7?84 LDX 2 1 9 7?CW LDX 1 ANUM(2) 8 7?XG ADN 2 APARA 8 7#C6 MVCH 2 0(1) 7 7#KB SBX 3 6 8 7#RL SMO FX2 9 7#_W STO 3 ACOMMUNE3 8 7*86 BRN TNOLP 16 7*BB T51 STO 4 A1(3) [CHARACTER COUNT 4 7*W2 T511 9 7B*L ISSUCOMB T52,T60 19 7BT= T52 CALL 6 TER [SET UP & ISSUE COMMAND ER ! 8 7C#W BRN T99 8 7CSG T60 CALL 6 TER 7 7D#6 ABANDCOM 8 7DRQ SPACA SBX 6 FX1 8 7F?B BRN T18 8 7FR2 SPACE SBX 6 FX1 11 7G=L SETNCORE 21,3,FILE,FAPB 7 7HPG LDN 0 2 16 7J96 STO 0 A1(3) [& RECORD HEADER 8 7JNQ T18 LDN 0 20 16 7K8B LDX 2 ACES [FILL WITH SPACES 7 7KN2 T15 SMO 0 8 7L7L STO 2 A1(3) 8 7LM= BCT 0 T15 8 7M6W ADX 6 FX1 7 7MLG EXIT 6 0 4 7N66 T9 19 7NKQ STOZ 6 [BINARY TO DECIMAL CONVERSION 15 7P5B SMO FX1 [SUBROUTINE 7 7PK2 DVR 5 W 8 7Q4L LDCT 7 #200 7 7QJ= LDN 2 5 20 7R3W MODE 1 [SUPPRESS ZEROS ON FIRST THREE 15 7RHG LDN 0 3 [CHARACTERS 17 7S36 T10 CBD 6 0(2) [CONVERT TO DECIMAL 8 7SGQ BCHX 2 T17 8 7T2B T17 BCT 0 T10 21 7TG2 MODE 0 [CHANGE MODE TO NON-ZERO SUPPRESSION 21 7T_L CBD 6 0(2) [FOR LAST CHARACTER AND CONVERT IT 10 7WF= HUNT 2,FILE,FRB 7 7WYW EXIT 1 0 10 7XDG X2 LDX 3 ZJLDIRER(1) 8 7XY6 BRN TB 15 7YCQ TER SBX 6 1 [LINK - FX1 11 7YXB SETNCORE 10,3,FILE,FABSNB 8 7_C2 LDN 0 10 8 7_WL STO 0 A1(3) 10 7_YJ LDX 2 BWORKRING(2) 6 822HP...#SKI IFS 11 826DP... ADN 2 FUSER1-FCBRING 7 82=*P...#SKI IFS<1$1 9 82TW ADN 2 FUSER1 8 83*G ADN 3 A1+1 7 83T6 MOVE 2 9 7 84#Q ERASEWORK 9 84SB TESTRPN2 OK,ZONK 15 85#2 T53 ADX 6 1 [RESET LINK 7 85RL EXIT 6 0 9 86?= # BREAKIN 5 86QW ZBRKIN 13 87=G CLOSETOP [DIR 5 87Q6 XBRKIN 6 889Q CLOSE 8 88PB CALL 6 TER 5 8992 YBRKIN 7 89NL COMBRKIN 4 8=8= ZONK 10 8=MW GEOERR 1,LDERWORK 4 8?7G [ 10 8?M6 MENDAREA 20,K99LISTDIR 4 8#6Q #END 8 ____ ...01270452000100000000