Merge branch 'main' of github.com:mortenjc/Q1

src/progs/jdc.py

@@ -281,20 +281,35 @@
         0x1779: 'checksum good on data record',
         0x177b: 'end-of-record marker',
         0x1800: 'PL/1 AAAA',
-        0x1803: 'PL/1 BBBB',
+        0x1803: 'PL/1 return from subroutine?',
         0x1806: 'PL/1 CCCC',
-        0x1809: 'PL/1 DDDD',
+        0x1809: 'PL/1 RUN Microcode Program',
         0x187c: 'Interpretive Program Counter',
+        0x187f: 'get instruction (or data)',
+        0x1882: 'jump if a > 63 (is address?)',
+        0x1890: 'a = (0x18xx) xx = 2*a + 12; ex. instr 0xa is at 0x1820 -> jp 0x18a5',
+        0x1894: 'jump to instruction code',
+        0x1895: 'get original value of a',
+        0x1896: 'get next byte of address',
+        0x1899: 'push address on stack',
+        0x189a: 'get next instr or address',
+        0x189d: 'INST 00 - stack number from address on stack',
+        0x18a5: 'INST 0A - add',
+        0x18ac: 'INST 03 - store binary number at stack address',
+        0x18b4: 'INST 0C - replace binary number with negation',
         0x18b5: 'call NhL routine',
+        0x18bb: 'INST 0E - multiply binary',
         0x18bd: 'call MUL routine',
         0x18c5: 'call DIV routine',
-        0x18cc: 'increment IPC',
+        0x18cc: 'INST 15 - PUT data to specified device driver',
         0x18d0: 'increment IPC',
         0x18d3: 'Output routine for PUT',
         0x18f5: 'call TOSTR routine',
+        0x1938: 'INST 1F - return from subroutine',
         0x1939: 'call GETDN routine',
-        0x194a: 'call NKEY routine',
+        0x194a: 'INST 23 - get new line of keyboard input',
         0x1958: 'call TOSTR',
+        0x1992: 'INST 06 - store a string of bytes',
         0x1aea: 'call CARB (ch to binary)',
         0x1b05: 'call BICHAR',
         0x1b0a: 'call TOSTR',
@@ -307,18 +322,32 @@
         0x1b81: 'set ONCODE = a',
         0x1ba0: 'run loaded program!',
         0x1ba3: 'call (error) REPORT',
+        0x1baf: 'INST 2C - write on disk',
         0x1bb6: 'call WRITE',
+        0x1bbc: 'INST 2D - rewrite on disk',
         0x1bc3: 'call REWRITE',
         0x1bca: 'call OPEN',
+        0x1bdd: 'INST 08 - compare decimal',
+        0x1bc9: 'INST 22 - open file',
+        0x1c12: 'INST 09 - compare character strings',
+        0x1c37: 'INST 07 - compare binary numbers',
+        0x1c4d: 'INST 0B - add decimal',
+        0x1cfb: 'INST 01 - stack float from address on stack',
         0x1cfc: 'push 8 0x00 on stack (subroutine?)',
         0x1d03: 'increment IPC',
-        0x1d15: 'increment IPC',
+        0x1d15: 'INST 04 - store float',
         0x1d2b: 'hl = IPC addr',
         0x1d3c: 'run microcode program',
+        0x1d78: 'INST 05 - store decimal number as fixed point',
+        0x1dbe: 'INST 0D - negate decimal?',
+        0x1dcb: 'INST 02 - stack dec num from address on stack',
         0x1df5: 'call aaaa()',
         0x1df8: 'run microcode program',
+        0x1eb3: 'INST 0F - multiply decimal',
+        0x1fcc: 'run microcode program',
         0x1fd8: 'run microcode program',
         0x1fe4: 'run microcode program',
+        0x1ff8: 'jump via 0x4f to 0x734',
         0x1ffc: 'run microcode program'
 
 
@@ -367,15 +396,14 @@
         [0x05e9, 0x05f5, 'rev_tab()'],
         [0x05f6, 0x0606, 'del_char()'],
         [0x0607, 0x062a, 'hexx_input()?'],
