CosmOS pre-alpha and launchable application versions of old programs.

2026-08-17 15:31:49 -04:00
parent eff6902bcf
commit 91c9d49d1b
66 changed files with 5612 additions and 160 deletions
@@ -0,0 +1,43 @@
+; A Fibonacci number generating program that uses only one byte to store the value.
+
+#Include services.asm
+
+#Program
+
+    #Base 0x2000
+
+start:
+  ; Load our initial values into A and B.
+  INIA 0x00
+  CALL printByteDecimal
+  CALL blankSpace
+  ; Move the value into B.
+  PSHA
+  POPB
+  ; Load the next starting value into A.
+  INIA 0x01
+  CALL printByteDecimal
+  CALL blankSpace
+ loop:
+  ADD                       ; Add the values together.
+  BRC end                   ; If the value overflows, we're done.
+  ; Copy A into B
+  PSHA
+  POPB
+  ; Copy Q into A
+  PSHQ
+  POPA
+  ; Print A.
+  CALL printByteDecimal
+  CALL blankSpace
+  BRI loop                  ; Loop again.
+ end:
+  CALL lineFeed
+  ;HALT
+  SWI osExit                ; Return to CosmOS.
+
+#Data
+
+    #Base 0x1000
+
+#Include print.asm