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

File name: /tmp/phpSKg0RL (8692 bytes) Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/phpSKg0RL.out' EP-ASCII: UK EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 D4 21 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x21d4 bytes.
100 WHEN EXCEPTIONUSEERROR 110 SET STATUSOFF 120 CALL MENU 130 DEF M1 140 RESTORE 410 150 FOR FUTTATAS=1TO2 160 LET H=2:LET M=42 170 FOR Y=1TO2 180 RESTORE 410 190 FOR X=1TO6 200 READ A 210 CALL H1(A+M,H) 220 NEXT 230 READ A 240 CALL H1(A+M,H*2) 250 NEXT 260 FOR X=1TO6 270 READ A 280 CALL H1(A+M,H) 290 NEXT 300 FOR X=1TO4 310 READ A 320 CALL H1(A+M,H) 330 NEXT 340 FOR X=1TO4 350 READ A 360 CALL H1(A+M,H) 370 NEXT 380 READ A 390 CALL H1(A+M,H*2) 400 NEXT FUTTATAS 410 DATA 9,7,9,4,0,4,-3 420 DATA 9,11,12,11,12,9 430 DATA 11,9,11,7 440 DATA 9,7,4,7,9 450 DEF H1(M,H) 460 FOR WW=1TOH 470 SOUND PITCHM,DURATION1 480 SOUND SOURCE1,PITCHM+12,DURATION1 490 NEXT 500 END DEF 510 END DEF 520 DEF M2 530 FOR FUT=0TO1 540 RESTORE 840 550 LET H=2:LET M=42 560 FOR Y=1TO2 570 RESTORE 840 580 SOUND PITCH27,SOURCE2,DURATION65 590 FOR X=1TO6 600 READ A 610 CALL H1(A+M,H) 620 NEXT 630 READ A 640 CALL H1(A+M,H*2) 650 NEXT 660 SOUND PITCH30,SOURCE2,DURATION55 670 FOR X=1TO6 680 READ A 690 CALL H1(A+M,H) 700 NEXT 710 SOUND PITCH29,SOURCE2,DURATION40 720 FOR X=1TO4 730 READ A 740 CALL H1(A+M,H) 750 NEXT 760 SOUND PITCH27,SOURCE2,DURATION42 770 FOR X=1TO4 780 READ A 790 CALL H1(A+M,H) 800 NEXT 810 READ A 820 CALL H1(A+M,H*2) 830 NEXT FUT 840 DATA 9,7,9,4,0,4,-3 850 DATA 9,11,12,11,12,9 860 DATA 11,9,11,7 870 DATA 9,7,4,7,9 880 END DEF 890 DEF M3 900 RESTORE 970 910 ENVELOPE NUMBER1;0,63,63,2;0,-10,-10,4;0,-40,-40,20 920 READ VALT 930 FOR CIKL=1TOVALT 940 READ A,B 950 SOUND ENVELOPE1,PITCHA,DURATIONB 960 NEXT 970 DATA 70 980 DATA 54,6,53,6,53,12 990 DATA 54,6,53,6,53,12 1000 DATA 54,6,53,6,53,12 1010 DATA 61,24 1020 DATA 61,6,60,6,58,12 1030 DATA 58,6,56,6,54,12 1040 DATA 54,6,53,6,51,36 1050 ! 1060 DATA 53,6,51,6,51,12 1070 DATA 53,6,51,6,51,12 1080 DATA 53,6,51,6,51,12 1090 DATA 60,24 1100 DATA 60,6,58,6,57,12 1110 DATA 57,6,54,6,53,12 1120 DATA 53,6,51,6,49,36 1130 ! 1140 DATA 61,6,60,6,60,12,63,12,57,12,60,12,58,12,53,24 1150 DATA 61,6,60,6,60,12,63,12,57,12,60,12,58,12,53,24 1160 DATA 59,6,58,6,58,12 1170 DATA 59,6,58,6,58,12 1180 DATA 59,6,58,6,58,12 1190 DATA 66,18,63,6,62,18,65,6,58,18,62,6,63,36 1200 END DEF 1210 DEF M4 1220 RESTORE 1290 1230 ENVELOPE NUMBER1;0,63,63,2;0,-10,-10,24;0,-40,-40,40 1240 READ VALT 1250 FOR CIKL=1TOVALT 1260 READ A,B 1270 SOUND ENVELOPE1,PITCHA,DURATIONB 1280 NEXT 1290 DATA 25 1300 DATA 20,40,22,20,23,20,22,30,20,10,20,40 1310 DATA 20,40,18,20,15,10,18,10,20,60,20,20 1320 DATA 20,40,22,20,23,20,22,30,20,10,20,40 1330 DATA 20,20,23,7,20,7,23,7,27,20,15,20,20,80 1340 END DEF 1350 DEF M5 1360 RESTORE 1430 1370 ENVELOPE NUMBER1;0,63,63,2;0,-10,-10,24;0,-40,-40,40 1380 READ VALT 1390 FOR CIKL=1TOVALT 1400 READ A,B 1410 SOUND ENVELOPE1,PITCHA,DURATIONB 1420 NEXT 1430 DATA 50 1440 DATA 30,20,35,13,37,13,39,13,37,50,34,60 1450 DATA 30,20,35,13,37,13,39,13,37,60 1460 DATA 30,20,35,13,37,13,39,13,37,50,34,60 1470 DATA 34,20,35,13,34,13,30,13,30,60 1480 ! 1490 DATA 42,20,41,13,39,13,37,13 1500 DATA 41,30,37,15,39,30,35,15,37,30 1510 DATA 42,20,41,13,39,13,37,13,41,60 1520 DATA 42,20,41,13,39,13,37,13 1530 DATA 41,30,37,15,39,30,35,15,37,30 1540 DATA 34,20,35,13,34,13,30,13,30,60 1550 END DEF 1560 DEF M6 1570 RESTORE 1620 1580 FOR BING=1TO148 1590 READ MAGASSAG,HOSSZ,BAL,JOBB 1600 SOUND PITCHMAGASSAG,DURATIONHOSSZ,RIGHTBAL,LEFTJOBB 1610 NEXT BING 1620 DATA 44,16,200,200,44,8,0,0,39,8,200,200,44,16,200,200,44,8,0,0,39,8, 200,200,44,8,200,200,39,8,200,200,44,8,200,200,48,8,200,200,51,16,200,200,51,16,0,0 1630 DATA 49,16,200,200,49,8,0,0,46,8,200,200,49,16,200,200,49,8,0,0,46,8, 200,200,49,8,200,200,46,8,200,200,43,8,200,200,46,8,200,200,39,16,200, 200,39,16,0,0 1640 DATA 44,8,200,200,44,10,0,0,44,20,200,200,44,2,0,0,48,8,200,200,46,8,200,200,48,1,0,0,44,8,200,200,46,1,0,0,44,8,200,200,43,8,200,200,43,1,0,0,43,16,200,200 1650 DATA 46,8,200,200,49,8,200,200,43,1,0,0,43,8,200,200,43,1,0,0,46,8,200,200,44,8,200,200,44,1,0,0,44,16,200,200,48,8,200,200,46,8,200,200,46,1,0,0,44,8,200,200 1660 DATA 44,1,0,0,44,8,200,200,43,8,200,200,43,1,0,0,43,16,200,200,43,1,0,0,46,8,200,200,49,8,200,200,49,1,0,0,43,8,200,200,43,1,0,0 1670 DATA 44,8,200,200,44,1,0,0,44,8,200,200,44,1,0,0,44,5,200,200,43,5,200,200,41,5,200,200,43,5,200,200,43,1,0,0,44,8,200,200,44,1,0,0,44,8,200,200,44,1,0,0,48,5,200,200,46,5,200,200,44,5,200,200,46,5,200,200 1680 DATA 49,1,0,0,48,8,200,200,49,1,0,0,48,8,200,200,51,5,200,200,49,5,200,200,48,5,200,200,49,5,200,200,49,1,0,0,51,16,200,200,51,16,0,0 1690 DATA 51,32,200,200,53,32,200,200,53,1,0,0,51,5,200,200,49,8,200,200,49,3,0,0,49,16,200,200,49,1,0,0,49,5,200,200,48,8,200,200,48,3,0,0,48,16,200,200,48,1,0,0 1700 DATA 48,5,200,200,46,8,200,200,46,3,0,0,46,16,200,200,46,1,0,0,44,8,200,200,43,8,200,200,43,1,0,0,41,8,200,200,41,1,0,0,43,8,200,200,43,1,0,0,44,8,200,200,44,8,0,0,46,8,200,200,46,8,0,0,48,8,200,200,48,24,0,0 1710 DATA 51,32,200,200,53,32,200,200,51,8,200,200,49,8,200,200,49,1,0,0,49,8,200,200,49,1,0,0,49,8,200,200,49,1,0,0,49,8,200,200,48,8,200,200,48,1,0,0,48,8,200,200,48,1,0,0,48,8,200,200,48,1,0,0 1720 DATA 48,8,200,200,46,8,200,200,46,1,0,0,46,8,200,200,46,1,0,0,46,8,200,200,46,1,0,0,44,8,200,200,43,8,200,200,41,8,200,200,43,8,200,200,44,32,200,200 1730 END DEF 1740 DEF M7 1750 RESTORE 1800 1760 FOR BANG=1TO126 1770 READ MAGASSAG,HOSSZ,BAL,JOBB 1780 SOUND PITCHMAGASSAG,DURATIONHOSSZ,RIGHTBAL,LEFTJOBB 1790 NEXT BANG 1800 DATA 37,48,0,0,37,24,200,200,42,48,200,200,37,24,200,200,37,4,0,0,44,48,200,200,37,24,200,200,37,4,0,0,46,48,200,200,47,12,200,200,44,12,200,200,42,24,200,200,41,24,200,200,44,24,200,200,47,48,200,200,44,24,200,200 1810 DATA 41,48,200,200,44,12,200,200,41,12,200,200,38,1,0,0,37,48,200,200,35,24,200,200,34,48,200,200,34,24,0,0 1820 DATA 42,24,200,200,42,1,0,0,42,24,200,200,46,24,200,200,36,48,200,200,39,12,200,200,36,12,200,200,36,1,0,0,32,48,200,200,42,24,200,200,39,24,200,200,41,24,200,200,41,24,0,0 1830 DATA 37,24,200,200,41,24,200,200,44,24,200,200,34,48,200,200,42,12,200,200,39,12,200,200,39,1,0,0,37,48,200,200,39,24,200,200,39,1,0,0,39,24,200,200,41,24,200,200,36,24,0,0 1840 DATA 37,24,200,200,36,24,200,200,34,24,200,200,33,24,200,200,34,24,200,200,30,1,0,0,30,24,200,200,32,48,200,200,32,1,0,0,32,24,200,200,37,48,200,200,34,72,0,0 1850 DATA 44,24,200,200,46,24,200,200,47,24,200,200,49,48,200,200,46,12,200,200,43,12,200,200,43,1,0,0,39,48,200,200,37,24,200,200,37,1,0,0,37,24,200,200,35,24,200,200,35,36,0,0 1860 DATA 47,24,200,200,44,24,200,200,41,24,200,200,42,48,200,200,37,24,200,200,33,48,200,200,30,24,200,200,38,24,200,200,37,24,200,200,37,24,0,0 1870 DATA 37,24,200,200,42,24,200,200,46,24,200,200,46,1,0,0,46,12,200,200,44,12,200,200,44,1,0,0,44,24,200,200,44,24,0,0,37,24,200,200,44,24,200,200,44,1,0,0,47,24,200,200,47,1,0,0,47,24,200,200,46,24,200,200,46,24,0,0 1880 DATA 42,24,200,200,46,24,200,200,49,24,200,200,39,48,200,200,47,12,200,200,44,12,200,200,44,1,0,0,42,48,200,200,44,24,200,200,44,1,0,0,44,24,200,200,46,24,200,200,46,24,0,0 1890 DATA 42,24,200,200,41,24,200,200,39,24,200,200,38,24,200,200,39,24,200,200,35,1,0,0,35,24,200,200,37,48,200,200,37,1,0,0,37,24,200,200,30,48,200,200 1900 END DEF 1910 REM **MUSIC BOX** 1920 DEF MBOX 1930 SET KEYCLICKOFF 1940 SET KEYDELAY1:SET KEYRATE1 1950 ENVELOPE NUMBER1;0,63,63,2;0,-10,-10,4;0,-40,-40,20 1960 LET BURK=255 1970 TEXT 1980 PRINT AT5,10:"1 TO 8 SOUND" 1990 PRINT AT7,10:"A AND B MUSICAL INSTRUMENT" 2000 PRINT AT9,10:"C REM1 ON" 2010 PRINT AT11,10:"D REM1 OFF" 2020 DO 2030 GET A$ 2040 IF A$="1"THENSOUND PITCH37,INTERRUPT,ENVELOPEBURK 2050 IF A$="2"THENSOUND PITCH39,INTERRUPT,ENVELOPEBURK 2060 IF A$="3"THENSOUND PITCH41,INTERRUPT,ENVELOPEBURK 2070 IF A$="4"THENSOUND PITCH42,INTERRUPT,ENVELOPEBURK 2080 IF A$="5"THENSOUND PITCH44,INTERRUPT,ENVELOPEBURK 2090 IF A$="6"THENSOUND PITCH46,INTERRUPT,ENVELOPEBURK 2100 IF A$="7"THENSOUND PITCH48,INTERRUPT,ENVELOPEBURK 2110 IF A$="8"THENSOUND PITCH49,INTERRUPT,ENVELOPEBURK 2120 IF A$=""THENSOUND PITCH-131,INTERRUPT 2130 IF A$="a"THENLET BURK=1 2140 IF A$="b"THENLET BURK=255 2150 IF A$="c"THENSET REM1ON 2160 IF A$="d"THENSET REM1OFF 2170 LOOP 2180 END DEF 2190 DEF MENU 2200 SET KEYRATE30 2210 SET KEYDELAY30 2220 SOUND DURATION1,INTERRUPT 2230 TEXT 2240 PRINT AT5,10:"1 TO 7 MUSIC" 2250 PRINT AT7,12:"M MUSIC BOX" 2260 PRINT AT9,11:"STOP RETURN MENU" 2261 PRINT AT11,12:"A REM1 ON" 2262 PRINT AT13,12:"B REM1 OFF" 2263 PRINT AT15,12:"C SPEAKER ON" 2264 PRINT AT17,12:"D SPEAKER OFF" 2270 GET A$ 2280 IF A$="1"THENCALL M1 2290 IF A$="2"THENCALL M2 2300 IF A$="3"THENCALL M3 2310 IF A$="4"THENCALL M4 2320 IF A$="5"THENCALL M5 2330 IF A$="6"THENCALL M6 2340 IF A$="7"THENCALL M7 2350 IF A$="m"THENCALL MBOX 2351 IF A$="a"THENSET REM1ON 2352 IF A$="b"THENSET REM1OFF 2353 IF A$="c"THENSET SPEAKERON 2354 IF A$="d"THENSET SPEAKEROFF 2360 GOTO 2270 2370 END DEF 2380 END WHEN 2390 HANDLER ERROR 2400 GOTO 100 2410 END HANDLER
EXOS header pos/serial: #1 at 0x21e4 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)