-
+        [0x062b, 0x0641, 'UNEXPLORED'],
         [0x0642, 0x0651, 'multiply() = de * bc'],
         [0x0652, 0x0689, 'divide() = hl / de'],
         [0x068a, 0x06b0, 'bin_to_string()'],
-
+        [0x06b1, 0x0733, 'UNEXPLORED'],
+        [0x0734, 0x0766, 'UNEXPLORED'],
         [0x0767, 0x0774, 'called from x003c (nibbl rotation?)'],
-        [0x0775, 0x07ff, 'UNEXPLORED x700 region'],
-
-
+        [0x0775, 0x07ff, 'UNEXPLORED'],
         [0x0800, 0x0802, 'READ vec'],
         [0x0803, 0x0805, 'WRITE vec'],
         [0x0806, 0x0808, 'REWRITE vec'],
@@ -396,16 +424,18 @@
         [0x0d7e, 0x0d8a, 'deselect all disks()'],
         [0x0d8b, 0x0d8d, 'text string? - IWS'],
         [0x0d8e, 0x0da6, 'report()'],
-
         [0x0da7, 0x0de0, 'print nth error message'],
         [0x0de1, 0x0e4e, 'text strings - INDEX .. WEIRD ERR'],
         [0x0e4f, 0x0fb7, 'key search()'],
         [0x0fb8, 0x0fe0, 'write()'],
         [0x0fe1, 0x0fff, 'Setup disk: Records:88, Rec per Track: 130, Rec len 24 bytes'],
 
         # 1000 - 17ff marked as unused in ROS Manual!
+        [0x1000, 0x1002, 'UNEXPLORED'],
         [0x1003, 0x1005, 'write?'],
+        [0x1006, 0x1008, 'UNEXPLORED'],
         [0x1009, 0x100b, 'key search jump vector'],
+        [0x100c, 0x1014, 'UNEXPLORED'],
         [0x1015, 0x112e, 'unknown IWS code jump vector'],
         [0x112f, 0x113e, 'increment current record number (and return)'],
         [0x113f, 0x1143, 'return from (unknown) disk function'],
@@ -419,25 +449,26 @@
         [0x1365, 0x140d, 'Search for valid ID Record'],
         [0x140e, 0x141a, 'skip 4*l + 3 bytes'],
         [0x141b, 0x1474, 'UNEXPLORED'],
-        [0x1475, 0x147b, '????'],
+        [0x1475, 0x147b, 'UNEXPLORED'],
         [0x147c, 0x14a7, 'search for INDEX file?'],
         [0x14a8, 0x1569, 'UNEXPLORED'],
         [0x156a, 0x158d, 'unknown IWS function i'],
-
+        [0x158e, 0x1593, 'UNEXPLORED'],
         [0x1594, 0x15ab, 'unknown IWS function ii'],
         [0x15ac, 0x1604, 'unknown IWS functions'],
         [0x1605, 0x166a, 'ASCI CHARS ERROR MESSAGES'],
         [0x166b, 0x17ff, 'KEY ()?'],
 
-        [0x1800, 0x1877, 'PL/1 1'],
-        [0x1878, 0x187b, 'bbbb()'],
+        [0x1800, 0x180b, 'PL/1 jump vectors'],
+        [0x180c, 0x1877, 'PL/1 instruction vectors'],
+        [0x1878, 0x187b, 'return from subrouine?'],
         [0x187c, 0x1b80, 'run microcode program'],
         [0x1b81, 0x1ba2, 'return from file operations'],
         [0x1ba3, 0x1ccd, 'UNEXPLORED'],
         [0x1cce, 0x1d2a, 'aaaa()'],
         [0x1d2b, 0x1d33, 'increment IPC value'],
         [0x1d34, 0x1f52, 'UNEXPLORED'],
-        [0x1f53, 0x1f61, 'cccc() - clear 8 bytes in scratch'],
+        [0x1f53, 0x1f61, 'cccc() - clear 16 bytes in scratch'],
         [0x1f62, 0x1fff, 'UNEXPLORED'],