1 files changed, 38 insertions, 2 deletions

diff --git a/listbas.c b/listbas.c
index 9457745..c6c4992 100644
--- a/listbas.c
+++ b/listbas.c
@@ -17,6 +17,7 @@
 #include "aplus_tokens.h"
 #include "bxl_tokens.h"
 #include "bxe_tokens.h"
+#include "int_tokens.h"
 #include "atables.h"
 #include "whichbas.h"
 
@@ -25,6 +26,7 @@
 #define B_APLUS SRET_APLUS
 #define B_BXL   SRET_BXL
 #define B_BXE   SRET_BXE
+#define B_INT   SRET_OSSINT
 
 #define COLOR_FMT "\x1b[%d;3%dm"  /* 1st %d is 1 for bold, 2nd is color */
 
@@ -135,6 +137,9 @@ int get_bas_type(char *arg) {
 	if(arg[0] == 't')
 		return B_TURBO;
 
+	if(arg[0] == 't')
+		return B_INT;
+
 	if(arg[0] == 'a') {
 		if(arg[1] == '+')
 			return B_APLUS;
@@ -346,7 +351,19 @@ void color_off(void) {
 	fputs(COLOR_OFF, outfh);
 }
 
-void print_number(unsigned int pos, int hex) {
+void print_int_number(unsigned int pos, int hex) {
+	unsigned int num = program[pos] | (program[pos + 1] << 8);
+	if(color) color_on(color_const);
+	if(hex) {
+		fprintf(outfh, (num > 0xff ? "%04x" : "%02x"), num);
+	} else {
+		fprintf(outfh, "%d", num);
+	}
+	if(color) color_off();
+	printf("end of print_int_number()\n");
+}
+
+void print_bcd_number(unsigned int pos, int hex) {
 	double num = bcd2double(program + pos);
 	if(color) color_on(color_const);
 	if(hex) {
@@ -360,6 +377,13 @@ void print_number(unsigned int pos, int hex) {
 	if(color) color_off();
 }
 
+void print_number(unsigned int pos, int hex) {
+	if(bas_type == B_INT)
+		print_int_number(pos, hex);
+	else
+		print_bcd_number(pos, hex);
+}
+
 /* only called in magazine mode. cursor control characters
    like a bell in the middle of a non-inverse string
    should not cause it to print {inv}{bell}{norm}. The {bell}
@@ -1009,6 +1033,11 @@ void init_aplus_tables() {
 	memmove(op_tokens, aplus_ops, aplus_ops_size);
 }
 
+void init_int_tables() {
+	memmove(cmd_tokens, int_cmds, int_cmd_size);
+	memmove(op_tokens, int_ops, int_ops_size);
+}
+
 void init_turbo_tables() {
 	memmove(cmd_tokens + last_command  + 1, turbo_cmds, turbo_cmd_size);
 	memmove(op_tokens  + last_operator + 1, turbo_ops,  turbo_ops_size);
@@ -1030,6 +1059,9 @@ void init_token_tables() {
 	if(bas_type == B_APLUS) {
 		init_aplus_tables();
 		return;
+	} else if(bas_type == B_INT) {
+		init_int_tables();
+		return;
 	}
 
 	init_bas_tables();
@@ -1067,6 +1099,7 @@ void set_bas_dialect(int d) {
 		case SRET_TURBO:
 		case SRET_BXL:
 		case SRET_BXE:
+		case SRET_OSSINT:
 			bas_type = d;
 			break;
 		case SRET_AMSB:
@@ -1121,7 +1154,10 @@ void init_bas_dialect() {
 	if(autodetect)
 		detect_bas_dialect();
 
-	if(bas_type == B_TURBO || bas_type == B_BXL || bas_type == B_BXE)
+	if(bas_type == B_INT)
+		numconst_size = 2;
+
+	if(bas_type == B_TURBO || bas_type == B_BXL || bas_type == B_BXE || bas_type == B_INT)
 		allow_hex_const = 1;
 
 	if(bas_type == B_APLUS)