Changeset 220 for branches/CpuSingleSize/Sample.asm

Timestamp:

Oct 20, 2020, 1:10:09 AM (4 years ago)

Author:

chronos

Message:

• Added: Devices form with tree view of connected devices. Device control form can be opened by double click.
• Modifid: IN/OUT instructions now use also device group index to directly specify which device should be read/written.

File:

• branches/CpuSingleSize/Sample.asm (modified) (3 diffs)

branches/CpuSingleSize/Sample.asm

@@ -3 +3 @@
      NOP
      NOP
+     
+     VAR  DeviceConsole 1
+     VAR  ConsoleReadChar 0
+     VAR  ConsoleWriteChar 0
+     
+     VAR  DeviceKeyboard 2
+     
+     VAR  DeviceScreen 3
+     VAR  ScreenGetWidth 0
+     VAR  ScreenGetHeight 1
+     VAR  ScreenSetAddr 0
+     VAR  ScreenWrite 1
      
      ORG 16
@@ -63 +75 @@
     PUSH R2
     PUSH R3
-    SET  R3, 0
+    PUSH R4
+    SET  R3, ConsoleWriteChar
+    SET  R4, DeviceConsole
 WriteStrLoop:
     LD   R2, (R0)
-    OUT  (R3), R2
+    OUT  (R4: R3), R2
     INC  R0
     DEC  R1
     JNZ  R1, WriteStrLoop
+    POP  R4
     POP  R3
     POP  R2
     RET
-    
+        
 ClearScreen:
     PUSH R0
     PUSH R1
     PUSH R2
-    SET  R0, 1 
+    PUSH R3
+    SET  R0, ScreenSetAddr
     SET  R1, 0  
-    OUT  (R0), R1
-    SET  R0, 3
-    IN   R1, (R0)
-    SET  R0, 4
-    IN   R2, (R0)
+    SET  R3, DeviceScreen
+    OUT  (R3: R0), R1
+    SET  R0, ScreenGetWidth
+    IN   R1, (R3: R0)
+    SET  R0, ScreenGetHeight
+    IN   R2, (R3: R0)
     MUL  R2, R1
-    SET  R0, 2 
+    SET  R0, ScreenWrite
     SET  R1, 120
 ClearScreenLoop:
-    OUT  (R0), R1
+    OUT  (R3: R0), R1
     DEC  R2
     JNZ  R2, ClearScreenLoop
+    POP  R3
     POP  R2
     POP  R1
@@ -104 +122 @@
     PUSH R3
     PUSH R2
-    SET  R3, 0
-    IN   R2, (R3)
-    OUT  (R3), R2
+    PUSH R4
+    SET  R4, DeviceConsole
+    SET  R3, ConsoleReadChar
+    IN   R2, (R4: R3)
+    SET  R3, ConsoleWriteChar
+    OUT  (R4: R3), R2
+    POP  R4
     POP  R2
     POP  R3