Anyone interested in creating a new Lisp (lsp) file from a assembly output from a disassembler?

We can get to a deal.

Here is a sample of the source file:




03113 67 B If (Retval of <==0)[Far] Jump over 11 bytes to 3129 3
03118 3 20C Push value of [TT1000N] 4
03121 6 212 setq TUBN TT1000N 3
03124 57 0 jump [far] over 0 bytes to 3129 3
03129 3 216 Push value of [TUB] 4
03132 33 190 push 00000400 5
03137 51 2 2A3 1 < 2 Params are above <- Convert to funcptr 4
03143 67 B If (Retval of <==0)[Far] Jump over 11 bytes to 3159 3
03148 3 20B Push value of [TT0500N] 4
03151 6 212 setq TUBN TT0500N 3
03154 57 0 jump [far] over 0 bytes to 3159 3
03159 3 21D Push value of [TM2] 4
03162 28 push list element from (TM2) 4
03163 3 221 Push value of [TM1] 5
03166 28 push list element from (TM1) 5
03167 51 2 260 1 - 2 Params are above <- Convert to funcptr 4
03173 3 21D Push value of [TM2] 5
03176 29 push next list element from (TM2) 5
03177 28 push list element from (next list element from (TM2)) 5
03178 3 221 Push value of [TM1] 6
03181 29 push next list element from (TM1) 6
03182 28 push list element from (next list element from (TM1)) 6
03183 51 2 260 1 - 2 Params are above <- Convert to funcptr 5
03189 51 2 2A7 1 LIST 2 Params are above <- Convert to funcptr 4
03195 6 20A setq TM3 Retval of LIST 3
03198 3 20A Push value of [TM3] 4
03201 28 push list element from (TM3) 4
03202 32 2 push 02 5
03204 51 2 215 1 / 2 Params are above <- Convert to funcptr 4
03210 3 20A Push value of [TM3] 5
03213 29 push next list element from (TM3) 5
03214 28 push list element from (next list element from (TM3)) 5