diff TL1/toasm.pl @ 117:f8f44153f8c1

add TL1 source
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Fri, 04 Jan 2019 07:39:19 +0900
parents
children 8f2154d95a04
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/TL1/toasm.pl	Fri Jan 04 07:39:19 2019 +0900
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+
+while(<>) {
+    s/\r\n$//;
+    s/^\d+ //;
+    print $_,"\n" 
+}