Datetime syscall fixed and compat macro introduced

2022-07-31 18:37:56 +03:00
parent f2bad1455f
commit cf6a6e4259
4 changed files with 37 additions and 8 deletions
@@ -4,22 +4,25 @@

 |0100
  ;on-frame SETSCRVEC
-  #10 #12
+  #1a #20 ( mv-x mv-y )
 BRK

@on-frame
+  DATETIME-COMPAT ( get datetime info into #00c0 )
+  #10 #12 ( year-x year-y -- )
+  .DateTime/year LDZ2 ( year-x year-y year* -- )
+  ;print-dec JSR2 ( mv-x mv-y year-x year-y -- )
+  POP2 ( mv-x mv-y -- )
  ;moveme ;draw-str JSR2
-  NIP #10 SWP ( reset x coordinate )
+  SWP #20 SUB SWP ( restore x coord between frames )
  ;&adv KP-A JMPKEY 
  ;&back KP-B JMPKEY 
  BRK
  &adv
-    #fa DBG
-    DEC
+    SWP INC DBGBYTE SWP
  BRK
  &back
-    #fb DBG
-    INC
+    SWP DEC DBGBYTE SWP
  BRK

@moveme "MOVE 20 "ME! 00