cpm/z80asm_to_mac.awk

   1 BEGIN {ORS="\r\n"}
   2
   3 /^[[:blank:]]*[a-zA_Z0-9_.]+:[[:blank:]]*equ[[:blank:]]/ {$0 = gensub(":"," ",1) }
   4 /^[[:blank:]]*org[[:blank:]]bios/ {$0 = "";
   5                 print " aseg";
   6                 print " org     100h";
   7                 print " .phase  bios";
   8                 print " .z80"}
   9
  10         {gsub("<<", " shl "); gsub(">>", " shr ") }
  11         {print}
  12