draw-str working

2022-07-30 20:47:17 +03:00
parent bfbe94d018
commit c5a76c5a9a
2 changed files with 15 additions and 10 deletions
@@ -6,11 +6,8 @@
 BRK

@on-frame
-  LIT 'K ;putc JSR2
-  LIT 'O ;putc JSR2
-  LIT 'o ;putc JSR2
-  LIT 'L ;putc JSR2
-  SWP #10 SUB SWP
+  ;moveme ;draw-str JSR2
+  NIP #10 SWP
  ;&adv KP-A JMPKEY 
  ;&back KP-B JMPKEY 
  BRK
@@ -23,7 +20,7 @@ BRK
    INC
  BRK

-
+@moveme "MOVE 20 "ME! 00

 ( include ESOP stdlib routines )