Changeset 59 for branches/ByteArray/Sample.asm

Timestamp:

Nov 25, 2023, 11:47:52 PM (12 months ago)

Author:

chronos

Message:

• Fixed: Assembler and disassembler to work correctly with supported instructions.

File:

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

branches/ByteArray/Sample.asm

@@ -1 @@
-  NOP
+    JP   Start
+    NOP
+    NOP
+    NOP
 
-  LD A, 64
-  LD B, 8
-  OUT (B), A
-  LD B, 0
-  LD C, 10
-  OUT (B), A
+    RET
+    LD   R0, (R1)
+    LD   (R0), R1
+    LD   R0, R1
+    LD   R0, 1
+    LD   (R0 + 1), R1
+    ;LD   (R0), (R1)
+    LD   D1, R0, 1
+    LD   D1, R0, R1
+
+    JP   Start
+    NOP
+    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
+
+Start:
+    LD   R0, 64
+    LD   R1, 8
+    OUT  (R1), R0
+    LD   R1, 0
+    LD   R2, 10
+    OUT  (R1), R0
 Loop:
-  INC A
-  DEC C
-  JNZ C, Loop
-  HALT
+    INC  R0
+    DEC  R2
+    JNZ  R2, Loop
+    HALT
 
 WriteStr:
+    ; R0 - string address
+    ; R1 - string length
     PUSH R2
     PUSH R3
     PUSH R4
-    SET  R3, ConsoleWriteChar
-    SET  R4, DeviceConsole
+    LD   R3, ConsoleWriteChar
 WriteStrLoop:
     LD   R2, (R0)
-    OUT  (R4: R3), R2
+    OUT  (R3), R2
     INC  R0
     DEC  R1
@@ -35 +67 @@
     PUSH R2
     PUSH R3
-    SET  R0, ScreenSetAddr
-    SET  R1, 0
-    SET  R3, DeviceScreen
-    OUT  (R3: R0), R1
-    SET  R0, ScreenGetWidth
-    IN   R1, (R3: R0)
-    SET  R0, ScreenGetHeight
-    IN   R2, (R3: R0)
+    LD   R0, ScreenSetAddr
+    LD   R1, 0
+    OUT  (R0), R1
+    LD   R0, ScreenGetWidth
+    IN   R1, (R0)
+    LD   R0, ScreenGetHeight
+    IN   R2, (R0)
     MUL  R2, R1
-    SET  R0, ScreenWrite
-    SET  R1, 120
+    LD   R0, ScreenWrite
+    LD   R1, 120
 ClearScreenLoop:
-    OUT  (R3: R0), R1
+    OUT  (R0), R1
     DEC  R2
     JNZ  R2, ClearScreenLoop
@@ -58 +89 @@
 Hello:
     DB   'Hello friend'
+
+KeyInterrupt:
+    ; Echo key
+    PUSH R3
+    PUSH R2
+    PUSH R4
+    LD   R3, ConsoleReadChar
+    IN   R2, (R3)
+    LD   R3, ConsoleWriteChar
+    OUT  (R3), R2
+    POP  R4
+    POP  R2
+    POP  R3
+    RET
+
+Test:
+    LD   R0, (R1 + 1)
+    LD   (R1 + 12), R2