Initial commit

Author: markmoxon

.gitattributes

@@ -0,0 +1,17 @@
+# Auto detect text files and perform LF normalization
+* text=auto
+
+# Custom for Visual Studio
+*.cs     diff=csharp
+
+# Standard to msysgit
+*.doc    diff=astextplain
+*.DOC    diff=astextplain
+*.docx   diff=astextplain
+*.DOCX   diff=astextplain
+*.dot    diff=astextplain
+*.DOT    diff=astextplain
+*.pdf    diff=astextplain
+*.PDF    diff=astextplain
+*.rtf    diff=astextplain
+*.RTF    diff=astextplain

.gitignore

@@ -0,0 +1,28 @@
+# Windows thumbnail cache files
+Thumbs.db
+ehthumbs.db
+ehthumbs_vista.db
+
+# Folder config file
+Desktop.ini
+
+# Recycle Bin used on file shares
+$RECYCLE.BIN/
+
+# Windows Installer files
+*.cab
+*.msi
+*.msm
+*.msp
+
+# Windows shortcuts
+*.lnk
+
+# =========================
+# Operating System Files
+# =========================
+.vscode/tasks.json
+compile.txt
+elite-a-beebasm.code-workspace
+run.bat
+elite-header.h.asm

compile.sh

@@ -0,0 +1,6 @@
+beebasm -i "sources/a.tcode" -v > output/compile.txt
+beebasm -i "sources/a.dcode" -v >> output/compile.txt
+beebasm -i "sources/make1d.asm" -v >> output/compile.txt
+beebasm -i "sources/a.qcode" -v >> output/compile.txt
+beebasm -i "sources/a.qelite" -v >> output/compile.txt
+beebasm -i "sources/a.elite" -v >> output/compile.txt

convert.py

