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