home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / assemutl.zip / DISASM.BAS < prev    next >
BASIC Source File  |  1984-07-13  |  1KB  |  45 lines
  1. 1 REM Program by Ross H. Cobb
  2. 2 REM 8540 SW 163 Terr
  3. 3 REM Miami, FL  33157
  4. 4 REM (305) 233-7458
  5. 10 CLEAR 32767 : DIM O$(512) : KEY OFF : CLS
  6. 15 PRINT "Loading opcodes..."
  7. 20 OPEN "A:OPCODES" FOR INPUT AS 1
  8. 25 IF EOF(1) THEN 50
  9. 30 LINE INPUT #1,O$(X) : X=X+1 : GOTO 25
  10. 50 CLOSE 1 : LINE INPUT "Source file name (HEX file only ? ";FL$
  11. 55 PRINT "Output device may be a disk file, com port or screen."
  12. 56 PRINT "Default is SCRN:"
  13. 57 LINE INPUT "Device ? ";D$
  14. 58 IF D$="" THEN D$="SCRN:"
  15. 59 OPEN D$ FOR OUTPUT AS 2
  16. 60 OPEN FL$ FOR INPUT AS 1
  17. 70 IF EOF(1) THEN 5000
  18. 80 A$=INPUT$(2,1)
  19. 85 B1$="":W1$="":W2$=""
  20. 90 Z=VAL ("&H"+A$)
  21. 95 HC$=A$
  22. 100 OP$=O$(Z)
  23. 110 W=INSTR(OP$,"@")
  24. 120 IF W THEN 500
  25. 130 B=INSTR(OP$,"#")
  26. 140 IF B THEN 2000
  27. 141 NN$=OP$:GOSUB 1000
  28. 145 AD=AD+1
  29. 150 GOTO 70
  30. 500 W1$=INPUT$(2,1):W2$=INPUT$(2,1):WW$=W2$+W1$
  31. 550 NN$=LEFT$(OP$,W-1)+WW$+RIGHT$(OP$,LEN(OP$)-W)
  32. 560 GOSUB 1000 : AD=AD+2 :GOTO 145
  33. 1000 AD$=HEX$(AD):AD$=STRING$(4-LEN(AD$),"0")+AD$
  34. 1100 IF W THEN 1200
  35. 1101 IF B THEN 1300
  36. 1102 HX$=HC$:GOTO 1400
  37. 1200 HX$=HC$+W1$+W2$:GOTO 1400
  38. 1300 HX$=HC$+B1$:GOTO 1400
  39. 1400 PRINT #2,AD$,HX$,NN$
  40. 1500 RETURN
  41. 2000 B1$=INPUT$(2,1)
  42. 2010 NN$=LEFT$(OP$,B-1)+B1$+RIGHT$(OP$,LEN(OP$)-B)
  43. 2020 GOSUB 1000 : AD=AD+1 : GOTO 145
  44. 5000 PRINT "End of file...." : CLOSE : STOP
  45.