@@ -0,0 +1,142 @@
+import re
+
+
+# Config
+source_folder = "original/"
+source_files = ["a.global",
+                "a.tcode", "a.tcode_1", "a.tcode_2", "a.tcode_3",
+                "a.dcode", "a.dcode_1", "a.dcode_2", "a.dcode_3",
+                "a.icode", "a.icode_1", "a.icode_2", "a.icode_3",
+                "a.qcode", "a.qcode_1", "a.qcode_2", "a.qcode_3", "a.qcode_4", "a.qcode_5", "a.qcode_6",
+                "a.qship_1", "a.qship_2",
+                "a.qelite",
+                "a.elite"
+                ]
+dest_folder = "sources/"
+
+re_label = re.compile(r'^([a-z0-9A-Z_]+):?(\s+.*)*$')
+re_llabel = re.compile(r'(l_[0-9A-F]{4})')
+re_instruction = re.compile(r'^\s*(.+)$')
+re_equa = re.compile(r'^\s*EQUA\s*"(.+)"$')
+re_opt = re.compile(r'^\s*OPT.+$')
+re_var = re.compile(r'^([a-z0-9A-Z_]+):?\s*EQU \s*(\$?)(.+)$')
+re_get = re.compile(r'^\s+GET\s*"(.+)"$')
+re_labelinstruction = re.compile(r'^([a-z0-9A-Z_]+):?\s+(.+)$')
+
+
+def process_file(input_file, output_file, source_file):
+    for line in input_file:
+        # Manual fixes for scoping and case issues that trigger BeebAsm errors
+        if source_file == "a.qcode_4":
+            line = line.replace("jmp_start3", "jmp_start3_dup")
+        if source_file == "a.qcode_3":
+            line = line.replace("_07c0", "_07C0")
+            line = line.replace("_07e0", "_07E0")
+
+        if line.endswith("..<\n"):
+            continue
+
+        a = re_llabel.search(line)
+        while a and a.group(1) != a.group(1).lower():
+            line = line.replace(a.group(1), a.group(1).lower())
+            a = re_llabel.search(line)
+        m = re_label.search(line)
+        n = re_equa.search(line)
+        p = re_instruction.search(line)
+        q = re_var.search(line)
+        r = re_get.search(line)
+        s = re_labelinstruction.search(line)
+        if "EQUD 2#" in line:
+            line = line.replace("EQUD 2#", "EQUD %")
+        elif s and not s.group(2).startswith("EQU "):
+            line = "\n." + s.group(1) + "\n\n"
+            if s.group(2).startswith("EQUA"):
+                z = re_equa.search(s.group(2))
+                line += ' EQUS "' + convert_equa(z.group(1)) + '"\n'
+            else:
+                line += " " + s.group(2).replace("$", "&") + "\n"
+        elif q:
+            amp = q.group(2).replace("$", "&")
+            line = q.group(1) + " = " + amp + q.group(3) + "\n"
+        elif m:
+            line = "\n." + m.group(1) + "\n\n"
+        elif n:
+            line = ' EQUS "' + convert_equa(n.group(1)) + '"\n'
+        elif r:
+            line = 'INCLUDE "sources/' + r.group(1).replace(":0.", "").replace(":2.", "") + '"\n'
+        elif p:
+            if p.group(1).startswith("LOAD"):
+                line = line.replace("$FFFF", "$").replace("\tLOAD $", "LOAD% = &")
+            elif p.group(1).startswith("EXEC"):
+                line = line.replace("$FFFF", "$").replace("\tEXEC $", "EXEC% = &").replace("\tEXEC ", "\\EXEC = ")
+            elif p.group(1).startswith("ORG"):
+                line = line.replace("$FFFF", "$").replace("\tORG $", "CODE% = &") + "ORG CODE%\n"
+            elif p.group(1).startswith("OPT"):
+                line = line.replace("\tOPT", "\\OPT")
+            else:
+                line = " " + p.group(1).replace("$", "&") + "\n"
+        output_file.write(line)
+
+
+def convert_equa(equa):
+    result = ""
+    ctrl = False
+    excl = False
+
+    for char in equa:
+        if ctrl:
+            if char == '!':
+                excl = True
+                ctrl = False
+                continue
+            if char == '|':
+                ascii = ord(char)
+            else:
+                ascii = ord(char) - 0x40
+            if ascii < 0:
+                ascii += 0x80
+            if excl:
+                ascii += 0x80
+            result += '", &' + ('%02x' % ascii).upper() + ', "'
+            ctrl = False
+            excl = False
+        elif char == '|':
+            ctrl = True
+        else:
+            if excl:
+                ascii = ord(char) + 0x80
+                if ascii < 0:
+                    ascii += 0x80
+                result += '", &' + ('%02x' % ascii).upper() + ', "'
+            else:
+                result += char
+            ctrl = False
+            excl = False
+
+    return result
+
+
+for source_file in source_files:
+    input = source_folder + source_file
+
+    with open(input, "r", encoding="latin-1") as input_file:
+        output = dest_folder + source_file
+        print(".", end="", flush=True)
+
+        with open(output, "w") as output_file:
+            process_file(input_file, output_file, source_file)
+
+            if source_file == "a.tcode":
+                output_file.write('\nSAVE "output/tcode.bin", CODE%, P%, LOAD%')
+            if source_file == "a.dcode":
+                output_file.write('\nSAVE "output/1.F.bin", CODE%, P%, LOAD%')
+            if source_file == "a.icode":
+                output_file.write('\nSAVE "output/1.E.bin", CODE%, P%, LOAD%')
+            if source_file == "a.qcode":
+                output_file.write('\nSAVE "output/2.T.bin", CODE%, P%, LOAD%')
+            if source_file == "a.qelite":
+                output_file.write('\nSAVE "output/2.H.bin", CODE%, P%, LOAD%')
+            if source_file == "a.elite":
+                output_file.write('\nSAVE "output/Elite.bin", CODE%, P%, LOAD%')
+
+print()

extracted/$.Elite

