2016-09-11 21:09:00 +00:00
|
|
|
//
|
|
|
|
// File.cpp
|
|
|
|
// Clock Signal
|
|
|
|
//
|
|
|
|
// Created by Thomas Harte on 10/09/2016.
|
2018-05-13 19:19:52 +00:00
|
|
|
// Copyright 2016 Thomas Harte. All rights reserved.
|
2016-09-11 21:09:00 +00:00
|
|
|
//
|
|
|
|
|
|
|
|
#include "File.hpp"
|
|
|
|
|
2018-01-25 02:48:44 +00:00
|
|
|
bool Analyser::Static::Commodore::File::is_basic() {
|
2016-09-11 21:09:00 +00:00
|
|
|
// BASIC files are always relocatable (?)
|
|
|
|
if(type != File::RelocatableProgram) return false;
|
|
|
|
|
|
|
|
uint16_t line_address = starting_address;
|
|
|
|
int line_number = -1;
|
|
|
|
|
|
|
|
// decide whether this is a BASIC file based on the proposition that:
|
|
|
|
// (1) they're always relocatable; and
|
|
|
|
// (2) they have a per-line structure of:
|
|
|
|
// [4 bytes: address of start of next line]
|
|
|
|
// [4 bytes: this line number]
|
|
|
|
// ... null-terminated code ...
|
2018-05-13 19:37:35 +00:00
|
|
|
// (with a next line address of 0000 indicating end of program)
|
2017-03-26 18:34:47 +00:00
|
|
|
while(1) {
|
2024-12-02 22:23:50 +00:00
|
|
|
if(size_t(line_address - starting_address) + 1 >= data.size()) break;
|
2016-09-11 21:09:00 +00:00
|
|
|
|
|
|
|
uint16_t next_line_address = data[line_address - starting_address];
|
|
|
|
next_line_address |= data[line_address - starting_address + 1] << 8;
|
|
|
|
|
2017-03-26 18:34:47 +00:00
|
|
|
if(!next_line_address) {
|
2016-09-11 21:09:00 +00:00
|
|
|
return true;
|
|
|
|
}
|
|
|
|
if(next_line_address < line_address + 5) break;
|
|
|
|
|
2024-12-02 22:23:50 +00:00
|
|
|
if(size_t(line_address - starting_address) + 3 >= data.size()) break;
|
2016-09-11 21:09:00 +00:00
|
|
|
uint16_t next_line_number = data[line_address - starting_address + 2];
|
|
|
|
next_line_number |= data[line_address - starting_address + 3] << 8;
|
|
|
|
|
|
|
|
if(next_line_number <= line_number) break;
|
|
|
|
|
2020-05-10 03:00:39 +00:00
|
|
|
line_number = uint16_t(next_line_number);
|
2016-09-11 21:09:00 +00:00
|
|
|
line_address = next_line_address;
|
|
|
|
}
|
|
|
|
|
|
|
|
return false;
|
|
|
|
}
|