From 9cbbc061aea6099f288c7b19e97a9fd0a58d5820 Mon Sep 17 00:00:00 2001 From: Rikard Nordgren Date: Wed, 4 Feb 2026 21:04:44 +0100 Subject: [PATCH] Add similarity strings --- strings/23A004B12285 | 3 +++ strings/25A000B124 | 3 +++ strings/38E561F0 | 3 +++ strings/49FF6901 | 3 +++ strings/4C37A4A2 | 3 +++ strings/60A56649FF | 3 +++ strings/614C6AB8 | 3 +++ strings/6E4566856F | 3 +++ strings/85628463 | 3 +++ strings/856E4566856FA5 | 3 +++ strings/856FA561 | 3 +++ strings/8CBAD0034C | 3 +++ strings/A004B122 | 3 +++ strings/A20F4C37A4 | 3 +++ strings/A3A90085 | 3 +++ strings/AFA90020 | 3 +++ strings/BAD0034C | 3 +++ strings/D004A000 | 3 +++ 18 files changed, 54 insertions(+) create mode 100644 strings/23A004B12285 create mode 100644 strings/25A000B124 create mode 100644 strings/38E561F0 create mode 100644 strings/49FF6901 create mode 100644 strings/4C37A4A2 create mode 100644 strings/60A56649FF create mode 100644 strings/614C6AB8 create mode 100644 strings/6E4566856F create mode 100644 strings/85628463 create mode 100644 strings/856E4566856FA5 create mode 100644 strings/856FA561 create mode 100644 strings/8CBAD0034C create mode 100644 strings/A004B122 create mode 100644 strings/A20F4C37A4 create mode 100644 strings/A3A90085 create mode 100644 strings/AFA90020 create mode 100644 strings/BAD0034C create mode 100644 strings/D004A000 diff --git a/strings/23A004B12285 b/strings/23A004B12285 new file mode 100644 index 00000000..1f3c1d02 --- /dev/null +++ b/strings/23A004B12285 @@ -0,0 +1,3 @@ +$23 + LDY #$04 + LDA ($22),Y + STA + +Loop fragment load from index pointer diff --git a/strings/25A000B124 b/strings/25A000B124 new file mode 100644 index 00000000..81cf5a79 --- /dev/null +++ b/strings/25A000B124 @@ -0,0 +1,3 @@ +$25 + LDY #$00 + LDA ($24),Y + +Clear via index vector 2 in zero page diff --git a/strings/38E561F0 b/strings/38E561F0 new file mode 100644 index 00000000..47dc3bc3 --- /dev/null +++ b/strings/38E561F0 @@ -0,0 +1,3 @@ +SEC + SBC $61 + BEQ + +Sub from floating point area in zero page diff --git a/strings/49FF6901 b/strings/49FF6901 new file mode 100644 index 00000000..28985aa5 --- /dev/null +++ b/strings/49FF6901 @@ -0,0 +1,3 @@ +EOR #$FF + ADC #$01 + +Two's complement diff --git a/strings/4C37A4A2 b/strings/4C37A4A2 new file mode 100644 index 00000000..4b02b31b --- /dev/null +++ b/strings/4C37A4A2 @@ -0,0 +1,3 @@ +JMP $A437 + LDX + +Jump to error routine in BASIC diff --git a/strings/60A56649FF b/strings/60A56649FF new file mode 100644 index 00000000..4268ca19 --- /dev/null +++ b/strings/60A56649FF @@ -0,0 +1,3 @@ +RTS + LDA $66 + EOR #$FF + +Load and invert value from floating point area of zero page diff --git a/strings/614C6AB8 b/strings/614C6AB8 new file mode 100644 index 00000000..1aac5923 --- /dev/null +++ b/strings/614C6AB8 @@ -0,0 +1,3 @@ +RTS + JMP $B86A + +Fragment + jump to floating point function diff --git a/strings/6E4566856F b/strings/6E4566856F new file mode 100644 index 00000000..c153ed9b --- /dev/null +++ b/strings/6E4566856F @@ -0,0 +1,3 @@ +$6E + EOR $66 + STA $6F + +Manipulate floating point area in zero page (from BASIC) diff --git a/strings/85628463 b/strings/85628463 new file mode 100644 index 00000000..89f07e7e --- /dev/null +++ b/strings/85628463 @@ -0,0 +1,3 @@ +STA $62 + STY $63 + +Store AY into floating point area in zero page diff --git a/strings/856E4566856FA5 b/strings/856E4566856FA5 new file mode 100644 index 00000000..304b6c66 --- /dev/null +++ b/strings/856E4566856FA5 @@ -0,0 +1,3 @@ +STA $6E + EOR $66 + STA $6F + LDA + +Floating point code from BASIC diff --git a/strings/856FA561 b/strings/856FA561 new file mode 100644 index 00000000..eeba6cb8 --- /dev/null +++ b/strings/856FA561 @@ -0,0 +1,3 @@ +STA $6F + LDA $61 + +Store and load from/to floating point area in zero page diff --git a/strings/8CBAD0034C b/strings/8CBAD0034C new file mode 100644 index 00000000..154a35fb --- /dev/null +++ b/strings/8CBAD0034C @@ -0,0 +1,3 @@ +$8C + $BA + BNE $03 + JMP + +Fragments diff --git a/strings/A004B122 b/strings/A004B122 new file mode 100644 index 00000000..2296abcd --- /dev/null +++ b/strings/A004B122 @@ -0,0 +1,3 @@ +LDY #$04 + LDA ($22),Y + +Loop fragment load from index pointer diff --git a/strings/A20F4C37A4 b/strings/A20F4C37A4 new file mode 100644 index 00000000..f1574a6e --- /dev/null +++ b/strings/A20F4C37A4 @@ -0,0 +1,3 @@ +LDX #$0F + JMP $A437 + +Emit overflow error from BASIC diff --git a/strings/A3A90085 b/strings/A3A90085 new file mode 100644 index 00000000..cf0b45de --- /dev/null +++ b/strings/A3A90085 @@ -0,0 +1,3 @@ +$A3 + LDA #0 + STA + +Fragments diff --git a/strings/AFA90020 b/strings/AFA90020 new file mode 100644 index 00000000..9582b0a1 --- /dev/null +++ b/strings/AFA90020 @@ -0,0 +1,3 @@ +$AF + LDA #0 + JSR + +Fragments diff --git a/strings/BAD0034C b/strings/BAD0034C new file mode 100644 index 00000000..ca6c36d3 --- /dev/null +++ b/strings/BAD0034C @@ -0,0 +1,3 @@ +$BA + BNE $03 + JMP + +Fragments diff --git a/strings/D004A000 b/strings/D004A000 new file mode 100644 index 00000000..2fde13ca --- /dev/null +++ b/strings/D004A000 @@ -0,0 +1,3 @@ +BNE $04 + LDY #$00 + +Fragments