@@ -0,0 +1 @@
+\ a.dcode - ELITE III in-flight code	GET ":0.a.global"	ORG $11E3	LOAD $11E3	EXEC $11E3dcode_in:	JMP startboot_in:	JMP startwrch_in:	JMP wrchdst	EQUW $114Bbrk_in:	JMP brkdst	GET "a.dcode_1"	GET "a.dcode_2"	GET "a.dcode_3"

extracted/$.tcode

@@ -0,0 +1 @@
+l_54c8:	STA $87l_54ca:	JSR vdu_80	JSR l_360a	STA $0343	STA $034A	STA $034B	LDX #$60l_54dc	JSR l_42a1	INX	CPX #$78	BNE l_54dc	LDX $2F	BEQ l_54eb	JSR l_30acl_54eb:	LDY #$01	STY cursor_y	LDA $87	BNE l_5507	LDY #$0B	STY cursor_x	LDA view_dirn	ORA #$60	JSR l_339a	JSR l_3142	LDA #$AF	JSR l_339al_5507	LDX #$00	STX $34	STX $35	STX vdu_stat	DEX	STX $36	JSR l_1868	LDA #$02	STA $34	STA $36	JSR l_551el_551e	JSR l_5521l_5521	LDA #$00	STA $35	LDA #$BF	STA $37	DEC $34	DEC $36	JMP l_16c4l_5530:	JSR l_55f7	DEY	BNE l_5530	RTSl_5537:	LDA #$14	STA cursor_y	LDA #$75	STA ptr+$01	LDA #$07	STA ptr	JSR l_2b60	LDA #$00	JSR l_5550	INC ptr+$01	INY	STY cursor_xl_5550	LDY #$E9l_5552	STA (ptr),Y	DEY	BNE l_5552l_5557	RTSiff_xor	EQUB $00, $00, $0F	\, $FF, $F0 overlapiff_base	EQUB $FF, $F0, $FF, $F0, $FFl_5558:	LDA $65	AND #$10	BEQ l_5557	LDA $8C	BMI l_5557	JSR iff_index	LDA iff_base,X	STA $91	LDA iff_xor,X	STA $37	LDA $47	ORA $4A	ORA $4D	AND #$C0	BNE l_5557	LDA $47	CLC	LDX $48	BPL l_5581	EOR #$FF	ADC #$01l_5581	ADC #$7B	STA $34	LDA $4D	LSR A	LSR A	CLC	LDX $4E	BPL l_5591	EOR #$FF	SECl_5591	ADC #$23	EOR #$FF	STA ptr	LDA $4A	LSR A	CLC	LDX $4B	BMI l_55a2	EOR #$FF	SECl_55a2	ADC ptr	BPL l_55b0	CMP #$C2	BCS l_55ac	LDA #$C2l_55ac	CMP #$F7	BCC l_55b2l_55b0	LDA #$F6l_55b2	STA $35	SEC	SBC ptr\	PHP	PHA	JSR l_36a7	LDA pixels+$11,X	TAX	AND $91	\ iff	STA $34	TXA	AND $37	STA $35	PLA\	PLP	TAX	BEQ l_55da\	BCC l_55db	BMI l_55dbl_55ca	DEY	BPL l_55d1	LDY #$07	DEC ptr+$01l_55d1	LDA $34	EOR $35	\ iff	STA $34	\ iff	EOR (ptr),Y	STA (ptr),Y	DEX	BNE l_55cal_55da	RTSl_55db	INY	CPY #$08	BNE l_55e4	LDY #$00	INC ptr+$01l_55e4	INY	CPY #$08	BNE l_55ed	LDY #$00	INC ptr+$01l_55ed	LDA $34	EOR $35	\ iff	STA $34	\ iff	EOR (ptr),Y	STA (ptr),Y	INX	BNE l_55e4	RTSl_55f7:	LDA #$00	STA $8Bl_55fb	LDA $8B	BEQ l_55fb	RTS 

extracted/1.D

