Class: ScAsm

Inherits:
IntegerBASIC show all
Defined in:
lib/native_file_types/apple2/ScAsm.rb

Overview

require ‘IntegerBASIC’

Instance Attribute Summary

Attributes inherited from NativeFileType

#aux_code, #contents, #file_system_image, #file_type, #filename, #meta_data

Instance Method Summary collapse

Methods inherited from IntegerBASIC

file_system_file_types

Methods inherited from NativeFileType

#<=>, #==, all_native_file_types, best_fit, code_for_tests, compatability_score, #data_without_header, file_type_matches?, #full_filename, #header_length, #initialize, is_valid_file_if, #load_address, load_address, matching_score, native_file_types_possible_on_file_system, non_matching_score, #to_hex_dump, #to_info_dump, #type_description

Methods included from SubclassTracking

extended

Constructor Details

This class inherits a constructor from NativeFileType

Instance Method Details

#to_listing ⇒ Object 



53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
# File 'lib/native_file_types/apple2/ScAsm.rb', line 53

def to_listing
    length=contents[0]+contents[1]*256
    index=2
    s=""
    while (index<length)
      line_length=contents[index]
      line_no=contents[index+1]+contents[index+2]*256
      s+=sprintf("%d ",line_no)
      index+=3 #skip over the "line number" field

      end_of_line=index+line_length-4
      while(index<end_of_line)
        b=contents[index]
        if (b==0xC0) then
          repeat_count=contents[index+1]
          repeat_char=(contents[index+2]).chr
          s+=repeat_char*repeat_count
          index+=3
        elsif(b>=0x80) then
          s+=" "*(b-0x80)
          index+=1
        else
          s+=b.chr
          index+=1
        end
      end
      index+=1 #skip over end-of-line marker

      s+="\n"
    end
    s
end