pastebin - collaborative debugging

pastebin is a collaborative debugging tool allowing you to share and modify code snippets while chatting on IRC, IM or a message board.

This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

openmsx private pastebin - collaborative debugging tool What's a private pastebin?


Posted by Vampier on Thu 18 Oct 04:42
report abuse | View followups from Vampier and Vampier | download | new post

  1. #***********************************************
  2. #* Basic Reader (version 0.1)                  
  3. #*                                             
  4. #* A special thanks to Vincent van Dam for      
  5. #* giving me permission to translate his        
  6. #* script into TCL                             
  7. #***********************************************
  8.  
  9. # Helper Functions
  10. proc byte {word} {
  11.         return [peek $word]
  12. }
  13.  
  14. proc word {word} {
  15.         return [expr {[peek [expr $word+1]]*256+[peek $word]}]
  16. }
  17.  
  18. proc getLineNumber {addr} {
  19.         #return "\n[word [expr $addr+2]] "
  20.         return "\n0x[format %x [word $addr]] > [word [expr $addr+2]] "
  21. }
  22.  
  23. proc listing {} {
  24.  
  25. set token1 [list "" "END" "FOR" "NEXT" "DATA" "INPUT" "DIM" "READ" "LET" "GOTO" "RUN" "IF" "RESTORE" "GOSUB" "RETURN" "REM" "STOP" "PRINT" "CLEAR" "LIST" "NEW" "ON" "WAIT" "DEF" "POKE" "CONT" "CSAVE" "CLOAD" "OUT" "LPRINT" "LLIST" "CLS" "WIDTH" "ELSE" "TRON" "TROFF" "SWAP" "ERASE" "ERROR" "RESUME" "DELETE" "AUTO" "RENUM" "DEFSTR" "DEFINT" "DEFSNG" "DEFDBL" "LINE" "OPEN" "FIELD" "GET" "PUT" "CLOSE" "LOAD" "MERGE" "FILES" "LSET" "RSET" "SAVE" "LFILES" "CIRCLE" "COLOR" "DRAW" "PAINT" "BEEP" "PLAY" "PSET" "PRESET" "SOUND" "SCREEN" "VPOKE" "SPRITE" "VDP" "word" "CALL" "TIME" "KEY" "MAX" "MOTOR" "BLOAD" "BSAVE" "DSKO$" "SET" "NAME" "KILL" "IPL" "COPY" "CMD" "LOCATE" "TO" "THEN" "TABC" "STEP" "USR" "FN" "SPCL" "NOT" "ERL" "ERR" "STRING$" "USING" "INSRT" "" "VARPTR" "CSRLIN" "ATTR$" "DSKI$" "OFF" "INKEY$" "POINT" ">" "=" "<" "+" "-" "*" "/" "^" "AND" "OR" "XOR" "EQV" "IMP" "MOD" "\\" "" "" "{escape-code}"]
  26. set token2 [list "" "LEFT$" "RIGHT$" "MID$" "SGN" "INT" "ABS" "SQR" "RND" "SIN" "LOG" "EXP" "COS" "TAN" "ATN" "FRE" "INP" "POS" "LEN" "STR$" "VAL" "ASC" "CHR$" "PEEK" "VPEEK" "SPACE$" "OCT$" "HEX$" "LPOS" "BIN$" "CINT" "CSNG" "CDBL" "FIX" "STICK" "STRIG" "PDL" "PAD" "DSKF" "FPOS" "CVI" "CVS" "CVD" "EOF" "LOC" "LOF" "MKI$" "MK$" "MKD$" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""]
  27.  
  28. set go 1
  29. set addr [word 0xf676]
  30. set listing ""
  31. set tok ""
  32.  
  33. append listing [getLineNumber $addr];incr addr 4
  34.  
  35.         while {$go==1} {
  36.                 set tok ""
  37.                 if {[byte $addr]>0x80 && [byte $addr]<0xff} {set tok [lindex $token1 [expr [byte $addr]-0x80]]} else {
  38.                         if {[byte $addr]==0xff} {incr addr;set tok [lindex $token2 [expr [byte $addr]-0x80]]} else {
  39.                                 if {[byte $addr]==0x3a} {
  40.                                         set forward 0
  41.                                         incr addr;
  42.                                         if {[byte $addr]==0xa1} {set tok "ELSE";        set forward 1}
  43.                                         if {[byte $addr]==0x8f} {set tok "'";   set forward 1}
  44.                                         if {$forward==0} {set tok ":";          decr addr}
  45.                                 } else {
  46.                                         set forward 0
  47.                                         if {[byte $addr]==0x0} {incr addr;set tok [getLineNumber $addr];incr addr 3;    set forward 1}
  48.                                         if {[byte $addr]==0x0B} {incr addr;set tok [format "&O%o" [word $addr]];incr addr;              set forward 1}
  49.                                         if {[byte $addr]==0x0C} {incr addr;set tok [format "&H%x" [word $addr]];incr addr;              set forward 1}
  50.                                         if {[byte $addr]==0x0D} {set tok "(TODO GOSUB)";incr addr 2;                            set forward 1}
  51.                                         if {[byte $addr]==0x0E} {incr addr;set tok [format "%d" [word $addr]];incr addr;                set forward 1}
  52.                                         if {[byte $addr]==0x0F} {incr addr;set tok [format "%d" [byte $addr]];                          set forward 1}
  53.                                         if {[byte $addr]==0x1C} {incr addr;set tok [format "%d" [word $addr]];incr addr;                set forward 1}
  54.                                         if {[byte $addr]==0x1D} {incr addr;set tok "(TODO: Single)";                                    set forward 1}
  55.                                         if {[byte $addr]==0x1F} {incr addr;set tok "(TODO: Double)";                                    set forward 1}
  56.                                         if {[byte $addr]>0x11 && [byte $addr]<0x1a} {set tok [expr [byte $addr]-0x11];                  set forward 1}
  57.                                         if {$forward==0} {set tok [format "%c" [byte $addr]]}
  58.                                 }
  59.                         }
  60.                 }
  61.  
  62.         incr addr
  63.         append listing $tok
  64.         if {[word $addr]==0 || $addr>=0xffff} {set go 0}
  65.  
  66.         }
  67. return $listing
  68. }

Submit a correction or amendment below (click here to make a fresh posting)
After submitting an amendment, you'll be able to view the differences between the old and new posts easily.

Syntax highlighting:

To highlight particular lines, prefix each line with @@


Remember me