@@ -0,0 +1,101 @@
+	OPT TABS=16
+
+key_table:	EQU $04
+ptr:	EQU $07
+font:	EQU $1C
+cursor_x:	EQU $2C
+cursor_y:	EQU $2D
+vdu_stat:	EQU $72
+brk_line:	EQU $FD
+last_key:	EQU $300
+ship_type:	EQU $311
+cabin_t:	EQU $342
+target:	EQU $344
+view_dirn:	EQU $345
+laser_t:	EQU $347
+adval_x:	EQU $34C
+adval_y:	EQU $34D
+cmdr_mission:	EQU $358
+cmdr_homex:	EQU $359
+cmdr_homey:	EQU $35A
+cmdr_gseed:	EQU $35B
+cmdr_money:	EQU $361
+cmdr_fuel:	EQU $365
+cmdr_galxy:	EQU $367
+cmdr_laser:	EQU $368
+cmdr_ship:	EQU $36D
+cmdr_hold:	EQU $36E
+cmdr_cargo:	EQU $36F
+cmdr_ecm:	EQU $380
+cmdr_scoop:	EQU $381
+cmdr_bomb:	EQU $382
+cmdr_eunit:	EQU $383
+cmdr_dock:	EQU $384
+cmdr_ghype:	EQU $385
+cmdr_escape:	EQU $386
+cmdr_cour:	EQU $387
+cmdr_courx:	EQU $389
+cmdr_coury:	EQU $38A
+cmdr_misl:	EQU $38B
+cmdr_legal:	EQU $38C
+cmdr_avail:	EQU $38D
+cmdr_price:	EQU $39E
+cmdr_kills:	EQU $39F
+f_shield:	EQU $3A5
+r_shield:	EQU $3A6
+energy:	EQU $3A7
+home_econ:	EQU $3AC
+home_govmt:	EQU $3AE
+home_tech:	EQU $3AF
+data_econ:	EQU $3B8
+data_govm:	EQU $3B9
+data_tech:	EQU $3BA
+data_popn:	EQU $3BB
+data_gnp:	EQU $3BD
+hype_dist:	EQU $3BF
+data_homex:	EQU $3C1
+data_homey:	EQU $3C2
+s_flag:	EQU $3C6
+cap_flag:	EQU $3C7
+a_flag:	EQU $3C8
+x_flag:	EQU $3C9
+f_flag:	EQU $3CA
+y_flag:	EQU $3CB
+j_flag:	EQU $3CC
+k_flag:	EQU $3CD
+b_flag:	EQU $3CE
+\
+save_lock:	EQU $233
+new_file:	EQU $234
+new_posn:	EQU $235
+new_type:	EQU $36D
+new_pulse:	EQU $3D0
+new_beam:	EQU $3D1
+new_military:	EQU $3D2
+new_mining:	EQU $3D3
+new_mounts:	EQU $3D4
+new_missiles:	EQU $3D5
+new_shields:	EQU $3D6
+new_energy:	EQU $3D7
+new_speed:	EQU $3D8
+new_hold:	EQU $3D9
+new_range:	EQU $3DA
+new_costs:	EQU $3DB
+new_max:	EQU $3DC
+new_min:	EQU $3DD
+new_space:	EQU $3DE
+\new_:	EQU $3DF
+new_name:	EQU $74D
+\
+iff_index:	EQU $D7A
+altitude:	EQU $FD1
+irq1:	EQU $114B
+commander:	EQU $1189
+brkdst:	EQU $11D5
+ship_data:	EQU $55FE
+l_563d:	EQU $563D
+osfile:	EQU $FFDD
+oswrch:	EQU $FFEE
+osword:	EQU $FFF1
+osbyte:	EQU $FFF4
+oscli:	EQU $FFF7

extracted/1.D-patched

@@ -0,0 +1 @@
+\ a.icode - ELITE III encyclopedia	GET ":0.a.global"	ORG $11E3	LOAD $11E3	EXEC $11E3dcode_in:	JMP dcode_2boot_in:	JMP dcode_2wrch_in:	JMP wrchdst	EQUW $114Bbrk_in:	JMP brk_go	GET "a.icode_1"	GET "a.icode_2"	GET "a.icode_3"