Browse code
(binstr.tal) Added a binary to string file converter in utils
neauoire authored on 16/01/2022 22:30:46
Showing 1 changed files
| 1 | 1 |
new file mode 100644 |
| ... | ... |
@@ -0,0 +1,131 @@ |
| 1 |
+( |
|
| 2 |
+ converts a binary file to a series of shorts as strings |
|
| 3 |
+ usage: uxncli binstr.rom file.bin ) |
|
| 4 |
+ |
|
| 5 |
+%+ { ADD } %- { SUB } %* { MUL } %/ { DIV }
|
|
| 6 |
+%< { LTH } %> { GTH } %= { EQU } %! { NEQ }
|
|
| 7 |
+%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
|
|
| 8 |
+%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
|
|
| 9 |
+ |
|
| 10 |
+%HALT { #010f DEO }
|
|
| 11 |
+ |
|
| 12 |
+( devices ) |
|
| 13 |
+ |
|
| 14 |
+|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1 |
|
| 15 |
+|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 |
|
| 16 |
+ |
|
| 17 |
+( variables ) |
|
| 18 |
+ |
|
| 19 |
+|0000 |
|
| 20 |
+ |
|
| 21 |
+ @length $2 |
|
| 22 |
+ @src $30 |
|
| 23 |
+ |
|
| 24 |
+|0100 ( -> ) |
|
| 25 |
+ |
|
| 26 |
+ ;on-console .Console/vector DEO2 |
|
| 27 |
+ |
|
| 28 |
+BRK |
|
| 29 |
+ |
|
| 30 |
+@on-console ( -> ) |
|
| 31 |
+ |
|
| 32 |
+ ( starting ) |
|
| 33 |
+ [ LIT &trap $1 ] ,&started JCN |
|
| 34 |
+ ;src #0020 ;mclr JSR2 |
|
| 35 |
+ #01 ,&trap STR |
|
| 36 |
+ &started |
|
| 37 |
+ ( append ) |
|
| 38 |
+ .Console/read DEI #20 < ,&validate JCN |
|
| 39 |
+ ;src ;slen JSR2 #0030 == ,&validate JCN |
|
| 40 |
+ ;src .Console/read DEI ;sput JSR2 BRK |
|
| 41 |
+ &validate |
|
| 42 |
+ ,parse JSR |
|
| 43 |
+ #00 ,&trap STR |
|
| 44 |
+ |
|
| 45 |
+BRK |
|
| 46 |
+ |
|
| 47 |
+@parse ( -- ) |
|
| 48 |
+ |
|
| 49 |
+ ( load ) |
|
| 50 |
+ ;src .File/name DEO2 |
|
| 51 |
+ #fff0 ;data -- .File/length DEO2 |
|
| 52 |
+ ;data .File/read DEO2 |
|
| 53 |
+ ( save length ) |
|
| 54 |
+ .File/success DEI2 .length STZ2 |
|
| 55 |
+ ( export path ) |
|
| 56 |
+ ;tal-ext ;src ;scat JSR2 |
|
| 57 |
+ ( save ) |
|
| 58 |
+ ;src .File/name DEO2 |
|
| 59 |
+ #0001 .File/length DEO2 |
|
| 60 |
+ ( stream ) |
|
| 61 |
+ .length LDZ2 ;data ++ ;data |
|
| 62 |
+ &loop |
|
| 63 |
+ LDAk #04 SFT ,&parse JSR ,&write JSR |
|
| 64 |
+ LDAk #0f AND ,&parse JSR ,&write JSR |
|
| 65 |
+ ( formatting ) |
|
| 66 |
+ DUP2 ;data -- |
|
| 67 |
+ DUP2 #000f AND2 #000f !! ,&no-linebreak JCN |
|
| 68 |
+ #0a ,&write JSR ,&end JMP &no-linebreak |
|
| 69 |
+ DUP2 #0001 AND2 #0001 !! ,&no-space JCN |
|
| 70 |
+ #20 ,&write JSR &no-space |
|
| 71 |
+ &end |
|
| 72 |
+ POP2 |
|
| 73 |
+ INC2 GTH2k ,&loop JCN |
|
| 74 |
+ POP2 POP2 |
|
| 75 |
+ HALT |
|
| 76 |
+ |
|
| 77 |
+JMP2r |
|
| 78 |
+ &write ;&b STA ;&b .File/write DEO2 JMP2r |
|
| 79 |
+ &parse DUP #09 GTH ,&above JCN #30 + JMP2r &above #57 + JMP2r |
|
| 80 |
+ &b $1 |
|
| 81 |
+ |
|
| 82 |
+@tal-ext ".tal $1 |
|
| 83 |
+ |
|
| 84 |
+@scat ( src* dst* -- ) |
|
| 85 |
+ |
|
| 86 |
+ DUP2 ,slen JSR ++ ,scpy JSR |
|
| 87 |
+ |
|
| 88 |
+JMP2r |
|
| 89 |
+ |
|
| 90 |
+@slen ( str* -- len* ) |
|
| 91 |
+ |
|
| 92 |
+ DUP2 ,scap JSR SWP2 -- |
|
| 93 |
+ |
|
| 94 |
+JMP2r |
|
| 95 |
+ |
|
| 96 |
+@scap ( str* -- end* ) |
|
| 97 |
+ |
|
| 98 |
+ LDAk #00 ! JMP JMP2r |
|
| 99 |
+ &while |
|
| 100 |
+ INC2 LDAk ,&while JCN |
|
| 101 |
+ |
|
| 102 |
+JMP2r |
|
| 103 |
+ |
|
| 104 |
+@scpy ( src* dst* -- ) |
|
| 105 |
+ |
|
| 106 |
+ STH2 |
|
| 107 |
+ &while |
|
| 108 |
+ LDAk STH2kr STA INC2r |
|
| 109 |
+ INC2 LDAk ,&while JCN |
|
| 110 |
+ POP2 |
|
| 111 |
+ #00 STH2r STA |
|
| 112 |
+ |
|
| 113 |
+JMP2r |
|
| 114 |
+ |
|
| 115 |
+@sput ( str* char -- ) |
|
| 116 |
+ |
|
| 117 |
+ ROT ROT ,scap JSR STA |
|
| 118 |
+ |
|
| 119 |
+JMP2r |
|
| 120 |
+ |
|
| 121 |
+@mclr ( addr* len* -- ) |
|
| 122 |
+ |
|
| 123 |
+ OVR2 ++ SWP2 |
|
| 124 |
+ &loop |
|
| 125 |
+ STH2k #00 STH2r STA |
|
| 126 |
+ INC2 GTH2k ,&loop JCN |
|
| 127 |
+ POP2 POP2 |
|
| 128 |
+ |
|
| 129 |
+JMP2r |
|
| 130 |
+ |
|
| 131 |
+@data |