epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler

File name: /tmp/phpFm5wuf (677 bytes) Options: bin=None cset='BRD' dasm='' html='' info='' out='/tmp/phpFm5wuf.out' EP-ASCII: BRD EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 85 02 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x285 bytes.
100 PROGRAM "pack.bas" 110 POKE 56,201 120 WHEN EXCEPTIONUSEHIBA 130 TEXT 140 STRING A$*1,B$*1 150 OPEN #1:"data1.dat"ACCESSINPUT 160 OPEN #2:"d1.pac"ACCESSOUTPUT 170 LET VEGE=12674 180 GET #1:A$ 190 FOR I=1TOVEGE 200 LET B=0:PRINT AT1,1:I,ORD(A$);" ",B;CHR$(161); 210 FOR I=ITOI+254 220 GET #1:B$ 230 IF A$<>B$THEN 290 240 LET B=B+1:PRINT #102,AT1,18:B 250 PRINT #102,AT1,1:I; 260 IF I=VEGETHEN 290 270 NEXT 280 GET #1:B$ 290 PRINT #2:A$;CHR$(B); 300 LET A$=B$ 310 NEXT 320 CLOSE #1 330 CLOSE #2 340 POKE 56,245 350 END WHEN 360 HANDLER HIBA 370 CLOSE #1 380 CLOSE #2 390 PRINT 400 PRINT EXTYPE;EXSTRING$(EXTYPE) 410 PRINT EXLINE 420 POKE 56,245 430 END 440 END HANDLER
EXOS header pos/serial: #1 at 0x295 EXOS type/header: 0xa [00 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: End of module
End of FILE parsing, because: End-of-module header got (type=10)



Enterprise-128 EXOS file analyzer, lister and disassembler v0.5.8 ©2012,2013 "LGB" Gábor Lénárt (lgb at-sign lgb dot hu)