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

File name: /tmp/phpCWJ5iR (1538 bytes) Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/phpCWJ5iR.out' EP-ASCII: UK EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 E2 05 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x5e2 bytes.
100 ALLOCATE 80 110 CODE M=HEX$("DB,B1,F5,F7,18,6F,79,D3") 120 CODE =HEX$("B1,20,2B,3E,01,11,00,40") 130 CODE =HEX$("01,00,10,F7,06,11,00,40") 140 CODE =HEX$("20,1C,3E,02,01,00,10,F7") 150 CODE =HEX$("08,18,E8,6F,E5,21,00,10") 160 CODE =HEX$("B7,ED,42,E5,C1,E1,79,B0") 170 CODE =HEX$("28,04,3E,02,F7,08,3E,01") 180 CODE =HEX$("F7,03,3E,02,F7,03,DB,B1") 190 CODE =HEX$("4F,F7,19,F1,D3,B1,26,00") 200 CODE =HEX$("C9,00,00,00,00,00,00,00") 210 ! tape to disk 220 SET TAPESOUNDOFF 230 REM OUT 191,12:POKE 56,201 240 LET F=1 250 WHEN EXCEPTIONUSEKI 260 TEXT 270 GOTO 400 280 PRINT "1 --> Original name" 290 PRINT "2 --> Rename" 300 LET A$=INKEY$ 310 IF A$="1"THENGOTO 390 320 IF A$="2"THENGOTO 340 330 GOTO 300 340 ! Rename 350 INPUT PROMPT"New name:":A$ 360 EXT "copy tape: a:"&A$ 370 PRINT UCASE$(A$)"file copied." 380 GOTO 280 390 ! Original 400 OPEN #1:"tape:"ACCESSINPUT 410 LET A$="" 420 FOR A=48838TO48850 430 LET A$=A$&CHR$(PEEK(A)) 440 NEXT 450 LET A$=RTRIM$(A$) 460 IF A$=""THEN 470 LET A$="tapefile."&STR$(F) 480 LET F=F+1 490 END IF 500 PRINT A$; 510 WHEN EXCEPTIONUSENINCSFILE 520 OPEN #2:"a:"&A$ACCESSINPUT 530 CALL VANFILE 540 END WHEN 550 OPEN #2:"a:"&A$ACCESSOUTPUT 560 CALL USR(M,0) 570 REM CLOSE £1 580 REM CLOSE £2 590 PRINT " ok" 600 GOTO 390 610 HANDLER NINCSFILE 620 IF EXTYPE=9207THEN 550 630 END HANDLER 640 DEF VANFILE 650 PRINT " file already exists." 660 REM POKE 56,245 670 INPUT PROMPT"New filename?":B$ 680 REM POKE 56,201 690 IF LEN(B$)=0THEN 710 700 LET A$=B$ 710 PRINT UCASE$(A$); 720 CLOSE #2 730 END DEF 740 END WHEN 750 HANDLER KI 760 REM POKE 56,245 770 CAUSE EXTYPE 780 END HANDLER
EXOS header pos/serial: #1 at 0x5f2 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)