Changeset 12 for trunk/Disassembler.pas

Timestamp:

Apr 21, 2026, 11:04:26 AM (6 days ago)

Author:

chronos

Message:

• Added: Implemented breakpoints and run to cursor action.

File:

• trunk/Disassembler.pas (modified) (2 diffs)

trunk/Disassembler.pas

@@ -51 +51 @@
 
 const
-  Comments: array[0..16] of TComment = (
+  Comments: array[0..35] of TComment = (
+    (Address: $3; Text: 'GETL (Reads one line of data from the keyboard and stores it in the memory area starting at the address in the DE register.)'),
     (Address: $6; Text: 'LETNL (Moves the cursor to the beginning of the next line.)'),
+    (Address: $9; Text: 'Line feed'),
     (Address: $c; Text: 'PRNTS (Display a space at the cursor position.)'),
+    (Address: $f; Text: 'Move cursor to next tab position'),
     (Address: $12; Text: 'PRNTS (Display a character.)'),
     (Address: $15; Text: 'MSG (Displays a message.)'),
+    (Address: $18; Text: 'IOSVC'),
+    (Address: $1b; Text: 'GETKEY (Reads a character code (ASCII) from the keyboard.)'),
+    (Address: $1e; Text: 'BRKEY (Checks whether the I SHIFT I and I BREAK I keys are both being pressed.)'),
     (Address: $30; Text: 'MELDY'),
+    (Address: $33; Text: 'TIMST (Sets and starts the built-in clock.)'),
+    (Address: $3b; Text: 'TIMRD (Reads the built-in clock and returns the time.'),
     (Address: $3e; Text: 'BELL'),
     (Address: $41; Text: 'XTEMP (Sets the music tempo.)'),
     (Address: $44; Text: 'MSTA (Generates a continuous sound of the specified frequency.)'),
-    (Address: $309; Text: 'Init 8253 counters.'),
+    (Address: $47; Text: 'MSTP (Stops the sound generated with the CALL MSTA subroutine.)'),
+    (Address: $308; Text: 'Init 8253 counters.'),
     (Address: $3da; Text: 'ASC (Loads the ASCII character.)'),
     (Address: $3f9; Text: 'HEX (Converts the 8 data bits stored in the ACC into a hexadecimal number.)'),
@@ -66 +75 @@
     (Address: $41f; Text: '2HEX (Converts a string of 2 ASCII characters into a hexadecimal number and loads it into the ACC.)'),
     (Address: $73e; Text: 'Init 8255 PIO.'),
+    (Address: $9b3; Text: '??KEY (Blinks the cursor to prompt for key input.)'),
+    (Address: $a32; Text: 'Something with 8255 PIO.'),
+    (Address: $bb9; Text: '?ADCN (Converts ASCII codes into display codes.)'),
+    (Address: $bce; Text: '?DACN (Converts display codes into ASCII codes.)'),
+    (Address: $da6; Text: '?BLNK (Detects the vertical blanking period.)'),
+    (Address: $ddc; Text: '?DPCT (Controls display.)'),
+    (Address: $fb1; Text: '?POINT (Loads the current cursor location into the HL register.)'),
+    (Address: $fd8; Text: 'Write FF to (HL) B times.'),
+    (Address: $1171; Text: 'Cursor pos.'),
+    (Address: $1172; Text: 'Cursor pos.'),
     (Address: $e414; Text: 'Delay'),
     (Address: $e800; Text: 'Cold start'),